#include <perms.h>

                                                                //      1  %externalroutinespec debug(%string(255)s)
#line 1 "regression-compile-tmp/vax-pass1.imp"
extern void DEBUG( _imp_string /*%string(255)*/ S );
                                                                //      2  
                                                                //      3  !   Computer Science IMP77 Compiler   -   Version 8  First pass
                                                                //      4  !                         23rd March 1981
                                                                //      5  !
                                                                //      6  %control 0
                                                                //      7  
                                                                //      8  %external %string (15) %fn %spec date
#line 8 "regression-compile-tmp/vax-pass1.imp"
extern _imp_string /*%string(15)*/ DATE( void );
                                                                //      9  %external %string (15) %fn %spec time
#line 9 "regression-compile-tmp/vax-pass1.imp"
extern _imp_string /*%string(15)*/ TIME( void );
                                                                //     10  
                                                                //     11  %externalintegerfn pass1(%integer object tank)
#line 11 "regression-compile-tmp/vax-pass1.imp"
int PASS1( int OBJECTTANK )
#line 11 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //     12     %externalroutinespec put(%integer n)
#line 12 "regression-compile-tmp/vax-pass1.imp"
extern void PUT( int N );
                                                                //     13     %externalroutinespec putword(%integer n)
#line 13 "regression-compile-tmp/vax-pass1.imp"
extern void PUTWORD( int N );
                                                                //     14     %externalroutinespec putlong(%integer n)
#line 14 "regression-compile-tmp/vax-pass1.imp"
extern void PUTLONG( int N );
                                                                //     15     %externalroutinespec putblock(%integer len, %bytename b)
#line 15 "regression-compile-tmp/vax-pass1.imp"
extern void PUTBLOCK( int LEN, unsigned char /*name*/*B );
                                                                //     16     %externalroutinespec select output tank(%integer n)
#line 16 "regression-compile-tmp/vax-pass1.imp"
extern void SELECTOUTPUTTANK( int N );
                                                                //     17     %systemroutinespec exit %alias "exit" (%integer status)
#line 17 "regression-compile-tmp/vax-pass1.imp"
extern void exit( int STATUS );
                                                                //     18     %externalstring(63)%spec error message
#line 18 "regression-compile-tmp/vax-pass1.imp"
extern _imp_string /*%string(63)*/ ERRORMESSAGE;
                                                                //     19     %externalstring(72)%fnspec sysmess(%integer n)
#line 19 "regression-compile-tmp/vax-pass1.imp"
extern _imp_string /*%string(72)*/ SYSMESS( int N );
                                                                //     20     %externalstring(127)%fnspec infilename
#line 20 "regression-compile-tmp/vax-pass1.imp"
extern _imp_string /*%string(127)*/ INFILENAME( void );
                                                                //     21  
                                                                //     22     %externalstring(6) version = "V08.02"
#line 22 "regression-compile-tmp/vax-pass1.imp"
_imp_string /*%string(6)*/ VERSION = _imp_str_literal("V08.02");
                                                                //     23  
                                                                //     24     %externalintegerspec command
#line 24 "regression-compile-tmp/vax-pass1.imp"
extern int COMMAND;
                                                                //     25  
                                                                //     26     %constinteger warnbit = 8_200
                                                                //     27     %constinteger listbit = 8_400
                                                                //     28  
                                                                //     29     !configuration parameters
                                                                //     30  
                                                                //     31     %CONSTINTEGER max int      = ((-1)>>1)//10
                                                                //     32     %CONSTINTEGER max dig      = (-1)>>1-maxint*10
                                                                //     33     %CONSTINTEGER byte size    = 8;            !bits per byte
                                                                //     34     %CONSTINTEGER max tag      = 1200;          !max no. of tags
                                                                //     35     %CONSTINTEGER max dict     = 9000;         !max extent of dictionary
                                                                //     36     %CONSTINTEGER name bits    = 11
                                                                //     37     %CONSTINTEGER max names    = 1<<namebits-1
                                                                //     38     %OWNINTEGER   spare names  = max names
#line 38 "regression-compile-tmp/vax-pass1.imp"
static int SPARENAMES = 2047;
                                                                //     39     %CONSTINTEGER max grammar  = 1800
                                                                //     40     %CONSTINTEGER lit max      = 50;           !max no. of constants/stat.
                                                                //     41     %CONSTINTEGER rec size     = 260;          !size of analysis record
                                                                //     42     %CONSTINTEGER dim limit    = 6;            !maximum array dimension
                                                                //     43  
                                                                //     44     !symbols
                                                                //     45  
                                                                //     46     %CONSTINTEGER ff     = 12;              !form feed
                                                                //     47     %CONSTINTEGER marker = '^';             !marker for faults
                                                                //     48     %CONSTINTEGER squote = '"';             !string quote
                                                                //     49     %CONSTINTEGER cquote = '''';            !character quote
                                                                //     50  
                                                                //     51     !streams
                                                                //     52  
                                                                //     53     %CONSTINTEGER   source = 1, prims = 2
                                                                //     54     %CONSTINTEGER report = 0, listing = 2
                                                                //     55  
                                                                //     56  
                                                                //     57     !types
                                                                //     58  
                                                                //     59     %CONSTINTEGER integer = 1
                                                                //     60     %CONSTINTEGER real    = 2
                                                                //     61     %CONSTINTEGER stringv = 3
                                                                //     62     %CONSTINTEGER record  = 4
                                                                //     63  
                                                                //     64     !forms
                                                                //     65  
                                                                //     66     %CONSTINTEGER iform = integer<<4+1
                                                                //     67  
                                                                //     68     %CONSTINTEGER var = 91
                                                                //     69     %CONSTINTEGER const   = 93
                                                                //     70     %CONSTINTEGER swit    = 105
                                                                //     71     %CONSTINTEGER comment = 22
                                                                //     72     %CONSTINTEGER termin  = 20
                                                                //     73     %CONSTINTEGER lab     = 3
                                                                //     74     %CONSTINTEGER jump    = 54
                                                                //     75  
                                                                //     76     %CONSTINTEGER recfm = 4
                                                                //     77     %CONSTINTEGER proc  = 7;                     !class for proc
                                                                //     78  
                                                                //     79     !phrase entries
                                                                //     80  
                                                                //     81     %CONSTINTEGER escdec   = 252
                                                                //     82     %CONSTINTEGER escproc  = 253
                                                                //     83     %CONSTINTEGER escarray = 254
                                                                //     84     %CONSTINTEGER escrec   = 255
                                                                //     85  
                                                                //     86     %RECORDFORMAT arfm({GT:%SHORT}%INTEGER class,sub,link,ptype,papp,pformat,x,pos);!imp77:
#line 86 "regression-compile-tmp/vax-pass1.imp"
typedef struct ARFM ARFM;
struct ARFM {
  int CLASS;
  int SUB;
  int LINK;
  int PTYPE;
  int PAPP;
  int PFORMAT;
  int X;
  int POS;
};
                                                                //     87  
                                                                //     88     %RECORDFORMAT tagfm(%INTEGER app, format, %C
#line 88 "regression-compile-tmp/vax-pass1.imp"
typedef struct TAGFM TAGFM;
struct TAGFM {
  int APP;
  int FORMAT;
  int FLAGS;
  int INDEX;
  int TEXT;
  int LINK;
};
                                                                //     89                         {GT:%SHORT}%INTEGER flags, index, text, link)
                                                                //     90  
                                                                //     91     !flags
                                                                //     92  
                                                                //     93  !      *===.===.===.===.===.====.====.====.===.======.======*
                                                                //     94  !      ! u ! c ! c ! p ! s ! a  ! o  ! pr ! s ! type ! form !
                                                                //     95  !      ! 1 ! 1 ! 1 ! 1 ! 1 ! 1  ! 1  ! 1  ! 1 !  3   !  4   !
                                                                //     96  !      *===^===^===^===^===^====^====^====^===^======^======*
                                                                //     97  !        u   c   c   p   s   a    o    p    s    t      f
                                                                //     98  !        s   l   o   a   u   n    w    r    p    y      o
                                                                //     99  !        e   o   n   r   b   a    n    o    e    p      r
                                                                //    100  !        d   s   s   a   n   m         t    c    e      m
                                                                //    101  !            e   t   m   a   e
                                                                //    102  !            d       s   m
                                                                //    103  !                        e
                                                                //    104  !
                                                                //    105  !
                                                                //    106  
                                                                //    107     %CONSTINTEGER used bit   = 2_1000000000000000,
                                                                //    108                   closed     = 2_0100000000000000,
                                                                //    109                   const bit  = 2_0010000000000000,
                                                                //    110                   parameters = 2_0001000000000000,
                                                                //    111                   subname    = 2_0000100000000000,
                                                                //    112                   aname      = 2_0000010000000000,
                                                                //    113                   own bit    = 2_0000001000000000,
                                                                //    114                   prot       = 2_0000000100000000,
                                                                //    115                   spec       = 2_0000000010000000
                                                                //    116  
                                                                //    117     %CONSTINTEGER trans bit  = 16_4000
                                                                //    118     %CONSTINTEGER error      = 16_8000
                                                                //    119  
                                                                //    120     %CONSTINTEGER manifest = 120, figurative = 130
                                                                //    121     %CONSTINTEGER actions  = 180, phrasal    = 200
                                                                //    122  
                                                                //    123     %CONSTBYTEINTEGERARRAY amap(0:15) = %C
#line 123 "regression-compile-tmp/vax-pass1.imp"
const unsigned char AMAP[16] = { 89, 91, 92, 104, 94, 93, 105, 100, 101, 102, 103, 106, 107, 108, 109, 89,  };
                                                                //    124   89, 91, 92, 104, 94, const, swit, 100, 101, 102, 103, 106, 107, 108, 109, 89
                                                                //    125  !?   v   n   l    fm  const  swit  rp   fp   mp   pp   a    an   na   nan  ?
                                                                //    126  
                                                                //    127     %CONSTBYTEINTEGERARRAY atoms(0:15) = 89, 1, 1, 10,  9,  1, 10,  7,
#line 127 "regression-compile-tmp/vax-pass1.imp"
const unsigned char ATOMS[16] = { 89, 1, 1, 10, 9, 1, 10, 7, 7, 7, 7, 4, 1, 4, 1, 89,  };
                                                                //    128                                           7, 7, 7,  4,  1,  4,  1, 89
                                                                //    129  
                                                                //    130     %RECORD(arfm)%ARRAY ar(1:rec size)
#line 130 "regression-compile-tmp/vax-pass1.imp"
 ARFM AR[260];
                                                                //    131  
                                                                //    132     %OWNINTEGER class = 0;                    !class of atom wanted
#line 132 "regression-compile-tmp/vax-pass1.imp"
static int CLASS = 0;
                                                                //    133     %OWNINTEGER x = 0;                        !usually last tag
#line 133 "regression-compile-tmp/vax-pass1.imp"
static int X = 0;
                                                                //    134     %OWNINTEGER atom1 = 0;                    !atom class (major)
#line 134 "regression-compile-tmp/vax-pass1.imp"
static int ATOM1 = 0;
                                                                //    135     %OWNINTEGER atom2 = 0;                    !atom class (minor)
#line 135 "regression-compile-tmp/vax-pass1.imp"
static int ATOM2 = 0;
                                                                //    136     %OWNINTEGER subatom = 0;                  !extra info about atom
#line 136 "regression-compile-tmp/vax-pass1.imp"
static int SUBATOM = 0;
                                                                //    137     %OWNINTEGER type = 0, app = 0, format = 0;!atom info
#line 137 "regression-compile-tmp/vax-pass1.imp"
static int TYPE = 0;
#line 137 "regression-compile-tmp/vax-pass1.imp"
static int APP = 0;
#line 137 "regression-compile-tmp/vax-pass1.imp"
static int FORMAT = 0;
                                                                //    138     %INTEGER hash value
#line 138 "regression-compile-tmp/vax-pass1.imp"
int HASHVALUE;
                                                                //    139     %OWNINTEGER faulty  = 0;                  !fault indicator
#line 139 "regression-compile-tmp/vax-pass1.imp"
static int FAULTY = 0;
                                                                //    140     %OWNINTEGER fault rate = 0;               !fault rate count
#line 140 "regression-compile-tmp/vax-pass1.imp"
static int FAULTRATE = 0;
                                                                //    141     %OWNINTEGER lines = 0;                    !current line number
#line 141 "regression-compile-tmp/vax-pass1.imp"
static int LINES = 0;
                                                                //    142     %OWNINTEGER text line = 0;                !starting line for string const
#line 142 "regression-compile-tmp/vax-pass1.imp"
static int TEXTLINE = 0;
                                                                //    143     %OWNINTEGER margin = 0;                   !statement start margin
#line 143 "regression-compile-tmp/vax-pass1.imp"
static int MARGIN = 0;
                                                                //    144     %OWNINTEGER error margin = 0, error sym = 0, column = 0
#line 144 "regression-compile-tmp/vax-pass1.imp"
static int ERRORMARGIN = 0;
#line 144 "regression-compile-tmp/vax-pass1.imp"
static int ERRORSYM = 0;
#line 144 "regression-compile-tmp/vax-pass1.imp"
static int COLUMN = 0;
                                                                //    145     %OWNINTEGER stats = 0;                    !statements compiled
#line 145 "regression-compile-tmp/vax-pass1.imp"
static int STATS = 0;
                                                                //    146     %OWNINTEGER mon pos = 0;                  !flag for diagnose
#line 146 "regression-compile-tmp/vax-pass1.imp"
static int MONPOS = 0;
                                                                //    147     %OWNINTEGER sym = nl;                     !current input symbol
#line 147 "regression-compile-tmp/vax-pass1.imp"
static int SYM = 10;
                                                                //    148     %OWNINTEGER symtype = 0;                  !type of current symbol
#line 148 "regression-compile-tmp/vax-pass1.imp"
static int SYMTYPE = 0;
                                                                //    149     %OWNINTEGER quote = 0;                    !>0 strings, <0 chars
#line 149 "regression-compile-tmp/vax-pass1.imp"
static int QUOTE = 0;
                                                                //    150     %owninteger end mark = 0;                  !%end flag
#line 150 "regression-compile-tmp/vax-pass1.imp"
static int ENDMARK = 0;
                                                                //    151     %OWNINTEGER cont = ' ', csym = ' ';       !listing continuation marker
#line 151 "regression-compile-tmp/vax-pass1.imp"
static int CONT = 32;
#line 151 "regression-compile-tmp/vax-pass1.imp"
static int CSYM = 32;
                                                                //    152     %OWNINTEGER decl = 0;                     !current declarator flags
#line 152 "regression-compile-tmp/vax-pass1.imp"
static int DECL = 0;
                                                                //    153     %OWNINTEGER dim  = 0;                     !arrayname dimension
#line 153 "regression-compile-tmp/vax-pass1.imp"
static int DIM = 0;
                                                                //    154     %OWNINTEGER spec given = 0
#line 154 "regression-compile-tmp/vax-pass1.imp"
static int SPECGIVEN = 0;
                                                                //    155  
                                                                //    156     %OWNINTEGER escape class = 0;             !when and where to escape
#line 156 "regression-compile-tmp/vax-pass1.imp"
static int ESCAPECLASS = 0;
                                                                //    157     %OWNINTEGER protection=0, atom flags=0
#line 157 "regression-compile-tmp/vax-pass1.imp"
static int PROTECTION = 0;
#line 157 "regression-compile-tmp/vax-pass1.imp"
static int ATOMFLAGS = 0;
                                                                //    158     %OWNINTEGER otype = 0;                    !current 'own' type
#line 158 "regression-compile-tmp/vax-pass1.imp"
static int OTYPE = 0;
                                                                //    159     %OWNINTEGER reals ln = 1;                 ! =4 for %REALSLONG
#line 159 "regression-compile-tmp/vax-pass1.imp"
static int REALSLN = 1;
                                                                //    160     %OWNINTEGER last1 = 0;                    !previous atom class
#line 160 "regression-compile-tmp/vax-pass1.imp"
static int LAST1 = 0;
                                                                //    161     %OWNINTEGER gen type = 0
#line 161 "regression-compile-tmp/vax-pass1.imp"
static int GENTYPE = 0;
                                                                //    162     %OWNINTEGER ptype = 0;                    !current phrase type
#line 162 "regression-compile-tmp/vax-pass1.imp"
static int PTYPE = 0;
                                                                //    163     %OWNINTEGER papp = 0;                     !current phrase parameters
#line 163 "regression-compile-tmp/vax-pass1.imp"
static int PAPP = 0;
                                                                //    164     %OWNINTEGER pformat = 0;                  !current phrase format
#line 164 "regression-compile-tmp/vax-pass1.imp"
static int PFORMAT = 0;
                                                                //    165     %OWNINTEGER force = 0;                    !force next ptype
#line 165 "regression-compile-tmp/vax-pass1.imp"
static int FORCE = 0;
                                                                //    166     %OWNINTEGER g = 0, gg = 0, map gg = 0;            !grammar entries
#line 166 "regression-compile-tmp/vax-pass1.imp"
static int G = 0;
#line 166 "regression-compile-tmp/vax-pass1.imp"
static int GG = 0;
#line 166 "regression-compile-tmp/vax-pass1.imp"
static int MAPGG = 0;
                                                                //    167     %OWNINTEGER fdef  = 0;                    !current format definition
#line 167 "regression-compile-tmp/vax-pass1.imp"
static int FDEF = 0;
                                                                //    168     %OWNINTEGER this  = -1;                   !current recordformat tag
#line 168 "regression-compile-tmp/vax-pass1.imp"
static int THIS = (-1);
                                                                //    169     %OWNINTEGER nmin = 0;                     !analysis record atom pointer
#line 169 "regression-compile-tmp/vax-pass1.imp"
static int NMIN = 0;
                                                                //    170     %OWNINTEGER nmax = 0;                     !analysis record phrase pointer
#line 170 "regression-compile-tmp/vax-pass1.imp"
static int NMAX = 0;
                                                                //    171     %OWNINTEGER rbase = 0;                    !record format definition base
#line 171 "regression-compile-tmp/vax-pass1.imp"
static int RBASE = 0;
                                                                //    172     %OWNINTEGER stbase = 0;                   !constant work area base
#line 172 "regression-compile-tmp/vax-pass1.imp"
static int STBASE = 0;
                                                                //    173     %OWNINTEGER gmin = max grammar;           !upper bound on grammar
#line 173 "regression-compile-tmp/vax-pass1.imp"
static int GMIN = 1800;
                                                                //    174     %OWNINTEGER dmax = 1
#line 174 "regression-compile-tmp/vax-pass1.imp"
static int DMAX = 1;
                                                                //    175     %OWNINTEGER tmin = max tag;               !upper bound on tags
#line 175 "regression-compile-tmp/vax-pass1.imp"
static int TMIN = 1200;
                                                                //    176     %OWNINTEGER ss      = 0;                  !source statement entry
#line 176 "regression-compile-tmp/vax-pass1.imp"
static int SS = 0;
                                                                //    177        %STRING(63) include file
#line 177 "regression-compile-tmp/vax-pass1.imp"
_imp_string /*%string(63)*/ INCLUDEFILE;
                                                                //    178     %OWNINTEGER include list = 0
#line 178 "regression-compile-tmp/vax-pass1.imp"
static int INCLUDELIST = 0;
                                                                //    179     %OWNINTEGER include = 0;                  !=0 unused, #0 being used
#line 179 "regression-compile-tmp/vax-pass1.imp"
static int INCLUDE = 0;
                                                                //    180     %OWNINTEGER perm    = 1;                  !1 = compiling perm, 0 = program
#line 180 "regression-compile-tmp/vax-pass1.imp"
static int PERM = 1;
                                                                //    181     %OWNINTEGER progmode= 0;                  !-1 = file, 1 = begin/eop
#line 181 "regression-compile-tmp/vax-pass1.imp"
static int PROGMODE = 0;
                                                                //    182     %OWNINTEGER sstype = 0;                   !-1:exec stat
#line 182 "regression-compile-tmp/vax-pass1.imp"
static int SSTYPE = 0;
                                                                //    183                                               ! 0: declaration
                                                                //    184                                               ! 1: block in
                                                                //    185                                               ! 2: block out
                                                                //    186     %OWNINTEGER spec mode = 0;                !>=0: definition
#line 186 "regression-compile-tmp/vax-pass1.imp"
static int SPECMODE = 0;
                                                                //    187                                               ! -1: proc spec
                                                                //    188                                               ! -2: recordformat
                                                                //    189     %OWNINTEGER ocount  = -1;                 !own constants wanted
#line 189 "regression-compile-tmp/vax-pass1.imp"
static int OCOUNT = (-1);
                                                                //    190     %OWNINTEGER limit   = 0;                  !lookup limit
#line 190 "regression-compile-tmp/vax-pass1.imp"
static int LIMIT = 0;
                                                                //    191     %OWNINTEGER copy    = 0;                  !duplicate name flag
#line 191 "regression-compile-tmp/vax-pass1.imp"
static int COPY = 0;
                                                                //    192     %OWNINTEGER order   = 0;                  !out of sequence flag
#line 192 "regression-compile-tmp/vax-pass1.imp"
static int ORDER = 0;
                                                                //    193     %OWNINTEGER for warn = 0;                 !non-local flag
#line 193 "regression-compile-tmp/vax-pass1.imp"
static int FORWARN = 0;
                                                                //    194     %OWNINTEGER dubious = 0;                  !flag for dubious statements
#line 194 "regression-compile-tmp/vax-pass1.imp"
static int DUBIOUS = 0;
                                                                //    195     %OWNINTEGER dp      = 1
#line 195 "regression-compile-tmp/vax-pass1.imp"
static int DP = 1;
                                                                //    196     %OWNINTEGER pos1    = 0, pos2 = 0;        !error position
#line 196 "regression-compile-tmp/vax-pass1.imp"
static int POS1 = 0;
#line 196 "regression-compile-tmp/vax-pass1.imp"
static int POS2 = 0;
                                                                //    197     %OWNINTEGER pos     = 0;                  !input line index
#line 197 "regression-compile-tmp/vax-pass1.imp"
static int POS = 0;
                                                                //    198     %OWNINTEGER dimension = 0;                !current array dimension
#line 198 "regression-compile-tmp/vax-pass1.imp"
static int DIMENSION = 0;
                                                                //    199     %OWNINTEGER local = 0;                    !search limit for locals
#line 199 "regression-compile-tmp/vax-pass1.imp"
static int LOCAL = 0;
                                                                //    200     %OWNINTEGER fm base = 0;                  !entry for format decls
#line 200 "regression-compile-tmp/vax-pass1.imp"
static int FMBASE = 0;
                                                                //    201     %OWNINTEGER search base = 0;              !entry for record_names
#line 201 "regression-compile-tmp/vax-pass1.imp"
static int SEARCHBASE = 0;
                                                                //    202     %OWNINTEGER format list = 0;              !size of current format list
#line 202 "regression-compile-tmp/vax-pass1.imp"
static int FORMATLIST = 0;
                                                                //    203     %INTEGER recid
#line 203 "regression-compile-tmp/vax-pass1.imp"
int RECID;
                                                                //    204     %ownbyteintegername current char
#line 204 "regression-compile-tmp/vax-pass1.imp"
static unsigned char /*name*/*CURRENTCHAR;
                                                                //    205     %OWNBYTEINTEGERARRAY char(0:133)=nl(134);  !input line
#line 205 "regression-compile-tmp/vax-pass1.imp"
static unsigned char CHAR[134] = { [0 ... 133] = 10 };
                                                                //    206     %INTEGERARRAY lit pool(0:lit max)
#line 206 "regression-compile-tmp/vax-pass1.imp"
int LITPOOL[51];
                                                                //    207     %OWNINTEGER lit = 0;                      !current literal (integer)
#line 207 "regression-compile-tmp/vax-pass1.imp"
static int LIT = 0;
                                                                //    208     %OWNINTEGER lp = 0;                       !literals pointer
#line 208 "regression-compile-tmp/vax-pass1.imp"
static int LP = 0;
                                                                //    209     %OWNINTEGER block x = 0;                  !block tag
#line 209 "regression-compile-tmp/vax-pass1.imp"
static int BLOCKX = 0;
                                                                //    210     %OWNINTEGER list    = 2;                  !<= to enable
#line 210 "regression-compile-tmp/vax-pass1.imp"
static int LIST = 2;
                                                                //    211     %OWNINTEGER control = 0
#line 211 "regression-compile-tmp/vax-pass1.imp"
static int CONTROL = 0;
                                                                //    212     %OWNINTEGER diag = 0;                     !diagnose flags
#line 212 "regression-compile-tmp/vax-pass1.imp"
static int DIAG = 0;
                                                                //    213     %SHORTINTEGERARRAY hash(0:max names)
#line 213 "regression-compile-tmp/vax-pass1.imp"
short HASH[2048];
                                                                //    214     %RECORD(tagfm)%ARRAY tag(0:max tag)
#line 214 "regression-compile-tmp/vax-pass1.imp"
 TAGFM TAG[1201];
                                                                //    215     {GT:%SHORT}%INTEGERARRAY dict(1:max dict)
#line 215 "regression-compile-tmp/vax-pass1.imp"
int DICT[9000];
                                                                //    216  
                                                                //    217  !*** start of generated tables ***
                                                                //    218  !!   %include "tables.imp"
                                                                //    219  !!   %endoflist
                                                                //    220  %conststring(8)%array text(0:255) = %c
#line 220 "regression-compile-tmp/vax-pass1.imp"
const _imp_string /*%string(8)*/ TEXT[256] = { _imp_str_literal("Z"), _imp_str_literal("VDEC"), _imp_str_literal("OWNVDEC"), _imp_str_literal("EXTVSPEC"), _imp_str_literal("ADEC"), _imp_str_literal("OWNADEC"), _imp_str_literal("EXTASPEC"), _imp_str_literal("PROC"), _imp_str_literal("PROCSPEC"), _imp_str_literal("FORMDEC"), _imp_str_literal("SWDEC"), _imp_str_literal("LDEC"), _imp_str_literal("FORMSPEC"), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal("OPTION"), _imp_str_literal("COMMA"), _imp_str_literal("T"), _imp_str_literal("COLON"), _imp_str_literal("COMMENT"), _imp_str_literal("LB"), _imp_str_literal("ALIAS"), _imp_str_literal("RB"), _imp_str_literal("SUB"), _imp_str_literal("ARRAYD"), _imp_str_literal("STYPE"), _imp_str_literal("ARRAY"), _imp_str_literal("NAME"), _imp_str_literal("PROCD"), _imp_str_literal("FNMAP"), _imp_str_literal("SWITCH"), _imp_str_literal("OWN"), _imp_str_literal("EXTERNAL"), _imp_str_literal("STRING"), _imp_str_literal("RECORD"), _imp_str_literal("FORMAT"), _imp_str_literal("SPEC"), _imp_str_literal("MCODE"), _imp_str_literal("LABEL"), _imp_str_literal("OP1"), _imp_str_literal("OP2"), _imp_str_literal("OP3"), _imp_str_literal("SIGN"), _imp_str_literal("UOP"), _imp_str_literal("MOD"), _imp_str_literal("DOT"), _imp_str_literal("COMP"), _imp_str_literal("ACOMP"), _imp_str_literal("EQ"), _imp_str_literal("EQEQ"), _imp_str_literal("JAM"), _imp_str_literal("JUMP"), _imp_str_literal("RESOP"), _imp_str_literal("AND"), _imp_str_literal("OR"), _imp_str_literal("NOT"), _imp_str_literal("WHILE"), _imp_str_literal("UNTIL"), _imp_str_literal("FOR"), _imp_str_literal("CWORD"), _imp_str_literal("EXIT"), _imp_str_literal("ON"), _imp_str_literal("SIGNAL"), _imp_str_literal("THEN"), _imp_str_literal("START"), _imp_str_literal("ELSE"), _imp_str_literal("FINISH"), _imp_str_literal("FELSE"), _imp_str_literal("CYCLE"), _imp_str_literal("REPEAT"), _imp_str_literal("PROGRAM"), _imp_str_literal("BEGIN"), _imp_str_literal("END"), _imp_str_literal("ENDPROG"), _imp_str_literal("ENDPERM"), _imp_str_literal("FRESULT"), _imp_str_literal("MRESULT"), _imp_str_literal("BACK"), _imp_str_literal("MONITOR"), _imp_str_literal("STOP"), _imp_str_literal("LIST"), _imp_str_literal(""), _imp_str_literal("CONTROL"), _imp_str_literal("INCLUDE"), _imp_str_literal("MASS"), _imp_str_literal("RTYPE"), _imp_str_literal("ADDOP"), _imp_str_literal("IDENT"), _imp_str_literal("V"), _imp_str_literal("N"), _imp_str_literal("CONST"), _imp_str_literal("FM"), _imp_str_literal(""), _imp_str_literal("R"), _imp_str_literal("F"), _imp_str_literal("M"), _imp_str_literal("P"), _imp_str_literal("RP"), _imp_str_literal("FP"), _imp_str_literal("MP"), _imp_str_literal("PP"), _imp_str_literal("L"), _imp_str_literal("S"), _imp_str_literal("A"), _imp_str_literal("AN"), _imp_str_literal("NA"), _imp_str_literal("NAN"), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal("%MSTART"), _imp_str_literal("%CLEAR"), _imp_str_literal("%PRED"), _imp_str_literal(""), _imp_str_literal("%DUBIOUS"), _imp_str_literal("%DUP"), _imp_str_literal("%PIN"), _imp_str_literal("%POUT"), _imp_str_literal("%EDUP"), _imp_str_literal(""), _imp_str_literal("PIDENT"), _imp_str_literal("CIDENT"), _imp_str_literal("OIDENT"), _imp_str_literal("FNAME"), _imp_str_literal("SWID"), _imp_str_literal("DOTL"), _imp_str_literal("DOTR"), _imp_str_literal("ASEP"), _imp_str_literal("CSEP"), _imp_str_literal("OSEP"), _imp_str_literal("PSEP"), _imp_str_literal("ARB"), _imp_str_literal("BPLRB"), _imp_str_literal("ORB"), _imp_str_literal("PRB"), _imp_str_literal("CRB"), _imp_str_literal("RCRB"), _imp_str_literal("RECRB"), _imp_str_literal("RECLB"), _imp_str_literal("LAB"), _imp_str_literal("MLAB"), _imp_str_literal("SLAB"), _imp_str_literal("XNAME"), _imp_str_literal("OWNT"), _imp_str_literal("DBSEP"), _imp_str_literal("PCONST"), _imp_str_literal("CMOD"), _imp_str_literal("CSIGN"), _imp_str_literal("CUOP"), _imp_str_literal("COP1"), _imp_str_literal("COP2"), _imp_str_literal("COP3"), _imp_str_literal("INDEF"), _imp_str_literal("XELSE"), _imp_str_literal("CRESOP"), _imp_str_literal("NLAB"), _imp_str_literal("RUNTIL"), _imp_str_literal("ACONST"), _imp_str_literal("ORRB"), _imp_str_literal("FMANY"), _imp_str_literal("OSTRING"), _imp_str_literal("FMLB"), _imp_str_literal("FMRB"), _imp_str_literal("FMOR"), _imp_str_literal("RANGERB"), _imp_str_literal("FSID"), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal("%DUMMY"), _imp_str_literal("%DECL"), _imp_str_literal("%TYPE"), _imp_str_literal("%ZERO"), _imp_str_literal("%APPLY"), _imp_str_literal("%PROT"), _imp_str_literal("%SETPROT"), _imp_str_literal("%PTYPE"), _imp_str_literal("%GAPP"), _imp_str_literal("%LOCAL"), _imp_str_literal("%GUARD"), _imp_str_literal("%MCODE"), _imp_str_literal("%CDUMMY"), _imp_str_literal("%SETTYPE"), _imp_str_literal("%OPER"), _imp_str_literal("%PARAM"), _imp_str_literal("%BLOCK"), _imp_str_literal("%OTHER"), _imp_str_literal("%COMPILE"), _imp_str_literal("APP"), _imp_str_literal("BASEAPP"), _imp_str_literal("APP2"), _imp_str_literal("APP3"), _imp_str_literal("APP4"), _imp_str_literal("APP5"), _imp_str_literal("APP6"), _imp_str_literal("ADEFN"), _imp_str_literal("NPARM"), _imp_str_literal("SWDEF"), _imp_str_literal("SWIDS"), _imp_str_literal("CIEXP"), _imp_str_literal("RCONST"), _imp_str_literal("SCONST"), _imp_str_literal("ARRAYP"), _imp_str_literal("XIMP"), _imp_str_literal("IMP"), _imp_str_literal("COND"), _imp_str_literal("SCOND"), _imp_str_literal("EXP1"), _imp_str_literal("EXP2"), _imp_str_literal("SEXP"), _imp_str_literal("IEXP"), _imp_str_literal("IEXP1"), _imp_str_literal("IEXP2"), _imp_str_literal("ISEXP"), _imp_str_literal("SEQ"), _imp_str_literal("FDEF"), _imp_str_literal("EXP"), _imp_str_literal("NARRAYP"), _imp_str_literal("STRUCT"), _imp_str_literal("RESEXP"), _imp_str_literal("BPL"), _imp_str_literal("CONSTB"), _imp_str_literal("FITEM"), _imp_str_literal("MOREA"), _imp_str_literal("CLIST"), _imp_str_literal("FPP"), _imp_str_literal("FPP0"), _imp_str_literal("FPP1"), _imp_str_literal("FPP2"), _imp_str_literal("INITVAR"), _imp_str_literal("RECEXP"), _imp_str_literal("EIMP"), _imp_str_literal("IDENTS"), _imp_str_literal("RANGE"), _imp_str_literal("RCONSTB"), _imp_str_literal("VARP"), _imp_str_literal("INITDEC"), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal("ESCDEC"), _imp_str_literal("ESCPROC"), _imp_str_literal("ESCARRAY"), _imp_str_literal("ESCREC"),  };
                                                                //    221  "Z","VDEC","OWNVDEC","EXTVSPEC","ADEC","OWNADEC",
                                                                //    222  "EXTASPEC","PROC","PROCSPEC","FORMDEC","SWDEC","LDEC",
                                                                //    223  "FORMSPEC","","","","","",
                                                                //    224  "OPTION","COMMA","T","COLON","COMMENT","LB",
                                                                //    225  "ALIAS","RB","SUB","ARRAYD","STYPE","ARRAY",
                                                                //    226  "NAME","PROCD","FNMAP","SWITCH","OWN","EXTERNAL",
                                                                //    227  "STRING","RECORD","FORMAT","SPEC","MCODE","LABEL",
                                                                //    228  "OP1","OP2","OP3","SIGN","UOP","MOD",
                                                                //    229  "DOT","COMP","ACOMP","EQ","EQEQ","JAM",
                                                                //    230  "JUMP","RESOP","AND","OR","NOT","WHILE",
                                                                //    231  "UNTIL","FOR","CWORD","EXIT","ON","SIGNAL",
                                                                //    232  "THEN","START","ELSE","FINISH","FELSE","CYCLE",
                                                                //    233  "REPEAT","PROGRAM","BEGIN","END","ENDPROG","ENDPERM",
                                                                //    234  "FRESULT","MRESULT","BACK","MONITOR","STOP","LIST",
                                                                //    235  "","CONTROL","INCLUDE","MASS","RTYPE","ADDOP",
                                                                //    236  "IDENT","V","N","CONST","FM","",
                                                                //    237  "R","F","M","P","RP","FP",
                                                                //    238  "MP","PP","L","S","A","AN",
                                                                //    239  "NA","NAN","","","","",
                                                                //    240  "","","","","","",
                                                                //    241  "%MSTART","%CLEAR","%PRED","","%DUBIOUS","%DUP",
                                                                //    242  "%PIN","%POUT","%EDUP","","PIDENT","CIDENT",
                                                                //    243  "OIDENT","FNAME","SWID","DOTL","DOTR","ASEP",
                                                                //    244  "CSEP","OSEP","PSEP","ARB","BPLRB","ORB",
                                                                //    245  "PRB","CRB","RCRB","RECRB","RECLB","LAB",
                                                                //    246  "MLAB","SLAB","XNAME","OWNT","DBSEP","PCONST",
                                                                //    247  "CMOD","CSIGN","CUOP","COP1","COP2","COP3",
                                                                //    248  "INDEF","XELSE","CRESOP","NLAB","RUNTIL","ACONST",
                                                                //    249  "ORRB","FMANY","OSTRING","FMLB","FMRB","FMOR",
                                                                //    250  "RANGERB","FSID","","","","",
                                                                //    251  "","%DUMMY","%DECL","%TYPE","%ZERO","%APPLY",
                                                                //    252  "%PROT","%SETPROT","%PTYPE","%GAPP","%LOCAL","%GUARD",
                                                                //    253  "%MCODE","%CDUMMY","%SETTYPE","%OPER","%PARAM","%BLOCK",
                                                                //    254  "%OTHER","%COMPILE","APP","BASEAPP","APP2","APP3",
                                                                //    255  "APP4","APP5","APP6","ADEFN","NPARM","SWDEF",
                                                                //    256  "SWIDS","CIEXP","RCONST","SCONST","ARRAYP","XIMP",
                                                                //    257  "IMP","COND","SCOND","EXP1","EXP2","SEXP",
                                                                //    258  "IEXP","IEXP1","IEXP2","ISEXP","SEQ","FDEF",
                                                                //    259  "EXP","NARRAYP","STRUCT","RESEXP","BPL","CONSTB",
                                                                //    260  "FITEM","MOREA","CLIST","FPP","FPP0","FPP1",
                                                                //    261  "FPP2","INITVAR","RECEXP","EIMP","IDENTS","RANGE",
                                                                //    262  "RCONSTB","VARP","INITDEC","","","",
                                                                //    263  "ESCDEC","ESCPROC","ESCARRAY","ESCREC"
                                                                //    264  %constinteger gmax1=718
                                                                //    265  %owninteger gmax=718
#line 265 "regression-compile-tmp/vax-pass1.imp"
static int GMAX = 718;
                                                                //    266  %constinteger imp phrase =24
                                                                //    267  
                                                                //    268  %ownshortintegerarray phrase(200:255) = %C
#line 268 "regression-compile-tmp/vax-pass1.imp"
static short PHRASE[56] = { 0, 563, 564, 566, 568, 570, 572, 561, 613, 202, 199, 601, 477, 479, 623, 297, 205, 307, 317, 432, 425, 436, 443, 457, 452, 460, 466, 481, 401, 626, 628, 602, 520, 510, 485, 501, 574, 526, 527, 542, 549, 577, 396, 286, 196, 635, 515, 620, 166, 0, 0, 0, 639, 692, 700, 708,  };
                                                                //    269     0, 563, 564, 566, 568, 570, 572, 561,
                                                                //    270   613, 202, 199, 601, 477, 479, 623, 297,
                                                                //    271   205, 307, 317, 432, 425, 436, 443, 457,
                                                                //    272   452, 460, 466, 481, 401, 626, 628, 602,
                                                                //    273   520, 510, 485, 501, 574, 526, 527, 542,
                                                                //    274   549, 577, 396, 286, 196, 635, 515, 620,
                                                                //    275   166,   0,   0,   0, 639, 692, 700, 708
                                                                //    276  
                                                                //    277  %constbyteintegerarray atomic(130:179) = %c
#line 277 "regression-compile-tmp/vax-pass1.imp"
const unsigned char ATOMIC[50] = { 90, 90, 90, 90, 90, 48, 48, 19, 19, 19, 19, 25, 25, 25, 25, 25, 25, 25, 23, 104, 104, 105, 30, 20, 21, 93, 47, 45, 46, 42, 43, 44, 40, 68, 55, 104, 60, 93, 25, 40, 93, 23, 25, 57, 25, 90, 176, 177, 178, 179,  };
                                                                //    278    90,  90,  90,  90,  90,  48,  48,  19,
                                                                //    279    19,  19,  19,  25,  25,  25,  25,  25,
                                                                //    280    25,  25,  23, 104, 104, 105,  30,  20,
                                                                //    281    21,  93,  47,  45,  46,  42,  43,  44,
                                                                //    282    40,  68,  55, 104,  60,  93,  25,  40,
                                                                //    283    93,  23,  25,  57,  25,  90, 176, 177,
                                                                //    284   178, 179
                                                                //    285  
                                                                //    286  !  FLAG<1> 0<1> SS<2> 0<3> T<1> LINK<8>
                                                                //    287  %constshortintegerarray initial(0:119) = %c
#line 287 "regression-compile-tmp/vax-pass1.imp"
const short INITIAL[120] = { 23, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 22, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (-32552), 0, 0, 0, 0, 13, 0, 14, 4, (-32558), 16, (-32551), 0, 0, 5, 6, 3, 12, 15, 8, 7, 9, 10, 11, (-32559), (-32555), (-32560), (-32553), (-32554), 18, 0, 17, 21, 19, 0, 0, 0, (-32563), (-32561), 0, 0, 0, (-32562), 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, (-32557), 0, (-32556), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,  };
                                                                //    288        23,       0,       0,       0,       0,       0,       0,       0,
                                                                //    289         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //    290         0,       0,      22,       0,       0,       0,       0,       0,
                                                                //    291         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //    292         0,       0,       0,       0,       0,       0,       0,       0,
                                                                //    293        20,       0,       0,       0,       0,       0,       0,       0,
                                                                //    294         0,       0,       0,       0,       0,       0,  -32552,       0,
                                                                //    295         0,       0,       0,      13,       0,      14,       4,  -32558,
                                                                //    296        16,  -32551,       0,       0,       5,       6,       3,      12,
                                                                //    297        15,       8,       7,       9,      10,      11,  -32559,  -32555,
                                                                //    298    -32560,  -32553,  -32554,      18,       0,      17,      21,      19,
                                                                //    299         0,       0,       0,  -32563,  -32561,       0,       0,       0,
                                                                //    300    -32562,       0,       0,       0,       0,       0,       0,       0,
                                                                //    301         1,       2,       0,  -32557,       0,  -32556,       0,       0,
                                                                //    302         0,       0,       0,       0,       0,       0,       0,       0
                                                                //    303  
                                                                //    304  !  MORE<1> 0<1> ORDER<2> TYPE<4> CLASS<8>
                                                                //    305  %ownshortintegerarray gram(0:max grammar) = %c
#line 305 "regression-compile-tmp/vax-pass1.imp"
static short GRAM[1801] = { 0, (-28523), (-28521), (-28602), (-32706), (-28509), (-28603), (-24502), (-24503), (-20405), (-20404), (-28595), (-32697), (-32709), (-16323), (-28600), (-32704), (-28587), (-28589), (-32681), (-16344), (-28586), (-16366), (-32586), 216, (-12287), (-16380), (-8185), (-8184), (-12285), (-12286), (-12283), (-12282), (-12279), (-12276), (-16373), 20490, (-32706), (-32701), 216, (-16364), (-28610), (-28613), (-28612), 16445, 217, (-16364), 62, (-32701), 16450, (-16364), 5346, (-16364), 166, (-16344), 4332, 130, (-16360), (-16361), 126, 217, (-32701), 216, (-16364), 16450, (-32700), 16404, (-32701), (-32706), 216, 16405, 16407, (-16222), 8414, 130, 217, (-32697), 16450, 1250, 4307, 4318, 192, 93, 170, 90, 207, (-16365), 16404, 90, (-16360), (-16365), 16404, 241, (-16365), 16404, 132, 132, (-16360), 4329, (-16365), 16404, 133, 175, 90, (-16365), 16404, 209, (-16365), 16404, 4313, 217, 16451, 4263, 16384, 16384, 120, 216, (-32700), 16404, (-32706), 16404, 243, 16409, 454, (-32685), 16404, 454, 248, (-16365), 16404, 4263, 194, (-16360), 4329, (-32717), 16404, 4263, 16407, 454, 237, 127, 215, 454, 4263, 16384, (-16364), 1502, (-32629), (-16361), 153, (-32606), 222, 143, (-32629), 153, 454, 126, 16409, 454, 16384, 234, (-16365), (-32595), 147, (-32678), 234, 193, (-32677), (-32676), (-32661), 109, (-32717), 53, 52, 52, 52, 194, 194, 194, (-28581), 4188, 194, (-28566), 4203, 194, (-28564), 4205, 4580, 16429, 183, 183, 186, 186, (-28583), 0, 9437, 90, (-16365), 0, 134, (-16365), 0, 210, 4329, 199, (-32677), (-32672), (-32676), (-32688), (-32690), (-32705), (-32661), (-32659), (-32689), (-32686), (-32687), (-16330), 65, (-32716), 186, (-28583), (-32717), (-32715), (-32713), 52, (-32664), 4201, 186, (-32717), (-32715), 55, (-16328), 0, 197, 197, 52, 52, 197, (-28581), (-28580), 186, (-28581), 4188, 4318, 194, (-28581), 4188, 9437, 194, 194, 454, 16407, 216, 194, (-28566), (-28565), 186, (-28566), 4203, 194, (-28564), (-28563), 186, (-28564), 4205, 183, 183, 186, 183, (-16365), 0, 183, 4580, 16429, 5095, 9444, 5348, 186, (-28583), (-16328), 0, 16409, (-16365), 0, 9437, 5348, 217, (-32701), 16450, (-32701), 216, (-32700), 0, (-32701), (-32706), 216, 243, 217, (-16318), 0, (-32552), 0, (-32700), 0, (-32706), 0, 215, (-32550), 228, (-28616), (-28615), 0, 4096, 218, 218, (-28616), 0, (-32677), (-32676), (-16361), (-32710), (-32669), (-32662), (-32661), (-32660), (-32659), 740, (-32039), 740, (-32719), 4096, 194, (-32719), (-32718), (-32604), (-32726), (-32725), (-32724), (-32720), 4096, 710, 6116, (-32719), 0, 710, 6116, (-28581), 4188, 218, 122, 50, 16409, (-32726), (-32725), (-32724), (-32719), 4096, 710, 454, 195, 195, 195, 454, (-28581), 4188, 194, (-28566), (-28565), (-28564), 4205, 195, 195, 195, 710, 4836, 5095, 4829, (-32726), (-32725), (-32724), (-32719), 4096, 4827, 4828, 454, (-32720), (-32719), 4096, 4829, 4827, 4828, 194, (-32719), 0, 710, 4836, (-16291), (-32677), 92, 184, 121, (-28581), (-28580), (-32722), (-32723), 4317, (-32726), (-32725), (-32724), 0, 183, (-32726), (-32725), (-32724), (-32720), 0, 4316, 195, 195, 195, 454, (-28581), 4188, 4315, 183, 4317, (-32726), (-32725), 0, 195, 195, 4315, 4317, (-32726), 0, 195, (-32677), (-32676), (-16361), 16431, 228, 228, 47, (-32610), (-32611), 5345, (-32609), (-32608), (-32607), 0, 4320, 4319, 5345, (-32609), (-32608), 0, 4319, 5345, (-32609), 0, (-32613), (-16361), 16431, 222, 222, 156, (-32677), 92, 183, 186, 1222, 16435, 228, 16403, 4324, 138, 8420, (-32723), 4189, 93, 454, 148, (-32674), 16546, 16409, (-32597), 182, (-16383), 16388, 234, (-16365), (-32595), 172, (-32678), 234, 90, 244, 246, (-16365), 0, 235, (-32678), 234, (-16365), 246, (-16365), 0, (-32678), 234, 90, 16407, 222, 16405, 222, 145, 16407, 222, 16405, 222, 146, 16407, 1252, 154, 5348, (-16365), 142, 126, 182, (-16383), 16391, 90, (-16365), 127, (-32678), 238, 90, 125, 239, (-16365), 8319, 8430, 128, 126, (-16361), 127, 190, 240, 189, 16409, 182, (-16383), 16391, 90, (-16365), 0, (-32678), 240, 90, 16623, (-16365), 0, 244, 232, 1252, 1252, 137, 1252, 137, 1252, 137, 1252, 137, 1252, 137, 222, (-16365), 0, 131, 194, (-16360), (-16333), (-16332), 124, 181, (-16292), (-16277), 16493, (-31802), 5342, (-28581), 4188, 4263, 181, 186, 454, 16475, 183, (-28583), 199, 5598, 9438, 222, (-32677), (-32676), 16407, 186, 228, 135, 16409, (-32632), 0, (-32677), 92, (-32677), (-32676), (-32662), (-32661), (-32660), (-32659), 165, (-32677), 92, 188, (-32662), 107, 188, (-32660), 109, (-32732), 37, (-16344), 4318, 148, (-32674), 16424, 222, 16405, 222, 174, (-28644), (-32734), (-32680), (-28641), (-32733), (-32730), (-32735), (-32727), (-32738), 4326, (-32738), (-32739), (-32741), (-32736), 199, (-28644), (-32680), (-28641), 4326, (-32739), (-32741), 199, (-32738), (-32739), (-32741), (-32736), (-32729), 199, (-32616), 199, (-32739), (-32741), (-32729), 199, (-32616), (-32729), 199, (-28644), (-32680), 4326, (-32738), (-32739), (-32741), 199, 245, 4318, 245, 16409, 152, 4318, 16409, 152, 245, (-32672), (-32671), (-32670), 99, 16407, 200, 144, 185, (-32677), 92, 16407, (-32582), 200, 200, 187, 141, (-32677), 92, 16410, 191, (-32677), (-32676), (-32662), (-32661), (-32660), 109, 198, [719 ... 1800] = 0 };
                                                                //    306         0,  -28523,  -28521,  -28602,  -32706,  -28509,  -28603,  -24502,
                                                                //    307    -24503,  -20405,  -20404,  -28595,  -32697,  -32709,  -16323,  -28600,
                                                                //    308    -32704,  -28587,  -28589,  -32681,  -16344,  -28586,  -16366,  -32586,
                                                                //    309       216,  -12287,  -16380,   -8185,   -8184,  -12285,  -12286,  -12283,
                                                                //    310    -12282,  -12279,  -12276,  -16373,   20490,  -32706,  -32701,     216,
                                                                //    311    -16364,  -28610,  -28613,  -28612,   16445,     217,  -16364,      62,
                                                                //    312    -32701,   16450,  -16364,    5346,  -16364,     166,  -16344,    4332,
                                                                //    313       130,  -16360,  -16361,     126,     217,  -32701,     216,  -16364,
                                                                //    314     16450,  -32700,   16404,  -32701,  -32706,     216,   16405,   16407,
                                                                //    315    -16222,    8414,     130,     217,  -32697,   16450,    1250,    4307,
                                                                //    316      4318,     192,      93,     170,      90,     207,  -16365,   16404,
                                                                //    317        90,  -16360,  -16365,   16404,     241,  -16365,   16404,     132,
                                                                //    318       132,  -16360,    4329,  -16365,   16404,     133,     175,      90,
                                                                //    319    -16365,   16404,     209,  -16365,   16404,    4313,     217,   16451,
                                                                //    320      4263,   16384,   16384,     120,     216,  -32700,   16404,  -32706,
                                                                //    321     16404,     243,   16409,     454,  -32685,   16404,     454,     248,
                                                                //    322    -16365,   16404,    4263,     194,  -16360,    4329,  -32717,   16404,
                                                                //    323      4263,   16407,     454,     237,     127,     215,     454,    4263,
                                                                //    324     16384,  -16364,    1502,  -32629,  -16361,     153,  -32606,     222,
                                                                //    325       143,  -32629,     153,     454,     126,   16409,     454,   16384,
                                                                //    326       234,  -16365,  -32595,     147,  -32678,     234,     193,  -32677,
                                                                //    327    -32676,  -32661,     109,  -32717,      53,      52,      52,      52,
                                                                //    328       194,     194,     194,  -28581,    4188,     194,  -28566,    4203,
                                                                //    329       194,  -28564,    4205,    4580,   16429,     183,     183,     186,
                                                                //    330       186,  -28583,       0,    9437,      90,  -16365,       0,     134,
                                                                //    331    -16365,       0,     210,    4329,     199,  -32677,  -32672,  -32676,
                                                                //    332    -32688,  -32690,  -32705,  -32661,  -32659,  -32689,  -32686,  -32687,
                                                                //    333    -16330,      65,  -32716,     186,  -28583,  -32717,  -32715,  -32713,
                                                                //    334        52,  -32664,    4201,     186,  -32717,  -32715,      55,  -16328,
                                                                //    335         0,     197,     197,      52,      52,     197,  -28581,  -28580,
                                                                //    336       186,  -28581,    4188,    4318,     194,  -28581,    4188,    9437,
                                                                //    337       194,     194,     454,   16407,     216,     194,  -28566,  -28565,
                                                                //    338       186,  -28566,    4203,     194,  -28564,  -28563,     186,  -28564,
                                                                //    339      4205,     183,     183,     186,     183,  -16365,       0,     183,
                                                                //    340      4580,   16429,    5095,    9444,    5348,     186,  -28583,  -16328,
                                                                //    341         0,   16409,  -16365,       0,    9437,    5348,     217,  -32701,
                                                                //    342     16450,  -32701,     216,  -32700,       0,  -32701,  -32706,     216,
                                                                //    343       243,     217,  -16318,       0,  -32552,       0,  -32700,       0,
                                                                //    344    -32706,       0,     215,  -32550,     228,  -28616,  -28615,       0,
                                                                //    345      4096,     218,     218,  -28616,       0,  -32677,  -32676,  -16361,
                                                                //    346    -32710,  -32669,  -32662,  -32661,  -32660,  -32659,     740,  -32039,
                                                                //    347       740,  -32719,    4096,     194,  -32719,  -32718,  -32604,  -32726,
                                                                //    348    -32725,  -32724,  -32720,    4096,     710,    6116,  -32719,       0,
                                                                //    349       710,    6116,  -28581,    4188,     218,     122,      50,   16409,
                                                                //    350    -32726,  -32725,  -32724,  -32719,    4096,     710,     454,     195,
                                                                //    351       195,     195,     454,  -28581,    4188,     194,  -28566,  -28565,
                                                                //    352    -28564,    4205,     195,     195,     195,     710,    4836,    5095,
                                                                //    353      4829,  -32726,  -32725,  -32724,  -32719,    4096,    4827,    4828,
                                                                //    354       454,  -32720,  -32719,    4096,    4829,    4827,    4828,     194,
                                                                //    355    -32719,       0,     710,    4836,  -16291,  -32677,      92,     184,
                                                                //    356       121,  -28581,  -28580,  -32722,  -32723,    4317,  -32726,  -32725,
                                                                //    357    -32724,       0,     183,  -32726,  -32725,  -32724,  -32720,       0,
                                                                //    358      4316,     195,     195,     195,     454,  -28581,    4188,    4315,
                                                                //    359       183,    4317,  -32726,  -32725,       0,     195,     195,    4315,
                                                                //    360      4317,  -32726,       0,     195,  -32677,  -32676,  -16361,   16431,
                                                                //    361       228,     228,      47,  -32610,  -32611,    5345,  -32609,  -32608,
                                                                //    362    -32607,       0,    4320,    4319,    5345,  -32609,  -32608,       0,
                                                                //    363      4319,    5345,  -32609,       0,  -32613,  -16361,   16431,     222,
                                                                //    364       222,     156,  -32677,      92,     183,     186,    1222,   16435,
                                                                //    365       228,   16403,    4324,     138,    8420,  -32723,    4189,      93,
                                                                //    366       454,     148,  -32674,   16546,   16409,  -32597,     182,  -16383,
                                                                //    367     16388,     234,  -16365,  -32595,     172,  -32678,     234,      90,
                                                                //    368       244,     246,  -16365,       0,     235,  -32678,     234,  -16365,
                                                                //    369       246,  -16365,       0,  -32678,     234,      90,   16407,     222,
                                                                //    370     16405,     222,     145,   16407,     222,   16405,     222,     146,
                                                                //    371     16407,    1252,     154,    5348,  -16365,     142,     126,     182,
                                                                //    372    -16383,   16391,      90,  -16365,     127,  -32678,     238,      90,
                                                                //    373       125,     239,  -16365,    8319,    8430,     128,     126,  -16361,
                                                                //    374       127,     190,     240,     189,   16409,     182,  -16383,   16391,
                                                                //    375        90,  -16365,       0,  -32678,     240,      90,   16623,  -16365,
                                                                //    376         0,     244,     232,    1252,    1252,     137,    1252,     137,
                                                                //    377      1252,     137,    1252,     137,    1252,     137,     222,  -16365,
                                                                //    378         0,     131,     194,  -16360,  -16333,  -16332,     124,     181,
                                                                //    379    -16292,  -16277,   16493,  -31802,    5342,  -28581,    4188,    4263,
                                                                //    380       181,     186,     454,   16475,     183,  -28583,     199,    5598,
                                                                //    381      9438,     222,  -32677,  -32676,   16407,     186,     228,     135,
                                                                //    382     16409,  -32632,       0,  -32677,      92,  -32677,  -32676,  -32662,
                                                                //    383    -32661,  -32660,  -32659,     165,  -32677,      92,     188,  -32662,
                                                                //    384       107,     188,  -32660,     109,  -32732,      37,  -16344,    4318,
                                                                //    385       148,  -32674,   16424,     222,   16405,     222,     174,  -28644,
                                                                //    386    -32734,  -32680,  -28641,  -32733,  -32730,  -32735,  -32727,  -32738,
                                                                //    387      4326,  -32738,  -32739,  -32741,  -32736,     199,  -28644,  -32680,
                                                                //    388    -28641,    4326,  -32739,  -32741,     199,  -32738,  -32739,  -32741,
                                                                //    389    -32736,  -32729,     199,  -32616,     199,  -32739,  -32741,  -32729,
                                                                //    390       199,  -32616,  -32729,     199,  -28644,  -32680,    4326,  -32738,
                                                                //    391    -32739,  -32741,     199,     245,    4318,     245,   16409,     152,
                                                                //    392      4318,   16409,     152,     245,  -32672,  -32671,  -32670,      99,
                                                                //    393     16407,     200,     144,     185,  -32677,      92,   16407,  -32582,
                                                                //    394       200,     200,     187,     141,  -32677,      92,   16410,     191,
                                                                //    395    -32677,  -32676,  -32662,  -32661,  -32660,     109,     198,
                                                                //    396  0(max grammar-718)
                                                                //    397  
                                                                //    398  %ownshortintegerarray glink(0:max grammar) = %c
#line 398 "regression-compile-tmp/vax-pass1.imp"
static short GLINK[1801] = { (-1), 70, 71, 37, 45, 46, 66, 66, 74, 66, 0, 66, 50, 75, 78, 52, 54, 79, 66, 80, 81, 82, 83, 25, 40, 84, 85, 56, 56, 88, 92, 95, 96, 101, 102, 103, 106, 45, 66, 66, 0, 109, 109, 110, 51, 48, 0, 60, 66, 61, 0, 66, 0, 110, 111, 111, 57, 112, 113, 114, 63, 66, 65, 115, 116, 67, 0, 66, 121, 66, 0, 72, 122, 122, 66, 76, 66, 39, 76, 66, 66, 0, 123, 126, 127, 86, 85, 0, 89, 130, 88, 0, 93, 92, 0, 131, 97, 136, 99, 96, 0, 137, 66, 104, 103, 0, 107, 106, 0, 66, 66, 66, 138, 139, 140, 0, 117, 119, 115, 141, 115, 66, 70, 124, 66, 0, 66, 128, 84, 0, 142, 132, 143, 134, 144, 0, 155, 156, 58, 157, 66, 118, 90, 158, 145, 144, 147, 145, 150, 0, 152, 152, 153, 145, 0, 98, 159, 66, 133, 160, 161, 164, 160, 140, 161, 161, 167, 171, 173, 174, 175, 176, 177, 178, 181, 184, 187, 188, 179, 189, 189, 182, 190, 190, 185, 190, 190, 0, 187, 191, 192, 193, 0, 195, 0, 0, 197, 196, 0, 200, 199, 0, 203, 204, 0, 227, 231, 218, 233, 234, 0, 235, 236, 237, 0, 231, 225, 243, 244, 220, 247, 248, 249, 250, 244, 0, 251, 228, 248, 249, 250, 252, 0, 0, 187, 253, 259, 238, 268, 268, 241, 190, 190, 269, 245, 271, 271, 228, 272, 273, 274, 275, 0, 254, 265, 265, 257, 266, 266, 260, 265, 265, 263, 266, 266, 231, 267, 231, 0, 276, 0, 277, 231, 272, 231, 281, 282, 278, 284, 252, 0, 0, 285, 0, 231, 0, 287, 0, 289, 0, 291, 293, 0, 0, 296, 0, 0, 298, 300, 0, 302, 0, 304, 0, 306, 0, 0, 309, 312, 313, 314, 0, 0, 315, 310, 313, 0, 331, 331, 327, 348, 349, 350, 350, 350, 350, 329, 281, 351, 357, 0, 332, 340, 346, 358, 359, 360, 361, 362, 0, 341, 342, 344, 0, 345, 0, 268, 268, 0, 0, 365, 352, 370, 371, 372, 373, 0, 374, 375, 376, 382, 383, 363, 384, 384, 366, 268, 268, 268, 268, 388, 389, 390, 391, 392, 0, 377, 359, 360, 361, 340, 0, 378, 379, 385, 362, 340, 0, 352, 353, 354, 374, 394, 0, 395, 0, 399, 268, 268, 400, 0, 410, 410, 405, 416, 406, 417, 418, 419, 0, 411, 417, 418, 419, 420, 0, 408, 405, 423, 416, 421, 424, 424, 407, 414, 426, 429, 430, 0, 425, 431, 427, 433, 435, 0, 432, 268, 268, 440, 441, 281, 442, 0, 445, 450, 446, 445, 451, 450, 0, 448, 447, 453, 452, 456, 0, 454, 458, 457, 0, 268, 463, 464, 281, 465, 0, 468, 468, 469, 470, 471, 472, 473, 474, 475, 476, 0, 478, 268, 480, 0, 482, 484, 484, 204, 489, 487, 495, 496, 490, 493, 489, 0, 490, 490, 0, 497, 498, 500, 0, 0, 503, 505, 509, 498, 507, 0, 505, 505, 503, 511, 512, 513, 514, 0, 516, 517, 518, 519, 0, 521, 522, 523, 524, 521, 0, 527, 528, 530, 535, 531, 533, 0, 531, 0, 536, 537, 538, 540, 541, 541, 0, 543, 545, 0, 546, 547, 548, 532, 550, 552, 557, 553, 555, 0, 553, 0, 558, 559, 556, 0, 562, 204, 0, 565, 563, 567, 564, 569, 566, 571, 568, 573, 570, 575, 574, 0, 578, 579, 591, 592, 583, 204, 584, 587, 587, 587, 589, 204, 593, 593, 594, 595, 596, 580, 599, 597, 600, 0, 204, 204, 204, 605, 605, 606, 607, 608, 604, 609, 611, 0, 192, 192, 192, 192, 192, 192, 192, 192, 0, 622, 622, 191, 625, 625, 0, 625, 625, 630, 632, 281, 281, 633, 281, 281, 636, 637, 638, 0, 649, 676, 683, 665, 654, 204, 204, 204, 204, 649, 658, 667, 684, 665, 0, 661, 685, 665, 661, 667, 684, 0, 669, 673, 688, 665, 204, 0, 204, 0, 673, 688, 204, 0, 665, 204, 0, 679, 691, 679, 658, 667, 684, 0, 649, 686, 661, 687, 204, 689, 690, 665, 679, 696, 696, 696, 696, 697, 698, 699, 0, 702, 702, 703, 705, 706, 707, 707, 699, 710, 710, 711, 712, 718, 718, 718, 718, 718, 718, [718 ... 1800] = 0 };
                                                                //    399        -1,      70,      71,      37,      45,      46,      66,      66,
                                                                //    400        74,      66,       0,      66,      50,      75,      78,      52,
                                                                //    401        54,      79,      66,      80,      81,      82,      83,      25,
                                                                //    402        40,      84,      85,      56,      56,      88,      92,      95,
                                                                //    403        96,     101,     102,     103,     106,      45,      66,      66,
                                                                //    404         0,     109,     109,     110,      51,      48,       0,      60,
                                                                //    405        66,      61,       0,      66,       0,     110,     111,     111,
                                                                //    406        57,     112,     113,     114,      63,      66,      65,     115,
                                                                //    407       116,      67,       0,      66,     121,      66,       0,      72,
                                                                //    408       122,     122,      66,      76,      66,      39,      76,      66,
                                                                //    409        66,       0,     123,     126,     127,      86,      85,       0,
                                                                //    410        89,     130,      88,       0,      93,      92,       0,     131,
                                                                //    411        97,     136,      99,      96,       0,     137,      66,     104,
                                                                //    412       103,       0,     107,     106,       0,      66,      66,      66,
                                                                //    413       138,     139,     140,       0,     117,     119,     115,     141,
                                                                //    414       115,      66,      70,     124,      66,       0,      66,     128,
                                                                //    415        84,       0,     142,     132,     143,     134,     144,       0,
                                                                //    416       155,     156,      58,     157,      66,     118,      90,     158,
                                                                //    417       145,     144,     147,     145,     150,       0,     152,     152,
                                                                //    418       153,     145,       0,      98,     159,      66,     133,     160,
                                                                //    419       161,     164,     160,     140,     161,     161,     167,     171,
                                                                //    420       173,     174,     175,     176,     177,     178,     181,     184,
                                                                //    421       187,     188,     179,     189,     189,     182,     190,     190,
                                                                //    422       185,     190,     190,       0,     187,     191,     192,     193,
                                                                //    423         0,     195,       0,       0,     197,     196,       0,     200,
                                                                //    424       199,       0,     203,     204,       0,     227,     231,     218,
                                                                //    425       233,     234,       0,     235,     236,     237,       0,     231,
                                                                //    426       225,     243,     244,     220,     247,     248,     249,     250,
                                                                //    427       244,       0,     251,     228,     248,     249,     250,     252,
                                                                //    428         0,       0,     187,     253,     259,     238,     268,     268,
                                                                //    429       241,     190,     190,     269,     245,     271,     271,     228,
                                                                //    430       272,     273,     274,     275,       0,     254,     265,     265,
                                                                //    431       257,     266,     266,     260,     265,     265,     263,     266,
                                                                //    432       266,     231,     267,     231,       0,     276,       0,     277,
                                                                //    433       231,     272,     231,     281,     282,     278,     284,     252,
                                                                //    434         0,       0,     285,       0,     231,       0,     287,       0,
                                                                //    435       289,       0,     291,     293,       0,       0,     296,       0,
                                                                //    436         0,     298,     300,       0,     302,       0,     304,       0,
                                                                //    437       306,       0,       0,     309,     312,     313,     314,       0,
                                                                //    438         0,     315,     310,     313,       0,     331,     331,     327,
                                                                //    439       348,     349,     350,     350,     350,     350,     329,     281,
                                                                //    440       351,     357,       0,     332,     340,     346,     358,     359,
                                                                //    441       360,     361,     362,       0,     341,     342,     344,       0,
                                                                //    442       345,       0,     268,     268,       0,       0,     365,     352,
                                                                //    443       370,     371,     372,     373,       0,     374,     375,     376,
                                                                //    444       382,     383,     363,     384,     384,     366,     268,     268,
                                                                //    445       268,     268,     388,     389,     390,     391,     392,       0,
                                                                //    446       377,     359,     360,     361,     340,       0,     378,     379,
                                                                //    447       385,     362,     340,       0,     352,     353,     354,     374,
                                                                //    448       394,       0,     395,       0,     399,     268,     268,     400,
                                                                //    449         0,     410,     410,     405,     416,     406,     417,     418,
                                                                //    450       419,       0,     411,     417,     418,     419,     420,       0,
                                                                //    451       408,     405,     423,     416,     421,     424,     424,     407,
                                                                //    452       414,     426,     429,     430,       0,     425,     431,     427,
                                                                //    453       433,     435,       0,     432,     268,     268,     440,     441,
                                                                //    454       281,     442,       0,     445,     450,     446,     445,     451,
                                                                //    455       450,       0,     448,     447,     453,     452,     456,       0,
                                                                //    456       454,     458,     457,       0,     268,     463,     464,     281,
                                                                //    457       465,       0,     468,     468,     469,     470,     471,     472,
                                                                //    458       473,     474,     475,     476,       0,     478,     268,     480,
                                                                //    459         0,     482,     484,     484,     204,     489,     487,     495,
                                                                //    460       496,     490,     493,     489,       0,     490,     490,       0,
                                                                //    461       497,     498,     500,       0,       0,     503,     505,     509,
                                                                //    462       498,     507,       0,     505,     505,     503,     511,     512,
                                                                //    463       513,     514,       0,     516,     517,     518,     519,       0,
                                                                //    464       521,     522,     523,     524,     521,       0,     527,     528,
                                                                //    465       530,     535,     531,     533,       0,     531,       0,     536,
                                                                //    466       537,     538,     540,     541,     541,       0,     543,     545,
                                                                //    467         0,     546,     547,     548,     532,     550,     552,     557,
                                                                //    468       553,     555,       0,     553,       0,     558,     559,     556,
                                                                //    469         0,     562,     204,       0,     565,     563,     567,     564,
                                                                //    470       569,     566,     571,     568,     573,     570,     575,     574,
                                                                //    471         0,     578,     579,     591,     592,     583,     204,     584,
                                                                //    472       587,     587,     587,     589,     204,     593,     593,     594,
                                                                //    473       595,     596,     580,     599,     597,     600,       0,     204,
                                                                //    474       204,     204,     605,     605,     606,     607,     608,     604,
                                                                //    475       609,     611,       0,     192,     192,     192,     192,     192,
                                                                //    476       192,     192,     192,       0,     622,     622,     191,     625,
                                                                //    477       625,       0,     625,     625,     630,     632,     281,     281,
                                                                //    478       633,     281,     281,     636,     637,     638,       0,     649,
                                                                //    479       676,     683,     665,     654,     204,     204,     204,     204,
                                                                //    480       649,     658,     667,     684,     665,       0,     661,     685,
                                                                //    481       665,     661,     667,     684,       0,     669,     673,     688,
                                                                //    482       665,     204,       0,     204,       0,     673,     688,     204,
                                                                //    483         0,     665,     204,       0,     679,     691,     679,     658,
                                                                //    484       667,     684,       0,     649,     686,     661,     687,     204,
                                                                //    485       689,     690,     665,     679,     696,     696,     696,     696,
                                                                //    486       697,     698,     699,       0,     702,     702,     703,     705,
                                                                //    487       706,     707,     707,     699,     710,     710,     711,     712,
                                                                //    488       718,     718,     718,     718,     718,     718,       0,
                                                                //    489  0(max grammar-718)
                                                                //    490  
                                                                //    491  %constshortintegerarray kdict(32:596) = %c
#line 491 "regression-compile-tmp/vax-pass1.imp"
const short KDICT[565] = { 0, 511, 131, 531, 131, 551, 559, 131, 567, 575, 583, 603, 623, 631, 663, 671, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 691, 698, 707, 751, 795, 131, 131, 824, 900, 960, 1076, 1120, 1280, 128, 128, 1392, 128, 128, 1460, 1556, 1592, 1660, 1748, 128, 1828, 2000, 2196, 2228, 128, 2268, 128, 128, 128, 2287, 2295, 2327, 2335, 2355, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 2363, 131, 2335, (-32351), 16428, 25, 16428, 29, (-32349), 16433, 1, 16434, 1, (-16127), 0, 16427, 21, 16407, 0, 16409, 0, (-32323), (-10840), 40, 16471, 0, (-32341), (-10580), 32, 16473, 117, 16384, 19, (-31955), (-32322), (-10580), 36, (-9290), 0, 16473, 113, 16432, 13, (-32337), 16427, 46, 16427, 17, 16405, 0, 16404, 0, (-31556), (-31939), (-32322), (-9551), 2, 16433, 1, 16433, 5, 16426, 5, (-31606), (-32323), (-9807), 0, (-32374), (-9678), 0, 16436, 0, 16435, 0, (-31939), (-32322), 16433, 4, 16426, 9, 16433, 3, (-30772), (-31666), 10578, 11457, (-32344), 16413, 2, 16411, 2, 68, (-32374), 16440, 0, 16440, 0, 8393, 83, 16408, 0, (-31291), 10841, 69, (-32311), 16412, 18, 10830, 9157, 10565, 16412, 18, 9415, 78, 16458, 0, (-32049), 8665, 8908, 16455, 0, (-30131), 78, (-31277), 84, (-32055), 10194, 76, 16469, 0, 10958, 69, 16447, 32, 84, (-32319), 16418, 2, 10830, 16418, 2, 8909, 10830, 16406, 0, (-31927), 10073, 9921, 8649, 16419, 5, 9153, 10190, 8915, 16469, 1, (-27956), (-31282), 88, (-31927), 8916, 10066, 9793, 16419, 3, 84, 16447, 4, 68, (-32305), 16459, 2, 70, (-30650), (-31284), 80, (-31931), 10194, 10567, 9921, 16460, 1, 9938, 16461, 0, 10697, 84, 16467, 3, 9801, 69, 16460, 0, 8915, 16452, 0, (-29631), (-30903), (-31282), (-31793), 10069, 10819, 10185, 78, 16416, 9, 82, 16445, 0, 16416, 9, 9422, 9299, (-32315), 16453, 0, 10700, 69, 16454, 0, 10700, 69, 16464, 1210, (-30778), 78, (-31549), 8916, 8903, 82, (-32344), 16412, 17, 16472, 17, 10956, 8900, 16470, 0, 16446, 44, (-30143), (-30647), 10063, 71, (-31671), (-32302), 16412, 20, 8389, 76, 16412, 36, 10830, 9157, 10565, 16412, 20, 10835, 16467, 1, 8898, 76, 16425, 6, (-31935), 10063, 10825, 10575, 16465, 109, 80, 16416, 10, (-32191), 10831, 16442, 0, 8909, (-32314), 16414, 1, (-31794), 10069, 10819, 10185, 78, 16416, 10, 16416, 10, (-30770), (-31408), (-32174), 10071, 16418, 1, (-32374), 16441, 2, 16441, 2, 9428, 10063, 16402, 0, (-32315), 16448, 0, 8918, 10830, 16448, 0, (-30523), 82, (-31419), (-31927), 9167, 8402, 77, 16457, 0, 77, 16419, 6, 9412, 8387, 8916, 16415, 123, 9938, 16419, 7, (-31931), 10959, 9428, 8910, 16415, 104, (-28351), (-30397), (-31024), (-32045), 10964, 10066, 16464, 1319, 9813, 7892, (-32323), 16462, 1384, 16463, 1241, 8389, 84, 16456, 0, 10575, 68, (-32314), 16421, 64, 10575, 8397, 84, (-32301), 16422, 9, 8912, 67, 16422, 12, 76, 16412, 33, (-27704), (-28983), (-29488), (-31276), (-31913), 10713, 8916, 77, 16419, 4, 10825, 9283, 16417, 12, (-31423), (-31921), 9426, 9166, 40, 16420, 48, 80, 16466, 115, 10834, 16451, 0, 8645, 16423, 0, 10055, 9793, (-32315), 16449, 0, 8918, 10830, 16449, 0, 10575, 84, (-32311), 16412, 19, 10830, 9157, 10565, 16412, 19, (-32056), 10962, 69, 16464, 1354, 10053, 16450, 0, 78, (-32052), 9428, 76, 16444, 182, 10693, 83, 16446, 46, 9416, 8908, 16443, 180, 16407, 0, (-31939), (-32292), (-10454), 51, 16426, 13, 16433, 1, 16409, 0, (-32290), (-10454), 51, 16426, 13, 16410, 0, 16431, 14, (-32323), 16430, 51, 16433, 1,  };
                                                                //    492         0,     511,     131,     531,     131,     551,     559,     131,
                                                                //    493       567,     575,     583,     603,     623,     631,     663,     671,
                                                                //    494       129,     129,     129,     129,     129,     129,     129,     129,
                                                                //    495       129,     129,     691,     698,     707,     751,     795,     131,
                                                                //    496       131,     824,     900,     960,    1076,    1120,    1280,     128,
                                                                //    497       128,    1392,     128,     128,    1460,    1556,    1592,    1660,
                                                                //    498      1748,     128,    1828,    2000,    2196,    2228,     128,    2268,
                                                                //    499       128,     128,     128,    2287,    2295,    2327,    2335,    2355,
                                                                //    500       131,     131,     131,     131,     131,     131,     131,     131,
                                                                //    501       131,     131,     131,     131,     131,     131,     131,     131,
                                                                //    502       131,     131,     131,     131,     131,     131,     131,     131,
                                                                //    503       131,     131,     131,     131,    2363,     131,    2335,  -32351,
                                                                //    504     16428,      25,   16428,      29,  -32349,   16433,       1,   16434,
                                                                //    505         1,  -16127,       0,   16427,      21,   16407,       0,   16409,
                                                                //    506         0,  -32323,  -10840,      40,   16471,       0,  -32341,  -10580,
                                                                //    507        32,   16473,     117,   16384,      19,  -31955,  -32322,  -10580,
                                                                //    508        36,   -9290,       0,   16473,     113,   16432,      13,  -32337,
                                                                //    509     16427,      46,   16427,      17,   16405,       0,   16404,       0,
                                                                //    510    -31556,  -31939,  -32322,   -9551,       2,   16433,       1,   16433,
                                                                //    511         5,   16426,       5,  -31606,  -32323,   -9807,       0,  -32374,
                                                                //    512     -9678,       0,   16436,       0,   16435,       0,  -31939,  -32322,
                                                                //    513     16433,       4,   16426,       9,   16433,       3,  -30772,  -31666,
                                                                //    514     10578,   11457,  -32344,   16413,       2,   16411,       2,      68,
                                                                //    515    -32374,   16440,       0,   16440,       0,    8393,      83,   16408,
                                                                //    516         0,  -31291,   10841,      69,  -32311,   16412,      18,   10830,
                                                                //    517      9157,   10565,   16412,      18,    9415,      78,   16458,       0,
                                                                //    518    -32049,    8665,    8908,   16455,       0,  -30131,      78,  -31277,
                                                                //    519        84,  -32055,   10194,      76,   16469,       0,   10958,      69,
                                                                //    520     16447,      32,      84,  -32319,   16418,       2,   10830,   16418,
                                                                //    521         2,    8909,   10830,   16406,       0,  -31927,   10073,    9921,
                                                                //    522      8649,   16419,       5,    9153,   10190,    8915,   16469,       1,
                                                                //    523    -27956,  -31282,      88,  -31927,    8916,   10066,    9793,   16419,
                                                                //    524         3,      84,   16447,       4,      68,  -32305,   16459,       2,
                                                                //    525        70,  -30650,  -31284,      80,  -31931,   10194,   10567,    9921,
                                                                //    526     16460,       1,    9938,   16461,       0,   10697,      84,   16467,
                                                                //    527         3,    9801,      69,   16460,       0,    8915,   16452,       0,
                                                                //    528    -29631,  -30903,  -31282,  -31793,   10069,   10819,   10185,      78,
                                                                //    529     16416,       9,      82,   16445,       0,   16416,       9,    9422,
                                                                //    530      9299,  -32315,   16453,       0,   10700,      69,   16454,       0,
                                                                //    531     10700,      69,   16464,    1210,  -30778,      78,  -31549,    8916,
                                                                //    532      8903,      82,  -32344,   16412,      17,   16472,      17,   10956,
                                                                //    533      8900,   16470,       0,   16446,      44,  -30143,  -30647,   10063,
                                                                //    534        71,  -31671,  -32302,   16412,      20,    8389,      76,   16412,
                                                                //    535        36,   10830,    9157,   10565,   16412,      20,   10835,   16467,
                                                                //    536         1,    8898,      76,   16425,       6,  -31935,   10063,   10825,
                                                                //    537     10575,   16465,     109,      80,   16416,      10,  -32191,   10831,
                                                                //    538     16442,       0,    8909,  -32314,   16414,       1,  -31794,   10069,
                                                                //    539     10819,   10185,      78,   16416,      10,   16416,      10,  -30770,
                                                                //    540    -31408,  -32174,   10071,   16418,       1,  -32374,   16441,       2,
                                                                //    541     16441,       2,    9428,   10063,   16402,       0,  -32315,   16448,
                                                                //    542         0,    8918,   10830,   16448,       0,  -30523,      82,  -31419,
                                                                //    543    -31927,    9167,    8402,      77,   16457,       0,      77,   16419,
                                                                //    544         6,    9412,    8387,    8916,   16415,     123,    9938,   16419,
                                                                //    545         7,  -31931,   10959,    9428,    8910,   16415,     104,  -28351,
                                                                //    546    -30397,  -31024,  -32045,   10964,   10066,   16464,    1319,    9813,
                                                                //    547      7892,  -32323,   16462,    1384,   16463,    1241,    8389,      84,
                                                                //    548     16456,       0,   10575,      68,  -32314,   16421,      64,   10575,
                                                                //    549      8397,      84,  -32301,   16422,       9,    8912,      67,   16422,
                                                                //    550        12,      76,   16412,      33,  -27704,  -28983,  -29488,  -31276,
                                                                //    551    -31913,   10713,    8916,      77,   16419,       4,   10825,    9283,
                                                                //    552     16417,      12,  -31423,  -31921,    9426,    9166,      40,   16420,
                                                                //    553        48,      80,   16466,     115,   10834,   16451,       0,    8645,
                                                                //    554     16423,       0,   10055,    9793,  -32315,   16449,       0,    8918,
                                                                //    555     10830,   16449,       0,   10575,      84,  -32311,   16412,      19,
                                                                //    556     10830,    9157,   10565,   16412,      19,  -32056,   10962,      69,
                                                                //    557     16464,    1354,   10053,   16450,       0,      78,  -32052,    9428,
                                                                //    558        76,   16444,     182,   10693,      83,   16446,      46,    9416,
                                                                //    559      8908,   16443,     180,   16407,       0,  -31939,  -32292,  -10454,
                                                                //    560        51,   16426,      13,   16433,       1,   16409,       0,  -32290,
                                                                //    561    -10454,      51,   16426,      13,   16410,       0,   16431,      14,
                                                                //    562    -32323,   16430,      51,   16433,       1
                                                                //    563  !!   %list
                                                                //    564  !!%endoffile
                                                                //    565  !***  end  of generated tables ***
                                                                //    566  
                                                                //    567  %routine print ident(%integer p, mode)
#line 567 "regression-compile-tmp/vax-pass1.imp"
void PRINTIDENT( int P, int MODE )
#line 567 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //    568     %INTEGER j, ad
#line 568 "regression-compile-tmp/vax-pass1.imp"
int J;
#line 568 "regression-compile-tmp/vax-pass1.imp"
int AD;
                                                                //    569     p = tag(p)_text
#line 569 "regression-compile-tmp/vax-pass1.imp"
P = TAG[P].TEXT;
                                                                //    570     %IF p = 0 %START
#line 570 "regression-compile-tmp/vax-pass1.imp"
if (((P) != (0))) goto L_0002;
                                                                //    571        %IF mode = 0 %THEN printsymbol('?') %C
#line 571 "regression-compile-tmp/vax-pass1.imp"
if (((MODE) != (0))) goto L_0003;
#line 571 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(63);
#line 571 "regression-compile-tmp/vax-pass1.imp"
goto L_0004;
#line 571 "regression-compile-tmp/vax-pass1.imp"
L_0003:;
#line 571 "regression-compile-tmp/vax-pass1.imp"
PUT(63);
#line 571 "regression-compile-tmp/vax-pass1.imp"
L_0004:;
                                                                //    572                     %ELSE put('?')
                                                                //    573        %RETURN
#line 573 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    574     %FINISH
#line 574 "regression-compile-tmp/vax-pass1.imp"
L_0002:;
                                                                //    575     ad = addr(dict(p+1))
#line 575 "regression-compile-tmp/vax-pass1.imp"
AD = _imp_ADDR(&DICT[(((int)((((int)(P)) + (1)))) - (1))]);
                                                                //    576     %IF mode = 0 %THEN printstring(string(ad)) %ELSE %START
#line 576 "regression-compile-tmp/vax-pass1.imp"
if (((MODE) != (0))) goto L_0005;
#line 576 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(*_imp_STRING(AD));
#line 576 "regression-compile-tmp/vax-pass1.imp"
goto L_0006;
#line 576 "regression-compile-tmp/vax-pass1.imp"
L_0005:;
                                                                //    577        putblock(byteinteger(ad),byteinteger(ad+1))
#line 577 "regression-compile-tmp/vax-pass1.imp"
PUTBLOCK(*_imp_BYTEINTEGER(AD), _imp_BYTEINTEGER((((int)(AD)) + (1))));
                                                                //    578     %finish
#line 578 "regression-compile-tmp/vax-pass1.imp"
L_0006:;
                                                                //    579  %END
#line 579 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PRINTIDENT at level 2
                                                                //    580  %ROUTINE abandon(%INTEGER n)
#line 580 "regression-compile-tmp/vax-pass1.imp"
void ABANDON( int N )
#line 580 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //    581     %SWITCH reason(0:9)
#line 581 "regression-compile-tmp/vax-pass1.imp"
static int sw1_REASON_idx;
static const void * /*SWITCH*/ sw1_REASON[10] = { &&sw1_REASON_0, &&sw1_REASON_1, &&sw1_REASON_2, &&sw1_REASON_3, &&sw1_REASON_4, &&sw1_REASON_5, &&sw1_REASON_6, &&sw1_REASON_7, &&sw1_REASON_8, &&sw1_REASON_9,  };
                                                                //    582     %INTEGER stream
#line 582 "regression-compile-tmp/vax-pass1.imp"
int STREAM;
                                                                //    583     stream = listing
#line 583 "regression-compile-tmp/vax-pass1.imp"
STREAM = 2;
                                                                //    584     %CYCLE
#line 584 "regression-compile-tmp/vax-pass1.imp"
L_0007:;
                                                                //    585        newline %IF sym # nl
#line 585 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) == (10))) goto L_000a;
#line 585 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
#line 585 "regression-compile-tmp/vax-pass1.imp"
L_000a:;
                                                                //    586        printsymbol('*'); write(lines,4);  space
#line 586 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(42);
#line 586 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(LINES, 4);
#line 586 "regression-compile-tmp/vax-pass1.imp"
_imp_SPACE();
                                                                //    587  printsymbol('[')
#line 587 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(91);
                                                                //    588  write(n,0)
#line 588 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(N, 0);
                                                                //    589  printsymbol(']')
#line 589 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(93);
                                                                //    590        ->reason(n)
#line 590 "regression-compile-tmp/vax-pass1.imp"
sw1_REASON_idx = N; if ((0 <= sw1_REASON_idx) && (sw1_REASON_idx <= 9)) goto *sw1_REASON[sw1_REASON_idx]; else {
   /*_imp_signal(8, 2, sw1_REASON_idx);*/
   fprintf(stderr, "%%SWITCH index REASON(%d) not in range 0:9 at %s:%d\n",
           sw1_REASON_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //    591  reason(*):debug("* Switch label not set: reason(".itos(n,0).")"); %stop
#line 591 "regression-compile-tmp/vax-pass1.imp"
sw1_REASON_default:;
#line 591 "regression-compile-tmp/vax-pass1.imp"
DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("* Switch label not set: reason("),(_imp_string)_imp_ITOS(N, 0)),(_imp_string)_imp_str_literal(")")));
#line 591 "regression-compile-tmp/vax-pass1.imp"
exit(0);
                                                                //    592  reason(0):printstring("compiler error!");          ->more
#line 592 "regression-compile-tmp/vax-pass1.imp"
sw1_REASON_0:;
#line 592 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("compiler error!"));
#line 592 "regression-compile-tmp/vax-pass1.imp"
goto U_1000;
                                                                //    593  reason(1):printstring("switch vector too large");  ->more
#line 593 "regression-compile-tmp/vax-pass1.imp"
sw1_REASON_1:;
#line 593 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("switch vector too large"));
#line 593 "regression-compile-tmp/vax-pass1.imp"
goto U_1000;
                                                                //    594  reason(2):printstring("too many names");           ->more
#line 594 "regression-compile-tmp/vax-pass1.imp"
sw1_REASON_2:;
#line 594 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("too many names"));
#line 594 "regression-compile-tmp/vax-pass1.imp"
goto U_1000;
                                                                //    595  reason(3):printstring("program too complex");      ->more
#line 595 "regression-compile-tmp/vax-pass1.imp"
sw1_REASON_3:;
#line 595 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("program too complex"));
#line 595 "regression-compile-tmp/vax-pass1.imp"
goto U_1000;
                                                                //    596  reason(4):printstring("feature not implemented");  ->more
#line 596 "regression-compile-tmp/vax-pass1.imp"
sw1_REASON_4:;
#line 596 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("feature not implemented"));
#line 596 "regression-compile-tmp/vax-pass1.imp"
goto U_1000;
                                                                //    597  {GT: reason(5):printstring(error message.sysmess(event_extra)) %and -> more %if event_sub # 1
                                                                //    598  
                                                                //    599  reason(5):
#line 599 "regression-compile-tmp/vax-pass1.imp"
sw1_REASON_5:;
                                                                //    600            %if event_sub # 1 %start
#line 600 "regression-compile-tmp/vax-pass1.imp"
if (((_imp_EVENT().SUB) == (1))) goto L_000b;
                                                                //    601              printstring("error message=""".error message.""" event_event=".itos(event_event,0)."  event_sub=".itos(event_sub, 0))
#line 601 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("error message=\""),(_imp_string)ERRORMESSAGE),(_imp_string)_imp_str_literal("\" event_event=")),(_imp_string)_imp_ITOS(_imp_EVENT().EVENT, 0)),(_imp_string)_imp_str_literal("  event_sub=")),(_imp_string)_imp_ITOS(_imp_EVENT().SUB, 0)));
                                                                //    602              {printstring("sysmess(event_extra)=""".sysmess(event_extra)."""")
                                                                //    603              -> more 
#line 603 "regression-compile-tmp/vax-pass1.imp"
goto U_1000;
                                                                //    604            %finish
#line 604 "regression-compile-tmp/vax-pass1.imp"
L_000b:;
                                                                //    605  
                                                                //    606            %IF quote # 0 %START
#line 606 "regression-compile-tmp/vax-pass1.imp"
if (((QUOTE) == (0))) goto L_000c;
                                                                //    607              %IF quote < 0 %THEN printsymbol(cquote) %C
#line 607 "regression-compile-tmp/vax-pass1.imp"
if (((QUOTE) >= (0))) goto L_000d;
#line 607 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(39);
#line 607 "regression-compile-tmp/vax-pass1.imp"
goto L_000e;
#line 607 "regression-compile-tmp/vax-pass1.imp"
L_000d:;
#line 607 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(34);
#line 607 "regression-compile-tmp/vax-pass1.imp"
L_000e:;
                                                                //    608                            %ELSE printsymbol(squote)
                                                                //    609            %ELSE
#line 609 "regression-compile-tmp/vax-pass1.imp"
goto L_000f;
#line 609 "regression-compile-tmp/vax-pass1.imp"
L_000c:;
                                                                //    610               printstring("%endof")
#line 610 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("%endof"));
                                                                //    611               %IF progmode >= 0 %THEN printstring("program") %C
#line 611 "regression-compile-tmp/vax-pass1.imp"
if (((PROGMODE) < (0))) goto L_0010;
#line 611 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("program"));
#line 611 "regression-compile-tmp/vax-pass1.imp"
goto L_0011;
#line 611 "regression-compile-tmp/vax-pass1.imp"
L_0010:;
#line 611 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("file"));
#line 611 "regression-compile-tmp/vax-pass1.imp"
L_0011:;
                                                                //    612                                 %ELSE printstring("file")
                                                                //    613            %FINISH
#line 613 "regression-compile-tmp/vax-pass1.imp"
L_000f:;
                                                                //    614            printstring(" missing?");              ->more
#line 614 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal(" missing?"));
#line 614 "regression-compile-tmp/vax-pass1.imp"
goto U_1000;
                                                                //    615  reason(6):printstring("too many faults!");   ->more
#line 615 "regression-compile-tmp/vax-pass1.imp"
sw1_REASON_6:;
#line 615 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("too many faults!"));
#line 615 "regression-compile-tmp/vax-pass1.imp"
goto U_1000;
                                                                //    616  reason(7):printstring("string constant too long"); ->more
#line 616 "regression-compile-tmp/vax-pass1.imp"
sw1_REASON_7:;
#line 616 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("string constant too long"));
#line 616 "regression-compile-tmp/vax-pass1.imp"
goto U_1000;
                                                                //    617  reason(8):printstring("dictionary full"); -> more
#line 617 "regression-compile-tmp/vax-pass1.imp"
sw1_REASON_8:;
#line 617 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("dictionary full"));
#line 617 "regression-compile-tmp/vax-pass1.imp"
goto U_1000;
                                                                //    618  reason(9): printstring("Included file ".include file." does not exist")
#line 618 "regression-compile-tmp/vax-pass1.imp"
sw1_REASON_9:;
#line 618 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("Included file "),(_imp_string)INCLUDEFILE),(_imp_string)_imp_str_literal(" does not exist")));
                                                                //    619  more: newline
#line 619 "regression-compile-tmp/vax-pass1.imp"
U_1000:;
#line 619 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
                                                                //    620        printstring("***  compilation abandoned ***");  newline
#line 620 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("***  compilation abandoned ***"));
#line 620 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
                                                                //    621        %EXIT %IF stream = report
#line 621 "regression-compile-tmp/vax-pass1.imp"
if (((STREAM) != (0))) goto L_0012;
#line 621 "regression-compile-tmp/vax-pass1.imp"
goto L_0008;
#line 621 "regression-compile-tmp/vax-pass1.imp"
L_0012:;
                                                                //    622        close output
#line 622 "regression-compile-tmp/vax-pass1.imp"
_imp_CLOSEOUTPUT();
                                                                //    623        stream = report
#line 623 "regression-compile-tmp/vax-pass1.imp"
STREAM = 0;
                                                                //    624        select output(report)
#line 624 "regression-compile-tmp/vax-pass1.imp"
_imp_SELECTOUTPUT(0);
                                                                //    625     %REPEAT
#line 625 "regression-compile-tmp/vax-pass1.imp"
goto L_0007;
#line 625 "regression-compile-tmp/vax-pass1.imp"
L_0008:;
                                                                //    626     %monitor %IF diag&4096 # 0
#line 626 "regression-compile-tmp/vax-pass1.imp"
if (((((DIAG) & (4096))) == (0))) goto L_0013;
#line 626 "regression-compile-tmp/vax-pass1.imp"
_imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__);
#line 626 "regression-compile-tmp/vax-pass1.imp"
L_0013:;
                                                                //    627     exit(16_1000002c)    {1000002c is SS$_ABORT with the inhibit message bit set - could just use EXIT_FAILURE}
#line 627 "regression-compile-tmp/vax-pass1.imp"
exit(268435500);
                                                                //    628  %END
#line 628 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block ABANDON at level 2
                                                                //    629  
                                                                //    630  %routine op(%integer code, param)
#line 630 "regression-compile-tmp/vax-pass1.imp"
void OP( int CODE, int PARAM )
#line 630 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //    631     put(code);  putword(param)
#line 631 "regression-compile-tmp/vax-pass1.imp"
PUT(CODE);
#line 631 "regression-compile-tmp/vax-pass1.imp"
PUTWORD(PARAM);
                                                                //    632  %end
#line 632 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block OP at level 2
                                                                //    633  %routine set const(%integer m)
#line 633 "regression-compile-tmp/vax-pass1.imp"
void SETCONST( int M )
#line 633 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //    634     %integer v
#line 634 "regression-compile-tmp/vax-pass1.imp"
int V;
                                                                //    635     v = m;  v = -m %if v < 0
#line 635 "regression-compile-tmp/vax-pass1.imp"
V = M;
#line 635 "regression-compile-tmp/vax-pass1.imp"
if (((V) >= (0))) goto L_0014;
#line 635 "regression-compile-tmp/vax-pass1.imp"
V = (-(M));
#line 635 "regression-compile-tmp/vax-pass1.imp"
L_0014:;
                                                                //    636     put('N');  putlong(v)
#line 636 "regression-compile-tmp/vax-pass1.imp"
PUT(78);
#line 636 "regression-compile-tmp/vax-pass1.imp"
PUTLONG(V);
                                                                //    637     put('U') %if m < 0
#line 637 "regression-compile-tmp/vax-pass1.imp"
if (((M) >= (0))) goto L_0015;
#line 637 "regression-compile-tmp/vax-pass1.imp"
PUT(85);
#line 637 "regression-compile-tmp/vax-pass1.imp"
L_0015:;
                                                                //    638  %end
#line 638 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SETCONST at level 2
                                                                //    639  
                                                                //    640  
                                                                //    641  %ROUTINE compile block(%INTEGER level, block tag, dmin, tmax, id)
#line 641 "regression-compile-tmp/vax-pass1.imp"
void COMPILEBLOCK( int LEVEL, int BLOCKTAG, int DMIN, int TMAX, int ID )
#line 641 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //    642  
                                                                //    643     %INTEGERFNSPEC gapp
#line 643 "regression-compile-tmp/vax-pass1.imp"
auto int GAPP( void );
                                                                //    644     %ROUTINESPEC delete names(%INTEGER quiet)
#line 644 "regression-compile-tmp/vax-pass1.imp"
auto void DELETENAMES( int QUIET );
                                                                //    645     %ROUTINESPEC analyse
#line 645 "regression-compile-tmp/vax-pass1.imp"
auto void ANALYSE( void );
                                                                //    646     %ROUTINESPEC compile
#line 646 "regression-compile-tmp/vax-pass1.imp"
auto void COMPILE( void );
                                                                //    647  
                                                                //    648     %INTEGER open; open       = closed;      !zero if can return from proc
#line 648 "regression-compile-tmp/vax-pass1.imp"
int OPEN;
#line 648 "regression-compile-tmp/vax-pass1.imp"
OPEN = 16384;
                                                                //    649     %INTEGER dbase; dbase      = dmax;        !dictionary base
#line 649 "regression-compile-tmp/vax-pass1.imp"
int DBASE;
#line 649 "regression-compile-tmp/vax-pass1.imp"
DBASE = DMAX;
                                                                //    650     %INTEGER tbase; tbase      = tmax;        !tag base
#line 650 "regression-compile-tmp/vax-pass1.imp"
int TBASE;
#line 650 "regression-compile-tmp/vax-pass1.imp"
TBASE = TMAX;
                                                                //    651     %INTEGER tstart; tstart    = tmax
#line 651 "regression-compile-tmp/vax-pass1.imp"
int TSTART;
#line 651 "regression-compile-tmp/vax-pass1.imp"
TSTART = TMAX;
                                                                //    652     %INTEGER label; label      = 4;           !first internal label
#line 652 "regression-compile-tmp/vax-pass1.imp"
int LABEL;
#line 652 "regression-compile-tmp/vax-pass1.imp"
LABEL = 4;
                                                                //    653     %INTEGER last array; last array = 0
#line 653 "regression-compile-tmp/vax-pass1.imp"
int LASTARRAY;
#line 653 "regression-compile-tmp/vax-pass1.imp"
LASTARRAY = 0;
                                                                //    654     %INTEGER access; access     = 1;           !non-zero if accessible
#line 654 "regression-compile-tmp/vax-pass1.imp"
int ACCESS;
#line 654 "regression-compile-tmp/vax-pass1.imp"
ACCESS = 1;
                                                                //    655     %INTEGER inhibit; inhibit    = 0;           !non-zero inhibits declaratons
#line 655 "regression-compile-tmp/vax-pass1.imp"
int INHIBIT;
#line 655 "regression-compile-tmp/vax-pass1.imp"
INHIBIT = 0;
                                                                //    656  
                                                                //    657     {GT:%SHORT}%INTEGERNAME bflags; bflags      == tag(block tag)_flags
#line 657 "regression-compile-tmp/vax-pass1.imp"
int /*name*/*BFLAGS;
#line 657 "regression-compile-tmp/vax-pass1.imp"
BFLAGS = &TAG[BLOCKTAG].FLAGS;
                                                                //    658     %INTEGER block type;          block type   = bflags>>4&7
#line 658 "regression-compile-tmp/vax-pass1.imp"
int BLOCKTYPE;
#line 658 "regression-compile-tmp/vax-pass1.imp"
BLOCKTYPE = (((int)(((*(unsigned int *)(BFLAGS)) >> (4)))) & (7));
                                                                //    659     %INTEGER block form;          block form   = bflags&15
#line 659 "regression-compile-tmp/vax-pass1.imp"
int BLOCKFORM;
#line 659 "regression-compile-tmp/vax-pass1.imp"
BLOCKFORM = ((*BFLAGS) & (15));
                                                                //    660     %INTEGER block fm;          block fm     = tag(block tag)_format
#line 660 "regression-compile-tmp/vax-pass1.imp"
int BLOCKFM;
#line 660 "regression-compile-tmp/vax-pass1.imp"
BLOCKFM = TAG[BLOCKTAG].FORMAT;
                                                                //    661     %INTEGER block otype;          block otype  = otype
#line 661 "regression-compile-tmp/vax-pass1.imp"
int BLOCKOTYPE;
#line 661 "regression-compile-tmp/vax-pass1.imp"
BLOCKOTYPE = OTYPE;
                                                                //    662     %INTEGERNAME block app;      block app   == tag(block tag)_app
#line 662 "regression-compile-tmp/vax-pass1.imp"
int /*name*/*BLOCKAPP;
#line 662 "regression-compile-tmp/vax-pass1.imp"
BLOCKAPP = &TAG[BLOCKTAG].APP;
                                                                //    663  
                                                                //    664     %INTEGER l, new app
#line 664 "regression-compile-tmp/vax-pass1.imp"
int L;
#line 664 "regression-compile-tmp/vax-pass1.imp"
int NEWAPP;
                                                                //    665  
                                                                //    666  %ROUTINE fault(%INTEGER n)
#line 666 "regression-compile-tmp/vax-pass1.imp"
void FAULT( int N )
#line 666 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //    667  
                                                                //    668      ! -5 : -1  - warnings
                                                                //    669      !  1 : 22  - errors
                                                                //    670  
                                                                //    671      %SWITCH fm(-5:22)
#line 671 "regression-compile-tmp/vax-pass1.imp"
static int sw2_FM_idx;
static const void * /*SWITCH*/ sw2_FM[28] = { &&sw2_FM_M_5, &&sw2_FM_M_4, &&sw2_FM_M_3, &&sw2_FM_M_2, &&sw2_FM_M_1, &&sw2_FM_0, &&sw2_FM_1, &&sw2_FM_2, &&sw2_FM_3, &&sw2_FM_4, &&sw2_FM_5, &&sw2_FM_6, &&sw2_FM_7, &&sw2_FM_8, &&sw2_FM_9, &&sw2_FM_10, &&sw2_FM_11, &&sw2_FM_12, &&sw2_FM_13, &&sw2_FM_14, &&sw2_FM_15, &&sw2_FM_16, &&sw2_FM_17, &&sw2_FM_18, &&sw2_FM_19, &&sw2_FM_20, &&sw2_FM_21, &&sw2_FM_22,  };
                                                                //    672      %INTEGER st
#line 672 "regression-compile-tmp/vax-pass1.imp"
int ST;
                                                                //    673  
                                                                //    674      %ROUTINE print ss
#line 674 "regression-compile-tmp/vax-pass1.imp"
void PRINTSS( void )
#line 674 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //    675         %INTEGER s, p
#line 675 "regression-compile-tmp/vax-pass1.imp"
int S;
#line 675 "regression-compile-tmp/vax-pass1.imp"
int P;
                                                                //    676         %RETURN %IF pos = 0
#line 676 "regression-compile-tmp/vax-pass1.imp"
if (((POS) != (0))) goto L_0016;
#line 676 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 676 "regression-compile-tmp/vax-pass1.imp"
L_0016:;
                                                                //    677         space
#line 677 "regression-compile-tmp/vax-pass1.imp"
_imp_SPACE();
                                                                //    678         p = 1
#line 678 "regression-compile-tmp/vax-pass1.imp"
P = 1;
                                                                //    679         %CYCLE
#line 679 "regression-compile-tmp/vax-pass1.imp"
L_0017:;
                                                                //    680            printsymbol(marker) %IF p = pos1
#line 680 "regression-compile-tmp/vax-pass1.imp"
if (((P) != (POS1))) goto L_001a;
#line 680 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(94);
#line 680 "regression-compile-tmp/vax-pass1.imp"
L_001a:;
                                                                //    681            %EXIT %IF p = pos
#line 681 "regression-compile-tmp/vax-pass1.imp"
if (((P) != (POS))) goto L_001b;
#line 681 "regression-compile-tmp/vax-pass1.imp"
goto L_0018;
#line 681 "regression-compile-tmp/vax-pass1.imp"
L_001b:;
                                                                //    682            s = char(margin+p);  p = p+1
#line 682 "regression-compile-tmp/vax-pass1.imp"
S = CHAR[(((int)(MARGIN)) + (P))];
#line 682 "regression-compile-tmp/vax-pass1.imp"
P = (((int)(P)) + (1));
                                                                //    683            %EXIT %IF s = nl %OR (s='%' %AND p = pos)
#line 683 "regression-compile-tmp/vax-pass1.imp"
if (((S) == (10))) goto L_001c;
#line 683 "regression-compile-tmp/vax-pass1.imp"
if (((S) != (37))) goto L_001d;
#line 683 "regression-compile-tmp/vax-pass1.imp"
if (((P) != (POS))) goto L_001d;
#line 683 "regression-compile-tmp/vax-pass1.imp"
L_001c:;
#line 683 "regression-compile-tmp/vax-pass1.imp"
goto L_0018;
#line 683 "regression-compile-tmp/vax-pass1.imp"
L_001d:;
                                                                //    684            %IF s < ' ' %START;         !beware of tabs
#line 684 "regression-compile-tmp/vax-pass1.imp"
if (((S) >= (32))) goto L_001e;
                                                                //    685               %IF s = ff %THEN s = nl %ELSE s = ' '
#line 685 "regression-compile-tmp/vax-pass1.imp"
if (((S) != (12))) goto L_001f;
#line 685 "regression-compile-tmp/vax-pass1.imp"
S = 10;
#line 685 "regression-compile-tmp/vax-pass1.imp"
goto L_0020;
#line 685 "regression-compile-tmp/vax-pass1.imp"
L_001f:;
#line 685 "regression-compile-tmp/vax-pass1.imp"
S = 32;
#line 685 "regression-compile-tmp/vax-pass1.imp"
L_0020:;
                                                                //    686            %FINISH
#line 686 "regression-compile-tmp/vax-pass1.imp"
L_001e:;
                                                                //    687            printsymbol(s)
#line 687 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(S);
                                                                //    688         %REPEAT
#line 688 "regression-compile-tmp/vax-pass1.imp"
goto L_0017;
#line 688 "regression-compile-tmp/vax-pass1.imp"
L_0018:;
                                                                //    689         pos = 0 %IF list <= 0
#line 689 "regression-compile-tmp/vax-pass1.imp"
if (((LIST) > (0))) goto L_0021;
#line 689 "regression-compile-tmp/vax-pass1.imp"
POS = 0;
#line 689 "regression-compile-tmp/vax-pass1.imp"
L_0021:;
                                                                //    690      %END
#line 690 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PRINTSS at level 4
                                                                //    691  
                                                                //    692      pos1 = pos2 %IF pos2 > pos1
#line 692 "regression-compile-tmp/vax-pass1.imp"
if (((POS2) <= (POS1))) goto L_0022;
#line 692 "regression-compile-tmp/vax-pass1.imp"
POS1 = POS2;
#line 692 "regression-compile-tmp/vax-pass1.imp"
L_0022:;
                                                                //    693     %if n >=0 %or command&warnbit # 0 %start
#line 693 "regression-compile-tmp/vax-pass1.imp"
if (((N) >= (0))) goto L_0019;
#line 693 "regression-compile-tmp/vax-pass1.imp"
if (((((COMMAND) & (128))) == (0))) goto L_0023;
#line 693 "regression-compile-tmp/vax-pass1.imp"
L_0019:;
                                                                //    694      newline %IF sym # nl
#line 694 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) == (10))) goto L_0024;
#line 694 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
#line 694 "regression-compile-tmp/vax-pass1.imp"
L_0024:;
                                                                //    695      st = report
#line 695 "regression-compile-tmp/vax-pass1.imp"
ST = 0;
                                                                //    696      st = listing %IF n = -3;              !don't report unused on the console
#line 696 "regression-compile-tmp/vax-pass1.imp"
if (((N) != ((-3)))) goto L_0025;
#line 696 "regression-compile-tmp/vax-pass1.imp"
ST = 2;
#line 696 "regression-compile-tmp/vax-pass1.imp"
L_0025:;
                                                                //    697      %cycle
#line 697 "regression-compile-tmp/vax-pass1.imp"
L_0026:;
                                                                //    698         SELECT OUTPUT(st)
#line 698 "regression-compile-tmp/vax-pass1.imp"
_imp_SELECTOUTPUT(ST);
                                                                //    699         %if n < 0 %then printsymbol('?') %and pos1 = 0 %else printsymbol('*')
#line 699 "regression-compile-tmp/vax-pass1.imp"
if (((N) >= (0))) goto L_0029;
#line 699 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(63);
#line 699 "regression-compile-tmp/vax-pass1.imp"
POS1 = 0;
#line 699 "regression-compile-tmp/vax-pass1.imp"
goto L_002a;
#line 699 "regression-compile-tmp/vax-pass1.imp"
L_0029:;
#line 699 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(42);
#line 699 "regression-compile-tmp/vax-pass1.imp"
L_002a:;
                                                                //    700         %if st # report %start
#line 700 "regression-compile-tmp/vax-pass1.imp"
if (((ST) == (0))) goto L_002b;
                                                                //    701            %if list <= 0 %and pos1 # 0 %start
#line 701 "regression-compile-tmp/vax-pass1.imp"
if (((LIST) > (0))) goto L_002c;
#line 701 "regression-compile-tmp/vax-pass1.imp"
if (((POS1) == (0))) goto L_002c;
                                                                //    702               spaces(pos1+margin);  PRINTSTRING("      ! ")
#line 702 "regression-compile-tmp/vax-pass1.imp"
_imp_SPACES((((int)(POS1)) + (MARGIN)));
#line 702 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("      ! "));
                                                                //    703            %finish
#line 703 "regression-compile-tmp/vax-pass1.imp"
L_002c:;
                                                                //    704         %finish %else %start
#line 704 "regression-compile-tmp/vax-pass1.imp"
goto L_002d;
#line 704 "regression-compile-tmp/vax-pass1.imp"
L_002b:;
                                                                //    705            PRINTSTRING(include file) %if include # 0
#line 705 "regression-compile-tmp/vax-pass1.imp"
if (((INCLUDE) == (0))) goto L_002e;
#line 705 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(INCLUDEFILE);
#line 705 "regression-compile-tmp/vax-pass1.imp"
L_002e:;
                                                                //    706            write(lines, 4);  printsymbol(csym);  space
#line 706 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(LINES, 4);
#line 706 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(CSYM);
#line 706 "regression-compile-tmp/vax-pass1.imp"
_imp_SPACE();
                                                                //    707         %finish
#line 707 "regression-compile-tmp/vax-pass1.imp"
L_002d:;
                                                                //    708         ->fm(n) %if -5 <= n <= 22
#line 708 "regression-compile-tmp/vax-pass1.imp"
if (((((-5)) > (N))) || (((N) > (22)))) goto L_002f;
#line 708 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_idx = N; if ((-5 <= sw2_FM_idx) && (sw2_FM_idx <= 22)) goto *(sw2_FM+5)[sw2_FM_idx];  /* Bounds=-5:22 */ else {
   /*_imp_signal(8, 2, sw2_FM_idx);*/
   fprintf(stderr, "%%SWITCH index FM(%d) not in range -5:22 at %s:%d\n",
           sw2_FM_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
#line 708 "regression-compile-tmp/vax-pass1.imp"
L_002f:;
                                                                //    709         PRINTSTRING("fault");  write(n, 2);              ->ps
#line 709 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("fault"));
#line 709 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(N, 2);
#line 709 "regression-compile-tmp/vax-pass1.imp"
goto U_1001;
                                                                //    710  fm(*):debug("* Switch label not set: fm(".itos(n,0).")"); %stop
#line 710 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_default:;
#line 710 "regression-compile-tmp/vax-pass1.imp"
DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("* Switch label not set: fm("),(_imp_string)_imp_ITOS(N, 0)),(_imp_string)_imp_str_literal(")")));
#line 710 "regression-compile-tmp/vax-pass1.imp"
exit(0);
                                                                //    711  fm(-5):PRINTSTRING("Dubious statement");  dubious = 0;  ->psd
#line 711 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_M_5:;
#line 711 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("Dubious statement"));
#line 711 "regression-compile-tmp/vax-pass1.imp"
DUBIOUS = 0;
#line 711 "regression-compile-tmp/vax-pass1.imp"
goto U_1002;
                                                                //    712  fm(-4):PRINTSTRING("Non-local")
#line 712 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_M_4:;
#line 712 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("Non-local"));
                                                                //    713         pos1 = for warn;  for warn = 0;      ->ps
#line 713 "regression-compile-tmp/vax-pass1.imp"
POS1 = FORWARN;
#line 713 "regression-compile-tmp/vax-pass1.imp"
FORWARN = 0;
#line 713 "regression-compile-tmp/vax-pass1.imp"
goto U_1001;
                                                                //    714  fm(-3):print ident(x, 0);  PRINTSTRING(" unused");      ->nps
#line 714 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_M_3:;
#line 714 "regression-compile-tmp/vax-pass1.imp"
PRINTIDENT(X, 0);
#line 714 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal(" unused"));
#line 714 "regression-compile-tmp/vax-pass1.imp"
goto U_1003;
                                                                //    715  fm(-2):PRINTSTRING("""}""");                            ->miss
#line 715 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_M_2:;
#line 715 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("\"}\""));
#line 715 "regression-compile-tmp/vax-pass1.imp"
goto U_1004;
                                                                //    716  fm(-1):PRINTSTRING("access");                           ->psd
#line 716 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_M_1:;
#line 716 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("access"));
#line 716 "regression-compile-tmp/vax-pass1.imp"
goto U_1002;
                                                                //    717  
                                                                //    718  fm(0): PRINTSTRING("form");                             ->ps
#line 718 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_0:;
#line 718 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("form"));
#line 718 "regression-compile-tmp/vax-pass1.imp"
goto U_1001;
                                                                //    719  fm(1): PRINTSTRING("atom");                             ->ps
#line 719 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_1:;
#line 719 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("atom"));
#line 719 "regression-compile-tmp/vax-pass1.imp"
goto U_1001;
                                                                //    720  fm(2): PRINTSTRING("not declared");                     ->ps
#line 720 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_2:;
#line 720 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("not declared"));
#line 720 "regression-compile-tmp/vax-pass1.imp"
goto U_1001;
                                                                //    721  fm(3): PRINTSTRING("too complex");                      ->ps
#line 721 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_3:;
#line 721 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("too complex"));
#line 721 "regression-compile-tmp/vax-pass1.imp"
goto U_1001;
                                                                //    722  fm(4): PRINTSTRING("duplicate");                        ->ps
#line 722 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_4:;
#line 722 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("duplicate"));
#line 722 "regression-compile-tmp/vax-pass1.imp"
goto U_1001;
                                                                //    723  fm(5): PRINTSTRING("type");                             ->ps
#line 723 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_5:;
#line 723 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("type"));
#line 723 "regression-compile-tmp/vax-pass1.imp"
goto U_1001;
                                                                //    724  fm(6): PRINTSTRING("match");                            ->psd
#line 724 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_6:;
#line 724 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("match"));
#line 724 "regression-compile-tmp/vax-pass1.imp"
goto U_1002;
                                                                //    725  fm(7): PRINTSTRING("context");                          ->psd
#line 725 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_7:;
#line 725 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("context"));
#line 725 "regression-compile-tmp/vax-pass1.imp"
goto U_1002;
                                                                //    726  fm(21):PRINTSTRING("context ");  print ident(this, 0);  ->ps
#line 726 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_21:;
#line 726 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("context "));
#line 726 "regression-compile-tmp/vax-pass1.imp"
PRINTIDENT(THIS, 0);
#line 726 "regression-compile-tmp/vax-pass1.imp"
goto U_1001;
                                                                //    727  fm(8): PRINTSTRING("%cycle");                           ->miss
#line 727 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_8:;
#line 727 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("%cycle"));
#line 727 "regression-compile-tmp/vax-pass1.imp"
goto U_1004;
                                                                //    728  fm(9): PRINTSTRING("%start");                           ->miss
#line 728 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_9:;
#line 728 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("%start"));
#line 728 "regression-compile-tmp/vax-pass1.imp"
goto U_1004;
                                                                //    729  fm(10):PRINTSTRING("size");  WRITE(lit, 1) %if pos1 = 0;->ps
#line 729 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_10:;
#line 729 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("size"));
#line 729 "regression-compile-tmp/vax-pass1.imp"
if (((POS1) != (0))) goto L_0030;
#line 729 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(LIT, 1);
#line 729 "regression-compile-tmp/vax-pass1.imp"
L_0030:;
#line 729 "regression-compile-tmp/vax-pass1.imp"
goto U_1001;
                                                                //    730  fm(11):PRINTSTRING("bounds")
#line 730 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_11:;
#line 730 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("bounds"));
                                                                //    731         WRITE(ocount, 1) %unless ocount < 0;             ->ps
#line 731 "regression-compile-tmp/vax-pass1.imp"
if (((OCOUNT) < (0))) goto L_0031;
#line 731 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(OCOUNT, 1);
#line 731 "regression-compile-tmp/vax-pass1.imp"
L_0031:;
#line 731 "regression-compile-tmp/vax-pass1.imp"
goto U_1001;
                                                                //    732  fm(12):PRINTSTRING("index");                            ->ps
#line 732 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_12:;
#line 732 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("index"));
#line 732 "regression-compile-tmp/vax-pass1.imp"
goto U_1001;
                                                                //    733  fm(13):PRINTSTRING("order");                            ->psd
#line 733 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_13:;
#line 733 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("order"));
#line 733 "regression-compile-tmp/vax-pass1.imp"
goto U_1002;
                                                                //    734  fm(14):PRINTSTRING("not a location");                   ->ps
#line 734 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_14:;
#line 734 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("not a location"));
#line 734 "regression-compile-tmp/vax-pass1.imp"
goto U_1001;
                                                                //    735  fm(15):PRINTSTRING("%begin");                           ->miss
#line 735 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_15:;
#line 735 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("%begin"));
#line 735 "regression-compile-tmp/vax-pass1.imp"
goto U_1004;
                                                                //    736  fm(16):PRINTSTRING("%end");                             ->miss
#line 736 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_16:;
#line 736 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("%end"));
#line 736 "regression-compile-tmp/vax-pass1.imp"
goto U_1004;
                                                                //    737  fm(17):PRINTSTRING("%repeat");                          ->miss
#line 737 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_17:;
#line 737 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("%repeat"));
#line 737 "regression-compile-tmp/vax-pass1.imp"
goto U_1004;
                                                                //    738  fm(18):PRINTSTRING("%finish");                          ->miss
#line 738 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_18:;
#line 738 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("%finish"));
#line 738 "regression-compile-tmp/vax-pass1.imp"
goto U_1004;
                                                                //    739  fm(19):PRINTSTRING("result");                           ->miss
#line 739 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_19:;
#line 739 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("result"));
#line 739 "regression-compile-tmp/vax-pass1.imp"
goto U_1004;
                                                                //    740  fm(22):PRINTSTRING("format");                           ->ps
#line 740 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_22:;
#line 740 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("format"));
#line 740 "regression-compile-tmp/vax-pass1.imp"
goto U_1001;
                                                                //    741  fm(20):printsymbol('"');  print ident(x, 0);  printsymbol('"')
#line 741 "regression-compile-tmp/vax-pass1.imp"
sw2_FM_20:;
#line 741 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(34);
#line 741 "regression-compile-tmp/vax-pass1.imp"
PRINTIDENT(X, 0);
#line 741 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(34);
                                                                //    742  miss:  PRINTSTRING(" missing");                         ->nps
#line 742 "regression-compile-tmp/vax-pass1.imp"
U_1004:;
#line 742 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal(" missing"));
#line 742 "regression-compile-tmp/vax-pass1.imp"
goto U_1003;
                                                                //    743  psd:   pos1 = 0
#line 743 "regression-compile-tmp/vax-pass1.imp"
U_1002:;
#line 743 "regression-compile-tmp/vax-pass1.imp"
POS1 = 0;
                                                                //    744  ps:    print ss
#line 744 "regression-compile-tmp/vax-pass1.imp"
U_1001:;
#line 744 "regression-compile-tmp/vax-pass1.imp"
PRINTSS();
                                                                //    745  nps:   NEWLINE
#line 745 "regression-compile-tmp/vax-pass1.imp"
U_1003:;
#line 745 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
                                                                //    746         %exit %if st = listing
#line 746 "regression-compile-tmp/vax-pass1.imp"
if (((ST) != (2))) goto L_0032;
#line 746 "regression-compile-tmp/vax-pass1.imp"
goto L_0027;
#line 746 "regression-compile-tmp/vax-pass1.imp"
L_0032:;
                                                                //    747         st = listing
#line 747 "regression-compile-tmp/vax-pass1.imp"
ST = 2;
                                                                //    748      %repeat
#line 748 "regression-compile-tmp/vax-pass1.imp"
goto L_0026;
#line 748 "regression-compile-tmp/vax-pass1.imp"
L_0027:;
                                                                //    749     %finish
#line 749 "regression-compile-tmp/vax-pass1.imp"
L_0023:;
                                                                //    750      %if n >= 0 %start
#line 750 "regression-compile-tmp/vax-pass1.imp"
if (((N) < (0))) goto L_0033;
                                                                //    751         %monitor %if diag&4096 # 0
#line 751 "regression-compile-tmp/vax-pass1.imp"
if (((((DIAG) & (4096))) == (0))) goto L_0034;
#line 751 "regression-compile-tmp/vax-pass1.imp"
_imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__);
#line 751 "regression-compile-tmp/vax-pass1.imp"
L_0034:;
                                                                //    752         %if n # 13 %start;           !order is fairly safe
#line 752 "regression-compile-tmp/vax-pass1.imp"
if (((N) == (13))) goto L_0035;
                                                                //    753            ocount = -1
#line 753 "regression-compile-tmp/vax-pass1.imp"
OCOUNT = (-1);
                                                                //    754            gg = 0
#line 754 "regression-compile-tmp/vax-pass1.imp"
GG = 0;
                                                                //    755            copy = 0;  quote = 0
#line 755 "regression-compile-tmp/vax-pass1.imp"
COPY = 0;
#line 755 "regression-compile-tmp/vax-pass1.imp"
QUOTE = 0;
                                                                //    756            search base = 0;  escape class = 0
#line 756 "regression-compile-tmp/vax-pass1.imp"
SEARCHBASE = 0;
#line 756 "regression-compile-tmp/vax-pass1.imp"
ESCAPECLASS = 0;
                                                                //    757            gg = 0
#line 757 "regression-compile-tmp/vax-pass1.imp"
GG = 0;
                                                                //    758         %finish
#line 758 "regression-compile-tmp/vax-pass1.imp"
L_0035:;
                                                                //    759         faulty = faulty+1
#line 759 "regression-compile-tmp/vax-pass1.imp"
FAULTY = (((int)(FAULTY)) + (1));
                                                                //    760  
                                                                //    761         !check that there haven't been too many faults
                                                                //    762  
                                                                //    763         fault rate = fault rate+3;  abandon(6) %IF fault rate > 30
#line 763 "regression-compile-tmp/vax-pass1.imp"
FAULTRATE = (((int)(FAULTRATE)) + (3));
#line 763 "regression-compile-tmp/vax-pass1.imp"
if (((FAULTRATE) <= (30))) goto L_0036;
#line 763 "regression-compile-tmp/vax-pass1.imp"
ABANDON(6);
#line 763 "regression-compile-tmp/vax-pass1.imp"
L_0036:;
                                                                //    764         fault rate = 3 %IF fault rate <= 0
#line 764 "regression-compile-tmp/vax-pass1.imp"
if (((FAULTRATE) > (0))) goto L_0037;
#line 764 "regression-compile-tmp/vax-pass1.imp"
FAULTRATE = 3;
#line 764 "regression-compile-tmp/vax-pass1.imp"
L_0037:;
                                                                //    765      %FINISH
#line 765 "regression-compile-tmp/vax-pass1.imp"
L_0033:;
                                                                //    766      tbase = tstart
#line 766 "regression-compile-tmp/vax-pass1.imp"
TBASE = TSTART;
                                                                //    767      %IF list <= 0 %AND sym # nl %START
#line 767 "regression-compile-tmp/vax-pass1.imp"
if (((LIST) > (0))) goto L_0038;
#line 767 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) == (10))) goto L_0038;
                                                                //    768         error margin = column
#line 768 "regression-compile-tmp/vax-pass1.imp"
ERRORMARGIN = COLUMN;
                                                                //    769         error sym = sym;  sym = nl
#line 769 "regression-compile-tmp/vax-pass1.imp"
ERRORSYM = SYM;
#line 769 "regression-compile-tmp/vax-pass1.imp"
SYM = 10;
                                                                //    770      %FINISH
#line 770 "regression-compile-tmp/vax-pass1.imp"
L_0038:;
                                                                //    771  %END
#line 771 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FAULT at level 3
                                                                //    772  
                                                                //    773     dmin = dmin-1;  dict(dmin) = -1;            !end marker for starts & cycles
#line 773 "regression-compile-tmp/vax-pass1.imp"
DMIN = (((int)(DMIN)) - (1));
#line 773 "regression-compile-tmp/vax-pass1.imp"
DICT[(((int)(DMIN)) - (1))] = (-1);
                                                                //    774     abandon(2) %IF dmax = dmin
#line 774 "regression-compile-tmp/vax-pass1.imp"
if (((DMAX) != (DMIN))) goto L_0039;
#line 774 "regression-compile-tmp/vax-pass1.imp"
ABANDON(2);
#line 774 "regression-compile-tmp/vax-pass1.imp"
L_0039:;
                                                                //    775  
                                                                //    776     %IF list > 0 %AND level > 0 %START
#line 776 "regression-compile-tmp/vax-pass1.imp"
if (((LIST) <= (0))) goto L_003a;
#line 776 "regression-compile-tmp/vax-pass1.imp"
if (((LEVEL) <= (0))) goto L_003a;
                                                                //    777        write(lines, 5);  spaces(level*3-1)
#line 777 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(LINES, 5);
#line 777 "regression-compile-tmp/vax-pass1.imp"
_imp_SPACES((((int)((((int)(LEVEL)) * (3)))) - (1)));
                                                                //    778        %IF block tag = 0 %START
#line 778 "regression-compile-tmp/vax-pass1.imp"
if (((BLOCKTAG) != (0))) goto L_003b;
                                                                //    779           printstring("Begin")
#line 779 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("Begin"));
                                                                //    780        %FINISH %ELSE %START
#line 780 "regression-compile-tmp/vax-pass1.imp"
goto L_003c;
#line 780 "regression-compile-tmp/vax-pass1.imp"
L_003b:;
                                                                //    781           printstring("Procedure ");  print ident(block tag, 0)
#line 781 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("Procedure "));
#line 781 "regression-compile-tmp/vax-pass1.imp"
PRINTIDENT(BLOCKTAG, 0);
                                                                //    782        %FINISH
#line 782 "regression-compile-tmp/vax-pass1.imp"
L_003c:;
                                                                //    783        newline
#line 783 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
                                                                //    784     %FINISH
#line 784 "regression-compile-tmp/vax-pass1.imp"
L_003a:;
                                                                //    785  
                                                                //    786     !deal with procedure definition (parameters)
                                                                //    787  
                                                                //    788     %IF block tag # 0 %START;                   !proc
#line 788 "regression-compile-tmp/vax-pass1.imp"
if (((BLOCKTAG) == (0))) goto L_003d;
                                                                //    789        analyse;  compile %IF ss # 0
#line 789 "regression-compile-tmp/vax-pass1.imp"
ANALYSE();
#line 789 "regression-compile-tmp/vax-pass1.imp"
if (((SS) == (0))) goto L_003e;
#line 789 "regression-compile-tmp/vax-pass1.imp"
COMPILE();
#line 789 "regression-compile-tmp/vax-pass1.imp"
L_003e:;
                                                                //    790  
                                                                //    791        %IF block otype # 0 %START;              !external-ish
#line 791 "regression-compile-tmp/vax-pass1.imp"
if (((BLOCKOTYPE) == (0))) goto L_003f;
                                                                //    792           %IF bflags&spec = 0 %START;           !definition
#line 792 "regression-compile-tmp/vax-pass1.imp"
if (((((*BFLAGS) & (128))) != (0))) goto L_0040;
                                                                //    793              %IF progmode <= 0 %AND level = 1 %THEN progmode = -1 %C
#line 793 "regression-compile-tmp/vax-pass1.imp"
if (((PROGMODE) > (0))) goto L_0041;
#line 793 "regression-compile-tmp/vax-pass1.imp"
if (((LEVEL) != (1))) goto L_0041;
#line 793 "regression-compile-tmp/vax-pass1.imp"
PROGMODE = (-1);
#line 793 "regression-compile-tmp/vax-pass1.imp"
goto L_0042;
#line 793 "regression-compile-tmp/vax-pass1.imp"
L_0041:;
#line 793 "regression-compile-tmp/vax-pass1.imp"
FAULT(7);
#line 793 "regression-compile-tmp/vax-pass1.imp"
L_0042:;
                                                                //    794                                               %ELSE fault(7)
                                                                //    795  !!!!!    %FINISH %ELSE %START;                                !external spec
                                                                //    796  !!!!!       bflags = bflags-spec;              !definition elsewhere
                                                                //    797           %FINISH
#line 797 "regression-compile-tmp/vax-pass1.imp"
L_0040:;
                                                                //    798        %FINISH
#line 798 "regression-compile-tmp/vax-pass1.imp"
L_003f:;
                                                                //    799  
                                                                //    800        new app = gapp;                          !generate app grammar
#line 800 "regression-compile-tmp/vax-pass1.imp"
NEWAPP = GAPP();
                                                                //    801        %IF spec given # 0 %START;               !definition after spec
#line 801 "regression-compile-tmp/vax-pass1.imp"
if (((SPECGIVEN) == (0))) goto L_0043;
                                                                //    802           fault(6) %IF new app # block app;     !different from spec
#line 802 "regression-compile-tmp/vax-pass1.imp"
if (((NEWAPP) == (*BLOCKAPP))) goto L_0044;
#line 802 "regression-compile-tmp/vax-pass1.imp"
FAULT(6);
#line 802 "regression-compile-tmp/vax-pass1.imp"
L_0044:;
                                                                //    803        %FINISH
#line 803 "regression-compile-tmp/vax-pass1.imp"
L_0043:;
                                                                //    804        block app = new app;                     !use the latest
#line 804 "regression-compile-tmp/vax-pass1.imp"
*BLOCKAPP = NEWAPP;
                                                                //    805  
                                                                //    806        %IF level < 0 %START;                    !not procedure definition
#line 806 "regression-compile-tmp/vax-pass1.imp"
if (((LEVEL) >= (0))) goto L_0045;
                                                                //    807           delete names(0)
#line 807 "regression-compile-tmp/vax-pass1.imp"
DELETENAMES(0);
                                                                //    808           %RETURN
#line 808 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    809        %FINISH
#line 809 "regression-compile-tmp/vax-pass1.imp"
L_0045:;
                                                                //    810     %FINISH %ELSE %START
#line 810 "regression-compile-tmp/vax-pass1.imp"
goto L_0046;
#line 810 "regression-compile-tmp/vax-pass1.imp"
L_003d:;
                                                                //    811        open = 0;                                !can return from a block?
#line 811 "regression-compile-tmp/vax-pass1.imp"
OPEN = 0;
                                                                //    812     %FINISH
#line 812 "regression-compile-tmp/vax-pass1.imp"
L_0046:;
                                                                //    813  
                                                                //    814     %CYCLE
#line 814 "regression-compile-tmp/vax-pass1.imp"
L_0047:;
                                                                //    815        analyse
#line 815 "regression-compile-tmp/vax-pass1.imp"
ANALYSE();
                                                                //    816        %CONTINUE %IF ss = 0
#line 816 "regression-compile-tmp/vax-pass1.imp"
if (((SS) != (0))) goto L_004a;
#line 816 "regression-compile-tmp/vax-pass1.imp"
goto L_0049;
#line 816 "regression-compile-tmp/vax-pass1.imp"
L_004a:;
                                                                //    817        compile
#line 817 "regression-compile-tmp/vax-pass1.imp"
COMPILE();
                                                                //    818        fault(-5) %IF dubious # 0
#line 818 "regression-compile-tmp/vax-pass1.imp"
if (((DUBIOUS) == (0))) goto L_004b;
#line 818 "regression-compile-tmp/vax-pass1.imp"
FAULT((-5));
#line 818 "regression-compile-tmp/vax-pass1.imp"
L_004b:;
                                                                //    819        %IF sstype > 0 %START;                   !block in or out
#line 819 "regression-compile-tmp/vax-pass1.imp"
if (((SSTYPE) <= (0))) goto L_004c;
                                                                //    820           %EXIT %IF sstype = 2;               !out
#line 820 "regression-compile-tmp/vax-pass1.imp"
if (((SSTYPE) != (2))) goto L_004d;
#line 820 "regression-compile-tmp/vax-pass1.imp"
goto L_0048;
#line 820 "regression-compile-tmp/vax-pass1.imp"
L_004d:;
                                                                //    821           compile block(spec mode, block x, dmin, tmax, id)
#line 821 "regression-compile-tmp/vax-pass1.imp"
COMPILEBLOCK(SPECMODE, BLOCKX, DMIN, TMAX, ID);
                                                                //    822           %EXIT %IF ss < 0;                   !endofprogram
#line 822 "regression-compile-tmp/vax-pass1.imp"
if (((SS) >= (0))) goto L_004e;
#line 822 "regression-compile-tmp/vax-pass1.imp"
goto L_0048;
#line 822 "regression-compile-tmp/vax-pass1.imp"
L_004e:;
                                                                //    823        %FINISH
#line 823 "regression-compile-tmp/vax-pass1.imp"
L_004c:;
                                                                //    824     %REPEAT
#line 824 "regression-compile-tmp/vax-pass1.imp"
L_0049:;
#line 824 "regression-compile-tmp/vax-pass1.imp"
goto L_0047;
#line 824 "regression-compile-tmp/vax-pass1.imp"
L_0048:;
                                                                //    825     %IF list > 1 %AND level > 0 %START
#line 825 "regression-compile-tmp/vax-pass1.imp"
if (((LIST) <= (1))) goto L_004f;
#line 825 "regression-compile-tmp/vax-pass1.imp"
if (((LEVEL) <= (0))) goto L_004f;
                                                                //    826        write(lines, 5);  spaces(level*3-1)
#line 826 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(LINES, 5);
#line 826 "regression-compile-tmp/vax-pass1.imp"
_imp_SPACES((((int)((((int)(LEVEL)) * (3)))) - (1)));
                                                                //    827        printstring("End")
#line 827 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("End"));
                                                                //    828        newline
#line 828 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
                                                                //    829     %FINISH
#line 829 "regression-compile-tmp/vax-pass1.imp"
L_004f:;
                                                                //    830     delete names(0)
#line 830 "regression-compile-tmp/vax-pass1.imp"
DELETENAMES(0);
                                                                //    831     %RETURN
#line 831 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    832  
                                                                //    833     %INTEGERFN gapp;                            !generate app grammar (backwards)
#line 833 "regression-compile-tmp/vax-pass1.imp"
int GAPP( void )
#line 833 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //    834        %CONSTINTEGER comma = 140;               !psep
                                                                //    835        %ROUTINESPEC set cell(%INTEGER g, tt)
#line 835 "regression-compile-tmp/vax-pass1.imp"
auto void SETCELL( int G, int TT );
                                                                //    836        %ROUTINESPEC class(%RECORD(tagfm)%NAME v);   !imp77:
#line 836 "regression-compile-tmp/vax-pass1.imp"
auto void CLASS(  TAGFM /*name*/*V );
                                                                //    837        %RECORD(tagfm)%NAME v;                       !imp77:
#line 837 "regression-compile-tmp/vax-pass1.imp"
 TAGFM /*name*/*V;
                                                                //    838        %INTEGER p, link, tp, c, ap, t
#line 838 "regression-compile-tmp/vax-pass1.imp"
int P;
#line 838 "regression-compile-tmp/vax-pass1.imp"
int LINK;
#line 838 "regression-compile-tmp/vax-pass1.imp"
int TP;
#line 838 "regression-compile-tmp/vax-pass1.imp"
int C;
#line 838 "regression-compile-tmp/vax-pass1.imp"
int AP;
#line 838 "regression-compile-tmp/vax-pass1.imp"
int T;
                                                                //    839  
                                                                //    840        %RESULT = 0 %IF tmax = local;            !no app needed
#line 840 "regression-compile-tmp/vax-pass1.imp"
if (((TMAX) != (LOCAL))) goto L_0050;
#line 840 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 840 "regression-compile-tmp/vax-pass1.imp"
L_0050:;
                                                                //    841  
                                                                //    842        p = gmax1;  link = 0;  t = tmax
#line 842 "regression-compile-tmp/vax-pass1.imp"
P = 718;
#line 842 "regression-compile-tmp/vax-pass1.imp"
LINK = 0;
#line 842 "regression-compile-tmp/vax-pass1.imp"
T = TMAX;
                                                                //    843  
                                                                //    844        %CYCLE
#line 844 "regression-compile-tmp/vax-pass1.imp"
L_0051:;
                                                                //    845           v == tag(t);  t = t-1
#line 845 "regression-compile-tmp/vax-pass1.imp"
V = &TAG[T];
#line 845 "regression-compile-tmp/vax-pass1.imp"
T = (((int)(T)) - (1));
                                                                //    846           class(v);                             !deduce class from tag
#line 846 "regression-compile-tmp/vax-pass1.imp"
CLASS(V);
                                                                //    847           %IF c < 0 %START;                     !insert %PARAM
#line 847 "regression-compile-tmp/vax-pass1.imp"
if (((C) >= (0))) goto L_0054;
                                                                //    848              c = -c
#line 848 "regression-compile-tmp/vax-pass1.imp"
C = (-(C));
                                                                //    849              set cell(196, tp)
#line 849 "regression-compile-tmp/vax-pass1.imp"
SETCELL(196, TP);
                                                                //    850              tp = -1
#line 850 "regression-compile-tmp/vax-pass1.imp"
TP = (-1);
                                                                //    851           %FINISH
#line 851 "regression-compile-tmp/vax-pass1.imp"
L_0054:;
                                                                //    852           set cell(c, tp)
#line 852 "regression-compile-tmp/vax-pass1.imp"
SETCELL(C, TP);
                                                                //    853           %EXIT %IF t = local;                  !end of parameters
#line 853 "regression-compile-tmp/vax-pass1.imp"
if (((T) != (LOCAL))) goto L_0055;
#line 853 "regression-compile-tmp/vax-pass1.imp"
goto L_0052;
#line 853 "regression-compile-tmp/vax-pass1.imp"
L_0055:;
                                                                //    854           set cell(comma, -1);                  !add the separating comma
#line 854 "regression-compile-tmp/vax-pass1.imp"
SETCELL(140, (-1));
                                                                //    855        %REPEAT
#line 855 "regression-compile-tmp/vax-pass1.imp"
goto L_0051;
#line 855 "regression-compile-tmp/vax-pass1.imp"
L_0052:;
                                                                //    856        abandon(3) %IF gmax > gmin
#line 856 "regression-compile-tmp/vax-pass1.imp"
if (((GMAX) <= (GMIN))) goto L_0056;
#line 856 "regression-compile-tmp/vax-pass1.imp"
ABANDON(3);
#line 856 "regression-compile-tmp/vax-pass1.imp"
L_0056:;
                                                                //    857  
                                                                //    858        %RESULT = link
#line 858 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return LINK;
                                                                //    859  
                                                                //    860        %ROUTINE set cell(%INTEGER g, tt)
#line 860 "regression-compile-tmp/vax-pass1.imp"
void SETCELL( int G, int TT )
#line 860 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //    861  
                                                                //    862           !add the cell to the grammar, combining common tails
                                                                //    863  
                                                                //    864           %WHILE p # gmax %CYCLE
#line 864 "regression-compile-tmp/vax-pass1.imp"
L_0057:;
#line 864 "regression-compile-tmp/vax-pass1.imp"
if (((P) == (GMAX))) goto L_0058;
                                                                //    865              p = p+1
#line 865 "regression-compile-tmp/vax-pass1.imp"
P = (((int)(P)) + (1));
                                                                //    866              %IF glink(p) = link %AND gram(p) = g %START
#line 866 "regression-compile-tmp/vax-pass1.imp"
if (((GLINK[P]) != (LINK))) goto L_005a;
#line 866 "regression-compile-tmp/vax-pass1.imp"
if (((GRAM[P]) != (G))) goto L_005a;
                                                                //    867                 %IF tt < 0 %OR (gram(p+1) = tt %AND glink(p+1)=ap) %START
#line 867 "regression-compile-tmp/vax-pass1.imp"
if (((TT) < (0))) goto L_005b;
#line 867 "regression-compile-tmp/vax-pass1.imp"
if (((GRAM[(((int)(P)) + (1))]) != (TT))) goto L_005c;
#line 867 "regression-compile-tmp/vax-pass1.imp"
if (((GLINK[(((int)(P)) + (1))]) != (AP))) goto L_005c;
#line 867 "regression-compile-tmp/vax-pass1.imp"
L_005b:;
                                                                //    868                    link = p;                    !already there
#line 868 "regression-compile-tmp/vax-pass1.imp"
LINK = P;
                                                                //    869                    %RETURN
#line 869 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    870                 %FINISH
#line 870 "regression-compile-tmp/vax-pass1.imp"
L_005c:;
                                                                //    871              %FINISH
#line 871 "regression-compile-tmp/vax-pass1.imp"
L_005a:;
                                                                //    872           %REPEAT
#line 872 "regression-compile-tmp/vax-pass1.imp"
goto L_0057;
#line 872 "regression-compile-tmp/vax-pass1.imp"
L_0058:;
                                                                //    873  
                                                                //    874           !add a new cell
                                                                //    875  
                                                                //    876           gmax = gmax+1
#line 876 "regression-compile-tmp/vax-pass1.imp"
GMAX = (((int)(GMAX)) + (1));
                                                                //    877           gram(gmax) = g
#line 877 "regression-compile-tmp/vax-pass1.imp"
GRAM[GMAX] = G;
                                                                //    878           glink(gmax) = link
#line 878 "regression-compile-tmp/vax-pass1.imp"
GLINK[GMAX] = LINK;
                                                                //    879           link = gmax
#line 879 "regression-compile-tmp/vax-pass1.imp"
LINK = GMAX;
                                                                //    880  
                                                                //    881           %IF tt >= 0 %START;             ! set type cell
#line 881 "regression-compile-tmp/vax-pass1.imp"
if (((TT) < (0))) goto L_005d;
                                                                //    882              gmax = gmax+1
#line 882 "regression-compile-tmp/vax-pass1.imp"
GMAX = (((int)(GMAX)) + (1));
                                                                //    883              gram(gmax) = tt
#line 883 "regression-compile-tmp/vax-pass1.imp"
GRAM[GMAX] = TT;
                                                                //    884              glink(gmax) = ap
#line 884 "regression-compile-tmp/vax-pass1.imp"
GLINK[GMAX] = AP;
                                                                //    885           %FINISH
#line 885 "regression-compile-tmp/vax-pass1.imp"
L_005d:;
                                                                //    886  
                                                                //    887           p = gmax
#line 887 "regression-compile-tmp/vax-pass1.imp"
P = GMAX;
                                                                //    888        %END
#line 888 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SETCELL at level 4
                                                                //    889  
                                                                //    890        %ROUTINE class(%RECORD(tagfm)%NAME v);  !imp77:
#line 890 "regression-compile-tmp/vax-pass1.imp"
void CLASS(  TAGFM /*name*/*V )
#line 890 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //    891           %CONSTINTEGER err    = 89
                                                                //    892           %CONSTINTEGER rtp    = 100
                                                                //    893           %CONSTINTEGER fnp    = 101
                                                                //    894           %CONSTINTEGER mapp   = 102
                                                                //    895           %CONSTINTEGER predp  = 103
                                                                //    896           %CONSTINTEGERARRAY class map(0:15) = %C
#line 896 "regression-compile-tmp/vax-pass1.imp"
const int CLASSMAP[16] = { 89, 1764, 247, 89, 89, 89, 89, (-100), (-101), (-102), (-103), 89, 214, 89, 229, 89,  };
                                                                //    897           err,1764, 247, err(4), -rtp, -fnp, -mapp, -predp, err, 214,
                                                                //    898           err, 229, err
                                                                //    899           %INTEGER tags, type, form
#line 899 "regression-compile-tmp/vax-pass1.imp"
int TAGS;
#line 899 "regression-compile-tmp/vax-pass1.imp"
int TYPE;
#line 899 "regression-compile-tmp/vax-pass1.imp"
int FORM;
                                                                //    900           ap = 0
#line 900 "regression-compile-tmp/vax-pass1.imp"
AP = 0;
                                                                //    901           tags = v_flags
#line 901 "regression-compile-tmp/vax-pass1.imp"
TAGS = V->FLAGS;
                                                                //    902           type = tags>>4&7;  form = tags&15
#line 902 "regression-compile-tmp/vax-pass1.imp"
TYPE = (((int)((((unsigned int)(TAGS)) >> (4)))) & (7));
#line 902 "regression-compile-tmp/vax-pass1.imp"
FORM = ((TAGS) & (15));
                                                                //    903           tp = v_format<<3!type
#line 903 "regression-compile-tmp/vax-pass1.imp"
TP = ((((V->FORMAT) << (3))) | (TYPE));
                                                                //    904           c = class map(form)
#line 904 "regression-compile-tmp/vax-pass1.imp"
C = CLASSMAP[FORM];
                                                                //    905           c = 208 %AND tp = 0 %IF type = 0 %AND form = 2;  !%NAME
#line 905 "regression-compile-tmp/vax-pass1.imp"
if (((TYPE) != (0))) goto L_005e;
#line 905 "regression-compile-tmp/vax-pass1.imp"
if (((FORM) != (2))) goto L_005e;
#line 905 "regression-compile-tmp/vax-pass1.imp"
C = 208;
#line 905 "regression-compile-tmp/vax-pass1.imp"
TP = 0;
#line 905 "regression-compile-tmp/vax-pass1.imp"
L_005e:;
                                                                //    906           ap = v_app %IF tags&parameters # 0
#line 906 "regression-compile-tmp/vax-pass1.imp"
if (((((TAGS) & (4096))) == (0))) goto L_005f;
#line 906 "regression-compile-tmp/vax-pass1.imp"
AP = V->APP;
#line 906 "regression-compile-tmp/vax-pass1.imp"
L_005f:;
                                                                //    907        %END
#line 907 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CLASS at level 4
                                                                //    908     %END
#line 908 "regression-compile-tmp/vax-pass1.imp"
/*_imp_signal(8, 4, 0, "");*/
fprintf(stderr, "%%RESULT missing in %s in file %s:%d\n", __PRETTY_FUNCTION__, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block GAPP at level 3
                                                                //    909  
                                                                //    910  %ROUTINE delete names(%INTEGER quiet)
#line 910 "regression-compile-tmp/vax-pass1.imp"
void DELETENAMES( int QUIET )
#line 910 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //    911     %INTEGER flags
#line 911 "regression-compile-tmp/vax-pass1.imp"
int FLAGS;
                                                                //    912     %RECORD(tagfm)%NAME tx;      !imp77:
#line 912 "regression-compile-tmp/vax-pass1.imp"
 TAGFM /*name*/*TX;
                                                                //    913     %WHILE tmax > tbase %CYCLE
#line 913 "regression-compile-tmp/vax-pass1.imp"
L_0060:;
#line 913 "regression-compile-tmp/vax-pass1.imp"
if (((TMAX) <= (TBASE))) goto L_0061;
                                                                //    914        x = tmax;  tmax = tmax-1
#line 914 "regression-compile-tmp/vax-pass1.imp"
X = TMAX;
#line 914 "regression-compile-tmp/vax-pass1.imp"
TMAX = (((int)(TMAX)) - (1));
                                                                //    915        tx == tag(x)
#line 915 "regression-compile-tmp/vax-pass1.imp"
TX = &TAG[X];
                                                                //    916        flags = tx_flags
#line 916 "regression-compile-tmp/vax-pass1.imp"
FLAGS = TX->FLAGS;
                                                                //    917        fault(20) %IF flags&spec # 0 %and flags&own bit = 0
#line 917 "regression-compile-tmp/vax-pass1.imp"
if (((((FLAGS) & (128))) == (0))) goto L_0063;
#line 917 "regression-compile-tmp/vax-pass1.imp"
if (((((FLAGS) & (512))) != (0))) goto L_0063;
#line 917 "regression-compile-tmp/vax-pass1.imp"
FAULT(20);
#line 917 "regression-compile-tmp/vax-pass1.imp"
L_0063:;
                                                                //    918                 {spec with no definition & not external}
                                                                //    919        %IF flags&used bit = 0 %AND level > 0 %AND list <= 0 %START
#line 919 "regression-compile-tmp/vax-pass1.imp"
if (((((FLAGS) & (32768))) != (0))) goto L_0064;
#line 919 "regression-compile-tmp/vax-pass1.imp"
if (((LEVEL) <= (0))) goto L_0064;
#line 919 "regression-compile-tmp/vax-pass1.imp"
if (((LIST) > (0))) goto L_0064;
                                                                //    920           fault(-3) %IF quiet = 0;          !unused
#line 920 "regression-compile-tmp/vax-pass1.imp"
if (((QUIET) != (0))) goto L_0065;
#line 920 "regression-compile-tmp/vax-pass1.imp"
FAULT((-3));
#line 920 "regression-compile-tmp/vax-pass1.imp"
L_0065:;
                                                                //    921        %FINISH
#line 921 "regression-compile-tmp/vax-pass1.imp"
L_0064:;
                                                                //    922        dict(tx_text) = tx_link
#line 922 "regression-compile-tmp/vax-pass1.imp"
DICT[(((int)(TX->TEXT)) - (1))] = TX->LINK;
                                                                //    923     %REPEAT
#line 923 "regression-compile-tmp/vax-pass1.imp"
goto L_0060;
#line 923 "regression-compile-tmp/vax-pass1.imp"
L_0061:;
                                                                //    924  %END
#line 924 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DELETENAMES at level 3
                                                                //    925  
                                                                //    926  %ROUTINE analyse
#line 926 "regression-compile-tmp/vax-pass1.imp"
void ANALYSE( void )
#line 926 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //    927  
                                                                //    928     %CONSTINTEGER order bits = 16_3000, order bit = 16_1000
                                                                //    929     %CONSTINTEGER escape     = 16_1000
                                                                //    930     %INTEGER strp, mark, flags, prot err, k, s, c
#line 930 "regression-compile-tmp/vax-pass1.imp"
int STRP;
#line 930 "regression-compile-tmp/vax-pass1.imp"
int MARK;
#line 930 "regression-compile-tmp/vax-pass1.imp"
int FLAGS;
#line 930 "regression-compile-tmp/vax-pass1.imp"
int PROTERR;
#line 930 "regression-compile-tmp/vax-pass1.imp"
int K;
#line 930 "regression-compile-tmp/vax-pass1.imp"
int S;
#line 930 "regression-compile-tmp/vax-pass1.imp"
int C;
                                                                //    931     %OWNINTEGER key = 0
#line 931 "regression-compile-tmp/vax-pass1.imp"
static int KEY = 0;
                                                                //    932     {GT:%SHORT}%INTEGER node;      !imp77:
#line 932 "regression-compile-tmp/vax-pass1.imp"
int NODE;
                                                                //    933     {GT:%SHORT}%INTEGERNAME z;     !imp77:
#line 933 "regression-compile-tmp/vax-pass1.imp"
int /*name*/*Z;
                                                                //    934     %RECORD(arfm)%NAME arp;  !imp77:
#line 934 "regression-compile-tmp/vax-pass1.imp"
 ARFM /*name*/*ARP;
                                                                //    935     %SWITCH act(actions:phrasal), paction(0:15)
#line 935 "regression-compile-tmp/vax-pass1.imp"
static int sw3_ACT_idx;
static const void * /*SWITCH*/ sw3_ACT[21] = { &&sw3_ACT_180, &&sw3_ACT_181, &&sw3_ACT_182, &&sw3_ACT_183, &&sw3_ACT_184, &&sw3_ACT_185, &&sw3_ACT_186, &&sw3_ACT_187, &&sw3_ACT_188, &&sw3_ACT_189, &&sw3_ACT_190, &&sw3_ACT_191, &&sw3_ACT_192, &&sw3_ACT_193, &&sw3_ACT_194, &&sw3_ACT_195, &&sw3_ACT_196, &&sw3_ACT_197, &&sw3_ACT_198, &&sw3_ACT_199, &&sw3_ACT_200,  };
#line 935 "regression-compile-tmp/vax-pass1.imp"
static int sw4_PACTION_idx;
static const void * /*SWITCH*/ sw4_PACTION[16] = { &&sw4_PACTION_0, &&sw4_PACTION_1, &&sw4_PACTION_2, &&sw4_PACTION_3, &&sw4_PACTION_4, &&sw4_PACTION_5, &&sw4_PACTION_6, &&sw4_PACTION_7, &&sw4_PACTION_8, &&sw4_PACTION_9, &&sw4_PACTION_10, &&sw4_PACTION_11, &&sw4_PACTION_12, &&sw4_PACTION_13, &&sw4_PACTION_14, &&sw4_PACTION_15,  };
                                                                //    936  
                                                                //    937     %ROUTINE trace analysis
#line 937 "regression-compile-tmp/vax-pass1.imp"
void TRACEANALYSIS( void )
#line 937 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //    938        !diagnostic trace routine (diagnose&1 # 0)
                                                                //    939        %INTEGER a
#line 939 "regression-compile-tmp/vax-pass1.imp"
int A;
                                                                //    940        %ROUTINE show(%INTEGER a)
#line 940 "regression-compile-tmp/vax-pass1.imp"
void SHOW( int A )
#line 940 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //    941           %IF 0 < a < 130 %START
#line 941 "regression-compile-tmp/vax-pass1.imp"
if ((((0) >= (A))) || (((A) >= (130)))) goto L_0066;
                                                                //    942              space
#line 942 "regression-compile-tmp/vax-pass1.imp"
_imp_SPACE();
                                                                //    943              printstring(text(a))
#line 943 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(TEXT[A]);
                                                                //    944           %FINISH %ELSE write(a, 3)
#line 944 "regression-compile-tmp/vax-pass1.imp"
goto L_0067;
#line 944 "regression-compile-tmp/vax-pass1.imp"
L_0066:;
#line 944 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(A, 3);
#line 944 "regression-compile-tmp/vax-pass1.imp"
L_0067:;
                                                                //    945        %END
#line 945 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SHOW at level 5
                                                                //    946        %OWNINTEGER la1=0, la2=0, lsa=0, lt=0
#line 946 "regression-compile-tmp/vax-pass1.imp"
static int LA1 = 0;
#line 946 "regression-compile-tmp/vax-pass1.imp"
static int LA2 = 0;
#line 946 "regression-compile-tmp/vax-pass1.imp"
static int LSA = 0;
#line 946 "regression-compile-tmp/vax-pass1.imp"
static int LT = 0;
                                                                //    947        newline %IF mon pos # pos %AND sym # nl
#line 947 "regression-compile-tmp/vax-pass1.imp"
if (((MONPOS) == (POS))) goto L_0068;
#line 947 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) == (10))) goto L_0068;
#line 947 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
#line 947 "regression-compile-tmp/vax-pass1.imp"
L_0068:;
                                                                //    948        mon pos = pos
#line 948 "regression-compile-tmp/vax-pass1.imp"
MONPOS = POS;
                                                                //    949        write(g, 3)
#line 949 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(G, 3);
                                                                //    950        space
#line 950 "regression-compile-tmp/vax-pass1.imp"
_imp_SPACE();
                                                                //    951        printstring(text(class))
#line 951 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(TEXT[CLASS]);
                                                                //    952        printsymbol('"') %IF gg&trans bit # 0
#line 952 "regression-compile-tmp/vax-pass1.imp"
if (((((GG) & (16384))) == (0))) goto L_0069;
#line 952 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(34);
#line 952 "regression-compile-tmp/vax-pass1.imp"
L_0069:;
                                                                //    953        a = gg>>8&15
#line 953 "regression-compile-tmp/vax-pass1.imp"
A = (((int)((((unsigned int)(GG)) >> (8)))) & (15));
                                                                //    954        %IF a # 0 %START
#line 954 "regression-compile-tmp/vax-pass1.imp"
if (((A) == (0))) goto L_006a;
                                                                //    955           printsymbol('{')
#line 955 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(123);
                                                                //    956           write(a, 0)
#line 956 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(A, 0);
                                                                //    957           printsymbol('}')
#line 957 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(125);
                                                                //    958        %FINISH
#line 958 "regression-compile-tmp/vax-pass1.imp"
L_006a:;
                                                                //    959        %IF atom1 # la1 %OR atom2 # la2 %OR lsa # subatom %C
#line 959 "regression-compile-tmp/vax-pass1.imp"
if (((ATOM1) != (LA1))) goto L_0062;
#line 959 "regression-compile-tmp/vax-pass1.imp"
if (((ATOM2) != (LA2))) goto L_0062;
#line 959 "regression-compile-tmp/vax-pass1.imp"
if (((LSA) != (SUBATOM))) goto L_0062;
#line 959 "regression-compile-tmp/vax-pass1.imp"
if (((LT) == (TYPE))) goto L_006b;
#line 959 "regression-compile-tmp/vax-pass1.imp"
L_0062:;
                                                                //    960                        %OR lt # type %START
                                                                //    961           printstring(" [")
#line 961 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal(" ["));
                                                                //    962           la1 = atom1
#line 962 "regression-compile-tmp/vax-pass1.imp"
LA1 = ATOM1;
                                                                //    963           show(la1)
#line 963 "regression-compile-tmp/vax-pass1.imp"
SHOW(LA1);
                                                                //    964           la2 = atom2
#line 964 "regression-compile-tmp/vax-pass1.imp"
LA2 = ATOM2;
                                                                //    965           show(la2)
#line 965 "regression-compile-tmp/vax-pass1.imp"
SHOW(LA2);
                                                                //    966           lsa = subatom
#line 966 "regression-compile-tmp/vax-pass1.imp"
LSA = SUBATOM;
                                                                //    967           write(lsa, 3)
#line 967 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(LSA, 3);
                                                                //    968           lt = type
#line 968 "regression-compile-tmp/vax-pass1.imp"
LT = TYPE;
                                                                //    969           write(lt, 5)
#line 969 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(LT, 5);
                                                                //    970           printsymbol(']')
#line 970 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(93);
                                                                //    971        %FINISH
#line 971 "regression-compile-tmp/vax-pass1.imp"
L_006b:;
                                                                //    972        newline
#line 972 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
                                                                //    973     %END
#line 973 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block TRACEANALYSIS at level 4
                                                                //    974  
                                                                //    975  %ROUTINE read sym
#line 975 "regression-compile-tmp/vax-pass1.imp"
void READSYM( void )
#line 975 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //    976  
                                                                //    977  %routine get next source char
#line 977 "regression-compile-tmp/vax-pass1.imp"
void GETNEXTSOURCECHAR( void )
#line 977 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //    978    %externalroutinespec readrecord(%integername len, %bytename b)
#line 978 "regression-compile-tmp/vax-pass1.imp"
extern void READRECORD( int /*name*/*LEN, unsigned char /*name*/*B );
                                                                //    979     %owninteger len=0
#line 979 "regression-compile-tmp/vax-pass1.imp"
static int LEN = 0;
                                                                //    980     %if sym = nl %start
#line 980 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (10))) goto L_006c;
                                                                //    981        current char == char(1)
#line 981 "regression-compile-tmp/vax-pass1.imp"
CURRENTCHAR = &CHAR[1];
                                                                //    982        readrecord (len, current char)                    ;! BUG??? readrecord reads from tanks but there are none to be read from in pass1.
#line 982 "regression-compile-tmp/vax-pass1.imp"
READRECORD(&LEN, CURRENTCHAR);
                                                                //    983        len = len + 1
#line 983 "regression-compile-tmp/vax-pass1.imp"
LEN = (((int)(LEN)) + (1));
                                                                //    984        char(len) = nl
#line 984 "regression-compile-tmp/vax-pass1.imp"
CHAR[LEN] = 10;
                                                                //    985        pos = 0
#line 985 "regression-compile-tmp/vax-pass1.imp"
POS = 0;
                                                                //    986        column = 0;           !???????????????????????????????????
#line 986 "regression-compile-tmp/vax-pass1.imp"
COLUMN = 0;
                                                                //    987     %finish
#line 987 "regression-compile-tmp/vax-pass1.imp"
L_006c:;
                                                                //    988     pos = pos + 1
#line 988 "regression-compile-tmp/vax-pass1.imp"
POS = (((int)(POS)) + (1));
                                                                //    989     sym = current char
#line 989 "regression-compile-tmp/vax-pass1.imp"
SYM = *CURRENTCHAR;
                                                                //    990  !!   current char == BYTEINTEGER(ADDR(current char)+1) ; !! WAS  ++ 1
                                                                //    991     current char == current char++1
#line 991 "regression-compile-tmp/vax-pass1.imp"
CURRENTCHAR = /*F_VOID*/((CURRENTCHAR) + (1));
                                                                //    992     printsymbol(sym) %if list <= 0
#line 992 "regression-compile-tmp/vax-pass1.imp"
if (((LIST) > (0))) goto L_006d;
#line 992 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(SYM);
#line 992 "regression-compile-tmp/vax-pass1.imp"
L_006d:;
                                                                //    993     column = column + 1
#line 993 "regression-compile-tmp/vax-pass1.imp"
COLUMN = (((int)(COLUMN)) + (1));
                                                                //    994  %end
#line 994 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block GETNEXTSOURCECHAR at level 5
                                                                //    995  
                                                                //    996  %CONSTBYTEINTEGERARRAY mapped(0:127) = %C
#line 996 "regression-compile-tmp/vax-pass1.imp"
const unsigned char MAPPED[128] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 33, 34, 35, 36, 1, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 2, 124, 125, 126, 0,  };
                                                                //    997     0,  0,  0,  0,   0,  0,  0,  0,    0,  0, nl,  0,  3 ,  0,  0,  0,
                                                                //    998     0,  0,  0,  0,   0,  0,  0,  0,    0,  0,  0,  0,   0,  0,  0,  0,
                                                                //    999    0 ,'!','"','#', '$', 1 ,'&', 39,  '(',')','*','+', ',','-','.','/',
                                                                //   1000   '0','1','2','3', '4','5','6','7',  '8','9',':',';', '<','=','>','?',
                                                                //   1001   '@','A','B','C', 'D','E','F','G',  'H','I','J','K', 'L','M','N','O',
                                                                //   1002   'P','Q','R','S', 'T','U','V','W',  'X','Y','Z','[', '\',']','^','_',
                                                                //   1003   '`','A','B','C', 'D','E','F','G',  'H','I','J','K', 'L','M','N','O',
                                                                //   1004   'P','Q','R','S', 'T','U','V','W',  'X','Y','Z', 2 , '|','}','~',  0
                                                                //   1005  
                                                                //   1006  !!   0 = space
                                                                //   1007  !!   1 = %
                                                                //   1008  !!   2 = {
                                                                //   1009  !!   3 = ff
                                                                //   1010  !!   other values represent themselves
                                                                //   1011  
                                                                //   1012     %IF sym = nl %START
#line 1012 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (10))) goto L_006e;
                                                                //   1013  s1:   lines = lines+1
#line 1013 "regression-compile-tmp/vax-pass1.imp"
U_1005:;
#line 1013 "regression-compile-tmp/vax-pass1.imp"
LINES = (((int)(LINES)) + (1));
                                                                //   1014        printsymbol(end mark) %if end mark # 0
#line 1014 "regression-compile-tmp/vax-pass1.imp"
if (((ENDMARK) == (0))) goto L_006f;
#line 1014 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(ENDMARK);
#line 1014 "regression-compile-tmp/vax-pass1.imp"
L_006f:;
                                                                //   1015  s11:  pos = 0;  pos1 = 0;  pos2 = 0;  margin = 0;  column = 0
#line 1015 "regression-compile-tmp/vax-pass1.imp"
U_1006:;
#line 1015 "regression-compile-tmp/vax-pass1.imp"
POS = 0;
#line 1015 "regression-compile-tmp/vax-pass1.imp"
POS1 = 0;
#line 1015 "regression-compile-tmp/vax-pass1.imp"
POS2 = 0;
#line 1015 "regression-compile-tmp/vax-pass1.imp"
MARGIN = 0;
#line 1015 "regression-compile-tmp/vax-pass1.imp"
COLUMN = 0;
                                                                //   1016        end mark = 0
#line 1016 "regression-compile-tmp/vax-pass1.imp"
ENDMARK = 0;
                                                                //   1017        %IF list <= 0 %START
#line 1017 "regression-compile-tmp/vax-pass1.imp"
if (((LIST) > (0))) goto L_0070;
                                                                //   1018           %IF include # 0 %START
#line 1018 "regression-compile-tmp/vax-pass1.imp"
if (((INCLUDE) == (0))) goto L_0071;
                                                                //   1019              printstring(" &");  write(lines, -4)
#line 1019 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal(" &"));
#line 1019 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(LINES, (-4));
                                                                //   1020           %FINISH %ELSE  write(lines, 5)
#line 1020 "regression-compile-tmp/vax-pass1.imp"
goto L_0072;
#line 1020 "regression-compile-tmp/vax-pass1.imp"
L_0071:;
#line 1020 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(LINES, 5);
#line 1020 "regression-compile-tmp/vax-pass1.imp"
L_0072:;
                                                                //   1021           csym = cont;  printsymbol(csym)
#line 1021 "regression-compile-tmp/vax-pass1.imp"
CSYM = CONT;
#line 1021 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(CSYM);
                                                                //   1022           space
#line 1022 "regression-compile-tmp/vax-pass1.imp"
_imp_SPACE();
                                                                //   1023           %IF error margin # 0 %START
#line 1023 "regression-compile-tmp/vax-pass1.imp"
if (((ERRORMARGIN) == (0))) goto L_0073;
                                                                //   1024              lines = lines-1
#line 1024 "regression-compile-tmp/vax-pass1.imp"
LINES = (((int)(LINES)) - (1));
                                                                //   1025              spaces(error margin)
#line 1025 "regression-compile-tmp/vax-pass1.imp"
_imp_SPACES(ERRORMARGIN);
                                                                //   1026              error margin = 0
#line 1026 "regression-compile-tmp/vax-pass1.imp"
ERRORMARGIN = 0;
                                                                //   1027              %IF error sym # 0 %START
#line 1027 "regression-compile-tmp/vax-pass1.imp"
if (((ERRORSYM) == (0))) goto L_0074;
                                                                //   1028                 printsymbol(error sym)
#line 1028 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSYMBOL(ERRORSYM);
                                                                //   1029                 pos = 1;  char(1) = error sym
#line 1029 "regression-compile-tmp/vax-pass1.imp"
POS = 1;
#line 1029 "regression-compile-tmp/vax-pass1.imp"
CHAR[1] = ERRORSYM;
                                                                //   1030                 sym = error sym;  error sym = 0
#line 1030 "regression-compile-tmp/vax-pass1.imp"
SYM = ERRORSYM;
#line 1030 "regression-compile-tmp/vax-pass1.imp"
ERRORSYM = 0;
                                                                //   1031                 ->s5
#line 1031 "regression-compile-tmp/vax-pass1.imp"
goto U_1007;
                                                                //   1032              %FINISH
#line 1032 "regression-compile-tmp/vax-pass1.imp"
L_0074:;
                                                                //   1033           %FINISH
#line 1033 "regression-compile-tmp/vax-pass1.imp"
L_0073:;
                                                                //   1034        %FINISH
#line 1034 "regression-compile-tmp/vax-pass1.imp"
L_0070:;
                                                                //   1035  s2:   symtype = 1
#line 1035 "regression-compile-tmp/vax-pass1.imp"
U_1008:;
#line 1035 "regression-compile-tmp/vax-pass1.imp"
SYMTYPE = 1;
                                                                //   1036     %FINISH
#line 1036 "regression-compile-tmp/vax-pass1.imp"
L_006e:;
                                                                //   1037  s3:get next source char
#line 1037 "regression-compile-tmp/vax-pass1.imp"
U_1009:;
#line 1037 "regression-compile-tmp/vax-pass1.imp"
GETNEXTSOURCECHAR();
                                                                //   1038  s5:%IF sym # nl %START
#line 1038 "regression-compile-tmp/vax-pass1.imp"
U_1007:;
#line 1038 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) == (10))) goto L_0075;
                                                                //   1039        %RETURN %IF quote # 0;                     !dont alter strings
#line 1039 "regression-compile-tmp/vax-pass1.imp"
if (((QUOTE) == (0))) goto L_0076;
#line 1039 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1039 "regression-compile-tmp/vax-pass1.imp"
L_0076:;
                                                                //   1040        sym = mapped(sym&127)
#line 1040 "regression-compile-tmp/vax-pass1.imp"
SYM = MAPPED[((SYM) & (127))];
                                                                //   1041        %IF sym <= 3 %START;                       !special symbol
#line 1041 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) > (3))) goto L_0077;
                                                                //   1042           ->s2 %IF sym = 0;                       !space (or dubious control)
#line 1042 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (0))) goto L_0078;
#line 1042 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
#line 1042 "regression-compile-tmp/vax-pass1.imp"
L_0078:;
                                                                //   1043           symtype = 2 %AND ->s3 %IF sym = 1;      !%
#line 1043 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (1))) goto L_0079;
#line 1043 "regression-compile-tmp/vax-pass1.imp"
SYMTYPE = 2;
#line 1043 "regression-compile-tmp/vax-pass1.imp"
goto U_1009;
#line 1043 "regression-compile-tmp/vax-pass1.imp"
L_0079:;
                                                                //   1044           cont = '+' %AND ->s11 %IF sym = 3;      !ff
#line 1044 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (3))) goto L_007a;
#line 1044 "regression-compile-tmp/vax-pass1.imp"
CONT = 43;
#line 1044 "regression-compile-tmp/vax-pass1.imp"
goto U_1006;
#line 1044 "regression-compile-tmp/vax-pass1.imp"
L_007a:;
                                                                //   1045           !must be {
                                                                //   1046           %CYCLE
#line 1046 "regression-compile-tmp/vax-pass1.imp"
L_007b:;
                                                                //   1047              get next source char
#line 1047 "regression-compile-tmp/vax-pass1.imp"
GETNEXTSOURCECHAR();
                                                                //   1048              ->s3 %IF sym = '}'
#line 1048 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (125))) goto L_007e;
#line 1048 "regression-compile-tmp/vax-pass1.imp"
goto U_1009;
#line 1048 "regression-compile-tmp/vax-pass1.imp"
L_007e:;
                                                                //   1049              ->s4 %IF sym = nl
#line 1049 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (10))) goto L_007f;
#line 1049 "regression-compile-tmp/vax-pass1.imp"
goto U_100a;
#line 1049 "regression-compile-tmp/vax-pass1.imp"
L_007f:;
                                                                //   1050           %REPEAT
#line 1050 "regression-compile-tmp/vax-pass1.imp"
goto L_007b;
                                                                //   1051        %FINISH
#line 1051 "regression-compile-tmp/vax-pass1.imp"
L_0077:;
                                                                //   1052        key = kdict(sym)
#line 1052 "regression-compile-tmp/vax-pass1.imp"
KEY = (KDICT-32)[SYM];
                                                                //   1053        %IF key&3 = 0 %AND symtype = 2 %START;            !keyword
#line 1053 "regression-compile-tmp/vax-pass1.imp"
if (((((KEY) & (3))) != (0))) goto L_0080;
#line 1053 "regression-compile-tmp/vax-pass1.imp"
if (((SYMTYPE) != (2))) goto L_0080;
                                                                //   1054           %IF sym = 'C' %AND current char = nl %START;     !%C...
#line 1054 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (67))) goto L_007c;
#line 1054 "regression-compile-tmp/vax-pass1.imp"
if (((*CURRENTCHAR) != (10))) goto L_007c;
                                                                //   1055              get next source char;  cont = '+';  ->s1
#line 1055 "regression-compile-tmp/vax-pass1.imp"
GETNEXTSOURCECHAR();
#line 1055 "regression-compile-tmp/vax-pass1.imp"
CONT = 43;
#line 1055 "regression-compile-tmp/vax-pass1.imp"
goto U_1005;
                                                                //   1056           %FINISH
#line 1056 "regression-compile-tmp/vax-pass1.imp"
L_007c:;
                                                                //   1057        %ELSE
#line 1057 "regression-compile-tmp/vax-pass1.imp"
goto L_0081;
#line 1057 "regression-compile-tmp/vax-pass1.imp"
L_0080:;
                                                                //   1058           symtype = key&3-2
#line 1058 "regression-compile-tmp/vax-pass1.imp"
SYMTYPE = (((int)(((KEY) & (3)))) - (2));
                                                                //   1059        %FINISH
#line 1059 "regression-compile-tmp/vax-pass1.imp"
L_0081:;
                                                                //   1060        %RETURN
#line 1060 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1061     %FINISH
#line 1061 "regression-compile-tmp/vax-pass1.imp"
L_0075:;
                                                                //   1062  s4:cont = '+'
#line 1062 "regression-compile-tmp/vax-pass1.imp"
U_100a:;
#line 1062 "regression-compile-tmp/vax-pass1.imp"
CONT = 43;
                                                                //   1063     symtype = quote
#line 1063 "regression-compile-tmp/vax-pass1.imp"
SYMTYPE = QUOTE;
                                                                //   1064  %END
#line 1064 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block READSYM at level 4
                                                                //   1065  
                                                                //   1066  %INTEGERFN format selected
#line 1066 "regression-compile-tmp/vax-pass1.imp"
int FORMATSELECTED( void )
#line 1066 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   1067     format list = tag(format)_app;          !number of names
#line 1067 "regression-compile-tmp/vax-pass1.imp"
FORMATLIST = TAG[FORMAT].APP;
                                                                //   1068     %IF format list < 0 %START;         !forward ref
#line 1068 "regression-compile-tmp/vax-pass1.imp"
if (((FORMATLIST) >= (0))) goto L_0082;
                                                                //   1069        atom1 = error+22
#line 1069 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 32790;
                                                                //   1070        %RESULT = 0
#line 1070 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //   1071     %FINISH
#line 1071 "regression-compile-tmp/vax-pass1.imp"
L_0082:;
                                                                //   1072     %IF sym = '_' %START
#line 1072 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (95))) goto L_0083;
                                                                //   1073        escape class = esc rec
#line 1073 "regression-compile-tmp/vax-pass1.imp"
ESCAPECLASS = 255;
                                                                //   1074        search base = tag(format)_format
#line 1074 "regression-compile-tmp/vax-pass1.imp"
SEARCHBASE = TAG[FORMAT].FORMAT;
                                                                //   1075     %FINISH
#line 1075 "regression-compile-tmp/vax-pass1.imp"
L_0083:;
                                                                //   1076     %RESULT = 1
#line 1076 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return 1;
                                                                //   1077  %END
#line 1077 "regression-compile-tmp/vax-pass1.imp"
} // End of block FORMATSELECTED at level 4
                                                                //   1078  
                                                                //   1079  %ROUTINE code atom(%INTEGER target)
#line 1079 "regression-compile-tmp/vax-pass1.imp"
void CODEATOM( int TARGET )
#line 1079 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   1080     %INTEGER dbase, da
#line 1080 "regression-compile-tmp/vax-pass1.imp"
int DBASE;
#line 1080 "regression-compile-tmp/vax-pass1.imp"
int DA;
                                                                //   1081     %INTEGER base, n, mul, pend quote
#line 1081 "regression-compile-tmp/vax-pass1.imp"
int BASE;
#line 1081 "regression-compile-tmp/vax-pass1.imp"
int N;
#line 1081 "regression-compile-tmp/vax-pass1.imp"
int MUL;
#line 1081 "regression-compile-tmp/vax-pass1.imp"
int PENDQUOTE;
                                                                //   1082     %INTEGER j,k,l, pt
#line 1082 "regression-compile-tmp/vax-pass1.imp"
int J;
#line 1082 "regression-compile-tmp/vax-pass1.imp"
int K;
#line 1082 "regression-compile-tmp/vax-pass1.imp"
int L;
#line 1082 "regression-compile-tmp/vax-pass1.imp"
int PT;
                                                                //   1083  
                                                                //   1084     %ROUTINE lookup(%INTEGER d)
#line 1084 "regression-compile-tmp/vax-pass1.imp"
void LOOKUP( int D )
#line 1084 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   1085        %CONSTINTEGER magic = 6700421
                                                                //   1086        %INTEGER new name, vid, k1, k2, form
#line 1086 "regression-compile-tmp/vax-pass1.imp"
int NEWNAME;
#line 1086 "regression-compile-tmp/vax-pass1.imp"
int VID;
#line 1086 "regression-compile-tmp/vax-pass1.imp"
int K1;
#line 1086 "regression-compile-tmp/vax-pass1.imp"
int K2;
#line 1086 "regression-compile-tmp/vax-pass1.imp"
int FORM;
                                                                //   1087        %RECORD(tagfm)%NAME t;      !imp77:
#line 1087 "regression-compile-tmp/vax-pass1.imp"
 TAGFM /*name*/*T;
                                                                //   1088        %INTEGER new
#line 1088 "regression-compile-tmp/vax-pass1.imp"
int NEW;
                                                                //   1089  
                                                                //   1090        !first locate the text of the name
                                                                //   1091  
                                                                //   1092        new = addr(dict(dmax+1))
#line 1092 "regression-compile-tmp/vax-pass1.imp"
NEW = _imp_ADDR(&DICT[(((int)((((int)(DMAX)) + (1)))) - (1))]);
                                                                //   1093  
                                                                //   1094              K2 = hash value*magic
#line 1094 "regression-compile-tmp/vax-pass1.imp"
K2 = (((int)(HASHVALUE)) * (6700421));
                                                                //   1095  
                                                                //   1096              !*******************************************************
                                                                //   1097  
                                                                //   1098        k2 = k2>>(32-2*name bits)!1;         !IMP77:
#line 1098 "regression-compile-tmp/vax-pass1.imp"
K2 = (((int)((((unsigned int)(K2)) >> (((32) - ((int)((((int)(2)) * (11))))))))) | (1));
                                                                //   1099        k1 = k2>>name bits;                       !giving name bits
#line 1099 "regression-compile-tmp/vax-pass1.imp"
K1 = (int)((((unsigned int)(K2)) >> (11)));
                                                                //   1100        %CYCLE
#line 1100 "regression-compile-tmp/vax-pass1.imp"
L_0084:;
                                                                //   1101           newname = hash(k1)
#line 1101 "regression-compile-tmp/vax-pass1.imp"
NEWNAME = HASH[K1];
                                                                //   1102           %EXIT %IF newname = 0;                !not in
#line 1102 "regression-compile-tmp/vax-pass1.imp"
if (((NEWNAME) != (0))) goto L_0087;
#line 1102 "regression-compile-tmp/vax-pass1.imp"
goto L_0085;
#line 1102 "regression-compile-tmp/vax-pass1.imp"
L_0087:;
                                                                //   1103           ->in %IF string(addr(dict(newname+1))) = string(new)
#line 1103 "regression-compile-tmp/vax-pass1.imp"
if ((_imp_strcmp(*_imp_STRING(_imp_ADDR(&DICT[(((int)((((int)(NEWNAME)) + (1)))) - (1))])), *_imp_STRING(NEW)) != 0)) goto L_0088;
#line 1103 "regression-compile-tmp/vax-pass1.imp"
goto U_100b;
#line 1103 "regression-compile-tmp/vax-pass1.imp"
L_0088:;
                                                                //   1104           k1 = (k1+k2)&max names
#line 1104 "regression-compile-tmp/vax-pass1.imp"
K1 = (((((int)(K1)) + (K2))) & (2047));
                                                                //   1105        %REPEAT
#line 1105 "regression-compile-tmp/vax-pass1.imp"
goto L_0084;
#line 1105 "regression-compile-tmp/vax-pass1.imp"
L_0085:;
                                                                //   1106  
                                                                //   1107        ! not found
                                                                //   1108  
                                                                //   1109        spare names = spare names-1
#line 1109 "regression-compile-tmp/vax-pass1.imp"
SPARENAMES = (((int)(SPARENAMES)) - (1));
                                                                //   1110        abandon(2) %IF spare names <= 0
#line 1110 "regression-compile-tmp/vax-pass1.imp"
if (((SPARENAMES) > (0))) goto L_0089;
#line 1110 "regression-compile-tmp/vax-pass1.imp"
ABANDON(2);
#line 1110 "regression-compile-tmp/vax-pass1.imp"
L_0089:;
                                                                //   1111        hash(k1) = dmax;                !put it in
#line 1111 "regression-compile-tmp/vax-pass1.imp"
HASH[K1] = DMAX;
                                                                //   1112        dict(dmax) = -1
#line 1112 "regression-compile-tmp/vax-pass1.imp"
DICT[(((int)(DMAX)) - (1))] = (-1);
                                                                //   1113        newname = dmax;  dmax = dp;  ->not in
#line 1113 "regression-compile-tmp/vax-pass1.imp"
NEWNAME = DMAX;
#line 1113 "regression-compile-tmp/vax-pass1.imp"
DMAX = DP;
#line 1113 "regression-compile-tmp/vax-pass1.imp"
goto U_100c;
                                                                //   1114  
                                                                //   1115  in:   search base = rbase %IF this >= 0 %AND d # 0;  !record elem defn
#line 1115 "regression-compile-tmp/vax-pass1.imp"
U_100b:;
#line 1115 "regression-compile-tmp/vax-pass1.imp"
if (((THIS) < (0))) goto L_008a;
#line 1115 "regression-compile-tmp/vax-pass1.imp"
if (((D) == (0))) goto L_008a;
#line 1115 "regression-compile-tmp/vax-pass1.imp"
SEARCHBASE = RBASE;
#line 1115 "regression-compile-tmp/vax-pass1.imp"
L_008a:;
                                                                //   1116        %IF search base # 0 %START;               !record subname
#line 1116 "regression-compile-tmp/vax-pass1.imp"
if (((SEARCHBASE) == (0))) goto L_008b;
                                                                //   1117           new = -1
#line 1117 "regression-compile-tmp/vax-pass1.imp"
NEW = (-1);
                                                                //   1118           x = search base
#line 1118 "regression-compile-tmp/vax-pass1.imp"
X = SEARCHBASE;
                                                                //   1119           %CYCLE
#line 1119 "regression-compile-tmp/vax-pass1.imp"
L_008c:;
                                                                //   1120              ->not in %IF x < format list
#line 1120 "regression-compile-tmp/vax-pass1.imp"
if (((X) >= (FORMATLIST))) goto L_008f;
#line 1120 "regression-compile-tmp/vax-pass1.imp"
goto U_100c;
#line 1120 "regression-compile-tmp/vax-pass1.imp"
L_008f:;
                                                                //   1121              %EXIT %IF tag(x)_text = new name
#line 1121 "regression-compile-tmp/vax-pass1.imp"
if (((TAG[X].TEXT) != (NEWNAME))) goto L_0090;
#line 1121 "regression-compile-tmp/vax-pass1.imp"
goto L_008d;
#line 1121 "regression-compile-tmp/vax-pass1.imp"
L_0090:;
                                                                //   1122              x = x-1
#line 1122 "regression-compile-tmp/vax-pass1.imp"
X = (((int)(X)) - (1));
                                                                //   1123           %REPEAT
#line 1123 "regression-compile-tmp/vax-pass1.imp"
goto L_008c;
#line 1123 "regression-compile-tmp/vax-pass1.imp"
L_008d:;
                                                                //   1124        %FINISH %ELSE %START;                                  !hash in for normal names
#line 1124 "regression-compile-tmp/vax-pass1.imp"
goto L_0091;
#line 1124 "regression-compile-tmp/vax-pass1.imp"
L_008b:;
                                                                //   1125           x = dict(newname)
#line 1125 "regression-compile-tmp/vax-pass1.imp"
X = DICT[(((int)(NEWNAME)) - (1))];
                                                                //   1126           ->not in %IF x <= limit;         !wrong level
#line 1126 "regression-compile-tmp/vax-pass1.imp"
if (((X) > (LIMIT))) goto L_0092;
#line 1126 "regression-compile-tmp/vax-pass1.imp"
goto U_100c;
#line 1126 "regression-compile-tmp/vax-pass1.imp"
L_0092:;
                                                                //   1127        %FINISH
#line 1127 "regression-compile-tmp/vax-pass1.imp"
L_0091:;
                                                                //   1128  
                                                                //   1129        subatom = x;                            !name found, extract info
#line 1129 "regression-compile-tmp/vax-pass1.imp"
SUBATOM = X;
                                                                //   1130        t == tag(x)
#line 1130 "regression-compile-tmp/vax-pass1.imp"
T = &TAG[X];
                                                                //   1131        atom flags = t_flags
#line 1131 "regression-compile-tmp/vax-pass1.imp"
ATOMFLAGS = T->FLAGS;
                                                                //   1132        format = t_format;  app = t_app
#line 1132 "regression-compile-tmp/vax-pass1.imp"
FORMAT = T->FORMAT;
#line 1132 "regression-compile-tmp/vax-pass1.imp"
APP = T->APP;
                                                                //   1133        protection = atom flags&prot
#line 1133 "regression-compile-tmp/vax-pass1.imp"
PROTECTION = ((ATOMFLAGS) & (256));
                                                                //   1134        type = atom flags>>4&7;  atom1 = amap(atom flags&15)
#line 1134 "regression-compile-tmp/vax-pass1.imp"
TYPE = (((int)((((unsigned int)(ATOMFLAGS)) >> (4)))) & (7));
#line 1134 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = AMAP[((ATOMFLAGS) & (15))];
                                                                //   1135  
                                                                //   1136        %IF diag&8 # 0 %START
#line 1136 "regression-compile-tmp/vax-pass1.imp"
if (((((DIAG) & (8))) == (0))) goto L_0093;
                                                                //   1137           printstring("lookup:")
#line 1137 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("lookup:"));
                                                                //   1138           write(atom1, 3)
#line 1138 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(ATOM1, 3);
                                                                //   1139           write(type, 1)
#line 1139 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(TYPE, 1);
                                                                //   1140           write(app, 3)
#line 1140 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(APP, 3);
                                                                //   1141           write(format, 5)
#line 1141 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(FORMAT, 5);
                                                                //   1142           write(atom flags, 3)
#line 1142 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(ATOMFLAGS, 3);
                                                                //   1143           newline
#line 1143 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
                                                                //   1144        %FINISH
#line 1144 "regression-compile-tmp/vax-pass1.imp"
L_0093:;
                                                                //   1145  
                                                                //   1146        %IF d = 0 %START;                                !old name wanted
#line 1146 "regression-compile-tmp/vax-pass1.imp"
if (((D) != (0))) goto L_0094;
                                                                //   1147           t_flags <- t_flags!used bit
#line 1147 "regression-compile-tmp/vax-pass1.imp"
T->FLAGS = ((T->FLAGS) | (32768));
                                                                //   1148           search base = 0
#line 1148 "regression-compile-tmp/vax-pass1.imp"
SEARCHBASE = 0;
                                                                //   1149  
                                                                //   1150           %IF atom flags&subname # 0 %AND format # 0 %START; !a record
#line 1150 "regression-compile-tmp/vax-pass1.imp"
if (((((ATOMFLAGS) & (2048))) == (0))) goto L_0095;
#line 1150 "regression-compile-tmp/vax-pass1.imp"
if (((FORMAT) == (0))) goto L_0095;
                                                                //   1151              %RETURN %IF format selected = 0
#line 1151 "regression-compile-tmp/vax-pass1.imp"
if (((FORMATSELECTED()) != (0))) goto L_0096;
#line 1151 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1151 "regression-compile-tmp/vax-pass1.imp"
L_0096:;
                                                                //   1152           %FINISH
#line 1152 "regression-compile-tmp/vax-pass1.imp"
L_0095:;
                                                                //   1153  
                                                                //   1154           %IF atom flags&parameters # 0 %START;        !proc or array
#line 1154 "regression-compile-tmp/vax-pass1.imp"
if (((((ATOMFLAGS) & (4096))) == (0))) goto L_0097;
                                                                //   1155  
                                                                //   1156              %IF app = 0 %START;                  !no parameters needed
#line 1156 "regression-compile-tmp/vax-pass1.imp"
if (((APP) != (0))) goto L_0098;
                                                                //   1157                 atom2 = atom1
#line 1157 "regression-compile-tmp/vax-pass1.imp"
ATOM2 = ATOM1;
                                                                //   1158                 atom1 = atom1-4
#line 1158 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = (((int)(ATOM1)) - (4));
                                                                //   1159                 %IF 97 <= atom1 <= 98 %START
#line 1159 "regression-compile-tmp/vax-pass1.imp"
if ((((97) > (ATOM1))) || (((ATOM1) > (98)))) goto L_0099;
                                                                //   1160                    map gg = atom1;  atom1 = var
#line 1160 "regression-compile-tmp/vax-pass1.imp"
MAPGG = ATOM1;
#line 1160 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 91;
                                                                //   1161                 %FINISH
#line 1161 "regression-compile-tmp/vax-pass1.imp"
L_0099:;
                                                                //   1162              %FINISH %ELSE %START
#line 1162 "regression-compile-tmp/vax-pass1.imp"
goto L_009a;
#line 1162 "regression-compile-tmp/vax-pass1.imp"
L_0098:;
                                                                //   1163                 %IF sym = '(' %START
#line 1163 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (40))) goto L_009b;
                                                                //   1164                    search base = 0;                  !ignore format for now
#line 1164 "regression-compile-tmp/vax-pass1.imp"
SEARCHBASE = 0;
                                                                //   1165                    %IF atom1 >= 106 %START;             !arrays
#line 1165 "regression-compile-tmp/vax-pass1.imp"
if (((ATOM1) < (106))) goto L_009c;
                                                                //   1166                       app = phrase(app+200)
#line 1166 "regression-compile-tmp/vax-pass1.imp"
APP = (PHRASE-200)[(((int)(APP)) + (200))];
                                                                //   1167                       escape class = esc array
#line 1167 "regression-compile-tmp/vax-pass1.imp"
ESCAPECLASS = 254;
                                                                //   1168                       atom1 = (atom1-106)>>1+91;     !a,an->v  na,nan->n
#line 1168 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = (((int)((((((((int)(ATOM1)) - (106)))) >> (1))))) + (91));
                                                                //   1169                    %FINISH %ELSE %START;                            !procedures
#line 1169 "regression-compile-tmp/vax-pass1.imp"
goto L_009d;
#line 1169 "regression-compile-tmp/vax-pass1.imp"
L_009c:;
                                                                //   1170                       escape class = esc proc
#line 1170 "regression-compile-tmp/vax-pass1.imp"
ESCAPECLASS = 253;
                                                                //   1171                       atom1 = atom1-4
#line 1171 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = (((int)(ATOM1)) - (4));
                                                                //   1172                    %FINISH
#line 1172 "regression-compile-tmp/vax-pass1.imp"
L_009d:;
                                                                //   1173                    phrase(200) = app
#line 1173 "regression-compile-tmp/vax-pass1.imp"
(PHRASE-200)[200] = APP;
                                                                //   1174                 %FINISH
#line 1174 "regression-compile-tmp/vax-pass1.imp"
L_009b:;
                                                                //   1175              %FINISH
#line 1175 "regression-compile-tmp/vax-pass1.imp"
L_009a:;
                                                                //   1176              pos2 = pos;  %return
#line 1176 "regression-compile-tmp/vax-pass1.imp"
POS2 = POS;
#line 1176 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1177           %FINISH
#line 1177 "regression-compile-tmp/vax-pass1.imp"
L_0097:;
                                                                //   1178  
                                                                //   1179           !deal with constintegers etc
                                                                //   1180  
                                                                //   1181           %IF atom flags&const bit # 0 %AND atom1 = var %START
#line 1181 "regression-compile-tmp/vax-pass1.imp"
if (((((ATOMFLAGS) & (8192))) == (0))) goto L_009e;
#line 1181 "regression-compile-tmp/vax-pass1.imp"
if (((ATOM1) != (91))) goto L_009e;
                                                                //   1182                 map gg = const;  atom2 = const
#line 1182 "regression-compile-tmp/vax-pass1.imp"
MAPGG = 93;
#line 1182 "regression-compile-tmp/vax-pass1.imp"
ATOM2 = 93;
                                                                //   1183                 subatom = -subatom %IF type = integer
#line 1183 "regression-compile-tmp/vax-pass1.imp"
if (((TYPE) != (1))) goto L_009f;
#line 1183 "regression-compile-tmp/vax-pass1.imp"
SUBATOM = (-(SUBATOM));
#line 1183 "regression-compile-tmp/vax-pass1.imp"
L_009f:;
                                                                //   1184           %FINISH
#line 1184 "regression-compile-tmp/vax-pass1.imp"
L_009e:;
                                                                //   1185           %RETURN
#line 1185 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1186  
                                                                //   1187        %FINISH
#line 1187 "regression-compile-tmp/vax-pass1.imp"
L_0094:;
                                                                //   1188                                                   !new name wanted
                                                                //   1189        ->not in %IF tbase # tstart;               !dont fault proc parm-parm
#line 1189 "regression-compile-tmp/vax-pass1.imp"
if (((TBASE) == (TSTART))) goto L_00a0;
#line 1189 "regression-compile-tmp/vax-pass1.imp"
goto U_100c;
#line 1189 "regression-compile-tmp/vax-pass1.imp"
L_00a0:;
                                                                //   1190        %IF d = lab+spec+used bit %START
#line 1190 "regression-compile-tmp/vax-pass1.imp"
if (((D) != (32899))) goto L_00a1;
                                                                //   1191           t_flags = t_flags!used bit
#line 1191 "regression-compile-tmp/vax-pass1.imp"
T->FLAGS = ((T->FLAGS) | (32768));
                                                                //   1192           %RETURN
#line 1192 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1193        %FINISH
#line 1193 "regression-compile-tmp/vax-pass1.imp"
L_00a1:;
                                                                //   1194        %IF atom flags&spec # 0 %START;                 !a spec has been given
#line 1194 "regression-compile-tmp/vax-pass1.imp"
if (((((ATOMFLAGS) & (128))) == (0))) goto L_00a2;
                                                                //   1195           %IF d = lab %START;                     !define label
#line 1195 "regression-compile-tmp/vax-pass1.imp"
if (((D) != (3))) goto L_00a3;
                                                                //   1196              t_flags <- lab!used bit
#line 1196 "regression-compile-tmp/vax-pass1.imp"
T->FLAGS = ((3) | (32768));
                                                                //   1197              %RETURN
#line 1197 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1198           %FINISH
#line 1198 "regression-compile-tmp/vax-pass1.imp"
L_00a3:;
                                                                //   1199           %IF 7 <= decl&15 <= 10 %AND decl&spec = 0 %START
#line 1199 "regression-compile-tmp/vax-pass1.imp"
if ((((7) > (((DECL) & (15))))) || (((((DECL) & (15))) > (10)))) goto L_00a4;
#line 1199 "regression-compile-tmp/vax-pass1.imp"
if (((((DECL) & (128))) != (0))) goto L_00a4;
                                                                //   1200  
                                                                //   1201              !procedure definition after spec
                                                                //   1202  
                                                                //   1203              %IF (decl!!atom flags)&2_1111111 = 0 %START;  !correct type?
#line 1203 "regression-compile-tmp/vax-pass1.imp"
if (((((((DECL) ^ (ATOMFLAGS))) & (127))) != (0))) goto L_00a5;
                                                                //   1204                 t_flags = t_flags-spec
#line 1204 "regression-compile-tmp/vax-pass1.imp"
T->FLAGS = (((int)(T->FLAGS)) - (128));
                                                                //   1205                 spec given = 1
#line 1205 "regression-compile-tmp/vax-pass1.imp"
SPECGIVEN = 1;
                                                                //   1206                 %RETURN
#line 1206 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1207              %FINISH
#line 1207 "regression-compile-tmp/vax-pass1.imp"
L_00a5:;
                                                                //   1208  
                                                                //   1209              !note that an external procedure must be speced as a
                                                                //   1210              !non-external procedure.
                                                                //   1211  
                                                                //   1212           %FINISH
#line 1212 "regression-compile-tmp/vax-pass1.imp"
L_00a4:;
                                                                //   1213           %IF decl&15 = recfm %START;                   !recordformat
#line 1213 "regression-compile-tmp/vax-pass1.imp"
if (((((DECL) & (15))) != (4))) goto L_00a6;
                                                                //   1214              t_flags = record<<4+recfm
#line 1214 "regression-compile-tmp/vax-pass1.imp"
T->FLAGS = (((int)(((4) << (4)))) + (4));
                                                                //   1215              t_format = fdef
#line 1215 "regression-compile-tmp/vax-pass1.imp"
T->FORMAT = FDEF;
                                                                //   1216              %RETURN
#line 1216 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1217           %FINISH
#line 1217 "regression-compile-tmp/vax-pass1.imp"
L_00a6:;
                                                                //   1218        %FINISH
#line 1218 "regression-compile-tmp/vax-pass1.imp"
L_00a2:;
                                                                //   1219        %RETURN %IF last1 = jump %AND atom1 = swit
#line 1219 "regression-compile-tmp/vax-pass1.imp"
if (((LAST1) != (54))) goto L_00a7;
#line 1219 "regression-compile-tmp/vax-pass1.imp"
if (((ATOM1) != (105))) goto L_00a7;
#line 1219 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1219 "regression-compile-tmp/vax-pass1.imp"
L_00a7:;
                                                                //   1220        copy = pos1 %IF copy = 0
#line 1220 "regression-compile-tmp/vax-pass1.imp"
if (((COPY) != (0))) goto L_00a8;
#line 1220 "regression-compile-tmp/vax-pass1.imp"
COPY = POS1;
#line 1220 "regression-compile-tmp/vax-pass1.imp"
L_00a8:;
                                                                //   1221  
                                                                //   1222  notin:app = 0;  vid = 0
#line 1222 "regression-compile-tmp/vax-pass1.imp"
U_100c:;
#line 1222 "regression-compile-tmp/vax-pass1.imp"
APP = 0;
#line 1222 "regression-compile-tmp/vax-pass1.imp"
VID = 0;
                                                                //   1223        atom1 = error+2
#line 1223 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 32770;
                                                                //   1224  
                                                                //   1225        %return %if d = 0;                               !old name wanted
#line 1225 "regression-compile-tmp/vax-pass1.imp"
if (((D) != (0))) goto L_00a9;
#line 1225 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1225 "regression-compile-tmp/vax-pass1.imp"
L_00a9:;
                                                                //   1226        type = d>>4&7;  form = d&15;  atom1 = amap(form)
#line 1226 "regression-compile-tmp/vax-pass1.imp"
TYPE = (((int)((((unsigned int)(D)) >> (4)))) & (7));
#line 1226 "regression-compile-tmp/vax-pass1.imp"
FORM = ((D) & (15));
#line 1226 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = AMAP[FORM];
                                                                //   1227  
                                                                //   1228        %IF this < 0 %START;                       !normal scope
#line 1228 "regression-compile-tmp/vax-pass1.imp"
if (((THIS) >= (0))) goto L_00aa;
                                                                //   1229           new = newname
#line 1229 "regression-compile-tmp/vax-pass1.imp"
NEW = NEWNAME;
                                                                //   1230           tmax = tmax+1;  x = tmax
#line 1230 "regression-compile-tmp/vax-pass1.imp"
TMAX = (((int)(TMAX)) + (1));
#line 1230 "regression-compile-tmp/vax-pass1.imp"
X = TMAX;
                                                                //   1231        %FINISH %ELSE %START;                      !recordformat scope
#line 1231 "regression-compile-tmp/vax-pass1.imp"
goto L_00ab;
#line 1231 "regression-compile-tmp/vax-pass1.imp"
L_00aa:;
                                                                //   1232           new = -1
#line 1232 "regression-compile-tmp/vax-pass1.imp"
NEW = (-1);
                                                                //   1233           recid = recid-1;  vid = recid
#line 1233 "regression-compile-tmp/vax-pass1.imp"
RECID = (((int)(RECID)) - (1));
#line 1233 "regression-compile-tmp/vax-pass1.imp"
VID = RECID;
                                                                //   1234           tmin = tmin-1;  x = tmin
#line 1234 "regression-compile-tmp/vax-pass1.imp"
TMIN = (((int)(TMIN)) - (1));
#line 1234 "regression-compile-tmp/vax-pass1.imp"
X = TMIN;
                                                                //   1235           format list = tmin
#line 1235 "regression-compile-tmp/vax-pass1.imp"
FORMATLIST = TMIN;
                                                                //   1236        %FINISH
#line 1236 "regression-compile-tmp/vax-pass1.imp"
L_00ab:;
                                                                //   1237  
                                                                //   1238        %IF 11 <= form <= 14 %START;                     !arrays
#line 1238 "regression-compile-tmp/vax-pass1.imp"
if ((((11) > (FORM))) || (((FORM) > (14)))) goto L_00ac;
                                                                //   1239           dim = 1 %IF dim = 0;           !set dim for owns
#line 1239 "regression-compile-tmp/vax-pass1.imp"
if (((DIM) != (0))) goto L_00ad;
#line 1239 "regression-compile-tmp/vax-pass1.imp"
DIM = 1;
#line 1239 "regression-compile-tmp/vax-pass1.imp"
L_00ad:;
                                                                //   1240           app = dim
#line 1240 "regression-compile-tmp/vax-pass1.imp"
APP = DIM;
                                                                //   1241        %FINISH
#line 1241 "regression-compile-tmp/vax-pass1.imp"
L_00ac:;
                                                                //   1242  
                                                                //   1243        d = d!used bit %IF (otype > 2 %AND d&spec = 0) %OR perm # 0
#line 1243 "regression-compile-tmp/vax-pass1.imp"
if (((OTYPE) <= (2))) goto L_00ae;
#line 1243 "regression-compile-tmp/vax-pass1.imp"
if (((((D) & (128))) == (0))) goto L_0086;
#line 1243 "regression-compile-tmp/vax-pass1.imp"
L_00ae:;
#line 1243 "regression-compile-tmp/vax-pass1.imp"
if (((PERM) == (0))) goto L_00af;
#line 1243 "regression-compile-tmp/vax-pass1.imp"
L_0086:;
#line 1243 "regression-compile-tmp/vax-pass1.imp"
D = ((D) | (32768));
#line 1243 "regression-compile-tmp/vax-pass1.imp"
L_00af:;
                                                                //   1244  
                                                                //   1245        !external definitions need not be used in the file in which
                                                                //   1246        !they are defined, so inhibit a useless unused warning.
                                                                //   1247  
                                                                //   1248        t == tag(x)
#line 1248 "regression-compile-tmp/vax-pass1.imp"
T = &TAG[X];
                                                                //   1249        %IF form = lab %START
#line 1249 "regression-compile-tmp/vax-pass1.imp"
if (((FORM) != (3))) goto L_00b0;
                                                                //   1250           id = id+1;  vid = id
#line 1250 "regression-compile-tmp/vax-pass1.imp"
ID = (((int)(ID)) + (1));
#line 1250 "regression-compile-tmp/vax-pass1.imp"
VID = ID;
                                                                //   1251        %FINISH
#line 1251 "regression-compile-tmp/vax-pass1.imp"
L_00b0:;
                                                                //   1252        t_index = vid
#line 1252 "regression-compile-tmp/vax-pass1.imp"
T->INDEX = VID;
                                                                //   1253        t_text   = new name
#line 1253 "regression-compile-tmp/vax-pass1.imp"
T->TEXT = NEWNAME;
                                                                //   1254        t_flags <- d
#line 1254 "regression-compile-tmp/vax-pass1.imp"
T->FLAGS = D;
                                                                //   1255        t_app    = app
#line 1255 "regression-compile-tmp/vax-pass1.imp"
T->APP = APP;
                                                                //   1256        t_format = fdef;  format = fdef
#line 1256 "regression-compile-tmp/vax-pass1.imp"
T->FORMAT = FDEF;
#line 1256 "regression-compile-tmp/vax-pass1.imp"
FORMAT = FDEF;
                                                                //   1257        subatom = x
#line 1257 "regression-compile-tmp/vax-pass1.imp"
SUBATOM = X;
                                                                //   1258  
                                                                //   1259        %IF new >= 0 %START;                             !insert into hash table
#line 1259 "regression-compile-tmp/vax-pass1.imp"
if (((NEW) < (0))) goto L_00b1;
                                                                //   1260           t_link = dict(new);  dict(new) = x
#line 1260 "regression-compile-tmp/vax-pass1.imp"
T->LINK = DICT[(((int)(NEW)) - (1))];
#line 1260 "regression-compile-tmp/vax-pass1.imp"
DICT[(((int)(NEW)) - (1))] = X;
                                                                //   1261           %IF gmin = max grammar %START;                !proc param params
#line 1261 "regression-compile-tmp/vax-pass1.imp"
if (((GMIN) != (1800))) goto L_00b2;
                                                                //   1262              tmin = tmin-1;  subatom = tmin
#line 1262 "regression-compile-tmp/vax-pass1.imp"
TMIN = (((int)(TMIN)) - (1));
#line 1262 "regression-compile-tmp/vax-pass1.imp"
SUBATOM = TMIN;
                                                                //   1263              tag(tmin) = t
#line 1263 "regression-compile-tmp/vax-pass1.imp"
TAG[TMIN] = *T;
                                                                //   1264           %FINISH
#line 1264 "regression-compile-tmp/vax-pass1.imp"
L_00b2:;
                                                                //   1265        %FINISH
#line 1265 "regression-compile-tmp/vax-pass1.imp"
L_00b1:;
                                                                //   1266        abandon(3) %IF tmax >= tmin
#line 1266 "regression-compile-tmp/vax-pass1.imp"
if (((TMAX) < (TMIN))) goto L_00b3;
#line 1266 "regression-compile-tmp/vax-pass1.imp"
ABANDON(3);
#line 1266 "regression-compile-tmp/vax-pass1.imp"
L_00b3:;
                                                                //   1267     %END
#line 1267 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block LOOKUP at level 5
                                                                //   1268  
                                                                //   1269  
                                                                //   1270  
                                                                //   1271  top:  pos1 = pos
#line 1271 "regression-compile-tmp/vax-pass1.imp"
U_100d:;
#line 1271 "regression-compile-tmp/vax-pass1.imp"
POS1 = POS;
                                                                //   1272        subatom = 0;  pend quote = 0
#line 1272 "regression-compile-tmp/vax-pass1.imp"
SUBATOM = 0;
#line 1272 "regression-compile-tmp/vax-pass1.imp"
PENDQUOTE = 0;
                                                                //   1273  
                                                                //   1274        !app and format must be left for assigning to papp & pformat
                                                                //   1275  
                                                                //   1276        ->name %IF symtype = -2;                   !letter
#line 1276 "regression-compile-tmp/vax-pass1.imp"
if (((SYMTYPE) != ((-2)))) goto L_00b4;
#line 1276 "regression-compile-tmp/vax-pass1.imp"
goto U_100e;
#line 1276 "regression-compile-tmp/vax-pass1.imp"
L_00b4:;
                                                                //   1277        ->number %IF symtype < 0;                  !digit
#line 1277 "regression-compile-tmp/vax-pass1.imp"
if (((SYMTYPE) >= (0))) goto L_00b5;
#line 1277 "regression-compile-tmp/vax-pass1.imp"
goto U_100f;
#line 1277 "regression-compile-tmp/vax-pass1.imp"
L_00b5:;
                                                                //   1278        %IF symtype = 0 %START
#line 1278 "regression-compile-tmp/vax-pass1.imp"
if (((SYMTYPE) != (0))) goto L_00b6;
                                                                //   1279           atom1 = termin;  atom2 = 0
#line 1279 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 20;
#line 1279 "regression-compile-tmp/vax-pass1.imp"
ATOM2 = 0;
                                                                //   1280           %RETURN
#line 1280 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1281        %FINISH
#line 1281 "regression-compile-tmp/vax-pass1.imp"
L_00b6:;
                                                                //   1282        %IF symtype # 2 %START;                    !catch keywords here
#line 1282 "regression-compile-tmp/vax-pass1.imp"
if (((SYMTYPE) == (2))) goto L_00b7;
                                                                //   1283           ->text %IF quote # 0;                   !completion of text
#line 1283 "regression-compile-tmp/vax-pass1.imp"
if (((QUOTE) == (0))) goto L_00b8;
#line 1283 "regression-compile-tmp/vax-pass1.imp"
goto U_1010;
#line 1283 "regression-compile-tmp/vax-pass1.imp"
L_00b8:;
                                                                //   1284           ->strings %IF sym = squote;             !start of string
#line 1284 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (34))) goto L_00b9;
#line 1284 "regression-compile-tmp/vax-pass1.imp"
goto U_1011;
#line 1284 "regression-compile-tmp/vax-pass1.imp"
L_00b9:;
                                                                //   1285           ->symbols %IF sym = cquote;             !start of symbol
#line 1285 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (39))) goto L_00ba;
#line 1285 "regression-compile-tmp/vax-pass1.imp"
goto U_1012;
#line 1285 "regression-compile-tmp/vax-pass1.imp"
L_00ba:;
                                                                //   1286           ->number %IF sym = '.' %AND '0' <= current char <= '9'
#line 1286 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (46))) goto L_00bb;
#line 1286 "regression-compile-tmp/vax-pass1.imp"
if ((((48) > (*CURRENTCHAR))) || (((*CURRENTCHAR) > (57)))) goto L_00bb;
#line 1286 "regression-compile-tmp/vax-pass1.imp"
goto U_100f;
#line 1286 "regression-compile-tmp/vax-pass1.imp"
L_00bb:;
                                                                //   1287        %FINISH
#line 1287 "regression-compile-tmp/vax-pass1.imp"
L_00b7:;
                                                                //   1288  
                                                                //   1289                                                   !locate atom in fixed dict
                                                                //   1290        k = key>>2;  read sym
#line 1290 "regression-compile-tmp/vax-pass1.imp"
K = (int)((((unsigned int)(KEY)) >> (2)));
#line 1290 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1291        %CYCLE
#line 1291 "regression-compile-tmp/vax-pass1.imp"
L_00bc:;
                                                                //   1292           j = kdict(k)
#line 1292 "regression-compile-tmp/vax-pass1.imp"
J = (KDICT-32)[K];
                                                                //   1293           %EXIT %IF j&16_4000 # 0
#line 1293 "regression-compile-tmp/vax-pass1.imp"
if (((((J) & (16384))) == (0))) goto L_00bf;
#line 1293 "regression-compile-tmp/vax-pass1.imp"
goto L_00bd;
#line 1293 "regression-compile-tmp/vax-pass1.imp"
L_00bf:;
                                                                //   1294           %IF j&127 # sym %OR symtype < 0 %START
#line 1294 "regression-compile-tmp/vax-pass1.imp"
if (((((J) & (127))) != (SYM))) goto L_008e;
#line 1294 "regression-compile-tmp/vax-pass1.imp"
if (((SYMTYPE) >= (0))) goto L_00c0;
#line 1294 "regression-compile-tmp/vax-pass1.imp"
L_008e:;
                                                                //   1295              ->err %UNLESS j < 0
#line 1295 "regression-compile-tmp/vax-pass1.imp"
if (((J) < (0))) goto L_00c1;
#line 1295 "regression-compile-tmp/vax-pass1.imp"
goto U_1013;
#line 1295 "regression-compile-tmp/vax-pass1.imp"
L_00c1:;
                                                                //   1296              k = k+1
#line 1296 "regression-compile-tmp/vax-pass1.imp"
K = (((int)(K)) + (1));
                                                                //   1297           %FINISH %ELSE %START
#line 1297 "regression-compile-tmp/vax-pass1.imp"
goto L_00c2;
#line 1297 "regression-compile-tmp/vax-pass1.imp"
L_00c0:;
                                                                //   1298              l = j>>7&127;  read sym
#line 1298 "regression-compile-tmp/vax-pass1.imp"
L = (((int)((((unsigned int)(J)) >> (7)))) & (127));
#line 1298 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1299              %IF j > 0 %START
#line 1299 "regression-compile-tmp/vax-pass1.imp"
if (((J) <= (0))) goto L_00c3;
                                                                //   1300                 %IF l # 0 %START
#line 1300 "regression-compile-tmp/vax-pass1.imp"
if (((L) == (0))) goto L_00c4;
                                                                //   1301                    ->err %IF l # sym %OR symtype < 0
#line 1301 "regression-compile-tmp/vax-pass1.imp"
if (((L) != (SYM))) goto L_00c5;
#line 1301 "regression-compile-tmp/vax-pass1.imp"
if (((SYMTYPE) >= (0))) goto L_00c6;
#line 1301 "regression-compile-tmp/vax-pass1.imp"
L_00c5:;
#line 1301 "regression-compile-tmp/vax-pass1.imp"
goto U_1013;
#line 1301 "regression-compile-tmp/vax-pass1.imp"
L_00c6:;
                                                                //   1302                    read sym
#line 1302 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1303                 %FINISH
#line 1303 "regression-compile-tmp/vax-pass1.imp"
L_00c4:;
                                                                //   1304                 l = 1
#line 1304 "regression-compile-tmp/vax-pass1.imp"
L = 1;
                                                                //   1305              %FINISH
#line 1305 "regression-compile-tmp/vax-pass1.imp"
L_00c3:;
                                                                //   1306              k = k+l
#line 1306 "regression-compile-tmp/vax-pass1.imp"
K = (((int)(K)) + (L));
                                                                //   1307           %FINISH
#line 1307 "regression-compile-tmp/vax-pass1.imp"
L_00c2:;
                                                                //   1308        %REPEAT
#line 1308 "regression-compile-tmp/vax-pass1.imp"
goto L_00bc;
#line 1308 "regression-compile-tmp/vax-pass1.imp"
L_00bd:;
                                                                //   1309        atom1 = j&127
#line 1309 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = ((J) & (127));
                                                                //   1310        %IF atom1 = 0 %START;                      !comma
#line 1310 "regression-compile-tmp/vax-pass1.imp"
if (((ATOM1) != (0))) goto L_00c7;
                                                                //   1311           atom1 = 19;  subatom = 19;  atom2 = 0
#line 1311 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 19;
#line 1311 "regression-compile-tmp/vax-pass1.imp"
SUBATOM = 19;
#line 1311 "regression-compile-tmp/vax-pass1.imp"
ATOM2 = 0;
                                                                //   1312           %IF sym = nl %START
#line 1312 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (10))) goto L_00c8;
                                                                //   1313              %RETURN %IF ocount >= 0
#line 1313 "regression-compile-tmp/vax-pass1.imp"
if (((OCOUNT) < (0))) goto L_00c9;
#line 1313 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1313 "regression-compile-tmp/vax-pass1.imp"
L_00c9:;
                                                                //   1314  
                                                                //   1315              !special action needs to be taken with <comma nl> as
                                                                //   1316              !const array lists can be enormous
                                                                //   1317  
                                                                //   1318              read sym
#line 1318 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1319           %FINISH
#line 1319 "regression-compile-tmp/vax-pass1.imp"
L_00c8:;
                                                                //   1320           %RETURN
#line 1320 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1321        %FINISH
#line 1321 "regression-compile-tmp/vax-pass1.imp"
L_00c7:;
                                                                //   1322        atom2 = j>>7&127
#line 1322 "regression-compile-tmp/vax-pass1.imp"
ATOM2 = (((int)((((unsigned int)(J)) >> (7)))) & (127));
                                                                //   1323        subatom = kdict(k+1)&16_3fff
#line 1323 "regression-compile-tmp/vax-pass1.imp"
SUBATOM = (((KDICT-32)[(((int)(K)) + (1))]) & (16383));
                                                                //   1324        !!!!!cont = ' '
                                                                //   1325        %RETURN
#line 1325 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1326  
                                                                //   1327        !report an error. adjust the error marker (pos1) to point
                                                                //   1328        !to the faulty character in an atom, but care needs to be taken
                                                                //   1329        !to prevent misleading reports in cases like ...?????
                                                                //   1330  
                                                                //   1331  err:  atom1 = error+1;  atom2 = 0
#line 1331 "regression-compile-tmp/vax-pass1.imp"
U_1013:;
#line 1331 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 32769;
#line 1331 "regression-compile-tmp/vax-pass1.imp"
ATOM2 = 0;
                                                                //   1332        pos1 = pos %IF pos-pos1 > 2
#line 1332 "regression-compile-tmp/vax-pass1.imp"
if ((((((int)(POS)) - (POS1))) <= (2))) goto L_00ca;
#line 1332 "regression-compile-tmp/vax-pass1.imp"
POS1 = POS;
#line 1332 "regression-compile-tmp/vax-pass1.imp"
L_00ca:;
                                                                //   1333        %RETURN
#line 1333 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1334  
                                                                //   1335          !take care with strings and symbol constants.
                                                                //   1336          !make sure the constant is valid here before sucking it in
                                                                //   1337          !(and potentially loosing many lines)
                                                                //   1338  
                                                                //   1339  symbols:atom1 = var;  atom2 = const;  type = integer
#line 1339 "regression-compile-tmp/vax-pass1.imp"
U_1012:;
#line 1339 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 91;
#line 1339 "regression-compile-tmp/vax-pass1.imp"
ATOM2 = 93;
#line 1339 "regression-compile-tmp/vax-pass1.imp"
TYPE = 1;
                                                                //   1340          map gg = const;  protection = prot
#line 1340 "regression-compile-tmp/vax-pass1.imp"
MAPGG = 93;
#line 1340 "regression-compile-tmp/vax-pass1.imp"
PROTECTION = 256;
                                                                //   1341          subatom = lp;  abandon(3) %IF lp >= lit max
#line 1341 "regression-compile-tmp/vax-pass1.imp"
SUBATOM = LP;
#line 1341 "regression-compile-tmp/vax-pass1.imp"
if (((LP) < (50))) goto L_00cb;
#line 1341 "regression-compile-tmp/vax-pass1.imp"
ABANDON(3);
#line 1341 "regression-compile-tmp/vax-pass1.imp"
L_00cb:;
                                                                //   1342          quote = \pend quote
#line 1342 "regression-compile-tmp/vax-pass1.imp"
QUOTE = (~(PENDQUOTE));
                                                                //   1343          %RETURN
#line 1343 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1344  
                                                                //   1345        !an integer constant is acceptable so get it in and
                                                                //   1346        !get the next atom
                                                                //   1347  
                                                                //   1348  chars:n = 0;  cont = cquote
#line 1348 "regression-compile-tmp/vax-pass1.imp"
U_1014:;
#line 1348 "regression-compile-tmp/vax-pass1.imp"
N = 0;
#line 1348 "regression-compile-tmp/vax-pass1.imp"
CONT = 39;
                                                                //   1349        %CYCLE
#line 1349 "regression-compile-tmp/vax-pass1.imp"
L_00cc:;
                                                                //   1350           read sym
#line 1350 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1351           %IF sym = cquote %START
#line 1351 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (39))) goto L_00cf;
                                                                //   1352              %EXIT %IF current char # cquote
#line 1352 "regression-compile-tmp/vax-pass1.imp"
if (((*CURRENTCHAR) == (39))) goto L_00d0;
#line 1352 "regression-compile-tmp/vax-pass1.imp"
goto L_00cd;
#line 1352 "regression-compile-tmp/vax-pass1.imp"
L_00d0:;
                                                                //   1353              read sym
#line 1353 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1354           %FINISH
#line 1354 "regression-compile-tmp/vax-pass1.imp"
L_00cf:;
                                                                //   1355           %IF n&(\((-1)>>byte size)) # 0 %START; ! overflow
#line 1355 "regression-compile-tmp/vax-pass1.imp"
if (((((N) & ((~((int)((((unsigned int)((-1))) >> (8)))))))) == (0))) goto L_00d1;
                                                                //   1356              pos1 = pos;  atom1 = error+10;  %RETURN
#line 1356 "regression-compile-tmp/vax-pass1.imp"
POS1 = POS;
#line 1356 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 32778;
#line 1356 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1357           %FINISH
#line 1357 "regression-compile-tmp/vax-pass1.imp"
L_00d1:;
                                                                //   1358           ->err %IF quote = 0
#line 1358 "regression-compile-tmp/vax-pass1.imp"
if (((QUOTE) != (0))) goto L_00d2;
#line 1358 "regression-compile-tmp/vax-pass1.imp"
goto U_1013;
#line 1358 "regression-compile-tmp/vax-pass1.imp"
L_00d2:;
                                                                //   1359           n = n<<byte size+sym
#line 1359 "regression-compile-tmp/vax-pass1.imp"
N = (((int)(((N) << (8)))) + (SYM));
                                                                //   1360           quote = quote+1
#line 1360 "regression-compile-tmp/vax-pass1.imp"
QUOTE = (((int)(QUOTE)) + (1));
                                                                //   1361        %REPEAT
#line 1361 "regression-compile-tmp/vax-pass1.imp"
goto L_00cc;
#line 1361 "regression-compile-tmp/vax-pass1.imp"
L_00cd:;
                                                                //   1362        quote = 0;  cont = ' '
#line 1362 "regression-compile-tmp/vax-pass1.imp"
QUOTE = 0;
#line 1362 "regression-compile-tmp/vax-pass1.imp"
CONT = 32;
                                                                //   1363        readsym %IF sym # nl
#line 1363 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) == (10))) goto L_00d3;
#line 1363 "regression-compile-tmp/vax-pass1.imp"
READSYM();
#line 1363 "regression-compile-tmp/vax-pass1.imp"
L_00d3:;
                                                                //   1364        lit pool(lp) = n;  lp = lp+1
#line 1364 "regression-compile-tmp/vax-pass1.imp"
LITPOOL[LP] = N;
#line 1364 "regression-compile-tmp/vax-pass1.imp"
LP = (((int)(LP)) + (1));
                                                                //   1365        ->top
#line 1365 "regression-compile-tmp/vax-pass1.imp"
goto U_100d;
                                                                //   1366  
                                                                //   1367          !sniff the grammar before getting the string
                                                                //   1368  
                                                                //   1369  strings:atom1 = var;  atom2 = const;  type = stringv
#line 1369 "regression-compile-tmp/vax-pass1.imp"
U_1011:;
#line 1369 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 91;
#line 1369 "regression-compile-tmp/vax-pass1.imp"
ATOM2 = 93;
#line 1369 "regression-compile-tmp/vax-pass1.imp"
TYPE = 3;
                                                                //   1370          subatom = (strp-stbase)!16_4000
#line 1370 "regression-compile-tmp/vax-pass1.imp"
SUBATOM = (((((int)(STRP)) - (STBASE))) | (16384));
                                                                //   1371          map gg = const;  protection = prot
#line 1371 "regression-compile-tmp/vax-pass1.imp"
MAPGG = 93;
#line 1371 "regression-compile-tmp/vax-pass1.imp"
PROTECTION = 256;
                                                                //   1372          quote = subatom
#line 1372 "regression-compile-tmp/vax-pass1.imp"
QUOTE = SUBATOM;
                                                                //   1373          text line = lines;                  !in case of errors
#line 1373 "regression-compile-tmp/vax-pass1.imp"
TEXTLINE = LINES;
                                                                //   1374          %RETURN
#line 1374 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1375  
                                                                //   1376        !a string constant is ok here, so pull it in and get
                                                                //   1377        !the next atom
                                                                //   1378  
                                                                //   1379  text: ->chars %IF quote < 0;                    !character consts
#line 1379 "regression-compile-tmp/vax-pass1.imp"
U_1010:;
#line 1379 "regression-compile-tmp/vax-pass1.imp"
if (((QUOTE) >= (0))) goto L_00d4;
#line 1379 "regression-compile-tmp/vax-pass1.imp"
goto U_1014;
#line 1379 "regression-compile-tmp/vax-pass1.imp"
L_00d4:;
                                                                //   1380        l = strp; n = strp
#line 1380 "regression-compile-tmp/vax-pass1.imp"
L = STRP;
#line 1380 "regression-compile-tmp/vax-pass1.imp"
N = STRP;
                                                                //   1381        j = addr(glink(gmin-1));                  !absolute limit
#line 1381 "regression-compile-tmp/vax-pass1.imp"
J = _imp_ADDR(&GLINK[(((int)(GMIN)) - (1))]);
                                                                //   1382        k = l+256;                                !string length limit
#line 1382 "regression-compile-tmp/vax-pass1.imp"
K = (((int)(L)) + (256));
                                                                //   1383        k = j %IF j < k;                          !choose lower
#line 1383 "regression-compile-tmp/vax-pass1.imp"
if (((J) >= (K))) goto L_00d5;
#line 1383 "regression-compile-tmp/vax-pass1.imp"
K = J;
#line 1383 "regression-compile-tmp/vax-pass1.imp"
L_00d5:;
                                                                //   1384  
                                                                //   1385        %CYCLE
#line 1385 "regression-compile-tmp/vax-pass1.imp"
L_00d6:;
                                                                //   1386           cont = squote;  quote = 1
#line 1386 "regression-compile-tmp/vax-pass1.imp"
CONT = 34;
#line 1386 "regression-compile-tmp/vax-pass1.imp"
QUOTE = 1;
                                                                //   1387           %CYCLE
#line 1387 "regression-compile-tmp/vax-pass1.imp"
L_00d9:;
                                                                //   1388              read sym
#line 1388 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1389              %IF sym = squote %START;               !terminator?
#line 1389 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (34))) goto L_00dc;
                                                                //   1390                 %EXIT %IF current char # squote;      !yes ->
#line 1390 "regression-compile-tmp/vax-pass1.imp"
if (((*CURRENTCHAR) == (34))) goto L_00dd;
#line 1390 "regression-compile-tmp/vax-pass1.imp"
goto L_00da;
#line 1390 "regression-compile-tmp/vax-pass1.imp"
L_00dd:;
                                                                //   1391                 read sym;                           ! skip quote
#line 1391 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1392              %FINISH
#line 1392 "regression-compile-tmp/vax-pass1.imp"
L_00dc:;
                                                                //   1393              l = l+1;  byteinteger(l) = sym
#line 1393 "regression-compile-tmp/vax-pass1.imp"
L = (((int)(L)) + (1));
#line 1393 "regression-compile-tmp/vax-pass1.imp"
*_imp_BYTEINTEGER(L) = SYM;
                                                                //   1394              lines = text line %AND abandon(7) %IF l >= k;    !too many chars
#line 1394 "regression-compile-tmp/vax-pass1.imp"
if (((L) < (K))) goto L_00de;
#line 1394 "regression-compile-tmp/vax-pass1.imp"
LINES = TEXTLINE;
#line 1394 "regression-compile-tmp/vax-pass1.imp"
ABANDON(7);
#line 1394 "regression-compile-tmp/vax-pass1.imp"
L_00de:;
                                                                //   1395           %REPEAT
#line 1395 "regression-compile-tmp/vax-pass1.imp"
goto L_00d9;
#line 1395 "regression-compile-tmp/vax-pass1.imp"
L_00da:;
                                                                //   1396           byteinteger(n) = l-n;               !plug in length
#line 1396 "regression-compile-tmp/vax-pass1.imp"
*_imp_BYTEINTEGER(N) = (((int)(L)) - (N));
                                                                //   1397  
                                                                //   1398           strp = l+1;                               !ready for next string
#line 1398 "regression-compile-tmp/vax-pass1.imp"
STRP = (((int)(L)) + (1));
                                                                //   1399           quote = 0;  cont = ' ';  read sym
#line 1399 "regression-compile-tmp/vax-pass1.imp"
QUOTE = 0;
#line 1399 "regression-compile-tmp/vax-pass1.imp"
CONT = 32;
#line 1399 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1400           code atom(target)
#line 1400 "regression-compile-tmp/vax-pass1.imp"
CODEATOM(TARGET);
                                                                //   1401           %RETURN %UNLESS atom1 = 48 %AND sym = squote;    !fold "???"."+++"
#line 1401 "regression-compile-tmp/vax-pass1.imp"
if (((ATOM1) != (48))) goto L_00db;
#line 1401 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) == (34))) goto L_00df;
#line 1401 "regression-compile-tmp/vax-pass1.imp"
L_00db:;
#line 1401 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1401 "regression-compile-tmp/vax-pass1.imp"
L_00df:;
                                                                //   1402        %REPEAT
#line 1402 "regression-compile-tmp/vax-pass1.imp"
goto L_00d6;
                                                                //   1403  
                                                                //   1404        %ROUTINE get(%INTEGER limit)
#line 1404 "regression-compile-tmp/vax-pass1.imp"
void GET( int LIMIT )
#line 1404 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   1405           %INTEGER s, shift
#line 1405 "regression-compile-tmp/vax-pass1.imp"
int S;
#line 1405 "regression-compile-tmp/vax-pass1.imp"
int SHIFT;
                                                                //   1406           shift = 0
#line 1406 "regression-compile-tmp/vax-pass1.imp"
SHIFT = 0;
                                                                //   1407           %IF base # 10 %START
#line 1407 "regression-compile-tmp/vax-pass1.imp"
if (((BASE) == (10))) goto L_00d7;
                                                                //   1408              %IF base = 16 %START
#line 1408 "regression-compile-tmp/vax-pass1.imp"
if (((BASE) != (16))) goto L_00e0;
                                                                //   1409                 shift = 4
#line 1409 "regression-compile-tmp/vax-pass1.imp"
SHIFT = 4;
                                                                //   1410              %FINISH %ELSE %START
#line 1410 "regression-compile-tmp/vax-pass1.imp"
goto L_00e1;
#line 1410 "regression-compile-tmp/vax-pass1.imp"
L_00e0:;
                                                                //   1411                 %IF base = 8 %START
#line 1411 "regression-compile-tmp/vax-pass1.imp"
if (((BASE) != (8))) goto L_00e2;
                                                                //   1412                    shift = 3
#line 1412 "regression-compile-tmp/vax-pass1.imp"
SHIFT = 3;
                                                                //   1413                 %FINISH %ELSE %START
#line 1413 "regression-compile-tmp/vax-pass1.imp"
goto L_00e3;
#line 1413 "regression-compile-tmp/vax-pass1.imp"
L_00e2:;
                                                                //   1414                    %IF base = 2 %START
#line 1414 "regression-compile-tmp/vax-pass1.imp"
if (((BASE) != (2))) goto L_00e4;
                                                                //   1415                       shift = 1
#line 1415 "regression-compile-tmp/vax-pass1.imp"
SHIFT = 1;
                                                                //   1416                    %FINISH
#line 1416 "regression-compile-tmp/vax-pass1.imp"
L_00e4:;
                                                                //   1417                 %FINISH
#line 1417 "regression-compile-tmp/vax-pass1.imp"
L_00e3:;
                                                                //   1418              %FINISH
#line 1418 "regression-compile-tmp/vax-pass1.imp"
L_00e1:;
                                                                //   1419           %FINISH
#line 1419 "regression-compile-tmp/vax-pass1.imp"
L_00d7:;
                                                                //   1420           n = 0
#line 1420 "regression-compile-tmp/vax-pass1.imp"
N = 0;
                                                                //   1421           %CYCLE
#line 1421 "regression-compile-tmp/vax-pass1.imp"
L_00e5:;
                                                                //   1422              %IF symtype = -1 %START;            !digit
#line 1422 "regression-compile-tmp/vax-pass1.imp"
if (((SYMTYPE) != ((-1)))) goto L_00e8;
                                                                //   1423                 s = sym-'0'
#line 1423 "regression-compile-tmp/vax-pass1.imp"
S = (((int)(SYM)) - (48));
                                                                //   1424              %FINISH %ELSE %START
#line 1424 "regression-compile-tmp/vax-pass1.imp"
goto L_00e9;
#line 1424 "regression-compile-tmp/vax-pass1.imp"
L_00e8:;
                                                                //   1425                 %IF symtype < 0 %START;                  !letter
#line 1425 "regression-compile-tmp/vax-pass1.imp"
if (((SYMTYPE) >= (0))) goto L_00ea;
                                                                //   1426                    s = sym-'A'+10
#line 1426 "regression-compile-tmp/vax-pass1.imp"
S = (((int)((((int)(SYM)) - (65)))) + (10));
                                                                //   1427                 %FINISH %ELSE %START
#line 1427 "regression-compile-tmp/vax-pass1.imp"
goto L_00eb;
#line 1427 "regression-compile-tmp/vax-pass1.imp"
L_00ea:;
                                                                //   1428                    %RETURN
#line 1428 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1429                 %FINISH
#line 1429 "regression-compile-tmp/vax-pass1.imp"
L_00eb:;
                                                                //   1430              %FINISH
#line 1430 "regression-compile-tmp/vax-pass1.imp"
L_00e9:;
                                                                //   1431              %RETURN %IF s >= limit
#line 1431 "regression-compile-tmp/vax-pass1.imp"
if (((S) < (LIMIT))) goto L_00ec;
#line 1431 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1431 "regression-compile-tmp/vax-pass1.imp"
L_00ec:;
                                                                //   1432              pt = pt+1;  byteinteger(pt) = sym
#line 1432 "regression-compile-tmp/vax-pass1.imp"
PT = (((int)(PT)) + (1));
#line 1432 "regression-compile-tmp/vax-pass1.imp"
*_imp_BYTEINTEGER(PT) = SYM;
                                                                //   1433              %IF base = 10 %START;            !check overflow
#line 1433 "regression-compile-tmp/vax-pass1.imp"
if (((BASE) != (10))) goto L_00ed;
                                                                //   1434                 %IF n >= max int %AND (s > max dig %OR n > max int) %START
#line 1434 "regression-compile-tmp/vax-pass1.imp"
if (((N) < (214748364))) goto L_00ee;
#line 1434 "regression-compile-tmp/vax-pass1.imp"
if (((S) > (7))) goto L_007d;
#line 1434 "regression-compile-tmp/vax-pass1.imp"
if (((N) <= (214748364))) goto L_00ee;
#line 1434 "regression-compile-tmp/vax-pass1.imp"
L_007d:;
                                                                //   1435  
                                                                //   1436                    !too big for an integer,
                                                                //   1437                    !so call it a real
                                                                //   1438  
                                                                //   1439                    base = 0;  type = real;  n = 0
#line 1439 "regression-compile-tmp/vax-pass1.imp"
BASE = 0;
#line 1439 "regression-compile-tmp/vax-pass1.imp"
TYPE = 2;
#line 1439 "regression-compile-tmp/vax-pass1.imp"
N = 0;
                                                                //   1440                 %FINISH
#line 1440 "regression-compile-tmp/vax-pass1.imp"
L_00ee:;
                                                                //   1441              %FINISH
#line 1441 "regression-compile-tmp/vax-pass1.imp"
L_00ed:;
                                                                //   1442              %IF shift = 0 %START
#line 1442 "regression-compile-tmp/vax-pass1.imp"
if (((SHIFT) != (0))) goto L_00ef;
                                                                //   1443                 n = n*base+s
#line 1443 "regression-compile-tmp/vax-pass1.imp"
N = (((int)((((int)(N)) * (BASE)))) + (S));
                                                                //   1444              %FINISH %ELSE %START
#line 1444 "regression-compile-tmp/vax-pass1.imp"
goto L_00f0;
#line 1444 "regression-compile-tmp/vax-pass1.imp"
L_00ef:;
                                                                //   1445                 n = n<<shift+s
#line 1445 "regression-compile-tmp/vax-pass1.imp"
N = (((int)(((N) << (SHIFT)))) + (S));
                                                                //   1446              %FINISH
#line 1446 "regression-compile-tmp/vax-pass1.imp"
L_00f0:;
                                                                //   1447              read sym
#line 1447 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1448           %REPEAT
#line 1448 "regression-compile-tmp/vax-pass1.imp"
goto L_00e5;
                                                                //   1449        %END
#line 1449 "regression-compile-tmp/vax-pass1.imp"
return;
} // End of block GET at level 5
                                                                //   1450  
                                                                //   1451  number:base = 10
#line 1451 "regression-compile-tmp/vax-pass1.imp"
U_100f:;
#line 1451 "regression-compile-tmp/vax-pass1.imp"
BASE = 10;
                                                                //   1452  bxk:   atom1 = var;  atom2 = const;  type = integer;  subatom = lp
#line 1452 "regression-compile-tmp/vax-pass1.imp"
U_100c:;
#line 1452 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 91;
#line 1452 "regression-compile-tmp/vax-pass1.imp"
ATOM2 = 93;
#line 1452 "regression-compile-tmp/vax-pass1.imp"
TYPE = 1;
#line 1452 "regression-compile-tmp/vax-pass1.imp"
SUBATOM = LP;
                                                                //   1453         map gg = const;  protection = prot
#line 1453 "regression-compile-tmp/vax-pass1.imp"
MAPGG = 93;
#line 1453 "regression-compile-tmp/vax-pass1.imp"
PROTECTION = 256;
                                                                //   1454         abandon(3) %IF lp >= lit max
#line 1454 "regression-compile-tmp/vax-pass1.imp"
if (((LP) < (50))) goto L_00e6;
#line 1454 "regression-compile-tmp/vax-pass1.imp"
ABANDON(3);
#line 1454 "regression-compile-tmp/vax-pass1.imp"
L_00e6:;
                                                                //   1455         pt = strp;  mul = 0
#line 1455 "regression-compile-tmp/vax-pass1.imp"
PT = STRP;
#line 1455 "regression-compile-tmp/vax-pass1.imp"
MUL = 0;
                                                                //   1456         %CYCLE
#line 1456 "regression-compile-tmp/vax-pass1.imp"
L_00f1:;
                                                                //   1457            get(base)
#line 1457 "regression-compile-tmp/vax-pass1.imp"
GET(BASE);
                                                                //   1458            %EXIT %UNLESS sym = '_' %AND base # 0 %AND pend quote = 0;    !change of base
#line 1458 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (95))) goto L_00f4;
#line 1458 "regression-compile-tmp/vax-pass1.imp"
if (((BASE) == (0))) goto L_00f4;
#line 1458 "regression-compile-tmp/vax-pass1.imp"
if (((PENDQUOTE) == (0))) goto L_00f5;
#line 1458 "regression-compile-tmp/vax-pass1.imp"
L_00f4:;
#line 1458 "regression-compile-tmp/vax-pass1.imp"
goto L_00f2;
#line 1458 "regression-compile-tmp/vax-pass1.imp"
L_00f5:;
                                                                //   1459            read sym
#line 1459 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1460            base = n
#line 1460 "regression-compile-tmp/vax-pass1.imp"
BASE = N;
                                                                //   1461         %REPEAT
#line 1461 "regression-compile-tmp/vax-pass1.imp"
goto L_00f1;
#line 1461 "regression-compile-tmp/vax-pass1.imp"
L_00f2:;
                                                                //   1462  
                                                                //   1463         %IF pend quote # 0 %START
#line 1463 "regression-compile-tmp/vax-pass1.imp"
if (((PENDQUOTE) == (0))) goto L_00f6;
                                                                //   1464            ->err %IF sym # cquote
#line 1464 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) == (39))) goto L_00f7;
#line 1464 "regression-compile-tmp/vax-pass1.imp"
goto U_1013;
#line 1464 "regression-compile-tmp/vax-pass1.imp"
L_00f7:;
                                                                //   1465            readsym
#line 1465 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1466         %FINISH
#line 1466 "regression-compile-tmp/vax-pass1.imp"
L_00f6:;
                                                                //   1467         %IF sym = '.' %START;                        !a real constant
#line 1467 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (46))) goto L_00f8;
                                                                //   1468            pt = pt+1;  byteinteger(pt) = '.'
#line 1468 "regression-compile-tmp/vax-pass1.imp"
PT = (((int)(PT)) + (1));
#line 1468 "regression-compile-tmp/vax-pass1.imp"
*_imp_BYTEINTEGER(PT) = 46;
                                                                //   1469            read sym
#line 1469 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1470            type = real;  base = 0;  get(10)
#line 1470 "regression-compile-tmp/vax-pass1.imp"
TYPE = 2;
#line 1470 "regression-compile-tmp/vax-pass1.imp"
BASE = 0;
#line 1470 "regression-compile-tmp/vax-pass1.imp"
GET(10);
                                                                //   1471         %FINISH
#line 1471 "regression-compile-tmp/vax-pass1.imp"
L_00f8:;
                                                                //   1472         %IF sym = '@' %START;                        !an exponent
#line 1472 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (64))) goto L_00f9;
                                                                //   1473            pt = pt+1;  byteinteger(pt) = '@';  k = pt
#line 1473 "regression-compile-tmp/vax-pass1.imp"
PT = (((int)(PT)) + (1));
#line 1473 "regression-compile-tmp/vax-pass1.imp"
*_imp_BYTEINTEGER(PT) = 64;
#line 1473 "regression-compile-tmp/vax-pass1.imp"
K = PT;
                                                                //   1474            readsym
#line 1474 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1475            type = integer;  base = 10
#line 1475 "regression-compile-tmp/vax-pass1.imp"
TYPE = 1;
#line 1475 "regression-compile-tmp/vax-pass1.imp"
BASE = 10;
                                                                //   1476            %IF sym = '-' %START
#line 1476 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (45))) goto L_00fa;
                                                                //   1477               read sym;  get(10);  n = -n
#line 1477 "regression-compile-tmp/vax-pass1.imp"
READSYM();
#line 1477 "regression-compile-tmp/vax-pass1.imp"
GET(10);
#line 1477 "regression-compile-tmp/vax-pass1.imp"
N = (-(N));
                                                                //   1478            %FINISH %ELSE %START
#line 1478 "regression-compile-tmp/vax-pass1.imp"
goto L_00fb;
#line 1478 "regression-compile-tmp/vax-pass1.imp"
L_00fa:;
                                                                //   1479               get(10)
#line 1479 "regression-compile-tmp/vax-pass1.imp"
GET(10);
                                                                //   1480            %FINISH
#line 1480 "regression-compile-tmp/vax-pass1.imp"
L_00fb:;
                                                                //   1481            pt = k+1;  byteinteger(pt) = lp;  litpool(lp) = n;  lp = lp+1
#line 1481 "regression-compile-tmp/vax-pass1.imp"
PT = (((int)(K)) + (1));
#line 1481 "regression-compile-tmp/vax-pass1.imp"
*_imp_BYTEINTEGER(PT) = LP;
#line 1481 "regression-compile-tmp/vax-pass1.imp"
LITPOOL[LP] = N;
#line 1481 "regression-compile-tmp/vax-pass1.imp"
LP = (((int)(LP)) + (1));
                                                                //   1482            atom1 = error+10 %IF base = 0
#line 1482 "regression-compile-tmp/vax-pass1.imp"
if (((BASE) != (0))) goto L_00fc;
#line 1482 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 32778;
#line 1482 "regression-compile-tmp/vax-pass1.imp"
L_00fc:;
                                                                //   1483            type = real;                              !exponents force the type
#line 1483 "regression-compile-tmp/vax-pass1.imp"
TYPE = 2;
                                                                //   1484         %FINISH
#line 1484 "regression-compile-tmp/vax-pass1.imp"
L_00f9:;
                                                                //   1485  
                                                                //   1486         %IF type = real %START
#line 1486 "regression-compile-tmp/vax-pass1.imp"
if (((TYPE) != (2))) goto L_00fd;
                                                                //   1487            byteinteger(strp) = pt-strp
#line 1487 "regression-compile-tmp/vax-pass1.imp"
*_imp_BYTEINTEGER(STRP) = (((int)(PT)) - (STRP));
                                                                //   1488            subatom = (strp-stbase)!16_2000;  strp = pt+1
#line 1488 "regression-compile-tmp/vax-pass1.imp"
SUBATOM = (((((int)(STRP)) - (STBASE))) | (8192));
#line 1488 "regression-compile-tmp/vax-pass1.imp"
STRP = (((int)(PT)) + (1));
                                                                //   1489         %FINISH %ELSE %START
#line 1489 "regression-compile-tmp/vax-pass1.imp"
goto L_00fe;
#line 1489 "regression-compile-tmp/vax-pass1.imp"
L_00fd:;
                                                                //   1490            litpool(lp) = n
#line 1490 "regression-compile-tmp/vax-pass1.imp"
LITPOOL[LP] = N;
                                                                //   1491            lp = lp+1
#line 1491 "regression-compile-tmp/vax-pass1.imp"
LP = (((int)(LP)) + (1));
                                                                //   1492         %FINISH
#line 1492 "regression-compile-tmp/vax-pass1.imp"
L_00fe:;
                                                                //   1493         %RETURN
#line 1493 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1494  
                                                                //   1495  name: atom1 = 0 %AND %RETURN %IF 27 <= target <= 41
#line 1495 "regression-compile-tmp/vax-pass1.imp"
U_100e:;
#line 1495 "regression-compile-tmp/vax-pass1.imp"
if ((((27) > (TARGET))) || (((TARGET) > (41)))) goto L_00ff;
#line 1495 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 0;
#line 1495 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1495 "regression-compile-tmp/vax-pass1.imp"
L_00ff:;
                                                                //   1496        hash value = 0
#line 1496 "regression-compile-tmp/vax-pass1.imp"
HASHVALUE = 0;
                                                                //   1497  
                                                                //   1498        !*****************************
                                                                //   1499        !*machine dependent for speed*
                                                                //   1500        !*****************************
                                                                //   1501  
                                                                //   1502        dp = dmax+1
#line 1502 "regression-compile-tmp/vax-pass1.imp"
DP = (((int)(DMAX)) + (1));
                                                                //   1503        da = addr(dict(dp));  dbase = da
#line 1503 "regression-compile-tmp/vax-pass1.imp"
DA = _imp_ADDR(&DICT[(((int)(DP)) - (1))]);
#line 1503 "regression-compile-tmp/vax-pass1.imp"
DBASE = DA;
                                                                //   1504        %CYCLE
#line 1504 "regression-compile-tmp/vax-pass1.imp"
L_0100:;
                                                                //   1505           hash value = hash value+(hash value+sym);        !is this good enough?
#line 1505 "regression-compile-tmp/vax-pass1.imp"
HASHVALUE = ((HASHVALUE) + ((int)((((int)(HASHVALUE)) + (SYM)))));
                                                                //   1506           da = da+1;  byteinteger(da) = sym
#line 1506 "regression-compile-tmp/vax-pass1.imp"
DA = (((int)(DA)) + (1));
#line 1506 "regression-compile-tmp/vax-pass1.imp"
*_imp_BYTEINTEGER(DA) = SYM;
                                                                //   1507           read sym
#line 1507 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1508           %EXIT %IF symtype >= 0
#line 1508 "regression-compile-tmp/vax-pass1.imp"
if (((SYMTYPE) < (0))) goto L_0103;
#line 1508 "regression-compile-tmp/vax-pass1.imp"
goto L_0101;
#line 1508 "regression-compile-tmp/vax-pass1.imp"
L_0103:;
                                                                //   1509        %REPEAT
#line 1509 "regression-compile-tmp/vax-pass1.imp"
goto L_0100;
#line 1509 "regression-compile-tmp/vax-pass1.imp"
L_0101:;
                                                                //   1510        %IF sym = cquote %START
#line 1510 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (39))) goto L_0104;
                                                                //   1511           pend quote = 100
#line 1511 "regression-compile-tmp/vax-pass1.imp"
PENDQUOTE = 100;
                                                                //   1512           ->symbols %IF hash value = 'M'
#line 1512 "regression-compile-tmp/vax-pass1.imp"
if (((HASHVALUE) != (77))) goto L_0105;
#line 1512 "regression-compile-tmp/vax-pass1.imp"
goto U_1012;
#line 1512 "regression-compile-tmp/vax-pass1.imp"
L_0105:;
                                                                //   1513           read sym
#line 1513 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1514           %IF hash value = 'X' %THEN base = 16 %AND ->bxk
#line 1514 "regression-compile-tmp/vax-pass1.imp"
if (((HASHVALUE) != (88))) goto L_0106;
#line 1514 "regression-compile-tmp/vax-pass1.imp"
BASE = 16;
#line 1514 "regression-compile-tmp/vax-pass1.imp"
goto U_100c;
#line 1514 "regression-compile-tmp/vax-pass1.imp"
L_0106:;
                                                                //   1515           %IF hash value = 'K' %C
#line 1515 "regression-compile-tmp/vax-pass1.imp"
if (((HASHVALUE) == (75))) goto L_0107;
#line 1515 "regression-compile-tmp/vax-pass1.imp"
if (((HASHVALUE) != (79))) goto L_0108;
#line 1515 "regression-compile-tmp/vax-pass1.imp"
L_0107:;
#line 1515 "regression-compile-tmp/vax-pass1.imp"
BASE = 8;
#line 1515 "regression-compile-tmp/vax-pass1.imp"
goto U_100c;
#line 1515 "regression-compile-tmp/vax-pass1.imp"
L_0108:;
                                                                //   1516           %OR hash value = 'O' %THEN base = 8 %AND ->bxk
                                                                //   1517           %IF hash value = 'B' %THEN base = 2 %AND ->bxk
#line 1517 "regression-compile-tmp/vax-pass1.imp"
if (((HASHVALUE) != (66))) goto L_0109;
#line 1517 "regression-compile-tmp/vax-pass1.imp"
BASE = 2;
#line 1517 "regression-compile-tmp/vax-pass1.imp"
goto U_100c;
#line 1517 "regression-compile-tmp/vax-pass1.imp"
L_0109:;
                                                                //   1518           ->err
#line 1518 "regression-compile-tmp/vax-pass1.imp"
goto U_1013;
                                                                //   1519        %FINISH
#line 1519 "regression-compile-tmp/vax-pass1.imp"
L_0104:;
                                                                //   1520        n = da-dbase
#line 1520 "regression-compile-tmp/vax-pass1.imp"
N = (((int)(DA)) - (DBASE));
                                                                //   1521        byteinteger(dbase) = n
#line 1521 "regression-compile-tmp/vax-pass1.imp"
*_imp_BYTEINTEGER(DBASE) = N;
                                                                //   1522        dp = dp+(n+2)>>1
#line 1522 "regression-compile-tmp/vax-pass1.imp"
DP = ((DP) + ((int)((((((((int)(N)) + (2)))) >> (1))))));
                                                                //   1523        abandon(8) %IF dp >= dmin
#line 1523 "regression-compile-tmp/vax-pass1.imp"
if (((DP) < (DMIN))) goto L_010a;
#line 1523 "regression-compile-tmp/vax-pass1.imp"
ABANDON(8);
#line 1523 "regression-compile-tmp/vax-pass1.imp"
L_010a:;
                                                                //   1524  
                                                                //   1525        atom2 = 90;                  !ident
#line 1525 "regression-compile-tmp/vax-pass1.imp"
ATOM2 = 90;
                                                                //   1526        %IF last1 = 0 %AND sym = ':' %START;           !label
#line 1526 "regression-compile-tmp/vax-pass1.imp"
if (((LAST1) != (0))) goto L_010b;
#line 1526 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (58))) goto L_010b;
                                                                //   1527           limit = local;  lookup(lab);  %RETURN
#line 1527 "regression-compile-tmp/vax-pass1.imp"
LIMIT = LOCAL;
#line 1527 "regression-compile-tmp/vax-pass1.imp"
LOOKUP(3);
#line 1527 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1528        %FINISH
#line 1528 "regression-compile-tmp/vax-pass1.imp"
L_010b:;
                                                                //   1529        %IF last1 = jump %START;                 !->label
#line 1529 "regression-compile-tmp/vax-pass1.imp"
if (((LAST1) != (54))) goto L_010c;
                                                                //   1530           limit = local;  lookup(lab+spec+used bit);  %RETURN
#line 1530 "regression-compile-tmp/vax-pass1.imp"
LIMIT = LOCAL;
#line 1530 "regression-compile-tmp/vax-pass1.imp"
LOOKUP(32899);
#line 1530 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1531        %FINISH
#line 1531 "regression-compile-tmp/vax-pass1.imp"
L_010c:;
                                                                //   1532        %IF decl # 0 %AND target = 90 %START;    !identifier
#line 1532 "regression-compile-tmp/vax-pass1.imp"
if (((DECL) == (0))) goto L_010d;
#line 1532 "regression-compile-tmp/vax-pass1.imp"
if (((TARGET) != (90))) goto L_010d;
                                                                //   1533           search base = fm base
#line 1533 "regression-compile-tmp/vax-pass1.imp"
SEARCHBASE = FMBASE;
                                                                //   1534           limit = local;  lookup(decl)
#line 1534 "regression-compile-tmp/vax-pass1.imp"
LIMIT = LOCAL;
#line 1534 "regression-compile-tmp/vax-pass1.imp"
LOOKUP(DECL);
                                                                //   1535           search base = 0
#line 1535 "regression-compile-tmp/vax-pass1.imp"
SEARCHBASE = 0;
                                                                //   1536        %FINISH %ELSE %START
#line 1536 "regression-compile-tmp/vax-pass1.imp"
goto L_010e;
#line 1536 "regression-compile-tmp/vax-pass1.imp"
L_010d:;
                                                                //   1537           limit = 0;  lookup(0)
#line 1537 "regression-compile-tmp/vax-pass1.imp"
LIMIT = 0;
#line 1537 "regression-compile-tmp/vax-pass1.imp"
LOOKUP(0);
                                                                //   1538        %FINISH
#line 1538 "regression-compile-tmp/vax-pass1.imp"
L_010e:;
                                                                //   1539     %END
#line 1539 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CODEATOM at level 4
                                                                //   1540  
                                                                //   1541     %INTEGERFN parsed machine code
#line 1541 "regression-compile-tmp/vax-pass1.imp"
int PARSEDMACHINECODE( void )
#line 1541 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   1542        !   *opcode_??????????
                                                                //   1543        %routine octal(%integer n)
#line 1543 "regression-compile-tmp/vax-pass1.imp"
void OCTAL( int N )
#line 1543 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   1544           %integer m
#line 1544 "regression-compile-tmp/vax-pass1.imp"
int M;
                                                                //   1545           m = n>>3
#line 1545 "regression-compile-tmp/vax-pass1.imp"
M = (int)((((unsigned int)(N)) >> (3)));
                                                                //   1546           octal(m) %if m # 0
#line 1546 "regression-compile-tmp/vax-pass1.imp"
if (((M) == (0))) goto L_010f;
#line 1546 "regression-compile-tmp/vax-pass1.imp"
OCTAL(M);
#line 1546 "regression-compile-tmp/vax-pass1.imp"
L_010f:;
                                                                //   1547           put(n&7+'0')
#line 1547 "regression-compile-tmp/vax-pass1.imp"
PUT((((int)(((N) & (7)))) + (48)));
                                                                //   1548        %end
#line 1548 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block OCTAL at level 5
                                                                //   1549        atom1 = error %AND %RESULT=0 %UNLESS symtype = -2;  !starts with letter
#line 1549 "regression-compile-tmp/vax-pass1.imp"
if (((SYMTYPE) == ((-2)))) goto L_0110;
#line 1549 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 32768;
#line 1549 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 1549 "regression-compile-tmp/vax-pass1.imp"
L_0110:;
                                                                //   1550        put('w')
#line 1550 "regression-compile-tmp/vax-pass1.imp"
PUT(119);
                                                                //   1551        %CYCLE
#line 1551 "regression-compile-tmp/vax-pass1.imp"
L_0111:;
                                                                //   1552           put(sym)
#line 1552 "regression-compile-tmp/vax-pass1.imp"
PUT(SYM);
                                                                //   1553           read sym
#line 1553 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1554           %EXIT %IF symtype >= 0;           !pull in letters and digits
#line 1554 "regression-compile-tmp/vax-pass1.imp"
if (((SYMTYPE) < (0))) goto L_0114;
#line 1554 "regression-compile-tmp/vax-pass1.imp"
goto L_0112;
#line 1554 "regression-compile-tmp/vax-pass1.imp"
L_0114:;
                                                                //   1555        %REPEAT
#line 1555 "regression-compile-tmp/vax-pass1.imp"
goto L_0111;
#line 1555 "regression-compile-tmp/vax-pass1.imp"
L_0112:;
                                                                //   1556        put('_')
#line 1556 "regression-compile-tmp/vax-pass1.imp"
PUT(95);
                                                                //   1557        %IF symtype # 0 %START;                !not terminator
#line 1557 "regression-compile-tmp/vax-pass1.imp"
if (((SYMTYPE) == (0))) goto L_0115;
                                                                //   1558           atom1 = error %AND %result=0 %UNLESS sym = '_'
#line 1558 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) == (95))) goto L_0116;
#line 1558 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 32768;
#line 1558 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 1558 "regression-compile-tmp/vax-pass1.imp"
L_0116:;
                                                                //   1559           read sym
#line 1559 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1560           %WHILE symtype # 0 %CYCLE
#line 1560 "regression-compile-tmp/vax-pass1.imp"
L_0117:;
#line 1560 "regression-compile-tmp/vax-pass1.imp"
if (((SYMTYPE) == (0))) goto L_0118;
                                                                //   1561              %IF symtype < 0 %START;             !complex
#line 1561 "regression-compile-tmp/vax-pass1.imp"
if (((SYMTYPE) >= (0))) goto L_011a;
                                                                //   1562                 code atom(0);  %result=0 %IF atom1&error # 0
#line 1562 "regression-compile-tmp/vax-pass1.imp"
CODEATOM(0);
#line 1562 "regression-compile-tmp/vax-pass1.imp"
if (((((ATOM1) & (32768))) == (0))) goto L_011b;
#line 1562 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return 0;
#line 1562 "regression-compile-tmp/vax-pass1.imp"
L_011b:;
                                                                //   1563                 %IF atom2 = const %AND type = integer %START
#line 1563 "regression-compile-tmp/vax-pass1.imp"
if (((ATOM2) != (93))) goto L_011c;
#line 1563 "regression-compile-tmp/vax-pass1.imp"
if (((TYPE) != (1))) goto L_011c;
                                                                //   1564                    %IF subatom < 0 %THEN octal(tag(-subatom)_format) %C
#line 1564 "regression-compile-tmp/vax-pass1.imp"
if (((SUBATOM) >= (0))) goto L_011d;
#line 1564 "regression-compile-tmp/vax-pass1.imp"
OCTAL(TAG[(-(SUBATOM))].FORMAT);
#line 1564 "regression-compile-tmp/vax-pass1.imp"
goto L_011e;
#line 1564 "regression-compile-tmp/vax-pass1.imp"
L_011d:;
#line 1564 "regression-compile-tmp/vax-pass1.imp"
OCTAL(LITPOOL[SUBATOM]);
#line 1564 "regression-compile-tmp/vax-pass1.imp"
L_011e:;
                                                                //   1565                                    %ELSE octal(litpool(subatom))
                                                                //   1566                 %FINISH %ELSE %START
#line 1566 "regression-compile-tmp/vax-pass1.imp"
goto L_011f;
#line 1566 "regression-compile-tmp/vax-pass1.imp"
L_011c:;
                                                                //   1567                    %IF 91 <= atom1 <= 109 %START
#line 1567 "regression-compile-tmp/vax-pass1.imp"
if ((((91) > (ATOM1))) || (((ATOM1) > (109)))) goto L_0120;
                                                                //   1568                       put(' '); octal(tag(subatom)_index)
#line 1568 "regression-compile-tmp/vax-pass1.imp"
PUT(32);
#line 1568 "regression-compile-tmp/vax-pass1.imp"
OCTAL(TAG[SUBATOM].INDEX);
                                                                //   1569                    %FINISH %ELSE %START
#line 1569 "regression-compile-tmp/vax-pass1.imp"
goto L_0121;
#line 1569 "regression-compile-tmp/vax-pass1.imp"
L_0120:;
                                                                //   1570                       atom1 = error;  %result=0
#line 1570 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 32768;
#line 1570 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return 0;
                                                                //   1571                    %FINISH
#line 1571 "regression-compile-tmp/vax-pass1.imp"
L_0121:;
                                                                //   1572                 %FINISH
#line 1572 "regression-compile-tmp/vax-pass1.imp"
L_011f:;
                                                                //   1573              %FINISH %ELSE %START
#line 1573 "regression-compile-tmp/vax-pass1.imp"
goto L_0122;
#line 1573 "regression-compile-tmp/vax-pass1.imp"
L_011a:;
                                                                //   1574                 put(sym);  read sym
#line 1574 "regression-compile-tmp/vax-pass1.imp"
PUT(SYM);
#line 1574 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1575              %FINISH
#line 1575 "regression-compile-tmp/vax-pass1.imp"
L_0122:;
                                                                //   1576           %REPEAT
#line 1576 "regression-compile-tmp/vax-pass1.imp"
goto L_0117;
#line 1576 "regression-compile-tmp/vax-pass1.imp"
L_0118:;
                                                                //   1577        %FINISH
#line 1577 "regression-compile-tmp/vax-pass1.imp"
L_0115:;
                                                                //   1578        put(';')
#line 1578 "regression-compile-tmp/vax-pass1.imp"
PUT(59);
                                                                //   1579        %RESULT=1
#line 1579 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return 1;
                                                                //   1580     %END
#line 1580 "regression-compile-tmp/vax-pass1.imp"
} // End of block PARSEDMACHINECODE at level 4
                                                                //   1581  
                                                                //   1582     cont = ' ' %IF gg = 0
#line 1582 "regression-compile-tmp/vax-pass1.imp"
if (((GG) != (0))) goto L_0123;
#line 1582 "regression-compile-tmp/vax-pass1.imp"
CONT = 32;
#line 1582 "regression-compile-tmp/vax-pass1.imp"
L_0123:;
                                                                //   1583     last1 = 0;  mapgg = 0
#line 1583 "regression-compile-tmp/vax-pass1.imp"
LAST1 = 0;
#line 1583 "regression-compile-tmp/vax-pass1.imp"
MAPGG = 0;
                                                                //   1584     s = 0;  ss = 0;  sstype = -1; fdef = 0
#line 1584 "regression-compile-tmp/vax-pass1.imp"
S = 0;
#line 1584 "regression-compile-tmp/vax-pass1.imp"
SS = 0;
#line 1584 "regression-compile-tmp/vax-pass1.imp"
SSTYPE = (-1);
#line 1584 "regression-compile-tmp/vax-pass1.imp"
FDEF = 0;
                                                                //   1585     fm base = 0
#line 1585 "regression-compile-tmp/vax-pass1.imp"
FMBASE = 0;
                                                                //   1586     app = 0
#line 1586 "regression-compile-tmp/vax-pass1.imp"
APP = 0;
                                                                //   1587  
                                                                //   1588     !deal with alignment following an error in one statement
                                                                //   1589     !of several on a line
                                                                //   1590  
                                                                //   1591     margin = column;                         !start of statement
#line 1591 "regression-compile-tmp/vax-pass1.imp"
MARGIN = COLUMN;
                                                                //   1592  
                                                                //   1593     pos = 0
#line 1593 "regression-compile-tmp/vax-pass1.imp"
POS = 0;
                                                                //   1594     stbase = addr(glink(gmax+1));  strp = stbase;  lp = 0
#line 1594 "regression-compile-tmp/vax-pass1.imp"
STBASE = _imp_ADDR(&GLINK[(((int)(GMAX)) + (1))]);
#line 1594 "regression-compile-tmp/vax-pass1.imp"
STRP = STBASE;
#line 1594 "regression-compile-tmp/vax-pass1.imp"
LP = 0;
                                                                //   1595     tbase = tstart;               !??????????????
#line 1595 "regression-compile-tmp/vax-pass1.imp"
TBASE = TSTART;
                                                                //   1596     local = tbase
#line 1596 "regression-compile-tmp/vax-pass1.imp"
LOCAL = TBASE;
                                                                //   1597  
                                                                //   1598     %IF gg = 0 %or ocount >= 0 %START;            !data or not continuation(z)
#line 1598 "regression-compile-tmp/vax-pass1.imp"
if (((GG) == (0))) goto L_0113;
#line 1598 "regression-compile-tmp/vax-pass1.imp"
if (((OCOUNT) < (0))) goto L_0124;
#line 1598 "regression-compile-tmp/vax-pass1.imp"
L_0113:;
                                                                //   1599  again:%WHILE sym type = 0 %CYCLE;                !skip redundant terminators
#line 1599 "regression-compile-tmp/vax-pass1.imp"
U_1006:;
#line 1599 "regression-compile-tmp/vax-pass1.imp"
L_0125:;
#line 1599 "regression-compile-tmp/vax-pass1.imp"
if (((SYMTYPE) != (0))) goto L_0126;
                                                                //   1600           c = cont
#line 1600 "regression-compile-tmp/vax-pass1.imp"
C = CONT;
                                                                //   1601           cont = ' ';  cont = '+' %IF ocount >= 0
#line 1601 "regression-compile-tmp/vax-pass1.imp"
CONT = 32;
#line 1601 "regression-compile-tmp/vax-pass1.imp"
if (((OCOUNT) < (0))) goto L_0128;
#line 1601 "regression-compile-tmp/vax-pass1.imp"
CONT = 43;
#line 1601 "regression-compile-tmp/vax-pass1.imp"
L_0128:;
                                                                //   1602           read sym
#line 1602 "regression-compile-tmp/vax-pass1.imp"
READSYM();
                                                                //   1603           cont = c
#line 1603 "regression-compile-tmp/vax-pass1.imp"
CONT = C;
                                                                //   1604        %REPEAT
#line 1604 "regression-compile-tmp/vax-pass1.imp"
goto L_0125;
#line 1604 "regression-compile-tmp/vax-pass1.imp"
L_0126:;
                                                                //   1605        ->skip %IF sym = '!';                      !comment
#line 1605 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) != (33))) goto L_0129;
#line 1605 "regression-compile-tmp/vax-pass1.imp"
goto U_1007;
#line 1605 "regression-compile-tmp/vax-pass1.imp"
L_0129:;
                                                                //   1606        this = -1
#line 1606 "regression-compile-tmp/vax-pass1.imp"
THIS = (-1);
                                                                //   1607        code atom(0)
#line 1607 "regression-compile-tmp/vax-pass1.imp"
CODEATOM(0);
                                                                //   1608        %IF atom1 = comment %START
#line 1608 "regression-compile-tmp/vax-pass1.imp"
if (((ATOM1) != (22))) goto L_012a;
                                                                //   1609  skip:    quote = 1
#line 1609 "regression-compile-tmp/vax-pass1.imp"
U_1007:;
#line 1609 "regression-compile-tmp/vax-pass1.imp"
QUOTE = 1;
                                                                //   1610           c = cont
#line 1610 "regression-compile-tmp/vax-pass1.imp"
C = CONT;
                                                                //   1611           read sym %AND cont = c %WHILE sym # nl; !skip to end of line
#line 1611 "regression-compile-tmp/vax-pass1.imp"
L_012b:;
#line 1611 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) == (10))) goto L_012c;
#line 1611 "regression-compile-tmp/vax-pass1.imp"
READSYM();
#line 1611 "regression-compile-tmp/vax-pass1.imp"
CONT = C;
#line 1611 "regression-compile-tmp/vax-pass1.imp"
goto L_012b;
#line 1611 "regression-compile-tmp/vax-pass1.imp"
L_012c:;
                                                                //   1612           quote = 0;  symtype = 0
#line 1612 "regression-compile-tmp/vax-pass1.imp"
QUOTE = 0;
#line 1612 "regression-compile-tmp/vax-pass1.imp"
SYMTYPE = 0;
                                                                //   1613           ->again
#line 1613 "regression-compile-tmp/vax-pass1.imp"
goto U_1006;
                                                                //   1614        %FINISH
#line 1614 "regression-compile-tmp/vax-pass1.imp"
L_012a:;
                                                                //   1615     %FINISH
#line 1615 "regression-compile-tmp/vax-pass1.imp"
L_0124:;
                                                                //   1616     decl = 0;  mark = 0
#line 1616 "regression-compile-tmp/vax-pass1.imp"
DECL = 0;
#line 1616 "regression-compile-tmp/vax-pass1.imp"
MARK = 0;
                                                                //   1617     gentype = 0;  force = 0
#line 1617 "regression-compile-tmp/vax-pass1.imp"
GENTYPE = 0;
#line 1617 "regression-compile-tmp/vax-pass1.imp"
FORCE = 0;
                                                                //   1618     dim = 0;  prot err = 0
#line 1618 "regression-compile-tmp/vax-pass1.imp"
DIM = 0;
#line 1618 "regression-compile-tmp/vax-pass1.imp"
PROTERR = 0;
                                                                //   1619     node = 0;  nmax = 0;  nmin = rec size+1
#line 1619 "regression-compile-tmp/vax-pass1.imp"
NODE = 0;
#line 1619 "regression-compile-tmp/vax-pass1.imp"
NMAX = 0;
#line 1619 "regression-compile-tmp/vax-pass1.imp"
NMIN = 261;
                                                                //   1620     order = 1;  gmin = max grammar+1
#line 1620 "regression-compile-tmp/vax-pass1.imp"
ORDER = 1;
#line 1620 "regression-compile-tmp/vax-pass1.imp"
GMIN = 1801;
                                                                //   1621     sstype = 0 %AND ->more %IF gg # 0;             !continuation
#line 1621 "regression-compile-tmp/vax-pass1.imp"
if (((GG) == (0))) goto L_012e;
#line 1621 "regression-compile-tmp/vax-pass1.imp"
SSTYPE = 0;
#line 1621 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
#line 1621 "regression-compile-tmp/vax-pass1.imp"
L_012e:;
                                                                //   1622     ptype = 0;  spec given = 0
#line 1622 "regression-compile-tmp/vax-pass1.imp"
PTYPE = 0;
#line 1622 "regression-compile-tmp/vax-pass1.imp"
SPECGIVEN = 0;
                                                                //   1623  
                                                                //   1624     stats = stats+1;  op('O', lines) %IF perm = 0
#line 1624 "regression-compile-tmp/vax-pass1.imp"
STATS = (((int)(STATS)) + (1));
#line 1624 "regression-compile-tmp/vax-pass1.imp"
if (((PERM) != (0))) goto L_012f;
#line 1624 "regression-compile-tmp/vax-pass1.imp"
OP(79, LINES);
#line 1624 "regression-compile-tmp/vax-pass1.imp"
L_012f:;
                                                                //   1625  
                                                                //   1626     ->fail1 %IF atom1&error # 0;                  !first atom faulty
#line 1626 "regression-compile-tmp/vax-pass1.imp"
if (((((ATOM1) & (32768))) == (0))) goto L_0130;
#line 1626 "regression-compile-tmp/vax-pass1.imp"
goto U_1009;
#line 1626 "regression-compile-tmp/vax-pass1.imp"
L_0130:;
                                                                //   1627  
                                                                //   1628     %IF escape class # 0 %START;                  !enter the hard way after
#line 1628 "regression-compile-tmp/vax-pass1.imp"
if (((ESCAPECLASS) == (0))) goto L_0131;
                                                                //   1629        g = imp phrase;  sstype = -1;  ->a3
#line 1629 "regression-compile-tmp/vax-pass1.imp"
G = 24;
#line 1629 "regression-compile-tmp/vax-pass1.imp"
SSTYPE = (-1);
#line 1629 "regression-compile-tmp/vax-pass1.imp"
goto U_100a;
                                                                //   1630     %FINISH
#line 1630 "regression-compile-tmp/vax-pass1.imp"
L_0131:;
                                                                //   1631  
                                                                //   1632     g = initial(atom1);                           !pick up entry point
#line 1632 "regression-compile-tmp/vax-pass1.imp"
G = INITIAL[ATOM1];
                                                                //   1633     %IF g = 0 %START;                             !invalid first atom
#line 1633 "regression-compile-tmp/vax-pass1.imp"
if (((G) != (0))) goto L_0132;
                                                                //   1634        g = initial(0);  sstype = 0;  ->a3;        !declarator?
#line 1634 "regression-compile-tmp/vax-pass1.imp"
G = INITIAL[0];
#line 1634 "regression-compile-tmp/vax-pass1.imp"
SSTYPE = 0;
#line 1634 "regression-compile-tmp/vax-pass1.imp"
goto U_100a;
                                                                //   1635     %FINISH
#line 1635 "regression-compile-tmp/vax-pass1.imp"
L_0132:;
                                                                //   1636     %IF g < 0 %START;                             !phrase imp
#line 1636 "regression-compile-tmp/vax-pass1.imp"
if (((G) >= (0))) goto L_0133;
                                                                //   1637        g = g&255
#line 1637 "regression-compile-tmp/vax-pass1.imp"
G = ((G) & (255));
                                                                //   1638        nmax = 1
#line 1638 "regression-compile-tmp/vax-pass1.imp"
NMAX = 1;
                                                                //   1639        ar(1)_class = 0;  ar(1)_link = 0;  ar(1)_sub = imp phrase
#line 1639 "regression-compile-tmp/vax-pass1.imp"
AR[0].CLASS = 0;
#line 1639 "regression-compile-tmp/vax-pass1.imp"
AR[0].LINK = 0;
#line 1639 "regression-compile-tmp/vax-pass1.imp"
AR[0].SUB = 24;
                                                                //   1640     %FINISH
#line 1640 "regression-compile-tmp/vax-pass1.imp"
L_0133:;
                                                                //   1641  
                                                                //   1642     gg = gram(g);  class = gg&255;  sstype = gg>>12&3-1
#line 1642 "regression-compile-tmp/vax-pass1.imp"
GG = GRAM[G];
#line 1642 "regression-compile-tmp/vax-pass1.imp"
CLASS = ((GG) & (255));
#line 1642 "regression-compile-tmp/vax-pass1.imp"
SSTYPE = (((int)((((int)((((unsigned int)(GG)) >> (12)))) & (3)))) - (1));
                                                                //   1643     ->a1
#line 1643 "regression-compile-tmp/vax-pass1.imp"
goto U_1015;
                                                                //   1644  
                                                                //   1645  act(194): ptype = type;  papp = app;  pformat = format;  ->more
#line 1645 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_194:;
#line 1645 "regression-compile-tmp/vax-pass1.imp"
PTYPE = TYPE;
#line 1645 "regression-compile-tmp/vax-pass1.imp"
PAPP = APP;
#line 1645 "regression-compile-tmp/vax-pass1.imp"
PFORMAT = FORMAT;
#line 1645 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
                                                                //   1646  act(196):k =g+1;  ->a610
#line 1646 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_196:;
#line 1646 "regression-compile-tmp/vax-pass1.imp"
K = (((int)(G)) + (1));
#line 1646 "regression-compile-tmp/vax-pass1.imp"
goto U_1016;
                                                                //   1647  act(188):k = ar(nmax)_sub+1
#line 1647 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_188:;
#line 1647 "regression-compile-tmp/vax-pass1.imp"
K = (((int)(AR[(((int)(NMAX)) - (1))].SUB)) + (1));
                                                                //   1648  a610:     papp = glink(k)
#line 1648 "regression-compile-tmp/vax-pass1.imp"
U_1016:;
#line 1648 "regression-compile-tmp/vax-pass1.imp"
PAPP = GLINK[K];
                                                                //   1649            k = gram(k)
#line 1649 "regression-compile-tmp/vax-pass1.imp"
K = GRAM[K];
                                                                //   1650            ->more %IF k = 0;                        !%NAME
#line 1650 "regression-compile-tmp/vax-pass1.imp"
if (((K) != (0))) goto L_0134;
#line 1650 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
#line 1650 "regression-compile-tmp/vax-pass1.imp"
L_0134:;
                                                                //   1651            ptype = k&7;  pformat = k>>3
#line 1651 "regression-compile-tmp/vax-pass1.imp"
PTYPE = ((K) & (7));
#line 1651 "regression-compile-tmp/vax-pass1.imp"
PFORMAT = (int)((((unsigned int)(K)) >> (3)));
                                                                //   1652  act(183):k = type;  gentype = k %IF gentype = 0 %OR k = real
#line 1652 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_183:;
#line 1652 "regression-compile-tmp/vax-pass1.imp"
K = TYPE;
#line 1652 "regression-compile-tmp/vax-pass1.imp"
if (((GENTYPE) == (0))) goto L_0135;
#line 1652 "regression-compile-tmp/vax-pass1.imp"
if (((K) != (2))) goto L_0136;
#line 1652 "regression-compile-tmp/vax-pass1.imp"
L_0135:;
#line 1652 "regression-compile-tmp/vax-pass1.imp"
GENTYPE = K;
#line 1652 "regression-compile-tmp/vax-pass1.imp"
L_0136:;
                                                                //   1653            %IF pformat < 0 %START;               !general type
#line 1653 "regression-compile-tmp/vax-pass1.imp"
if (((PFORMAT) >= (0))) goto L_0137;
                                                                //   1654               app = papp;  format = pformat
#line 1654 "regression-compile-tmp/vax-pass1.imp"
APP = PAPP;
#line 1654 "regression-compile-tmp/vax-pass1.imp"
FORMAT = PFORMAT;
                                                                //   1655               k = real %IF ptype = real %AND type = integer
#line 1655 "regression-compile-tmp/vax-pass1.imp"
if (((PTYPE) != (2))) goto L_0138;
#line 1655 "regression-compile-tmp/vax-pass1.imp"
if (((TYPE) != (1))) goto L_0138;
#line 1655 "regression-compile-tmp/vax-pass1.imp"
K = 2;
#line 1655 "regression-compile-tmp/vax-pass1.imp"
L_0138:;
                                                                //   1656               k = force %AND force = 0 %IF force # 0
#line 1656 "regression-compile-tmp/vax-pass1.imp"
if (((FORCE) == (0))) goto L_0139;
#line 1656 "regression-compile-tmp/vax-pass1.imp"
K = FORCE;
#line 1656 "regression-compile-tmp/vax-pass1.imp"
FORCE = 0;
#line 1656 "regression-compile-tmp/vax-pass1.imp"
L_0139:;
                                                                //   1657            %FINISH
#line 1657 "regression-compile-tmp/vax-pass1.imp"
L_0137:;
                                                                //   1658            ->fail2 %UNLESS papp = app %AND (ptype = k %OR ptype = 0)
#line 1658 "regression-compile-tmp/vax-pass1.imp"
if (((PAPP) != (APP))) goto L_013a;
#line 1658 "regression-compile-tmp/vax-pass1.imp"
if (((PTYPE) == (K))) goto L_013b;
#line 1658 "regression-compile-tmp/vax-pass1.imp"
if (((PTYPE) == (0))) goto L_013b;
#line 1658 "regression-compile-tmp/vax-pass1.imp"
L_013a:;
#line 1658 "regression-compile-tmp/vax-pass1.imp"
goto U_1017;
#line 1658 "regression-compile-tmp/vax-pass1.imp"
L_013b:;
                                                                //   1659            ->more %IF pformat=format %OR pformat = 0 %OR format = 0
#line 1659 "regression-compile-tmp/vax-pass1.imp"
if (((PFORMAT) == (FORMAT))) goto L_013c;
#line 1659 "regression-compile-tmp/vax-pass1.imp"
if (((PFORMAT) == (0))) goto L_013c;
#line 1659 "regression-compile-tmp/vax-pass1.imp"
if (((FORMAT) != (0))) goto L_013d;
#line 1659 "regression-compile-tmp/vax-pass1.imp"
L_013c:;
#line 1659 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
#line 1659 "regression-compile-tmp/vax-pass1.imp"
L_013d:;
                                                                //   1660            ->fail2
#line 1660 "regression-compile-tmp/vax-pass1.imp"
goto U_1017;
                                                                //   1661  act(197):arp == ar(nmin)
#line 1661 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_197:;
#line 1661 "regression-compile-tmp/vax-pass1.imp"
ARP = &AR[(((int)(NMIN)) - (1))];
                                                                //   1662           k = arp_sub
#line 1662 "regression-compile-tmp/vax-pass1.imp"
K = ARP->SUB;
                                                                //   1663           ->fail3 %UNLESS block form = k&15
#line 1663 "regression-compile-tmp/vax-pass1.imp"
if (((BLOCKFORM) == (((K) & (15))))) goto L_013e;
#line 1663 "regression-compile-tmp/vax-pass1.imp"
goto U_1018;
#line 1663 "regression-compile-tmp/vax-pass1.imp"
L_013e:;
                                                                //   1664           arp_sub = k>>4
#line 1664 "regression-compile-tmp/vax-pass1.imp"
ARP->SUB = (int)((((unsigned int)(K)) >> (4)));
                                                                //   1665  
                                                                //   1666           type = block type
#line 1666 "regression-compile-tmp/vax-pass1.imp"
TYPE = BLOCKTYPE;
                                                                //   1667           ptype = block type;  pformat = block fm;  papp = app
#line 1667 "regression-compile-tmp/vax-pass1.imp"
PTYPE = BLOCKTYPE;
#line 1667 "regression-compile-tmp/vax-pass1.imp"
PFORMAT = BLOCKFM;
#line 1667 "regression-compile-tmp/vax-pass1.imp"
PAPP = APP;
                                                                //   1668           pformat = -1 %IF ptype # record
#line 1668 "regression-compile-tmp/vax-pass1.imp"
if (((PTYPE) == (4))) goto L_013f;
#line 1668 "regression-compile-tmp/vax-pass1.imp"
PFORMAT = (-1);
#line 1668 "regression-compile-tmp/vax-pass1.imp"
L_013f:;
                                                                //   1669           ->more
#line 1669 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
                                                                //   1670  act(195):arp == ar(nmin)
#line 1670 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_195:;
#line 1670 "regression-compile-tmp/vax-pass1.imp"
ARP = &AR[(((int)(NMIN)) - (1))];
                                                                //   1671           k = arp_sub
#line 1671 "regression-compile-tmp/vax-pass1.imp"
K = ARP->SUB;
                                                                //   1672           arp_sub = k>>2
#line 1672 "regression-compile-tmp/vax-pass1.imp"
ARP->SUB = (int)((((unsigned int)(K)) >> (2)));
                                                                //   1673           k = k&3
#line 1673 "regression-compile-tmp/vax-pass1.imp"
K = ((K) & (3));
                                                                //   1674                                                        !1 = check integer
                                                                //   1675                                                        !2 = check real
                                                                //   1676                                                        !3 = check real + int
                                                                //   1677            ->more %IF k = 0;                             !no action
#line 1677 "regression-compile-tmp/vax-pass1.imp"
if (((K) != (0))) goto L_0140;
#line 1677 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
#line 1677 "regression-compile-tmp/vax-pass1.imp"
L_0140:;
                                                                //   1678            %IF k = 1 %START
#line 1678 "regression-compile-tmp/vax-pass1.imp"
if (((K) != (1))) goto L_0141;
                                                                //   1679               force = integer
#line 1679 "regression-compile-tmp/vax-pass1.imp"
FORCE = 1;
                                                                //   1680               ->more %IF type = integer %OR type = 0
#line 1680 "regression-compile-tmp/vax-pass1.imp"
if (((TYPE) == (1))) goto L_0127;
#line 1680 "regression-compile-tmp/vax-pass1.imp"
if (((TYPE) != (0))) goto L_0142;
#line 1680 "regression-compile-tmp/vax-pass1.imp"
L_0127:;
#line 1680 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
#line 1680 "regression-compile-tmp/vax-pass1.imp"
L_0142:;
                                                                //   1681               ->fail2
#line 1681 "regression-compile-tmp/vax-pass1.imp"
goto U_1017;
                                                                //   1682            %FINISH
#line 1682 "regression-compile-tmp/vax-pass1.imp"
L_0141:;
                                                                //   1683            ->fail2 %UNLESS ptype = real %or ptype = 0
#line 1683 "regression-compile-tmp/vax-pass1.imp"
if (((PTYPE) == (2))) goto L_0143;
#line 1683 "regression-compile-tmp/vax-pass1.imp"
if (((PTYPE) == (0))) goto L_0143;
#line 1683 "regression-compile-tmp/vax-pass1.imp"
goto U_1017;
#line 1683 "regression-compile-tmp/vax-pass1.imp"
L_0143:;
                                                                //   1684            force = integer %IF k = 3
#line 1684 "regression-compile-tmp/vax-pass1.imp"
if (((K) != (3))) goto L_0144;
#line 1684 "regression-compile-tmp/vax-pass1.imp"
FORCE = 1;
#line 1684 "regression-compile-tmp/vax-pass1.imp"
L_0144:;
                                                                //   1685            ->more
#line 1685 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
                                                                //   1686  act(198):!%OTHER
#line 1686 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_198:;
                                                                //   1687           k = gg>>8&15
#line 1687 "regression-compile-tmp/vax-pass1.imp"
K = (((int)((((unsigned int)(GG)) >> (8)))) & (15));
                                                                //   1688           %IF k = 0 %START;      !restore atom
#line 1688 "regression-compile-tmp/vax-pass1.imp"
if (((K) != (0))) goto L_0145;
                                                                //   1689              atom1 = last1
#line 1689 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = LAST1;
                                                                //   1690              ->more
#line 1690 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
                                                                //   1691           %FINISH
#line 1691 "regression-compile-tmp/vax-pass1.imp"
L_0145:;
                                                                //   1692           %IF k = 1 %START;      !test string
#line 1692 "regression-compile-tmp/vax-pass1.imp"
if (((K) != (1))) goto L_0146;
                                                                //   1693              ->fail2 %UNLESS type = stringv
#line 1693 "regression-compile-tmp/vax-pass1.imp"
if (((TYPE) == (3))) goto L_0147;
#line 1693 "regression-compile-tmp/vax-pass1.imp"
goto U_1017;
#line 1693 "regression-compile-tmp/vax-pass1.imp"
L_0147:;
                                                                //   1694              ->more
#line 1694 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
                                                                //   1695           %FINISH
#line 1695 "regression-compile-tmp/vax-pass1.imp"
L_0146:;
                                                                //   1696           %if k = 2 %start
#line 1696 "regression-compile-tmp/vax-pass1.imp"
if (((K) != (2))) goto L_0148;
                                                                //   1697              ->fail2 %if type = record
#line 1697 "regression-compile-tmp/vax-pass1.imp"
if (((TYPE) != (4))) goto L_0149;
#line 1697 "regression-compile-tmp/vax-pass1.imp"
goto U_1017;
#line 1697 "regression-compile-tmp/vax-pass1.imp"
L_0149:;
                                                                //   1698              -> more
#line 1698 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
                                                                //   1699           %finish
#line 1699 "regression-compile-tmp/vax-pass1.imp"
L_0148:;
                                                                //   1700           %if k = 3 %start;         !check OWN variable coming
#line 1700 "regression-compile-tmp/vax-pass1.imp"
if (((K) != (3))) goto L_014a;
                                                                //   1701              code atom(0)
#line 1701 "regression-compile-tmp/vax-pass1.imp"
CODEATOM(0);
                                                                //   1702              ->A7 %if atom flags&own bit = 0
#line 1702 "regression-compile-tmp/vax-pass1.imp"
if (((((ATOMFLAGS) & (512))) != (0))) goto L_014b;
#line 1702 "regression-compile-tmp/vax-pass1.imp"
goto U_1019;
#line 1702 "regression-compile-tmp/vax-pass1.imp"
L_014b:;
                                                                //   1703              ->more
#line 1703 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
                                                                //   1704           %finish
#line 1704 "regression-compile-tmp/vax-pass1.imp"
L_014a:;
                                                                //   1705           for warn = pos1 %IF x <= local;      !%FORTEST
#line 1705 "regression-compile-tmp/vax-pass1.imp"
if (((X) > (LOCAL))) goto L_014c;
#line 1705 "regression-compile-tmp/vax-pass1.imp"
FORWARN = POS1;
#line 1705 "regression-compile-tmp/vax-pass1.imp"
L_014c:;
                                                                //   1706           ->more
#line 1706 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
                                                                //   1707  paction(1):%IF type = record %THEN g = phrase(242) %ELSE pformat = -1
#line 1707 "regression-compile-tmp/vax-pass1.imp"
sw4_PACTION_1:;
#line 1707 "regression-compile-tmp/vax-pass1.imp"
if (((TYPE) != (4))) goto L_014d;
#line 1707 "regression-compile-tmp/vax-pass1.imp"
G = (PHRASE-200)[242];
#line 1707 "regression-compile-tmp/vax-pass1.imp"
goto L_014e;
#line 1707 "regression-compile-tmp/vax-pass1.imp"
L_014d:;
#line 1707 "regression-compile-tmp/vax-pass1.imp"
PFORMAT = (-1);
#line 1707 "regression-compile-tmp/vax-pass1.imp"
L_014e:;
                                                                //   1708                                                 ->a3
#line 1708 "regression-compile-tmp/vax-pass1.imp"
goto U_100a;
                                                                //   1709  paction(2):ptype = real;     pformat = -1;     ->a3
#line 1709 "regression-compile-tmp/vax-pass1.imp"
sw4_PACTION_2:;
#line 1709 "regression-compile-tmp/vax-pass1.imp"
PTYPE = 2;
#line 1709 "regression-compile-tmp/vax-pass1.imp"
PFORMAT = (-1);
#line 1709 "regression-compile-tmp/vax-pass1.imp"
goto U_100a;
                                                                //   1710  paction(3):ptype = stringv;  pformat = -1;     ->a3
#line 1710 "regression-compile-tmp/vax-pass1.imp"
sw4_PACTION_3:;
#line 1710 "regression-compile-tmp/vax-pass1.imp"
PTYPE = 3;
#line 1710 "regression-compile-tmp/vax-pass1.imp"
PFORMAT = (-1);
#line 1710 "regression-compile-tmp/vax-pass1.imp"
goto U_100a;
                                                                //   1711  paction(4):ptype = integer;  pformat = -1;     ->a3
#line 1711 "regression-compile-tmp/vax-pass1.imp"
sw4_PACTION_4:;
#line 1711 "regression-compile-tmp/vax-pass1.imp"
PTYPE = 1;
#line 1711 "regression-compile-tmp/vax-pass1.imp"
PFORMAT = (-1);
#line 1711 "regression-compile-tmp/vax-pass1.imp"
goto U_100a;
                                                                //   1712  paction(5):->a3 %if ptype = integer
#line 1712 "regression-compile-tmp/vax-pass1.imp"
sw4_PACTION_5:;
#line 1712 "regression-compile-tmp/vax-pass1.imp"
if (((PTYPE) != (1))) goto L_014f;
#line 1712 "regression-compile-tmp/vax-pass1.imp"
goto U_100a;
#line 1712 "regression-compile-tmp/vax-pass1.imp"
L_014f:;
                                                                //   1713             g = phrase(212) %AND pformat=-1 %IF ptype = real
#line 1713 "regression-compile-tmp/vax-pass1.imp"
if (((PTYPE) != (2))) goto L_0150;
#line 1713 "regression-compile-tmp/vax-pass1.imp"
G = (PHRASE-200)[212];
#line 1713 "regression-compile-tmp/vax-pass1.imp"
PFORMAT = (-1);
#line 1713 "regression-compile-tmp/vax-pass1.imp"
L_0150:;
                                                                //   1714             g = phrase(213) %IF ptype = stringv
#line 1714 "regression-compile-tmp/vax-pass1.imp"
if (((PTYPE) != (3))) goto L_0151;
#line 1714 "regression-compile-tmp/vax-pass1.imp"
G = (PHRASE-200)[213];
#line 1714 "regression-compile-tmp/vax-pass1.imp"
L_0151:;
                                                                //   1715             ->a3
#line 1715 "regression-compile-tmp/vax-pass1.imp"
goto U_100a;
                                                                //   1716  paction(6):ptype = gram(ar(nmax)_sub+1)&7;  pformat = -1;  ->a3
#line 1716 "regression-compile-tmp/vax-pass1.imp"
sw4_PACTION_6:;
#line 1716 "regression-compile-tmp/vax-pass1.imp"
PTYPE = ((GRAM[(((int)(AR[(((int)(NMAX)) - (1))].SUB)) + (1))]) & (7));
#line 1716 "regression-compile-tmp/vax-pass1.imp"
PFORMAT = (-1);
#line 1716 "regression-compile-tmp/vax-pass1.imp"
goto U_100a;
                                                                //   1717  paction(7):ptype=real %IF ptype = integer;  pformat=-1; ->a3
#line 1717 "regression-compile-tmp/vax-pass1.imp"
sw4_PACTION_7:;
#line 1717 "regression-compile-tmp/vax-pass1.imp"
if (((PTYPE) != (1))) goto L_0152;
#line 1717 "regression-compile-tmp/vax-pass1.imp"
PTYPE = 2;
#line 1717 "regression-compile-tmp/vax-pass1.imp"
L_0152:;
#line 1717 "regression-compile-tmp/vax-pass1.imp"
PFORMAT = (-1);
#line 1717 "regression-compile-tmp/vax-pass1.imp"
goto U_100a;
                                                                //   1718  
                                                                //   1719  a1:   last1 = class;  atom1 = 0;  s = subatom
#line 1719 "regression-compile-tmp/vax-pass1.imp"
U_1015:;
#line 1719 "regression-compile-tmp/vax-pass1.imp"
LAST1 = CLASS;
#line 1719 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 0;
#line 1719 "regression-compile-tmp/vax-pass1.imp"
S = SUBATOM;
                                                                //   1720  
                                                                //   1721  a2:   %IF gg&trans bit = 0 %START;                !insert into analysis record
#line 1721 "regression-compile-tmp/vax-pass1.imp"
U_101a:;
#line 1721 "regression-compile-tmp/vax-pass1.imp"
if (((((GG) & (16384))) != (0))) goto L_0153;
                                                                //   1722           z == node
#line 1722 "regression-compile-tmp/vax-pass1.imp"
Z = &NODE;
                                                                //   1723           %CYCLE;                                  !insert cell in order
#line 1723 "regression-compile-tmp/vax-pass1.imp"
L_0154:;
                                                                //   1724              k = z
#line 1724 "regression-compile-tmp/vax-pass1.imp"
K = *Z;
                                                                //   1725              %EXIT %IF gg&order bits = 0 %OR k = 0
#line 1725 "regression-compile-tmp/vax-pass1.imp"
if (((((GG) & (12288))) == (0))) goto L_012d;
#line 1725 "regression-compile-tmp/vax-pass1.imp"
if (((K) != (0))) goto L_0157;
#line 1725 "regression-compile-tmp/vax-pass1.imp"
L_012d:;
#line 1725 "regression-compile-tmp/vax-pass1.imp"
goto L_0155;
#line 1725 "regression-compile-tmp/vax-pass1.imp"
L_0157:;
                                                                //   1726              gg = gg-order bit;  z == ar(k)_link
#line 1726 "regression-compile-tmp/vax-pass1.imp"
GG = (((int)(GG)) - (4096));
#line 1726 "regression-compile-tmp/vax-pass1.imp"
Z = &AR[(((int)(K)) - (1))].LINK;
                                                                //   1727           %REPEAT
#line 1727 "regression-compile-tmp/vax-pass1.imp"
goto L_0154;
#line 1727 "regression-compile-tmp/vax-pass1.imp"
L_0155:;
                                                                //   1728           gg = map gg %IF map gg # 0 %AND gg&255 = var
#line 1728 "regression-compile-tmp/vax-pass1.imp"
if (((MAPGG) == (0))) goto L_0158;
#line 1728 "regression-compile-tmp/vax-pass1.imp"
if (((((GG) & (255))) != (91))) goto L_0158;
#line 1728 "regression-compile-tmp/vax-pass1.imp"
GG = MAPGG;
#line 1728 "regression-compile-tmp/vax-pass1.imp"
L_0158:;
                                                                //   1729           nmin = nmin-1;  ->fail0 %IF nmin = nmax
#line 1729 "regression-compile-tmp/vax-pass1.imp"
NMIN = (((int)(NMIN)) - (1));
#line 1729 "regression-compile-tmp/vax-pass1.imp"
if (((NMIN) != (NMAX))) goto L_0159;
#line 1729 "regression-compile-tmp/vax-pass1.imp"
goto U_100d;
#line 1729 "regression-compile-tmp/vax-pass1.imp"
L_0159:;
                                                                //   1730           z = nmin
#line 1730 "regression-compile-tmp/vax-pass1.imp"
*Z = NMIN;
                                                                //   1731           arp == ar(nmin)
#line 1731 "regression-compile-tmp/vax-pass1.imp"
ARP = &AR[(((int)(NMIN)) - (1))];
                                                                //   1732           arp_sub = s;  arp_class = (gg&255)!mark
#line 1732 "regression-compile-tmp/vax-pass1.imp"
ARP->SUB = S;
#line 1732 "regression-compile-tmp/vax-pass1.imp"
ARP->CLASS = ((((GG) & (255))) | (MARK));
                                                                //   1733           arp_link = k
#line 1733 "regression-compile-tmp/vax-pass1.imp"
ARP->LINK = K;
                                                                //   1734        %FINISH
#line 1734 "regression-compile-tmp/vax-pass1.imp"
L_0153:;
                                                                //   1735        mark = 0;  map gg = 0
#line 1735 "regression-compile-tmp/vax-pass1.imp"
MARK = 0;
#line 1735 "regression-compile-tmp/vax-pass1.imp"
MAPGG = 0;
                                                                //   1736  
                                                                //   1737  more: g = glink(g);                               !chain down the grammar
#line 1737 "regression-compile-tmp/vax-pass1.imp"
U_1008:;
#line 1737 "regression-compile-tmp/vax-pass1.imp"
G = GLINK[G];
                                                                //   1738  
                                                                //   1739  paction(0):
#line 1739 "regression-compile-tmp/vax-pass1.imp"
sw4_PACTION_0:;
                                                                //   1740  a3:   gg = gram(g);  class = gg&255            ;! <------------------------------ gg set to -1...  THIS CAUSES MISSING SWITCH LABEL paction(15) BELOW
#line 1740 "regression-compile-tmp/vax-pass1.imp"
U_100a:;
#line 1740 "regression-compile-tmp/vax-pass1.imp"
GG = GRAM[G];
#line 1740 "regression-compile-tmp/vax-pass1.imp"
CLASS = ((GG) & (255));
                                                                //   1741  debug("gg = gram(g) = -1 ... g=".itos(g,0)." gg=".itos(gg,0)) %if gg = -1
#line 1741 "regression-compile-tmp/vax-pass1.imp"
if (((GG) != ((-1)))) goto L_015a;
#line 1741 "regression-compile-tmp/vax-pass1.imp"
DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("gg = gram(g) = -1 ... g="),(_imp_string)_imp_ITOS(G, 0)),(_imp_string)_imp_str_literal(" gg=")),(_imp_string)_imp_ITOS(GG, 0)));
#line 1741 "regression-compile-tmp/vax-pass1.imp"
L_015a:;
                                                                //   1742        trace analysis %IF diag&1 # 0
#line 1742 "regression-compile-tmp/vax-pass1.imp"
if (((((DIAG) & (1))) == (0))) goto L_015b;
#line 1742 "regression-compile-tmp/vax-pass1.imp"
TRACEANALYSIS();
#line 1742 "regression-compile-tmp/vax-pass1.imp"
L_015b:;
                                                                //   1743        ->a5 %IF class = 0;                         !end of phrase
#line 1743 "regression-compile-tmp/vax-pass1.imp"
if (((CLASS) != (0))) goto L_015c;
#line 1743 "regression-compile-tmp/vax-pass1.imp"
goto U_100e;
#line 1743 "regression-compile-tmp/vax-pass1.imp"
L_015c:;
                                                                //   1744  
                                                                //   1745        %IF class < actions %START;                 !not a phrase or an action
#line 1745 "regression-compile-tmp/vax-pass1.imp"
if (((CLASS) >= (180))) goto L_015d;
                                                                //   1746           class = atomic(class) %IF class >= figurative
#line 1746 "regression-compile-tmp/vax-pass1.imp"
if (((CLASS) < (130))) goto L_015e;
#line 1746 "regression-compile-tmp/vax-pass1.imp"
CLASS = (ATOMIC-130)[CLASS];
#line 1746 "regression-compile-tmp/vax-pass1.imp"
L_015e:;
                                                                //   1747           ->a2 %IF class >= manifest
#line 1747 "regression-compile-tmp/vax-pass1.imp"
if (((CLASS) < (120))) goto L_015f;
#line 1747 "regression-compile-tmp/vax-pass1.imp"
goto U_101a;
#line 1747 "regression-compile-tmp/vax-pass1.imp"
L_015f:;
                                                                //   1748           code atom(class) %IF atom1 = 0
#line 1748 "regression-compile-tmp/vax-pass1.imp"
if (((ATOM1) != (0))) goto L_0160;
#line 1748 "regression-compile-tmp/vax-pass1.imp"
CODEATOM(CLASS);
#line 1748 "regression-compile-tmp/vax-pass1.imp"
L_0160:;
                                                                //   1749           %IF escape class # 0 %START;             !escape to new grammar
#line 1749 "regression-compile-tmp/vax-pass1.imp"
if (((ESCAPECLASS) == (0))) goto L_0161;
                                                                //   1750              class = escape class;  escape class = 0
#line 1750 "regression-compile-tmp/vax-pass1.imp"
CLASS = ESCAPECLASS;
#line 1750 "regression-compile-tmp/vax-pass1.imp"
ESCAPECLASS = 0;
                                                                //   1751              g = g+escape
#line 1751 "regression-compile-tmp/vax-pass1.imp"
G = (((int)(G)) + (4096));
                                                                //   1752  
                                                                //   1753              !note that following an escape the next item is
                                                                //   1754              !forced to be transparent!
                                                                //   1755  
                                                                //   1756  esc:        gg = 0
#line 1756 "regression-compile-tmp/vax-pass1.imp"
U_100f:;
#line 1756 "regression-compile-tmp/vax-pass1.imp"
GG = 0;
                                                                //   1757              arp == ar(nmax+1)
#line 1757 "regression-compile-tmp/vax-pass1.imp"
ARP = &AR[(((int)((((int)(NMAX)) + (1)))) - (1))];
                                                                //   1758              arp_papp = papp;  arp_x = x;  ->a4
#line 1758 "regression-compile-tmp/vax-pass1.imp"
ARP->PAPP = PAPP;
#line 1758 "regression-compile-tmp/vax-pass1.imp"
ARP->X = X;
#line 1758 "regression-compile-tmp/vax-pass1.imp"
goto U_1010;
                                                                //   1759           %FINISH
#line 1759 "regression-compile-tmp/vax-pass1.imp"
L_0161:;
                                                                //   1760  
                                                                //   1761           ->a1 %IF class = atom1 %OR class = atom2
#line 1761 "regression-compile-tmp/vax-pass1.imp"
if (((CLASS) == (ATOM1))) goto L_0156;
#line 1761 "regression-compile-tmp/vax-pass1.imp"
if (((CLASS) != (ATOM2))) goto L_0162;
#line 1761 "regression-compile-tmp/vax-pass1.imp"
L_0156:;
#line 1761 "regression-compile-tmp/vax-pass1.imp"
goto U_1015;
#line 1761 "regression-compile-tmp/vax-pass1.imp"
L_0162:;
                                                                //   1762  
                                                                //   1763  a7:      ->fail1 %IF gg >= 0;                     !no alternative
#line 1763 "regression-compile-tmp/vax-pass1.imp"
U_1019:;
#line 1763 "regression-compile-tmp/vax-pass1.imp"
if (((GG) < (0))) goto L_0163;
#line 1763 "regression-compile-tmp/vax-pass1.imp"
goto U_1009;
#line 1763 "regression-compile-tmp/vax-pass1.imp"
L_0163:;
                                                                //   1764           g = g+1
#line 1764 "regression-compile-tmp/vax-pass1.imp"
G = (((int)(G)) + (1));
                                                                //   1765           ->a3
#line 1765 "regression-compile-tmp/vax-pass1.imp"
goto U_100a;
                                                                //   1766        %FINISH
#line 1766 "regression-compile-tmp/vax-pass1.imp"
L_015d:;
                                                                //   1767  
                                                                //   1768        %IF class >= phrasal %START;                !a phrase
#line 1768 "regression-compile-tmp/vax-pass1.imp"
if (((CLASS) < (200))) goto L_0164;
                                                                //   1769  a4:      nmax = nmax+1;  ->fail0 %IF nmax = nmin
#line 1769 "regression-compile-tmp/vax-pass1.imp"
U_1010:;
#line 1769 "regression-compile-tmp/vax-pass1.imp"
NMAX = (((int)(NMAX)) + (1));
#line 1769 "regression-compile-tmp/vax-pass1.imp"
if (((NMAX) != (NMIN))) goto L_0165;
#line 1769 "regression-compile-tmp/vax-pass1.imp"
goto U_100d;
#line 1769 "regression-compile-tmp/vax-pass1.imp"
L_0165:;
                                                                //   1770           arp == ar(nmax)
#line 1770 "regression-compile-tmp/vax-pass1.imp"
ARP = &AR[(((int)(NMAX)) - (1))];
                                                                //   1771           arp_ptype = ptype
#line 1771 "regression-compile-tmp/vax-pass1.imp"
ARP->PTYPE = PTYPE;
                                                                //   1772           arp_pos = pos1
#line 1772 "regression-compile-tmp/vax-pass1.imp"
ARP->POS = POS1;
                                                                //   1773           arp_pformat = pformat
#line 1773 "regression-compile-tmp/vax-pass1.imp"
ARP->PFORMAT = PFORMAT;
                                                                //   1774           arp_link = gentype
#line 1774 "regression-compile-tmp/vax-pass1.imp"
ARP->LINK = GENTYPE;
                                                                //   1775           arp_class = node
#line 1775 "regression-compile-tmp/vax-pass1.imp"
ARP->CLASS = NODE;
                                                                //   1776           arp_sub = g
#line 1776 "regression-compile-tmp/vax-pass1.imp"
ARP->SUB = G;
                                                                //   1777           node = 0
#line 1777 "regression-compile-tmp/vax-pass1.imp"
NODE = 0;
                                                                //   1778           g = phrase(class)
#line 1778 "regression-compile-tmp/vax-pass1.imp"
G = (PHRASE-200)[CLASS];
                                                                //   1779           ptype = force %AND force = 0 %IF force # 0
#line 1779 "regression-compile-tmp/vax-pass1.imp"
if (((FORCE) == (0))) goto L_0166;
#line 1779 "regression-compile-tmp/vax-pass1.imp"
PTYPE = FORCE;
#line 1779 "regression-compile-tmp/vax-pass1.imp"
FORCE = 0;
#line 1779 "regression-compile-tmp/vax-pass1.imp"
L_0166:;
                                                                //   1780           gentype = 0
#line 1780 "regression-compile-tmp/vax-pass1.imp"
GENTYPE = 0;
                                                                //   1781           ->paction(gg>>8&15)                                                       ;! <----------------- CAUSES CRASH
#line 1781 "regression-compile-tmp/vax-pass1.imp"
sw4_PACTION_idx = (((int)((((unsigned int)(GG)) >> (8)))) & (15)); if ((0 <= sw4_PACTION_idx) && (sw4_PACTION_idx <= 15)) goto *sw4_PACTION[sw4_PACTION_idx]; else {
   /*_imp_signal(8, 2, sw4_PACTION_idx);*/
   fprintf(stderr, "%%SWITCH index PACTION(%d) not in range 0:15 at %s:%d\n",
           sw4_PACTION_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   1782  paction(*):debug("* Switch label not set: paction(".itos(gg>>8&15,0).") {gg=".itos(gg,0)."}"); %stop {avoid executing random code}
#line 1782 "regression-compile-tmp/vax-pass1.imp"
sw4_PACTION_default:;
#line 1782 "regression-compile-tmp/vax-pass1.imp"
DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("* Switch label not set: paction("),(_imp_string)_imp_ITOS((((int)((((unsigned int)(GG)) >> (8)))) & (15)), 0)),(_imp_string)_imp_str_literal(") {gg=")),(_imp_string)_imp_ITOS(GG, 0)),(_imp_string)_imp_str_literal("}")));
#line 1782 "regression-compile-tmp/vax-pass1.imp"
exit(0);
                                                                //   1783        %FINISH
#line 1783 "regression-compile-tmp/vax-pass1.imp"
L_0164:;
                                                                //   1784  
                                                                //   1785        ->act(class);                               !only actions left
#line 1785 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_idx = CLASS; if ((180 <= sw3_ACT_idx) && (sw3_ACT_idx <= 200)) goto *(sw3_ACT-180)[sw3_ACT_idx];  /* Bounds=180:200 */ else {
   /*_imp_signal(8, 2, sw3_ACT_idx);*/
   fprintf(stderr, "%%SWITCH index ACT(%d) not in range 180:200 at %s:%d\n",
           sw3_ACT_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   1786  act(*):debug("* Switch label not set: act(".itos(class,0).")"); %stop
#line 1786 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_default:;
#line 1786 "regression-compile-tmp/vax-pass1.imp"
DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("* Switch label not set: act("),(_imp_string)_imp_ITOS(CLASS, 0)),(_imp_string)_imp_str_literal(")")));
#line 1786 "regression-compile-tmp/vax-pass1.imp"
exit(0);
                                                                //   1787  a5:   !reverse links
#line 1787 "regression-compile-tmp/vax-pass1.imp"
U_100e:;
                                                                //   1788  
                                                                //   1789        s = 0
#line 1789 "regression-compile-tmp/vax-pass1.imp"
S = 0;
                                                                //   1790        %WHILE node # 0 %CYCLE
#line 1790 "regression-compile-tmp/vax-pass1.imp"
L_0167:;
#line 1790 "regression-compile-tmp/vax-pass1.imp"
if (((NODE) == (0))) goto L_0168;
                                                                //   1791           z == ar(node)_link
#line 1791 "regression-compile-tmp/vax-pass1.imp"
Z = &AR[(((int)(NODE)) - (1))].LINK;
                                                                //   1792           k = z;  z = s;  s = node;  node = k
#line 1792 "regression-compile-tmp/vax-pass1.imp"
K = *Z;
#line 1792 "regression-compile-tmp/vax-pass1.imp"
*Z = S;
#line 1792 "regression-compile-tmp/vax-pass1.imp"
S = NODE;
#line 1792 "regression-compile-tmp/vax-pass1.imp"
NODE = K;
                                                                //   1793        %REPEAT
#line 1793 "regression-compile-tmp/vax-pass1.imp"
goto L_0167;
#line 1793 "regression-compile-tmp/vax-pass1.imp"
L_0168:;
                                                                //   1794        ss = s
#line 1794 "regression-compile-tmp/vax-pass1.imp"
SS = S;
                                                                //   1795  
                                                                //   1796  a6:   %IF nmax # 0 %START
#line 1796 "regression-compile-tmp/vax-pass1.imp"
U_1011:;
#line 1796 "regression-compile-tmp/vax-pass1.imp"
if (((NMAX) == (0))) goto L_016a;
                                                                //   1797           k = gentype;                             !type of phrase
#line 1797 "regression-compile-tmp/vax-pass1.imp"
K = GENTYPE;
                                                                //   1798           arp == ar(nmax);  nmax = nmax-1
#line 1798 "regression-compile-tmp/vax-pass1.imp"
ARP = &AR[(((int)(NMAX)) - (1))];
#line 1798 "regression-compile-tmp/vax-pass1.imp"
NMAX = (((int)(NMAX)) - (1));
                                                                //   1799           node = arp_class
#line 1799 "regression-compile-tmp/vax-pass1.imp"
NODE = ARP->CLASS;
                                                                //   1800           gentype = arp_link
#line 1800 "regression-compile-tmp/vax-pass1.imp"
GENTYPE = ARP->LINK;
                                                                //   1801           ptype = arp_ptype
#line 1801 "regression-compile-tmp/vax-pass1.imp"
PTYPE = ARP->PTYPE;
                                                                //   1802           pformat = arp_pformat
#line 1802 "regression-compile-tmp/vax-pass1.imp"
PFORMAT = ARP->PFORMAT;
                                                                //   1803           g = arp_sub
#line 1803 "regression-compile-tmp/vax-pass1.imp"
G = ARP->SUB;
                                                                //   1804           %IF g&escape # 0 %START
#line 1804 "regression-compile-tmp/vax-pass1.imp"
if (((((G) & (4096))) == (0))) goto L_016b;
                                                                //   1805              g = g-escape
#line 1805 "regression-compile-tmp/vax-pass1.imp"
G = (((int)(G)) - (4096));
                                                                //   1806              papp = arp_papp
#line 1806 "regression-compile-tmp/vax-pass1.imp"
PAPP = ARP->PAPP;
                                                                //   1807              mark = 255
#line 1807 "regression-compile-tmp/vax-pass1.imp"
MARK = 255;
                                                                //   1808              subatom = s
#line 1808 "regression-compile-tmp/vax-pass1.imp"
SUBATOM = S;
                                                                //   1809              ->a3
#line 1809 "regression-compile-tmp/vax-pass1.imp"
goto U_100a;
                                                                //   1810           %FINISH
#line 1810 "regression-compile-tmp/vax-pass1.imp"
L_016b:;
                                                                //   1811           gentype = k %IF gentype = 0 %OR k = real
#line 1811 "regression-compile-tmp/vax-pass1.imp"
if (((GENTYPE) == (0))) goto L_016c;
#line 1811 "regression-compile-tmp/vax-pass1.imp"
if (((K) != (2))) goto L_016d;
#line 1811 "regression-compile-tmp/vax-pass1.imp"
L_016c:;
#line 1811 "regression-compile-tmp/vax-pass1.imp"
GENTYPE = K;
#line 1811 "regression-compile-tmp/vax-pass1.imp"
L_016d:;
                                                                //   1812           type = gen type
#line 1812 "regression-compile-tmp/vax-pass1.imp"
TYPE = GENTYPE;
                                                                //   1813  
                                                                //   1814           k = gg;                                  !exit-point code
#line 1814 "regression-compile-tmp/vax-pass1.imp"
K = GG;
                                                                //   1815           %CYCLE
#line 1815 "regression-compile-tmp/vax-pass1.imp"
L_016e:;
                                                                //   1816              gg = gram(g)
#line 1816 "regression-compile-tmp/vax-pass1.imp"
GG = GRAM[G];
                                                                //   1817              ->a2 %IF k = 0
#line 1817 "regression-compile-tmp/vax-pass1.imp"
if (((K) != (0))) goto L_0171;
#line 1817 "regression-compile-tmp/vax-pass1.imp"
goto U_101a;
#line 1817 "regression-compile-tmp/vax-pass1.imp"
L_0171:;
                                                                //   1818              ->fail1 %IF gg >= 0;                  !no alternative phrase
#line 1818 "regression-compile-tmp/vax-pass1.imp"
if (((GG) < (0))) goto L_0172;
#line 1818 "regression-compile-tmp/vax-pass1.imp"
goto U_1009;
#line 1818 "regression-compile-tmp/vax-pass1.imp"
L_0172:;
                                                                //   1819              k = k-order bit
#line 1819 "regression-compile-tmp/vax-pass1.imp"
K = (((int)(K)) - (4096));
                                                                //   1820              g = g+1;                              !sideways step
#line 1820 "regression-compile-tmp/vax-pass1.imp"
G = (((int)(G)) + (1));
                                                                //   1821           %REPEAT
#line 1821 "regression-compile-tmp/vax-pass1.imp"
goto L_016e;
                                                                //   1822  
                                                                //   1823        %FINISH
#line 1823 "regression-compile-tmp/vax-pass1.imp"
L_016a:;
                                                                //   1824  
                                                                //   1825        pos1 = copy %AND fault(4) %IF copy # 0
#line 1825 "regression-compile-tmp/vax-pass1.imp"
if (((COPY) == (0))) goto L_0173;
#line 1825 "regression-compile-tmp/vax-pass1.imp"
POS1 = COPY;
#line 1825 "regression-compile-tmp/vax-pass1.imp"
FAULT(4);
#line 1825 "regression-compile-tmp/vax-pass1.imp"
L_0173:;
                                                                //   1826        fault(13) %IF order = 0
#line 1826 "regression-compile-tmp/vax-pass1.imp"
if (((ORDER) != (0))) goto L_0174;
#line 1826 "regression-compile-tmp/vax-pass1.imp"
FAULT(13);
#line 1826 "regression-compile-tmp/vax-pass1.imp"
L_0174:;
                                                                //   1827        fault(-4) %IF for warn # 0
#line 1827 "regression-compile-tmp/vax-pass1.imp"
if (((FORWARN) == (0))) goto L_0175;
#line 1827 "regression-compile-tmp/vax-pass1.imp"
FAULT((-4));
#line 1827 "regression-compile-tmp/vax-pass1.imp"
L_0175:;
                                                                //   1828        pos1 = 0
#line 1828 "regression-compile-tmp/vax-pass1.imp"
POS1 = 0;
                                                                //   1829        fault rate = fault rate-1
#line 1829 "regression-compile-tmp/vax-pass1.imp"
FAULTRATE = (((int)(FAULTRATE)) - (1));
                                                                //   1830        %RETURN
#line 1830 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   1831  
                                                                //   1832  act(193):gg = 0 %AND ->a5 %UNLESS sym = '=' %or sym = '<'; !cdummy
#line 1832 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_193:;
#line 1832 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) == (61))) goto L_0176;
#line 1832 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) == (60))) goto L_0176;
#line 1832 "regression-compile-tmp/vax-pass1.imp"
GG = 0;
#line 1832 "regression-compile-tmp/vax-pass1.imp"
goto U_100e;
#line 1832 "regression-compile-tmp/vax-pass1.imp"
L_0176:;
                                                                //   1833  act(181):atom1 = amap(decl&15);                             !dummy
#line 1833 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_181:;
#line 1833 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = AMAP[((DECL) & (15))];
                                                                //   1834           ->more
#line 1834 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
                                                                //   1835  
                                                                //   1836  act(182):class = escdec;  g = glink(g)!escape
#line 1836 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_182:;
#line 1836 "regression-compile-tmp/vax-pass1.imp"
CLASS = 252;
#line 1836 "regression-compile-tmp/vax-pass1.imp"
G = ((GLINK[G]) | (4096));
                                                                //   1837           decl = 0;  otype = 0;  ->esc;                      !decl
#line 1837 "regression-compile-tmp/vax-pass1.imp"
DECL = 0;
#line 1837 "regression-compile-tmp/vax-pass1.imp"
OTYPE = 0;
#line 1837 "regression-compile-tmp/vax-pass1.imp"
goto U_100f;
                                                                //   1838  
                                                                //   1839  act(199):
#line 1839 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_199:;
                                                                //   1840           !reverse links;                                     !compile
                                                                //   1841  
                                                                //   1842           s = 0
#line 1842 "regression-compile-tmp/vax-pass1.imp"
S = 0;
                                                                //   1843           %WHILE node # 0 %CYCLE
#line 1843 "regression-compile-tmp/vax-pass1.imp"
L_0177:;
#line 1843 "regression-compile-tmp/vax-pass1.imp"
if (((NODE) == (0))) goto L_0178;
                                                                //   1844              z == ar(node)_link
#line 1844 "regression-compile-tmp/vax-pass1.imp"
Z = &AR[(((int)(NODE)) - (1))].LINK;
                                                                //   1845              k = z;  z = s;  s = node;  node = k
#line 1845 "regression-compile-tmp/vax-pass1.imp"
K = *Z;
#line 1845 "regression-compile-tmp/vax-pass1.imp"
*Z = S;
#line 1845 "regression-compile-tmp/vax-pass1.imp"
S = NODE;
#line 1845 "regression-compile-tmp/vax-pass1.imp"
NODE = K;
                                                                //   1846           %repeat
#line 1846 "regression-compile-tmp/vax-pass1.imp"
goto L_0177;
#line 1846 "regression-compile-tmp/vax-pass1.imp"
L_0178:;
                                                                //   1847           ss = s
#line 1847 "regression-compile-tmp/vax-pass1.imp"
SS = S;
                                                                //   1848  
                                                                //   1849           code atom(28) %IF quote # 0;                       !expend
#line 1849 "regression-compile-tmp/vax-pass1.imp"
if (((QUOTE) == (0))) goto L_017a;
#line 1849 "regression-compile-tmp/vax-pass1.imp"
CODEATOM(28);
#line 1849 "regression-compile-tmp/vax-pass1.imp"
L_017a:;
                                                                //   1850           compile;  ->more %IF atom1&error = 0
#line 1850 "regression-compile-tmp/vax-pass1.imp"
COMPILE();
#line 1850 "regression-compile-tmp/vax-pass1.imp"
if (((((ATOM1) & (32768))) != (0))) goto L_017b;
#line 1850 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
#line 1850 "regression-compile-tmp/vax-pass1.imp"
L_017b:;
                                                                //   1851           ->fail1
#line 1851 "regression-compile-tmp/vax-pass1.imp"
goto U_1009;
                                                                //   1852  
                                                                //   1853  act(184):->fail4 %UNLESS type = integer
#line 1853 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_184:;
#line 1853 "regression-compile-tmp/vax-pass1.imp"
if (((TYPE) == (1))) goto L_017c;
#line 1853 "regression-compile-tmp/vax-pass1.imp"
goto U_1012;
#line 1853 "regression-compile-tmp/vax-pass1.imp"
L_017c:;
                                                                //   1854           %IF subatom < 0 %THEN lit = tag(-subatom)_format %C
#line 1854 "regression-compile-tmp/vax-pass1.imp"
if (((SUBATOM) >= (0))) goto L_017d;
#line 1854 "regression-compile-tmp/vax-pass1.imp"
LIT = TAG[(-(SUBATOM))].FORMAT;
#line 1854 "regression-compile-tmp/vax-pass1.imp"
goto L_017e;
#line 1854 "regression-compile-tmp/vax-pass1.imp"
L_017d:;
#line 1854 "regression-compile-tmp/vax-pass1.imp"
LIT = LITPOOL[SUBATOM];
#line 1854 "regression-compile-tmp/vax-pass1.imp"
L_017e:;
                                                                //   1855                           %ELSE lit = lit pool(subatom)
                                                                //   1856           ->fail4 %IF lit # 0
#line 1856 "regression-compile-tmp/vax-pass1.imp"
if (((LIT) == (0))) goto L_017f;
#line 1856 "regression-compile-tmp/vax-pass1.imp"
goto U_1012;
#line 1856 "regression-compile-tmp/vax-pass1.imp"
L_017f:;
                                                                //   1857           ->more
#line 1857 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
                                                                //   1858  act(185):                                                   !apply parameters
#line 1858 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_185:;
                                                                //   1859           s = 0
#line 1859 "regression-compile-tmp/vax-pass1.imp"
S = 0;
                                                                //   1860           %WHILE node # 0 %CYCLE
#line 1860 "regression-compile-tmp/vax-pass1.imp"
L_0180:;
#line 1860 "regression-compile-tmp/vax-pass1.imp"
if (((NODE) == (0))) goto L_0181;
                                                                //   1861              z == ar(node)_link
#line 1861 "regression-compile-tmp/vax-pass1.imp"
Z = &AR[(((int)(NODE)) - (1))].LINK;
                                                                //   1862              k = z;  z = s;  s = node;  node = k
#line 1862 "regression-compile-tmp/vax-pass1.imp"
K = *Z;
#line 1862 "regression-compile-tmp/vax-pass1.imp"
*Z = S;
#line 1862 "regression-compile-tmp/vax-pass1.imp"
S = NODE;
#line 1862 "regression-compile-tmp/vax-pass1.imp"
NODE = K;
                                                                //   1863           %REPEAT
#line 1863 "regression-compile-tmp/vax-pass1.imp"
goto L_0180;
#line 1863 "regression-compile-tmp/vax-pass1.imp"
L_0181:;
                                                                //   1864           ss = s
#line 1864 "regression-compile-tmp/vax-pass1.imp"
SS = S;
                                                                //   1865  
                                                                //   1866           atom1 = ar(s)_class;  atom2 = 0
#line 1866 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = AR[(((int)(S)) - (1))].CLASS;
#line 1866 "regression-compile-tmp/vax-pass1.imp"
ATOM2 = 0;
                                                                //   1867           atom1 = var %IF atom1 = 97 %OR atom1 = 98
#line 1867 "regression-compile-tmp/vax-pass1.imp"
if (((ATOM1) == (97))) goto L_0182;
#line 1867 "regression-compile-tmp/vax-pass1.imp"
if (((ATOM1) != (98))) goto L_0183;
#line 1867 "regression-compile-tmp/vax-pass1.imp"
L_0182:;
#line 1867 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 91;
#line 1867 "regression-compile-tmp/vax-pass1.imp"
L_0183:;
                                                                //   1868           arp == ar(nmax)
#line 1868 "regression-compile-tmp/vax-pass1.imp"
ARP = &AR[(((int)(NMAX)) - (1))];
                                                                //   1869           x = arp_x
#line 1869 "regression-compile-tmp/vax-pass1.imp"
X = ARP->X;
                                                                //   1870           pos1 = arp_pos
#line 1870 "regression-compile-tmp/vax-pass1.imp"
POS1 = ARP->POS;
                                                                //   1871           pos2 = 0
#line 1871 "regression-compile-tmp/vax-pass1.imp"
POS2 = 0;
                                                                //   1872           app = 0
#line 1872 "regression-compile-tmp/vax-pass1.imp"
APP = 0;
                                                                //   1873           format = tag(x)_format
#line 1873 "regression-compile-tmp/vax-pass1.imp"
FORMAT = TAG[X].FORMAT;
                                                                //   1874           flags = tag(x)_flags
#line 1874 "regression-compile-tmp/vax-pass1.imp"
FLAGS = TAG[X].FLAGS;
                                                                //   1875           type = flags>>4&7
#line 1875 "regression-compile-tmp/vax-pass1.imp"
TYPE = (((int)((((unsigned int)(FLAGS)) >> (4)))) & (7));
                                                                //   1876           protection = flags&prot
#line 1876 "regression-compile-tmp/vax-pass1.imp"
PROTECTION = ((FLAGS) & (256));
                                                                //   1877           protection = 0 %IF flags&aname # 0
#line 1877 "regression-compile-tmp/vax-pass1.imp"
if (((((FLAGS) & (1024))) == (0))) goto L_0184;
#line 1877 "regression-compile-tmp/vax-pass1.imp"
PROTECTION = 0;
#line 1877 "regression-compile-tmp/vax-pass1.imp"
L_0184:;
                                                                //   1878  
                                                                //   1879           %IF flags&subname # 0 %AND format # 0 %START
#line 1879 "regression-compile-tmp/vax-pass1.imp"
if (((((FLAGS) & (2048))) == (0))) goto L_0185;
#line 1879 "regression-compile-tmp/vax-pass1.imp"
if (((FORMAT) == (0))) goto L_0185;
                                                                //   1880              ->fail1 %if format selected = 0
#line 1880 "regression-compile-tmp/vax-pass1.imp"
if (((FORMATSELECTED()) != (0))) goto L_016f;
#line 1880 "regression-compile-tmp/vax-pass1.imp"
goto U_1009;
#line 1880 "regression-compile-tmp/vax-pass1.imp"
L_016f:;
                                                                //   1881           %FINISH
#line 1881 "regression-compile-tmp/vax-pass1.imp"
L_0185:;
                                                                //   1882  
                                                                //   1883           ->a6
#line 1883 "regression-compile-tmp/vax-pass1.imp"
goto U_1011;
                                                                //   1884  
                                                                //   1885  act(187):protection = prot;  ->more;                      !%SETPROT
#line 1885 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_187:;
#line 1885 "regression-compile-tmp/vax-pass1.imp"
PROTECTION = 256;
#line 1885 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
                                                                //   1886  act(186):->more %if protection&prot = 0
#line 1886 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_186:;
#line 1886 "regression-compile-tmp/vax-pass1.imp"
if (((((PROTECTION) & (256))) != (0))) goto L_0186;
#line 1886 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
#line 1886 "regression-compile-tmp/vax-pass1.imp"
L_0186:;
                                                                //   1887           prot err = nmin
#line 1887 "regression-compile-tmp/vax-pass1.imp"
PROTERR = NMIN;
                                                                //   1888           -> a7
#line 1888 "regression-compile-tmp/vax-pass1.imp"
goto U_1019;
                                                                //   1889  act(191):k = protection;                           !%GUARD
#line 1889 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_191:;
#line 1889 "regression-compile-tmp/vax-pass1.imp"
K = PROTECTION;
                                                                //   1890           code atom(0)
#line 1890 "regression-compile-tmp/vax-pass1.imp"
CODEATOM(0);
                                                                //   1891           protection = k %IF atom flags&aname = 0
#line 1891 "regression-compile-tmp/vax-pass1.imp"
if (((((ATOMFLAGS) & (1024))) != (0))) goto L_0187;
#line 1891 "regression-compile-tmp/vax-pass1.imp"
PROTECTION = K;
#line 1891 "regression-compile-tmp/vax-pass1.imp"
L_0187:;
                                                                //   1892           ->more
#line 1892 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
                                                                //   1893  
                                                                //   1894  act(192):->fail1 %IF parsed machine code=0
#line 1894 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_192:;
#line 1894 "regression-compile-tmp/vax-pass1.imp"
if (((PARSEDMACHINECODE()) != (0))) goto L_0188;
#line 1894 "regression-compile-tmp/vax-pass1.imp"
goto U_1009;
#line 1894 "regression-compile-tmp/vax-pass1.imp"
L_0188:;
                                                                //   1895           ->more
#line 1895 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
                                                                //   1896  
                                                                //   1897  act(189):k = gapp;                                     !%GAPP
#line 1897 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_189:;
#line 1897 "regression-compile-tmp/vax-pass1.imp"
K = GAPP();
                                                                //   1898           delete names(1)
#line 1898 "regression-compile-tmp/vax-pass1.imp"
DELETENAMES(1);
                                                                //   1899           tmax = tbase;  tbase = gram (gmin);           !restore tmax
#line 1899 "regression-compile-tmp/vax-pass1.imp"
TMAX = TBASE;
#line 1899 "regression-compile-tmp/vax-pass1.imp"
TBASE = GRAM[GMIN];
                                                                //   1900           local= tbase
#line 1900 "regression-compile-tmp/vax-pass1.imp"
LOCAL = TBASE;
                                                                //   1901           gmin = gmin+1
#line 1901 "regression-compile-tmp/vax-pass1.imp"
GMIN = (((int)(GMIN)) + (1));
                                                                //   1902  
                                                                //   1903           x = ar(ar(nmax)_class)_sub
#line 1903 "regression-compile-tmp/vax-pass1.imp"
X = AR[(((int)(AR[(((int)(NMAX)) - (1))].CLASS)) - (1))].SUB;
                                                                //   1904           tag(x)_app = k;                               !update app
#line 1904 "regression-compile-tmp/vax-pass1.imp"
TAG[X].APP = K;
                                                                //   1905           ->more
#line 1905 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
                                                                //   1906  
                                                                //   1907  act(190):gmin = gmin-1;                                !%LOCAL
#line 1907 "regression-compile-tmp/vax-pass1.imp"
sw3_ACT_190:;
#line 1907 "regression-compile-tmp/vax-pass1.imp"
GMIN = (((int)(GMIN)) - (1));
                                                                //   1908           abandon(2) %IF gmin <= gmax
#line 1908 "regression-compile-tmp/vax-pass1.imp"
if (((GMIN) > (GMAX))) goto L_0189;
#line 1908 "regression-compile-tmp/vax-pass1.imp"
ABANDON(2);
#line 1908 "regression-compile-tmp/vax-pass1.imp"
L_0189:;
                                                                //   1909           gram (gmin) = tbase;  tbase = tmax
#line 1909 "regression-compile-tmp/vax-pass1.imp"
GRAM[GMIN] = TBASE;
#line 1909 "regression-compile-tmp/vax-pass1.imp"
TBASE = TMAX;
                                                                //   1910           local = tbase
#line 1910 "regression-compile-tmp/vax-pass1.imp"
LOCAL = TBASE;
                                                                //   1911           ->more
#line 1911 "regression-compile-tmp/vax-pass1.imp"
goto U_1008;
                                                                //   1912  
                                                                //   1913  ! errors
                                                                //   1914  
                                                                //   1915  fail4:k = error+10;            ->failed;        !*size
#line 1915 "regression-compile-tmp/vax-pass1.imp"
U_1012:;
#line 1915 "regression-compile-tmp/vax-pass1.imp"
K = 32778;
#line 1915 "regression-compile-tmp/vax-pass1.imp"
goto U_1013;
                                                                //   1916  fail3:k = error+7;             ->failed;        !*context
#line 1916 "regression-compile-tmp/vax-pass1.imp"
U_1018:;
#line 1916 "regression-compile-tmp/vax-pass1.imp"
K = 32775;
#line 1916 "regression-compile-tmp/vax-pass1.imp"
goto U_1013;
                                                                //   1917  fail2:k = error+5;  pos2 = 0;  ->failed;        !*type
#line 1917 "regression-compile-tmp/vax-pass1.imp"
U_1017:;
#line 1917 "regression-compile-tmp/vax-pass1.imp"
K = 32773;
#line 1917 "regression-compile-tmp/vax-pass1.imp"
POS2 = 0;
#line 1917 "regression-compile-tmp/vax-pass1.imp"
goto U_1013;
                                                                //   1918  fail0:k = error+3;             ->failed;        !*too complex
#line 1918 "regression-compile-tmp/vax-pass1.imp"
U_100d:;
#line 1918 "regression-compile-tmp/vax-pass1.imp"
K = 32771;
#line 1918 "regression-compile-tmp/vax-pass1.imp"
goto U_1013;
                                                                //   1919  fail1:k = atom1;  pos2 = 0
#line 1919 "regression-compile-tmp/vax-pass1.imp"
U_1009:;
#line 1919 "regression-compile-tmp/vax-pass1.imp"
K = ATOM1;
#line 1919 "regression-compile-tmp/vax-pass1.imp"
POS2 = 0;
                                                                //   1920  
                                                                //   1921  failed:
#line 1921 "regression-compile-tmp/vax-pass1.imp"
U_1013:;
                                                                //   1922        %IF diag&32 # 0 %START
#line 1922 "regression-compile-tmp/vax-pass1.imp"
if (((((DIAG) & (32))) == (0))) goto L_018a;
                                                                //   1923           printstring("Atom1 =")
#line 1923 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("Atom1 ="));
                                                                //   1924           write(atom1, 3)
#line 1924 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(ATOM1, 3);
                                                                //   1925           printstring("  Atom2 =")
#line 1925 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("  Atom2 ="));
                                                                //   1926           write(atom2, 3)
#line 1926 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(ATOM2, 3);
                                                                //   1927           printstring("  subatom =")
#line 1927 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("  subatom ="));
                                                                //   1928           write(subatom, 3)
#line 1928 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(SUBATOM, 3);
                                                                //   1929           newline
#line 1929 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
                                                                //   1930           printstring("Type =")
#line 1930 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("Type ="));
                                                                //   1931           write(type, 1)
#line 1931 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(TYPE, 1);
                                                                //   1932           printstring("   Ptype =")
#line 1932 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("   Ptype ="));
                                                                //   1933           write(ptype, 1)
#line 1933 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(PTYPE, 1);
                                                                //   1934           newline
#line 1934 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
                                                                //   1935           printstring("App =")
#line 1935 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("App ="));
                                                                //   1936           write(app, 1)
#line 1936 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(APP, 1);
                                                                //   1937           printstring("   Papp =")
#line 1937 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("   Papp ="));
                                                                //   1938           write(papp, 1)
#line 1938 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(PAPP, 1);
                                                                //   1939           newline
#line 1939 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
                                                                //   1940           printstring("Format =")
#line 1940 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("Format ="));
                                                                //   1941           write(format, 1)
#line 1941 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(FORMAT, 1);
                                                                //   1942           printstring("   Pformat =")
#line 1942 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("   Pformat ="));
                                                                //   1943           write(pformat, 1)
#line 1943 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(PFORMAT, 1);
                                                                //   1944           newline
#line 1944 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
                                                                //   1945           %monitor
#line 1945 "regression-compile-tmp/vax-pass1.imp"
_imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__);
                                                                //   1946         %FINISH
#line 1946 "regression-compile-tmp/vax-pass1.imp"
L_018a:;
                                                                //   1947  
                                                                //   1948         quote = 0 %AND readsym %WHILE sym # nl %AND sym # ';'
#line 1948 "regression-compile-tmp/vax-pass1.imp"
L_018b:;
#line 1948 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) == (10))) goto L_018c;
#line 1948 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) == (59))) goto L_018c;
#line 1948 "regression-compile-tmp/vax-pass1.imp"
QUOTE = 0;
#line 1948 "regression-compile-tmp/vax-pass1.imp"
READSYM();
#line 1948 "regression-compile-tmp/vax-pass1.imp"
goto L_018b;
#line 1948 "regression-compile-tmp/vax-pass1.imp"
L_018c:;
                                                                //   1949         %IF k&error # 0 %START
#line 1949 "regression-compile-tmp/vax-pass1.imp"
if (((((K) & (32768))) == (0))) goto L_018e;
                                                                //   1950            fault(k&255)
#line 1950 "regression-compile-tmp/vax-pass1.imp"
FAULT(((K) & (255)));
                                                                //   1951         %FINISH %ELSE %START
#line 1951 "regression-compile-tmp/vax-pass1.imp"
goto L_018f;
#line 1951 "regression-compile-tmp/vax-pass1.imp"
L_018e:;
                                                                //   1952           %IF prot err = nmin %THEN fault(14) %ELSE fault(0)
#line 1952 "regression-compile-tmp/vax-pass1.imp"
if (((PROTERR) != (NMIN))) goto L_0190;
#line 1952 "regression-compile-tmp/vax-pass1.imp"
FAULT(14);
#line 1952 "regression-compile-tmp/vax-pass1.imp"
goto L_0191;
#line 1952 "regression-compile-tmp/vax-pass1.imp"
L_0190:;
#line 1952 "regression-compile-tmp/vax-pass1.imp"
FAULT(0);
#line 1952 "regression-compile-tmp/vax-pass1.imp"
L_0191:;
                                                                //   1953         %FINISH
#line 1953 "regression-compile-tmp/vax-pass1.imp"
L_018f:;
                                                                //   1954         gg = 0;  ss = 0;  symtype = 0
#line 1954 "regression-compile-tmp/vax-pass1.imp"
GG = 0;
#line 1954 "regression-compile-tmp/vax-pass1.imp"
SS = 0;
#line 1954 "regression-compile-tmp/vax-pass1.imp"
SYMTYPE = 0;
                                                                //   1955     %END;                                               !of analyse
#line 1955 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
sw4_PACTION_8:;
sw4_PACTION_9:;
sw4_PACTION_10:;
sw4_PACTION_11:;
sw4_PACTION_12:;
sw4_PACTION_13:;
sw4_PACTION_14:;
sw4_PACTION_15:;
goto sw4_PACTION_default;
sw3_ACT_180:;
sw3_ACT_200:;
goto sw3_ACT_default;
} // End of block ANALYSE at level 3
                                                                //   1956  
                                                                //   1957     %ROUTINE compile
#line 1957 "regression-compile-tmp/vax-pass1.imp"
void COMPILE( void )
#line 1957 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   1958  
                                                                //   1959        %CONSTINTEGER then = 4, else = 8, loop = 16
                                                                //   1960  
                                                                //   1961        %SWITCH c(0:actions), litop(1:12)
#line 1961 "regression-compile-tmp/vax-pass1.imp"
static int sw5_C_idx;
static const void * /*SWITCH*/ sw5_C[181] = { &&sw5_C_0, &&sw5_C_1, &&sw5_C_2, &&sw5_C_3, &&sw5_C_4, &&sw5_C_5, &&sw5_C_6, &&sw5_C_7, &&sw5_C_8, &&sw5_C_9, &&sw5_C_10, &&sw5_C_11, &&sw5_C_12, &&sw5_C_13, &&sw5_C_14, &&sw5_C_15, &&sw5_C_16, &&sw5_C_17, &&sw5_C_18, &&sw5_C_19, &&sw5_C_20, &&sw5_C_21, &&sw5_C_22, &&sw5_C_23, &&sw5_C_24, &&sw5_C_25, &&sw5_C_26, &&sw5_C_27, &&sw5_C_28, &&sw5_C_29, &&sw5_C_30, &&sw5_C_31, &&sw5_C_32, &&sw5_C_33, &&sw5_C_34, &&sw5_C_35, &&sw5_C_36, &&sw5_C_37, &&sw5_C_38, &&sw5_C_39, &&sw5_C_40, &&sw5_C_41, &&sw5_C_42, &&sw5_C_43, &&sw5_C_44, &&sw5_C_45, &&sw5_C_46, &&sw5_C_47, &&sw5_C_48, &&sw5_C_49, &&sw5_C_50, &&sw5_C_51, &&sw5_C_52, &&sw5_C_53, &&sw5_C_54, &&sw5_C_55, &&sw5_C_56, &&sw5_C_57, &&sw5_C_58, &&sw5_C_59, &&sw5_C_60, &&sw5_C_61, &&sw5_C_62, &&sw5_C_63, &&sw5_C_64, &&sw5_C_65, &&sw5_C_66, &&sw5_C_67, &&sw5_C_68, &&sw5_C_69, &&sw5_C_70, &&sw5_C_71, &&sw5_C_72, &&sw5_C_73, &&sw5_C_74, &&sw5_C_75, &&sw5_C_76, &&sw5_C_77, &&sw5_C_78, &&sw5_C_79, &&sw5_C_80, &&sw5_C_81, &&sw5_C_82, &&sw5_C_83, &&sw5_C_84, &&sw5_C_85, &&sw5_C_86, &&sw5_C_87, &&sw5_C_88, &&sw5_C_89, &&sw5_C_90, &&sw5_C_91, &&sw5_C_92, &&sw5_C_93, &&sw5_C_94, &&sw5_C_95, &&sw5_C_96, &&sw5_C_97, &&sw5_C_98, &&sw5_C_99, &&sw5_C_100, &&sw5_C_101, &&sw5_C_102, &&sw5_C_103, &&sw5_C_104, &&sw5_C_105, &&sw5_C_106, &&sw5_C_107, &&sw5_C_108, &&sw5_C_109, &&sw5_C_110, &&sw5_C_111, &&sw5_C_112, &&sw5_C_113, &&sw5_C_114, &&sw5_C_115, &&sw5_C_116, &&sw5_C_117, &&sw5_C_118, &&sw5_C_119, &&sw5_C_120, &&sw5_C_121, &&sw5_C_122, &&sw5_C_123, &&sw5_C_124, &&sw5_C_125, &&sw5_C_126, &&sw5_C_127, &&sw5_C_128, &&sw5_C_129, &&sw5_C_130, &&sw5_C_131, &&sw5_C_132, &&sw5_C_133, &&sw5_C_134, &&sw5_C_135, &&sw5_C_136, &&sw5_C_137, &&sw5_C_138, &&sw5_C_139, &&sw5_C_140, &&sw5_C_141, &&sw5_C_142, &&sw5_C_143, &&sw5_C_144, &&sw5_C_145, &&sw5_C_146, &&sw5_C_147, &&sw5_C_148, &&sw5_C_149, &&sw5_C_150, &&sw5_C_151, &&sw5_C_152, &&sw5_C_153, &&sw5_C_154, &&sw5_C_155, &&sw5_C_156, &&sw5_C_157, &&sw5_C_158, &&sw5_C_159, &&sw5_C_160, &&sw5_C_161, &&sw5_C_162, &&sw5_C_163, &&sw5_C_164, &&sw5_C_165, &&sw5_C_166, &&sw5_C_167, &&sw5_C_168, &&sw5_C_169, &&sw5_C_170, &&sw5_C_171, &&sw5_C_172, &&sw5_C_173, &&sw5_C_174, &&sw5_C_175, &&sw5_C_176, &&sw5_C_177, &&sw5_C_178, &&sw5_C_179, &&sw5_C_180,  };
#line 1961 "regression-compile-tmp/vax-pass1.imp"
static int sw6_LITOP_idx;
static const void * /*SWITCH*/ sw6_LITOP[12] = { &&sw6_LITOP_1, &&sw6_LITOP_2, &&sw6_LITOP_3, &&sw6_LITOP_4, &&sw6_LITOP_5, &&sw6_LITOP_6, &&sw6_LITOP_7, &&sw6_LITOP_8, &&sw6_LITOP_9, &&sw6_LITOP_10, &&sw6_LITOP_11, &&sw6_LITOP_12,  };
                                                                //   1962  
                                                                //   1963        %CONSTBYTEINTEGERARRAY operator(1:14) = %C
#line 1963 "regression-compile-tmp/vax-pass1.imp"
const unsigned char OPERATOR[14] = { 91, 93, 88, 47, 38, 33, 37, 43, 45, 42, 81, 120, 46, 118,  };
                                                                //   1964                           '[',  ']',  'X',  '/', '&',  '!',  '%',  '+',
                                                                //   1965                           '-',  '*',  'Q',  'x', '.',  'v'
                                                                //   1966  
                                                                //   1967        %CONSTBYTEINTEGERARRAY cc(0 : 7) = '#','=',')','<','(','>', 'k','t'
#line 1967 "regression-compile-tmp/vax-pass1.imp"
const unsigned char CC[8] = { 35, 61, 41, 60, 40, 62, 107, 116,  };
                                                                //   1968  
                                                                //   1969        %CONSTBYTEINTEGERARRAY anyform(0:15) = 1,0,1,1(4),1,0,1,1,0,1,1,1,1
#line 1969 "regression-compile-tmp/vax-pass1.imp"
const unsigned char ANYFORM[16] = { 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1,  };
                                                                //   1970  
                                                                //   1971        %CONSTSHORTINTEGERARRAY decmap(0:15) = %C
#line 1971 "regression-compile-tmp/vax-pass1.imp"
const short DECMAP[16] = { 1, 2, 4107, 4109, 5132, 5134, 3, 4, 4103, 4104, 4105, 4106, 6, 0, 0, 0,  };
                                                                //   1972           1,             2,
                                                                //   1973           16_100B,       16_100D,       16_140C,      16_140E,
                                                                //   1974           3,             4,
                                                                //   1975           16_1007,       16_1008,       16_1009,      16_100A,
                                                                //   1976           6,             0,             0,            0
                                                                //   1977        %OWNBYTEINTEGERARRAY cnest(0:15)
#line 1977 "regression-compile-tmp/vax-pass1.imp"
static unsigned char CNEST[16];
                                                                //   1978        %INTEGER lmode, clab, dupid
#line 1978 "regression-compile-tmp/vax-pass1.imp"
int LMODE;
#line 1978 "regression-compile-tmp/vax-pass1.imp"
int CLAB;
#line 1978 "regression-compile-tmp/vax-pass1.imp"
int DUPID;
                                                                //   1979        %INTEGER resln
#line 1979 "regression-compile-tmp/vax-pass1.imp"
int RESLN;
                                                                //   1980        %OWNINTEGER last def = 0
#line 1980 "regression-compile-tmp/vax-pass1.imp"
static int LASTDEF = 0;
                                                                //   1981        %OWNINTEGER lb, ub
#line 1981 "regression-compile-tmp/vax-pass1.imp"
static int LB;
#line 1981 "regression-compile-tmp/vax-pass1.imp"
static int UB;
                                                                //   1982        %INTEGER cp, ord
#line 1982 "regression-compile-tmp/vax-pass1.imp"
int CP;
#line 1982 "regression-compile-tmp/vax-pass1.imp"
int ORD;
                                                                //   1983        %INTEGER next, link, j, k, n, done
#line 1983 "regression-compile-tmp/vax-pass1.imp"
int NEXT;
#line 1983 "regression-compile-tmp/vax-pass1.imp"
int LINK;
#line 1983 "regression-compile-tmp/vax-pass1.imp"
int J;
#line 1983 "regression-compile-tmp/vax-pass1.imp"
int K;
#line 1983 "regression-compile-tmp/vax-pass1.imp"
int N;
#line 1983 "regression-compile-tmp/vax-pass1.imp"
int DONE;
                                                                //   1984        %INTEGER class
#line 1984 "regression-compile-tmp/vax-pass1.imp"
int CLASS;
                                                                //   1985        %INTEGER lit2, defs, decs, cident
#line 1985 "regression-compile-tmp/vax-pass1.imp"
int LIT2;
#line 1985 "regression-compile-tmp/vax-pass1.imp"
int DEFS;
#line 1985 "regression-compile-tmp/vax-pass1.imp"
int DECS;
#line 1985 "regression-compile-tmp/vax-pass1.imp"
int CIDENT;
                                                                //   1986        %INTEGER pending;  %OWNINTEGERARRAY pstack(1:40)
#line 1986 "regression-compile-tmp/vax-pass1.imp"
int PENDING;
#line 1986 "regression-compile-tmp/vax-pass1.imp"
static int PSTACK[40];
                                                                //   1987        %OWNSTRING(8) name = ""
#line 1987 "regression-compile-tmp/vax-pass1.imp"
static _imp_string /*%string(8)*/ NAME = _imp_str_literal("");
                                                                //   1988        %OWNINTEGER count = 0
#line 1988 "regression-compile-tmp/vax-pass1.imp"
static int COUNT = 0;
                                                                //   1989  
                                                                //   1990        %ROUTINE def lab(%INTEGER l)
#line 1990 "regression-compile-tmp/vax-pass1.imp"
void DEFLAB( int L )
#line 1990 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   1991           op(':', l)
#line 1991 "regression-compile-tmp/vax-pass1.imp"
OP(58, L);
                                                                //   1992           access = 1
#line 1992 "regression-compile-tmp/vax-pass1.imp"
ACCESS = 1;
                                                                //   1993        %END
#line 1993 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DEFLAB at level 4
                                                                //   1994  
                                                                //   1995        %ROUTINE get next
#line 1995 "regression-compile-tmp/vax-pass1.imp"
void GETNEXT( void )
#line 1995 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   1996           %RECORD(arfm)%NAME p;      !imp77:
#line 1996 "regression-compile-tmp/vax-pass1.imp"
 ARFM /*name*/*P;
                                                                //   1997  gn:      %IF next = 0 %START;                        !end of phrase
#line 1997 "regression-compile-tmp/vax-pass1.imp"
U_1012:;
#line 1997 "regression-compile-tmp/vax-pass1.imp"
if (((NEXT) != (0))) goto L_0192;
                                                                //   1998              class = 0 %AND %RETURN %IF link = 0;     !end of statement
#line 1998 "regression-compile-tmp/vax-pass1.imp"
if (((LINK) != (0))) goto L_0193;
#line 1998 "regression-compile-tmp/vax-pass1.imp"
CLASS = 0;
#line 1998 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1998 "regression-compile-tmp/vax-pass1.imp"
L_0193:;
                                                                //   1999              p == ar(link)
#line 1999 "regression-compile-tmp/vax-pass1.imp"
P = &AR[(((int)(LINK)) - (1))];
                                                                //   2000              next = p_link
#line 2000 "regression-compile-tmp/vax-pass1.imp"
NEXT = P->LINK;
                                                                //   2001              link = p_sub
#line 2001 "regression-compile-tmp/vax-pass1.imp"
LINK = P->SUB;
                                                                //   2002           %FINISH
#line 2002 "regression-compile-tmp/vax-pass1.imp"
L_0192:;
                                                                //   2003           %CYCLE
#line 2003 "regression-compile-tmp/vax-pass1.imp"
L_0194:;
                                                                //   2004              p == ar(next)
#line 2004 "regression-compile-tmp/vax-pass1.imp"
P = &AR[(((int)(NEXT)) - (1))];
                                                                //   2005              x = p_sub
#line 2005 "regression-compile-tmp/vax-pass1.imp"
X = P->SUB;
                                                                //   2006              class = p_class
#line 2006 "regression-compile-tmp/vax-pass1.imp"
CLASS = P->CLASS;
                                                                //   2007              %EXIT %IF class < actions;               !an atom
#line 2007 "regression-compile-tmp/vax-pass1.imp"
if (((CLASS) >= (180))) goto L_0197;
#line 2007 "regression-compile-tmp/vax-pass1.imp"
goto L_0195;
#line 2007 "regression-compile-tmp/vax-pass1.imp"
L_0197:;
                                                                //   2008              %IF x = 0 %START;                        !null phrase
#line 2008 "regression-compile-tmp/vax-pass1.imp"
if (((X) != (0))) goto L_0198;
                                                                //   2009                 next = p_link;  ->gn
#line 2009 "regression-compile-tmp/vax-pass1.imp"
NEXT = P->LINK;
#line 2009 "regression-compile-tmp/vax-pass1.imp"
goto U_1012;
                                                                //   2010              %FINISH
#line 2010 "regression-compile-tmp/vax-pass1.imp"
L_0198:;
                                                                //   2011              %IF p_link # 0 %START;                   !follow a phrase
#line 2011 "regression-compile-tmp/vax-pass1.imp"
if (((P->LINK) == (0))) goto L_0199;
                                                                //   2012                 p_sub = link;  link = next
#line 2012 "regression-compile-tmp/vax-pass1.imp"
P->SUB = LINK;
#line 2012 "regression-compile-tmp/vax-pass1.imp"
LINK = NEXT;
                                                                //   2013              %FINISH
#line 2013 "regression-compile-tmp/vax-pass1.imp"
L_0199:;
                                                                //   2014              next = x
#line 2014 "regression-compile-tmp/vax-pass1.imp"
NEXT = X;
                                                                //   2015           %REPEAT
#line 2015 "regression-compile-tmp/vax-pass1.imp"
goto L_0194;
#line 2015 "regression-compile-tmp/vax-pass1.imp"
L_0195:;
                                                                //   2016           next = p_link
#line 2016 "regression-compile-tmp/vax-pass1.imp"
NEXT = P->LINK;
                                                                //   2017           %IF diag&2 # 0 %START
#line 2017 "regression-compile-tmp/vax-pass1.imp"
if (((((DIAG) & (2))) == (0))) goto L_019a;
                                                                //   2018              spaces(8-length(name)) %UNLESS name = ""
#line 2018 "regression-compile-tmp/vax-pass1.imp"
if ((_imp_strcmp(NAME, _imp_str_literal("")) == 0)) goto L_019b;
#line 2018 "regression-compile-tmp/vax-pass1.imp"
_imp_SPACES(((8) - (*(int *)(_imp_LENGTH(&NAME)))));
#line 2018 "regression-compile-tmp/vax-pass1.imp"
L_019b:;
                                                                //   2019              name = text(class)
#line 2019 "regression-compile-tmp/vax-pass1.imp"
NAME = TEXT[CLASS];
                                                                //   2020              write(x, 2)
#line 2020 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(X, 2);
                                                                //   2021              space
#line 2021 "regression-compile-tmp/vax-pass1.imp"
_imp_SPACE();
                                                                //   2022              printstring(name)
#line 2022 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(NAME);
                                                                //   2023              space
#line 2023 "regression-compile-tmp/vax-pass1.imp"
_imp_SPACE();
                                                                //   2024              count = count-1
#line 2024 "regression-compile-tmp/vax-pass1.imp"
COUNT = (((int)(COUNT)) - (1));
                                                                //   2025              %IF count <= 0 %START
#line 2025 "regression-compile-tmp/vax-pass1.imp"
if (((COUNT) > (0))) goto L_019c;
                                                                //   2026                 count = 5
#line 2026 "regression-compile-tmp/vax-pass1.imp"
COUNT = 5;
                                                                //   2027                 name = ""
#line 2027 "regression-compile-tmp/vax-pass1.imp"
NAME = _imp_str_literal("");
                                                                //   2028                 newline
#line 2028 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
                                                                //   2029              %FINISH
#line 2029 "regression-compile-tmp/vax-pass1.imp"
L_019c:;
                                                                //   2030           %FINISH
#line 2030 "regression-compile-tmp/vax-pass1.imp"
L_019a:;
                                                                //   2031        %END
#line 2031 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block GETNEXT at level 4
                                                                //   2032  
                                                                //   2033        %ROUTINE set subs(%INTEGER n)
#line 2033 "regression-compile-tmp/vax-pass1.imp"
void SETSUBS( int N )
#line 2033 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   2034  
                                                                //   2035           !update the app field in n array descriptors
                                                                //   2036  
                                                                //   2037           %INTEGER p
#line 2037 "regression-compile-tmp/vax-pass1.imp"
int P;
                                                                //   2038           p = tmax
#line 2038 "regression-compile-tmp/vax-pass1.imp"
P = TMAX;
                                                                //   2039           %WHILE n > 0 %CYCLE
#line 2039 "regression-compile-tmp/vax-pass1.imp"
L_019d:;
#line 2039 "regression-compile-tmp/vax-pass1.imp"
if (((N) <= (0))) goto L_019e;
                                                                //   2040              %SIGNAL 15,15 %IF p < tbase
#line 2040 "regression-compile-tmp/vax-pass1.imp"
if (((P) >= (TBASE))) goto L_01a0;
#line 2040 "regression-compile-tmp/vax-pass1.imp"
_imp_signal(15, 15, 0, "");
#line 2040 "regression-compile-tmp/vax-pass1.imp"
L_01a0:;
                                                                //   2041              tag(p)_app = dimension
#line 2041 "regression-compile-tmp/vax-pass1.imp"
TAG[P].APP = DIMENSION;
                                                                //   2042              p = p-1;  n = n-1
#line 2042 "regression-compile-tmp/vax-pass1.imp"
P = (((int)(P)) - (1));
#line 2042 "regression-compile-tmp/vax-pass1.imp"
N = (((int)(N)) - (1));
                                                                //   2043           %REPEAT
#line 2043 "regression-compile-tmp/vax-pass1.imp"
goto L_019d;
#line 2043 "regression-compile-tmp/vax-pass1.imp"
L_019e:;
                                                                //   2044        %END
#line 2044 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SETSUBS at level 4
                                                                //   2045  
                                                                //   2046        %ROUTINE set bp
#line 2046 "regression-compile-tmp/vax-pass1.imp"
void SETBP( void )
#line 2046 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   2047  
                                                                //   2048           !define a constant bound pair from the last stacked constants
                                                                //   2049  
                                                                //   2050           pending = pending-2
#line 2050 "regression-compile-tmp/vax-pass1.imp"
PENDING = (((int)(PENDING)) - (2));
                                                                //   2051           lb = pstack(pending+1);  ub = pstack(pending+2)
#line 2051 "regression-compile-tmp/vax-pass1.imp"
LB = (PSTACK-1)[(((int)(PENDING)) + (1))];
#line 2051 "regression-compile-tmp/vax-pass1.imp"
UB = (PSTACK-1)[(((int)(PENDING)) + (2))];
                                                                //   2052           %IF ub < lb-1 %START
#line 2052 "regression-compile-tmp/vax-pass1.imp"
if (((UB) >= ((((int)(LB)) - (1))))) goto L_01a1;
                                                                //   2053              pos1 = 0;  next = link;  fault(11)
#line 2053 "regression-compile-tmp/vax-pass1.imp"
POS1 = 0;
#line 2053 "regression-compile-tmp/vax-pass1.imp"
NEXT = LINK;
#line 2053 "regression-compile-tmp/vax-pass1.imp"
FAULT(11);
                                                                //   2054              ub = lb
#line 2054 "regression-compile-tmp/vax-pass1.imp"
UB = LB;
                                                                //   2055           %FINISH
#line 2055 "regression-compile-tmp/vax-pass1.imp"
L_01a1:;
                                                                //   2056           set const(lb);  set const(ub)
#line 2056 "regression-compile-tmp/vax-pass1.imp"
SETCONST(LB);
#line 2056 "regression-compile-tmp/vax-pass1.imp"
SETCONST(UB);
                                                                //   2057           put('b') %UNLESS class = 146
#line 2057 "regression-compile-tmp/vax-pass1.imp"
if (((CLASS) == (146))) goto L_01a2;
#line 2057 "regression-compile-tmp/vax-pass1.imp"
PUT(98);
#line 2057 "regression-compile-tmp/vax-pass1.imp"
L_01a2:;
                                                                //   2058        %END
#line 2058 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block SETBP at level 4
                                                                //   2059  
                                                                //   2060        %ROUTINE compile end(%INTEGER type)
#line 2060 "regression-compile-tmp/vax-pass1.imp"
void COMPILEEND( int TYPE )
#line 2060 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   2061  
                                                                //   2062           ! type = 0:eof, 1:eop, 2:end
                                                                //   2063  
                                                                //   2064           %IF access # 0 %START
#line 2064 "regression-compile-tmp/vax-pass1.imp"
if (((ACCESS) == (0))) goto L_01a3;
                                                                //   2065              open = 0
#line 2065 "regression-compile-tmp/vax-pass1.imp"
OPEN = 0;
                                                                //   2066              fault(19) %IF block form > proc;           !can reach end
#line 2066 "regression-compile-tmp/vax-pass1.imp"
if (((BLOCKFORM) <= (7))) goto L_01a4;
#line 2066 "regression-compile-tmp/vax-pass1.imp"
FAULT(19);
#line 2066 "regression-compile-tmp/vax-pass1.imp"
L_01a4:;
                                                                //   2067           %FINISH
#line 2067 "regression-compile-tmp/vax-pass1.imp"
L_01a3:;
                                                                //   2068  
                                                                //   2069           %WHILE dict(dmin) >= 0 %CYCLE;                !finishes & repeats
#line 2069 "regression-compile-tmp/vax-pass1.imp"
L_01a5:;
#line 2069 "regression-compile-tmp/vax-pass1.imp"
if (((DICT[(((int)(DMIN)) - (1))]) < (0))) goto L_01a6;
                                                                //   2070              fault(17+dict(dmin)&1)
#line 2070 "regression-compile-tmp/vax-pass1.imp"
FAULT(((17) + ((int)(((DICT[(((int)(DMIN)) - (1))]) & (1))))));
                                                                //   2071              dmin = dmin+1
#line 2071 "regression-compile-tmp/vax-pass1.imp"
DMIN = (((int)(DMIN)) + (1));
                                                                //   2072           %REPEAT
#line 2072 "regression-compile-tmp/vax-pass1.imp"
goto L_01a5;
#line 2072 "regression-compile-tmp/vax-pass1.imp"
L_01a6:;
                                                                //   2073           {delete names(0)}
                                                                //   2074           put(';')
#line 2074 "regression-compile-tmp/vax-pass1.imp"
PUT(59);
                                                                //   2075           put(';') %IF type = 1;       !endofprogram
#line 2075 "regression-compile-tmp/vax-pass1.imp"
if (((TYPE) != (1))) goto L_01a8;
#line 2075 "regression-compile-tmp/vax-pass1.imp"
PUT(59);
#line 2075 "regression-compile-tmp/vax-pass1.imp"
L_01a8:;
                                                                //   2076  
                                                                //   2077           bflags = bflags!open;                         !show if it returns
#line 2077 "regression-compile-tmp/vax-pass1.imp"
*BFLAGS = ((*BFLAGS) | (OPEN));
                                                                //   2078  
                                                                //   2079           def lab(0) %IF block tag # 0 %AND level # 1;  !for jump around
#line 2079 "regression-compile-tmp/vax-pass1.imp"
if (((BLOCKTAG) == (0))) goto L_01a9;
#line 2079 "regression-compile-tmp/vax-pass1.imp"
if (((LEVEL) == (1))) goto L_01a9;
#line 2079 "regression-compile-tmp/vax-pass1.imp"
DEFLAB(0);
#line 2079 "regression-compile-tmp/vax-pass1.imp"
L_01a9:;
                                                                //   2080           %IF type # 2 %START;                          !eop, eof
#line 2080 "regression-compile-tmp/vax-pass1.imp"
if (((TYPE) == (2))) goto L_01aa;
                                                                //   2081              fault(16) %IF level # type;                !end missing
#line 2081 "regression-compile-tmp/vax-pass1.imp"
if (((LEVEL) == (TYPE))) goto L_01ab;
#line 2081 "regression-compile-tmp/vax-pass1.imp"
FAULT(16);
#line 2081 "regression-compile-tmp/vax-pass1.imp"
L_01ab:;
                                                                //   2082           %FINISH %ELSE %START
#line 2082 "regression-compile-tmp/vax-pass1.imp"
goto L_01ac;
#line 2082 "regression-compile-tmp/vax-pass1.imp"
L_01aa:;
                                                                //   2083              %IF level = 0 %START
#line 2083 "regression-compile-tmp/vax-pass1.imp"
if (((LEVEL) != (0))) goto L_01ad;
                                                                //   2084                 fault(15);                                 !spurious end
#line 2084 "regression-compile-tmp/vax-pass1.imp"
FAULT(15);
                                                                //   2085              %FINISH
#line 2085 "regression-compile-tmp/vax-pass1.imp"
L_01ad:;
                                                                //   2086           %FINISH
#line 2086 "regression-compile-tmp/vax-pass1.imp"
L_01ac:;
                                                                //   2087  
                                                                //   2088           !end mark = 11;               !IMP77
                                                                //   2089        %END
#line 2089 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block COMPILEEND at level 4
                                                                //   2090  
                                                                //   2091        %ROUTINE def(%INTEGER p)
#line 2091 "regression-compile-tmp/vax-pass1.imp"
void DEF( int P )
#line 2091 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   2092  
                                                                //   2093           !dump a descriptor
                                                                //   2094  
                                                                //   2095           %INTEGER t, f, type
#line 2095 "regression-compile-tmp/vax-pass1.imp"
int T;
#line 2095 "regression-compile-tmp/vax-pass1.imp"
int F;
#line 2095 "regression-compile-tmp/vax-pass1.imp"
int TYPE;
                                                                //   2096           %RECORD(tagfm)%NAME v;      !imp77:
#line 2096 "regression-compile-tmp/vax-pass1.imp"
 TAGFM /*name*/*V;
                                                                //   2097           defs = defs+1
#line 2097 "regression-compile-tmp/vax-pass1.imp"
DEFS = (((int)(DEFS)) + (1));
                                                                //   2098           v == tag(p)
#line 2098 "regression-compile-tmp/vax-pass1.imp"
V = &TAG[P];
                                                                //   2099           t = 0
#line 2099 "regression-compile-tmp/vax-pass1.imp"
T = 0;
                                                                //   2100           put('$')
#line 2100 "regression-compile-tmp/vax-pass1.imp"
PUT(36);
                                                                //   2101           %UNLESS v_index < 0 %START;                   !no index for subnames
#line 2101 "regression-compile-tmp/vax-pass1.imp"
if (((V->INDEX) < (0))) goto L_01ae;
                                                                //   2102              id = id+1 %AND v_index = id %IF v_index = 0
#line 2102 "regression-compile-tmp/vax-pass1.imp"
if (((V->INDEX) != (0))) goto L_01af;
#line 2102 "regression-compile-tmp/vax-pass1.imp"
ID = (((int)(ID)) + (1));
#line 2102 "regression-compile-tmp/vax-pass1.imp"
V->INDEX = ID;
#line 2102 "regression-compile-tmp/vax-pass1.imp"
L_01af:;
                                                                //   2103              last def = v_index
#line 2103 "regression-compile-tmp/vax-pass1.imp"
LASTDEF = V->INDEX;
                                                                //   2104              putword(lastdef)
#line 2104 "regression-compile-tmp/vax-pass1.imp"
PUTWORD(LASTDEF);
                                                                //   2105           %FINISH %else putword(0)
#line 2105 "regression-compile-tmp/vax-pass1.imp"
goto L_01b0;
#line 2105 "regression-compile-tmp/vax-pass1.imp"
L_01ae:;
#line 2105 "regression-compile-tmp/vax-pass1.imp"
PUTWORD(0);
#line 2105 "regression-compile-tmp/vax-pass1.imp"
L_01b0:;
                                                                //   2106           print ident(p, 1);                            !output the name
#line 2106 "regression-compile-tmp/vax-pass1.imp"
PRINTIDENT(P, 1);
                                                                //   2107           t = v_flags
#line 2107 "regression-compile-tmp/vax-pass1.imp"
T = V->FLAGS;
                                                                //   2108           type = t
#line 2108 "regression-compile-tmp/vax-pass1.imp"
TYPE = T;
                                                                //   2109           type = type&(\(7<<4)) %IF type&(7<<4) >= 6<<4;!routine & pred
#line 2109 "regression-compile-tmp/vax-pass1.imp"
if (((((TYPE) & (((7) << (4))))) < (((6) << (4))))) goto L_01b1;
#line 2109 "regression-compile-tmp/vax-pass1.imp"
TYPE = ((TYPE) & ((~(((7) << (4))))));
#line 2109 "regression-compile-tmp/vax-pass1.imp"
L_01b1:;
                                                                //   2110           put(','); put(type&2_1111111);            !type & form
#line 2110 "regression-compile-tmp/vax-pass1.imp"
PUT(44);
#line 2110 "regression-compile-tmp/vax-pass1.imp"
PUT(((TYPE) & (127)));
                                                                //   2111           f = v_format
#line 2111 "regression-compile-tmp/vax-pass1.imp"
F = V->FORMAT;
                                                                //   2112           f = tag(f)_index %IF t&16_70 = record<<4
#line 2112 "regression-compile-tmp/vax-pass1.imp"
if (((((T) & (112))) != (((4) << (4))))) goto L_01b2;
#line 2112 "regression-compile-tmp/vax-pass1.imp"
F = TAG[F].INDEX;
#line 2112 "regression-compile-tmp/vax-pass1.imp"
L_01b2:;
                                                                //   2113           f = v_index %IF f < 0
#line 2113 "regression-compile-tmp/vax-pass1.imp"
if (((F) >= (0))) goto L_01b3;
#line 2113 "regression-compile-tmp/vax-pass1.imp"
F = V->INDEX;
#line 2113 "regression-compile-tmp/vax-pass1.imp"
L_01b3:;
                                                                //   2114           op(',', f);               !format
#line 2114 "regression-compile-tmp/vax-pass1.imp"
OP(44, F);
                                                                //   2115           f = otype+t>>4&2_1111000
#line 2115 "regression-compile-tmp/vax-pass1.imp"
F = ((OTYPE) + ((int)((((int)((((unsigned int)(T)) >> (4)))) & (120)))));
                                                                //   2116           f = f!8 %IF class = 125;                      !add spec from %DUP
#line 2116 "regression-compile-tmp/vax-pass1.imp"
if (((CLASS) != (125))) goto L_01b4;
#line 2116 "regression-compile-tmp/vax-pass1.imp"
F = ((F) | (8));
#line 2116 "regression-compile-tmp/vax-pass1.imp"
L_01b4:;
                                                                //   2117           dim = v_app;                  !dimension
#line 2117 "regression-compile-tmp/vax-pass1.imp"
DIM = V->APP;
                                                                //   2118           dim = 0 %unless 0 < dim <= dim limit
#line 2118 "regression-compile-tmp/vax-pass1.imp"
if ((((0) >= (DIM))) || (((DIM) <= (6)))) goto L_01b5;
#line 2118 "regression-compile-tmp/vax-pass1.imp"
L_01a7:;
#line 2118 "regression-compile-tmp/vax-pass1.imp"
DIM = 0;
#line 2118 "regression-compile-tmp/vax-pass1.imp"
L_01b5:;
                                                                //   2119           put(','); putlong(f+dim<<8);                              !otype & spec & prot
#line 2119 "regression-compile-tmp/vax-pass1.imp"
PUT(44);
#line 2119 "regression-compile-tmp/vax-pass1.imp"
PUTLONG(((F) + ((int)(((DIM) << (8))))));
                                                                //   2120           defs = 0 %IF t&parameters = 0
#line 2120 "regression-compile-tmp/vax-pass1.imp"
if (((((T) & (4096))) != (0))) goto L_01b6;
#line 2120 "regression-compile-tmp/vax-pass1.imp"
DEFS = 0;
#line 2120 "regression-compile-tmp/vax-pass1.imp"
L_01b6:;
                                                                //   2121           f = t&15
#line 2121 "regression-compile-tmp/vax-pass1.imp"
F = ((T) & (15));
                                                                //   2122           %IF v_flags&spec # 0 %START
#line 2122 "regression-compile-tmp/vax-pass1.imp"
if (((((V->FLAGS) & (128))) == (0))) goto L_01b7;
                                                                //   2123              v_flags = v_flags&(\spec) %UNLESS 3 <= f <= 10
#line 2123 "regression-compile-tmp/vax-pass1.imp"
if ((((3) > (F))) || (((F) <= (10)))) goto L_01b8;
#line 2123 "regression-compile-tmp/vax-pass1.imp"
L_0170:;
#line 2123 "regression-compile-tmp/vax-pass1.imp"
V->FLAGS = ((V->FLAGS) & ((~(128))));
#line 2123 "regression-compile-tmp/vax-pass1.imp"
L_01b8:;
                                                                //   2124              ocount = -1;             ! external specs have no constants
#line 2124 "regression-compile-tmp/vax-pass1.imp"
OCOUNT = (-1);
                                                                //   2125           %FINISH
#line 2125 "regression-compile-tmp/vax-pass1.imp"
L_01b7:;
                                                                //   2126           dimension = 0
#line 2126 "regression-compile-tmp/vax-pass1.imp"
DIMENSION = 0;
                                                                //   2127           %if otype = 2 %and (f=2 %or f=12 %or f=14) %start
#line 2127 "regression-compile-tmp/vax-pass1.imp"
if (((OTYPE) != (2))) goto L_01b9;
#line 2127 "regression-compile-tmp/vax-pass1.imp"
if (((F) == (2))) goto L_01ba;
#line 2127 "regression-compile-tmp/vax-pass1.imp"
if (((F) == (12))) goto L_01ba;
#line 2127 "regression-compile-tmp/vax-pass1.imp"
if (((F) != (14))) goto L_01b9;
#line 2127 "regression-compile-tmp/vax-pass1.imp"
L_01ba:;
                                                                //   2128              v_flags = v_flags-1;            !convert to simple
#line 2128 "regression-compile-tmp/vax-pass1.imp"
V->FLAGS = (((int)(V->FLAGS)) - (1));
                                                                //   2129           %finish
#line 2129 "regression-compile-tmp/vax-pass1.imp"
L_01b9:;
                                                                //   2130        %END
#line 2130 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DEF at level 4
                                                                //   2131  
                                                                //   2132        %ROUTINE def s lab(%INTEGER n)
#line 2132 "regression-compile-tmp/vax-pass1.imp"
void DEFSLAB( int N )
#line 2132 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   2133  
                                                                //   2134           !define a switch label, x defines the switch tag
                                                                //   2135  
                                                                //   2136           %INTEGER p, l, b, w, bit
#line 2136 "regression-compile-tmp/vax-pass1.imp"
int P;
#line 2136 "regression-compile-tmp/vax-pass1.imp"
int L;
#line 2136 "regression-compile-tmp/vax-pass1.imp"
int B;
#line 2136 "regression-compile-tmp/vax-pass1.imp"
int W;
#line 2136 "regression-compile-tmp/vax-pass1.imp"
int BIT;
                                                                //   2137           p = tag(x)_format;                            !pointer to table
#line 2137 "regression-compile-tmp/vax-pass1.imp"
P = TAG[X].FORMAT;
                                                                //   2138           l = dict(p);                                  !lower bound
#line 2138 "regression-compile-tmp/vax-pass1.imp"
L = DICT[(((int)(P)) - (1))];
                                                                //   2139           %IF l <= n <= dict(p+1) %START
#line 2139 "regression-compile-tmp/vax-pass1.imp"
if ((((L) > (N))) || (((N) > (DICT[(((int)((((int)(P)) + (1)))) - (1))])))) goto L_01bb;
                                                                //   2140              b = n-l
#line 2140 "regression-compile-tmp/vax-pass1.imp"
B = (((int)(N)) - (L));
                                                                //   2141              w = b>>4+p
#line 2141 "regression-compile-tmp/vax-pass1.imp"
W = (((int)((int)((((unsigned int)(B)) >> (4))))) + (P));
                                                                //   2142              bit = 1<<(b&15)
#line 2142 "regression-compile-tmp/vax-pass1.imp"
BIT = ((1) << (((B) & (15))));
                                                                //   2143              %IF dict(w+2)&bit # 0 %START;                 !already set
#line 2143 "regression-compile-tmp/vax-pass1.imp"
if (((((DICT[(((int)((((int)(W)) + (2)))) - (1))]) & (BIT))) == (0))) goto L_01bc;
                                                                //   2144                 fault(4) %IF pending # 0
#line 2144 "regression-compile-tmp/vax-pass1.imp"
if (((PENDING) == (0))) goto L_01bd;
#line 2144 "regression-compile-tmp/vax-pass1.imp"
FAULT(4);
#line 2144 "regression-compile-tmp/vax-pass1.imp"
L_01bd:;
                                                                //   2145                 %RETURN
#line 2145 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2146              %FINISH
#line 2146 "regression-compile-tmp/vax-pass1.imp"
L_01bc:;
                                                                //   2147              dict(w+2) <- dict(w+2)!bit %IF pending # 0
#line 2147 "regression-compile-tmp/vax-pass1.imp"
if (((PENDING) == (0))) goto L_01be;
#line 2147 "regression-compile-tmp/vax-pass1.imp"
DICT[(((int)((((int)(W)) + (2)))) - (1))] = ((DICT[(((int)((((int)(W)) + (2)))) - (1))]) | (BIT));
#line 2147 "regression-compile-tmp/vax-pass1.imp"
L_01be:;
                                                                //   2148              set const(n)
#line 2148 "regression-compile-tmp/vax-pass1.imp"
SETCONST(N);
                                                                //   2149              op('_', tag(x)_index)
#line 2149 "regression-compile-tmp/vax-pass1.imp"
OP(95, TAG[X].INDEX);
                                                                //   2150           %FINISH %ELSE %START
#line 2150 "regression-compile-tmp/vax-pass1.imp"
goto L_01bf;
#line 2150 "regression-compile-tmp/vax-pass1.imp"
L_01bb:;
                                                                //   2151              fault(12)
#line 2151 "regression-compile-tmp/vax-pass1.imp"
FAULT(12);
                                                                //   2152           %FINISH
#line 2152 "regression-compile-tmp/vax-pass1.imp"
L_01bf:;
                                                                //   2153           access = 1
#line 2153 "regression-compile-tmp/vax-pass1.imp"
ACCESS = 1;
                                                                //   2154        %END
#line 2154 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DEFSLAB at level 4
                                                                //   2155  
                                                                //   2156        %ROUTINE call
#line 2156 "regression-compile-tmp/vax-pass1.imp"
void CALL( void )
#line 2156 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   2157           %RECORD(tagfm)%NAME T;      !IMP77:
#line 2157 "regression-compile-tmp/vax-pass1.imp"
 TAGFM /*name*/*T;
                                                                //   2158           t == tag(x)
#line 2158 "regression-compile-tmp/vax-pass1.imp"
T = &TAG[X];
                                                                //   2159           op('@', t_index)
#line 2159 "regression-compile-tmp/vax-pass1.imp"
OP(64, T->INDEX);
                                                                //   2160           access = 0 %IF t_flags&closed # 0;         !never comes back
#line 2160 "regression-compile-tmp/vax-pass1.imp"
if (((((T->FLAGS) & (16384))) == (0))) goto L_01c0;
#line 2160 "regression-compile-tmp/vax-pass1.imp"
ACCESS = 0;
#line 2160 "regression-compile-tmp/vax-pass1.imp"
L_01c0:;
                                                                //   2161           put('E') %IF t_app = 0;             !no parameters
#line 2161 "regression-compile-tmp/vax-pass1.imp"
if (((T->APP) != (0))) goto L_01c1;
#line 2161 "regression-compile-tmp/vax-pass1.imp"
PUT(69);
#line 2161 "regression-compile-tmp/vax-pass1.imp"
L_01c1:;
                                                                //   2162        %END
#line 2162 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CALL at level 4
                                                                //   2163  
                                                                //   2164        %ROUTINE pop def
#line 2164 "regression-compile-tmp/vax-pass1.imp"
void POPDEF( void )
#line 2164 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   2165           set const(pstack(pending));  pending = pending-1
#line 2165 "regression-compile-tmp/vax-pass1.imp"
SETCONST((PSTACK-1)[PENDING]);
#line 2165 "regression-compile-tmp/vax-pass1.imp"
PENDING = (((int)(PENDING)) - (1));
                                                                //   2166        %END
#line 2166 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block POPDEF at level 4
                                                                //   2167  
                                                                //   2168        %ROUTINE pop lit
#line 2168 "regression-compile-tmp/vax-pass1.imp"
void POPLIT( void )
#line 2168 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   2169           %IF pending = 0 %THEN lit = 0 %ELSE %START
#line 2169 "regression-compile-tmp/vax-pass1.imp"
if (((PENDING) != (0))) goto L_01c2;
#line 2169 "regression-compile-tmp/vax-pass1.imp"
LIT = 0;
#line 2169 "regression-compile-tmp/vax-pass1.imp"
goto L_01c3;
#line 2169 "regression-compile-tmp/vax-pass1.imp"
L_01c2:;
                                                                //   2170              lit = pstack(pending);  pending = pending-1
#line 2170 "regression-compile-tmp/vax-pass1.imp"
LIT = (PSTACK-1)[PENDING];
#line 2170 "regression-compile-tmp/vax-pass1.imp"
PENDING = (((int)(PENDING)) - (1));
                                                                //   2171           %FINISH
#line 2171 "regression-compile-tmp/vax-pass1.imp"
L_01c3:;
                                                                //   2172        %END
#line 2172 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block POPLIT at level 4
                                                                //   2173  
                                                                //   2174  
                                                                //   2175        %IF sstype < 0 %START;                       !executable statement
#line 2175 "regression-compile-tmp/vax-pass1.imp"
if (((SSTYPE) >= (0))) goto L_01c4;
                                                                //   2176           %IF level = 0 %START;                     !outermost level
#line 2176 "regression-compile-tmp/vax-pass1.imp"
if (((LEVEL) != (0))) goto L_01c5;
                                                                //   2177              fault(13);                             !*order
#line 2177 "regression-compile-tmp/vax-pass1.imp"
FAULT(13);
                                                                //   2178           %FINISH %ELSE %START
#line 2178 "regression-compile-tmp/vax-pass1.imp"
goto L_01c6;
#line 2178 "regression-compile-tmp/vax-pass1.imp"
L_01c5:;
                                                                //   2179              %IF access = 0 %START
#line 2179 "regression-compile-tmp/vax-pass1.imp"
if (((ACCESS) != (0))) goto L_01c7;
                                                                //   2180                 access = 1;  fault(-1);                !only a warning
#line 2180 "regression-compile-tmp/vax-pass1.imp"
ACCESS = 1;
#line 2180 "regression-compile-tmp/vax-pass1.imp"
FAULT((-1));
                                                                //   2181              %FINISH
#line 2181 "regression-compile-tmp/vax-pass1.imp"
L_01c7:;
                                                                //   2182           %FINISH
#line 2182 "regression-compile-tmp/vax-pass1.imp"
L_01c6:;
                                                                //   2183        %FINISH
#line 2183 "regression-compile-tmp/vax-pass1.imp"
L_01c4:;
                                                                //   2184  
                                                                //   2185        %IF diag&2 # 0 %START
#line 2185 "regression-compile-tmp/vax-pass1.imp"
if (((((DIAG) & (2))) == (0))) goto L_01c8;
                                                                //   2186           newline %IF sym # nl
#line 2186 "regression-compile-tmp/vax-pass1.imp"
if (((SYM) == (10))) goto L_01c9;
#line 2186 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
#line 2186 "regression-compile-tmp/vax-pass1.imp"
L_01c9:;
                                                                //   2187           printstring("ss =")
#line 2187 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_str_literal("ss ="));
                                                                //   2188           write(ss, 1)
#line 2188 "regression-compile-tmp/vax-pass1.imp"
_imp_WRITE(SS, 1);
                                                                //   2189           newline
#line 2189 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
                                                                //   2190           count = 5
#line 2190 "regression-compile-tmp/vax-pass1.imp"
COUNT = 5;
                                                                //   2191           name = ""
#line 2191 "regression-compile-tmp/vax-pass1.imp"
NAME = _imp_str_literal("");
                                                                //   2192        %FINISH
#line 2192 "regression-compile-tmp/vax-pass1.imp"
L_01c8:;
                                                                //   2193  
                                                                //   2194        next = ss
#line 2194 "regression-compile-tmp/vax-pass1.imp"
NEXT = SS;
                                                                //   2195        pending = 0;  lmode = 0
#line 2195 "regression-compile-tmp/vax-pass1.imp"
PENDING = 0;
#line 2195 "regression-compile-tmp/vax-pass1.imp"
LMODE = 0;
                                                                //   2196        link = 0;  decs = 0
#line 2196 "regression-compile-tmp/vax-pass1.imp"
LINK = 0;
#line 2196 "regression-compile-tmp/vax-pass1.imp"
DECS = 0;
                                                                //   2197        defs = 0;  resln = 0;  done = 0
#line 2197 "regression-compile-tmp/vax-pass1.imp"
DEFS = 0;
#line 2197 "regression-compile-tmp/vax-pass1.imp"
RESLN = 0;
#line 2197 "regression-compile-tmp/vax-pass1.imp"
DONE = 0;
                                                                //   2198        ord = level
#line 2198 "regression-compile-tmp/vax-pass1.imp"
ORD = LEVEL;
                                                                //   2199        ord = 1 %IF this >= 0;           !recordformat declarations
#line 2199 "regression-compile-tmp/vax-pass1.imp"
if (((THIS) < (0))) goto L_01ca;
#line 2199 "regression-compile-tmp/vax-pass1.imp"
ORD = 1;
#line 2199 "regression-compile-tmp/vax-pass1.imp"
L_01ca:;
                                                                //   2200  c(0):
#line 2200 "regression-compile-tmp/vax-pass1.imp"
sw5_C_0:;
                                                                //   2201  top:  %IF next # link %START
#line 2201 "regression-compile-tmp/vax-pass1.imp"
U_101b:;
#line 2201 "regression-compile-tmp/vax-pass1.imp"
if (((NEXT) == (LINK))) goto L_01cb;
                                                                //   2202           get next;  ->c(class)
#line 2202 "regression-compile-tmp/vax-pass1.imp"
GETNEXT();
#line 2202 "regression-compile-tmp/vax-pass1.imp"
sw5_C_idx = CLASS; if ((0 <= sw5_C_idx) && (sw5_C_idx <= 180)) goto *sw5_C[sw5_C_idx]; else {
   /*_imp_signal(8, 2, sw5_C_idx);*/
   fprintf(stderr, "%%SWITCH index C(%d) not in range 0:180 at %s:%d\n",
           sw5_C_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   2203  c(*):debug("* Switch label not set: c(".itos(class,0).")"); %stop
#line 2203 "regression-compile-tmp/vax-pass1.imp"
sw5_C_default:;
#line 2203 "regression-compile-tmp/vax-pass1.imp"
DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("* Switch label not set: c("),(_imp_string)_imp_ITOS(CLASS, 0)),(_imp_string)_imp_str_literal(")")));
#line 2203 "regression-compile-tmp/vax-pass1.imp"
exit(0);
                                                                //   2204        %FINISH
#line 2204 "regression-compile-tmp/vax-pass1.imp"
L_01cb:;
                                                                //   2205  
                                                                //   2206        !all done, tidy up declarations and jumps
                                                                //   2207  
                                                                //   2208        newline %IF diag&2 # 0 %AND count # 5
#line 2208 "regression-compile-tmp/vax-pass1.imp"
if (((((DIAG) & (2))) == (0))) goto L_01cc;
#line 2208 "regression-compile-tmp/vax-pass1.imp"
if (((COUNT) == (5))) goto L_01cc;
#line 2208 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
#line 2208 "regression-compile-tmp/vax-pass1.imp"
L_01cc:;
                                                                //   2209  
                                                                //   2210        %IF lmode&(loop!then!else) # 0 %START;    !pending labels and jumps
#line 2210 "regression-compile-tmp/vax-pass1.imp"
if (((((LMODE) & (((((16) | (4))) | (8))))) == (0))) goto L_01cd;
                                                                //   2211           op('B', label-1) %IF lmode&loop # 0;   !repeat
#line 2211 "regression-compile-tmp/vax-pass1.imp"
if (((((LMODE) & (16))) == (0))) goto L_01ce;
#line 2211 "regression-compile-tmp/vax-pass1.imp"
OP(66, (((int)(LABEL)) - (1)));
#line 2211 "regression-compile-tmp/vax-pass1.imp"
L_01ce:;
                                                                //   2212           def lab(label)   %IF lmode&then # 0;   !entry from then
#line 2212 "regression-compile-tmp/vax-pass1.imp"
if (((((LMODE) & (4))) == (0))) goto L_01cf;
#line 2212 "regression-compile-tmp/vax-pass1.imp"
DEFLAB(LABEL);
#line 2212 "regression-compile-tmp/vax-pass1.imp"
L_01cf:;
                                                                //   2213           def lab(label-1) %IF lmode&else # 0;   !entry from else
#line 2213 "regression-compile-tmp/vax-pass1.imp"
if (((((LMODE) & (8))) == (0))) goto L_01d0;
#line 2213 "regression-compile-tmp/vax-pass1.imp"
DEFLAB((((int)(LABEL)) - (1)));
#line 2213 "regression-compile-tmp/vax-pass1.imp"
L_01d0:;
                                                                //   2214        %FINISH
#line 2214 "regression-compile-tmp/vax-pass1.imp"
L_01cd:;
                                                                //   2215  
                                                                //   2216        %RETURN %IF decs = 0
#line 2216 "regression-compile-tmp/vax-pass1.imp"
if (((DECS) != (0))) goto L_01d1;
#line 2216 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 2216 "regression-compile-tmp/vax-pass1.imp"
L_01d1:;
                                                                //   2217        atom1 = error %AND %RETURN %IF atom1 # 0;      !%INTEGERROUTINE
#line 2217 "regression-compile-tmp/vax-pass1.imp"
if (((ATOM1) == (0))) goto L_01d2;
#line 2217 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 32768;
#line 2217 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 2217 "regression-compile-tmp/vax-pass1.imp"
L_01d2:;
                                                                //   2218        order = ord
#line 2218 "regression-compile-tmp/vax-pass1.imp"
ORDER = ORD;
                                                                //   2219        decl = decl&(\15)+decmap(decl&15);           !construct declarator flags
#line 2219 "regression-compile-tmp/vax-pass1.imp"
DECL = (((short)(((DECL) & ((~(15)))))) + (DECMAP[((DECL) & (15))]));
                                                                //   2220        atom1 = atoms(decl&15);                      !generate class
#line 2220 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = ATOMS[((DECL) & (15))];
                                                                //   2221        %IF otype # 0 %START;                  !own, const etc.
#line 2221 "regression-compile-tmp/vax-pass1.imp"
if (((OTYPE) == (0))) goto L_01d3;
                                                                //   2222           atom1 = atom1+1 %IF atom1 # proc
#line 2222 "regression-compile-tmp/vax-pass1.imp"
if (((ATOM1) == (7))) goto L_01d4;
#line 2222 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = (((int)(ATOM1)) + (1));
#line 2222 "regression-compile-tmp/vax-pass1.imp"
L_01d4:;
                                                                //   2223           %IF otype = 2 %START;               !const
#line 2223 "regression-compile-tmp/vax-pass1.imp"
if (((OTYPE) != (2))) goto L_01d5;
                                                                //   2224              n = decl&15
#line 2224 "regression-compile-tmp/vax-pass1.imp"
N = ((DECL) & (15));
                                                                //   2225              %if n&1 # 0 %start
#line 2225 "regression-compile-tmp/vax-pass1.imp"
if (((((N) & (1))) == (0))) goto L_01d6;
                                                                //   2226                 decl = decl!prot
#line 2226 "regression-compile-tmp/vax-pass1.imp"
DECL = ((DECL) | (256));
                                                                //   2227                 decl = decl!const bit %IF decl&2_1111111 = iform
#line 2227 "regression-compile-tmp/vax-pass1.imp"
if (((((DECL) & (127))) != (17))) goto L_01d7;
#line 2227 "regression-compile-tmp/vax-pass1.imp"
DECL = ((DECL) | (8192));
#line 2227 "regression-compile-tmp/vax-pass1.imp"
L_01d7:;
                                                                //   2228              %finish
#line 2228 "regression-compile-tmp/vax-pass1.imp"
L_01d6:;
                                                                //   2229           %else
#line 2229 "regression-compile-tmp/vax-pass1.imp"
goto L_01d8;
#line 2229 "regression-compile-tmp/vax-pass1.imp"
L_01d5:;
                                                                //   2230              decl = decl!own bit
#line 2230 "regression-compile-tmp/vax-pass1.imp"
DECL = ((DECL) | (512));
                                                                //   2231           %FINISH
#line 2231 "regression-compile-tmp/vax-pass1.imp"
L_01d8:;
                                                                //   2232        %FINISH
#line 2232 "regression-compile-tmp/vax-pass1.imp"
L_01d3:;
                                                                //   2233        sstype = 1 %IF sstype = 0 %AND atom1 = proc
#line 2233 "regression-compile-tmp/vax-pass1.imp"
if (((SSTYPE) != (0))) goto L_01d9;
#line 2233 "regression-compile-tmp/vax-pass1.imp"
if (((ATOM1) != (7))) goto L_01d9;
#line 2233 "regression-compile-tmp/vax-pass1.imp"
SSTYPE = 1;
#line 2233 "regression-compile-tmp/vax-pass1.imp"
L_01d9:;
                                                                //   2234        atom1 = atom1+1 %IF decl&spec # 0;             !onto spec variant
#line 2234 "regression-compile-tmp/vax-pass1.imp"
if (((((DECL) & (128))) == (0))) goto L_01da;
#line 2234 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = (((int)(ATOM1)) + (1));
#line 2234 "regression-compile-tmp/vax-pass1.imp"
L_01da:;
                                                                //   2235        ocount = 0 %AND cont = '+' %IF atom1 = 5;      !own array
#line 2235 "regression-compile-tmp/vax-pass1.imp"
if (((ATOM1) != (5))) goto L_01db;
#line 2235 "regression-compile-tmp/vax-pass1.imp"
OCOUNT = 0;
#line 2235 "regression-compile-tmp/vax-pass1.imp"
CONT = 43;
#line 2235 "regression-compile-tmp/vax-pass1.imp"
L_01db:;
                                                                //   2236        %IF anyform(decl&15) = 0 %START;               !check meaningful
#line 2236 "regression-compile-tmp/vax-pass1.imp"
if (((ANYFORM[((DECL) & (15))]) != (0))) goto L_01dc;
                                                                //   2237           %IF decl>>4&7 = record %START
#line 2237 "regression-compile-tmp/vax-pass1.imp"
if ((((((int)((((unsigned int)(DECL)) >> (4)))) & (7))) != (4))) goto L_01dd;
                                                                //   2238              this = fdef %IF tag(fdef)_flags&spec # 0
#line 2238 "regression-compile-tmp/vax-pass1.imp"
if (((((TAG[FDEF].FLAGS) & (128))) == (0))) goto L_01de;
#line 2238 "regression-compile-tmp/vax-pass1.imp"
THIS = FDEF;
#line 2238 "regression-compile-tmp/vax-pass1.imp"
L_01de:;
                                                                //   2239              atom1 = error+21 %IF fdef = this;        !*context for format
#line 2239 "regression-compile-tmp/vax-pass1.imp"
if (((FDEF) != (THIS))) goto L_01df;
#line 2239 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 32789;
#line 2239 "regression-compile-tmp/vax-pass1.imp"
L_01df:;
                                                                //   2240           %FINISH
#line 2240 "regression-compile-tmp/vax-pass1.imp"
L_01dd:;
                                                                //   2241           atom1 = error+10 %IF fdef = 0;              !*size
#line 2241 "regression-compile-tmp/vax-pass1.imp"
if (((FDEF) != (0))) goto L_01e0;
#line 2241 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 32778;
#line 2241 "regression-compile-tmp/vax-pass1.imp"
L_01e0:;
                                                                //   2242        %FINISH
#line 2242 "regression-compile-tmp/vax-pass1.imp"
L_01dc:;
                                                                //   2243        %RETURN
#line 2243 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2244  
                                                                //   2245  atop:   access = 0;  ->top
#line 2245 "regression-compile-tmp/vax-pass1.imp"
U_101c:;
#line 2245 "regression-compile-tmp/vax-pass1.imp"
ACCESS = 0;
#line 2245 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2246  
                                                                //   2247  ! declarators
                                                                //   2248  
                                                                //   2249  c(88):                                                !rtype
#line 2249 "regression-compile-tmp/vax-pass1.imp"
sw5_C_88:;
                                                                //   2250  c(28): decl = x&(\7);                                 !stype
#line 2250 "regression-compile-tmp/vax-pass1.imp"
sw5_C_28:;
#line 2250 "regression-compile-tmp/vax-pass1.imp"
DECL = ((X) & ((~(7))));
                                                                //   2251         fdef = x&7;                                    !precision
#line 2251 "regression-compile-tmp/vax-pass1.imp"
FDEF = ((X) & (7));
                                                                //   2252         fdef = reals ln %IF x&2_1110001 = real<<4+1;  !convert to long
#line 2252 "regression-compile-tmp/vax-pass1.imp"
if (((((X) & (113))) != ((((int)(((2) << (4)))) + (1))))) goto L_01e1;
#line 2252 "regression-compile-tmp/vax-pass1.imp"
FDEF = REALSLN;
#line 2252 "regression-compile-tmp/vax-pass1.imp"
L_01e1:;
                                                                //   2253         decs = 1;  ->top
#line 2253 "regression-compile-tmp/vax-pass1.imp"
DECS = 1;
#line 2253 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2254  c(34):                                                !own
#line 2254 "regression-compile-tmp/vax-pass1.imp"
sw5_C_34:;
                                                                //   2255  c(35): otype = x;  ord = 1;  ->top;                   !external
#line 2255 "regression-compile-tmp/vax-pass1.imp"
sw5_C_35:;
#line 2255 "regression-compile-tmp/vax-pass1.imp"
OTYPE = X;
#line 2255 "regression-compile-tmp/vax-pass1.imp"
ORD = 1;
#line 2255 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2256  c(152):decl = decl+x<<1;  ->top;                      !xname
#line 2256 "regression-compile-tmp/vax-pass1.imp"
sw5_C_152:;
#line 2256 "regression-compile-tmp/vax-pass1.imp"
DECL = ((DECL) + ((int)(((X) << (1)))));
#line 2256 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2257  c(31):                                                !proc
#line 2257 "regression-compile-tmp/vax-pass1.imp"
sw5_C_31:;
                                                                //   2258  c(32): spec mode = level+1;                           !fn/map
#line 2258 "regression-compile-tmp/vax-pass1.imp"
sw5_C_32:;
#line 2258 "regression-compile-tmp/vax-pass1.imp"
SPECMODE = (((int)(LEVEL)) + (1));
                                                                //   2259         decl = decl!prot %IF x = 9;                    !function
#line 2259 "regression-compile-tmp/vax-pass1.imp"
if (((X) != (9))) goto L_01e2;
#line 2259 "regression-compile-tmp/vax-pass1.imp"
DECL = ((DECL) | (256));
#line 2259 "regression-compile-tmp/vax-pass1.imp"
L_01e2:;
                                                                //   2260  c(29): ord = 1;                                       !array
#line 2260 "regression-compile-tmp/vax-pass1.imp"
sw5_C_29:;
#line 2260 "regression-compile-tmp/vax-pass1.imp"
ORD = 1;
                                                                //   2261         dim = 0
#line 2261 "regression-compile-tmp/vax-pass1.imp"
DIM = 0;
                                                                //   2262  c(30): decl = decl+x;                                 !name
#line 2262 "regression-compile-tmp/vax-pass1.imp"
sw5_C_30:;
#line 2262 "regression-compile-tmp/vax-pass1.imp"
DECL = (((int)(DECL)) + (X));
                                                                //   2263         decs = 1
#line 2263 "regression-compile-tmp/vax-pass1.imp"
DECS = 1;
                                                                //   2264         ->top
#line 2264 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2265  c(27): lit = 0;                                       ! arrayd
#line 2265 "regression-compile-tmp/vax-pass1.imp"
sw5_C_27:;
#line 2265 "regression-compile-tmp/vax-pass1.imp"
LIT = 0;
                                                                //   2266         %IF pending # 0 %START
#line 2266 "regression-compile-tmp/vax-pass1.imp"
if (((PENDING) == (0))) goto L_01e3;
                                                                //   2267            pop lit
#line 2267 "regression-compile-tmp/vax-pass1.imp"
POPLIT();
                                                                //   2268            %UNLESS 0<lit<=dim limit %START
#line 2268 "regression-compile-tmp/vax-pass1.imp"
if ((((0) >= (LIT))) || (((LIT) <= (6)))) goto L_01e5;
#line 2268 "regression-compile-tmp/vax-pass1.imp"
L_01e4:;
                                                                //   2269               atom1 = error + 11;  %RETURN
#line 2269 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 32779;
#line 2269 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2270            %FINISH
#line 2270 "regression-compile-tmp/vax-pass1.imp"
L_01e5:;
                                                                //   2271         %FINISH
#line 2271 "regression-compile-tmp/vax-pass1.imp"
L_01e3:;
                                                                //   2272         dim = lit
#line 2272 "regression-compile-tmp/vax-pass1.imp"
DIM = LIT;
                                                                //   2273         decl = decl + x;  decs = 1
#line 2273 "regression-compile-tmp/vax-pass1.imp"
DECL = (((int)(DECL)) + (X));
#line 2273 "regression-compile-tmp/vax-pass1.imp"
DECS = 1;
                                                                //   2274         -> top
#line 2274 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2275  c(37): x = x!subname;                                 !record
#line 2275 "regression-compile-tmp/vax-pass1.imp"
sw5_C_37:;
#line 2275 "regression-compile-tmp/vax-pass1.imp"
X = ((X) | (2048));
                                                                //   2276  c(36): lit = 0;                                       !string
#line 2276 "regression-compile-tmp/vax-pass1.imp"
sw5_C_36:;
#line 2276 "regression-compile-tmp/vax-pass1.imp"
LIT = 0;
                                                                //   2277         %IF pending # 0 %START
#line 2277 "regression-compile-tmp/vax-pass1.imp"
if (((PENDING) == (0))) goto L_01e6;
                                                                //   2278           pop lit
#line 2278 "regression-compile-tmp/vax-pass1.imp"
POPLIT();
                                                                //   2279            %UNLESS 0 < lit <= 255 %START;              !max length wrong
#line 2279 "regression-compile-tmp/vax-pass1.imp"
if ((((0) >= (LIT))) || (((LIT) <= (255)))) goto L_01e8;
#line 2279 "regression-compile-tmp/vax-pass1.imp"
L_01e7:;
                                                                //   2280               atom1 = error+10;  %RETURN
#line 2280 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = 32778;
#line 2280 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2281            %FINISH
#line 2281 "regression-compile-tmp/vax-pass1.imp"
L_01e8:;
                                                                //   2282         %FINISH
#line 2282 "regression-compile-tmp/vax-pass1.imp"
L_01e6:;
                                                                //   2283         fdef = lit;                                    !format or length
#line 2283 "regression-compile-tmp/vax-pass1.imp"
FDEF = LIT;
                                                                //   2284  c(33): decl = x;                                      !switch
#line 2284 "regression-compile-tmp/vax-pass1.imp"
sw5_C_33:;
#line 2284 "regression-compile-tmp/vax-pass1.imp"
DECL = X;
                                                                //   2285         decs = 1
#line 2285 "regression-compile-tmp/vax-pass1.imp"
DECS = 1;
                                                                //   2286         ->top
#line 2286 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2287  c(39): decl = decl!spec;                              !spec
#line 2287 "regression-compile-tmp/vax-pass1.imp"
sw5_C_39:;
#line 2287 "regression-compile-tmp/vax-pass1.imp"
DECL = ((DECL) | (128));
                                                                //   2288         ocount = -1;                                   !no initialisation
#line 2288 "regression-compile-tmp/vax-pass1.imp"
OCOUNT = (-1);
                                                                //   2289         spec mode = -1
#line 2289 "regression-compile-tmp/vax-pass1.imp"
SPECMODE = (-1);
                                                                //   2290         ->top
#line 2290 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2291  c(38): decl = 64+4;                                   !recordformat (spec)
#line 2291 "regression-compile-tmp/vax-pass1.imp"
sw5_C_38:;
#line 2291 "regression-compile-tmp/vax-pass1.imp"
DECL = 68;
                                                                //   2292         order = 1
#line 2292 "regression-compile-tmp/vax-pass1.imp"
ORDER = 1;
                                                                //   2293         atom1 = x
#line 2293 "regression-compile-tmp/vax-pass1.imp"
ATOM1 = X;
                                                                //   2294         decl = decl!spec %if atom1 = 12;               !formatspec
#line 2294 "regression-compile-tmp/vax-pass1.imp"
if (((ATOM1) != (12))) goto L_01e9;
#line 2294 "regression-compile-tmp/vax-pass1.imp"
DECL = ((DECL) | (128));
#line 2294 "regression-compile-tmp/vax-pass1.imp"
L_01e9:;
                                                                //   2295         fdef = tmax+1;                                 !format tag
#line 2295 "regression-compile-tmp/vax-pass1.imp"
FDEF = (((int)(TMAX)) + (1));
                                                                //   2296         %return
#line 2296 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2297  c(175):id = id+1;  tag(x)_index = id;  %return;       !FSID
#line 2297 "regression-compile-tmp/vax-pass1.imp"
sw5_C_175:;
#line 2297 "regression-compile-tmp/vax-pass1.imp"
ID = (((int)(ID)) + (1));
#line 2297 "regression-compile-tmp/vax-pass1.imp"
TAG[X].INDEX = ID;
#line 2297 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2298  c(41): decs = 1;  decl = x!spec;  ->top;              !label
#line 2298 "regression-compile-tmp/vax-pass1.imp"
sw5_C_41:;
#line 2298 "regression-compile-tmp/vax-pass1.imp"
DECS = 1;
#line 2298 "regression-compile-tmp/vax-pass1.imp"
DECL = ((X) | (128));
#line 2298 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2299  c(133):recid = 0;  rbase = tmin-1;                    !fname
#line 2299 "regression-compile-tmp/vax-pass1.imp"
sw5_C_133:;
#line 2299 "regression-compile-tmp/vax-pass1.imp"
RECID = 0;
#line 2299 "regression-compile-tmp/vax-pass1.imp"
RBASE = (((int)(TMIN)) - (1));
                                                                //   2300         this = x
#line 2300 "regression-compile-tmp/vax-pass1.imp"
THIS = X;
                                                                //   2301         fm base = fdef;  format list = tmin
#line 2301 "regression-compile-tmp/vax-pass1.imp"
FMBASE = FDEF;
#line 2301 "regression-compile-tmp/vax-pass1.imp"
FORMATLIST = TMIN;
                                                                //   2302         def(this);                      ->top
#line 2302 "regression-compile-tmp/vax-pass1.imp"
DEF(THIS);
#line 2302 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2303  c(148):fdef = 0 %AND ->top %IF next = 0;              !reclb
#line 2303 "regression-compile-tmp/vax-pass1.imp"
sw5_C_148:;
#line 2303 "regression-compile-tmp/vax-pass1.imp"
if (((NEXT) != (0))) goto L_01ea;
#line 2303 "regression-compile-tmp/vax-pass1.imp"
FDEF = 0;
#line 2303 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
#line 2303 "regression-compile-tmp/vax-pass1.imp"
L_01ea:;
                                                                //   2304         get next;                                      !skip name
#line 2304 "regression-compile-tmp/vax-pass1.imp"
GETNEXT();
                                                                //   2305         fdef = x
#line 2305 "regression-compile-tmp/vax-pass1.imp"
FDEF = X;
                                                                //   2306         ->top
#line 2306 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2307  c(127):put('}');  ->top;                              !%POUT
#line 2307 "regression-compile-tmp/vax-pass1.imp"
sw5_C_127:;
#line 2307 "regression-compile-tmp/vax-pass1.imp"
PUT(125);
#line 2307 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2308  c(126):put('{');  ->top;                              !%PIN
#line 2308 "regression-compile-tmp/vax-pass1.imp"
sw5_C_126:;
#line 2308 "regression-compile-tmp/vax-pass1.imp"
PUT(123);
#line 2308 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2309  
                                                                //   2310  c(174):set bp;                                        !rangerb
#line 2310 "regression-compile-tmp/vax-pass1.imp"
sw5_C_174:;
#line 2310 "regression-compile-tmp/vax-pass1.imp"
SETBP();
                                                                //   2311  c(171):                                               !fmlb
#line 2311 "regression-compile-tmp/vax-pass1.imp"
sw5_C_171:;
                                                                //   2312  c(172):                                               !fmrb
#line 2312 "regression-compile-tmp/vax-pass1.imp"
sw5_C_172:;
                                                                //   2313  c(173):put('~');  put(class-171+'A');  ->top;
#line 2313 "regression-compile-tmp/vax-pass1.imp"
sw5_C_173:;
#line 2313 "regression-compile-tmp/vax-pass1.imp"
PUT(126);
#line 2313 "regression-compile-tmp/vax-pass1.imp"
PUT((((int)((((int)(CLASS)) - (171)))) + (65)));
#line 2313 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2314          !fmor
                                                                //   2315  c(168):rbase = -rbase;                                !orrb
#line 2315 "regression-compile-tmp/vax-pass1.imp"
sw5_C_168:;
#line 2315 "regression-compile-tmp/vax-pass1.imp"
RBASE = (-(RBASE));
                                                                //   2316         sstype = 0;  spec mode = 0
#line 2316 "regression-compile-tmp/vax-pass1.imp"
SSTYPE = 0;
#line 2316 "regression-compile-tmp/vax-pass1.imp"
SPECMODE = 0;
                                                                //   2317  
                                                                //   2318  c(147):search base = 0;                               !recrb
#line 2318 "regression-compile-tmp/vax-pass1.imp"
sw5_C_147:;
#line 2318 "regression-compile-tmp/vax-pass1.imp"
SEARCHBASE = 0;
                                                                //   2319         tag(this)_app = tmin
#line 2319 "regression-compile-tmp/vax-pass1.imp"
TAG[THIS].APP = TMIN;
                                                                //   2320         tag(this)_format = rbase
#line 2320 "regression-compile-tmp/vax-pass1.imp"
TAG[THIS].FORMAT = RBASE;
                                                                //   2321         ->top
#line 2321 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2322  
                                                                //   2323  c(45):put('U') %IF x = 36;  ->top;                    !sign
#line 2323 "regression-compile-tmp/vax-pass1.imp"
sw5_C_45:;
#line 2323 "regression-compile-tmp/vax-pass1.imp"
if (((X) != (36))) goto L_01eb;
#line 2323 "regression-compile-tmp/vax-pass1.imp"
PUT(85);
#line 2323 "regression-compile-tmp/vax-pass1.imp"
L_01eb:;
#line 2323 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2324  c(46):put('\');  ->top;                               !uop
#line 2324 "regression-compile-tmp/vax-pass1.imp"
sw5_C_46:;
#line 2324 "regression-compile-tmp/vax-pass1.imp"
PUT(92);
#line 2324 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2325  c(47):                                                !mod
#line 2325 "regression-compile-tmp/vax-pass1.imp"
sw5_C_47:;
                                                                //   2326  c(48):                                                !dot
#line 2326 "regression-compile-tmp/vax-pass1.imp"
sw5_C_48:;
                                                                //   2327  c(42):                                                !op1
#line 2327 "regression-compile-tmp/vax-pass1.imp"
sw5_C_42:;
                                                                //   2328  c(43):                                                !op2
#line 2328 "regression-compile-tmp/vax-pass1.imp"
sw5_C_43:;
                                                                //   2329  c(44):put(operator(x));  ->top;                       !op3
#line 2329 "regression-compile-tmp/vax-pass1.imp"
sw5_C_44:;
#line 2329 "regression-compile-tmp/vax-pass1.imp"
PUT((OPERATOR-1)[X]);
#line 2329 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2330  
                                                                //   2331  !conditions & jumps
                                                                //   2332  
                                                                //   2333        %ROUTINE push(%INTEGER x)
#line 2333 "regression-compile-tmp/vax-pass1.imp"
void PUSH( int X )
#line 2333 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   2334           %IF cnest(cp)&2 # x %START
#line 2334 "regression-compile-tmp/vax-pass1.imp"
if (((((CNEST[CP]) & (2))) == (X))) goto L_01ec;
                                                                //   2335              cnest(cp) = cnest(cp)!1;  x = x+4
#line 2335 "regression-compile-tmp/vax-pass1.imp"
CNEST[CP] = ((CNEST[CP]) | (1));
#line 2335 "regression-compile-tmp/vax-pass1.imp"
X = (((int)(X)) + (4));
                                                                //   2336           %FINISH
#line 2336 "regression-compile-tmp/vax-pass1.imp"
L_01ec:;
                                                                //   2337           clab = clab+1 %IF cnest(cp)&1 # 0
#line 2337 "regression-compile-tmp/vax-pass1.imp"
if (((((CNEST[CP]) & (1))) == (0))) goto L_01ed;
#line 2337 "regression-compile-tmp/vax-pass1.imp"
CLAB = (((int)(CLAB)) + (1));
#line 2337 "regression-compile-tmp/vax-pass1.imp"
L_01ed:;
                                                                //   2338           cnest(cp+1) = x;  cp = cp+1
#line 2338 "regression-compile-tmp/vax-pass1.imp"
CNEST[(((int)(CP)) + (1))] = X;
#line 2338 "regression-compile-tmp/vax-pass1.imp"
CP = (((int)(CP)) + (1));
                                                                //   2339        %END
#line 2339 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PUSH at level 4
                                                                //   2340  
                                                                //   2341        %ROUTINE pop label(%INTEGER mode)
#line 2341 "regression-compile-tmp/vax-pass1.imp"
void POPLABEL( int MODE )
#line 2341 "regression-compile-tmp/vax-pass1.imp"
{
                                                                //   2342           lmode = dict(dmin)
#line 2342 "regression-compile-tmp/vax-pass1.imp"
LMODE = DICT[(((int)(DMIN)) - (1))];
                                                                //   2343           %IF lmode < 0 %OR lmode&1 # mode %START
#line 2343 "regression-compile-tmp/vax-pass1.imp"
if (((LMODE) < (0))) goto L_01ee;
#line 2343 "regression-compile-tmp/vax-pass1.imp"
if (((((LMODE) & (1))) == (MODE))) goto L_01ef;
#line 2343 "regression-compile-tmp/vax-pass1.imp"
L_01ee:;
                                                                //   2344              fault(mode+8)
#line 2344 "regression-compile-tmp/vax-pass1.imp"
FAULT((((int)(MODE)) + (8)));
                                                                //   2345           %FINISH %ELSE %START
#line 2345 "regression-compile-tmp/vax-pass1.imp"
goto L_01f0;
#line 2345 "regression-compile-tmp/vax-pass1.imp"
L_01ef:;
                                                                //   2346              dmin = dmin+1;  label = label-3
#line 2346 "regression-compile-tmp/vax-pass1.imp"
DMIN = (((int)(DMIN)) + (1));
#line 2346 "regression-compile-tmp/vax-pass1.imp"
LABEL = (((int)(LABEL)) - (3));
                                                                //   2347           %FINISH
#line 2347 "regression-compile-tmp/vax-pass1.imp"
L_01f0:;
                                                                //   2348        %END
#line 2348 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block POPLABEL at level 4
                                                                //   2349  
                                                                //   2350  c(56):                                         !and
#line 2350 "regression-compile-tmp/vax-pass1.imp"
sw5_C_56:;
                                                                //   2351  c(57):push(x);  ->top;                         !or
#line 2351 "regression-compile-tmp/vax-pass1.imp"
sw5_C_57:;
#line 2351 "regression-compile-tmp/vax-pass1.imp"
PUSH(X);
#line 2351 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2352  c(58):cnest(cp) = cnest(cp)!!2;  ->top;        !not
#line 2352 "regression-compile-tmp/vax-pass1.imp"
sw5_C_58:;
#line 2352 "regression-compile-tmp/vax-pass1.imp"
CNEST[CP] = ((CNEST[CP]) ^ (2));
#line 2352 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2353  
                                                                //   2354  c(138):x = 128+32+16+4;                        !csep: treat like %WHILE
#line 2354 "regression-compile-tmp/vax-pass1.imp"
sw5_C_138:;
#line 2354 "regression-compile-tmp/vax-pass1.imp"
X = 180;
                                                                //   2355  c(59):                                         !while
#line 2355 "regression-compile-tmp/vax-pass1.imp"
sw5_C_59:;
                                                                //   2356  c(60):%IF class = 138 %THEN op('f', label-1) %C
#line 2356 "regression-compile-tmp/vax-pass1.imp"
sw5_C_60:;
#line 2356 "regression-compile-tmp/vax-pass1.imp"
if (((CLASS) != (138))) goto L_01f1;
#line 2356 "regression-compile-tmp/vax-pass1.imp"
OP(102, (((int)(LABEL)) - (1)));
#line 2356 "regression-compile-tmp/vax-pass1.imp"
goto L_01f2;
#line 2356 "regression-compile-tmp/vax-pass1.imp"
L_01f1:;
#line 2356 "regression-compile-tmp/vax-pass1.imp"
DEFLAB((((int)(LABEL)) - (1)));
#line 2356 "regression-compile-tmp/vax-pass1.imp"
L_01f2:;
                                                                //   2357                        %ELSE def lab(label-1);  !until
                                                                //   2358  c(166):                                        !runtil
#line 2358 "regression-compile-tmp/vax-pass1.imp"
sw5_C_166:;
                                                                //   2359  c(62):lmode = (lmode&(else!loop)) !(x>>3);     !cword
#line 2359 "regression-compile-tmp/vax-pass1.imp"
sw5_C_62:;
#line 2359 "regression-compile-tmp/vax-pass1.imp"
LMODE = ((((LMODE) & (((8) | (16))))) | ((int)((((unsigned int)(X)) >> (3)))));
                                                                //   2360        clab = label;  cp = 1;  cnest(1) = x&7
#line 2360 "regression-compile-tmp/vax-pass1.imp"
CLAB = LABEL;
#line 2360 "regression-compile-tmp/vax-pass1.imp"
CP = 1;
#line 2360 "regression-compile-tmp/vax-pass1.imp"
CNEST[1] = ((X) & (7));
                                                                //   2361        ->top
#line 2361 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2362  c(72):pop label(0);                            !repeat
#line 2362 "regression-compile-tmp/vax-pass1.imp"
sw5_C_72:;
#line 2362 "regression-compile-tmp/vax-pass1.imp"
POPLABEL(0);
                                                                //   2363        def lab(label+1) %IF lmode&32 # 0;  ->atop
#line 2363 "regression-compile-tmp/vax-pass1.imp"
if (((((LMODE) & (32))) == (0))) goto L_01f3;
#line 2363 "regression-compile-tmp/vax-pass1.imp"
DEFLAB((((int)(LABEL)) + (1)));
#line 2363 "regression-compile-tmp/vax-pass1.imp"
L_01f3:;
#line 2363 "regression-compile-tmp/vax-pass1.imp"
goto U_101c;
                                                                //   2364  c(69):pop label(1);               ->top;       !finish
#line 2364 "regression-compile-tmp/vax-pass1.imp"
sw5_C_69:;
#line 2364 "regression-compile-tmp/vax-pass1.imp"
POPLABEL(1);
#line 2364 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2365  c(163):                                        !xelse
#line 2365 "regression-compile-tmp/vax-pass1.imp"
sw5_C_163:;
                                                                //   2366  c(70):pop label(1);                            !finish else ...
#line 2366 "regression-compile-tmp/vax-pass1.imp"
sw5_C_70:;
#line 2366 "regression-compile-tmp/vax-pass1.imp"
POPLABEL(1);
                                                                //   2367        fault(7) %IF lmode&3 = 3;                !dangling else
#line 2367 "regression-compile-tmp/vax-pass1.imp"
if (((((LMODE) & (3))) != (3))) goto L_01f4;
#line 2367 "regression-compile-tmp/vax-pass1.imp"
FAULT(7);
#line 2367 "regression-compile-tmp/vax-pass1.imp"
L_01f4:;
                                                                //   2368  c(68):lmode = (lmode&else)!3;                  !...else...
#line 2368 "regression-compile-tmp/vax-pass1.imp"
sw5_C_68:;
#line 2368 "regression-compile-tmp/vax-pass1.imp"
LMODE = ((((LMODE) & (8))) | (3));
                                                                //   2369        %IF access # 0 %START
#line 2369 "regression-compile-tmp/vax-pass1.imp"
if (((ACCESS) == (0))) goto L_01f5;
                                                                //   2370           op('F', label-1);  lmode = else!3
#line 2370 "regression-compile-tmp/vax-pass1.imp"
OP(70, (((int)(LABEL)) - (1)));
#line 2370 "regression-compile-tmp/vax-pass1.imp"
LMODE = ((8) | (3));
                                                                //   2371        %FINISH
#line 2371 "regression-compile-tmp/vax-pass1.imp"
L_01f5:;
                                                                //   2372        def lab(label)
#line 2372 "regression-compile-tmp/vax-pass1.imp"
DEFLAB(LABEL);
                                                                //   2373        ->top %IF next # 0
#line 2373 "regression-compile-tmp/vax-pass1.imp"
if (((NEXT) == (0))) goto L_01f6;
#line 2373 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
#line 2373 "regression-compile-tmp/vax-pass1.imp"
L_01f6:;
                                                                //   2374  
                                                                //   2375  c(120):                                        !%MSTART
#line 2375 "regression-compile-tmp/vax-pass1.imp"
sw5_C_120:;
                                                                //   2376  c(67):                                         !start
#line 2376 "regression-compile-tmp/vax-pass1.imp"
sw5_C_67:;
                                                                //   2377  c(71):                                         !cycle
#line 2377 "regression-compile-tmp/vax-pass1.imp"
sw5_C_71:;
                                                                //   2378  stcy: def lab(label-1) %AND lmode = loop %IF lmode = 0;!cycle
#line 2378 "regression-compile-tmp/vax-pass1.imp"
U_101d:;
#line 2378 "regression-compile-tmp/vax-pass1.imp"
if (((LMODE) != (0))) goto L_01f7;
#line 2378 "regression-compile-tmp/vax-pass1.imp"
DEFLAB((((int)(LABEL)) - (1)));
#line 2378 "regression-compile-tmp/vax-pass1.imp"
LMODE = 16;
#line 2378 "regression-compile-tmp/vax-pass1.imp"
L_01f7:;
                                                                //   2379        dmin = dmin-1;  abandon(3) %IF dmin <= dmax
#line 2379 "regression-compile-tmp/vax-pass1.imp"
DMIN = (((int)(DMIN)) - (1));
#line 2379 "regression-compile-tmp/vax-pass1.imp"
if (((DMIN) > (DMAX))) goto L_01f8;
#line 2379 "regression-compile-tmp/vax-pass1.imp"
ABANDON(3);
#line 2379 "regression-compile-tmp/vax-pass1.imp"
L_01f8:;
                                                                //   2380        dict(dmin) = lmode
#line 2380 "regression-compile-tmp/vax-pass1.imp"
DICT[(((int)(DMIN)) - (1))] = LMODE;
                                                                //   2381        label = label+3
#line 2381 "regression-compile-tmp/vax-pass1.imp"
LABEL = (((int)(LABEL)) + (3));
                                                                //   2382        %RETURN
#line 2382 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2383  
                                                                //   2384  c(64):fault(13) %IF dict(dmin) >= 0 %OR inhibit # 0;  !on event
#line 2384 "regression-compile-tmp/vax-pass1.imp"
sw5_C_64:;
#line 2384 "regression-compile-tmp/vax-pass1.imp"
if (((DICT[(((int)(DMIN)) - (1))]) >= (0))) goto L_01f9;
#line 2384 "regression-compile-tmp/vax-pass1.imp"
if (((INHIBIT) == (0))) goto L_01fa;
#line 2384 "regression-compile-tmp/vax-pass1.imp"
L_01f9:;
#line 2384 "regression-compile-tmp/vax-pass1.imp"
FAULT(13);
#line 2384 "regression-compile-tmp/vax-pass1.imp"
L_01fa:;
                                                                //   2385        inhibit = 1
#line 2385 "regression-compile-tmp/vax-pass1.imp"
INHIBIT = 1;
                                                                //   2386        last array = tmax-1
#line 2386 "regression-compile-tmp/vax-pass1.imp"
LASTARRAY = (((int)(TMAX)) - (1));
                                                                //   2387        n = 0
#line 2387 "regression-compile-tmp/vax-pass1.imp"
N = 0;
                                                                //   2388        n = 16_FFFF %IF pending = 0;      !* = all events
#line 2388 "regression-compile-tmp/vax-pass1.imp"
if (((PENDING) != (0))) goto L_01fb;
#line 2388 "regression-compile-tmp/vax-pass1.imp"
N = 65535;
#line 2388 "regression-compile-tmp/vax-pass1.imp"
L_01fb:;
                                                                //   2389        %WHILE pending > 0 %CYCLE
#line 2389 "regression-compile-tmp/vax-pass1.imp"
L_01fc:;
#line 2389 "regression-compile-tmp/vax-pass1.imp"
if (((PENDING) <= (0))) goto L_01fd;
                                                                //   2390           pop lit;  fault(10) %IF lit&(\15) # 0;!too big
#line 2390 "regression-compile-tmp/vax-pass1.imp"
POPLIT();
#line 2390 "regression-compile-tmp/vax-pass1.imp"
if (((((LIT) & ((~(15))))) == (0))) goto L_01ff;
#line 2390 "regression-compile-tmp/vax-pass1.imp"
FAULT(10);
#line 2390 "regression-compile-tmp/vax-pass1.imp"
L_01ff:;
                                                                //   2391           j = 1<<lit
#line 2391 "regression-compile-tmp/vax-pass1.imp"
J = ((1) << (LIT));
                                                                //   2392           dubious = 1 %IF n&j # 0
#line 2392 "regression-compile-tmp/vax-pass1.imp"
if (((((N) & (J))) == (0))) goto L_0200;
#line 2392 "regression-compile-tmp/vax-pass1.imp"
DUBIOUS = 1;
#line 2392 "regression-compile-tmp/vax-pass1.imp"
L_0200:;
                                                                //   2393           n = n!j;                              !construct bit mask
#line 2393 "regression-compile-tmp/vax-pass1.imp"
N = ((N) | (J));
                                                                //   2394        %REPEAT
#line 2394 "regression-compile-tmp/vax-pass1.imp"
goto L_01fc;
#line 2394 "regression-compile-tmp/vax-pass1.imp"
L_01fd:;
                                                                //   2395        op('o', n);  op(',', label)
#line 2395 "regression-compile-tmp/vax-pass1.imp"
OP(111, N);
#line 2395 "regression-compile-tmp/vax-pass1.imp"
OP(44, LABEL);
                                                                //   2396        lmode = then!1;  ->stcy
#line 2396 "regression-compile-tmp/vax-pass1.imp"
LMODE = ((4) | (1));
#line 2396 "regression-compile-tmp/vax-pass1.imp"
goto U_101d;
                                                                //   2397  
                                                                //   2398  
                                                                //   2399  c(104):op('J', tag(x)_index);                  !l
#line 2399 "regression-compile-tmp/vax-pass1.imp"
sw5_C_104:;
#line 2399 "regression-compile-tmp/vax-pass1.imp"
OP(74, TAG[X].INDEX);
                                                                //   2400         inhibit = 1;            ->atop
#line 2400 "regression-compile-tmp/vax-pass1.imp"
INHIBIT = 1;
#line 2400 "regression-compile-tmp/vax-pass1.imp"
goto U_101c;
                                                                //   2401  c(149):stats = stats-1;                        !lab
#line 2401 "regression-compile-tmp/vax-pass1.imp"
sw5_C_149:;
#line 2401 "regression-compile-tmp/vax-pass1.imp"
STATS = (((int)(STATS)) - (1));
                                                                //   2402         access = 1;  inhibit = 1
#line 2402 "regression-compile-tmp/vax-pass1.imp"
ACCESS = 1;
#line 2402 "regression-compile-tmp/vax-pass1.imp"
INHIBIT = 1;
                                                                //   2403         fault(13) %IF x < last array;           !jump round array dec
#line 2403 "regression-compile-tmp/vax-pass1.imp"
if (((X) >= (LASTARRAY))) goto L_0201;
#line 2403 "regression-compile-tmp/vax-pass1.imp"
FAULT(13);
#line 2403 "regression-compile-tmp/vax-pass1.imp"
L_0201:;
                                                                //   2404         op('L', tag(x)_index);  ->top
#line 2404 "regression-compile-tmp/vax-pass1.imp"
OP(76, TAG[X].INDEX);
#line 2404 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2405  
                                                                //   2406  c(63):j = dmin;  l = label-3;                  !exit, continue
#line 2406 "regression-compile-tmp/vax-pass1.imp"
sw5_C_63:;
#line 2406 "regression-compile-tmp/vax-pass1.imp"
J = DMIN;
#line 2406 "regression-compile-tmp/vax-pass1.imp"
L = (((int)(LABEL)) - (3));
                                                                //   2407        %CYCLE
#line 2407 "regression-compile-tmp/vax-pass1.imp"
L_0202:;
                                                                //   2408           fault(7) %AND ->top %IF dict(j) < 0
#line 2408 "regression-compile-tmp/vax-pass1.imp"
if (((DICT[(((int)(J)) - (1))]) >= (0))) goto L_0205;
#line 2408 "regression-compile-tmp/vax-pass1.imp"
FAULT(7);
#line 2408 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
#line 2408 "regression-compile-tmp/vax-pass1.imp"
L_0205:;
                                                                //   2409           %EXIT %IF dict(j)&1 = 0
#line 2409 "regression-compile-tmp/vax-pass1.imp"
if (((((DICT[(((int)(J)) - (1))]) & (1))) != (0))) goto L_0206;
#line 2409 "regression-compile-tmp/vax-pass1.imp"
goto L_0203;
#line 2409 "regression-compile-tmp/vax-pass1.imp"
L_0206:;
                                                                //   2410           j = j+1;  l = l-3
#line 2410 "regression-compile-tmp/vax-pass1.imp"
J = (((int)(J)) + (1));
#line 2410 "regression-compile-tmp/vax-pass1.imp"
L = (((int)(L)) - (3));
                                                                //   2411        %REPEAT
#line 2411 "regression-compile-tmp/vax-pass1.imp"
goto L_0202;
#line 2411 "regression-compile-tmp/vax-pass1.imp"
L_0203:;
                                                                //   2412        l = l+1 %IF x = 32;                      !continue
#line 2412 "regression-compile-tmp/vax-pass1.imp"
if (((X) != (32))) goto L_0207;
#line 2412 "regression-compile-tmp/vax-pass1.imp"
L = (((int)(L)) + (1));
#line 2412 "regression-compile-tmp/vax-pass1.imp"
L_0207:;
                                                                //   2413        op('F', l)
#line 2413 "regression-compile-tmp/vax-pass1.imp"
OP(70, L);
                                                                //   2414        dict(j) = dict(j)!x;                     !show given
#line 2414 "regression-compile-tmp/vax-pass1.imp"
DICT[(((int)(J)) - (1))] = ((DICT[(((int)(J)) - (1))]) | (X));
                                                                //   2415        ->atop
#line 2415 "regression-compile-tmp/vax-pass1.imp"
goto U_101c;
                                                                //   2416  
                                                                //   2417  c(50):put('C');  ->cop;                        !acomp
#line 2417 "regression-compile-tmp/vax-pass1.imp"
sw5_C_50:;
#line 2417 "regression-compile-tmp/vax-pass1.imp"
PUT(67);
#line 2417 "regression-compile-tmp/vax-pass1.imp"
goto U_101e;
                                                                //   2418  
                                                                //   2419  c(49):
#line 2419 "regression-compile-tmp/vax-pass1.imp"
sw5_C_49:;
                                                                //   2420         %IF next # 0 %START;                     !comparator
#line 2420 "regression-compile-tmp/vax-pass1.imp"
if (((NEXT) == (0))) goto L_0208;
                                                                //   2421            put('"');  push(0);                  !double sided
#line 2421 "regression-compile-tmp/vax-pass1.imp"
PUT(34);
#line 2421 "regression-compile-tmp/vax-pass1.imp"
PUSH(0);
                                                                //   2422         %FINISH %ELSE %START
#line 2422 "regression-compile-tmp/vax-pass1.imp"
goto L_0209;
#line 2422 "regression-compile-tmp/vax-pass1.imp"
L_0208:;
                                                                //   2423            put('?')
#line 2423 "regression-compile-tmp/vax-pass1.imp"
PUT(63);
                                                                //   2424         %FINISH
#line 2424 "regression-compile-tmp/vax-pass1.imp"
L_0209:;
                                                                //   2425  
                                                                //   2426  cop:   x = x!!1 %IF cnest(cp)&2 # 0;           !invert the condition
#line 2426 "regression-compile-tmp/vax-pass1.imp"
U_101e:;
#line 2426 "regression-compile-tmp/vax-pass1.imp"
if (((((CNEST[CP]) & (2))) == (0))) goto L_020a;
#line 2426 "regression-compile-tmp/vax-pass1.imp"
X = ((X) ^ (1));
#line 2426 "regression-compile-tmp/vax-pass1.imp"
L_020a:;
                                                                //   2427         j = cp;  l = clab
#line 2427 "regression-compile-tmp/vax-pass1.imp"
J = CP;
#line 2427 "regression-compile-tmp/vax-pass1.imp"
L = CLAB;
                                                                //   2428         %WHILE cnest(j)&4 = 0 %CYCLE
#line 2428 "regression-compile-tmp/vax-pass1.imp"
L_020b:;
#line 2428 "regression-compile-tmp/vax-pass1.imp"
if (((((CNEST[J]) & (4))) != (0))) goto L_020c;
                                                                //   2429            j = j-1;  l = l-cnest(j)&1
#line 2429 "regression-compile-tmp/vax-pass1.imp"
J = (((int)(J)) - (1));
#line 2429 "regression-compile-tmp/vax-pass1.imp"
L = ((L) - ((int)(((CNEST[J]) & (1)))));
                                                                //   2430         %REPEAT
#line 2430 "regression-compile-tmp/vax-pass1.imp"
goto L_020b;
#line 2430 "regression-compile-tmp/vax-pass1.imp"
L_020c:;
                                                                //   2431         op(cc(x), l)
#line 2431 "regression-compile-tmp/vax-pass1.imp"
OP(CC[X], L);
                                                                //   2432         def lab(clab+1) %IF cnest(cp)&1 # 0
#line 2432 "regression-compile-tmp/vax-pass1.imp"
if (((((CNEST[CP]) & (1))) == (0))) goto L_020e;
#line 2432 "regression-compile-tmp/vax-pass1.imp"
DEFLAB((((int)(CLAB)) + (1)));
#line 2432 "regression-compile-tmp/vax-pass1.imp"
L_020e:;
                                                                //   2433         cp = cp-1
#line 2433 "regression-compile-tmp/vax-pass1.imp"
CP = (((int)(CP)) - (1));
                                                                //   2434         clab = clab-cnest(cp)&1
#line 2434 "regression-compile-tmp/vax-pass1.imp"
CLAB = ((CLAB) - ((int)(((CNEST[CP]) & (1)))));
                                                                //   2435         ->top
#line 2435 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2436  
                                                                //   2437  c(78):                                              !fresult
#line 2437 "regression-compile-tmp/vax-pass1.imp"
sw5_C_78:;
                                                                //   2438  c(79):                                              !mresult
#line 2438 "regression-compile-tmp/vax-pass1.imp"
sw5_C_79:;
                                                                //   2439  c(80):   open = 0;                                  !return, true, false
#line 2439 "regression-compile-tmp/vax-pass1.imp"
sw5_C_80:;
#line 2439 "regression-compile-tmp/vax-pass1.imp"
OPEN = 0;
                                                                //   2440  c(82):   access = 0;                                !stop
#line 2440 "regression-compile-tmp/vax-pass1.imp"
sw5_C_82:;
#line 2440 "regression-compile-tmp/vax-pass1.imp"
ACCESS = 0;
                                                                //   2441  c(89):                                              !addop
#line 2441 "regression-compile-tmp/vax-pass1.imp"
sw5_C_89:;
                                                                //   2442  c(81):   put(x);  ->top;                            !monitor
#line 2442 "regression-compile-tmp/vax-pass1.imp"
sw5_C_81:;
#line 2442 "regression-compile-tmp/vax-pass1.imp"
PUT(X);
#line 2442 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2443  
                                                                //   2444  c(65):   pop lit;  op('e', lit);  ->atop;  !signal
#line 2444 "regression-compile-tmp/vax-pass1.imp"
sw5_C_65:;
#line 2444 "regression-compile-tmp/vax-pass1.imp"
POPLIT();
#line 2444 "regression-compile-tmp/vax-pass1.imp"
OP(101, LIT);
#line 2444 "regression-compile-tmp/vax-pass1.imp"
goto U_101c;
                                                                //   2445  
                                                                //   2446  c(51):   put('S');            ->top;                !eq
#line 2446 "regression-compile-tmp/vax-pass1.imp"
sw5_C_51:;
#line 2446 "regression-compile-tmp/vax-pass1.imp"
PUT(83);
#line 2446 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2447  c(53):   put('j');            ->top;                !jam transfer
#line 2447 "regression-compile-tmp/vax-pass1.imp"
sw5_C_53:;
#line 2447 "regression-compile-tmp/vax-pass1.imp"
PUT(106);
#line 2447 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2448  c(52):   put('Z');            ->top;                !eqeq
#line 2448 "regression-compile-tmp/vax-pass1.imp"
sw5_C_52:;
#line 2448 "regression-compile-tmp/vax-pass1.imp"
PUT(90);
#line 2448 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2449  
                                                                //   2450  c(74):%IF level = 0 %START;                         !begin
#line 2450 "regression-compile-tmp/vax-pass1.imp"
sw5_C_74:;
#line 2450 "regression-compile-tmp/vax-pass1.imp"
if (((LEVEL) != (0))) goto L_020f;
                                                                //   2451           %IF progmode <= 0 %THEN progmode = 1 %ELSE fault(7)
#line 2451 "regression-compile-tmp/vax-pass1.imp"
if (((PROGMODE) > (0))) goto L_0210;
#line 2451 "regression-compile-tmp/vax-pass1.imp"
PROGMODE = 1;
#line 2451 "regression-compile-tmp/vax-pass1.imp"
goto L_0211;
#line 2451 "regression-compile-tmp/vax-pass1.imp"
L_0210:;
#line 2451 "regression-compile-tmp/vax-pass1.imp"
FAULT(7);
#line 2451 "regression-compile-tmp/vax-pass1.imp"
L_0211:;
                                                                //   2452           {Permit BEGIN after external defs}
                                                                //   2453        %FINISH
#line 2453 "regression-compile-tmp/vax-pass1.imp"
L_020f:;
                                                                //   2454        spec mode = level+1
#line 2454 "regression-compile-tmp/vax-pass1.imp"
SPECMODE = (((int)(LEVEL)) + (1));
                                                                //   2455        block x = 0
#line 2455 "regression-compile-tmp/vax-pass1.imp"
BLOCKX = 0;
                                                                //   2456        put('H');  %RETURN
#line 2456 "regression-compile-tmp/vax-pass1.imp"
PUT(72);
#line 2456 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2457  c(77):perm = 0;  lines = 0;  stats = 0;             !endofperm
#line 2457 "regression-compile-tmp/vax-pass1.imp"
sw5_C_77:;
#line 2457 "regression-compile-tmp/vax-pass1.imp"
PERM = 0;
#line 2457 "regression-compile-tmp/vax-pass1.imp"
LINES = 0;
#line 2457 "regression-compile-tmp/vax-pass1.imp"
STATS = 0;
                                                                //   2458  debug("close input    {input stream=".itos(input stream,0)."}")
#line 2458 "regression-compile-tmp/vax-pass1.imp"
DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("close input    {input stream="),(_imp_string)_imp_ITOS(_imp_INPUTSTREAM(), 0)),(_imp_string)_imp_str_literal("}")));
                                                                //   2459        close input
#line 2459 "regression-compile-tmp/vax-pass1.imp"
_imp_CLOSEINPUT();
                                                                //   2460  debug("select input(source=".itos(source,0).")")
#line 2460 "regression-compile-tmp/vax-pass1.imp"
DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("select input(source="),(_imp_string)_imp_ITOS(1, 0)),(_imp_string)_imp_str_literal(")")));
                                                                //   2461        select input(source);
#line 2461 "regression-compile-tmp/vax-pass1.imp"
_imp_SELECTINPUT(1);
                                                                //   2462        sym = nl
#line 2462 "regression-compile-tmp/vax-pass1.imp"
SYM = 10;
                                                                //   2463        list = list-1
#line 2463 "regression-compile-tmp/vax-pass1.imp"
LIST = (((int)(LIST)) - (1));
                                                                //   2464        list = list -1 %if command & listbit # 0
#line 2464 "regression-compile-tmp/vax-pass1.imp"
if (((((COMMAND) & (256))) == (0))) goto L_0212;
#line 2464 "regression-compile-tmp/vax-pass1.imp"
LIST = (((int)(LIST)) - (1));
#line 2464 "regression-compile-tmp/vax-pass1.imp"
L_0212:;
                                                                //   2465        tbase = tmax;  tstart = tmax
#line 2465 "regression-compile-tmp/vax-pass1.imp"
TBASE = TMAX;
#line 2465 "regression-compile-tmp/vax-pass1.imp"
TSTART = TMAX;
                                                                //   2466        %RETURN
#line 2466 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2467  c(76):%IF include # 0 %AND x = 0 %START;            !end of ...
#line 2467 "regression-compile-tmp/vax-pass1.imp"
sw5_C_76:;
#line 2467 "regression-compile-tmp/vax-pass1.imp"
if (((INCLUDE) == (0))) goto L_0213;
#line 2467 "regression-compile-tmp/vax-pass1.imp"
if (((X) != (0))) goto L_0213;
                                                                //   2468           lines = include;  sstype =  0;             !include
#line 2468 "regression-compile-tmp/vax-pass1.imp"
LINES = INCLUDE;
#line 2468 "regression-compile-tmp/vax-pass1.imp"
SSTYPE = 0;
                                                                //   2469  debug("close input    {input stream=".itos(input stream,0)."}")
#line 2469 "regression-compile-tmp/vax-pass1.imp"
DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("close input    {input stream="),(_imp_string)_imp_ITOS(_imp_INPUTSTREAM(), 0)),(_imp_string)_imp_str_literal("}")));
                                                                //   2470           close input
#line 2470 "regression-compile-tmp/vax-pass1.imp"
_imp_CLOSEINPUT();
                                                                //   2471           list = include list
#line 2471 "regression-compile-tmp/vax-pass1.imp"
LIST = INCLUDELIST;
                                                                //   2472           include = 0;
#line 2472 "regression-compile-tmp/vax-pass1.imp"
INCLUDE = 0;
                                                                //   2473  debug("select input(source=".itos(source,0).")")
#line 2473 "regression-compile-tmp/vax-pass1.imp"
DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("select input(source="),(_imp_string)_imp_ITOS(1, 0)),(_imp_string)_imp_str_literal(")")));
                                                                //   2474  	 select input(source);
#line 2474 "regression-compile-tmp/vax-pass1.imp"
_imp_SELECTINPUT(1);
                                                                //   2475  	 sym = nl;
#line 2475 "regression-compile-tmp/vax-pass1.imp"
SYM = 10;
                                                                //   2476  	 %RETURN
#line 2476 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2477        %FINISH
#line 2477 "regression-compile-tmp/vax-pass1.imp"
L_0213:;
                                                                //   2478        ss = -1;                                      !prog/file
#line 2478 "regression-compile-tmp/vax-pass1.imp"
SS = (-1);
                                                                //   2479  c(75):compile end(x);  %RETURN;                     !%END
#line 2479 "regression-compile-tmp/vax-pass1.imp"
sw5_C_75:;
#line 2479 "regression-compile-tmp/vax-pass1.imp"
COMPILEEND(X);
#line 2479 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2480  
                                                                //   2481  c(85):%IF x=0 %THEN control=lit %ELSE %START;     !control
#line 2481 "regression-compile-tmp/vax-pass1.imp"
sw5_C_85:;
#line 2481 "regression-compile-tmp/vax-pass1.imp"
if (((X) != (0))) goto L_0214;
#line 2481 "regression-compile-tmp/vax-pass1.imp"
CONTROL = LIT;
#line 2481 "regression-compile-tmp/vax-pass1.imp"
goto L_0215;
#line 2481 "regression-compile-tmp/vax-pass1.imp"
L_0214:;
                                                                //   2482           diag = lit&16_3FFF %IF lit>>14&3 = 1
#line 2482 "regression-compile-tmp/vax-pass1.imp"
if ((((((int)((((unsigned int)(LIT)) >> (14)))) & (3))) != (1))) goto L_0216;
#line 2482 "regression-compile-tmp/vax-pass1.imp"
DIAG = ((LIT) & (16383));
#line 2482 "regression-compile-tmp/vax-pass1.imp"
L_0216:;
                                                                //   2483        %FINISH
#line 2483 "regression-compile-tmp/vax-pass1.imp"
L_0215:;
                                                                //   2484        op('z'-x, lit)
#line 2484 "regression-compile-tmp/vax-pass1.imp"
OP((((int)(122)) - (X)), LIT);
                                                                //   2485        ->top
#line 2485 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2486  c(83):list = list+x-2;   ->top;                     !%LIST/%ENDOFLIST
#line 2486 "regression-compile-tmp/vax-pass1.imp"
sw5_C_83:;
#line 2486 "regression-compile-tmp/vax-pass1.imp"
LIST = (((int)((((int)(LIST)) + (X)))) - (2));
#line 2486 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2487  c(84):reals ln = x;      ->top;                     !%REALS long/normal
#line 2487 "regression-compile-tmp/vax-pass1.imp"
sw5_C_84:;
#line 2487 "regression-compile-tmp/vax-pass1.imp"
REALSLN = X;
#line 2487 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2488  c(86):%IF include # 0 %START;                       !include "file"
#line 2488 "regression-compile-tmp/vax-pass1.imp"
sw5_C_86:;
#line 2488 "regression-compile-tmp/vax-pass1.imp"
if (((INCLUDE) == (0))) goto L_0217;
                                                                //   2489           fault(7);  %RETURN
#line 2489 "regression-compile-tmp/vax-pass1.imp"
FAULT(7);
#line 2489 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2490        %FINISH
#line 2490 "regression-compile-tmp/vax-pass1.imp"
L_0217:;
                                                                //   2491        get next;                                  !sconst
#line 2491 "regression-compile-tmp/vax-pass1.imp"
GETNEXT();
                                                                //   2492        include file = string(x-16_4000+stbase)
#line 2492 "regression-compile-tmp/vax-pass1.imp"
INCLUDEFILE = *_imp_STRING((((int)((((int)(X)) - (16384)))) + (STBASE)));
                                                                //   2493        open input(3, include file)
#line 2493 "regression-compile-tmp/vax-pass1.imp"
_imp_OPENINPUT(3, INCLUDEFILE);
                                                                //   2494        include = lines;  lines = 0
#line 2494 "regression-compile-tmp/vax-pass1.imp"
INCLUDE = LINES;
#line 2494 "regression-compile-tmp/vax-pass1.imp"
LINES = 0;
                                                                //   2495        include list = list
#line 2495 "regression-compile-tmp/vax-pass1.imp"
INCLUDELIST = LIST;
                                                                //   2496  debug("select input(3)")
#line 2496 "regression-compile-tmp/vax-pass1.imp"
DEBUG(_imp_str_literal("select input(3)"));
                                                                //   2497        select input(3);
#line 2497 "regression-compile-tmp/vax-pass1.imp"
_imp_SELECTINPUT(3);
                                                                //   2498        sym = nl
#line 2498 "regression-compile-tmp/vax-pass1.imp"
SYM = 10;
                                                                //   2499        ->top
#line 2499 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2500  
                                                                //   2501  c(154):dimension = dimension+1;                     !dbsep
#line 2501 "regression-compile-tmp/vax-pass1.imp"
sw5_C_154:;
#line 2501 "regression-compile-tmp/vax-pass1.imp"
DIMENSION = (((int)(DIMENSION)) + (1));
                                                                //   2502         fault(11) %IF dimension = dim limit+1
#line 2502 "regression-compile-tmp/vax-pass1.imp"
if (((DIMENSION) != (7))) goto L_0218;
#line 2502 "regression-compile-tmp/vax-pass1.imp"
FAULT(11);
#line 2502 "regression-compile-tmp/vax-pass1.imp"
L_0218:;
                                                                //   2503         ->top
#line 2503 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2504  c(145):set bp;                       ->top;         !crb
#line 2504 "regression-compile-tmp/vax-pass1.imp"
sw5_C_145:;
#line 2504 "regression-compile-tmp/vax-pass1.imp"
SETBP();
#line 2504 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2505  c(146):set bp;                                      !rcrb
#line 2505 "regression-compile-tmp/vax-pass1.imp"
sw5_C_146:;
#line 2505 "regression-compile-tmp/vax-pass1.imp"
SETBP();
                                                                //   2506  c(142):                                             !bplrb
#line 2506 "regression-compile-tmp/vax-pass1.imp"
sw5_C_142:;
                                                                //   2507         dimension = 1 %IF dimension = 0
#line 2507 "regression-compile-tmp/vax-pass1.imp"
if (((DIMENSION) != (0))) goto L_0219;
#line 2507 "regression-compile-tmp/vax-pass1.imp"
DIMENSION = 1;
#line 2507 "regression-compile-tmp/vax-pass1.imp"
L_0219:;
                                                                //   2508         op('d', dimension);  op(',', defs)
#line 2508 "regression-compile-tmp/vax-pass1.imp"
OP(100, DIMENSION);
#line 2508 "regression-compile-tmp/vax-pass1.imp"
OP(44, DEFS);
                                                                //   2509         %IF class # 146 %START
#line 2509 "regression-compile-tmp/vax-pass1.imp"
if (((CLASS) == (146))) goto L_021a;
                                                                //   2510            set subs(defs)
#line 2510 "regression-compile-tmp/vax-pass1.imp"
SETSUBS(DEFS);
                                                                //   2511            last array = tmax-1
#line 2511 "regression-compile-tmp/vax-pass1.imp"
LASTARRAY = (((int)(TMAX)) - (1));
                                                                //   2512            fault(13) %IF dict(dmin) >= 0 %OR inhibit # 0 %OR level=0
#line 2512 "regression-compile-tmp/vax-pass1.imp"
if (((DICT[(((int)(DMIN)) - (1))]) >= (0))) goto L_021b;
#line 2512 "regression-compile-tmp/vax-pass1.imp"
if (((INHIBIT) != (0))) goto L_021b;
#line 2512 "regression-compile-tmp/vax-pass1.imp"
if (((LEVEL) != (0))) goto L_021c;
#line 2512 "regression-compile-tmp/vax-pass1.imp"
L_021b:;
#line 2512 "regression-compile-tmp/vax-pass1.imp"
FAULT(13);
#line 2512 "regression-compile-tmp/vax-pass1.imp"
L_021c:;
                                                                //   2513         %FINISH
#line 2513 "regression-compile-tmp/vax-pass1.imp"
L_021a:;
                                                                //   2514         dimension = 0;  defs = 0
#line 2514 "regression-compile-tmp/vax-pass1.imp"
DIMENSION = 0;
#line 2514 "regression-compile-tmp/vax-pass1.imp"
DEFS = 0;
                                                                //   2515         ->top
#line 2515 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2516  c(128):id = dupid;  ->top;                          !EDUP
#line 2516 "regression-compile-tmp/vax-pass1.imp"
sw5_C_128:;
#line 2516 "regression-compile-tmp/vax-pass1.imp"
ID = DUPID;
#line 2516 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2517  c(130):block x = x
#line 2517 "regression-compile-tmp/vax-pass1.imp"
sw5_C_130:;
#line 2517 "regression-compile-tmp/vax-pass1.imp"
BLOCKX = X;
                                                                //   2518         op('F', 0) %IF decl&spec = 0 %AND level # 0; !jump round proc
#line 2518 "regression-compile-tmp/vax-pass1.imp"
if (((((DECL) & (128))) != (0))) goto L_021d;
#line 2518 "regression-compile-tmp/vax-pass1.imp"
if (((LEVEL) == (0))) goto L_021d;
#line 2518 "regression-compile-tmp/vax-pass1.imp"
OP(70, 0);
#line 2518 "regression-compile-tmp/vax-pass1.imp"
L_021d:;
                                                                //   2519  c(125):dupid = id;                                  !%DUP
#line 2519 "regression-compile-tmp/vax-pass1.imp"
sw5_C_125:;
#line 2519 "regression-compile-tmp/vax-pass1.imp"
DUPID = ID;
                                                                //   2520  c(90): def(x);  ->top;                              !ident
#line 2520 "regression-compile-tmp/vax-pass1.imp"
sw5_C_90:;
#line 2520 "regression-compile-tmp/vax-pass1.imp"
DEF(X);
#line 2520 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2521  c(131):                                             !cident
#line 2521 "regression-compile-tmp/vax-pass1.imp"
sw5_C_131:;
                                                                //   2522         %IF tag(x)_flags&(2_1111111+const bit) = iform+const bit %START
#line 2522 "regression-compile-tmp/vax-pass1.imp"
if (((((TAG[X].FLAGS) & (8319))) != (8209))) goto L_021e;
                                                                //   2523            tag(x)_format = lit
#line 2523 "regression-compile-tmp/vax-pass1.imp"
TAG[X].FORMAT = LIT;
                                                                //   2524         %FINISH %ELSE %START
#line 2524 "regression-compile-tmp/vax-pass1.imp"
goto L_021f;
#line 2524 "regression-compile-tmp/vax-pass1.imp"
L_021e:;
                                                                //   2525            set const(lit) %IF pending # 0
#line 2525 "regression-compile-tmp/vax-pass1.imp"
if (((PENDING) == (0))) goto L_0220;
#line 2525 "regression-compile-tmp/vax-pass1.imp"
SETCONST(LIT);
#line 2525 "regression-compile-tmp/vax-pass1.imp"
L_0220:;
                                                                //   2526            def(x)
#line 2526 "regression-compile-tmp/vax-pass1.imp"
DEF(X);
                                                                //   2527           put('A'); putlong(1)
#line 2527 "regression-compile-tmp/vax-pass1.imp"
PUT(65);
#line 2527 "regression-compile-tmp/vax-pass1.imp"
PUTLONG(1);
                                                                //   2528         %FINISH
#line 2528 "regression-compile-tmp/vax-pass1.imp"
L_021f:;
                                                                //   2529         cident = x
#line 2529 "regression-compile-tmp/vax-pass1.imp"
CIDENT = X;
                                                                //   2530         ->top
#line 2530 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2531  c(124):dubious = 1 %IF tag(cident)_flags&prot # 0; !%DUBIOUS
#line 2531 "regression-compile-tmp/vax-pass1.imp"
sw5_C_124:;
#line 2531 "regression-compile-tmp/vax-pass1.imp"
if (((((TAG[CIDENT].FLAGS) & (256))) == (0))) goto L_0221;
#line 2531 "regression-compile-tmp/vax-pass1.imp"
DUBIOUS = 1;
#line 2531 "regression-compile-tmp/vax-pass1.imp"
L_0221:;
                                                                //   2532         ->top
#line 2532 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2533  c(97):                                              !f
#line 2533 "regression-compile-tmp/vax-pass1.imp"
sw5_C_97:;
                                                                //   2534  c(98):                                              !m
#line 2534 "regression-compile-tmp/vax-pass1.imp"
sw5_C_98:;
                                                                //   2535  c(99):                                              !p
#line 2535 "regression-compile-tmp/vax-pass1.imp"
sw5_C_99:;
                                                                //   2536  c(96): call;  ->top;                                !r
#line 2536 "regression-compile-tmp/vax-pass1.imp"
sw5_C_96:;
#line 2536 "regression-compile-tmp/vax-pass1.imp"
CALL();
#line 2536 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2537  
                                                                //   2538  c(165):                                             !nlab
#line 2538 "regression-compile-tmp/vax-pass1.imp"
sw5_C_165:;
                                                                //   2539  c(100):                                             !rp
#line 2539 "regression-compile-tmp/vax-pass1.imp"
sw5_C_100:;
                                                                //   2540  c(101):                                             !fp
#line 2540 "regression-compile-tmp/vax-pass1.imp"
sw5_C_101:;
                                                                //   2541  c(102):                                             !mp
#line 2541 "regression-compile-tmp/vax-pass1.imp"
sw5_C_102:;
                                                                //   2542  c(103):                                             !pp
#line 2542 "regression-compile-tmp/vax-pass1.imp"
sw5_C_103:;
                                                                //   2543  c(91):                                              !v
#line 2543 "regression-compile-tmp/vax-pass1.imp"
sw5_C_91:;
                                                                //   2544  c(92):                                              !n
#line 2544 "regression-compile-tmp/vax-pass1.imp"
sw5_C_92:;
                                                                //   2545  c(106):                                             !a
#line 2545 "regression-compile-tmp/vax-pass1.imp"
sw5_C_106:;
                                                                //   2546  c(107):                                             !an
#line 2546 "regression-compile-tmp/vax-pass1.imp"
sw5_C_107:;
                                                                //   2547  c(108):                                             !na
#line 2547 "regression-compile-tmp/vax-pass1.imp"
sw5_C_108:;
                                                                //   2548  c(109):                                             !nan
#line 2548 "regression-compile-tmp/vax-pass1.imp"
sw5_C_109:;
                                                                //   2549        k = tag(x)_index
#line 2549 "regression-compile-tmp/vax-pass1.imp"
K = TAG[X].INDEX;
                                                                //   2550        %IF k < 0 %THEN op('n', -k) %ELSE op('@', k)
#line 2550 "regression-compile-tmp/vax-pass1.imp"
if (((K) >= (0))) goto L_0222;
#line 2550 "regression-compile-tmp/vax-pass1.imp"
OP(110, (-(K)));
#line 2550 "regression-compile-tmp/vax-pass1.imp"
goto L_0223;
#line 2550 "regression-compile-tmp/vax-pass1.imp"
L_0222:;
#line 2550 "regression-compile-tmp/vax-pass1.imp"
OP(64, K);
#line 2550 "regression-compile-tmp/vax-pass1.imp"
L_0223:;
                                                                //   2551        ->top
#line 2551 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2552  c(121):set const(0);  ->top;                        !special for zero
#line 2552 "regression-compile-tmp/vax-pass1.imp"
sw5_C_121:;
#line 2552 "regression-compile-tmp/vax-pass1.imp"
SETCONST(0);
#line 2552 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2553  c(167):put('G');  ->pstr;                           !aconst (alias)
#line 2553 "regression-compile-tmp/vax-pass1.imp"
sw5_C_167:;
#line 2553 "regression-compile-tmp/vax-pass1.imp"
PUT(71);
#line 2553 "regression-compile-tmp/vax-pass1.imp"
goto U_101f;
                                                                //   2554  c(const):                                           !const
#line 2554 "regression-compile-tmp/vax-pass1.imp"
sw5_C_93:;
                                                                //   2555         %IF x < 0 %START;                            !constinteger
#line 2555 "regression-compile-tmp/vax-pass1.imp"
if (((X) >= (0))) goto L_0224;
                                                                //   2556            set const(tag(-x)_format);  ->top
#line 2556 "regression-compile-tmp/vax-pass1.imp"
SETCONST(TAG[(-(X))].FORMAT);
#line 2556 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2557         %FINISH
#line 2557 "regression-compile-tmp/vax-pass1.imp"
L_0224:;
                                                                //   2558         %IF x&16_4000 # 0 %START;                    !strings
#line 2558 "regression-compile-tmp/vax-pass1.imp"
if (((((X) & (16384))) == (0))) goto L_0225;
                                                                //   2559            put('''')
#line 2559 "regression-compile-tmp/vax-pass1.imp"
PUT(39);
                                                                //   2560  pstr:     x = x-16_4000+stbase
#line 2560 "regression-compile-tmp/vax-pass1.imp"
U_101f:;
#line 2560 "regression-compile-tmp/vax-pass1.imp"
X = (((int)((((int)(X)) - (16384)))) + (STBASE));
                                                                //   2561            k = byteinteger(x)
#line 2561 "regression-compile-tmp/vax-pass1.imp"
K = *_imp_BYTEINTEGER(X);
                                                                //   2562           putblock(k+1, byteinteger(x))
#line 2562 "regression-compile-tmp/vax-pass1.imp"
PUTBLOCK((((int)(K)) + (1)), _imp_BYTEINTEGER(X));
                                                                //   2563           -> top
#line 2563 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2564         %FINISH
#line 2564 "regression-compile-tmp/vax-pass1.imp"
L_0225:;
                                                                //   2565         %IF x&16_2000 # 0 %START;                    !real
#line 2565 "regression-compile-tmp/vax-pass1.imp"
if (((((X) & (8192))) == (0))) goto L_0226;
                                                                //   2566            x = x-16_2000+stbase
#line 2566 "regression-compile-tmp/vax-pass1.imp"
X = (((int)((((int)(X)) - (8192)))) + (STBASE));
                                                                //   2567            k = byteinteger(x)
#line 2567 "regression-compile-tmp/vax-pass1.imp"
K = *_imp_BYTEINTEGER(X);
                                                                //   2568            op('D', k);  put(',')
#line 2568 "regression-compile-tmp/vax-pass1.imp"
OP(68, K);
#line 2568 "regression-compile-tmp/vax-pass1.imp"
PUT(44);
                                                                //   2569            k = k+x
#line 2569 "regression-compile-tmp/vax-pass1.imp"
K = (((int)(K)) + (X));
                                                                //   2570            %CYCLE
#line 2570 "regression-compile-tmp/vax-pass1.imp"
L_0227:;
                                                                //   2571               ->top %IF x = k
#line 2571 "regression-compile-tmp/vax-pass1.imp"
if (((X) != (K))) goto L_022a;
#line 2571 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
#line 2571 "regression-compile-tmp/vax-pass1.imp"
L_022a:;
                                                                //   2572               x = x+1;  j = byteinteger(x)
#line 2572 "regression-compile-tmp/vax-pass1.imp"
X = (((int)(X)) + (1));
#line 2572 "regression-compile-tmp/vax-pass1.imp"
J = *_imp_BYTEINTEGER(X);
                                                                //   2573               %IF j = '@' %START
#line 2573 "regression-compile-tmp/vax-pass1.imp"
if (((J) != (64))) goto L_022b;
                                                                //   2574                  op('@', litpool(byteinteger(x+1)));  ->top
#line 2574 "regression-compile-tmp/vax-pass1.imp"
OP(64, LITPOOL[*_imp_BYTEINTEGER((((int)(X)) + (1)))]);
#line 2574 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2575               %FINISH
#line 2575 "regression-compile-tmp/vax-pass1.imp"
L_022b:;
                                                                //   2576               put(j)
#line 2576 "regression-compile-tmp/vax-pass1.imp"
PUT(J);
                                                                //   2577            %REPEAT
#line 2577 "regression-compile-tmp/vax-pass1.imp"
goto L_0227;
                                                                //   2578         %FINISH
#line 2578 "regression-compile-tmp/vax-pass1.imp"
L_0226:;
                                                                //   2579         set const(lit pool(x))
#line 2579 "regression-compile-tmp/vax-pass1.imp"
SETCONST(LITPOOL[X]);
                                                                //   2580         ->top
#line 2580 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2581  
                                                                //   2582  c(137):put('i');               ->top;         !asep
#line 2582 "regression-compile-tmp/vax-pass1.imp"
sw5_C_137:;
#line 2582 "regression-compile-tmp/vax-pass1.imp"
PUT(105);
#line 2582 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2583  c(141):put('a');               ->top;         !arb
#line 2583 "regression-compile-tmp/vax-pass1.imp"
sw5_C_141:;
#line 2583 "regression-compile-tmp/vax-pass1.imp"
PUT(97);
#line 2583 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2584  
                                                                //   2585  !own arrays
                                                                //   2586  
                                                                //   2587  c(132):ocount = ub-lb+1
#line 2587 "regression-compile-tmp/vax-pass1.imp"
sw5_C_132:;
#line 2587 "regression-compile-tmp/vax-pass1.imp"
OCOUNT = (((int)((((int)(UB)) - (LB)))) + (1));
                                                                //   2588         def(x);                               !oident
#line 2588 "regression-compile-tmp/vax-pass1.imp"
DEF(X);
                                                                //   2589         dimension = 1;  set subs(1)
#line 2589 "regression-compile-tmp/vax-pass1.imp"
DIMENSION = 1;
#line 2589 "regression-compile-tmp/vax-pass1.imp"
SETSUBS(1);
                                                                //   2590         %IF next = 0 %START;                  !no initialisation
#line 2590 "regression-compile-tmp/vax-pass1.imp"
if (((NEXT) != (0))) goto L_022c;
                                                                //   2591            %IF ocount > 0 %start
#line 2591 "regression-compile-tmp/vax-pass1.imp"
if (((OCOUNT) <= (0))) goto L_0228;
                                                                //   2592              put('A'); putlong(ocount)
#line 2592 "regression-compile-tmp/vax-pass1.imp"
PUT(65);
#line 2592 "regression-compile-tmp/vax-pass1.imp"
PUTLONG(OCOUNT);
                                                                //   2593              %finish
#line 2593 "regression-compile-tmp/vax-pass1.imp"
L_0228:;
                                                                //   2594            ocount = -1
#line 2594 "regression-compile-tmp/vax-pass1.imp"
OCOUNT = (-1);
                                                                //   2595         %FINISH %ELSE %START;                 !initialisation given
#line 2595 "regression-compile-tmp/vax-pass1.imp"
goto L_022d;
#line 2595 "regression-compile-tmp/vax-pass1.imp"
L_022c:;
                                                                //   2596            get next
#line 2596 "regression-compile-tmp/vax-pass1.imp"
GETNEXT();
                                                                //   2597         %FINISH
#line 2597 "regression-compile-tmp/vax-pass1.imp"
L_022d:;
                                                                //   2598         ->top
#line 2598 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2599  c(162):lit = ocount;  ->ins;                 !indef
#line 2599 "regression-compile-tmp/vax-pass1.imp"
sw5_C_162:;
#line 2599 "regression-compile-tmp/vax-pass1.imp"
LIT = OCOUNT;
#line 2599 "regression-compile-tmp/vax-pass1.imp"
goto U_1020;
                                                                //   2600  c(143):pop lit;                              !orb
#line 2600 "regression-compile-tmp/vax-pass1.imp"
sw5_C_143:;
#line 2600 "regression-compile-tmp/vax-pass1.imp"
POPLIT();
                                                                //   2601  ins:   fault(10) %AND lit = 0 %IF lit < 0
#line 2601 "regression-compile-tmp/vax-pass1.imp"
U_1020:;
#line 2601 "regression-compile-tmp/vax-pass1.imp"
if (((LIT) >= (0))) goto L_022e;
#line 2601 "regression-compile-tmp/vax-pass1.imp"
FAULT(10);
#line 2601 "regression-compile-tmp/vax-pass1.imp"
LIT = 0;
#line 2601 "regression-compile-tmp/vax-pass1.imp"
L_022e:;
                                                                //   2602         get next
#line 2602 "regression-compile-tmp/vax-pass1.imp"
GETNEXT();
                                                                //   2603         ->inst
#line 2603 "regression-compile-tmp/vax-pass1.imp"
goto U_1021;
                                                                //   2604  c(139):                                      !osep (x=19)
#line 2604 "regression-compile-tmp/vax-pass1.imp"
sw5_C_139:;
                                                                //   2605  c(153):lit = 1
#line 2605 "regression-compile-tmp/vax-pass1.imp"
sw5_C_153:;
#line 2605 "regression-compile-tmp/vax-pass1.imp"
LIT = 1;
                                                                //   2606  inst:  pop def %IF pending # 0;              !ownt (x=0)
#line 2606 "regression-compile-tmp/vax-pass1.imp"
U_1021:;
#line 2606 "regression-compile-tmp/vax-pass1.imp"
if (((PENDING) == (0))) goto L_022f;
#line 2606 "regression-compile-tmp/vax-pass1.imp"
POPDEF();
#line 2606 "regression-compile-tmp/vax-pass1.imp"
L_022f:;
                                                                //   2607        put('A'); putlong(lit)
#line 2607 "regression-compile-tmp/vax-pass1.imp"
PUT(65);
#line 2607 "regression-compile-tmp/vax-pass1.imp"
PUTLONG(LIT);
                                                                //   2608         ocount = ocount-lit
#line 2608 "regression-compile-tmp/vax-pass1.imp"
OCOUNT = (((int)(OCOUNT)) - (LIT));
                                                                //   2609         %IF ocount >= 0 %START
#line 2609 "regression-compile-tmp/vax-pass1.imp"
if (((OCOUNT) < (0))) goto L_0230;
                                                                //   2610            ->top %IF x # 0;      !more coming
#line 2610 "regression-compile-tmp/vax-pass1.imp"
if (((X) == (0))) goto L_0231;
#line 2610 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
#line 2610 "regression-compile-tmp/vax-pass1.imp"
L_0231:;
                                                                //   2611            ocount = -1 %AND %RETURN %IF ocount = 0;  !all done
#line 2611 "regression-compile-tmp/vax-pass1.imp"
if (((OCOUNT) != (0))) goto L_0232;
#line 2611 "regression-compile-tmp/vax-pass1.imp"
OCOUNT = (-1);
#line 2611 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 2611 "regression-compile-tmp/vax-pass1.imp"
L_0232:;
                                                                //   2612         %FINISH
#line 2612 "regression-compile-tmp/vax-pass1.imp"
L_0230:;
                                                                //   2613         fault(11);  %RETURN
#line 2613 "regression-compile-tmp/vax-pass1.imp"
FAULT(11);
#line 2613 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2614  
                                                                //   2615  c(swit):op('W', tag(x)_index);  inhibit = 1;  ->atop
#line 2615 "regression-compile-tmp/vax-pass1.imp"
sw5_C_105:;
#line 2615 "regression-compile-tmp/vax-pass1.imp"
OP(87, TAG[X].INDEX);
#line 2615 "regression-compile-tmp/vax-pass1.imp"
INHIBIT = 1;
#line 2615 "regression-compile-tmp/vax-pass1.imp"
goto U_101c;
                                                                //   2616  c(134):def(x);                               !swid
#line 2616 "regression-compile-tmp/vax-pass1.imp"
sw5_C_134:;
#line 2616 "regression-compile-tmp/vax-pass1.imp"
DEF(X);
                                                                //   2617         n = ub-lb+1
#line 2617 "regression-compile-tmp/vax-pass1.imp"
N = (((int)((((int)(UB)) - (LB)))) + (1));
                                                                //   2618         n = (n+15)>>4;                        !slots needed (includes zero)
#line 2618 "regression-compile-tmp/vax-pass1.imp"
N = (((((((int)(N)) + (15)))) >> (4)));
                                                                //   2619         j = dmax;  dmax = dmax+n+2
#line 2619 "regression-compile-tmp/vax-pass1.imp"
J = DMAX;
#line 2619 "regression-compile-tmp/vax-pass1.imp"
DMAX = (((int)((((int)(DMAX)) + (N)))) + (2));
                                                                //   2620         abandon(1) %IF dmax >= dmin
#line 2620 "regression-compile-tmp/vax-pass1.imp"
if (((DMAX) < (DMIN))) goto L_0233;
#line 2620 "regression-compile-tmp/vax-pass1.imp"
ABANDON(1);
#line 2620 "regression-compile-tmp/vax-pass1.imp"
L_0233:;
                                                                //   2621         tag(x)_format = j
#line 2621 "regression-compile-tmp/vax-pass1.imp"
TAG[X].FORMAT = J;
                                                                //   2622         dict(j) = lb;  dict(j+1) = ub
#line 2622 "regression-compile-tmp/vax-pass1.imp"
DICT[(((int)(J)) - (1))] = LB;
#line 2622 "regression-compile-tmp/vax-pass1.imp"
DICT[(((int)((((int)(J)) + (1)))) - (1))] = UB;
                                                                //   2623         %CYCLE
#line 2623 "regression-compile-tmp/vax-pass1.imp"
L_0234:;
                                                                //   2624            n = n-1
#line 2624 "regression-compile-tmp/vax-pass1.imp"
N = (((int)(N)) - (1));
                                                                //   2625            ->top %IF n < 0
#line 2625 "regression-compile-tmp/vax-pass1.imp"
if (((N) >= (0))) goto L_0237;
#line 2625 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
#line 2625 "regression-compile-tmp/vax-pass1.imp"
L_0237:;
                                                                //   2626            j = j+1;  dict(j+1) = 0
#line 2626 "regression-compile-tmp/vax-pass1.imp"
J = (((int)(J)) + (1));
#line 2626 "regression-compile-tmp/vax-pass1.imp"
DICT[(((int)((((int)(J)) + (1)))) - (1))] = 0;
                                                                //   2627         %REPEAT
#line 2627 "regression-compile-tmp/vax-pass1.imp"
goto L_0234;
                                                                //   2628  c(151):stats = stats-1;                      !slab
#line 2628 "regression-compile-tmp/vax-pass1.imp"
sw5_C_151:;
#line 2628 "regression-compile-tmp/vax-pass1.imp"
STATS = (((int)(STATS)) - (1));
                                                                //   2629         fault(7) %AND %RETURN %IF x < tbase
#line 2629 "regression-compile-tmp/vax-pass1.imp"
if (((X) >= (TBASE))) goto L_0235;
#line 2629 "regression-compile-tmp/vax-pass1.imp"
FAULT(7);
#line 2629 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 2629 "regression-compile-tmp/vax-pass1.imp"
L_0235:;
                                                                //   2630         %IF pending # 0 %START;               !explicit label
#line 2630 "regression-compile-tmp/vax-pass1.imp"
if (((PENDING) == (0))) goto L_0238;
                                                                //   2631            def s lab(pstack(1))
#line 2631 "regression-compile-tmp/vax-pass1.imp"
DEFSLAB((PSTACK-1)[1]);
                                                                //   2632         %FINISH %ELSE %START
#line 2632 "regression-compile-tmp/vax-pass1.imp"
goto L_0239;
#line 2632 "regression-compile-tmp/vax-pass1.imp"
L_0238:;
                                                                //   2633            fault(4) %AND %RETURN %IF tag(x)_app # 0
#line 2633 "regression-compile-tmp/vax-pass1.imp"
if (((TAG[X].APP) == (0))) goto L_023a;
#line 2633 "regression-compile-tmp/vax-pass1.imp"
FAULT(4);
#line 2633 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 2633 "regression-compile-tmp/vax-pass1.imp"
L_023a:;
                                                                //   2634            tag(x)_app = 1
#line 2634 "regression-compile-tmp/vax-pass1.imp"
TAG[X].APP = 1;
                                                                //   2635            n = tag(x)_format
#line 2635 "regression-compile-tmp/vax-pass1.imp"
N = TAG[X].FORMAT;
                                                                //   2636            %FOR j = dict(n), 1, dict(n+1) %CYCLE;   !imp77:
#line 2636 "regression-compile-tmp/vax-pass1.imp"
{static int _initial, _increment, _final, _control;
_initial = DICT[(((int)(N)) - (1))]; _increment = 1; _final = DICT[(((int)((((int)(N)) + (1)))) - (1))]; J = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = DICT[(((int)(N)) - (1))], 1, DICT[(((int)((((int)(N)) + (1)))) - (1))]");
J -= _increment; _control -= _increment;
L_023b:;
if (J == _final) goto L_023c;
J += _increment; _control += _increment;
if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */
}
                                                                //   2637               def s lab(j);                         !imp77:
#line 2637 "regression-compile-tmp/vax-pass1.imp"
DEFSLAB(J);
                                                                //   2638            %REPEAT;                                 !imp77:
#line 2638 "regression-compile-tmp/vax-pass1.imp"
goto L_023b;
#line 2638 "regression-compile-tmp/vax-pass1.imp"
L_023c:;
                                                                //   2639         %FINISH
#line 2639 "regression-compile-tmp/vax-pass1.imp"
L_0239:;
                                                                //   2640         inhibit = 1
#line 2640 "regression-compile-tmp/vax-pass1.imp"
INHIBIT = 1;
                                                                //   2641         %RETURN
#line 2641 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //   2642  
                                                                //   2643  c(140):put('p');             ->top;          !psep
#line 2643 "regression-compile-tmp/vax-pass1.imp"
sw5_C_140:;
#line 2643 "regression-compile-tmp/vax-pass1.imp"
PUT(112);
#line 2643 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2644  c(144):put('p');  put('E');  ->top;          !prb
#line 2644 "regression-compile-tmp/vax-pass1.imp"
sw5_C_144:;
#line 2644 "regression-compile-tmp/vax-pass1.imp"
PUT(112);
#line 2644 "regression-compile-tmp/vax-pass1.imp"
PUT(69);
#line 2644 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2645  
                                                                //   2646  !constant expressions
                                                                //   2647  
                                                                //   2648  c(155):                                      !pconst
#line 2648 "regression-compile-tmp/vax-pass1.imp"
sw5_C_155:;
                                                                //   2649         %IF x < 0 %THEN lit = tag(-x)_format %ELSE lit = lit pool(x)
#line 2649 "regression-compile-tmp/vax-pass1.imp"
if (((X) >= (0))) goto L_023e;
#line 2649 "regression-compile-tmp/vax-pass1.imp"
LIT = TAG[(-(X))].FORMAT;
#line 2649 "regression-compile-tmp/vax-pass1.imp"
goto L_023f;
#line 2649 "regression-compile-tmp/vax-pass1.imp"
L_023e:;
#line 2649 "regression-compile-tmp/vax-pass1.imp"
LIT = LITPOOL[X];
#line 2649 "regression-compile-tmp/vax-pass1.imp"
L_023f:;
                                                                //   2650         pending = pending+1;     pstack(pending) = lit;  ->top
#line 2650 "regression-compile-tmp/vax-pass1.imp"
PENDING = (((int)(PENDING)) + (1));
#line 2650 "regression-compile-tmp/vax-pass1.imp"
(PSTACK-1)[PENDING] = LIT;
#line 2650 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2651  c(156):lit = pstack(pending);  lit = -lit %IF lit < 0
#line 2651 "regression-compile-tmp/vax-pass1.imp"
sw5_C_156:;
#line 2651 "regression-compile-tmp/vax-pass1.imp"
LIT = (PSTACK-1)[PENDING];
#line 2651 "regression-compile-tmp/vax-pass1.imp"
if (((LIT) >= (0))) goto L_0240;
#line 2651 "regression-compile-tmp/vax-pass1.imp"
LIT = (-(LIT));
#line 2651 "regression-compile-tmp/vax-pass1.imp"
L_0240:;
                                                                //   2652                                  pstack(pending) = lit;  ->top;  !cmod
#line 2652 "regression-compile-tmp/vax-pass1.imp"
(PSTACK-1)[PENDING] = LIT;
#line 2652 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2653  c(157):-> top %if X#36          { JGH fix to %const %integer X = +1 => -1 bug }
#line 2653 "regression-compile-tmp/vax-pass1.imp"
sw5_C_157:;
#line 2653 "regression-compile-tmp/vax-pass1.imp"
if (((X) == (36))) goto L_0241;
#line 2653 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
#line 2653 "regression-compile-tmp/vax-pass1.imp"
L_0241:;
                                                                //   2654         lit = -pstack(pending);  pstack(pending) = lit;  ->top;  !csign
#line 2654 "regression-compile-tmp/vax-pass1.imp"
LIT = (-((PSTACK-1)[PENDING]));
#line 2654 "regression-compile-tmp/vax-pass1.imp"
(PSTACK-1)[PENDING] = LIT;
#line 2654 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2655  c(158):lit = \pstack(pending);  pstack(pending) = lit;  ->top;  !cuop
#line 2655 "regression-compile-tmp/vax-pass1.imp"
sw5_C_158:;
#line 2655 "regression-compile-tmp/vax-pass1.imp"
LIT = (~((PSTACK-1)[PENDING]));
#line 2655 "regression-compile-tmp/vax-pass1.imp"
(PSTACK-1)[PENDING] = LIT;
#line 2655 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2656  c(159):                                      !cop1
#line 2656 "regression-compile-tmp/vax-pass1.imp"
sw5_C_159:;
                                                                //   2657  c(160):                                      !cop2
#line 2657 "regression-compile-tmp/vax-pass1.imp"
sw5_C_160:;
                                                                //   2658  c(161):pending = pending-1;                  !cop3
#line 2658 "regression-compile-tmp/vax-pass1.imp"
sw5_C_161:;
#line 2658 "regression-compile-tmp/vax-pass1.imp"
PENDING = (((int)(PENDING)) - (1));
                                                                //   2659         lit2 = pstack(pending+1);  lit = pstack(pending)
#line 2659 "regression-compile-tmp/vax-pass1.imp"
LIT2 = (PSTACK-1)[(((int)(PENDING)) + (1))];
#line 2659 "regression-compile-tmp/vax-pass1.imp"
LIT = (PSTACK-1)[PENDING];
                                                                //   2660         ->litop(x>>2)
#line 2660 "regression-compile-tmp/vax-pass1.imp"
sw6_LITOP_idx = (int)((((unsigned int)(X)) >> (2))); if ((1 <= sw6_LITOP_idx) && (sw6_LITOP_idx <= 12)) goto *(sw6_LITOP-1)[sw6_LITOP_idx];  /* Bounds=1:12 */ else {
   /*_imp_signal(8, 2, sw6_LITOP_idx);*/
   fprintf(stderr, "%%SWITCH index LITOP(%d) not in range 1:12 at %s:%d\n",
           sw6_LITOP_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //   2661  litop(*):debug("* Switch label not set: litop(".itos(x>>2,0).") {x=".itos(x,2)."}"); %stop
#line 2661 "regression-compile-tmp/vax-pass1.imp"
sw6_LITOP_default:;
#line 2661 "regression-compile-tmp/vax-pass1.imp"
DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("* Switch label not set: litop("),(_imp_string)_imp_ITOS((int)((((unsigned int)(X)) >> (2))), 0)),(_imp_string)_imp_str_literal(") {x=")),(_imp_string)_imp_ITOS(X, 2)),(_imp_string)_imp_str_literal("}")));
#line 2661 "regression-compile-tmp/vax-pass1.imp"
exit(0);
                                                                //   2662  litop(10):lit = lit*lit2;   ->setl
#line 2662 "regression-compile-tmp/vax-pass1.imp"
sw6_LITOP_10:;
#line 2662 "regression-compile-tmp/vax-pass1.imp"
LIT = (((int)(LIT)) * (LIT2));
#line 2662 "regression-compile-tmp/vax-pass1.imp"
goto U_1022;
                                                                //   2663  litop(12):
#line 2663 "regression-compile-tmp/vax-pass1.imp"
sw6_LITOP_12:;
                                                                //   2664  litop(3):n = 1;                              !lit = lit\\lit2
#line 2664 "regression-compile-tmp/vax-pass1.imp"
sw6_LITOP_3:;
#line 2664 "regression-compile-tmp/vax-pass1.imp"
N = 1;
                                                                //   2665           fault(10) %IF lit2 < 0
#line 2665 "regression-compile-tmp/vax-pass1.imp"
if (((LIT2) >= (0))) goto L_0242;
#line 2665 "regression-compile-tmp/vax-pass1.imp"
FAULT(10);
#line 2665 "regression-compile-tmp/vax-pass1.imp"
L_0242:;
                                                                //   2666           %WHILE lit2 > 0 %CYCLE
#line 2666 "regression-compile-tmp/vax-pass1.imp"
L_0243:;
#line 2666 "regression-compile-tmp/vax-pass1.imp"
if (((LIT2) <= (0))) goto L_0244;
                                                                //   2667              lit2 = lit2-1
#line 2667 "regression-compile-tmp/vax-pass1.imp"
LIT2 = (((int)(LIT2)) - (1));
                                                                //   2668              n = n*lit
#line 2668 "regression-compile-tmp/vax-pass1.imp"
N = (((int)(N)) * (LIT));
                                                                //   2669           %REPEAT
#line 2669 "regression-compile-tmp/vax-pass1.imp"
goto L_0243;
#line 2669 "regression-compile-tmp/vax-pass1.imp"
L_0244:;
                                                                //   2670           lit = n;           ->setl
#line 2670 "regression-compile-tmp/vax-pass1.imp"
LIT = N;
#line 2670 "regression-compile-tmp/vax-pass1.imp"
goto U_1022;
                                                                //   2671  litop(1):lit = lit<<lit2;   ->setl
#line 2671 "regression-compile-tmp/vax-pass1.imp"
sw6_LITOP_1:;
#line 2671 "regression-compile-tmp/vax-pass1.imp"
LIT = ((LIT) << (LIT2));
#line 2671 "regression-compile-tmp/vax-pass1.imp"
goto U_1022;
                                                                //   2672  litop(2):lit = lit>>lit2;   ->setl
#line 2672 "regression-compile-tmp/vax-pass1.imp"
sw6_LITOP_2:;
#line 2672 "regression-compile-tmp/vax-pass1.imp"
LIT = (int)((((unsigned int)(LIT)) >> (LIT2)));
#line 2672 "regression-compile-tmp/vax-pass1.imp"
goto U_1022;
                                                                //   2673  litop(5):lit = lit&lit2;    ->setl
#line 2673 "regression-compile-tmp/vax-pass1.imp"
sw6_LITOP_5:;
#line 2673 "regression-compile-tmp/vax-pass1.imp"
LIT = ((LIT) & (LIT2));
#line 2673 "regression-compile-tmp/vax-pass1.imp"
goto U_1022;
                                                                //   2674  litop(11):
#line 2674 "regression-compile-tmp/vax-pass1.imp"
sw6_LITOP_11:;
                                                                //   2675  litop(4):%IF lit2 = 0 %THEN fault(10) %ELSE lit = lit//lit2
#line 2675 "regression-compile-tmp/vax-pass1.imp"
sw6_LITOP_4:;
#line 2675 "regression-compile-tmp/vax-pass1.imp"
if (((LIT2) != (0))) goto L_0246;
#line 2675 "regression-compile-tmp/vax-pass1.imp"
FAULT(10);
#line 2675 "regression-compile-tmp/vax-pass1.imp"
goto L_0247;
#line 2675 "regression-compile-tmp/vax-pass1.imp"
L_0246:;
#line 2675 "regression-compile-tmp/vax-pass1.imp"
LIT = (long)((long)((int)(LIT)) / (long)((int)(_Z(LIT2))));
#line 2675 "regression-compile-tmp/vax-pass1.imp"
L_0247:;
                                                                //   2676                              ->setl
#line 2676 "regression-compile-tmp/vax-pass1.imp"
goto U_1022;
                                                                //   2677  litop(8):lit = lit+lit2;    ->setl
#line 2677 "regression-compile-tmp/vax-pass1.imp"
sw6_LITOP_8:;
#line 2677 "regression-compile-tmp/vax-pass1.imp"
LIT = (((int)(LIT)) + (LIT2));
#line 2677 "regression-compile-tmp/vax-pass1.imp"
goto U_1022;
                                                                //   2678  litop(9):lit = lit-lit2;    ->setl
#line 2678 "regression-compile-tmp/vax-pass1.imp"
sw6_LITOP_9:;
#line 2678 "regression-compile-tmp/vax-pass1.imp"
LIT = (((int)(LIT)) - (LIT2));
#line 2678 "regression-compile-tmp/vax-pass1.imp"
goto U_1022;
                                                                //   2679  litop(6):lit = lit!lit2;    ->setl
#line 2679 "regression-compile-tmp/vax-pass1.imp"
sw6_LITOP_6:;
#line 2679 "regression-compile-tmp/vax-pass1.imp"
LIT = ((LIT) | (LIT2));
#line 2679 "regression-compile-tmp/vax-pass1.imp"
goto U_1022;
                                                                //   2680  litop(7):lit = lit!!lit2
#line 2680 "regression-compile-tmp/vax-pass1.imp"
sw6_LITOP_7:;
#line 2680 "regression-compile-tmp/vax-pass1.imp"
LIT = ((LIT) ^ (LIT2));
                                                                //   2681  
                                                                //   2682  setl: pstack(pending) = lit;  ->top
#line 2682 "regression-compile-tmp/vax-pass1.imp"
U_1022:;
#line 2682 "regression-compile-tmp/vax-pass1.imp"
(PSTACK-1)[PENDING] = LIT;
#line 2682 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2683  
                                                                //   2684  c(170):            !option string
#line 2684 "regression-compile-tmp/vax-pass1.imp"
sw5_C_170:;
                                                                //   2685     put('~'); put('D')
#line 2685 "regression-compile-tmp/vax-pass1.imp"
PUT(126);
#line 2685 "regression-compile-tmp/vax-pass1.imp"
PUT(68);
                                                                //   2686     ->pstr
#line 2686 "regression-compile-tmp/vax-pass1.imp"
goto U_101f;
                                                                //   2687  
                                                                //   2688  !string resolution
                                                                //   2689  
                                                                //   2690  c(135):resln = 2;         ->top;           !dotl
#line 2690 "regression-compile-tmp/vax-pass1.imp"
sw5_C_135:;
#line 2690 "regression-compile-tmp/vax-pass1.imp"
RESLN = 2;
#line 2690 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2691  c(136):resln = resln+1;   ->top;           !dotr
#line 2691 "regression-compile-tmp/vax-pass1.imp"
sw5_C_136:;
#line 2691 "regression-compile-tmp/vax-pass1.imp"
RESLN = (((int)(RESLN)) + (1));
#line 2691 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2692  c(55): op('r', resln);    resln = 0; ->top;           !resop
#line 2692 "regression-compile-tmp/vax-pass1.imp"
sw5_C_55:;
#line 2692 "regression-compile-tmp/vax-pass1.imp"
OP(114, RESLN);
#line 2692 "regression-compile-tmp/vax-pass1.imp"
RESLN = 0;
#line 2692 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2693  c(164):op('r', resln+4);  resln = 0;         !cresop
#line 2693 "regression-compile-tmp/vax-pass1.imp"
sw5_C_164:;
#line 2693 "regression-compile-tmp/vax-pass1.imp"
OP(114, (((int)(RESLN)) + (4)));
#line 2693 "regression-compile-tmp/vax-pass1.imp"
RESLN = 0;
                                                                //   2694  c(122):x = 6;            ->cop;            !%PRED
#line 2694 "regression-compile-tmp/vax-pass1.imp"
sw5_C_122:;
#line 2694 "regression-compile-tmp/vax-pass1.imp"
X = 6;
#line 2694 "regression-compile-tmp/vax-pass1.imp"
goto U_101e;
                                                                //   2695  c(87):set const(pstack(1));            !mass
#line 2695 "regression-compile-tmp/vax-pass1.imp"
sw5_C_87:;
#line 2695 "regression-compile-tmp/vax-pass1.imp"
SETCONST((PSTACK-1)[1]);
                                                                //   2696        put('P');  ->top
#line 2696 "regression-compile-tmp/vax-pass1.imp"
PUT(80);
#line 2696 "regression-compile-tmp/vax-pass1.imp"
goto U_101b;
                                                                //   2697     %END
#line 2697 "regression-compile-tmp/vax-pass1.imp"
return;
sw5_C_1:;
sw5_C_2:;
sw5_C_3:;
sw5_C_4:;
sw5_C_5:;
sw5_C_6:;
sw5_C_7:;
sw5_C_8:;
sw5_C_9:;
sw5_C_10:;
sw5_C_11:;
sw5_C_12:;
sw5_C_13:;
sw5_C_14:;
sw5_C_15:;
sw5_C_16:;
sw5_C_17:;
sw5_C_18:;
sw5_C_19:;
sw5_C_20:;
sw5_C_21:;
sw5_C_22:;
sw5_C_23:;
sw5_C_24:;
sw5_C_25:;
sw5_C_26:;
sw5_C_40:;
sw5_C_54:;
sw5_C_61:;
sw5_C_66:;
sw5_C_73:;
sw5_C_94:;
sw5_C_95:;
sw5_C_110:;
sw5_C_111:;
sw5_C_112:;
sw5_C_113:;
sw5_C_114:;
sw5_C_115:;
sw5_C_116:;
sw5_C_117:;
sw5_C_118:;
sw5_C_119:;
sw5_C_123:;
sw5_C_129:;
sw5_C_150:;
sw5_C_169:;
sw5_C_176:;
sw5_C_177:;
sw5_C_178:;
sw5_C_179:;
sw5_C_180:;
goto sw5_C_default;
} // End of block COMPILE at level 3
                                                                //   2698  
                                                                //   2699  %END;                                      !of compile block
#line 2699 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block COMPILEBLOCK at level 2
                                                                //   2700  
                                                                //   2701  debug("ENTERED PASS1  object tank=".itos(object tank,0)." *************")
#line 2701 "regression-compile-tmp/vax-pass1.imp"
DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("ENTERED PASS1  object tank="),(_imp_string)_imp_ITOS(OBJECTTANK, 0)),(_imp_string)_imp_str_literal(" *************")));
                                                                //   2702  
                                                                //   2703     %ON 9 %START
#line 2703 "regression-compile-tmp/vax-pass1.imp"
if (!_imp_on_event(9)) goto L_0248;  /* TO DO: Remove %on %event handler just before L_0248: if present for this block */
                                                                //   2704  debug("[3]%ON 9 %START:")
#line 2704 "regression-compile-tmp/vax-pass1.imp"
DEBUG(_imp_str_literal("[3]%ON 9 %START:"));
                                                                //   2705        abandon(5)
#line 2705 "regression-compile-tmp/vax-pass1.imp"
ABANDON(5);
                                                                //   2706     %FINISH
#line 2706 "regression-compile-tmp/vax-pass1.imp"
L_0248:;
                                                                //   2707  
                                                                //   2708     selectoutput(listing)                               ;!!!!!!!!!!!!!!!! THIS FAILS
#line 2708 "regression-compile-tmp/vax-pass1.imp"
_imp_SELECTOUTPUT(2);
                                                                //   2709  !debug("A: object tank=".itos(object tank,0))
                                                                //   2710     %if command & list bit # 0 %start
#line 2710 "regression-compile-tmp/vax-pass1.imp"
if (((((COMMAND) & (256))) == (0))) goto L_0249;
                                                                //   2711        printstring("
#line 2711 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("\n      Computer Science VAX-11 IMP77 Compiler.  Version 8.02\n\n            Compiled on "),(_imp_string)DATE()),(_imp_string)_imp_str_literal(" at ")),(_imp_string)TIME()));
                                                                //   2712        Computer Science VAX-11 IMP77 Compiler.  Version 8.02
                                                                //   2713  
                                                                //   2714              Compiled on ".date." at ".time)
                                                                //   2715        newlines(2)
#line 2715 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINES(2);
                                                                //   2716  debug("select input(1)")
#line 2716 "regression-compile-tmp/vax-pass1.imp"
DEBUG(_imp_str_literal("select input(1)"));
                                                                //   2717        select input(1)
#line 2717 "regression-compile-tmp/vax-pass1.imp"
_imp_SELECTINPUT(1);
                                                                //   2718        printstring("   Source file: ".infilename)
#line 2718 "regression-compile-tmp/vax-pass1.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal("   Source file: "),(_imp_string)INFILENAME()));
                                                                //   2719        newline;  newline
#line 2719 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
#line 2719 "regression-compile-tmp/vax-pass1.imp"
_imp_NEWLINE();
                                                                //   2720  !debug("B: object tank=".itos(object tank,0))
                                                                //   2721     %finish
#line 2721 "regression-compile-tmp/vax-pass1.imp"
L_0249:;
                                                                //   2722  !debug("C: object tank=".itos(object tank,0))
                                                                //   2723  debug("select input(prims=".itos(prims,0).")")
#line 2723 "regression-compile-tmp/vax-pass1.imp"
DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("select input(prims="),(_imp_string)_imp_ITOS(2, 0)),(_imp_string)_imp_str_literal(")")));
                                                                //   2724     select input(prims)
#line 2724 "regression-compile-tmp/vax-pass1.imp"
_imp_SELECTINPUT(2);
                                                                //   2725  debug("select output tank(object tank=".itos(object tank,0).")")
#line 2725 "regression-compile-tmp/vax-pass1.imp"
DEBUG(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("select output tank(object tank="),(_imp_string)_imp_ITOS(OBJECTTANK, 0)),(_imp_string)_imp_str_literal(")")));
                                                                //   2726     select output tank(object tank)
#line 2726 "regression-compile-tmp/vax-pass1.imp"
SELECTOUTPUTTANK(OBJECTTANK);
                                                                //   2727     tag(max tag) = 0;                       !%BEGIN defn
#line 2727 "regression-compile-tmp/vax-pass1.imp"
TAG[1200] = (TAGFM){ 0 } /* Assign 0's to all fields of record */;
                                                                //   2728     tag(0) = 0;  tag(0)_flags = 7;          !%BEGIN tag!
#line 2728 "regression-compile-tmp/vax-pass1.imp"
TAG[0] = (TAGFM){ 0 } /* Assign 0's to all fields of record */;
#line 2728 "regression-compile-tmp/vax-pass1.imp"
TAG[0].FLAGS = 7;
                                                                //   2729     %FOR x = 0, 1, max names %CYCLE;   !imp77:
#line 2729 "regression-compile-tmp/vax-pass1.imp"
X = (-1);
if ((((2047)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle X = 0, 1, 2047");
L_024a:;
if (X == 2047) goto L_024b;
X += 1;
                                                                //   2730        hash(x) = 0;                    !imp77:
#line 2730 "regression-compile-tmp/vax-pass1.imp"
HASH[X] = 0;
                                                                //   2731     %REPEAT;                           !imp77:
#line 2731 "regression-compile-tmp/vax-pass1.imp"
goto L_024a;
#line 2731 "regression-compile-tmp/vax-pass1.imp"
L_024b:;
                                                                //   2732     include file = ""
#line 2732 "regression-compile-tmp/vax-pass1.imp"
INCLUDEFILE = _imp_str_literal("");
                                                                //   2733     put('l'); putword(0)
#line 2733 "regression-compile-tmp/vax-pass1.imp"
PUT(108);
#line 2733 "regression-compile-tmp/vax-pass1.imp"
PUTWORD(0);
                                                                //   2734     compile block(0, 0, max dict, 0, 0)
#line 2734 "regression-compile-tmp/vax-pass1.imp"
COMPILEBLOCK(0, 0, 9000, 0, 0);
                                                                //   2735     %result = -faulty %IF faulty # 0;   !imp77: %ENDOFPROGRAM
#line 2735 "regression-compile-tmp/vax-pass1.imp"
if (((FAULTY) == (0))) goto L_024d;
#line 2735 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return (-(FAULTY));
#line 2735 "regression-compile-tmp/vax-pass1.imp"
L_024d:;
                                                                //   2736     %result = stats
#line 2736 "regression-compile-tmp/vax-pass1.imp"
/* Remove %on %event handler here if present for this block */
return STATS;
                                                                //   2737  %end
#line 2737 "regression-compile-tmp/vax-pass1.imp"
} // End of block PASS1 at level 1
                                                                //   2738  %endoffile
#line 2738 "regression-compile-tmp/vax-pass1.imp"
// End of file
