#include <perms.h>

                                                                //      1  %EXTERNALROUTINE CHECKINNER(%INTEGER FSTART,FSIZE, %INTEGERNAME PARM)
#line 1 "regression-compile-tmp/check.imp"
void CHECKINNER( int FSTART, int FSIZE, int /*name*/*PARM )
#line 1 "regression-compile-tmp/check.imp"
{
                                                                //      2  !%EXTERNALLONGREALFNSPEC CPUTIME
                                                                //      3  %LONGREAL TIME1,TIME2
#line 3 "regression-compile-tmp/check.imp"
double TIME1;
#line 3 "regression-compile-tmp/check.imp"
double TIME2;
                                                                //      4  !
                                                                //      5  !DECLARATION CODES
                                                                //      6  %CONSTINTEGER STRINGBIT=X'80', REALBITS=X'30', INTBIT=X'40'
                                                                //      7  %CONSTINTEGER NUMBITS=X'70'
                                                                //      8  %CONSTINTEGER APPMASK=X'FF00'
                                                                //      9  %CONSTINTEGER EXP=1, FN=2
                                                                //     10  %CONSTINTEGER RECFORMAT=4, ROUTINE=6
                                                                //     11  %CONSTINTEGER REF=8, VAR=9, MAP=10
                                                                //     12  %CONSTINTEGER LAB=12, JUMPLAB=13
                                                                //     13  %CONSTINTEGER SWITCH=X'10C'
                                                                //     14  %CONSTINTEGER IMP1MODES=B'01000011111111000000000000000000'
                                                                //     15  %CONSTINTEGER IMPMODES =B'01000011111100000000000000000000'
                                                                //     16  %CONSTINTEGER DESTMODES=B'00000000111100000000000000000000'
                                                                //     17  %CONSTINTEGER ADRMODES =B'01000000111100000000000000000000'
                                                                //     18  %CONSTINTEGER EXPMODES =B'11110000111100000000000000000000'
                                                                //     19  %CONSTINTEGER FMATMODES=B'00001000000000000000000000000000'
                                                                //     20  !SYMBOL INIT CODES
                                                                //     21  ! USED EXPLICITLY
                                                                //     22  ! SPACE=0, DIGIT:ISO, LETTER:ISO, QUOTE=127
                                                                //     23  ! PC=128, PCLET OR PUNCT: 128 + KEYDICT INDEX
                                                                //     24  ! KEYDICT INDEX >= PUNCTMIN FOR PUNCT
                                                                //     25  ! KEYDICT INDEX >= SKIP1MIN FOR  !  *  SEMICOLON  NL
                                                                //     26  %CONSTINTEGER NLCODE=127;  !MASKED FROM 255 ACTUAL
                                                                //     27  !ATOM CODES
                                                                //     28  %CONSTINTEGER IDENT=1, CONST=2, LB=11, COMMA=10, RB=12
                                                                //     29  %CONSTINTEGER TERMINATOR=13, JUMP=15
                                                                //     30  %CONSTINTEGER OP3=6, START=53, CYCLE=54
                                                                //     31  ! VERTICAL BAR
                                                                //     32  %CONSTINTEGER MARKER=124
                                                                //     33  
                                                                //     34  %OWNINTEGER STATS=0, ATOMS=-54, IDENTIFIERS=-54, NUMBERS=0, LOOPS=0
#line 34 "regression-compile-tmp/check.imp"
static int STATS = 0;
#line 34 "regression-compile-tmp/check.imp"
static int ATOMS = (-54);
#line 34 "regression-compile-tmp/check.imp"
static int IDENTIFIERS = (-54);
#line 34 "regression-compile-tmp/check.imp"
static int NUMBERS = 0;
#line 34 "regression-compile-tmp/check.imp"
static int LOOPS = 0;
                                                                //     35  %OWNINTEGER LOOKS=1, TIMES=1
#line 35 "regression-compile-tmp/check.imp"
static int LOOKS = 1;
#line 35 "regression-compile-tmp/check.imp"
static int TIMES = 1;
                                                                //     36  %INTEGER I,J
#line 36 "regression-compile-tmp/check.imp"
int I;
#line 36 "regression-compile-tmp/check.imp"
int J;
                                                                //     37  %INTEGER LINEBASE;     !BASE FOR SOURCE LINE (POINTER)
#line 37 "regression-compile-tmp/check.imp"
int LINEBASE;
                                                                //     38  %INTEGER FPOS;         !CURRENT POSITION IN SOURCE (POINTER)
#line 38 "regression-compile-tmp/check.imp"
int FPOS;
                                                                //     39  %INTEGER FPOS1;        !START OF CURRENT ATOM (POINTER)
#line 39 "regression-compile-tmp/check.imp"
int FPOS1;
                                                                //     40  %INTEGER PRINTPOS;     !'LINE-ALREADY-PRINTED' INDIC
#line 40 "regression-compile-tmp/check.imp"
int PRINTPOS;
                                                                //     41  %INTEGER LINE;         !CURRENT LINE NUMBER
#line 41 "regression-compile-tmp/check.imp"
int LINE;
                                                                //     42  %INTEGER NEXTLINE
#line 42 "regression-compile-tmp/check.imp"
int NEXTLINE;
                                                                //     43  %INTEGER FMAX;  !LAST BYTE IN SOURCE (POINTER)
#line 43 "regression-compile-tmp/check.imp"
int FMAX;
                                                                //     44  %INTEGER FAULTNUM;     !FAULTY NUMBER
#line 44 "regression-compile-tmp/check.imp"
int FAULTNUM;
                                                                //     45  %INTEGER FAULTPOS;     !FAULTY ATOM POSITION (POINTER)
#line 45 "regression-compile-tmp/check.imp"
int FAULTPOS;
                                                                //     46  %INTEGER SYMCODE;  !SYMBOL CODE FOR CURRENT SYMBOL
#line 46 "regression-compile-tmp/check.imp"
int SYMCODE;
                                                                //     47  %INTEGER SKIPMIN;  !=SKIP1MIN OR NLCODE
#line 47 "regression-compile-tmp/check.imp"
int SKIPMIN;
                                                                //     48  !%INTEGER GG;           !=GRAM(G)
                                                                //     49  %INTEGER CLASS;        !GRAMMAR CLASS
#line 49 "regression-compile-tmp/check.imp"
int CLASS;
                                                                //     50  %INTEGER G;            !INDEX TO GRAM
#line 50 "regression-compile-tmp/check.imp"
int G;
                                                                //     51  %INTEGER ATOM;         !ATOM CODE FOR CURRENT ATOM
#line 51 "regression-compile-tmp/check.imp"
int ATOM;
                                                                //     52  %INTEGER ATOMTYPE;     !TYPE FOR CURREMT ATOM
#line 52 "regression-compile-tmp/check.imp"
int ATOMTYPE;
                                                                //     53  %INTEGER ATOMVAL;      !'VALUE' FOR CURRENT ATOM
#line 53 "regression-compile-tmp/check.imp"
int ATOMVAL;
                                                                //     54  %INTEGER DECLTYPE;     !DECLARATION TYPE
#line 54 "regression-compile-tmp/check.imp"
int DECLTYPE;
                                                                //     55  %INTEGER MODES;  !BIT VECTOR FOR PERMISSIBLE IDENT MODES
#line 55 "regression-compile-tmp/check.imp"
int MODES;
                                                                //     56  %INTEGER DIMCOUNT;     !DIMENSION COUNT
#line 56 "regression-compile-tmp/check.imp"
int DIMCOUNT;
                                                                //     57  %INTEGER CONSTCOUNT;   !CONSTANT COUNT (DOWN)
#line 57 "regression-compile-tmp/check.imp"
int CONSTCOUNT;
                                                                //     58  %INTEGER STRINGSIZE
#line 58 "regression-compile-tmp/check.imp"
int STRINGSIZE;
                                                                //     59  %INTEGER PRECISION
#line 59 "regression-compile-tmp/check.imp"
int PRECISION;
                                                                //     60  %INTEGER LASTTYPE,LASTVAL
#line 60 "regression-compile-tmp/check.imp"
int LASTTYPE;
#line 60 "regression-compile-tmp/check.imp"
int LASTVAL;
                                                                //     61  %INTEGER TYPE,VAL
#line 61 "regression-compile-tmp/check.imp"
int TYPE;
#line 61 "regression-compile-tmp/check.imp"
int VAL;
                                                                //     62  %INTEGER NP;           !NEST POINTER (INDEX TO NTYPE,NVAL)
#line 62 "regression-compile-tmp/check.imp"
int NP;
                                                                //     63  %INTEGERARRAY NTYPE,NVAL(1:50);  !NEST
#line 63 "regression-compile-tmp/check.imp"
int NTYPE[50];
#line 63 "regression-compile-tmp/check.imp"
int NVAL[50];
                                                                //     64  %INTEGER LINKMAX;      !GRAMMAR STACK MAX (INDEX TO LINK)
#line 64 "regression-compile-tmp/check.imp"
int LINKMAX;
                                                                //     65  %INTEGERARRAY LINK(1:20);  !GRAMMAR CONTROL STACK
#line 65 "regression-compile-tmp/check.imp"
int LINK[20];
                                                                //     66  %RECORDFORMAT BLOCKINF(%INTEGER STACK,LOCAL,BTYPE)
#line 66 "regression-compile-tmp/check.imp"
typedef struct BLOCKINF BLOCKINF;
struct BLOCKINF {
  int STACK;
  int LOCAL;
  int BTYPE;
};
                                                                //     67  %INTEGER LEVEL;        !CURRENT BLOCK LEVEL (MAIN=1)
#line 67 "regression-compile-tmp/check.imp"
int LEVEL;
                                                                //     68  %RECORD(BLOCKINF) C;   !INFO FOR CURRENT BLOCK
#line 68 "regression-compile-tmp/check.imp"
 BLOCKINF C;
                                                                //     69  %RECORD(BLOCKINF)%ARRAY HOLD(1:12);  !INFO FOR GLOBAL BLOCKS
#line 69 "regression-compile-tmp/check.imp"
 BLOCKINF HOLD[12];
                                                                //     70  %INTEGERARRAY INDEX(0:255);  !HASH INDEX TO IDENT DICT
#line 70 "regression-compile-tmp/check.imp"
int INDEX[256];
                                                                //     71  %INTEGERNAME HEAD;     !HEAD OF IDENT SEARCH LIST
#line 71 "regression-compile-tmp/check.imp"
int /*name*/*HEAD;
                                                                //     72  %INTEGER DPOS;         !DICT SEARCH POSITION (POINTER)
#line 72 "regression-compile-tmp/check.imp"
int DPOS;
                                                                //     73  %INTEGER DLIM;         !DICT LIMIT (POINTER)
#line 73 "regression-compile-tmp/check.imp"
int DLIM;
                                                                //     74  %INTEGER NEWDLIM
#line 74 "regression-compile-tmp/check.imp"
int NEWDLIM;
                                                                //     75  %INTEGER DBOUND;       !DICT UPPER LIMIT (POINTER);
#line 75 "regression-compile-tmp/check.imp"
int DBOUND;
                                                                //     76  %INTEGER IDENTS;       !POS OF FIRST IDENT IN DECL LIST (POINTER)
#line 76 "regression-compile-tmp/check.imp"
int IDENTS;
                                                                //     77  %INTEGER RECIDENTS;    !POS OF FIRST IDENT IN RECORD LIST (POINTER)
#line 77 "regression-compile-tmp/check.imp"
int RECIDENTS;
                                                                //     78  %INTEGER PIDENTPOS;    !POS OF PROCEDURE IDENT (POINTER)
#line 78 "regression-compile-tmp/check.imp"
int PIDENTPOS;
                                                                //     79  %INTEGER FIDENTPOS;    !POS OF FORMAT IDENT (POINTER)
#line 79 "regression-compile-tmp/check.imp"
int FIDENTPOS;
                                                                //     80  %INTEGER EXTIND;  !SET BY %EXTERNAL
#line 80 "regression-compile-tmp/check.imp"
int EXTIND;
                                                                //     81  %INTEGER CONDIND;  !SET FOR START,CYCLE
#line 81 "regression-compile-tmp/check.imp"
int CONDIND;
                                                                //     82  %INTEGER PARMAX;  !CURRENT MAX IN PARTYPE
#line 82 "regression-compile-tmp/check.imp"
int PARMAX;
                                                                //     83  %INTEGER ADGRAM0, LINK1;  !PRE-COMPUTED GRAMMAR VALUES
#line 83 "regression-compile-tmp/check.imp"
int ADGRAM0;
#line 83 "regression-compile-tmp/check.imp"
int LINK1;
                                                                //     84  %INTEGER APPCONT
#line 84 "regression-compile-tmp/check.imp"
int APPCONT;
                                                                //     85  
                                                                //     86  %OWNINTEGERARRAY PARTYPE(0:255) =  0,
#line 86 "regression-compile-tmp/check.imp"
static int PARTYPE[256] = { 0, 105, 16777321, 33554537, 50331753, 67108969, 83886185, 41, 16777257, 137, 136, 248, 33554473, 117440553, 16777352, 33554568, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (-50331543), (-33553928), 0, (-16777111),  };
                                                                //     87      X'00000069', X'01000069', X'02000069', X'03000069',
                                                                //     88      X'04000069', X'05000069', X'00000029', X'01000029',
                                                                //     89      X'00000089', X'00000088', X'000000F8', X'02000029',
                                                                //     90      X'07000029', X'01000088', X'02000088', 0(236),
                                                                //     91      X'FD000069', X'FE0001F8', X'00000000', X'FF000069'
                                                                //     92  
                                                                //     93  %INTEGERARRAY DICT(1:4000)
#line 93 "regression-compile-tmp/check.imp"
int DICT[4000];
                                                                //     94  
                                                                //     95  !* GRAMMAR AND KEYWORD DICTIONARY GENERATED BY TAKEON PROGRAM
                                                                //     96  
                                                                //     97  %CONSTINTEGER PUNCTMIN = 43, SKIP1MIN = 86
                                                                //     98  
                                                                //     99  %CONSTBYTEINTEGERARRAY SYMINIT( 0: 255) =  %C
#line 99 "regression-compile-tmp/check.imp"
const unsigned char SYMINIT[256] = { 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 255, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 0, 217, 127, 171, 129, 128, 173, 127, 175, 178, 214, 180, 182, 184, 187, 189, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 192, 221, 194, 200, 203, 129, 129, 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, 129, 207, 129, 210, 212, 129, 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, 129, 207, 129, 210, 212, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 255, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 0, 217, 127, 171, 129, 128, 173, 127, 175, 178, 214, 180, 182, 184, 187, 189, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 192, 221, 194, 200, 203, 129, 129, 130, 132, 134, 138, 139, 142, 129, 129, 146, 129, 129, 148, 150, 152, 154, 157, 158, 159, 161, 167, 169, 129, 170, 129, 129, 129, 129, 207, 129, 210, 212, 129, 130, 132, 134, 138, 139, 142, 129, 129, 146, 129, 129, 148, 150, 152, 154, 157, 158, 159, 161, 167, 169, 129, 170, 129, 129, 129, 129, 207, 129, 210, 212,  };
                                                                //    100   129, 129, 129, 129, 129, 129, 129, 129,
                                                                //    101   129, 129, 255, 129, 129, 129, 129, 129,
                                                                //    102   129, 129, 129, 129, 129, 129, 129, 129,
                                                                //    103   129, 129, 129, 129, 129, 129, 129, 129,
                                                                //    104     0, 217, 127, 171, 129, 128, 173, 127,
                                                                //    105   175, 178, 214, 180, 182, 184, 187, 189,
                                                                //    106    48,  49,  50,  51,  52,  53,  54,  55,
                                                                //    107    56,  57, 192, 221, 194, 200, 203, 129,
                                                                //    108   129,  65,  66,  67,  68,  69,  70,  71,
                                                                //    109    72,  73,  74,  75,  76,  77,  78,  79,
                                                                //    110    80,  81,  82,  83,  84,  85,  86,  87,
                                                                //    111    88,  89,  90, 129, 207, 129, 210, 212,
                                                                //    112   129,  65,  66,  67,  68,  69,  70,  71,
                                                                //    113    72,  73,  74,  75,  76,  77,  78,  79,
                                                                //    114    80,  81,  82,  83,  84,  85,  86,  87,
                                                                //    115    88,  89,  90, 129, 207, 129, 210, 212,
                                                                //    116   129, 129, 129, 129, 129, 129, 129, 129,
                                                                //    117   129, 129, 255, 129, 129, 129, 129, 129,
                                                                //    118   129, 129, 129, 129, 129, 129, 129, 129,
                                                                //    119   129, 129, 129, 129, 129, 129, 129, 129,
                                                                //    120     0, 217, 127, 171, 129, 128, 173, 127,
                                                                //    121   175, 178, 214, 180, 182, 184, 187, 189,
                                                                //    122    48,  49,  50,  51,  52,  53,  54,  55,
                                                                //    123    56,  57, 192, 221, 194, 200, 203, 129,
                                                                //    124   129, 130, 132, 134, 138, 139, 142, 129,
                                                                //    125   129, 146, 129, 129, 148, 150, 152, 154,
                                                                //    126   157, 158, 159, 161, 167, 169, 129, 170,
                                                                //    127   129, 129, 129, 129, 207, 129, 210, 212,
                                                                //    128   129, 130, 132, 134, 138, 139, 142, 129,
                                                                //    129   129, 146, 129, 129, 148, 150, 152, 154,
                                                                //    130   157, 158, 159, 161, 167, 169, 129, 170,
                                                                //    131   129, 129, 129, 129, 207, 129, 210, 212
                                                                //    132    
                                                                //    133  %CONSTSHORTINTEGERARRAY KEYDICT( 0: 487) =  %C
#line 133 "regression-compile-tmp/check.imp"
const short KEYDICT[488] = { 0, 5, (-26642), 6194, (-26523), 6329, (-26385), (-26247), 0, 0, 6585, (-26132), (-26066), 6776, (-25887), (-25815), (-25746), 7151, (-25562), 7342, (-25367), 7471, (-25247), 7599, (-25119), 7727, (-24978), (-24782), 8119, 8178, 8245, (-24475), 8687, (-24024), (-23959), (-23888), (-23820), (-23625), 9209, (-23512), 9330, 9390, 9512, 512, 240, 320, 64, (-23231), 704, 0, 786, 0, 384, 113, 640, 0, (-23074), 384, 114, 384, 128, (-22961), 320, 48, 1600, 1, (-22835), (-22692), (-22563), (-22434), 512, 240, (-22307), 576, 240, (-22179), (-22050), 512, 240, (-21923), 448, 68, 448, 68, 192, 0, (-21814), 320, 112, (-21695), (-21559), 384, 67, 832, 1, 11364, 11506, 11559, 11636, (-21075), 11758, 11875, 11950, 12019, 12068, (-20503), 12340, 12469, 12526, 2496, 11, 12594, 1664, 3, 12788, 12851, 12910, 12976, 13102, 13165, 13236, (-19419), 3264, 1, 2816, 0, 13422, 13545, 13601, (-19103), (-19037), (-18969), (-18896), (-18829), 14004, 14069, 14127, 14183, 14245, (-18463), (-18385), 14450, 14505, 14579, 14629, 14709, (-18004), 14836, 14889, 3008, 0, 960, 0, 320, 64, 576, 0, 256, 64, 512, 240, 256, 64, 896, 0, 512, 240, 256, 64, 512, 240, 256, 112, 384, 68, 3072, 0, 2752, 0, 14945, 15017, 15077, 15149, (-17549), 15284, 15340, 15393, 15461, (-17169), 3712, 0, 15668, (-16987), 15858, 15916, 15977, (-16723), 3136, 0, 16101, 16180, 16295, 2496, 3, 16425, 16485, 2880, 0, 16630, 2048, 0, 16686, 16740, 16812, 17007, 17065, 17125, 17205, 17269, 17332, 17394, 17454, 17507, 17650, 17712, 17833, 17908, 17972, 18030, 18163, 18213, 18281, 18348, 18425, 18606, 18729, 18789, 18868, 18994, 19045, 19181, 3328, 1, 19238, 1024, 2, 19442, 19497, 19572, 19699, 19745, 19815, 1280, 0, (-12887), 19954, 20020, 2240, 1, 20069, 20148, 20210, (-12493), 1984, 25, 20402, 20467, 20513, 20588, 20658, 20713, 20788, 20897, 2624, 1, 20980, 1024, 0, 21102, 21155, 21221, 3200, 0, 21300, 21363, 21420, 21541, (-11090), 2112, 256, 3648, 0, 21742, 21806, 2048, 8, 21871, 3456, 2, 21929, (-10778), (-10708), 22128, 22190, 22254, 1472, 0, 22312, 22452, 22565, 22638, 22693, 22767, 22830, 22900, 22949, (-9748), 23086, 23140, 23284, 23348, 23476, 23598, 23726, (-8983), 23858, 23916, 3392, 1, 24039, 24168, 24301, 24421, 24499, 1728, 0, 1728, 0, 24609, 24692, 24756, 24876, 24995, 25129, 25193, 25266, 25313, 25395, 3520, 1, 2368, 0, 25458, 25588, 25633, 25714, 25908, 26021, 26081, 26159, 26223, 2304, 9, 26277, 3584, 0, 1088, 0, 1024, 1, 26341, 26478, 26543, 1152, 0, 2176, 137, 1920, 268, 2688, 0, 26596, 1664, 3, 26669, 26725, 0, 2, 1344, 0, 2688, 0, 26796, 26867, 26927, 26988, 27113, 1984, 105, 27173, 27244, (-5389), 1152, 0, 3264, 1, 27448, 27500, 27630, 27698, 27762, 2560, 6, 27892, 27957, 28016, 28069, 28199, 28261, 28404, 28519, 2432, 0, 28579, 28711, 1984, 41, 28788, 28852, 1984, 57, 28967, 29101, 1856, 121, 29157, 29236, 29298, 2240, (-255), 29349, 3776, 0, 1280, 0, 29426, 2048, 0, 29477, 29551, 1216, 0, 1408, 32, 29601, 29671, 29737, 29807, 29874, 29985, 30066, 30192, 30316, 30437, 30510, 30567, 1984, 73, 30637, 1984, 121, 1024, 0, 1408, 0, 30770, 30885, 31026, 3776, 1, 1984, 89, 1280, 0, 31073, 31149, 1280, 0,  };
                                                                //    134       0,     5,-26642,  6194,-26523,  6329,-26385,-26247,     0,     0,
                                                                //    135    6585,-26132,-26066,  6776,-25887,-25815,-25746,  7151,-25562,  7342,
                                                                //    136  -25367,  7471,-25247,  7599,-25119,  7727,-24978,-24782,  8119,  8178,
                                                                //    137    8245,-24475,  8687,-24024,-23959,-23888,-23820,-23625,  9209,-23512,
                                                                //    138    9330,  9390,  9512,   512,   240,   320,    64,-23231,   704,     0,
                                                                //    139     786,     0,   384,   113,   640,     0,-23074,   384,   114,   384,
                                                                //    140     128,-22961,   320,    48,  1600,     1,-22835,-22692,-22563,-22434,
                                                                //    141     512,   240,-22307,   576,   240,-22179,-22050,   512,   240,-21923,
                                                                //    142     448,    68,   448,    68,   192,     0,-21814,   320,   112,-21695,
                                                                //    143  -21559,   384,    67,   832,     1, 11364, 11506, 11559, 11636,-21075,
                                                                //    144   11758, 11875, 11950, 12019, 12068,-20503, 12340, 12469, 12526,  2496,
                                                                //    145      11, 12594,  1664,     3, 12788, 12851, 12910, 12976, 13102, 13165,
                                                                //    146   13236,-19419,  3264,     1,  2816,     0, 13422, 13545, 13601,-19103,
                                                                //    147  -19037,-18969,-18896,-18829, 14004, 14069, 14127, 14183, 14245,-18463,
                                                                //    148  -18385, 14450, 14505, 14579, 14629, 14709,-18004, 14836, 14889,  3008,
                                                                //    149       0,   960,     0,   320,    64,   576,     0,   256,    64,   512,
                                                                //    150     240,   256,    64,   896,     0,   512,   240,   256,    64,   512,
                                                                //    151     240,   256,   112,   384,    68,  3072,     0,  2752,     0, 14945,
                                                                //    152   15017, 15077, 15149,-17549, 15284, 15340, 15393, 15461,-17169,  3712,
                                                                //    153       0, 15668,-16987, 15858, 15916, 15977,-16723,  3136,     0, 16101,
                                                                //    154   16180, 16295,  2496,     3, 16425, 16485,  2880,     0, 16630,  2048,
                                                                //    155       0, 16686, 16740, 16812, 17007, 17065, 17125, 17205, 17269, 17332,
                                                                //    156   17394, 17454, 17507, 17650, 17712, 17833, 17908, 17972, 18030, 18163,
                                                                //    157   18213, 18281, 18348, 18425, 18606, 18729, 18789, 18868, 18994, 19045,
                                                                //    158   19181,  3328,     1, 19238,  1024,     2, 19442, 19497, 19572, 19699,
                                                                //    159   19745, 19815,  1280,     0,-12887, 19954, 20020,  2240,     1, 20069,
                                                                //    160   20148, 20210,-12493,  1984,    25, 20402, 20467, 20513, 20588, 20658,
                                                                //    161   20713, 20788, 20897,  2624,     1, 20980,  1024,     0, 21102, 21155,
                                                                //    162   21221,  3200,     0, 21300, 21363, 21420, 21541,-11090,  2112,   256,
                                                                //    163    3648,     0, 21742, 21806,  2048,     8, 21871,  3456,     2, 21929,
                                                                //    164  -10778,-10708, 22128, 22190, 22254,  1472,     0, 22312, 22452, 22565,
                                                                //    165   22638, 22693, 22767, 22830, 22900, 22949, -9748, 23086, 23140, 23284,
                                                                //    166   23348, 23476, 23598, 23726, -8983, 23858, 23916,  3392,     1, 24039,
                                                                //    167   24168, 24301, 24421, 24499,  1728,     0,  1728,     0, 24609, 24692,
                                                                //    168   24756, 24876, 24995, 25129, 25193, 25266, 25313, 25395,  3520,     1,
                                                                //    169    2368,     0, 25458, 25588, 25633, 25714, 25908, 26021, 26081, 26159,
                                                                //    170   26223,  2304,     9, 26277,  3584,     0,  1088,     0,  1024,     1,
                                                                //    171   26341, 26478, 26543,  1152,     0,  2176,   137,  1920,   268,  2688,
                                                                //    172       0, 26596,  1664,     3, 26669, 26725,     0,     2,  1344,     0,
                                                                //    173    2688,     0, 26796, 26867, 26927, 26988, 27113,  1984,   105, 27173,
                                                                //    174   27244, -5389,  1152,     0,  3264,     1, 27448, 27500, 27630, 27698,
                                                                //    175   27762,  2560,     6, 27892, 27957, 28016, 28069, 28199, 28261, 28404,
                                                                //    176   28519,  2432,     0, 28579, 28711,  1984,    41, 28788, 28852,  1984,
                                                                //    177      57, 28967, 29101,  1856,   121, 29157, 29236, 29298,  2240,  -255,
                                                                //    178   29349,  3776,     0,  1280,     0, 29426,  2048,     0, 29477, 29551,
                                                                //    179    1216,     0,  1408,    32, 29601, 29671, 29737, 29807, 29874, 29985,
                                                                //    180   30066, 30192, 30316, 30437, 30510, 30567,  1984,    73, 30637,  1984,
                                                                //    181     121,  1024,     0,  1408,     0, 30770, 30885, 31026,  3776,     1,
                                                                //    182    1984,    89,  1280,     0, 31073, 31149,  1280,     0
                                                                //    183  
                                                                //    184  %CONSTSHORTINTEGERARRAY PHRASE( 109: 126) =  %C
#line 184 "regression-compile-tmp/check.imp"
const short PHRASE[18] = { 257, 249, 368, 430, 264, 269, 286, 298, 335, 345, 0, 452, 237, 374, 381, 0, 420, 437,  };
                                                                //    185    257,  249,  368,  430,  264,  269,  286,  298,  335,  345,
                                                                //    186      0,  452,  237,  374,  381,    0,  420,  437
                                                                //    187  
                                                                //    188  %CONSTINTEGER INITBASE = 472
                                                                //    189  
                                                                //    190  {%CONST}%OWNSHORTINTEGERARRAY GRAM( 0: 531) =  %C
#line 190 "regression-compile-tmp/check.imp"
static short GRAM[532] = { 66, 4084, 4511, 4898, 5028, 6440, 64, 7071, 7330, 5028, 64, 11553, 1955, 11685, 11945, 12273, 12321, 2467, 6439, 5617, 12429, 2996, 64, 5786, 5557, 5620, 2157, 12575, 12834, 6440, 64, 12954, 12955, 6961, 64, 13089, 6439, 5489, 4589, 13345, 1955, 12273, 7433, 12429, 64, 6005, 7602, 5557, 64, 7925, 13569, 13737, 64, 12429, 5630, 13089, 5489, 7149, 8257, 5557, 14068, 3250, 5558, 64, 8442, 8538, 4746, 12429, 64, 9042, 9200, 8963, 14217, 14350, 14479, 14617, 9927, 12429, 14763, 66, 14970, 15098, 15489, 64, 15729, 16129, 64, 8062, 16378, 5576, 12274, 16769, 64, 16897, 64, 5614, 5618, 69, 6439, 64, 12653, 5621, 17281, 64, 17409, 64, 17612, 13569, 64, 3124, 64, 18154, 18287, 9976, 9956, 116, 5599, 15199, 10378, 18319, 64, 18636, 15859, 10762, 12429, 64, 18897, 16479, 11274, 5557, 64, 19021, 17105, 17155, 12239, 19276, 19788, 17736, 19851, 19981, 64, 20218, 9964, 20225, 64, 20363, 64, 17616, 20619, 64, 19443, 22409, 12429, 64, 12275, 22905, 89, 9963, 23126, 23554, 64, 20806, 21279, 22306, 21796, 64, 23809, 24609, 24867, 64, 25089, 25889, 24867, 64, 21357, 22593, 26125, 26362, 26881, 64, 23242, 10378, 12429, 64, 5516, 64, 24014, 24330, 5516, 64, 23809, 20806, 27649, 64, 23809, 64, 25294, 28682, 25582, 20618, 5516, 64, 28929, 64, 22724, 26458, 22538, 29067, 29197, 64, 27084, 27402, 17804, 22905, 26881, 22905, 27854, 24586, 28147, 28426, 5516, 64, 27649, 20806, 25089, 64, 29390, 29562, 91, 25459, 29663, 29836, 64, 30046, 22538, 29197, 64, 30534, 31135, 31522, 31652, 40, 31691, 35, 39, 66, 31213, 35, 64, 32139, 64, 32385, 64, 32597, 32780, 64, 88, 33163, 66, 33402, 33503, 33676, 64, 98, 34049, 64, 34252, 33802, 66, 34597, 34801, 34955, 64, 35194, 35296, 35481, 64, 35677, 35834, 35936, 34954, 36236, 64, 36444, 34570, 66, 36875, 64, 37114, 37215, 37401, 64, 37608, 37754, 37855, 38028, 64, 99, 39937, 40847, 41104, 39569, 39058, 41363, 64, 41602, 12429, 14763, 66, 41737, 41870, 64, 40147, 40304, 40067, 14217, 14350, 14479, 9927, 41985, 64, 12429, 66, 42114, 64, 41184, 42346, 42479, 42582, 9953, 42746, 41196, 42864, 41195, 41162, 43126, 43520, 43691, 43820, 66, 67, 44022, 43382, 43691, 66, 44939, 44538, 45448, 45577, 45711, 67, 45173, 45824, 12, 64, 46202, 45544, 120, 46604, 64, 46313, 46728, 46857, 66, 44539, 47098, 46824, 105, 47361, 64, 47569, 47728, 47491, 66, 49281, 48770, 50182, 50311, 50443, 50607, 64, 50308, 50693, 51078, 66, 49492, 49648, 49411, 50308, 50693, 51078, 66, 51302, 51453, 51578, 51834, 50941, 51972, 49001, 52200, 52733, 48873, 48780, 64, 48816, 64, 52861, 52349, 52868, 52997, 49129, 52327, 50921, 53501, 53245, 53508, 52457, 52329, 53757, 53225, 54401, 2, 54539, 54703, 64, 47572, 45306, 54906, 48, 64, 55307, 66, 55546, 55615, 55306, 12, 64, 56175, 56288, 56457, 64, 56641, 56826, 56928, 57098, 64, 57338, 57440, 57610, 64, 57850, 96, 58057, 58251, 58479, 58618, 58721, 58977, 59142, 64, 59276, 64, 59621, 59782, 64, 58251, 64, 60005, 60143, 60257, 59142, 66, 0, 8833, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 40847, 41104, 39569, 39058, 41363, 5524, 10261, 5526, 10391, 0, 0, 5786, 6299, 0, 10525, 10782, 2079, 928, 0, 3362, 0, 1444, 0, 294, 0, 6440, 10921, 3498, 0, 0, 0, 0, 0, 0, 11185, 0, 11315, 0, 0, 6838, 2615, 5560, 11449, 5562, 59,  };
                                                                //    191      66,  4084,  4511,  4898,  5028,  6440,    64,  7071,  7330,  5028,
                                                                //    192      64, 11553,  1955, 11685, 11945, 12273, 12321,  2467,  6439,  5617,
                                                                //    193   12429,  2996,    64,  5786,  5557,  5620,  2157, 12575, 12834,  6440,
                                                                //    194      64, 12954, 12955,  6961,    64, 13089,  6439,  5489,  4589, 13345,
                                                                //    195    1955, 12273,  7433, 12429,    64,  6005,  7602,  5557,    64,  7925,
                                                                //    196   13569, 13737,    64, 12429,  5630, 13089,  5489,  7149,  8257,  5557,
                                                                //    197   14068,  3250,  5558,    64,  8442,  8538,  4746, 12429,    64,  9042,
                                                                //    198    9200,  8963, 14217, 14350, 14479, 14617,  9927, 12429, 14763,    66,
                                                                //    199   14970, 15098, 15489,    64, 15729, 16129,    64,  8062, 16378,  5576,
                                                                //    200   12274, 16769,    64, 16897,    64,  5614,  5618,    69,  6439,    64,
                                                                //    201   12653,  5621, 17281,    64, 17409,    64, 17612, 13569,    64,  3124,
                                                                //    202      64, 18154, 18287,  9976,  9956,   116,  5599, 15199, 10378, 18319,
                                                                //    203      64, 18636, 15859, 10762, 12429,    64, 18897, 16479, 11274,  5557,
                                                                //    204      64, 19021, 17105, 17155, 12239, 19276, 19788, 17736, 19851, 19981,
                                                                //    205      64, 20218,  9964, 20225,    64, 20363,    64, 17616, 20619,    64,
                                                                //    206   19443, 22409, 12429,    64, 12275, 22905,    89,  9963, 23126, 23554,
                                                                //    207      64, 20806, 21279, 22306, 21796,    64, 23809, 24609, 24867,    64,
                                                                //    208   25089, 25889, 24867,    64, 21357, 22593, 26125, 26362, 26881,    64,
                                                                //    209   23242, 10378, 12429,    64,  5516,    64, 24014, 24330,  5516,    64,
                                                                //    210   23809, 20806, 27649,    64, 23809,    64, 25294, 28682, 25582, 20618,
                                                                //    211    5516,    64, 28929,    64, 22724, 26458, 22538, 29067, 29197,    64,
                                                                //    212   27084, 27402, 17804, 22905, 26881, 22905, 27854, 24586, 28147, 28426,
                                                                //    213    5516,    64, 27649, 20806, 25089,    64, 29390, 29562,    91, 25459,
                                                                //    214   29663, 29836,    64, 30046, 22538, 29197,    64, 30534, 31135, 31522,
                                                                //    215   31652,    40, 31691,    35,    39,    66, 31213,    35,    64, 32139,
                                                                //    216      64, 32385,    64, 32597, 32780,    64,    88, 33163,    66, 33402,
                                                                //    217   33503, 33676,    64,    98, 34049,    64, 34252, 33802,    66, 34597,
                                                                //    218   34801, 34955,    64, 35194, 35296, 35481,    64, 35677, 35834, 35936,
                                                                //    219   34954, 36236,    64, 36444, 34570,    66, 36875,    64, 37114, 37215,
                                                                //    220   37401,    64, 37608, 37754, 37855, 38028,    64,    99, 39937, 40847,
                                                                //    221   41104, 39569, 39058, 41363,    64, 41602, 12429, 14763,    66, 41737,
                                                                //    222   41870,    64, 40147, 40304, 40067, 14217, 14350, 14479,  9927, 41985,
                                                                //    223      64, 12429,    66, 42114,    64, 41184, 42346, 42479, 42582,  9953,
                                                                //    224   42746, 41196, 42864, 41195, 41162, 43126, 43520, 43691, 43820,    66,
                                                                //    225      67, 44022, 43382, 43691,    66, 44939, 44538, 45448, 45577, 45711,
                                                                //    226      67, 45173, 45824,    12,    64, 46202, 45544,   120, 46604,    64,
                                                                //    227   46313, 46728, 46857,    66, 44539, 47098, 46824,   105, 47361,    64,
                                                                //    228   47569, 47728, 47491,    66, 49281, 48770, 50182, 50311, 50443, 50607,
                                                                //    229      64, 50308, 50693, 51078,    66, 49492, 49648, 49411, 50308, 50693,
                                                                //    230   51078,    66, 51302, 51453, 51578, 51834, 50941, 51972, 49001, 52200,
                                                                //    231   52733, 48873, 48780,    64, 48816,    64, 52861, 52349, 52868, 52997,
                                                                //    232   49129, 52327, 50921, 53501, 53245, 53508, 52457, 52329, 53757, 53225,
                                                                //    233   54401,     2, 54539, 54703,    64, 47572, 45306, 54906,    48,    64,
                                                                //    234   55307,    66, 55546, 55615, 55306,    12,    64, 56175, 56288, 56457,
                                                                //    235      64, 56641, 56826, 56928, 57098,    64, 57338, 57440, 57610,    64,
                                                                //    236   57850,    96, 58057, 58251, 58479, 58618, 58721, 58977, 59142,    64,
                                                                //    237   59276,    64, 59621, 59782,    64, 58251,    64, 60005, 60143, 60257,
                                                                //    238   59142,    66,     0,  8833,     0,     0,     0,     0,     0,     0,
                                                                //    239       0,     0,     0,     0,     0,     0,     0, 40847, 41104, 39569,
                                                                //    240   39058, 41363,  5524, 10261,  5526, 10391,     0,     0,  5786,  6299,
                                                                //    241       0, 10525, 10782,  2079,   928,     0,  3362,     0,  1444,     0,
                                                                //    242     294,     0,  6440, 10921,  3498,     0,     0,     0,     0,     0,
                                                                //    243       0, 11185,     0, 11315,     0,     0,  6838,  2615,  5560, 11449,
                                                                //    244    5562,    59
                                                                //    245  
                                                                //    246  !!END OF GENERATED SECTION
                                                                //    247  
                                                                //    248  {%CONST}%OWNBYTEINTEGERARRAY PERM(1:518) =  %C
#line 248 "regression-compile-tmp/check.imp"
static unsigned char PERM[518] = { 65, 68, 68, 82, 58, 11, 98, 65, 82, 67, 67, 79, 83, 58, 7, 34, 65, 82, 67, 83, 73, 78, 58, 7, 34, 65, 82, 82, 65, 89, 58, 252, 248, 65, 82, 67, 84, 65, 78, 58, 13, 34, 66, 89, 84, 69, 73, 78, 84, 69, 71, 69, 82, 58, 1, 74, 67, 72, 65, 82, 78, 79, 58, 14, 74, 67, 76, 79, 83, 69, 83, 84, 82, 69, 65, 77, 58, 1, 6, 67, 79, 83, 58, 7, 34, 69, 88, 80, 58, 7, 34, 70, 82, 65, 67, 80, 84, 58, 7, 34, 70, 82, 79, 77, 83, 84, 82, 73, 78, 71, 58, 15, 130, 73, 77, 79, 68, 58, 1, 98, 73, 78, 84, 58, 7, 98, 73, 78, 84, 80, 84, 58, 7, 98, 73, 78, 84, 69, 71, 69, 82, 58, 1, 106, 76, 69, 78, 71, 84, 72, 58, 10, 74, 76, 79, 71, 58, 7, 34, 76, 79, 78, 71, 82, 69, 65, 76, 58, 1, 26, 77, 79, 68, 58, 7, 34, 78, 69, 87, 76, 73, 78, 69, 58, 0, 6, 78, 69, 87, 76, 73, 78, 69, 83, 58, 1, 6, 78, 69, 87, 80, 65, 71, 69, 58, 0, 6, 78, 69, 88, 84, 73, 84, 69, 77, 58, 0, 130, 78, 69, 88, 84, 67, 72, 58, 0, 98, 78, 69, 88, 84, 83, 89, 77, 66, 79, 76, 58, 0, 98, 78, 76, 58, 0, 98, 80, 73, 58, 0, 34, 80, 82, 73, 78, 84, 58, 12, 6, 80, 82, 73, 78, 84, 67, 72, 58, 1, 6, 80, 82, 73, 78, 84, 70, 76, 58, 8, 6, 80, 82, 73, 78, 84, 83, 84, 82, 73, 78, 71, 58, 9, 6, 80, 82, 73, 78, 84, 83, 89, 77, 66, 79, 76, 58, 1, 6, 82, 65, 68, 73, 85, 83, 58, 13, 34, 82, 69, 65, 68, 58, 11, 6, 82, 69, 65, 68, 67, 72, 58, 11, 6, 82, 69, 65, 68, 73, 84, 69, 77, 58, 10, 6, 82, 69, 65, 68, 83, 84, 82, 73, 78, 71, 58, 10, 6, 82, 69, 65, 68, 83, 89, 77, 66, 79, 76, 58, 11, 6, 82, 69, 65, 76, 58, 1, 26, 82, 69, 67, 79, 82, 68, 58, 1, 10, 83, 69, 76, 69, 67, 84, 73, 78, 80, 85, 84, 58, 1, 6, 83, 69, 76, 69, 67, 84, 79, 85, 84, 80, 85, 84, 58, 1, 6, 83, 69, 84, 77, 65, 82, 71, 73, 78, 83, 58, 3, 6, 83, 72, 79, 82, 84, 73, 78, 84, 69, 71, 69, 82, 58, 1, 90, 83, 73, 78, 58, 7, 34, 83, 75, 73, 80, 83, 89, 77, 66, 79, 76, 58, 0, 6, 83, 80, 65, 67, 69, 58, 0, 6, 83, 80, 65, 67, 69, 83, 58, 1, 6, 83, 81, 82, 84, 58, 7, 34, 83, 84, 82, 73, 78, 71, 58, 1, 138, 84, 65, 78, 58, 7, 34, 84, 79, 83, 84, 82, 73, 78, 71, 58, 1, 130, 87, 82, 73, 84, 69, 58, 2, 6,  };
                                                                //    249  'A','D','D','R',':',X'0B',X'62',
                                                                //    250  'A','R','C','C','O','S',':',X'07',X'22',
                                                                //    251  'A','R','C','S','I','N',':',X'07',X'22',
                                                                //    252  'A','R','R','A','Y',':',X'FC',X'F8',
                                                                //    253  'A','R','C','T','A','N',':',X'0D',X'22',
                                                                //    254  'B','Y','T','E','I','N','T','E','G','E','R',':',X'01',X'4A',
                                                                //    255  'C','H','A','R','N','O',':',X'0E',X'4A',
                                                                //    256  'C','L','O','S','E','S','T','R','E','A','M',':',X'01',X'06',
                                                                //    257  'C','O','S',':',X'07',X'22',
                                                                //    258  'E','X','P',':',X'07',X'22',
                                                                //    259  'F','R','A','C','P','T',':',X'07',X'22',
                                                                //    260  'F','R','O','M','S','T','R','I','N','G',':',X'0F',X'82',
                                                                //    261  'I','M','O','D',':',X'01',X'62',
                                                                //    262  'I','N','T',':',X'07',X'62',
                                                                //    263  'I','N','T','P','T',':',X'07',X'62',
                                                                //    264  'I','N','T','E','G','E','R',':',X'01',X'6A',
                                                                //    265  'L','E','N','G','T','H',':',X'0A',X'4A',
                                                                //    266  'L','O','G',':',X'07',X'22',
                                                                //    267  'L','O','N','G','R','E','A','L',':',X'01',X'1A',
                                                                //    268  'M','O','D',':',X'07',X'22',
                                                                //    269  'N','E','W','L','I','N','E',':',X'00',X'06',
                                                                //    270  'N','E','W','L','I','N','E','S',':',X'01',X'06',
                                                                //    271  'N','E','W','P','A','G','E',':',X'00',X'06',
                                                                //    272  'N','E','X','T','I','T','E','M',':',X'00',X'82',
                                                                //    273  'N','E','X','T','C','H',':',X'00',X'62',
                                                                //    274  'N','E','X','T','S','Y','M','B','O','L',':',X'00',X'62',
                                                                //    275  'N','L',':',X'00',X'62',
                                                                //    276  'P','I',':',X'00',X'22',
                                                                //    277  'P','R','I','N','T',':',X'0C',X'06',
                                                                //    278  'P','R','I','N','T','C','H',':',X'01',X'06',
                                                                //    279  'P','R','I','N','T','F','L',':',X'08',X'06',
                                                                //    280  'P','R','I','N','T','S','T','R','I','N','G',':',X'09',X'06',
                                                                //    281  'P','R','I','N','T','S','Y','M','B','O','L',':',X'01',X'06',
                                                                //    282  'R','A','D','I','U','S',':',X'0D',X'22',
                                                                //    283  'R','E','A','D',':',X'0B',X'06',
                                                                //    284  'R','E','A','D','C','H',':',X'0B',X'06',
                                                                //    285  'R','E','A','D','I','T','E','M',':',X'0A',X'06',
                                                                //    286  'R','E','A','D','S','T','R','I','N','G',':',X'0A',X'06',
                                                                //    287  'R','E','A','D','S','Y','M','B','O','L',':',X'0B',X'06',
                                                                //    288  'R','E','A','L',':',X'01',X'1A',
                                                                //    289  'R','E','C','O','R','D',':',X'01',X'0A',
                                                                //    290  'S','E','L','E','C','T','I','N','P','U','T',':',X'01',X'06',
                                                                //    291  'S','E','L','E','C','T','O','U','T','P','U','T',':',X'01',X'06',
                                                                //    292  'S','E','T','M','A','R','G','I','N','S',':',X'03',X'06',
                                                                //    293  'S','H','O','R','T','I','N','T','E','G','E','R',':',X'01',X'5A',
                                                                //    294  'S','I','N',':',X'07',X'22',
                                                                //    295  'S','K','I','P','S','Y','M','B','O','L',':',X'00',X'06',
                                                                //    296  'S','P','A','C','E',':',X'00',X'06',
                                                                //    297  'S','P','A','C','E','S',':',X'01',X'06',
                                                                //    298  'S','Q','R','T',':',X'07',X'22',
                                                                //    299  'S','T','R','I','N','G',':',X'01',X'8A',
                                                                //    300  'T','A','N',':',X'07',X'22',
                                                                //    301  'T','O','S','T','R','I','N','G',':',X'01',X'82',
                                                                //    302  'W','R','I','T','E',':',X'02',X'06'
                                                                //    303  
                                                                //    304  
                                                                //    305  %ROUTINESPEC PRINT SS
#line 305 "regression-compile-tmp/check.imp"
auto void PRINTSS( void );
                                                                //    306  %ROUTINESPEC REPORT(%INTEGER N)
#line 306 "regression-compile-tmp/check.imp"
auto void REPORT( int N );
                                                                //    307  %ROUTINESPEC CODE ATOM
#line 307 "regression-compile-tmp/check.imp"
auto void CODEATOM( void );
                                                                //    308  %ROUTINESPEC POP CONTEXT
#line 308 "regression-compile-tmp/check.imp"
auto void POPCONTEXT( void );
                                                                //    309  %ROUTINESPEC DEFINE(%INTEGER DISP, VAL)
#line 309 "regression-compile-tmp/check.imp"
auto void DEFINE( int DISP, int VAL );
                                                                //    310  
                                                                //    311  %ROUTINE FAULT(%INTEGER N)
#line 311 "regression-compile-tmp/check.imp"
void FAULT( int N )
#line 311 "regression-compile-tmp/check.imp"
{
                                                                //    312      FAULTNUM = N %AND FAULTPOS = FPOS1 %IF FAULTNUM < 0
#line 312 "regression-compile-tmp/check.imp"
if (((FAULTNUM) >= (0))) goto L_0002;
#line 312 "regression-compile-tmp/check.imp"
FAULTNUM = N;
#line 312 "regression-compile-tmp/check.imp"
FAULTPOS = FPOS1;
#line 312 "regression-compile-tmp/check.imp"
L_0002:;
                                                                //    313  %END
#line 313 "regression-compile-tmp/check.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FAULT at level 2
                                                                //    314  
                                                                //    315  ! GRAM LAYOUT: LINK<9> CLASS<7>
                                                                //    316  %SWITCH A(0:127)
#line 316 "regression-compile-tmp/check.imp"
static int sw1_A_idx;
static const void * /*SWITCH*/ sw1_A[128] = { &&sw1_A_0, &&sw1_A_1, &&sw1_A_2, &&sw1_A_3, &&sw1_A_4, &&sw1_A_5, &&sw1_A_6, &&sw1_A_7, &&sw1_A_8, &&sw1_A_9, &&sw1_A_10, &&sw1_A_11, &&sw1_A_12, &&sw1_A_13, &&sw1_A_14, &&sw1_A_15, &&sw1_A_16, &&sw1_A_17, &&sw1_A_18, &&sw1_A_19, &&sw1_A_20, &&sw1_A_21, &&sw1_A_22, &&sw1_A_23, &&sw1_A_24, &&sw1_A_25, &&sw1_A_26, &&sw1_A_27, &&sw1_A_28, &&sw1_A_29, &&sw1_A_30, &&sw1_A_31, &&sw1_A_32, &&sw1_A_33, &&sw1_A_34, &&sw1_A_35, &&sw1_A_36, &&sw1_A_37, &&sw1_A_38, &&sw1_A_39, &&sw1_A_40, &&sw1_A_41, &&sw1_A_42, &&sw1_A_43, &&sw1_A_44, &&sw1_A_45, &&sw1_A_46, &&sw1_A_47, &&sw1_A_48, &&sw1_A_49, &&sw1_A_50, &&sw1_A_51, &&sw1_A_52, &&sw1_A_53, &&sw1_A_54, &&sw1_A_55, &&sw1_A_56, &&sw1_A_57, &&sw1_A_58, &&sw1_A_59, &&sw1_A_60, &&sw1_A_61, &&sw1_A_62, &&sw1_A_63, &&sw1_A_64, &&sw1_A_65, &&sw1_A_66, &&sw1_A_67, &&sw1_A_68, &&sw1_A_69, &&sw1_A_70, &&sw1_A_71, &&sw1_A_72, &&sw1_A_73, &&sw1_A_74, &&sw1_A_75, &&sw1_A_76, &&sw1_A_77, &&sw1_A_78, &&sw1_A_79, &&sw1_A_80, &&sw1_A_81, &&sw1_A_82, &&sw1_A_83, &&sw1_A_84, &&sw1_A_85, &&sw1_A_86, &&sw1_A_87, &&sw1_A_88, &&sw1_A_89, &&sw1_A_90, &&sw1_A_91, &&sw1_A_92, &&sw1_A_93, &&sw1_A_94, &&sw1_A_95, &&sw1_A_96, &&sw1_A_97, &&sw1_A_98, &&sw1_A_99, &&sw1_A_100, &&sw1_A_101, &&sw1_A_102, &&sw1_A_103, &&sw1_A_104, &&sw1_A_105, &&sw1_A_106, &&sw1_A_107, &&sw1_A_108, &&sw1_A_109, &&sw1_A_110, &&sw1_A_111, &&sw1_A_112, &&sw1_A_113, &&sw1_A_114, &&sw1_A_115, &&sw1_A_116, &&sw1_A_117, &&sw1_A_118, &&sw1_A_119, &&sw1_A_120, &&sw1_A_121, &&sw1_A_122, &&sw1_A_123, &&sw1_A_124, &&sw1_A_125, &&sw1_A_126, &&sw1_A_127,  };
                                                                //    317  %SWITCH X(0:4)
#line 317 "regression-compile-tmp/check.imp"
static int sw2_X_idx;
static const void * /*SWITCH*/ sw2_X[5] = { &&sw2_X_0, &&sw2_X_1, &&sw2_X_2, &&sw2_X_3, &&sw2_X_4,  };
                                                                //    318      TIME1 = CPUTIME
#line 318 "regression-compile-tmp/check.imp"
TIME1 = _imp_CPUTIME();
                                                                //    319      %CYCLE I = 0,1,255
#line 319 "regression-compile-tmp/check.imp"
I = (-1);
if ((((255)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 255");
L_0003:;
if (I == 255) goto L_0004;
I += 1;
                                                                //    320         INDEX(I) = 0
#line 320 "regression-compile-tmp/check.imp"
INDEX[I] = 0;
                                                                //    321      %REPEAT
#line 321 "regression-compile-tmp/check.imp"
goto L_0003;
#line 321 "regression-compile-tmp/check.imp"
L_0004:;
                                                                //    322      C = 0
#line 322 "regression-compile-tmp/check.imp"
C = (BLOCKINF){ 0 } /* Assign 0's to all fields of record */;
                                                                //    323      IDENTS = 0
#line 323 "regression-compile-tmp/check.imp"
IDENTS = 0;
                                                                //    324      PRINTPOS = 0;  PRECISION = 0;  LEVEL = 0
#line 324 "regression-compile-tmp/check.imp"
PRINTPOS = 0;
#line 324 "regression-compile-tmp/check.imp"
PRECISION = 0;
#line 324 "regression-compile-tmp/check.imp"
LEVEL = 0;
                                                                //    325      NEXTLINE = 1;  FAULTNUM = -1;  PARMAX = 15
#line 325 "regression-compile-tmp/check.imp"
NEXTLINE = 1;
#line 325 "regression-compile-tmp/check.imp"
FAULTNUM = (-1);
#line 325 "regression-compile-tmp/check.imp"
PARMAX = 15;
                                                                //    326      ADGRAM0 = ADDR(GRAM(0));  LINK1 = GRAM(1)>>6&1022+ADGRAM0
#line 326 "regression-compile-tmp/check.imp"
ADGRAM0 = _imp_ADDR(&GRAM[0]);
#line 326 "regression-compile-tmp/check.imp"
LINK1 = (((int)((((short)((((unsigned short)(GRAM[1])) >> (6)))) & (1022)))) + (ADGRAM0));
                                                                //    327      APPCONT = GRAM(GRAM(PHRASE(112))>>7&511)>>6&1022+ADGRAM0
#line 327 "regression-compile-tmp/check.imp"
APPCONT = (((int)((((short)((((unsigned short)(GRAM[(((short)((((unsigned short)(GRAM[(PHRASE-109)[112]])) >> (7)))) & (511))])) >> (6)))) & (1022)))) + (ADGRAM0));
                                                                //    328      DLIM = ADDR(DICT(1));  DBOUND = ADDR(DICT(4000))
#line 328 "regression-compile-tmp/check.imp"
DLIM = _imp_ADDR(&DICT[0]);
#line 328 "regression-compile-tmp/check.imp"
DBOUND = _imp_ADDR(&DICT[3999]);
                                                                //    329      FPOS = ADDR(PERM(1))-1;  FMAX = ADDR(PERM(518))
#line 329 "regression-compile-tmp/check.imp"
FPOS = (((int)(_imp_ADDR(&(PERM-1)[1]))) - (1));
#line 329 "regression-compile-tmp/check.imp"
FMAX = _imp_ADDR(&(PERM-1)[518]);
                                                                //    330      %CYCLE I = 1,1,54
#line 330 "regression-compile-tmp/check.imp"
I = 0;
if ((((54)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 54");
L_0006:;
if (I == 54) goto L_0007;
I += 1;
                                                                //    331         SYMCODE = 0
#line 331 "regression-compile-tmp/check.imp"
SYMCODE = 0;
                                                                //    332         CODE ATOM;  %MONITOR %AND %STOP %IF ATOM # IDENT
#line 332 "regression-compile-tmp/check.imp"
CODEATOM();
#line 332 "regression-compile-tmp/check.imp"
if (((ATOM) == (1))) goto L_0009;
#line 332 "regression-compile-tmp/check.imp"
_imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__);
#line 332 "regression-compile-tmp/check.imp"
exit(0);
#line 332 "regression-compile-tmp/check.imp"
L_0009:;
                                                                //    333         INTEGER(DLIM) = BYTEINTEGER(FPOS+1)<<8+BYTEINTEGER(FPOS+2)
#line 333 "regression-compile-tmp/check.imp"
*_imp_INTEGER(DLIM) = (((unsigned char)(((*_imp_BYTEINTEGER((((int)(FPOS)) + (1)))) << (8)))) + (*_imp_BYTEINTEGER((((int)(FPOS)) + (2)))));
                                                                //    334         FPOS = FPOS+2
#line 334 "regression-compile-tmp/check.imp"
FPOS = (((int)(FPOS)) + (2));
                                                                //    335         INTEGER(DLIM+4) = 0
#line 335 "regression-compile-tmp/check.imp"
*_imp_INTEGER((((int)(DLIM)) + (4))) = 0;
                                                                //    336         INTEGER(DLIM+8) = HEAD;  HEAD = DLIM
#line 336 "regression-compile-tmp/check.imp"
*_imp_INTEGER((((int)(DLIM)) + (8))) = *HEAD;
#line 336 "regression-compile-tmp/check.imp"
*HEAD = DLIM;
                                                                //    337         DLIM = NEWDLIM
#line 337 "regression-compile-tmp/check.imp"
DLIM = NEWDLIM;
                                                                //    338      %REPEAT
#line 338 "regression-compile-tmp/check.imp"
goto L_0006;
#line 338 "regression-compile-tmp/check.imp"
L_0007:;
                                                                //    339      C_LOCAL = DLIM
#line 339 "regression-compile-tmp/check.imp"
C.LOCAL = DLIM;
                                                                //    340      FPOS = FSTART-1;  FMAX = FPOS+FSIZE
#line 340 "regression-compile-tmp/check.imp"
FPOS = (((int)(FSTART)) - (1));
#line 340 "regression-compile-tmp/check.imp"
FMAX = (((int)(FPOS)) + (FSIZE));
                                                                //    341      SYMCODE = 0
#line 341 "regression-compile-tmp/check.imp"
SYMCODE = 0;
                                                                //    342  L1: ->ENDED %IF FPOS >= FMAX
#line 342 "regression-compile-tmp/check.imp"
U_1000:;
#line 342 "regression-compile-tmp/check.imp"
if (((FPOS) < (FMAX))) goto L_000a;
#line 342 "regression-compile-tmp/check.imp"
goto U_1001;
#line 342 "regression-compile-tmp/check.imp"
L_000a:;
                                                                //    343      LINEBASE = FPOS;  LINE = NEXTLINE
#line 343 "regression-compile-tmp/check.imp"
LINEBASE = FPOS;
#line 343 "regression-compile-tmp/check.imp"
LINE = NEXTLINE;
                                                                //    344  L3: ATOM = JUMP;  !FOR NUMERIC LABEL DETECTION
#line 344 "regression-compile-tmp/check.imp"
U_1002:;
#line 344 "regression-compile-tmp/check.imp"
ATOM = 15;
                                                                //    345      SKIPMIN = SKIP1MIN;  !TO IGNORE NULL STATEMENTS AND COMMENTS
#line 345 "regression-compile-tmp/check.imp"
SKIPMIN = 86;
                                                                //    346      CODE ATOM
#line 346 "regression-compile-tmp/check.imp"
CODEATOM();
                                                                //    347      SKIPMIN = NLCODE
#line 347 "regression-compile-tmp/check.imp"
SKIPMIN = 127;
                                                                //    348      STATS = STATS+1
#line 348 "regression-compile-tmp/check.imp"
STATS = (((int)(STATS)) + (1));
                                                                //    349      EXTIND = 0;  DECLTYPE = 0
#line 349 "regression-compile-tmp/check.imp"
EXTIND = 0;
#line 349 "regression-compile-tmp/check.imp"
DECLTYPE = 0;
                                                                //    350      CONSTCOUNT = 0;  DIMCOUNT = 0
#line 350 "regression-compile-tmp/check.imp"
CONSTCOUNT = 0;
#line 350 "regression-compile-tmp/check.imp"
DIMCOUNT = 0;
                                                                //    351      NP = 51
#line 351 "regression-compile-tmp/check.imp"
NP = 51;
                                                                //    352      LINKMAX = 1;  LINK(1) = LINK1;    !FOR GRATUITOUS PHRASE EXIT
#line 352 "regression-compile-tmp/check.imp"
LINKMAX = 1;
#line 352 "regression-compile-tmp/check.imp"
LINK[0] = LINK1;
                                                                //    353      I = GRAM(INITBASE+ATOM)
#line 353 "regression-compile-tmp/check.imp"
I = GRAM[(((int)(472)) + (ATOM))];
                                                                //    354      ->ERR %IF I = 0
#line 354 "regression-compile-tmp/check.imp"
if (((I) != (0))) goto L_000b;
#line 354 "regression-compile-tmp/check.imp"
goto U_1003;
#line 354 "regression-compile-tmp/check.imp"
L_000b:;
                                                                //    355      G = I>>6&1022+ADGRAM0
#line 355 "regression-compile-tmp/check.imp"
G = (((int)((((int)((((unsigned int)(I)) >> (6)))) & (1022)))) + (ADGRAM0));
                                                                //    356      ->A(ATOM)
#line 356 "regression-compile-tmp/check.imp"
sw1_A_idx = ATOM; if ((0 <= sw1_A_idx) && (sw1_A_idx <= 127)) goto *sw1_A[sw1_A_idx]; else {
   /*_imp_signal(8, 2, sw1_A_idx);*/
   fprintf(stderr, "%%SWITCH index A(%d) not in range 0:127 at %s:%d\n",
           sw1_A_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //    357  A(1): !IDENT
#line 357 "regression-compile-tmp/check.imp"
sw1_A_1:;
                                                                //    358  A(6): !OP3
#line 358 "regression-compile-tmp/check.imp"
sw1_A_6:;
                                                                //    359  A(9): !EQ
#line 359 "regression-compile-tmp/check.imp"
sw1_A_9:;
                                                                //    360  A(13): !NL
#line 360 "regression-compile-tmp/check.imp"
sw1_A_13:;
                                                                //    361  A(25): !COLON
#line 361 "regression-compile-tmp/check.imp"
sw1_A_25:;
                                                                //    362      I = SHORTINTEGER(G); G = I>>6&1022+ADGRAM0
#line 362 "regression-compile-tmp/check.imp"
I = *_imp_SHORTINTEGER(G);
#line 362 "regression-compile-tmp/check.imp"
G = (((int)((((int)((((unsigned int)(I)) >> (6)))) & (1022)))) + (ADGRAM0));
                                                                //    363      ->A(I&127)
#line 363 "regression-compile-tmp/check.imp"
sw1_A_idx = ((I) & (127)); if ((0 <= sw1_A_idx) && (sw1_A_idx <= 127)) goto *sw1_A[sw1_A_idx]; else {
   /*_imp_signal(8, 2, sw1_A_idx);*/
   fprintf(stderr, "%%SWITCH index A(%d) not in range 0:127 at %s:%d\n",
           sw1_A_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //    364  A(10): A(11): A(12): A(15): A(18): A(19): A(20):
#line 364 "regression-compile-tmp/check.imp"
sw1_A_10:;
#line 364 "regression-compile-tmp/check.imp"
sw1_A_11:;
#line 364 "regression-compile-tmp/check.imp"
sw1_A_12:;
#line 364 "regression-compile-tmp/check.imp"
sw1_A_15:;
#line 364 "regression-compile-tmp/check.imp"
sw1_A_18:;
#line 364 "regression-compile-tmp/check.imp"
sw1_A_19:;
#line 364 "regression-compile-tmp/check.imp"
sw1_A_20:;
                                                                //    365  A(21): A(23): A(27): A(37):
#line 365 "regression-compile-tmp/check.imp"
sw1_A_21:;
#line 365 "regression-compile-tmp/check.imp"
sw1_A_23:;
#line 365 "regression-compile-tmp/check.imp"
sw1_A_27:;
#line 365 "regression-compile-tmp/check.imp"
sw1_A_37:;
                                                                //    366  A(43): A(44): A(45):
#line 366 "regression-compile-tmp/check.imp"
sw1_A_43:;
#line 366 "regression-compile-tmp/check.imp"
sw1_A_44:;
#line 366 "regression-compile-tmp/check.imp"
sw1_A_45:;
                                                                //    367  A(47): A(48): A(50): A(57): A(65):
#line 367 "regression-compile-tmp/check.imp"
sw1_A_47:;
#line 367 "regression-compile-tmp/check.imp"
sw1_A_48:;
#line 367 "regression-compile-tmp/check.imp"
sw1_A_50:;
#line 367 "regression-compile-tmp/check.imp"
sw1_A_57:;
#line 367 "regression-compile-tmp/check.imp"
sw1_A_65:;
                                                                //    368  CODE:
#line 368 "regression-compile-tmp/check.imp"
U_1004:;
                                                                //    369      CODE ATOM
#line 369 "regression-compile-tmp/check.imp"
CODEATOM();
                                                                //    370  ON:
#line 370 "regression-compile-tmp/check.imp"
U_1005:;
                                                                //    371  REP:%CYCLE
#line 371 "regression-compile-tmp/check.imp"
U_1006:;
#line 371 "regression-compile-tmp/check.imp"
L_000c:;
                                                                //    372  !     LOOPS = LOOPS+1
                                                                //    373         CLASS = SHORTINTEGER(G)&127
#line 373 "regression-compile-tmp/check.imp"
CLASS = ((*_imp_SHORTINTEGER(G)) & (127));
                                                                //    374         %EXIT %IF CLASS >= 60 %OR CLASS = ATOM
#line 374 "regression-compile-tmp/check.imp"
if (((CLASS) >= (60))) goto L_000f;
#line 374 "regression-compile-tmp/check.imp"
if (((CLASS) != (ATOM))) goto L_0010;
#line 374 "regression-compile-tmp/check.imp"
L_000f:;
#line 374 "regression-compile-tmp/check.imp"
goto L_000d;
#line 374 "regression-compile-tmp/check.imp"
L_0010:;
                                                                //    375         G = G+2
#line 375 "regression-compile-tmp/check.imp"
G = (((int)(G)) + (2));
                                                                //    376      %REPEAT
#line 376 "regression-compile-tmp/check.imp"
goto L_000c;
#line 376 "regression-compile-tmp/check.imp"
L_000d:;
                                                                //    377      G = SHORTINTEGER(G)>>6&1022+ADGRAM0
#line 377 "regression-compile-tmp/check.imp"
G = (((int)((((short)(((*(unsigned short *)(_imp_SHORTINTEGER(G))) >> (6)))) & (1022)))) + (ADGRAM0));
                                                                //    378      ->A(CLASS)
#line 378 "regression-compile-tmp/check.imp"
sw1_A_idx = CLASS; if ((0 <= sw1_A_idx) && (sw1_A_idx <= 127)) goto *sw1_A[sw1_A_idx]; else {
   /*_imp_signal(8, 2, sw1_A_idx);*/
   fprintf(stderr, "%%SWITCH index A(%d) not in range 0:127 at %s:%d\n",
           sw1_A_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //    379  A(109): A(110): A(111): A(113): A(114):
#line 379 "regression-compile-tmp/check.imp"
sw1_A_109:;
#line 379 "regression-compile-tmp/check.imp"
sw1_A_110:;
#line 379 "regression-compile-tmp/check.imp"
sw1_A_111:;
#line 379 "regression-compile-tmp/check.imp"
sw1_A_113:;
#line 379 "regression-compile-tmp/check.imp"
sw1_A_114:;
                                                                //    380  A(115): A(116): A(117): A(118): A(119):
#line 380 "regression-compile-tmp/check.imp"
sw1_A_115:;
#line 380 "regression-compile-tmp/check.imp"
sw1_A_116:;
#line 380 "regression-compile-tmp/check.imp"
sw1_A_117:;
#line 380 "regression-compile-tmp/check.imp"
sw1_A_118:;
#line 380 "regression-compile-tmp/check.imp"
sw1_A_119:;
                                                                //    381  A(120): A(121): A(122): A(123): A(124):
#line 381 "regression-compile-tmp/check.imp"
sw1_A_120:;
#line 381 "regression-compile-tmp/check.imp"
sw1_A_121:;
#line 381 "regression-compile-tmp/check.imp"
sw1_A_122:;
#line 381 "regression-compile-tmp/check.imp"
sw1_A_123:;
#line 381 "regression-compile-tmp/check.imp"
sw1_A_124:;
                                                                //    382  A(125): A(126):
#line 382 "regression-compile-tmp/check.imp"
sw1_A_125:;
#line 382 "regression-compile-tmp/check.imp"
sw1_A_126:;
                                                                //    383  ENTER:
#line 383 "regression-compile-tmp/check.imp"
U_1007:;
                                                                //    384      LINKMAX = LINKMAX+1;  ->ERR %IF LINKMAX > 20
#line 384 "regression-compile-tmp/check.imp"
LINKMAX = (((int)(LINKMAX)) + (1));
#line 384 "regression-compile-tmp/check.imp"
if (((LINKMAX) <= (20))) goto L_0011;
#line 384 "regression-compile-tmp/check.imp"
goto U_1003;
#line 384 "regression-compile-tmp/check.imp"
L_0011:;
                                                                //    385      LINK(LINKMAX) = G
#line 385 "regression-compile-tmp/check.imp"
LINK[(((int)(LINKMAX)) - (1))] = G;
                                                                //    386      G = PHRASE(CLASS)<<1+ADGRAM0
#line 386 "regression-compile-tmp/check.imp"
G = (((int)((((PHRASE-109)[CLASS]) << (1)))) + (ADGRAM0));
                                                                //    387      ->REP
#line 387 "regression-compile-tmp/check.imp"
goto U_1006;
                                                                //    388  A(66):
#line 388 "regression-compile-tmp/check.imp"
sw1_A_66:;
                                                                //    389  EXIT:
#line 389 "regression-compile-tmp/check.imp"
U_1008:;
                                                                //    390      G = LINK(LINKMAX);  LINKMAX = LINKMAX-1
#line 390 "regression-compile-tmp/check.imp"
G = LINK[(((int)(LINKMAX)) - (1))];
#line 390 "regression-compile-tmp/check.imp"
LINKMAX = (((int)(LINKMAX)) - (1));
                                                                //    391      ->REP
#line 391 "regression-compile-tmp/check.imp"
goto U_1006;
                                                                //    392      
                                                                //    393  A(67): !ALT (ALTERNATIVE PHRASE RECOGNISED)
#line 393 "regression-compile-tmp/check.imp"
sw1_A_67:;
                                                                //    394      I = SHORTINTEGER(LINK(LINKMAX));  LINKMAX = LINKMAX-1
#line 394 "regression-compile-tmp/check.imp"
I = *_imp_SHORTINTEGER(LINK[(((int)(LINKMAX)) - (1))]);
#line 394 "regression-compile-tmp/check.imp"
LINKMAX = (((int)(LINKMAX)) - (1));
                                                                //    395      ->ERR %IF I&127 # 0;  !NO ALTERNATIVE
#line 395 "regression-compile-tmp/check.imp"
if (((((I) & (127))) == (0))) goto L_0012;
#line 395 "regression-compile-tmp/check.imp"
goto U_1003;
#line 395 "regression-compile-tmp/check.imp"
L_0012:;
                                                                //    396      G = I>>6&1022+ADGRAM0
#line 396 "regression-compile-tmp/check.imp"
G = (((int)((((int)((((unsigned int)(I)) >> (6)))) & (1022)))) + (ADGRAM0));
                                                                //    397      ->ON
#line 397 "regression-compile-tmp/check.imp"
goto U_1005;
                                                                //    398  A(68): !BREAK (TERMINATOR WITHIN CONST LIST)
#line 398 "regression-compile-tmp/check.imp"
sw1_A_68:;
                                                                //    399      REPORT(FAULTNUM) %IF FAULTNUM >= 0
#line 399 "regression-compile-tmp/check.imp"
if (((FAULTNUM) < (0))) goto L_0013;
#line 399 "regression-compile-tmp/check.imp"
REPORT(FAULTNUM);
#line 399 "regression-compile-tmp/check.imp"
L_0013:;
                                                                //    400      %IF ATOMTYPE = 0 %START;  !NL
#line 400 "regression-compile-tmp/check.imp"
if (((ATOMTYPE) != (0))) goto L_0014;
                                                                //    401         LINEBASE = FPOS;  LINE = NEXTLINE
#line 401 "regression-compile-tmp/check.imp"
LINEBASE = FPOS;
#line 401 "regression-compile-tmp/check.imp"
LINE = NEXTLINE;
                                                                //    402      %FINISH
#line 402 "regression-compile-tmp/check.imp"
L_0014:;
                                                                //    403      ->CODE
#line 403 "regression-compile-tmp/check.imp"
goto U_1004;
                                                                //    404  
                                                                //    405  UNKNOWN:
#line 405 "regression-compile-tmp/check.imp"
U_1009:;
                                                                //    406      %WHILE DPOS < 0 %CYCLE
#line 406 "regression-compile-tmp/check.imp"
L_0015:;
#line 406 "regression-compile-tmp/check.imp"
if (((DPOS) >= (0))) goto L_0016;
                                                                //    407         ->IGNORE %IF STRING(-DPOS+4) = STRING(DLIM+12)
#line 407 "regression-compile-tmp/check.imp"
if ((_imp_strcmp(*_imp_STRING((((-(DPOS))) + (4))), *_imp_STRING((((int)(DLIM)) + (12)))) != 0)) goto L_0018;
#line 407 "regression-compile-tmp/check.imp"
goto U_100a;
#line 407 "regression-compile-tmp/check.imp"
L_0018:;
                                                                //    408         DPOS = INTEGER(-DPOS)
#line 408 "regression-compile-tmp/check.imp"
DPOS = *_imp_INTEGER((-(DPOS)));
                                                                //    409      %REPEAT
#line 409 "regression-compile-tmp/check.imp"
goto L_0015;
#line 409 "regression-compile-tmp/check.imp"
L_0016:;
                                                                //    410      FAULT(2)
#line 410 "regression-compile-tmp/check.imp"
FAULT(2);
                                                                //    411      %CYCLE
#line 411 "regression-compile-tmp/check.imp"
L_0019:;
                                                                //    412         DBOUND = DBOUND-4;  NEWDLIM = NEWDLIM-4
#line 412 "regression-compile-tmp/check.imp"
DBOUND = (((int)(DBOUND)) - (4));
#line 412 "regression-compile-tmp/check.imp"
NEWDLIM = (((int)(NEWDLIM)) - (4));
                                                                //    413         %EXIT %IF NEWDLIM = DLIM+8
#line 413 "regression-compile-tmp/check.imp"
if (((NEWDLIM) != ((((int)(DLIM)) + (8))))) goto L_001c;
#line 413 "regression-compile-tmp/check.imp"
goto L_001a;
#line 413 "regression-compile-tmp/check.imp"
L_001c:;
                                                                //    414         INTEGER(DBOUND) = INTEGER(NEWDLIM)
#line 414 "regression-compile-tmp/check.imp"
*_imp_INTEGER(DBOUND) = *_imp_INTEGER(NEWDLIM);
                                                                //    415      %REPEAT
#line 415 "regression-compile-tmp/check.imp"
goto L_0019;
#line 415 "regression-compile-tmp/check.imp"
L_001a:;
                                                                //    416      HEAD == INTEGER(HEAD+8) %WHILE HEAD > 0
#line 416 "regression-compile-tmp/check.imp"
L_001d:;
#line 416 "regression-compile-tmp/check.imp"
if (((*HEAD) <= (0))) goto L_001e;
#line 416 "regression-compile-tmp/check.imp"
HEAD = _imp_INTEGER(((*(int *)(HEAD)) + (8)));
#line 416 "regression-compile-tmp/check.imp"
goto L_001d;
#line 416 "regression-compile-tmp/check.imp"
L_001e:;
                                                                //    417      INTEGER(DBOUND) = HEAD;  HEAD = -DBOUND
#line 417 "regression-compile-tmp/check.imp"
*_imp_INTEGER(DBOUND) = *HEAD;
#line 417 "regression-compile-tmp/check.imp"
*HEAD = (-(DBOUND));
                                                                //    418      ->IGNORE
#line 418 "regression-compile-tmp/check.imp"
goto U_100a;
                                                                //    419  MODERR:
#line 419 "regression-compile-tmp/check.imp"
U_100b:;
                                                                //    420      FAULT(3)
#line 420 "regression-compile-tmp/check.imp"
FAULT(3);
                                                                //    421      ->IGNORE
#line 421 "regression-compile-tmp/check.imp"
goto U_100a;
                                                                //    422  A(0): A(64):
#line 422 "regression-compile-tmp/check.imp"
sw1_A_0:;
#line 422 "regression-compile-tmp/check.imp"
sw1_A_64:;
                                                                //    423  ERR:FAULTNUM = 0;  FAULTNUM = ATOMTYPE %IF ATOM = 0
#line 423 "regression-compile-tmp/check.imp"
U_1003:;
#line 423 "regression-compile-tmp/check.imp"
FAULTNUM = 0;
#line 423 "regression-compile-tmp/check.imp"
if (((ATOM) != (0))) goto L_0020;
#line 423 "regression-compile-tmp/check.imp"
FAULTNUM = ATOMTYPE;
#line 423 "regression-compile-tmp/check.imp"
L_0020:;
                                                                //    424      ->DISASTER %IF FAULTNUM = 99
#line 424 "regression-compile-tmp/check.imp"
if (((FAULTNUM) != (99))) goto L_0021;
#line 424 "regression-compile-tmp/check.imp"
goto U_100c;
#line 424 "regression-compile-tmp/check.imp"
L_0021:;
                                                                //    425      FAULTPOS = FPOS1
#line 425 "regression-compile-tmp/check.imp"
FAULTPOS = FPOS1;
                                                                //    426  IGNORE:
#line 426 "regression-compile-tmp/check.imp"
U_100a:;
                                                                //    427      I=ATOM %AND CODE ATOM %WHILE ATOM # TERMINATOR
#line 427 "regression-compile-tmp/check.imp"
L_0022:;
#line 427 "regression-compile-tmp/check.imp"
if (((ATOM) == (13))) goto L_0023;
#line 427 "regression-compile-tmp/check.imp"
I = ATOM;
#line 427 "regression-compile-tmp/check.imp"
CODEATOM();
#line 427 "regression-compile-tmp/check.imp"
goto L_0022;
#line 427 "regression-compile-tmp/check.imp"
L_0023:;
                                                                //    428      C_STACK = C_STACK<<2+3 %IF I = START
#line 428 "regression-compile-tmp/check.imp"
if (((I) != (53))) goto L_0025;
#line 428 "regression-compile-tmp/check.imp"
C.STACK = (((int)(((C.STACK) << (2)))) + (3));
#line 428 "regression-compile-tmp/check.imp"
L_0025:;
                                                                //    429      C_STACK = C_STACK<<2+2 %IF I = CYCLE
#line 429 "regression-compile-tmp/check.imp"
if (((I) != (54))) goto L_0026;
#line 429 "regression-compile-tmp/check.imp"
C.STACK = (((int)(((C.STACK) << (2)))) + (2));
#line 429 "regression-compile-tmp/check.imp"
L_0026:;
                                                                //    430      REPORT(FAULTNUM) %IF FAULTNUM >= 0
#line 430 "regression-compile-tmp/check.imp"
if (((FAULTNUM) < (0))) goto L_0027;
#line 430 "regression-compile-tmp/check.imp"
REPORT(FAULTNUM);
#line 430 "regression-compile-tmp/check.imp"
L_0027:;
                                                                //    431      %WHILE I = COMMA %AND ATOMTYPE = 0 %CYCLE
#line 431 "regression-compile-tmp/check.imp"
L_0028:;
#line 431 "regression-compile-tmp/check.imp"
if (((I) != (10))) goto L_0029;
#line 431 "regression-compile-tmp/check.imp"
if (((ATOMTYPE) != (0))) goto L_0029;
                                                                //    432         I=ATOM %AND CODE ATOM %UNTIL ATOM = TERMINATOR
#line 432 "regression-compile-tmp/check.imp"
L_002b:;
#line 432 "regression-compile-tmp/check.imp"
I = ATOM;
#line 432 "regression-compile-tmp/check.imp"
CODEATOM();
#line 432 "regression-compile-tmp/check.imp"
if (((ATOM) == (13))) goto L_002c;
#line 432 "regression-compile-tmp/check.imp"
goto L_002b;
#line 432 "regression-compile-tmp/check.imp"
L_002c:;
                                                                //    433      %REPEAT
#line 433 "regression-compile-tmp/check.imp"
goto L_0028;
#line 433 "regression-compile-tmp/check.imp"
L_0029:;
                                                                //    434  A(69): !FIN
#line 434 "regression-compile-tmp/check.imp"
sw1_A_69:;
                                                                //    435  FIN:REPORT(FAULTNUM) %IF FAULTNUM >= 0
#line 435 "regression-compile-tmp/check.imp"
U_100d:;
#line 435 "regression-compile-tmp/check.imp"
if (((FAULTNUM) < (0))) goto L_002e;
#line 435 "regression-compile-tmp/check.imp"
REPORT(FAULTNUM);
#line 435 "regression-compile-tmp/check.imp"
L_002e:;
                                                                //    436      %IF C_BTYPE&1 # 0 %START;  !PSEUDO BLOCK ENTRY FOR SPEC
#line 436 "regression-compile-tmp/check.imp"
if (((((C.BTYPE) & (1))) == (0))) goto L_002f;
                                                                //    437         DLIM = C_LOCAL
#line 437 "regression-compile-tmp/check.imp"
DLIM = C.LOCAL;
                                                                //    438         C = HOLD(LEVEL);  LEVEL = LEVEL-1
#line 438 "regression-compile-tmp/check.imp"
C = HOLD[(((int)(LEVEL)) - (1))];
#line 438 "regression-compile-tmp/check.imp"
LEVEL = (((int)(LEVEL)) - (1));
                                                                //    439      %FINISH
#line 439 "regression-compile-tmp/check.imp"
L_002f:;
                                                                //    440      ->L3 %IF ATOMTYPE # 0;  !COLON OR SEMI-COLON
#line 440 "regression-compile-tmp/check.imp"
if (((ATOMTYPE) == (0))) goto L_0030;
#line 440 "regression-compile-tmp/check.imp"
goto U_1002;
#line 440 "regression-compile-tmp/check.imp"
L_0030:;
                                                                //    441      ->L1;  !NEWLINE
#line 441 "regression-compile-tmp/check.imp"
goto U_1000;
                                                                //    442  DISASTER:
#line 442 "regression-compile-tmp/check.imp"
U_100c:;
                                                                //    443      PRINT STRING("** SPACE EXHAUSTED AT LINE");  WRITE(NEXTLINE,1)
#line 443 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("** SPACE EXHAUSTED AT LINE"));
#line 443 "regression-compile-tmp/check.imp"
_imp_WRITE(NEXTLINE, 1);
                                                                //    444      NEWLINE
#line 444 "regression-compile-tmp/check.imp"
_imp_NEWLINE();
                                                                //    445      %RETURN
#line 445 "regression-compile-tmp/check.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    446  
                                                                //    447  A(74):
#line 447 "regression-compile-tmp/check.imp"
sw1_A_74:;
                                                                //    448  NAPP:
#line 448 "regression-compile-tmp/check.imp"
U_100e:;
                                                                //    449      -> ON %IF TYPE&APPMASK = 0
#line 449 "regression-compile-tmp/check.imp"
if (((((TYPE) & (65280))) != (0))) goto L_0031;
#line 449 "regression-compile-tmp/check.imp"
goto U_1005;
#line 449 "regression-compile-tmp/check.imp"
L_0031:;
                                                                //    450      ->ERR
#line 450 "regression-compile-tmp/check.imp"
goto U_1003;
                                                                //    451  ER20:
#line 451 "regression-compile-tmp/check.imp"
U_100f:;
                                                                //    452      FAULT(20)
#line 452 "regression-compile-tmp/check.imp"
FAULT(20);
                                                                //    453      ->NAPP
#line 453 "regression-compile-tmp/check.imp"
goto U_100e;
                                                                //    454  ER22:
#line 454 "regression-compile-tmp/check.imp"
U_1010:;
                                                                //    455      FAULT(22)
#line 455 "regression-compile-tmp/check.imp"
FAULT(22);
                                                                //    456      ->NAPP
#line 456 "regression-compile-tmp/check.imp"
goto U_100e;
                                                                //    457  
                                                                //    458  A(22): !PREC
#line 458 "regression-compile-tmp/check.imp"
sw1_A_22:;
                                                                //    459      PRECISION = ATOMTYPE
#line 459 "regression-compile-tmp/check.imp"
PRECISION = ATOMTYPE;
                                                                //    460      ->CODE
#line 460 "regression-compile-tmp/check.imp"
goto U_1004;
                                                                //    461  A(38): !EXTERNAL
#line 461 "regression-compile-tmp/check.imp"
sw1_A_38:;
                                                                //    462  A(42): !SYSTEM,DYNAMIC
#line 462 "regression-compile-tmp/check.imp"
sw1_A_42:;
                                                                //    463      EXTIND = 1
#line 463 "regression-compile-tmp/check.imp"
EXTIND = 1;
                                                                //    464      ->CODE
#line 464 "regression-compile-tmp/check.imp"
goto U_1004;
                                                                //    465  A(70): !RESET
#line 465 "regression-compile-tmp/check.imp"
sw1_A_70:;
                                                                //    466      DECLTYPE = 0
#line 466 "regression-compile-tmp/check.imp"
DECLTYPE = 0;
                                                                //    467      ->ON
#line 467 "regression-compile-tmp/check.imp"
goto U_1005;
                                                                //    468  A(36): !RECORD
#line 468 "regression-compile-tmp/check.imp"
sw1_A_36:;
                                                                //    469      RECIDENTS = DLIM
#line 469 "regression-compile-tmp/check.imp"
RECIDENTS = DLIM;
                                                                //    470  A(29): !REG
#line 470 "regression-compile-tmp/check.imp"
sw1_A_29:;
                                                                //    471  A(30): !SWITCH
#line 471 "regression-compile-tmp/check.imp"
sw1_A_30:;
                                                                //    472  A(31): !NTYPE
#line 472 "regression-compile-tmp/check.imp"
sw1_A_31:;
                                                                //    473  A(32): !OWN
#line 473 "regression-compile-tmp/check.imp"
sw1_A_32:;
                                                                //    474  A(33): !ARRAY
#line 474 "regression-compile-tmp/check.imp"
sw1_A_33:;
                                                                //    475  A(34): !STRING
#line 475 "regression-compile-tmp/check.imp"
sw1_A_34:;
                                                                //    476  A(35): !NAME
#line 476 "regression-compile-tmp/check.imp"
sw1_A_35:;
                                                                //    477  A(39): !FM
#line 477 "regression-compile-tmp/check.imp"
sw1_A_39:;
                                                                //    478  A(40): !ROUTINE
#line 478 "regression-compile-tmp/check.imp"
sw1_A_40:;
                                                                //    479  A(41): !SPEC
#line 479 "regression-compile-tmp/check.imp"
sw1_A_41:;
                                                                //    480      DECLTYPE = DECLTYPE!!ATOMTYPE
#line 480 "regression-compile-tmp/check.imp"
DECLTYPE = ((DECLTYPE) ^ (ATOMTYPE));
                                                                //    481      DECLTYPE = DECLTYPE!PRECISION %IF DECLTYPE&X'F0' = X'10'
#line 481 "regression-compile-tmp/check.imp"
if (((((DECLTYPE) & (240))) != (16))) goto L_0032;
#line 481 "regression-compile-tmp/check.imp"
DECLTYPE = ((DECLTYPE) | (PRECISION));
#line 481 "regression-compile-tmp/check.imp"
L_0032:;
                                                                //    482      IDENTS = DLIM
#line 482 "regression-compile-tmp/check.imp"
IDENTS = DLIM;
                                                                //    483      MODES = \0;      !FOR SPEC LOOKS
#line 483 "regression-compile-tmp/check.imp"
MODES = (~(0));
                                                                //    484      ->CODE
#line 484 "regression-compile-tmp/check.imp"
goto U_1004;
                                                                //    485  A(75): !NOTYPE
#line 485 "regression-compile-tmp/check.imp"
sw1_A_75:;
                                                                //    486      DECLTYPE = X'F9';         ! '?' VAR
#line 486 "regression-compile-tmp/check.imp"
DECLTYPE = 249;
                                                                //    487      ->ON
#line 487 "regression-compile-tmp/check.imp"
goto U_1005;
                                                                //    488  A(78): !IDENT: DC (DECLARE RECORD COMPONENT)
#line 488 "regression-compile-tmp/check.imp"
sw1_A_78:;
                                                                //    489      HEAD == INTEGER(FIDENTPOS+4);  DPOS = HEAD;  !ALTER SEARCH LIST
#line 489 "regression-compile-tmp/check.imp"
HEAD = _imp_INTEGER((((int)(FIDENTPOS)) + (4)));
#line 489 "regression-compile-tmp/check.imp"
DPOS = *HEAD;
                                                                //    490  A(76): !IDENT: D (DECLARE)
#line 490 "regression-compile-tmp/check.imp"
sw1_A_76:;
                                                                //    491  D1: ->ADD %IF C_BTYPE&1 # 0;  !WITHIN SPEC PARAMS
#line 491 "regression-compile-tmp/check.imp"
U_1011:;
#line 491 "regression-compile-tmp/check.imp"
if (((((C.BTYPE) & (1))) == (0))) goto L_0033;
#line 491 "regression-compile-tmp/check.imp"
goto U_1012;
#line 491 "regression-compile-tmp/check.imp"
L_0033:;
                                                                //    492  D2: %CYCLE
#line 492 "regression-compile-tmp/check.imp"
U_1013:;
#line 492 "regression-compile-tmp/check.imp"
L_0034:;
                                                                //    493         ->NEW %IF DPOS < C_LOCAL
#line 493 "regression-compile-tmp/check.imp"
if (((DPOS) >= (C.LOCAL))) goto L_0037;
#line 493 "regression-compile-tmp/check.imp"
goto U_1014;
#line 493 "regression-compile-tmp/check.imp"
L_0037:;
                                                                //    494         %EXIT %IF STRING(DPOS+12) = STRING(DLIM+12)
#line 494 "regression-compile-tmp/check.imp"
if ((_imp_strcmp(*_imp_STRING((((int)(DPOS)) + (12))), *_imp_STRING((((int)(DLIM)) + (12)))) != 0)) goto L_0038;
#line 494 "regression-compile-tmp/check.imp"
goto L_0035;
#line 494 "regression-compile-tmp/check.imp"
L_0038:;
                                                                //    495         DPOS = INTEGER(DPOS+8)
#line 495 "regression-compile-tmp/check.imp"
DPOS = *_imp_INTEGER((((int)(DPOS)) + (8)));
                                                                //    496      %REPEAT
#line 496 "regression-compile-tmp/check.imp"
goto L_0034;
#line 496 "regression-compile-tmp/check.imp"
L_0035:;
                                                                //    497      ->D5 %IF INTEGER(DPOS)&X'FF'-1 = DECLTYPE %C
#line 497 "regression-compile-tmp/check.imp"
if ((((((int)(((*_imp_INTEGER(DPOS)) & (255)))) - (1))) != (DECLTYPE))) goto L_0039;
#line 497 "regression-compile-tmp/check.imp"
if (((((DECLTYPE) & (6))) == (0))) goto L_0039;
#line 497 "regression-compile-tmp/check.imp"
if (((((DECLTYPE) & (1))) != (0))) goto L_0039;
#line 497 "regression-compile-tmp/check.imp"
goto U_1015;
#line 497 "regression-compile-tmp/check.imp"
L_0039:;
                                                                //    498        %AND DECLTYPE&6 # 0 %AND DECLTYPE&1 = 0
                                                                //    499      FAULT(5);  !DUPLICATE
#line 499 "regression-compile-tmp/check.imp"
FAULT(5);
                                                                //    500  NEW:INTEGER(DLIM+8) = HEAD;  HEAD = DLIM
#line 500 "regression-compile-tmp/check.imp"
U_1014:;
#line 500 "regression-compile-tmp/check.imp"
*_imp_INTEGER((((int)(DLIM)) + (8))) = *HEAD;
#line 500 "regression-compile-tmp/check.imp"
*HEAD = DLIM;
                                                                //    501  ADD:INTEGER(DLIM) = DECLTYPE;  INTEGER(DLIM+4) = 0
#line 501 "regression-compile-tmp/check.imp"
U_1012:;
#line 501 "regression-compile-tmp/check.imp"
*_imp_INTEGER(DLIM) = DECLTYPE;
#line 501 "regression-compile-tmp/check.imp"
*_imp_INTEGER((((int)(DLIM)) + (4))) = 0;
                                                                //    502      DLIM = NEWDLIM
#line 502 "regression-compile-tmp/check.imp"
DLIM = NEWDLIM;
                                                                //    503      ->CODE
#line 503 "regression-compile-tmp/check.imp"
goto U_1004;
                                                                //    504     !PROCEDURE BODY AFTER SPEC, LABEL AFTER JUMP
                                                                //    505  D5: INTEGER(DPOS) = DECLTYPE %IF DECLTYPE = LAB
#line 505 "regression-compile-tmp/check.imp"
U_1015:;
#line 505 "regression-compile-tmp/check.imp"
if (((DECLTYPE) != (12))) goto L_003a;
#line 505 "regression-compile-tmp/check.imp"
*_imp_INTEGER(DPOS) = DECLTYPE;
#line 505 "regression-compile-tmp/check.imp"
L_003a:;
                                                                //    506      IDENTS = DPOS
#line 506 "regression-compile-tmp/check.imp"
IDENTS = DPOS;
                                                                //    507      ->CODE
#line 507 "regression-compile-tmp/check.imp"
goto U_1004;
                                                                //    508  A(77): !IDENT: DF (DECLARE RECORD FORMAT)
#line 508 "regression-compile-tmp/check.imp"
sw1_A_77:;
                                                                //    509      DECLTYPE = RECFORMAT;  FIDENTPOS = DLIM
#line 509 "regression-compile-tmp/check.imp"
DECLTYPE = 4;
#line 509 "regression-compile-tmp/check.imp"
FIDENTPOS = DLIM;
                                                                //    510      ->D1
#line 510 "regression-compile-tmp/check.imp"
goto U_1011;
                                                                //    511  A(2): !CONST
#line 511 "regression-compile-tmp/check.imp"
sw1_A_2:;
                                                                //    512      TYPE = ATOMTYPE;  VAL = ATOMVAL
#line 512 "regression-compile-tmp/check.imp"
TYPE = ATOMTYPE;
#line 512 "regression-compile-tmp/check.imp"
VAL = ATOMVAL;
                                                                //    513      ->CODE
#line 513 "regression-compile-tmp/check.imp"
goto U_1004;
                                                                //    514  A(3): !SUB (ABSORBS FOLLOWING IDENT)
#line 514 "regression-compile-tmp/check.imp"
sw1_A_3:;
                                                                //    515      -> ERR %IF TYPE&X'FFF4' # 0 %AND TYPE # RECFORMAT;  !NOT RECORD
#line 515 "regression-compile-tmp/check.imp"
if (((((TYPE) & (65524))) == (0))) goto L_003b;
#line 515 "regression-compile-tmp/check.imp"
if (((TYPE) == (4))) goto L_003b;
#line 515 "regression-compile-tmp/check.imp"
goto U_1003;
#line 515 "regression-compile-tmp/check.imp"
L_003b:;
                                                                //    516      CODE ATOM;  ->ERR %IF ATOM # IDENT
#line 516 "regression-compile-tmp/check.imp"
CODEATOM();
#line 516 "regression-compile-tmp/check.imp"
if (((ATOM) == (1))) goto L_003c;
#line 516 "regression-compile-tmp/check.imp"
goto U_1003;
#line 516 "regression-compile-tmp/check.imp"
L_003c:;
                                                                //    517      ->IGNORE %IF VAL = 0
#line 517 "regression-compile-tmp/check.imp"
if (((VAL) != (0))) goto L_003d;
#line 517 "regression-compile-tmp/check.imp"
goto U_100a;
#line 517 "regression-compile-tmp/check.imp"
L_003d:;
                                                                //    518      DPOS = VAL;  HEAD == VAL
#line 518 "regression-compile-tmp/check.imp"
DPOS = VAL;
#line 518 "regression-compile-tmp/check.imp"
HEAD = &VAL;
                                                                //    519  A(81): !IDENT: LOOK
#line 519 "regression-compile-tmp/check.imp"
sw1_A_81:;
                                                                //    520  LOOK:
#line 520 "regression-compile-tmp/check.imp"
U_1016:;
                                                                //    521      LOOKS = LOOKS+1
#line 521 "regression-compile-tmp/check.imp"
LOOKS = (((int)(LOOKS)) + (1));
                                                                //    522      %CYCLE
#line 522 "regression-compile-tmp/check.imp"
L_003e:;
                                                                //    523         TIMES = TIMES+1
#line 523 "regression-compile-tmp/check.imp"
TIMES = (((int)(TIMES)) + (1));
                                                                //    524         ->UNKNOWN %IF DPOS <= 0
#line 524 "regression-compile-tmp/check.imp"
if (((DPOS) > (0))) goto L_0041;
#line 524 "regression-compile-tmp/check.imp"
goto U_1009;
#line 524 "regression-compile-tmp/check.imp"
L_0041:;
                                                                //    525         %EXIT %IF STRING(DPOS+12) = STRING(DLIM+12)
#line 525 "regression-compile-tmp/check.imp"
if ((_imp_strcmp(*_imp_STRING((((int)(DPOS)) + (12))), *_imp_STRING((((int)(DLIM)) + (12)))) != 0)) goto L_0042;
#line 525 "regression-compile-tmp/check.imp"
goto L_003f;
#line 525 "regression-compile-tmp/check.imp"
L_0042:;
                                                                //    526         DPOS = INTEGER(DPOS+8)
#line 526 "regression-compile-tmp/check.imp"
DPOS = *_imp_INTEGER((((int)(DPOS)) + (8)));
                                                                //    527      %REPEAT
#line 527 "regression-compile-tmp/check.imp"
goto L_003e;
#line 527 "regression-compile-tmp/check.imp"
L_003f:;
                                                                //    528      TYPE = INTEGER(DPOS);  VAL = INTEGER(DPOS+4)
#line 528 "regression-compile-tmp/check.imp"
TYPE = *_imp_INTEGER(DPOS);
#line 528 "regression-compile-tmp/check.imp"
VAL = *_imp_INTEGER((((int)(DPOS)) + (4)));
                                                                //    529      ->CODE %IF MODES<<(TYPE&15) < 0
#line 529 "regression-compile-tmp/check.imp"
if (((((MODES) << (((TYPE) & (15))))) >= (0))) goto L_0043;
#line 529 "regression-compile-tmp/check.imp"
goto U_1004;
#line 529 "regression-compile-tmp/check.imp"
L_0043:;
                                                                //    530      ->MODERR
#line 530 "regression-compile-tmp/check.imp"
goto U_100b;
                                                                //    531  A(82): !IDENT: IMP1LOOK
#line 531 "regression-compile-tmp/check.imp"
sw1_A_82:;
                                                                //    532      MODES = IMP1MODES
#line 532 "regression-compile-tmp/check.imp"
MODES = 1140588544;
                                                                //    533      ->LOOK %IF BYTEINTEGER(FPOS) # ':'
#line 533 "regression-compile-tmp/check.imp"
if (((*_imp_BYTEINTEGER(FPOS)) == (58))) goto L_0044;
#line 533 "regression-compile-tmp/check.imp"
goto U_1016;
#line 533 "regression-compile-tmp/check.imp"
L_0044:;
                                                                //    534      DECLTYPE = LAB
#line 534 "regression-compile-tmp/check.imp"
DECLTYPE = 12;
                                                                //    535      ->D2
#line 535 "regression-compile-tmp/check.imp"
goto U_1013;
                                                                //    536  A(83): !IDENT: IMPLOOK
#line 536 "regression-compile-tmp/check.imp"
sw1_A_83:;
                                                                //    537      MODES = IMPMODES
#line 537 "regression-compile-tmp/check.imp"
MODES = 1139802112;
                                                                //    538      ->LOOK
#line 538 "regression-compile-tmp/check.imp"
goto U_1016;
                                                                //    539  A(84): !IDENT: EXPLOOK
#line 539 "regression-compile-tmp/check.imp"
sw1_A_84:;
                                                                //    540      MODES = EXPMODES
#line 540 "regression-compile-tmp/check.imp"
MODES = (-252706816);
                                                                //    541      ->LOOK
#line 541 "regression-compile-tmp/check.imp"
goto U_1016;
                                                                //    542  A(85): !IDENT: FLOOK
#line 542 "regression-compile-tmp/check.imp"
sw1_A_85:;
                                                                //    543      MODES = FMATMODES
#line 543 "regression-compile-tmp/check.imp"
MODES = 134217728;
                                                                //    544      ->LOOK
#line 544 "regression-compile-tmp/check.imp"
goto U_1016;
                                                                //    545  A(86): !IDENT: JLOOK
#line 545 "regression-compile-tmp/check.imp"
sw1_A_86:;
                                                                //    546      %WHILE DPOS >= C_LOCAL %CYCLE
#line 546 "regression-compile-tmp/check.imp"
L_0045:;
#line 546 "regression-compile-tmp/check.imp"
if (((DPOS) < (C.LOCAL))) goto L_0046;
                                                                //    547         ->JL1 %IF STRING(DPOS+12) = STRING(DLIM+12)
#line 547 "regression-compile-tmp/check.imp"
if ((_imp_strcmp(*_imp_STRING((((int)(DPOS)) + (12))), *_imp_STRING((((int)(DLIM)) + (12)))) != 0)) goto L_0048;
#line 547 "regression-compile-tmp/check.imp"
goto U_1017;
#line 547 "regression-compile-tmp/check.imp"
L_0048:;
                                                                //    548         DPOS = INTEGER(DPOS+8)
#line 548 "regression-compile-tmp/check.imp"
DPOS = *_imp_INTEGER((((int)(DPOS)) + (8)));
                                                                //    549      %REPEAT
#line 549 "regression-compile-tmp/check.imp"
goto L_0045;
#line 549 "regression-compile-tmp/check.imp"
L_0046:;
                                                                //    550      INTEGER(DLIM+8) = HEAD;  HEAD = DLIM
#line 550 "regression-compile-tmp/check.imp"
*_imp_INTEGER((((int)(DLIM)) + (8))) = *HEAD;
#line 550 "regression-compile-tmp/check.imp"
*HEAD = DLIM;
                                                                //    551      INTEGER(DLIM) = JUMPLAB;  INTEGER(DLIM+4) = 0
#line 551 "regression-compile-tmp/check.imp"
*_imp_INTEGER(DLIM) = 13;
#line 551 "regression-compile-tmp/check.imp"
*_imp_INTEGER((((int)(DLIM)) + (4))) = 0;
                                                                //    552      DPOS = DLIM;  DLIM = NEWDLIM
#line 552 "regression-compile-tmp/check.imp"
DPOS = DLIM;
#line 552 "regression-compile-tmp/check.imp"
DLIM = NEWDLIM;
                                                                //    553  JL1:TYPE = INTEGER(DPOS)
#line 553 "regression-compile-tmp/check.imp"
U_1017:;
#line 553 "regression-compile-tmp/check.imp"
TYPE = *_imp_INTEGER(DPOS);
                                                                //    554      ->CODE %IF TYPE&14 = LAB
#line 554 "regression-compile-tmp/check.imp"
if (((((TYPE) & (14))) != (12))) goto L_0049;
#line 554 "regression-compile-tmp/check.imp"
goto U_1004;
#line 554 "regression-compile-tmp/check.imp"
L_0049:;
                                                                //    555      ->MODERR
#line 555 "regression-compile-tmp/check.imp"
goto U_100b;
                                                                //    556  A(79): !RECSPEC
#line 556 "regression-compile-tmp/check.imp"
sw1_A_79:;
                                                                //    557      ->MODERR %IF TYPE&X'F4' # 0 %OR VAL # 0 %OR DPOS < C_LOCAL
#line 557 "regression-compile-tmp/check.imp"
if (((((TYPE) & (244))) != (0))) goto L_0047;
#line 557 "regression-compile-tmp/check.imp"
if (((VAL) != (0))) goto L_0047;
#line 557 "regression-compile-tmp/check.imp"
if (((DPOS) >= (C.LOCAL))) goto L_004a;
#line 557 "regression-compile-tmp/check.imp"
L_0047:;
#line 557 "regression-compile-tmp/check.imp"
goto U_100b;
#line 557 "regression-compile-tmp/check.imp"
L_004a:;
                                                                //    558      RECIDENTS = -DPOS
#line 558 "regression-compile-tmp/check.imp"
RECIDENTS = (-(DPOS));
                                                                //    559      ->ON
#line 559 "regression-compile-tmp/check.imp"
goto U_1005;
                                                                //    560  A(88): !FSET
#line 560 "regression-compile-tmp/check.imp"
sw1_A_88:;
                                                                //    561      IDENTS = RECIDENTS
#line 561 "regression-compile-tmp/check.imp"
IDENTS = RECIDENTS;
                                                                //    562      %IF IDENTS >= 0 %THEN DEFINE(4,INTEGER(DPOS+4)) %C
#line 562 "regression-compile-tmp/check.imp"
if (((IDENTS) < (0))) goto L_004b;
#line 562 "regression-compile-tmp/check.imp"
DEFINE(4, *_imp_INTEGER((((int)(DPOS)) + (4))));
#line 562 "regression-compile-tmp/check.imp"
goto L_004c;
#line 562 "regression-compile-tmp/check.imp"
L_004b:;
#line 562 "regression-compile-tmp/check.imp"
*_imp_INTEGER((((-(IDENTS))) + (4))) = *_imp_INTEGER((((int)(DPOS)) + (4)));
#line 562 "regression-compile-tmp/check.imp"
L_004c:;
                                                                //    563      %ELSE INTEGER(-IDENTS+4) = INTEGER(DPOS+4)
                                                                //    564      ->ON
#line 564 "regression-compile-tmp/check.imp"
goto U_1005;
                                                                //    565  A(80):  !PROCSPEC
#line 565 "regression-compile-tmp/check.imp"
sw1_A_80:;
                                                                //    566      ->MODERR %IF TYPE&X'FF03' # FN %OR DPOS < C_LOCAL
#line 566 "regression-compile-tmp/check.imp"
if (((((TYPE) & (65283))) != (2))) goto L_004d;
#line 566 "regression-compile-tmp/check.imp"
if (((DPOS) >= (C.LOCAL))) goto L_004e;
#line 566 "regression-compile-tmp/check.imp"
L_004d:;
#line 566 "regression-compile-tmp/check.imp"
goto U_100b;
#line 566 "regression-compile-tmp/check.imp"
L_004e:;
                                                                //    567      IDENTS = DPOS
#line 567 "regression-compile-tmp/check.imp"
IDENTS = DPOS;
                                                                //    568      ->ON
#line 568 "regression-compile-tmp/check.imp"
goto U_1005;
                                                                //    569  A(72): !BEG
#line 569 "regression-compile-tmp/check.imp"
sw1_A_72:;
                                                                //    570      PIDENTPOS = IDENTS
#line 570 "regression-compile-tmp/check.imp"
PIDENTPOS = IDENTS;
                                                                //    571      LEVEL = LEVEL+1;  ->DISASTER %IF LEVEL > 12
#line 571 "regression-compile-tmp/check.imp"
LEVEL = (((int)(LEVEL)) + (1));
#line 571 "regression-compile-tmp/check.imp"
if (((LEVEL) <= (12))) goto L_004f;
#line 571 "regression-compile-tmp/check.imp"
goto U_100c;
#line 571 "regression-compile-tmp/check.imp"
L_004f:;
                                                                //    572      HOLD(LEVEL) = C
#line 572 "regression-compile-tmp/check.imp"
HOLD[(((int)(LEVEL)) - (1))] = C;
                                                                //    573      C_BTYPE = DECLTYPE
#line 573 "regression-compile-tmp/check.imp"
C.BTYPE = DECLTYPE;
                                                                //    574      C_STACK = 0
#line 574 "regression-compile-tmp/check.imp"
C.STACK = 0;
                                                                //    575      C_LOCAL = DLIM
#line 575 "regression-compile-tmp/check.imp"
C.LOCAL = DLIM;
                                                                //    576      ->ON
#line 576 "regression-compile-tmp/check.imp"
goto U_1005;
                                                                //    577  A(89): !NL: PARSET
#line 577 "regression-compile-tmp/check.imp"
sw1_A_89:;
                                                                //    578      IDENTS = C_LOCAL;  NP = 51
#line 578 "regression-compile-tmp/check.imp"
IDENTS = C.LOCAL;
#line 578 "regression-compile-tmp/check.imp"
NP = 51;
                                                                //    579      %WHILE IDENTS # DLIM %CYCLE
#line 579 "regression-compile-tmp/check.imp"
L_0050:;
#line 579 "regression-compile-tmp/check.imp"
if (((IDENTS) == (DLIM))) goto L_0051;
                                                                //    580         NP = NP-1;  NTYPE(NP) = INTEGER(IDENTS)
#line 580 "regression-compile-tmp/check.imp"
NP = (((int)(NP)) - (1));
#line 580 "regression-compile-tmp/check.imp"
NTYPE[(((int)(NP)) - (1))] = *_imp_INTEGER(IDENTS);
                                                                //    581         IDENTS = BYTEINTEGER(IDENTS+12)&(\3)+IDENTS+16
#line 581 "regression-compile-tmp/check.imp"
IDENTS = (((int)((((int)(((*_imp_BYTEINTEGER((((int)(IDENTS)) + (12)))) & ((~(3)))))) + (IDENTS)))) + (16));
                                                                //    582      %REPEAT
#line 582 "regression-compile-tmp/check.imp"
goto L_0050;
#line 582 "regression-compile-tmp/check.imp"
L_0051:;
                                                                //    583      I = 0
#line 583 "regression-compile-tmp/check.imp"
I = 0;
                                                                //    584      %WHILE NP # 51 %CYCLE
#line 584 "regression-compile-tmp/check.imp"
L_0053:;
#line 584 "regression-compile-tmp/check.imp"
if (((NP) == (51))) goto L_0054;
                                                                //    585         J = I<<24+NTYPE(NP);  NP = NP+1
#line 585 "regression-compile-tmp/check.imp"
J = (((int)(((I) << (24)))) + (NTYPE[(((int)(NP)) - (1))]));
#line 585 "regression-compile-tmp/check.imp"
NP = (((int)(NP)) + (1));
                                                                //    586         I = I+1 %UNTIL I > PARMAX %OR PARTYPE(I) = J
#line 586 "regression-compile-tmp/check.imp"
L_0056:;
#line 586 "regression-compile-tmp/check.imp"
I = (((int)(I)) + (1));
#line 586 "regression-compile-tmp/check.imp"
if (((I) > (PARMAX))) goto L_0057;
#line 586 "regression-compile-tmp/check.imp"
if (((PARTYPE[I]) == (J))) goto L_0057;
#line 586 "regression-compile-tmp/check.imp"
goto L_0056;
#line 586 "regression-compile-tmp/check.imp"
L_0057:;
                                                                //    587         %IF I > PARMAX %START
#line 587 "regression-compile-tmp/check.imp"
if (((I) <= (PARMAX))) goto L_0059;
                                                                //    588            ->DISASTER %IF I = 252
#line 588 "regression-compile-tmp/check.imp"
if (((I) != (252))) goto L_005a;
#line 588 "regression-compile-tmp/check.imp"
goto U_100c;
#line 588 "regression-compile-tmp/check.imp"
L_005a:;
                                                                //    589            PARMAX = I
#line 589 "regression-compile-tmp/check.imp"
PARMAX = I;
                                                                //    590            PARTYPE(I) = J
#line 590 "regression-compile-tmp/check.imp"
PARTYPE[I] = J;
                                                                //    591         %FINISH
#line 591 "regression-compile-tmp/check.imp"
L_0059:;
                                                                //    592      %REPEAT
#line 592 "regression-compile-tmp/check.imp"
goto L_0053;
#line 592 "regression-compile-tmp/check.imp"
L_0054:;
                                                                //    593      %IF C_BTYPE&1 = 0 %AND INTEGER(PIDENTPOS)&1 # 0 %START
#line 593 "regression-compile-tmp/check.imp"
if (((((C.BTYPE) & (1))) != (0))) goto L_005b;
#line 593 "regression-compile-tmp/check.imp"
if (((((*_imp_INTEGER(PIDENTPOS)) & (1))) == (0))) goto L_005b;
                                                                //    594         FAULT(18) %IF BYTEINTEGER(PIDENTPOS+2) # I
#line 594 "regression-compile-tmp/check.imp"
if (((*_imp_BYTEINTEGER((((int)(PIDENTPOS)) + (2)))) == (I))) goto L_005c;
#line 594 "regression-compile-tmp/check.imp"
FAULT(18);
#line 594 "regression-compile-tmp/check.imp"
L_005c:;
                                                                //    595         INTEGER(PIDENTPOS) = C_BTYPE
#line 595 "regression-compile-tmp/check.imp"
*_imp_INTEGER(PIDENTPOS) = C.BTYPE;
                                                                //    596      %FINISH
#line 596 "regression-compile-tmp/check.imp"
L_005b:;
                                                                //    597      BYTEINTEGER(PIDENTPOS+2) = I
#line 597 "regression-compile-tmp/check.imp"
*_imp_BYTEINTEGER((((int)(PIDENTPOS)) + (2))) = I;
                                                                //    598      INTEGER(PIDENTPOS) = INTEGER(PIDENTPOS)&(\EXTIND)
#line 598 "regression-compile-tmp/check.imp"
*_imp_INTEGER(PIDENTPOS) = ((*_imp_INTEGER(PIDENTPOS)) & ((~(EXTIND))));
                                                                //    599      ->FIN
#line 599 "regression-compile-tmp/check.imp"
goto U_100d;
                                                                //    600  A(90): !INIT
#line 600 "regression-compile-tmp/check.imp"
sw1_A_90:;
                                                                //    601      CONSTCOUNT = CONSTCOUNT-1
#line 601 "regression-compile-tmp/check.imp"
CONSTCOUNT = (((int)(CONSTCOUNT)) - (1));
                                                                //    602      ->ER20 %IF TYPE&15 # 0
#line 602 "regression-compile-tmp/check.imp"
if (((((TYPE) & (15))) == (0))) goto L_005d;
#line 602 "regression-compile-tmp/check.imp"
goto U_100f;
#line 602 "regression-compile-tmp/check.imp"
L_005d:;
                                                                //    603      ->ER22 %IF TYPE&DECLTYPE = 0
#line 603 "regression-compile-tmp/check.imp"
if (((((TYPE) & (DECLTYPE))) != (0))) goto L_005e;
#line 603 "regression-compile-tmp/check.imp"
goto U_1010;
#line 603 "regression-compile-tmp/check.imp"
L_005e:;
                                                                //    604      !RANGE CHECK
                                                                //    605      DEFINE(4,VAL) %IF DECLTYPE&15 = 0
#line 605 "regression-compile-tmp/check.imp"
if (((((DECLTYPE) & (15))) != (0))) goto L_005f;
#line 605 "regression-compile-tmp/check.imp"
DEFINE(4, VAL);
#line 605 "regression-compile-tmp/check.imp"
L_005f:;
                                                                //    606      ->ON
#line 606 "regression-compile-tmp/check.imp"
goto U_1005;
                                                                //    607  A(91): !NL: INITFIN
#line 607 "regression-compile-tmp/check.imp"
sw1_A_91:;
                                                                //    608      FAULT(21) %IF CONSTCOUNT # 0 %AND CONSTCOUNT < 1000000
#line 608 "regression-compile-tmp/check.imp"
if (((CONSTCOUNT) == (0))) goto L_0060;
#line 608 "regression-compile-tmp/check.imp"
if (((CONSTCOUNT) >= (1000000))) goto L_0060;
#line 608 "regression-compile-tmp/check.imp"
FAULT(21);
#line 608 "regression-compile-tmp/check.imp"
L_0060:;
                                                                //    609      ->FIN
#line 609 "regression-compile-tmp/check.imp"
goto U_100d;
                                                                //    610  A(92): !DIMSET
#line 610 "regression-compile-tmp/check.imp"
sw1_A_92:;
                                                                //    611      DEFINE(0,DIMCOUNT)
#line 611 "regression-compile-tmp/check.imp"
DEFINE(0, DIMCOUNT);
                                                                //    612      DIMCOUNT = 0
#line 612 "regression-compile-tmp/check.imp"
DIMCOUNT = 0;
                                                                //    613      ->ON
#line 613 "regression-compile-tmp/check.imp"
goto U_1005;
                                                                //    614  A(93): !COLON: COUNT
#line 614 "regression-compile-tmp/check.imp"
sw1_A_93:;
                                                                //    615      %IF DIMCOUNT = 6 %THEN FAULT(23) %ELSE DIMCOUNT = DIMCOUNT+1
#line 615 "regression-compile-tmp/check.imp"
if (((DIMCOUNT) != (6))) goto L_0061;
#line 615 "regression-compile-tmp/check.imp"
FAULT(23);
#line 615 "regression-compile-tmp/check.imp"
goto L_0062;
#line 615 "regression-compile-tmp/check.imp"
L_0061:;
#line 615 "regression-compile-tmp/check.imp"
DIMCOUNT = (((int)(DIMCOUNT)) + (1));
#line 615 "regression-compile-tmp/check.imp"
L_0062:;
                                                                //    616      ->CODE
#line 616 "regression-compile-tmp/check.imp"
goto U_1004;
                                                                //    617  A(94): !REP
#line 617 "regression-compile-tmp/check.imp"
sw1_A_94:;
                                                                //    618      CONSTCOUNT = CONSTCOUNT-VAL+1
#line 618 "regression-compile-tmp/check.imp"
CONSTCOUNT = (((int)((((int)(CONSTCOUNT)) - (VAL)))) + (1));
                                                                //    619      ->ON
#line 619 "regression-compile-tmp/check.imp"
goto U_1005;
                                                                //    620  A(95): !LITINT
#line 620 "regression-compile-tmp/check.imp"
sw1_A_95:;
                                                                //    621      ->ER20 %IF TYPE&15 # 0
#line 621 "regression-compile-tmp/check.imp"
if (((((TYPE) & (15))) == (0))) goto L_0063;
#line 621 "regression-compile-tmp/check.imp"
goto U_100f;
#line 621 "regression-compile-tmp/check.imp"
L_0063:;
                                                                //    622  A(96): !INT
#line 622 "regression-compile-tmp/check.imp"
sw1_A_96:;
                                                                //    623      ->ER22 %IF TYPE&INTBIT = 0
#line 623 "regression-compile-tmp/check.imp"
if (((((TYPE) & (64))) != (0))) goto L_0064;
#line 623 "regression-compile-tmp/check.imp"
goto U_1010;
#line 623 "regression-compile-tmp/check.imp"
L_0064:;
                                                                //    624      ->NAPP
#line 624 "regression-compile-tmp/check.imp"
goto U_100e;
                                                                //    625  A(97): !STR
#line 625 "regression-compile-tmp/check.imp"
sw1_A_97:;
                                                                //    626      ->ER22 %IF TYPE&STRINGBIT = 0
#line 626 "regression-compile-tmp/check.imp"
if (((((TYPE) & (128))) != (0))) goto L_0065;
#line 626 "regression-compile-tmp/check.imp"
goto U_1010;
#line 626 "regression-compile-tmp/check.imp"
L_0065:;
                                                                //    627      ->NAPP
#line 627 "regression-compile-tmp/check.imp"
goto U_100e;
                                                                //    628  A(98): !SIZESET
#line 628 "regression-compile-tmp/check.imp"
sw1_A_98:;
                                                                //    629      STRINGSIZE = VAL
#line 629 "regression-compile-tmp/check.imp"
STRINGSIZE = VAL;
                                                                //    630      ->ON %IF 0 < VAL <= 255
#line 630 "regression-compile-tmp/check.imp"
if ((((0) >= (VAL))) || (((VAL) > (255)))) goto L_0066;
#line 630 "regression-compile-tmp/check.imp"
goto U_1005;
#line 630 "regression-compile-tmp/check.imp"
L_0066:;
                                                                //    631      FAULT(19);  STRINGSIZE = 255
#line 631 "regression-compile-tmp/check.imp"
FAULT(19);
#line 631 "regression-compile-tmp/check.imp"
STRINGSIZE = 255;
                                                                //    632      ->ON
#line 632 "regression-compile-tmp/check.imp"
goto U_1005;
                                                                //    633  A(99): !CBSET
#line 633 "regression-compile-tmp/check.imp"
sw1_A_99:;
                                                                //    634      LASTVAL = NVAL(NP);  NP = NP+1
#line 634 "regression-compile-tmp/check.imp"
LASTVAL = NVAL[(((int)(NP)) - (1))];
#line 634 "regression-compile-tmp/check.imp"
NP = (((int)(NP)) + (1));
                                                                //    635      ->CBERR %UNLESS -32768 <= LASTVAL <= 32767
#line 635 "regression-compile-tmp/check.imp"
if (((((-32768)) > (LASTVAL))) || (((LASTVAL) <= (32767)))) goto L_0067;
#line 635 "regression-compile-tmp/check.imp"
L_0055:;
#line 635 "regression-compile-tmp/check.imp"
goto U_1018;
#line 635 "regression-compile-tmp/check.imp"
L_0067:;
                                                                //    636      CONSTCOUNT = VAL-LASTVAL+1
#line 636 "regression-compile-tmp/check.imp"
CONSTCOUNT = (((int)((((int)(VAL)) - (LASTVAL)))) + (1));
                                                                //    637      ->CBERR %UNLESS 0 < CONSTCOUNT <= 32767
#line 637 "regression-compile-tmp/check.imp"
if ((((0) >= (CONSTCOUNT))) || (((CONSTCOUNT) <= (32767)))) goto L_0069;
#line 637 "regression-compile-tmp/check.imp"
L_0068:;
#line 637 "regression-compile-tmp/check.imp"
goto U_1018;
#line 637 "regression-compile-tmp/check.imp"
L_0069:;
                                                                //    638      %IF DECLTYPE = SWITCH %START
#line 638 "regression-compile-tmp/check.imp"
if (((DECLTYPE) != (268))) goto L_006a;
                                                                //    639         {%UNTIL IDENTS = DLIM} %CYCLE
#line 639 "regression-compile-tmp/check.imp"
L_006b:;
                                                                //    640            J = DBOUND
#line 640 "regression-compile-tmp/check.imp"
J = DBOUND;
                                                                //    641            DBOUND = J-(CONSTCOUNT+63)>>5<<2
#line 641 "regression-compile-tmp/check.imp"
DBOUND = ((J) - ((int)((((((((((int)(CONSTCOUNT)) + (63)))) >> (5)))) << (2)))));
                                                                //    642            ->DISASTER %IF DBOUND <= DLIM
#line 642 "regression-compile-tmp/check.imp"
if (((DBOUND) > (DLIM))) goto L_006e;
#line 642 "regression-compile-tmp/check.imp"
goto U_100c;
#line 642 "regression-compile-tmp/check.imp"
L_006e:;
                                                                //    643            INTEGER(IDENTS+4) = DBOUND
#line 643 "regression-compile-tmp/check.imp"
*_imp_INTEGER((((int)(IDENTS)) + (4))) = DBOUND;
                                                                //    644            INTEGER(DBOUND) = LASTVAL<<16+CONSTCOUNT
#line 644 "regression-compile-tmp/check.imp"
*_imp_INTEGER(DBOUND) = (((int)(((LASTVAL) << (16)))) + (CONSTCOUNT));
                                                                //    645            %CYCLE
#line 645 "regression-compile-tmp/check.imp"
L_006f:;
                                                                //    646               J = J-4
#line 646 "regression-compile-tmp/check.imp"
J = (((int)(J)) - (4));
                                                                //    647               %EXIT %IF J = DBOUND
#line 647 "regression-compile-tmp/check.imp"
if (((J) != (DBOUND))) goto L_0072;
#line 647 "regression-compile-tmp/check.imp"
goto L_0070;
#line 647 "regression-compile-tmp/check.imp"
L_0072:;
                                                                //    648               INTEGER(J) = 0
#line 648 "regression-compile-tmp/check.imp"
*_imp_INTEGER(J) = 0;
                                                                //    649            %REPEAT
#line 649 "regression-compile-tmp/check.imp"
goto L_006f;
#line 649 "regression-compile-tmp/check.imp"
L_0070:;
                                                                //    650            IDENTS = BYTEINTEGER(IDENTS+12)&(\3)+IDENTS+16
#line 650 "regression-compile-tmp/check.imp"
IDENTS = (((int)((((int)(((*_imp_BYTEINTEGER((((int)(IDENTS)) + (12)))) & ((~(3)))))) + (IDENTS)))) + (16));
                                                                //    651         %REPEAT %UNTIL IDENTS = DLIM
#line 651 "regression-compile-tmp/check.imp"
if (((IDENTS) == (DLIM))) goto L_006c;
#line 651 "regression-compile-tmp/check.imp"
goto L_006b;
#line 651 "regression-compile-tmp/check.imp"
L_006c:;
                                                                //    652      %FINISH
#line 652 "regression-compile-tmp/check.imp"
L_006a:;
                                                                //    653  CB1:IDENTS = DLIM
#line 653 "regression-compile-tmp/check.imp"
U_1019:;
#line 653 "regression-compile-tmp/check.imp"
IDENTS = DLIM;
                                                                //    654      ->ON
#line 654 "regression-compile-tmp/check.imp"
goto U_1005;
                                                                //    655  CBERR:
#line 655 "regression-compile-tmp/check.imp"
U_1018:;
                                                                //    656      FAULT(23);  CONSTCOUNT = 2000000
#line 656 "regression-compile-tmp/check.imp"
FAULT(23);
#line 656 "regression-compile-tmp/check.imp"
CONSTCOUNT = 2000000;
                                                                //    657      ->CB1
#line 657 "regression-compile-tmp/check.imp"
goto U_1019;
                                                                //    658  A(100): !COLON: LAB
#line 658 "regression-compile-tmp/check.imp"
sw1_A_100:;
                                                                //    659      ->FIN %IF DECLTYPE # 0;  !SIMPLE LABEL
#line 659 "regression-compile-tmp/check.imp"
if (((DECLTYPE) == (0))) goto L_0073;
#line 659 "regression-compile-tmp/check.imp"
goto U_100d;
#line 659 "regression-compile-tmp/check.imp"
L_0073:;
                                                                //    660      ->ERR %IF TYPE # JUMPLAB;  !IE SWITCH + APP
#line 660 "regression-compile-tmp/check.imp"
if (((TYPE) == (13))) goto L_0074;
#line 660 "regression-compile-tmp/check.imp"
goto U_1003;
#line 660 "regression-compile-tmp/check.imp"
L_0074:;
                                                                //    661      FAULT(20) %AND ->FIN %IF LASTTYPE&15 # 0
#line 661 "regression-compile-tmp/check.imp"
if (((((LASTTYPE) & (15))) == (0))) goto L_0075;
#line 661 "regression-compile-tmp/check.imp"
FAULT(20);
#line 661 "regression-compile-tmp/check.imp"
goto U_100d;
#line 661 "regression-compile-tmp/check.imp"
L_0075:;
                                                                //    662      ->FIN %IF VAL = 0
#line 662 "regression-compile-tmp/check.imp"
if (((VAL) != (0))) goto L_0076;
#line 662 "regression-compile-tmp/check.imp"
goto U_100d;
#line 662 "regression-compile-tmp/check.imp"
L_0076:;
                                                                //    663      J = LASTVAL-SHORTINTEGER(VAL)
#line 663 "regression-compile-tmp/check.imp"
J = ((LASTVAL) - (*(int *)(_imp_SHORTINTEGER(VAL))));
                                                                //    664      FAULT(19) %AND ->FIN %UNLESS 0 <= J < SHORTINTEGER(VAL+2)
#line 664 "regression-compile-tmp/check.imp"
if (({int tmp1 = 0, tmp2 = J, tmp3 = *_imp_SHORTINTEGER((((int)(VAL)) + (2))); (tmp1 > tmp2) || (tmp2 < tmp3);})) goto L_0078;
#line 664 "regression-compile-tmp/check.imp"
L_0077:;
#line 664 "regression-compile-tmp/check.imp"
FAULT(19);
#line 664 "regression-compile-tmp/check.imp"
goto U_100d;
#line 664 "regression-compile-tmp/check.imp"
L_0078:;
                                                                //    665      I = VAL+J>>5<<2;  J = X'80000000'>>(J&31)
#line 665 "regression-compile-tmp/check.imp"
I = ((VAL) + ((int)((((int)((((unsigned int)(J)) >> (5)))) << (2)))));
#line 665 "regression-compile-tmp/check.imp"
J = (int)((((unsigned int)((-2147483648))) >> (((J) & (31)))));
                                                                //    666      FAULT(16) %IF INTEGER(I+4)&J # 0
#line 666 "regression-compile-tmp/check.imp"
if (((((*_imp_INTEGER((((int)(I)) + (4)))) & (J))) == (0))) goto L_0079;
#line 666 "regression-compile-tmp/check.imp"
FAULT(16);
#line 666 "regression-compile-tmp/check.imp"
L_0079:;
                                                                //    667      INTEGER(I+4) = INTEGER(I+4)!J
#line 667 "regression-compile-tmp/check.imp"
*_imp_INTEGER((((int)(I)) + (4))) = ((*_imp_INTEGER((((int)(I)) + (4)))) | (J));
                                                                //    668      ->FIN
#line 668 "regression-compile-tmp/check.imp"
goto U_100d;
                                                                //    669  A(101): !OP3: DOT
#line 669 "regression-compile-tmp/check.imp"
sw1_A_101:;
                                                                //    670      ->ERR %IF ATOMTYPE # STRINGBIT;  !IE OP3 # '.'
#line 670 "regression-compile-tmp/check.imp"
if (((ATOMTYPE) == (128))) goto L_007a;
#line 670 "regression-compile-tmp/check.imp"
goto U_1003;
#line 670 "regression-compile-tmp/check.imp"
L_007a:;
                                                                //    671  A(60): !FOR
#line 671 "regression-compile-tmp/check.imp"
sw1_A_60:;
                                                                //    672      MODES = DESTMODES
#line 672 "regression-compile-tmp/check.imp"
MODES = 15728640;
                                                                //    673      ->CODE
#line 673 "regression-compile-tmp/check.imp"
goto U_1004;
                                                                //    674  A(73): !RESOL
#line 674 "regression-compile-tmp/check.imp"
sw1_A_73:;
                                                                //    675      ->ER22 %IF TYPE&STRINGBIT = 0
#line 675 "regression-compile-tmp/check.imp"
if (((((TYPE) & (128))) != (0))) goto L_007b;
#line 675 "regression-compile-tmp/check.imp"
goto U_1010;
#line 675 "regression-compile-tmp/check.imp"
L_007b:;
                                                                //    676      MODES = DESTMODES
#line 676 "regression-compile-tmp/check.imp"
MODES = 15728640;
                                                                //    677      ->ON
#line 677 "regression-compile-tmp/check.imp"
goto U_1005;
                                                                //    678  A(102): !OP3: SIGN
#line 678 "regression-compile-tmp/check.imp"
sw1_A_102:;
                                                                //    679      ->ERR %IF ATOMTYPE&3 = 0;  !IE OP3 # '+', '-', '!'
#line 679 "regression-compile-tmp/check.imp"
if (((((ATOMTYPE) & (3))) != (0))) goto L_007c;
#line 679 "regression-compile-tmp/check.imp"
goto U_1003;
#line 679 "regression-compile-tmp/check.imp"
L_007c:;
                                                                //    680      TYPE = ATOMTYPE;  VAL = 0
#line 680 "regression-compile-tmp/check.imp"
TYPE = ATOMTYPE;
#line 680 "regression-compile-tmp/check.imp"
VAL = 0;
                                                                //    681      ->OP1
#line 681 "regression-compile-tmp/check.imp"
goto U_101a;
                                                                //    682  A(7):  !UOP
#line 682 "regression-compile-tmp/check.imp"
sw1_A_7:;
                                                                //    683      TYPE = ATOMTYPE;  VAL = -1
#line 683 "regression-compile-tmp/check.imp"
TYPE = ATOMTYPE;
#line 683 "regression-compile-tmp/check.imp"
VAL = (-1);
                                                                //    684      ->OP1
#line 684 "regression-compile-tmp/check.imp"
goto U_101a;
                                                                //    685  A(8):  !COP
#line 685 "regression-compile-tmp/check.imp"
sw1_A_8:;
                                                                //    686  A(4): !OP1
#line 686 "regression-compile-tmp/check.imp"
sw1_A_4:;
                                                                //    687  A(5): !OP2
#line 687 "regression-compile-tmp/check.imp"
sw1_A_5:;
                                                                //    688  A(104):!OP3 OR EQ: OP
#line 688 "regression-compile-tmp/check.imp"
sw1_A_104:;
                                                                //    689      ->ERR %IF TYPE&APPMASK # 0
#line 689 "regression-compile-tmp/check.imp"
if (((((TYPE) & (65280))) == (0))) goto L_007d;
#line 689 "regression-compile-tmp/check.imp"
goto U_1003;
#line 689 "regression-compile-tmp/check.imp"
L_007d:;
                                                                //    690      %IF TYPE&X'FF4F' = INTBIT %THEN TYPE=TYPE!15 %ELSE TYPE=TYPE&(\15)
#line 690 "regression-compile-tmp/check.imp"
if (((((TYPE) & (65359))) != (64))) goto L_007e;
#line 690 "regression-compile-tmp/check.imp"
TYPE = ((TYPE) | (15));
#line 690 "regression-compile-tmp/check.imp"
goto L_007f;
#line 690 "regression-compile-tmp/check.imp"
L_007e:;
#line 690 "regression-compile-tmp/check.imp"
TYPE = ((TYPE) & ((~(15))));
#line 690 "regression-compile-tmp/check.imp"
L_007f:;
                                                                //    691      TYPE = TYPE!REALBITS %IF TYPE&NUMBITS # 0
#line 691 "regression-compile-tmp/check.imp"
if (((((TYPE) & (112))) == (0))) goto L_0080;
#line 691 "regression-compile-tmp/check.imp"
TYPE = ((TYPE) | (48));
#line 691 "regression-compile-tmp/check.imp"
L_0080:;
                                                                //    692  OP1:NP = NP-1;  NTYPE(NP) = TYPE&ATOMTYPE;  NVAL(NP) = VAL
#line 692 "regression-compile-tmp/check.imp"
U_101a:;
#line 692 "regression-compile-tmp/check.imp"
NP = (((int)(NP)) - (1));
#line 692 "regression-compile-tmp/check.imp"
NTYPE[(((int)(NP)) - (1))] = ((TYPE) & (ATOMTYPE));
#line 692 "regression-compile-tmp/check.imp"
NVAL[(((int)(NP)) - (1))] = VAL;
                                                                //    693      ->CODE
#line 693 "regression-compile-tmp/check.imp"
goto U_1004;
                                                                //    694  A(105): !EVAL
#line 694 "regression-compile-tmp/check.imp"
sw1_A_105:;
                                                                //    695      ->ERR %IF TYPE&APPMASK # 0
#line 695 "regression-compile-tmp/check.imp"
if (((((TYPE) & (65280))) == (0))) goto L_0081;
#line 695 "regression-compile-tmp/check.imp"
goto U_1003;
#line 695 "regression-compile-tmp/check.imp"
L_0081:;
                                                                //    696      TYPE = TYPE!REALBITS %IF TYPE&NUMBITS # 0
#line 696 "regression-compile-tmp/check.imp"
if (((((TYPE) & (112))) == (0))) goto L_0082;
#line 696 "regression-compile-tmp/check.imp"
TYPE = ((TYPE) | (48));
#line 696 "regression-compile-tmp/check.imp"
L_0082:;
                                                                //    697      I = NTYPE(NP);  NP = NP+1
#line 697 "regression-compile-tmp/check.imp"
I = NTYPE[(((int)(NP)) - (1))];
#line 697 "regression-compile-tmp/check.imp"
NP = (((int)(NP)) + (1));
                                                                //    698      J = I&TYPE&X'F0'
#line 698 "regression-compile-tmp/check.imp"
J = ((((I) & (TYPE))) & (240));
                                                                //    699      ->ER22 %IF J = 0
#line 699 "regression-compile-tmp/check.imp"
if (((J) != (0))) goto L_0083;
#line 699 "regression-compile-tmp/check.imp"
goto U_1010;
#line 699 "regression-compile-tmp/check.imp"
L_0083:;
                                                                //    700      ->X(I&15) %IF TYPE&X'FF4F' = INTBIT
#line 700 "regression-compile-tmp/check.imp"
if (((((TYPE) & (65359))) != (64))) goto L_0084;
#line 700 "regression-compile-tmp/check.imp"
sw2_X_idx = ((I) & (15)); if ((0 <= sw2_X_idx) && (sw2_X_idx <= 4)) goto *sw2_X[sw2_X_idx]; else {
   /*_imp_signal(8, 2, sw2_X_idx);*/
   fprintf(stderr, "%%SWITCH index X(%d) not in range 0:4 at %s:%d\n",
           sw2_X_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
#line 700 "regression-compile-tmp/check.imp"
L_0084:;
                                                                //    701  X(0):
#line 701 "regression-compile-tmp/check.imp"
sw2_X_0:;
                                                                //    702      TYPE = J+EXP
#line 702 "regression-compile-tmp/check.imp"
TYPE = (((int)(J)) + (1));
                                                                //    703      ->ON
#line 703 "regression-compile-tmp/check.imp"
goto U_1005;
                                                                //    704  X(1): VAL = NVAL(NP-1)+VAL
#line 704 "regression-compile-tmp/check.imp"
sw2_X_1:;
#line 704 "regression-compile-tmp/check.imp"
VAL = (((int)(NVAL[(((int)((((int)(NP)) - (1)))) - (1))])) + (VAL));
                                                                //    705  X1: TYPE = NUMBITS
#line 705 "regression-compile-tmp/check.imp"
U_101b:;
#line 705 "regression-compile-tmp/check.imp"
TYPE = 112;
                                                                //    706      ->ON
#line 706 "regression-compile-tmp/check.imp"
goto U_1005;
                                                                //    707  X(2): VAL = NVAL(NP-1)-VAL
#line 707 "regression-compile-tmp/check.imp"
sw2_X_2:;
#line 707 "regression-compile-tmp/check.imp"
VAL = (((int)(NVAL[(((int)((((int)(NP)) - (1)))) - (1))])) - (VAL));
                                                                //    708      ->X1
#line 708 "regression-compile-tmp/check.imp"
goto U_101b;
                                                                //    709  X(3): VAL = NVAL(NP-1)!VAL
#line 709 "regression-compile-tmp/check.imp"
sw2_X_3:;
#line 709 "regression-compile-tmp/check.imp"
VAL = ((NVAL[(((int)((((int)(NP)) - (1)))) - (1))]) | (VAL));
                                                                //    710      ->X1
#line 710 "regression-compile-tmp/check.imp"
goto U_101b;
                                                                //    711  X(4): VAL = NVAL(NP-1)!!VAL
#line 711 "regression-compile-tmp/check.imp"
sw2_X_4:;
#line 711 "regression-compile-tmp/check.imp"
VAL = ((NVAL[(((int)((((int)(NP)) - (1)))) - (1))]) ^ (VAL));
                                                                //    712      ->X1
#line 712 "regression-compile-tmp/check.imp"
goto U_101b;
                                                                //    713  A(103): !BAR (FIDDLE FOR MOD-SIGN)
#line 713 "regression-compile-tmp/check.imp"
sw1_A_103:;
                                                                //    714      ->ON %UNLESS NTYPE(NP) = X'43'
#line 714 "regression-compile-tmp/check.imp"
if (((NTYPE[(((int)(NP)) - (1))]) == (67))) goto L_0085;
#line 714 "regression-compile-tmp/check.imp"
goto U_1005;
#line 714 "regression-compile-tmp/check.imp"
L_0085:;
                                                                //    715      ->ERR %UNLESS ATOM = OP3 %AND ATOMTYPE = X'43'
#line 715 "regression-compile-tmp/check.imp"
if (((ATOM) != (6))) goto L_0086;
#line 715 "regression-compile-tmp/check.imp"
if (((ATOMTYPE) == (67))) goto L_0087;
#line 715 "regression-compile-tmp/check.imp"
L_0086:;
#line 715 "regression-compile-tmp/check.imp"
goto U_1003;
#line 715 "regression-compile-tmp/check.imp"
L_0087:;
                                                                //    716      NP = NP+1;  CODE ATOM
#line 716 "regression-compile-tmp/check.imp"
NP = (((int)(NP)) + (1));
#line 716 "regression-compile-tmp/check.imp"
CODEATOM();
                                                                //    717      ->EXIT
#line 717 "regression-compile-tmp/check.imp"
goto U_1008;
                                                                //    718  A(106): !EQ: ASSOP
#line 718 "regression-compile-tmp/check.imp"
sw1_A_106:;
                                                                //    719      ->ERR %IF TYPE&X'FF0C' # 8
#line 719 "regression-compile-tmp/check.imp"
if (((((TYPE) & (65292))) == (8))) goto L_0088;
#line 719 "regression-compile-tmp/check.imp"
goto U_1003;
#line 719 "regression-compile-tmp/check.imp"
L_0088:;
                                                                //    720  SAVE:
#line 720 "regression-compile-tmp/check.imp"
U_101c:;
                                                                //    721      NP = NP-1;  NTYPE(NP) = TYPE;  NVAL(NP) = VAL
#line 721 "regression-compile-tmp/check.imp"
NP = (((int)(NP)) - (1));
#line 721 "regression-compile-tmp/check.imp"
NTYPE[(((int)(NP)) - (1))] = TYPE;
#line 721 "regression-compile-tmp/check.imp"
NVAL[(((int)(NP)) - (1))] = VAL;
                                                                //    722      ->CODE
#line 722 "regression-compile-tmp/check.imp"
goto U_1004;
                                                                //    723  A(14): !EQEQ
#line 723 "regression-compile-tmp/check.imp"
sw1_A_14:;
                                                                //    724      MODES = ADRMODES
#line 724 "regression-compile-tmp/check.imp"
MODES = 1089470464;
                                                                //    725      ->SAVE %IF TYPE&15 = REF
#line 725 "regression-compile-tmp/check.imp"
if (((((TYPE) & (15))) != (8))) goto L_0089;
#line 725 "regression-compile-tmp/check.imp"
goto U_101c;
#line 725 "regression-compile-tmp/check.imp"
L_0089:;
                                                                //    726      ->ERR
#line 726 "regression-compile-tmp/check.imp"
goto U_1003;
                                                                //    727  A(107): !ASS
#line 727 "regression-compile-tmp/check.imp"
sw1_A_107:;
                                                                //    728      I = NTYPE(NP);  NP = NP+1
#line 728 "regression-compile-tmp/check.imp"
I = NTYPE[(((int)(NP)) - (1))];
#line 728 "regression-compile-tmp/check.imp"
NP = (((int)(NP)) + (1));
                                                                //    729  AS1:%IF I&TYPE&X'C0' = 0 %START
#line 729 "regression-compile-tmp/check.imp"
U_101d:;
#line 729 "regression-compile-tmp/check.imp"
if (((((((I) & (TYPE))) & (192))) != (0))) goto L_008a;
                                                                //    730         I = I&X'F0'
#line 730 "regression-compile-tmp/check.imp"
I = ((I) & (240));
                                                                //    731         %IF I = 0 %START;  !RECORD
#line 731 "regression-compile-tmp/check.imp"
if (((I) != (0))) goto L_008b;
                                                                //    732            ->ER22 %UNLESS TYPE&X'F0' = 0 %OR %C
#line 732 "regression-compile-tmp/check.imp"
if (((((TYPE) & (240))) == (0))) goto L_008c;
#line 732 "regression-compile-tmp/check.imp"
if (((((TYPE) & (65359))) != (64))) goto L_0071;
#line 732 "regression-compile-tmp/check.imp"
if (((VAL) == (0))) goto L_008c;
#line 732 "regression-compile-tmp/check.imp"
L_0071:;
#line 732 "regression-compile-tmp/check.imp"
goto U_1010;
#line 732 "regression-compile-tmp/check.imp"
L_008c:;
                                                                //    733              (TYPE&X'FF4F'=INTBIT %AND VAL=0)
                                                                //    734         %FINISH %ELSE %START
#line 734 "regression-compile-tmp/check.imp"
goto L_008d;
#line 734 "regression-compile-tmp/check.imp"
L_008b:;
                                                                //    735            ->ER22 %UNLESS I <= X'30' %AND TYPE&NUMBITS # 0
#line 735 "regression-compile-tmp/check.imp"
if (((I) > (48))) goto L_008e;
#line 735 "regression-compile-tmp/check.imp"
if (((((TYPE) & (112))) != (0))) goto L_008f;
#line 735 "regression-compile-tmp/check.imp"
L_008e:;
#line 735 "regression-compile-tmp/check.imp"
goto U_1010;
#line 735 "regression-compile-tmp/check.imp"
L_008f:;
                                                                //    736         %FINISH
#line 736 "regression-compile-tmp/check.imp"
L_008d:;
                                                                //    737      %FINISH
#line 737 "regression-compile-tmp/check.imp"
L_008a:;
                                                                //    738      ->NAPP
#line 738 "regression-compile-tmp/check.imp"
goto U_100e;
                                                                //    739  A(108): !REFASS
#line 739 "regression-compile-tmp/check.imp"
sw1_A_108:;
                                                                //    740      I = NTYPE(NP);  NP = NP+1
#line 740 "regression-compile-tmp/check.imp"
I = NTYPE[(((int)(NP)) - (1))];
#line 740 "regression-compile-tmp/check.imp"
NP = (((int)(NP)) + (1));
                                                                //    741  RA1:FAULT(22) %IF (I!!TYPE)&X'F0' # 0 %C
#line 741 "regression-compile-tmp/check.imp"
U_101e:;
#line 741 "regression-compile-tmp/check.imp"
if (((((((I) ^ (TYPE))) & (240))) == (0))) goto L_0090;
#line 741 "regression-compile-tmp/check.imp"
if (((((I) & (240))) == (240))) goto L_0090;
#line 741 "regression-compile-tmp/check.imp"
if (((((TYPE) & (240))) == (240))) goto L_0090;
#line 741 "regression-compile-tmp/check.imp"
FAULT(22);
#line 741 "regression-compile-tmp/check.imp"
L_0090:;
                                                                //    742        %AND I&X'F0' # X'F0' %AND TYPE&X'F0' # X'F0'
                                                                //    743      ->NAPP %IF I&APPMASK = 0;  !SCALAR
#line 743 "regression-compile-tmp/check.imp"
if (((((I) & (65280))) != (0))) goto L_0091;
#line 743 "regression-compile-tmp/check.imp"
goto U_100e;
#line 743 "regression-compile-tmp/check.imp"
L_0091:;
                                                                //    744      FAULT(22) %IF TYPE&APPMASK = 0 %OR TYPE&14 = MAP
#line 744 "regression-compile-tmp/check.imp"
if (((((TYPE) & (65280))) == (0))) goto L_0092;
#line 744 "regression-compile-tmp/check.imp"
if (((((TYPE) & (14))) != (10))) goto L_0093;
#line 744 "regression-compile-tmp/check.imp"
L_0092:;
#line 744 "regression-compile-tmp/check.imp"
FAULT(22);
#line 744 "regression-compile-tmp/check.imp"
L_0093:;
                                                                //    745      ->ON
#line 745 "regression-compile-tmp/check.imp"
goto U_1005;
                                                                //    746  A(17): !RESULT
#line 746 "regression-compile-tmp/check.imp"
sw1_A_17:;
                                                                //    747      FAULT(25) %IF C_BTYPE&7 # FN
#line 747 "regression-compile-tmp/check.imp"
if (((((C.BTYPE) & (7))) == (2))) goto L_0094;
#line 747 "regression-compile-tmp/check.imp"
FAULT(25);
#line 747 "regression-compile-tmp/check.imp"
L_0094:;
                                                                //    748      TYPE = C_BTYPE&X'F8';  TYPE = TYPE+VAR %IF TYPE&8 = 0
#line 748 "regression-compile-tmp/check.imp"
TYPE = ((C.BTYPE) & (248));
#line 748 "regression-compile-tmp/check.imp"
if (((((TYPE) & (8))) != (0))) goto L_0095;
#line 748 "regression-compile-tmp/check.imp"
TYPE = (((int)(TYPE)) + (9));
#line 748 "regression-compile-tmp/check.imp"
L_0095:;
                                                                //    749      VAL = 0
#line 749 "regression-compile-tmp/check.imp"
VAL = 0;
                                                                //    750      ->CODE
#line 750 "regression-compile-tmp/check.imp"
goto U_1004;
                                                                //    751  A(71): !RCALL
#line 751 "regression-compile-tmp/check.imp"
sw1_A_71:;
                                                                //    752      ->ON %IF TYPE&X'FFFC' = 4
#line 752 "regression-compile-tmp/check.imp"
if (((((TYPE) & (65532))) != (4))) goto L_0096;
#line 752 "regression-compile-tmp/check.imp"
goto U_1005;
#line 752 "regression-compile-tmp/check.imp"
L_0096:;
                                                                //    753      ->ERR
#line 753 "regression-compile-tmp/check.imp"
goto U_1003;
                                                                //    754  A(112): !APP
#line 754 "regression-compile-tmp/check.imp"
sw1_A_112:;
                                                                //    755      ->ON %IF ATOM # LB
#line 755 "regression-compile-tmp/check.imp"
if (((ATOM) == (11))) goto L_0097;
#line 755 "regression-compile-tmp/check.imp"
goto U_1005;
#line 755 "regression-compile-tmp/check.imp"
L_0097:;
                                                                //    756      LINKMAX = LINKMAX+1;  ->ERR %IF LINKMAX > 20
#line 756 "regression-compile-tmp/check.imp"
LINKMAX = (((int)(LINKMAX)) + (1));
#line 756 "regression-compile-tmp/check.imp"
if (((LINKMAX) <= (20))) goto L_0098;
#line 756 "regression-compile-tmp/check.imp"
goto U_1003;
#line 756 "regression-compile-tmp/check.imp"
L_0098:;
                                                                //    757      LINK(LINKMAX) = G
#line 757 "regression-compile-tmp/check.imp"
LINK[(((int)(LINKMAX)) - (1))] = G;
                                                                //    758      NP = NP-1;  NVAL(NP) = VAL
#line 758 "regression-compile-tmp/check.imp"
NP = (((int)(NP)) - (1));
#line 758 "regression-compile-tmp/check.imp"
NVAL[(((int)(NP)) - (1))] = VAL;
                                                                //    759  AP: ->ERR %IF TYPE&APPMASK = 0
#line 759 "regression-compile-tmp/check.imp"
U_101f:;
#line 759 "regression-compile-tmp/check.imp"
if (((((TYPE) & (65280))) != (0))) goto L_0099;
#line 759 "regression-compile-tmp/check.imp"
goto U_1003;
#line 759 "regression-compile-tmp/check.imp"
L_0099:;
                                                                //    760      NTYPE(NP) = TYPE
#line 760 "regression-compile-tmp/check.imp"
NTYPE[(((int)(NP)) - (1))] = TYPE;
                                                                //    761      G = APPCONT
#line 761 "regression-compile-tmp/check.imp"
G = APPCONT;
                                                                //    762      CODE ATOM
#line 762 "regression-compile-tmp/check.imp"
CODEATOM();
                                                                //    763      J = PARTYPE(TYPE>>8)&15
#line 763 "regression-compile-tmp/check.imp"
J = ((PARTYPE[(int)((((unsigned int)(TYPE)) >> (8)))]) & (15));
                                                                //    764      CLASS = 122;  !EXP
#line 764 "regression-compile-tmp/check.imp"
CLASS = 122;
                                                                //    765      ->ENTER %IF J = VAR
#line 765 "regression-compile-tmp/check.imp"
if (((J) != (9))) goto L_009a;
#line 765 "regression-compile-tmp/check.imp"
goto U_1007;
#line 765 "regression-compile-tmp/check.imp"
L_009a:;
                                                                //    766      CLASS = 111;  MODES = ADRMODES
#line 766 "regression-compile-tmp/check.imp"
CLASS = 111;
#line 766 "regression-compile-tmp/check.imp"
MODES = 1089470464;
                                                                //    767      ->ENTER %IF J = REF
#line 767 "regression-compile-tmp/check.imp"
if (((J) != (8))) goto L_009b;
#line 767 "regression-compile-tmp/check.imp"
goto U_1007;
#line 767 "regression-compile-tmp/check.imp"
L_009b:;
                                                                //    768      MODES = X'C0000000'>>J
#line 768 "regression-compile-tmp/check.imp"
MODES = (int)((((unsigned int)((-1073741824))) >> (J)));
                                                                //    769      ->ENTER
#line 769 "regression-compile-tmp/check.imp"
goto U_1007;
                                                                //    770  A(63): !AP
#line 770 "regression-compile-tmp/check.imp"
sw1_A_63:;
                                                                //    771      J = NTYPE(NP);  I = PARTYPE(J>>8)
#line 771 "regression-compile-tmp/check.imp"
J = NTYPE[(((int)(NP)) - (1))];
#line 771 "regression-compile-tmp/check.imp"
I = PARTYPE[(int)((((unsigned int)(J)) >> (8)))];
                                                                //    772      LASTTYPE = TYPE;  LASTVAL = VAL
#line 772 "regression-compile-tmp/check.imp"
LASTTYPE = TYPE;
#line 772 "regression-compile-tmp/check.imp"
LASTVAL = VAL;
                                                                //    773      TYPE = I>>16+J&X'FF'
#line 773 "regression-compile-tmp/check.imp"
TYPE = ((((int)((((unsigned int)(I)) >> (16))))) + (((J) & (255))));
                                                                //    774      ->AP %IF ATOM = COMMA
#line 774 "regression-compile-tmp/check.imp"
if (((ATOM) != (10))) goto L_009c;
#line 774 "regression-compile-tmp/check.imp"
goto U_101f;
#line 774 "regression-compile-tmp/check.imp"
L_009c:;
                                                                //    775      ->ERR %IF ATOM # RB
#line 775 "regression-compile-tmp/check.imp"
if (((ATOM) == (12))) goto L_009d;
#line 775 "regression-compile-tmp/check.imp"
goto U_1003;
#line 775 "regression-compile-tmp/check.imp"
L_009d:;
                                                                //    776      VAL = NVAL(NP);  NP = NP+1
#line 776 "regression-compile-tmp/check.imp"
VAL = NVAL[(((int)(NP)) - (1))];
#line 776 "regression-compile-tmp/check.imp"
NP = (((int)(NP)) + (1));
                                                                //    777      %IF TYPE&APPMASK # 0 %START
#line 777 "regression-compile-tmp/check.imp"
if (((((TYPE) & (65280))) == (0))) goto L_009e;
                                                                //    778         TYPE = TYPE!!APPMASK
#line 778 "regression-compile-tmp/check.imp"
TYPE = ((TYPE) ^ (65280));
                                                                //    779         ->ERR %IF TYPE&X'FE00' # 0
#line 779 "regression-compile-tmp/check.imp"
if (((((TYPE) & (65024))) == (0))) goto L_009f;
#line 779 "regression-compile-tmp/check.imp"
goto U_1003;
#line 779 "regression-compile-tmp/check.imp"
L_009f:;
                                                                //    780      %FINISH
#line 780 "regression-compile-tmp/check.imp"
L_009e:;
                                                                //    781      TYPE = TYPE&X'FFFC'!1
#line 781 "regression-compile-tmp/check.imp"
TYPE = ((((TYPE) & (65532))) | (1));
                                                                //    782      CODE ATOM
#line 782 "regression-compile-tmp/check.imp"
CODEATOM();
                                                                //    783      ->EXIT
#line 783 "regression-compile-tmp/check.imp"
goto U_1008;
                                                                //    784  A(16): !SIMP: STOP(0), RETURN(1), EXIT(2)
#line 784 "regression-compile-tmp/check.imp"
sw1_A_16:;
                                                                //    785      FAULT(25) %IF (ATOMTYPE = 1 %AND C_BTYPE&15 # ROUTINE) %C
#line 785 "regression-compile-tmp/check.imp"
if (((ATOMTYPE) != (1))) goto L_00a0;
#line 785 "regression-compile-tmp/check.imp"
if (((((C.BTYPE) & (15))) != (6))) goto L_00a1;
#line 785 "regression-compile-tmp/check.imp"
L_00a0:;
#line 785 "regression-compile-tmp/check.imp"
if (((ATOMTYPE) != (2))) goto L_00a2;
#line 785 "regression-compile-tmp/check.imp"
if (((((((((C.STACK) ^ (1431655765))) << (1))) & (C.STACK))) != (0))) goto L_00a2;
#line 785 "regression-compile-tmp/check.imp"
L_00a1:;
#line 785 "regression-compile-tmp/check.imp"
FAULT(25);
#line 785 "regression-compile-tmp/check.imp"
L_00a2:;
                                                                //    786            %OR (ATOMTYPE = 2 %AND (C_STACK!!X'55555555')<<1&C_STACK = 0)
                                                                //    787      ->CODE
#line 787 "regression-compile-tmp/check.imp"
goto U_1004;
                                                                //    788  A(54): !CYCLE
#line 788 "regression-compile-tmp/check.imp"
sw1_A_54:;
                                                                //    789      CONDIND = 2
#line 789 "regression-compile-tmp/check.imp"
CONDIND = 2;
                                                                //    790  A(53): !START
#line 790 "regression-compile-tmp/check.imp"
sw1_A_53:;
                                                                //    791      C_STACK = C_STACK<<2+CONDIND
#line 791 "regression-compile-tmp/check.imp"
C.STACK = (((int)(((C.STACK) << (2)))) + (CONDIND));
                                                                //    792      ->CODE
#line 792 "regression-compile-tmp/check.imp"
goto U_1004;
                                                                //    793  A(55): !FINISH(1)
#line 793 "regression-compile-tmp/check.imp"
sw1_A_55:;
                                                                //    794  A(56): !REPEAT(0)
#line 794 "regression-compile-tmp/check.imp"
sw1_A_56:;
                                                                //    795      CONDIND = C_STACK&3
#line 795 "regression-compile-tmp/check.imp"
CONDIND = ((C.STACK) & (3));
                                                                //    796      %IF CONDIND = 0 %OR (CONDIND!!ATOMTYPE)&1 # 0 %C
#line 796 "regression-compile-tmp/check.imp"
if (((CONDIND) == (0))) goto L_00a3;
#line 796 "regression-compile-tmp/check.imp"
if (((((((CONDIND) ^ (ATOMTYPE))) & (1))) == (0))) goto L_00a4;
#line 796 "regression-compile-tmp/check.imp"
L_00a3:;
#line 796 "regression-compile-tmp/check.imp"
FAULT((((int)(12)) + (ATOMTYPE)));
#line 796 "regression-compile-tmp/check.imp"
goto L_00a5;
#line 796 "regression-compile-tmp/check.imp"
L_00a4:;
#line 796 "regression-compile-tmp/check.imp"
C.STACK = (int)((((unsigned int)(C.STACK)) >> (2)));
#line 796 "regression-compile-tmp/check.imp"
L_00a5:;
                                                                //    797       %THEN FAULT(12+ATOMTYPE) %C
                                                                //    798      %ELSE C_STACK = C_STACK>>2
                                                                //    799      ->CODE
#line 799 "regression-compile-tmp/check.imp"
goto U_1004;
                                                                //    800  A(52): !ELSE(1)
#line 800 "regression-compile-tmp/check.imp"
sw1_A_52:;
                                                                //    801      FAULT(25) %IF CONDIND = 1
#line 801 "regression-compile-tmp/check.imp"
if (((CONDIND) != (1))) goto L_00a6;
#line 801 "regression-compile-tmp/check.imp"
FAULT(25);
#line 801 "regression-compile-tmp/check.imp"
L_00a6:;
                                                                //    802  A(26): !CWORD(3)
#line 802 "regression-compile-tmp/check.imp"
sw1_A_26:;
                                                                //    803  A(51): !ON(1)
#line 803 "regression-compile-tmp/check.imp"
sw1_A_51:;
                                                                //    804      CONDIND = ATOMTYPE
#line 804 "regression-compile-tmp/check.imp"
CONDIND = ATOMTYPE;
                                                                //    805      ->CODE
#line 805 "regression-compile-tmp/check.imp"
goto U_1004;
                                                                //    806  A(58): !END
#line 806 "regression-compile-tmp/check.imp"
sw1_A_58:;
                                                                //    807      %IF LEVEL = 0 %OR (LEVEL=1 %AND C_BTYPE=0) %THEN FAULT(11) %C
#line 807 "regression-compile-tmp/check.imp"
if (((LEVEL) == (0))) goto L_00a7;
#line 807 "regression-compile-tmp/check.imp"
if (((LEVEL) != (1))) goto L_00a8;
#line 807 "regression-compile-tmp/check.imp"
if (((C.BTYPE) != (0))) goto L_00a8;
#line 807 "regression-compile-tmp/check.imp"
L_00a7:;
#line 807 "regression-compile-tmp/check.imp"
FAULT(11);
#line 807 "regression-compile-tmp/check.imp"
goto L_00a9;
#line 807 "regression-compile-tmp/check.imp"
L_00a8:;
#line 807 "regression-compile-tmp/check.imp"
POPCONTEXT();
#line 807 "regression-compile-tmp/check.imp"
L_00a9:;
                                                                //    808      %ELSE POP CONTEXT
                                                                //    809      ->CODE
#line 809 "regression-compile-tmp/check.imp"
goto U_1004;
                                                                //    810  A(59): !ENDPROG
#line 810 "regression-compile-tmp/check.imp"
sw1_A_59:;
                                                                //    811      FPOS1 = FPOS
#line 811 "regression-compile-tmp/check.imp"
FPOS1 = FPOS;
                                                                //    812      REPORT(8) %IF LEVEL > ATOMTYPE
#line 812 "regression-compile-tmp/check.imp"
if (((LEVEL) <= (ATOMTYPE))) goto L_00aa;
#line 812 "regression-compile-tmp/check.imp"
REPORT(8);
#line 812 "regression-compile-tmp/check.imp"
L_00aa:;
                                                                //    813      REPORT(11) %IF LEVEL < ATOMTYPE
#line 813 "regression-compile-tmp/check.imp"
if (((LEVEL) >= (ATOMTYPE))) goto L_00ab;
#line 813 "regression-compile-tmp/check.imp"
REPORT(11);
#line 813 "regression-compile-tmp/check.imp"
L_00ab:;
                                                                //    814      POP CONTEXT %WHILE LEVEL > 0
#line 814 "regression-compile-tmp/check.imp"
L_00ac:;
#line 814 "regression-compile-tmp/check.imp"
if (((LEVEL) <= (0))) goto L_00ad;
#line 814 "regression-compile-tmp/check.imp"
POPCONTEXT();
#line 814 "regression-compile-tmp/check.imp"
goto L_00ac;
#line 814 "regression-compile-tmp/check.imp"
L_00ad:;
                                                                //    815      TIME2 = CPUTIME
#line 815 "regression-compile-tmp/check.imp"
TIME2 = _imp_CPUTIME();
                                                                //    816      ->ENDOK
#line 816 "regression-compile-tmp/check.imp"
goto U_1020;
                                                                //    817  ENDED:
#line 817 "regression-compile-tmp/check.imp"
U_1001:;
                                                                //    818      TIME2 = CPUTIME
#line 818 "regression-compile-tmp/check.imp"
TIME2 = _imp_CPUTIME();
                                                                //    819      PRINT STRING("** END OF FILE AT LINE");  WRITE(NEXTLINE,1)
#line 819 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("** END OF FILE AT LINE"));
#line 819 "regression-compile-tmp/check.imp"
_imp_WRITE(NEXTLINE, 1);
                                                                //    820      NEWLINE
#line 820 "regression-compile-tmp/check.imp"
_imp_NEWLINE();
                                                                //    821  ENDOK:
#line 821 "regression-compile-tmp/check.imp"
U_1020:;
                                                                //    822      %IF PARM&4 # 0 %START
#line 822 "regression-compile-tmp/check.imp"
if (((((*PARM) & (4))) == (0))) goto L_00af;
                                                                //    823         WRITE(LINE,4);  PRINTSYMBOL('L')
#line 823 "regression-compile-tmp/check.imp"
_imp_WRITE(LINE, 4);
#line 823 "regression-compile-tmp/check.imp"
_imp_PRINTSYMBOL(76);
                                                                //    824         WRITE(STATS,4);  PRINT SYMBOL('S')
#line 824 "regression-compile-tmp/check.imp"
_imp_WRITE(STATS, 4);
#line 824 "regression-compile-tmp/check.imp"
_imp_PRINTSYMBOL(83);
                                                                //    825         STATS = 1 %IF STATS = 0
#line 825 "regression-compile-tmp/check.imp"
if (((STATS) != (0))) goto L_00b0;
#line 825 "regression-compile-tmp/check.imp"
STATS = 1;
#line 825 "regression-compile-tmp/check.imp"
L_00b0:;
                                                                //    826         PRINT(ATOMS/STATS,2,1);  PRINT SYMBOL('A')
#line 826 "regression-compile-tmp/check.imp"
_imp_PRINT(((double)((double)((float)(ATOMS)) / (double)((float)(STATS)))), 2, 1);
#line 826 "regression-compile-tmp/check.imp"
_imp_PRINTSYMBOL(65);
                                                                //    827         PRINT(NUMBERS/STATS,2,1);  PRINT SYMBOL('N')
#line 827 "regression-compile-tmp/check.imp"
_imp_PRINT(((double)((double)((float)(NUMBERS)) / (double)((float)(STATS)))), 2, 1);
#line 827 "regression-compile-tmp/check.imp"
_imp_PRINTSYMBOL(78);
                                                                //    828         PRINT(IDENTIFIERS/STATS,2,1);  PRINT SYMBOL('I')
#line 828 "regression-compile-tmp/check.imp"
_imp_PRINT(((double)((double)((float)(IDENTIFIERS)) / (double)((float)(STATS)))), 2, 1);
#line 828 "regression-compile-tmp/check.imp"
_imp_PRINTSYMBOL(73);
                                                                //    829         PRINT(LOOPS/STATS,2,1);  PRINT SYMBOL('C')
#line 829 "regression-compile-tmp/check.imp"
_imp_PRINT(((double)((double)((float)(LOOPS)) / (double)((float)(STATS)))), 2, 1);
#line 829 "regression-compile-tmp/check.imp"
_imp_PRINTSYMBOL(67);
                                                                //    830         PRINT(TIMES/LOOKS,2,1);  PRINT SYMBOL('H')
#line 830 "regression-compile-tmp/check.imp"
_imp_PRINT(((double)((double)((float)(TIMES)) / (double)((float)(LOOKS)))), 2, 1);
#line 830 "regression-compile-tmp/check.imp"
_imp_PRINTSYMBOL(72);
/*Warning: potential loss of precision converting from integer AST_ICONST (1000 - 4 bytes) to real AST_BINOP ((((double)(TIME2)) - (TIME1)) - 0 bytes) detected at ast.c line 108 */
                                                                //    831         PRINT((TIME2-TIME1)*1000/STATS,3,3);  PRINT SYMBOL('M')
#line 831 "regression-compile-tmp/check.imp"
_imp_PRINT(((double)((double)(((((((double)(TIME2)) - (TIME1))) * ((1000))))) / (double)((float)(STATS)))), 3, 3);
#line 831 "regression-compile-tmp/check.imp"
_imp_PRINTSYMBOL(77);
                                                                //    832         NEWLINE
#line 832 "regression-compile-tmp/check.imp"
_imp_NEWLINE();
                                                                //    833      %FINISH
#line 833 "regression-compile-tmp/check.imp"
L_00af:;
                                                                //    834      %IF PARM&8 # 0 %START
#line 834 "regression-compile-tmp/check.imp"
if (((((*PARM) & (8))) == (0))) goto L_00b1;
                                                                //    835         %CYCLE I = 0,1,255
#line 835 "regression-compile-tmp/check.imp"
I = (-1);
if ((((255)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 255");
L_00b2:;
if (I == 255) goto L_00b3;
I += 1;
                                                                //    836            J = INDEX(I)
#line 836 "regression-compile-tmp/check.imp"
J = INDEX[I];
                                                                //    837            %IF J > 0 %START
#line 837 "regression-compile-tmp/check.imp"
if (((J) <= (0))) goto L_00b5;
                                                                //    838               WRITE(I,3);  PRINT SYMBOL(':')
#line 838 "regression-compile-tmp/check.imp"
_imp_WRITE(I, 3);
#line 838 "regression-compile-tmp/check.imp"
_imp_PRINTSYMBOL(58);
                                                                //    839               %WHILE J > 0 %CYCLE
#line 839 "regression-compile-tmp/check.imp"
L_00b6:;
#line 839 "regression-compile-tmp/check.imp"
if (((J) <= (0))) goto L_00b7;
                                                                //    840                  SPACE;  PRINT STRING(STRING(J+12))
#line 840 "regression-compile-tmp/check.imp"
_imp_SPACE();
#line 840 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(*_imp_STRING((((int)(J)) + (12))));
                                                                //    841                  J = INTEGER(J+8)
#line 841 "regression-compile-tmp/check.imp"
J = *_imp_INTEGER((((int)(J)) + (8)));
                                                                //    842               %REPEAT
#line 842 "regression-compile-tmp/check.imp"
goto L_00b6;
#line 842 "regression-compile-tmp/check.imp"
L_00b7:;
                                                                //    843               NEWLINE
#line 843 "regression-compile-tmp/check.imp"
_imp_NEWLINE();
                                                                //    844            %FINISH
#line 844 "regression-compile-tmp/check.imp"
L_00b5:;
                                                                //    845         %REPEAT
#line 845 "regression-compile-tmp/check.imp"
goto L_00b2;
#line 845 "regression-compile-tmp/check.imp"
L_00b3:;
                                                                //    846      %FINISH
#line 846 "regression-compile-tmp/check.imp"
L_00b1:;
                                                                //    847      %RETURN
#line 847 "regression-compile-tmp/check.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    848  
                                                                //    849  !
                                                                //    850  
                                                                //    851  %ROUTINE PRINT SS
#line 851 "regression-compile-tmp/check.imp"
void PRINTSS( void )
#line 851 "regression-compile-tmp/check.imp"
{
                                                                //    852  {%SHORTROUTINE}
                                                                //    853  %INTEGER K
#line 853 "regression-compile-tmp/check.imp"
int K;
                                                                //    854  %ROUTINE WRITE(%INTEGER V,P)
#line 854 "regression-compile-tmp/check.imp"
void WRITE( int V, int P )
#line 854 "regression-compile-tmp/check.imp"
{
                                                                //    855      %IF V >= 10 %START
#line 855 "regression-compile-tmp/check.imp"
if (((V) < (10))) goto L_00b9;
                                                                //    856         WRITE(V//10,P-1);  V = V-10*(V//10)
#line 856 "regression-compile-tmp/check.imp"
WRITE(((long)((long)((int)(V)) / (long)((int)(10)))), (((int)(P)) - (1)));
#line 856 "regression-compile-tmp/check.imp"
V = ((V) - ((int)(((10) * (((long)((long)((int)(V)) / (long)((int)(10)))))))));
                                                                //    857      %FINISH %ELSE SPACES(P-1)
#line 857 "regression-compile-tmp/check.imp"
goto L_00ba;
#line 857 "regression-compile-tmp/check.imp"
L_00b9:;
#line 857 "regression-compile-tmp/check.imp"
_imp_SPACES((((int)(P)) - (1)));
#line 857 "regression-compile-tmp/check.imp"
L_00ba:;
                                                                //    858      PRINT SYMBOL(V+'0')
#line 858 "regression-compile-tmp/check.imp"
_imp_PRINTSYMBOL((((int)(V)) + (48)));
                                                                //    859  %END
#line 859 "regression-compile-tmp/check.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block WRITE at level 3
                                                                //    860      WRITE(LINE,4);  SPACE
#line 860 "regression-compile-tmp/check.imp"
WRITE(LINE, 4);
#line 860 "regression-compile-tmp/check.imp"
_imp_SPACE();
                                                                //    861      PRINTPOS = LINEBASE
#line 861 "regression-compile-tmp/check.imp"
PRINTPOS = LINEBASE;
                                                                //    862      {%UNTIL PRINTPOS = FPOS1} %CYCLE
#line 862 "regression-compile-tmp/check.imp"
L_00bb:;
                                                                //    863         PRINTPOS = PRINTPOS+1
#line 863 "regression-compile-tmp/check.imp"
PRINTPOS = (((int)(PRINTPOS)) + (1));
                                                                //    864         PRINT SYMBOL(MARKER) %IF PRINTPOS = FAULTPOS
#line 864 "regression-compile-tmp/check.imp"
if (((PRINTPOS) != (FAULTPOS))) goto L_00be;
#line 864 "regression-compile-tmp/check.imp"
_imp_PRINTSYMBOL(124);
#line 864 "regression-compile-tmp/check.imp"
L_00be:;
                                                                //    865         K = BYTEINTEGER(PRINTPOS)
#line 865 "regression-compile-tmp/check.imp"
K = *_imp_BYTEINTEGER(PRINTPOS);
                                                                //    866         %IF K = NL %OR 32 <= K <= 126 %THEN PRINT SYMBOL(K) %C
#line 866 "regression-compile-tmp/check.imp"
if (((K) == (10))) goto L_00b4;
#line 866 "regression-compile-tmp/check.imp"
if ((((32) > (K))) || (((K) > (126)))) goto L_00bf;
#line 866 "regression-compile-tmp/check.imp"
L_00b4:;
#line 866 "regression-compile-tmp/check.imp"
_imp_PRINTSYMBOL(K);
#line 866 "regression-compile-tmp/check.imp"
goto L_00c0;
#line 866 "regression-compile-tmp/check.imp"
L_00bf:;
#line 866 "regression-compile-tmp/check.imp"
_imp_PRINTSYMBOL(91);
#line 866 "regression-compile-tmp/check.imp"
WRITE(K, 0);
#line 866 "regression-compile-tmp/check.imp"
_imp_PRINTSYMBOL(93);
#line 866 "regression-compile-tmp/check.imp"
L_00c0:;
                                                                //    867         %ELSE PRINT SYMBOL('[') %AND WRITE(K,0) %AND PRINT SYMBOL(']')
                                                                //    868      %REPEAT %UNTIL PRINTPOS = FPOS1
#line 868 "regression-compile-tmp/check.imp"
if (((PRINTPOS) == (FPOS1))) goto L_00bc;
#line 868 "regression-compile-tmp/check.imp"
goto L_00bb;
#line 868 "regression-compile-tmp/check.imp"
L_00bc:;
                                                                //    869      NEWLINE %IF K # NL
#line 869 "regression-compile-tmp/check.imp"
if (((K) == (10))) goto L_00c1;
#line 869 "regression-compile-tmp/check.imp"
_imp_NEWLINE();
#line 869 "regression-compile-tmp/check.imp"
L_00c1:;
                                                                //    870  %END
#line 870 "regression-compile-tmp/check.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PRINTSS at level 2
                                                                //    871  
                                                                //    872  %ROUTINE REPORT(%INTEGER N)
#line 872 "regression-compile-tmp/check.imp"
void REPORT( int N )
#line 872 "regression-compile-tmp/check.imp"
{
                                                                //    873  {%SHORTROUTINE}
                                                                //    874  %SWITCH S(0:25)
#line 874 "regression-compile-tmp/check.imp"
static int sw3_S_idx;
static const void * /*SWITCH*/ sw3_S[26] = { &&sw3_S_0, &&sw3_S_1, &&sw3_S_2, &&sw3_S_3, &&sw3_S_4, &&sw3_S_5, &&sw3_S_6, &&sw3_S_7, &&sw3_S_8, &&sw3_S_9, &&sw3_S_10, &&sw3_S_11, &&sw3_S_12, &&sw3_S_13, &&sw3_S_14, &&sw3_S_15, &&sw3_S_16, &&sw3_S_17, &&sw3_S_18, &&sw3_S_19, &&sw3_S_20, &&sw3_S_21, &&sw3_S_22, &&sw3_S_23, &&sw3_S_24, &&sw3_S_25,  };
                                                                //    875         FAULTPOS = 0 %IF N > 7
#line 875 "regression-compile-tmp/check.imp"
if (((N) <= (7))) goto L_00c2;
#line 875 "regression-compile-tmp/check.imp"
FAULTPOS = 0;
#line 875 "regression-compile-tmp/check.imp"
L_00c2:;
                                                                //    876         PRINT SS %IF PRINTPOS # FPOS1
#line 876 "regression-compile-tmp/check.imp"
if (((PRINTPOS) == (FPOS1))) goto L_00c3;
#line 876 "regression-compile-tmp/check.imp"
PRINTSS();
#line 876 "regression-compile-tmp/check.imp"
L_00c3:;
                                                                //    877         PRINT SYMBOL('*')
#line 877 "regression-compile-tmp/check.imp"
_imp_PRINTSYMBOL(42);
                                                                //    878         ->S(N)
#line 878 "regression-compile-tmp/check.imp"
sw3_S_idx = N; if ((0 <= sw3_S_idx) && (sw3_S_idx <= 25)) goto *sw3_S[sw3_S_idx]; else {
   /*_imp_signal(8, 2, sw3_S_idx);*/
   fprintf(stderr, "%%SWITCH index S(%d) not in range 0:25 at %s:%d\n",
           sw3_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__),
           (_imp_current_line != 0 ? _imp_current_line : __LINE__));
           exit(1);
}
                                                                //    879  S(0): PRINT STRING("FORM?");  ->F
#line 879 "regression-compile-tmp/check.imp"
sw3_S_0:;
#line 879 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("FORM?"));
#line 879 "regression-compile-tmp/check.imp"
goto U_1021;
                                                                //    880  S(1): PRINT STRING("ATOM?");  ->F
#line 880 "regression-compile-tmp/check.imp"
sw3_S_1:;
#line 880 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("ATOM?"));
#line 880 "regression-compile-tmp/check.imp"
goto U_1021;
                                                                //    881  S(2): PRINT STRING("NAME?");  ->F
#line 881 "regression-compile-tmp/check.imp"
sw3_S_2:;
#line 881 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("NAME?"));
#line 881 "regression-compile-tmp/check.imp"
goto U_1021;
                                                                //    882  S(3): PRINT STRING("MODE?");  ->F
#line 882 "regression-compile-tmp/check.imp"
sw3_S_3:;
#line 882 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("MODE?"));
#line 882 "regression-compile-tmp/check.imp"
goto U_1021;
                                                                //    883  S(4): PRINT STRING("SIZE?");  ->F
#line 883 "regression-compile-tmp/check.imp"
sw3_S_4:;
#line 883 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("SIZE?"));
#line 883 "regression-compile-tmp/check.imp"
goto U_1021;
                                                                //    884  S(11):PRINT STRING("%BEGIN");  ->M
#line 884 "regression-compile-tmp/check.imp"
sw3_S_11:;
#line 884 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("%BEGIN"));
#line 884 "regression-compile-tmp/check.imp"
goto U_1022;
                                                                //    885  S(12):PRINT STRING("%CYCLE");  ->M
#line 885 "regression-compile-tmp/check.imp"
sw3_S_12:;
#line 885 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("%CYCLE"));
#line 885 "regression-compile-tmp/check.imp"
goto U_1022;
                                                                //    886  S(13):PRINT STRING("%START");  ->M
#line 886 "regression-compile-tmp/check.imp"
sw3_S_13:;
#line 886 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("%START"));
#line 886 "regression-compile-tmp/check.imp"
goto U_1022;
                                                                //    887  S(8): PRINT STRING("%END");  ->M
#line 887 "regression-compile-tmp/check.imp"
sw3_S_8:;
#line 887 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("%END"));
#line 887 "regression-compile-tmp/check.imp"
goto U_1022;
                                                                //    888  S(9): PRINT STRING("%REPEAT");  ->M
#line 888 "regression-compile-tmp/check.imp"
sw3_S_9:;
#line 888 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("%REPEAT"));
#line 888 "regression-compile-tmp/check.imp"
goto U_1022;
                                                                //    889  S(10):PRINT STRING("%FINISH");  ->M
#line 889 "regression-compile-tmp/check.imp"
sw3_S_10:;
#line 889 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("%FINISH"));
#line 889 "regression-compile-tmp/check.imp"
goto U_1022;
                                                                //    890  S(15): PRINT SYMBOL('''')
#line 890 "regression-compile-tmp/check.imp"
sw3_S_15:;
#line 890 "regression-compile-tmp/check.imp"
_imp_PRINTSYMBOL(39);
                                                                //    891         PRINT STRING(STRING(DPOS+12))
#line 891 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(*_imp_STRING((((int)(DPOS)) + (12))));
                                                                //    892         PRINT SYMBOL('''')
#line 892 "regression-compile-tmp/check.imp"
_imp_PRINTSYMBOL(39);
                                                                //    893  M:    PRINT STRING(" MISSING");  ->F
#line 893 "regression-compile-tmp/check.imp"
U_1022:;
#line 893 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal(" MISSING"));
#line 893 "regression-compile-tmp/check.imp"
goto U_1021;
                                                                //    894  S(23):PRINT STRING("BOUNDS?");  ->F
#line 894 "regression-compile-tmp/check.imp"
sw3_S_23:;
#line 894 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("BOUNDS?"));
#line 894 "regression-compile-tmp/check.imp"
goto U_1021;
                                                                //    895  S(25):PRINT STRING("CONTEXT?");  ->F
#line 895 "regression-compile-tmp/check.imp"
sw3_S_25:;
#line 895 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("CONTEXT?"));
#line 895 "regression-compile-tmp/check.imp"
goto U_1021;
                                                                //    896  S(5):
#line 896 "regression-compile-tmp/check.imp"
sw3_S_5:;
                                                                //    897  S(16):PRINT STRING("DUPLICATE");  ->F
#line 897 "regression-compile-tmp/check.imp"
sw3_S_16:;
#line 897 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("DUPLICATE"));
#line 897 "regression-compile-tmp/check.imp"
goto U_1021;
                                                                //    898  S(17):PRINT STRING("ORDER?");  ->F
#line 898 "regression-compile-tmp/check.imp"
sw3_S_17:;
#line 898 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("ORDER?"));
#line 898 "regression-compile-tmp/check.imp"
goto U_1021;
                                                                //    899  S(18):PRINT STRING("MATCH?");  ->F
#line 899 "regression-compile-tmp/check.imp"
sw3_S_18:;
#line 899 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("MATCH?"));
#line 899 "regression-compile-tmp/check.imp"
goto U_1021;
                                                                //    900  S(19):PRINT STRING("RANGE?");  ->F
#line 900 "regression-compile-tmp/check.imp"
sw3_S_19:;
#line 900 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("RANGE?"));
#line 900 "regression-compile-tmp/check.imp"
goto U_1021;
                                                                //    901  S(20):PRINT STRING("LITERAL?");  ->F
#line 901 "regression-compile-tmp/check.imp"
sw3_S_20:;
#line 901 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("LITERAL?"));
#line 901 "regression-compile-tmp/check.imp"
goto U_1021;
                                                                //    902  S(21): %IF CONSTCOUNT < 0 %START
#line 902 "regression-compile-tmp/check.imp"
sw3_S_21:;
#line 902 "regression-compile-tmp/check.imp"
if (((CONSTCOUNT) >= (0))) goto L_00c4;
                                                                //    903            WRITE(-CONSTCOUNT,1); PRINT STRING(" EXTRA")
#line 903 "regression-compile-tmp/check.imp"
_imp_WRITE((-(CONSTCOUNT)), 1);
#line 903 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal(" EXTRA"));
                                                                //    904         %FINISH %ELSE %START
#line 904 "regression-compile-tmp/check.imp"
goto L_00c5;
#line 904 "regression-compile-tmp/check.imp"
L_00c4:;
                                                                //    905            WRITE(CONSTCOUNT,1); PRINT STRING(" MISSING")
#line 905 "regression-compile-tmp/check.imp"
_imp_WRITE(CONSTCOUNT, 1);
#line 905 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal(" MISSING"));
                                                                //    906           %FINISH
#line 906 "regression-compile-tmp/check.imp"
L_00c5:;
                                                                //    907        PRINT STRING(" VALUE(S)");  ->F
#line 907 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal(" VALUE(S)"));
#line 907 "regression-compile-tmp/check.imp"
goto U_1021;
                                                                //    908  S(22):PRINT STRING("TYPE?");  ->F
#line 908 "regression-compile-tmp/check.imp"
sw3_S_22:;
#line 908 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal("TYPE?"));
#line 908 "regression-compile-tmp/check.imp"
goto U_1021;
                                                                //    909  F:     NEWLINE
#line 909 "regression-compile-tmp/check.imp"
U_1021:;
#line 909 "regression-compile-tmp/check.imp"
_imp_NEWLINE();
                                                                //    910      FAULTNUM = -1;  PARM = PARM!X'80000000'
#line 910 "regression-compile-tmp/check.imp"
FAULTNUM = (-1);
#line 910 "regression-compile-tmp/check.imp"
*PARM = ((*PARM) | ((-2147483648)));
                                                                //    911  %END
#line 911 "regression-compile-tmp/check.imp"
/* Remove %on %event handler here if present for this block */
return;
sw3_S_6:;
sw3_S_7:;
sw3_S_14:;
sw3_S_24:;
/*_imp_signal(6,3,sw3_S_idx,"SWITCH LABEL NOT SET - sw3_S");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw3_S(%d): at line %s:%d", sw3_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block REPORT at level 2
                                                                //    912  
                                                                //    913  %ROUTINE CODE ATOM
#line 913 "regression-compile-tmp/check.imp"
void CODEATOM( void )
#line 913 "regression-compile-tmp/check.imp"
{
                                                                //    914  {%SHORTROUTINE}
                                                                //    915  {%REGISTER} %INTEGER FP{(5)};  !FILE POS
#line 915 "regression-compile-tmp/check.imp"
int FP;
                                                                //    916  {%REGISTER} %INTEGER SC{(6)};  !SYMCODE OR SYM
#line 916 "regression-compile-tmp/check.imp"
int SC;
                                                                //    917  %INTEGER I,J,K,L
#line 917 "regression-compile-tmp/check.imp"
int I;
#line 917 "regression-compile-tmp/check.imp"
int J;
#line 917 "regression-compile-tmp/check.imp"
int K;
#line 917 "regression-compile-tmp/check.imp"
int L;
                                                                //    918  %INTEGER HASH
#line 918 "regression-compile-tmp/check.imp"
int HASH;
                                                                //    919  
                                                                //    920      ATOMS = ATOMS+1
#line 920 "regression-compile-tmp/check.imp"
ATOMS = (((int)(ATOMS)) + (1));
                                                                //    921      FP = FPOS;  SC = SYMCODE
#line 921 "regression-compile-tmp/check.imp"
FP = FPOS;
#line 921 "regression-compile-tmp/check.imp"
SC = SYMCODE;
                                                                //    922      ->C2 %IF SC # 0
#line 922 "regression-compile-tmp/check.imp"
if (((SC) == (0))) goto L_00c6;
#line 922 "regression-compile-tmp/check.imp"
goto U_1023;
#line 922 "regression-compile-tmp/check.imp"
L_00c6:;
                                                                //    923  C1: {%UNTIL SC # ' '} %CYCLE
#line 923 "regression-compile-tmp/check.imp"
U_1024:;
#line 923 "regression-compile-tmp/check.imp"
L_00c7:;
                                                                //    924         FP = FP+1;  SC = BYTEINTEGER(FP)
#line 924 "regression-compile-tmp/check.imp"
FP = (((int)(FP)) + (1));
#line 924 "regression-compile-tmp/check.imp"
SC = *_imp_BYTEINTEGER(FP);
                                                                //    925      %REPEAT %UNTIL SC # ' '
#line 925 "regression-compile-tmp/check.imp"
if (((SC) != (32))) goto L_00c8;
#line 925 "regression-compile-tmp/check.imp"
goto L_00c7;
#line 925 "regression-compile-tmp/check.imp"
L_00c8:;
                                                                //    926      SC = SYMINIT(SC)
#line 926 "regression-compile-tmp/check.imp"
SC = SYMINIT[SC];
                                                                //    927  C2: FPOS1 = FP
#line 927 "regression-compile-tmp/check.imp"
U_1023:;
#line 927 "regression-compile-tmp/check.imp"
FPOS1 = FP;
                                                                //    928      ->NAMENUM %IF SC < 127
#line 928 "regression-compile-tmp/check.imp"
if (((SC) >= (127))) goto L_00ca;
#line 928 "regression-compile-tmp/check.imp"
goto U_1025;
#line 928 "regression-compile-tmp/check.imp"
L_00ca:;
                                                                //    929      SC = SC-128
#line 929 "regression-compile-tmp/check.imp"
SC = (((int)(SC)) - (128));
                                                                //    930      ->KEYWORD %IF SC > 0
#line 930 "regression-compile-tmp/check.imp"
if (((SC) <= (0))) goto L_00cb;
#line 930 "regression-compile-tmp/check.imp"
goto U_1026;
#line 930 "regression-compile-tmp/check.imp"
L_00cb:;
                                                                //    931      ->QUOTEMARK %IF SC # 0
#line 931 "regression-compile-tmp/check.imp"
if (((SC) == (0))) goto L_00cc;
#line 931 "regression-compile-tmp/check.imp"
goto U_1027;
#line 931 "regression-compile-tmp/check.imp"
L_00cc:;
                                                                //    932     !PERCENT
                                                                //    933      FP = FP+1;  SC = SYMINIT(BYTEINTEGER(FP)!128)
#line 933 "regression-compile-tmp/check.imp"
FP = (((int)(FP)) + (1));
#line 933 "regression-compile-tmp/check.imp"
SC = SYMINIT[((*_imp_BYTEINTEGER(FP)) | (128))];
                                                                //    934      ->C2 %IF SC # 0
#line 934 "regression-compile-tmp/check.imp"
if (((SC) == (0))) goto L_00cd;
#line 934 "regression-compile-tmp/check.imp"
goto U_1023;
#line 934 "regression-compile-tmp/check.imp"
L_00cd:;
                                                                //    935      ->C1
#line 935 "regression-compile-tmp/check.imp"
goto U_1024;
                                                                //    936  
                                                                //    937  !LOCATE ATOM IN FIXED DICT
                                                                //    938  !KEYDICT := MORE<5> : LINK<9> : SYM-32<6>
                                                                //    939  !           OR CLASS<7> : 0<6>
                                                                //    940  !           THEN  SUBCLASS<16>
                                                                //    941  KEYWORD:
#line 941 "regression-compile-tmp/check.imp"
U_1026:;
                                                                //    942      ->NLQ %IF SC >= SKIPMIN;  !NL OR EQUIVALENT
#line 942 "regression-compile-tmp/check.imp"
if (((SC) < (SKIPMIN))) goto L_00ce;
#line 942 "regression-compile-tmp/check.imp"
goto U_1028;
#line 942 "regression-compile-tmp/check.imp"
L_00ce:;
                                                                //    943      I = SC;  L = 0;  L = 128 %IF SC < PUNCTMIN
#line 943 "regression-compile-tmp/check.imp"
I = SC;
#line 943 "regression-compile-tmp/check.imp"
L = 0;
#line 943 "regression-compile-tmp/check.imp"
if (((SC) >= (43))) goto L_00cf;
#line 943 "regression-compile-tmp/check.imp"
L = 128;
#line 943 "regression-compile-tmp/check.imp"
L_00cf:;
                                                                //    944      %CYCLE
#line 944 "regression-compile-tmp/check.imp"
L_00d0:;
                                                                //    945         %CYCLE
#line 945 "regression-compile-tmp/check.imp"
L_00d3:;
                                                                //    946            FP = FP+1;  K = BYTEINTEGER(FP)
#line 946 "regression-compile-tmp/check.imp"
FP = (((int)(FP)) + (1));
#line 946 "regression-compile-tmp/check.imp"
K = *_imp_BYTEINTEGER(FP);
                                                                //    947            SC = SYMINIT(K!L)
#line 947 "regression-compile-tmp/check.imp"
SC = SYMINIT[((K) | (L))];
                                                                //    948            %EXIT %IF SC&127 # 0
#line 948 "regression-compile-tmp/check.imp"
if (((((SC) & (127))) == (0))) goto L_00d6;
#line 948 "regression-compile-tmp/check.imp"
goto L_00d4;
#line 948 "regression-compile-tmp/check.imp"
L_00d6:;
                                                                //    949            L = SC
#line 949 "regression-compile-tmp/check.imp"
L = SC;
                                                                //    950         %REPEAT
#line 950 "regression-compile-tmp/check.imp"
goto L_00d3;
#line 950 "regression-compile-tmp/check.imp"
L_00d4:;
                                                                //    951         K = K-32 %IF SC&128 # 0
#line 951 "regression-compile-tmp/check.imp"
if (((((SC) & (128))) == (0))) goto L_00d7;
#line 951 "regression-compile-tmp/check.imp"
K = (((int)(K)) - (32));
#line 951 "regression-compile-tmp/check.imp"
L_00d7:;
                                                                //    952         %CYCLE
#line 952 "regression-compile-tmp/check.imp"
L_00d8:;
                                                                //    953            J = KEYDICT(I)
#line 953 "regression-compile-tmp/check.imp"
J = KEYDICT[I];
                                                                //    954            %EXIT %IF J >= 0 %OR J&63 = K
#line 954 "regression-compile-tmp/check.imp"
if (((J) >= (0))) goto L_00db;
#line 954 "regression-compile-tmp/check.imp"
if (((((J) & (63))) != (K))) goto L_00dc;
#line 954 "regression-compile-tmp/check.imp"
L_00db:;
#line 954 "regression-compile-tmp/check.imp"
goto L_00d9;
#line 954 "regression-compile-tmp/check.imp"
L_00dc:;
                                                                //    955            I = I+1
#line 955 "regression-compile-tmp/check.imp"
I = (((int)(I)) + (1));
                                                                //    956         %REPEAT
#line 956 "regression-compile-tmp/check.imp"
goto L_00d8;
#line 956 "regression-compile-tmp/check.imp"
L_00d9:;
                                                                //    957         %EXIT %IF J&63 # K
#line 957 "regression-compile-tmp/check.imp"
if (((((J) & (63))) == (K))) goto L_00dd;
#line 957 "regression-compile-tmp/check.imp"
goto L_00d1;
#line 957 "regression-compile-tmp/check.imp"
L_00dd:;
                                                                //    958         I = J>>6&511
#line 958 "regression-compile-tmp/check.imp"
I = (((int)((((unsigned int)(J)) >> (6)))) & (511));
                                                                //    959      %REPEAT
#line 959 "regression-compile-tmp/check.imp"
goto L_00d0;
#line 959 "regression-compile-tmp/check.imp"
L_00d1:;
                                                                //    960      ->ERR %IF J&63 # 0
#line 960 "regression-compile-tmp/check.imp"
if (((((J) & (63))) == (0))) goto L_00de;
#line 960 "regression-compile-tmp/check.imp"
goto U_1029;
#line 960 "regression-compile-tmp/check.imp"
L_00de:;
                                                                //    961      ATOMTYPE = KEYDICT(I+1)&X'FFFF'
#line 961 "regression-compile-tmp/check.imp"
ATOMTYPE = ((KEYDICT[(((int)(I)) + (1))]) & (65535));
                                                                //    962      ATOM = J>>6
#line 962 "regression-compile-tmp/check.imp"
ATOM = (int)((((unsigned int)(J)) >> (6)));
                                                                //    963      ->KEY5 %IF ATOM = 0
#line 963 "regression-compile-tmp/check.imp"
if (((ATOM) != (0))) goto L_00df;
#line 963 "regression-compile-tmp/check.imp"
goto U_102a;
#line 963 "regression-compile-tmp/check.imp"
L_00df:;
                                                                //    964  FIN:FPOS = FP;  SYMCODE = SC
#line 964 "regression-compile-tmp/check.imp"
U_102b:;
#line 964 "regression-compile-tmp/check.imp"
FPOS = FP;
#line 964 "regression-compile-tmp/check.imp"
SYMCODE = SC;
                                                                //    965      %RETURN
#line 965 "regression-compile-tmp/check.imp"
/* Remove %on %event handler here if present for this block */
return;
                                                                //    966  KEY5:
#line 966 "regression-compile-tmp/check.imp"
U_102a:;
                                                                //    967      %IF ATOMTYPE # 0 %START;  !%COMMENT
#line 967 "regression-compile-tmp/check.imp"
if (((ATOMTYPE) == (0))) goto L_00e0;
                                                                //    968         ->FIN %IF SKIPMIN # SKIP1MIN
#line 968 "regression-compile-tmp/check.imp"
if (((SKIPMIN) == (86))) goto L_00e1;
#line 968 "regression-compile-tmp/check.imp"
goto U_102b;
#line 968 "regression-compile-tmp/check.imp"
L_00e1:;
                                                                //    969         ->SKP
#line 969 "regression-compile-tmp/check.imp"
goto U_102c;
                                                                //    970      %FINISH
#line 970 "regression-compile-tmp/check.imp"
L_00e0:;
                                                                //    971      ->ERR %UNLESS BYTEINTEGER(FP) = NL
#line 971 "regression-compile-tmp/check.imp"
if (((*_imp_BYTEINTEGER(FP)) == (10))) goto L_00e2;
#line 971 "regression-compile-tmp/check.imp"
goto U_1029;
#line 971 "regression-compile-tmp/check.imp"
L_00e2:;
                                                                //    972      NEXTLINE = NEXTLINE+1
#line 972 "regression-compile-tmp/check.imp"
NEXTLINE = (((int)(NEXTLINE)) + (1));
                                                                //    973      ->TERM %IF FP >= FMAX
#line 973 "regression-compile-tmp/check.imp"
if (((FP) < (FMAX))) goto L_00e3;
#line 973 "regression-compile-tmp/check.imp"
goto U_102d;
#line 973 "regression-compile-tmp/check.imp"
L_00e3:;
                                                                //    974      ->C1
#line 974 "regression-compile-tmp/check.imp"
goto U_1024;
                                                                //    975  
                                                                //    976  NLQ:
#line 976 "regression-compile-tmp/check.imp"
U_1028:;
                                                                //    977      ->TERM %IF SKIPMIN # SKIP1MIN;  !NOT LEADING ATOM
#line 977 "regression-compile-tmp/check.imp"
if (((SKIPMIN) == (86))) goto L_00e4;
#line 977 "regression-compile-tmp/check.imp"
goto U_102d;
#line 977 "regression-compile-tmp/check.imp"
L_00e4:;
                                                                //    978  SKP:
#line 978 "regression-compile-tmp/check.imp"
U_102c:;
                                                                //    979      FP = FP-1
#line 979 "regression-compile-tmp/check.imp"
FP = (((int)(FP)) - (1));
                                                                //    980      {%UNTIL SC = NL %OR SC = ';'} %CYCLE
#line 980 "regression-compile-tmp/check.imp"
L_00e5:;
                                                                //    981         FP = FP+1;  SC = BYTEINTEGER(FP)
#line 981 "regression-compile-tmp/check.imp"
FP = (((int)(FP)) + (1));
#line 981 "regression-compile-tmp/check.imp"
SC = *_imp_BYTEINTEGER(FP);
                                                                //    982      %REPEAT %UNTIL SC = NL %OR SC = ';'
#line 982 "regression-compile-tmp/check.imp"
if (((SC) == (10))) goto L_00e6;
#line 982 "regression-compile-tmp/check.imp"
if (((SC) == (59))) goto L_00e6;
#line 982 "regression-compile-tmp/check.imp"
goto L_00e5;
#line 982 "regression-compile-tmp/check.imp"
L_00e6:;
                                                                //    983      %IF SC = NL %START
#line 983 "regression-compile-tmp/check.imp"
if (((SC) != (10))) goto L_00e8;
                                                                //    984         ->TERM %IF FP >= FMAX
#line 984 "regression-compile-tmp/check.imp"
if (((FP) < (FMAX))) goto L_00e9;
#line 984 "regression-compile-tmp/check.imp"
goto U_102d;
#line 984 "regression-compile-tmp/check.imp"
L_00e9:;
                                                                //    985         LINEBASE = FP;  NEXTLINE = NEXTLINE+1;  LINE = NEXTLINE
#line 985 "regression-compile-tmp/check.imp"
LINEBASE = FP;
#line 985 "regression-compile-tmp/check.imp"
NEXTLINE = (((int)(NEXTLINE)) + (1));
#line 985 "regression-compile-tmp/check.imp"
LINE = NEXTLINE;
                                                                //    986      %FINISH
#line 986 "regression-compile-tmp/check.imp"
L_00e8:;
                                                                //    987      ->C1
#line 987 "regression-compile-tmp/check.imp"
goto U_1024;
                                                                //    988  
                                                                //    989  TERM:
#line 989 "regression-compile-tmp/check.imp"
U_102d:;
                                                                //    990      ATOM = TERMINATOR;  ATOMTYPE = 0
#line 990 "regression-compile-tmp/check.imp"
ATOM = 13;
#line 990 "regression-compile-tmp/check.imp"
ATOMTYPE = 0;
                                                                //    991      NEXTLINE = NEXTLINE+1;  SC = 0
#line 991 "regression-compile-tmp/check.imp"
NEXTLINE = (((int)(NEXTLINE)) + (1));
#line 991 "regression-compile-tmp/check.imp"
SC = 0;
                                                                //    992      SC = 255 %IF FP >= FMAX
#line 992 "regression-compile-tmp/check.imp"
if (((FP) < (FMAX))) goto L_00ea;
#line 992 "regression-compile-tmp/check.imp"
SC = 255;
#line 992 "regression-compile-tmp/check.imp"
L_00ea:;
                                                                //    993      ->FIN
#line 993 "regression-compile-tmp/check.imp"
goto U_102b;
                                                                //    994  
                                                                //    995  DISASTER:
#line 995 "regression-compile-tmp/check.imp"
U_102e:;
                                                                //    996      ATOMTYPE = 99
#line 996 "regression-compile-tmp/check.imp"
ATOMTYPE = 99;
                                                                //    997      ->ER1
#line 997 "regression-compile-tmp/check.imp"
goto U_102f;
                                                                //    998  STRINGERR:
#line 998 "regression-compile-tmp/check.imp"
U_1030:;
                                                                //    999      ATOMTYPE = 4;  NEXTLINE = L
#line 999 "regression-compile-tmp/check.imp"
ATOMTYPE = 4;
#line 999 "regression-compile-tmp/check.imp"
NEXTLINE = L;
                                                                //   1000  ER1:FP = FPOS1;  SC = 0
#line 1000 "regression-compile-tmp/check.imp"
U_102f:;
#line 1000 "regression-compile-tmp/check.imp"
FP = FPOS1;
#line 1000 "regression-compile-tmp/check.imp"
SC = 0;
                                                                //   1001      ->ER2
#line 1001 "regression-compile-tmp/check.imp"
goto U_1031;
                                                                //   1002  ERR:ATOMTYPE = 1
#line 1002 "regression-compile-tmp/check.imp"
U_1029:;
#line 1002 "regression-compile-tmp/check.imp"
ATOMTYPE = 1;
                                                                //   1003  ER2:ATOM = 0
#line 1003 "regression-compile-tmp/check.imp"
U_1031:;
#line 1003 "regression-compile-tmp/check.imp"
ATOM = 0;
                                                                //   1004      ->FIN
#line 1004 "regression-compile-tmp/check.imp"
goto U_102b;
                                                                //   1005  
                                                                //   1006  NAMENUM:
#line 1006 "regression-compile-tmp/check.imp"
U_1025:;
                                                                //   1007      ->NUMBER %IF SC <= '9' %AND ATOM # JUMP
#line 1007 "regression-compile-tmp/check.imp"
if (((SC) > (57))) goto L_00eb;
#line 1007 "regression-compile-tmp/check.imp"
if (((ATOM) == (15))) goto L_00eb;
#line 1007 "regression-compile-tmp/check.imp"
goto U_1032;
#line 1007 "regression-compile-tmp/check.imp"
L_00eb:;
                                                                //   1008      %IF BYTEINTEGER(FP+1) = '''' %START
#line 1008 "regression-compile-tmp/check.imp"
if (((*_imp_BYTEINTEGER((((int)(FP)) + (1)))) != (39))) goto L_00ec;
                                                                //   1009         ->HEX %IF SC = 'X'
#line 1009 "regression-compile-tmp/check.imp"
if (((SC) != (88))) goto L_00ed;
#line 1009 "regression-compile-tmp/check.imp"
goto U_1033;
#line 1009 "regression-compile-tmp/check.imp"
L_00ed:;
                                                                //   1010         ->OCT %IF SC = 'K'
#line 1010 "regression-compile-tmp/check.imp"
if (((SC) != (75))) goto L_00ee;
#line 1010 "regression-compile-tmp/check.imp"
goto U_1034;
#line 1010 "regression-compile-tmp/check.imp"
L_00ee:;
                                                                //   1011         ->BIN %IF SC = 'B'
#line 1011 "regression-compile-tmp/check.imp"
if (((SC) != (66))) goto L_00ef;
#line 1011 "regression-compile-tmp/check.imp"
goto U_1035;
#line 1011 "regression-compile-tmp/check.imp"
L_00ef:;
                                                                //   1012         ->MULTI %IF SC = 'M'
#line 1012 "regression-compile-tmp/check.imp"
if (((SC) != (77))) goto L_00f0;
#line 1012 "regression-compile-tmp/check.imp"
goto U_1036;
#line 1012 "regression-compile-tmp/check.imp"
L_00f0:;
                                                                //   1013      %FINISH
#line 1013 "regression-compile-tmp/check.imp"
L_00ec:;
                                                                //   1014      J = DLIM;  ->DISASTER %IF J+84 >= DBOUND
#line 1014 "regression-compile-tmp/check.imp"
J = DLIM;
#line 1014 "regression-compile-tmp/check.imp"
if ((((((int)(J)) + (84))) < (DBOUND))) goto L_00f1;
#line 1014 "regression-compile-tmp/check.imp"
goto U_102e;
#line 1014 "regression-compile-tmp/check.imp"
L_00f1:;
                                                                //   1015      HASH = 0
#line 1015 "regression-compile-tmp/check.imp"
HASH = 0;
                                                                //   1016      {%UNTIL SC > 'Z'} %CYCLE
#line 1016 "regression-compile-tmp/check.imp"
L_00f2:;
                                                                //   1017         %IF SC # 0 %START
#line 1017 "regression-compile-tmp/check.imp"
if (((SC) == (0))) goto L_00f5;
                                                                //   1018            J = J+1;  BYTEINTEGER(J+12) = SC
#line 1018 "regression-compile-tmp/check.imp"
J = (((int)(J)) + (1));
#line 1018 "regression-compile-tmp/check.imp"
*_imp_BYTEINTEGER((((int)(J)) + (12))) = SC;
                                                                //   1019            HASH = HASH<<1!!SC
#line 1019 "regression-compile-tmp/check.imp"
HASH = ((((HASH) << (1))) ^ (SC));
                                                                //   1020         %FINISH
#line 1020 "regression-compile-tmp/check.imp"
L_00f5:;
                                                                //   1021         FP = FP+1;  SC = SYMINIT(BYTEINTEGER(FP))
#line 1021 "regression-compile-tmp/check.imp"
FP = (((int)(FP)) + (1));
#line 1021 "regression-compile-tmp/check.imp"
SC = SYMINIT[*_imp_BYTEINTEGER(FP)];
                                                                //   1022      %REPEAT %UNTIL SC > 'Z'
#line 1022 "regression-compile-tmp/check.imp"
if (((SC) > (90))) goto L_00f3;
#line 1022 "regression-compile-tmp/check.imp"
goto L_00f2;
#line 1022 "regression-compile-tmp/check.imp"
L_00f3:;
                                                                //   1023      BYTEINTEGER(DLIM+12) = J-DLIM
#line 1023 "regression-compile-tmp/check.imp"
*_imp_BYTEINTEGER((((int)(DLIM)) + (12))) = (((int)(J)) - (DLIM));
                                                                //   1024      NEWDLIM = J&(\3)+16
#line 1024 "regression-compile-tmp/check.imp"
NEWDLIM = (((int)(((J) & ((~(3)))))) + (16));
                                                                //   1025      HEAD == INDEX(HASH&255);  DPOS = HEAD;
#line 1025 "regression-compile-tmp/check.imp"
HEAD = &INDEX[((HASH) & (255))];
#line 1025 "regression-compile-tmp/check.imp"
DPOS = *HEAD;
                                                                //   1026      ATOM = IDENT;
#line 1026 "regression-compile-tmp/check.imp"
ATOM = 1;
                                                                //   1027      IDENTIFIERS = IDENTIFIERS+1
#line 1027 "regression-compile-tmp/check.imp"
IDENTIFIERS = (((int)(IDENTIFIERS)) + (1));
                                                                //   1028      ->FIN
#line 1028 "regression-compile-tmp/check.imp"
goto U_102b;
                                                                //   1029  
                                                                //   1030  NUMBER:
#line 1030 "regression-compile-tmp/check.imp"
U_1032:;
                                                                //   1031      ATOMTYPE = NUMBITS
#line 1031 "regression-compile-tmp/check.imp"
ATOMTYPE = 112;
                                                                //   1032      ATOMVAL = SC-'0'
#line 1032 "regression-compile-tmp/check.imp"
ATOMVAL = (((int)(SC)) - (48));
                                                                //   1033      %CYCLE
#line 1033 "regression-compile-tmp/check.imp"
L_00f6:;
                                                                //   1034         FP = FP+1;  SC = SYMINIT(BYTEINTEGER(FP))
#line 1034 "regression-compile-tmp/check.imp"
FP = (((int)(FP)) + (1));
#line 1034 "regression-compile-tmp/check.imp"
SC = SYMINIT[*_imp_BYTEINTEGER(FP)];
                                                                //   1035         %EXIT %IF SC > '9'
#line 1035 "regression-compile-tmp/check.imp"
if (((SC) <= (57))) goto L_00f9;
#line 1035 "regression-compile-tmp/check.imp"
goto L_00f7;
#line 1035 "regression-compile-tmp/check.imp"
L_00f9:;
                                                                //   1036         ATOMVAL = (ATOMVAL<<2+ATOMVAL)<<1+SC-'0' %C
#line 1036 "regression-compile-tmp/check.imp"
if (((SC) == (0))) goto L_00fa;
#line 1036 "regression-compile-tmp/check.imp"
if (((ATOMVAL) >= (1000000))) goto L_00fa;
#line 1036 "regression-compile-tmp/check.imp"
ATOMVAL = (((int)((((int)((((((int)(((ATOMVAL) << (2)))) + (ATOMVAL))) << (1)))) + (SC)))) - (48));
#line 1036 "regression-compile-tmp/check.imp"
L_00fa:;
                                                                //   1037           %IF SC # 0 %AND ATOMVAL < 1000000
                                                                //   1038      %REPEAT
#line 1038 "regression-compile-tmp/check.imp"
goto L_00f6;
#line 1038 "regression-compile-tmp/check.imp"
L_00f7:;
                                                                //   1039      %IF BYTEINTEGER(FP) = '.' %START
#line 1039 "regression-compile-tmp/check.imp"
if (((*_imp_BYTEINTEGER(FP)) != (46))) goto L_00fb;
                                                                //   1040         {%UNTIL SC > '9'} %CYCLE
#line 1040 "regression-compile-tmp/check.imp"
L_00fc:;
                                                                //   1041            FP = FP+1;  SC = SYMINIT(BYTEINTEGER(FP))
#line 1041 "regression-compile-tmp/check.imp"
FP = (((int)(FP)) + (1));
#line 1041 "regression-compile-tmp/check.imp"
SC = SYMINIT[*_imp_BYTEINTEGER(FP)];
                                                                //   1042         %REPEAT %UNTIL SC > '9'
#line 1042 "regression-compile-tmp/check.imp"
if (((SC) > (57))) goto L_00fd;
#line 1042 "regression-compile-tmp/check.imp"
goto L_00fc;
#line 1042 "regression-compile-tmp/check.imp"
L_00fd:;
                                                                //   1043         ATOMTYPE = REALBITS
#line 1043 "regression-compile-tmp/check.imp"
ATOMTYPE = 48;
                                                                //   1044      %FINISH
#line 1044 "regression-compile-tmp/check.imp"
L_00fb:;
                                                                //   1045      %IF BYTEINTEGER(FP) = '@' %START
#line 1045 "regression-compile-tmp/check.imp"
if (((*_imp_BYTEINTEGER(FP)) != (64))) goto L_00ff;
                                                                //   1046         {%UNTIL SC # ' '} %CYCLE
#line 1046 "regression-compile-tmp/check.imp"
L_0100:;
                                                                //   1047            FP = FP+1;  SC = BYTEINTEGER(FP)
#line 1047 "regression-compile-tmp/check.imp"
FP = (((int)(FP)) + (1));
#line 1047 "regression-compile-tmp/check.imp"
SC = *_imp_BYTEINTEGER(FP);
                                                                //   1048         %REPEAT %UNTIL SC # ' '
#line 1048 "regression-compile-tmp/check.imp"
if (((SC) != (32))) goto L_0101;
#line 1048 "regression-compile-tmp/check.imp"
goto L_0100;
#line 1048 "regression-compile-tmp/check.imp"
L_0101:;
                                                                //   1049         %IF SC = '-' %START
#line 1049 "regression-compile-tmp/check.imp"
if (((SC) != (45))) goto L_0103;
                                                                //   1050            {%UNTIL SC # ' '} %CYCLE
#line 1050 "regression-compile-tmp/check.imp"
L_0104:;
                                                                //   1051               FP = FP+1;  SC = BYTEINTEGER(FP)
#line 1051 "regression-compile-tmp/check.imp"
FP = (((int)(FP)) + (1));
#line 1051 "regression-compile-tmp/check.imp"
SC = *_imp_BYTEINTEGER(FP);
                                                                //   1052            %REPEAT %UNTIL SC # ' '
#line 1052 "regression-compile-tmp/check.imp"
if (((SC) != (32))) goto L_0105;
#line 1052 "regression-compile-tmp/check.imp"
goto L_0104;
#line 1052 "regression-compile-tmp/check.imp"
L_0105:;
                                                                //   1053         %FINISH
#line 1053 "regression-compile-tmp/check.imp"
L_0103:;
                                                                //   1054         SC = SYMINIT(SC)
#line 1054 "regression-compile-tmp/check.imp"
SC = SYMINIT[SC];
                                                                //   1055         ->ERR %UNLESS SC <= '9'
#line 1055 "regression-compile-tmp/check.imp"
if (((SC) <= (57))) goto L_0107;
#line 1055 "regression-compile-tmp/check.imp"
goto U_1029;
#line 1055 "regression-compile-tmp/check.imp"
L_0107:;
                                                                //   1056         {%UNTIL SC > '9'} %CYCLE
#line 1056 "regression-compile-tmp/check.imp"
L_0108:;
                                                                //   1057            FP = FP+1;  SC = SYMINIT(BYTEINTEGER(FP))
#line 1057 "regression-compile-tmp/check.imp"
FP = (((int)(FP)) + (1));
#line 1057 "regression-compile-tmp/check.imp"
SC = SYMINIT[*_imp_BYTEINTEGER(FP)];
                                                                //   1058         %REPEAT %UNTIL SC > '9'
#line 1058 "regression-compile-tmp/check.imp"
if (((SC) > (57))) goto L_0109;
#line 1058 "regression-compile-tmp/check.imp"
goto L_0108;
#line 1058 "regression-compile-tmp/check.imp"
L_0109:;
                                                                //   1059         ATOMTYPE = REALBITS
#line 1059 "regression-compile-tmp/check.imp"
ATOMTYPE = 48;
                                                                //   1060      %FINISH
#line 1060 "regression-compile-tmp/check.imp"
L_00ff:;
                                                                //   1061  NN: ATOM = CONST
#line 1061 "regression-compile-tmp/check.imp"
U_1037:;
#line 1061 "regression-compile-tmp/check.imp"
ATOM = 2;
                                                                //   1062      NUMBERS = NUMBERS+1
#line 1062 "regression-compile-tmp/check.imp"
NUMBERS = (((int)(NUMBERS)) + (1));
                                                                //   1063      ->FIN
#line 1063 "regression-compile-tmp/check.imp"
goto U_102b;
                                                                //   1064  
                                                                //   1065  MULTI:
#line 1065 "regression-compile-tmp/check.imp"
U_1036:;
                                                                //   1066      FP = FP+1
#line 1066 "regression-compile-tmp/check.imp"
FP = (((int)(FP)) + (1));
                                                                //   1067      ATOMTYPE = NUMBITS
#line 1067 "regression-compile-tmp/check.imp"
ATOMTYPE = 112;
                                                                //   1068      ->Q1
#line 1068 "regression-compile-tmp/check.imp"
goto U_1038;
                                                                //   1069  QUOTEMARK:
#line 1069 "regression-compile-tmp/check.imp"
U_1027:;
                                                                //   1070      ATOMTYPE = STRINGBIT
#line 1070 "regression-compile-tmp/check.imp"
ATOMTYPE = 128;
                                                                //   1071  Q1: K = BYTEINTEGER(FP);  J = -1;  L = NEXTLINE
#line 1071 "regression-compile-tmp/check.imp"
U_1038:;
#line 1071 "regression-compile-tmp/check.imp"
K = *_imp_BYTEINTEGER(FP);
#line 1071 "regression-compile-tmp/check.imp"
J = (-1);
#line 1071 "regression-compile-tmp/check.imp"
L = NEXTLINE;
                                                                //   1072      ATOMVAL = 0
#line 1072 "regression-compile-tmp/check.imp"
ATOMVAL = 0;
                                                                //   1073      %CYCLE
#line 1073 "regression-compile-tmp/check.imp"
L_010b:;
                                                                //   1074         FP = FP+1;  SC = BYTEINTEGER(FP)
#line 1074 "regression-compile-tmp/check.imp"
FP = (((int)(FP)) + (1));
#line 1074 "regression-compile-tmp/check.imp"
SC = *_imp_BYTEINTEGER(FP);
                                                                //   1075         %IF SC = NL %START
#line 1075 "regression-compile-tmp/check.imp"
if (((SC) != (10))) goto L_010e;
                                                                //   1076            NEXTLINE = NEXTLINE+1
#line 1076 "regression-compile-tmp/check.imp"
NEXTLINE = (((int)(NEXTLINE)) + (1));
                                                                //   1077            ->TERM %IF FP >= FMAX
#line 1077 "regression-compile-tmp/check.imp"
if (((FP) < (FMAX))) goto L_010f;
#line 1077 "regression-compile-tmp/check.imp"
goto U_102d;
#line 1077 "regression-compile-tmp/check.imp"
L_010f:;
                                                                //   1078         %FINISH
#line 1078 "regression-compile-tmp/check.imp"
L_010e:;
                                                                //   1079         %IF SC = K %START
#line 1079 "regression-compile-tmp/check.imp"
if (((SC) != (K))) goto L_0110;
                                                                //   1080            %EXIT %IF SC # BYTEINTEGER(FP+1)
#line 1080 "regression-compile-tmp/check.imp"
if (((SC) == (*_imp_BYTEINTEGER((((int)(FP)) + (1)))))) goto L_0111;
#line 1080 "regression-compile-tmp/check.imp"
goto L_010c;
#line 1080 "regression-compile-tmp/check.imp"
L_0111:;
                                                                //   1081            FP = FP+1
#line 1081 "regression-compile-tmp/check.imp"
FP = (((int)(FP)) + (1));
                                                                //   1082         %FINISH
#line 1082 "regression-compile-tmp/check.imp"
L_0110:;
                                                                //   1083         ATOMVAL = ATOMVAL<<8+SC
#line 1083 "regression-compile-tmp/check.imp"
ATOMVAL = (((int)(((ATOMVAL) << (8)))) + (SC));
                                                                //   1084         J = J+1;  ->STRINGERR %IF J = 255
#line 1084 "regression-compile-tmp/check.imp"
J = (((int)(J)) + (1));
#line 1084 "regression-compile-tmp/check.imp"
if (((J) != (255))) goto L_0112;
#line 1084 "regression-compile-tmp/check.imp"
goto U_1030;
#line 1084 "regression-compile-tmp/check.imp"
L_0112:;
                                                                //   1085      %REPEAT
#line 1085 "regression-compile-tmp/check.imp"
goto L_010b;
#line 1085 "regression-compile-tmp/check.imp"
L_010c:;
                                                                //   1086      %IF ATOMTYPE = STRINGBIT %START;  !IE NOT MULTI
#line 1086 "regression-compile-tmp/check.imp"
if (((ATOMTYPE) != (128))) goto L_0113;
                                                                //   1087         ATOMVAL = J<<8+ATOMVAL&255
#line 1087 "regression-compile-tmp/check.imp"
ATOMVAL = (((((J) << (8)))) + (((ATOMVAL) & (255))));
                                                                //   1088         ATOMTYPE = STRINGBIT+NUMBITS %IF J = 0
#line 1088 "regression-compile-tmp/check.imp"
if (((J) != (0))) goto L_0114;
#line 1088 "regression-compile-tmp/check.imp"
ATOMTYPE = 240;
#line 1088 "regression-compile-tmp/check.imp"
L_0114:;
                                                                //   1089      %FINISH
#line 1089 "regression-compile-tmp/check.imp"
L_0113:;
                                                                //   1090      SC = 0
#line 1090 "regression-compile-tmp/check.imp"
SC = 0;
                                                                //   1091      ->NN
#line 1091 "regression-compile-tmp/check.imp"
goto U_1037;
                                                                //   1092  
                                                                //   1093  HEX:J = 4;  ->RAD
#line 1093 "regression-compile-tmp/check.imp"
U_1033:;
#line 1093 "regression-compile-tmp/check.imp"
J = 4;
#line 1093 "regression-compile-tmp/check.imp"
goto U_1039;
                                                                //   1094  OCT:J = 3;  ->RAD
#line 1094 "regression-compile-tmp/check.imp"
U_1034:;
#line 1094 "regression-compile-tmp/check.imp"
J = 3;
#line 1094 "regression-compile-tmp/check.imp"
goto U_1039;
                                                                //   1095  BIN:J = 1
#line 1095 "regression-compile-tmp/check.imp"
U_1035:;
#line 1095 "regression-compile-tmp/check.imp"
J = 1;
                                                                //   1096  RAD:FP = FP+1
#line 1096 "regression-compile-tmp/check.imp"
U_1039:;
#line 1096 "regression-compile-tmp/check.imp"
FP = (((int)(FP)) + (1));
                                                                //   1097      ATOMTYPE = NUMBITS;  ATOMVAL = 0
#line 1097 "regression-compile-tmp/check.imp"
ATOMTYPE = 112;
#line 1097 "regression-compile-tmp/check.imp"
ATOMVAL = 0;
                                                                //   1098      %CYCLE
#line 1098 "regression-compile-tmp/check.imp"
L_0115:;
                                                                //   1099         FP = FP+1;  SC = BYTEINTEGER(FP)
#line 1099 "regression-compile-tmp/check.imp"
FP = (((int)(FP)) + (1));
#line 1099 "regression-compile-tmp/check.imp"
SC = *_imp_BYTEINTEGER(FP);
                                                                //   1100         %EXIT %IF SC = ''''
#line 1100 "regression-compile-tmp/check.imp"
if (((SC) != (39))) goto L_0118;
#line 1100 "regression-compile-tmp/check.imp"
goto L_0116;
#line 1100 "regression-compile-tmp/check.imp"
L_0118:;
                                                                //   1101         K = SC-'0'
#line 1101 "regression-compile-tmp/check.imp"
K = (((int)(SC)) - (48));
                                                                //   1102         K = K+('0'-'A'+10) %IF K >= 'A'-'0'
#line 1102 "regression-compile-tmp/check.imp"
if (((K) < (17))) goto L_0119;
#line 1102 "regression-compile-tmp/check.imp"
K = ((K) + ((int)((-7))));
#line 1102 "regression-compile-tmp/check.imp"
L_0119:;
                                                                //   1103         ->ERR %IF K>>J # 0
#line 1103 "regression-compile-tmp/check.imp"
if ((((int)((((unsigned int)(K)) >> (J)))) == (0))) goto L_011a;
#line 1103 "regression-compile-tmp/check.imp"
goto U_1029;
#line 1103 "regression-compile-tmp/check.imp"
L_011a:;
                                                                //   1104         ATOMVAL = ATOMVAL<<J+K
#line 1104 "regression-compile-tmp/check.imp"
ATOMVAL = (((int)(((ATOMVAL) << (J)))) + (K));
                                                                //   1105      %REPEAT
#line 1105 "regression-compile-tmp/check.imp"
goto L_0115;
#line 1105 "regression-compile-tmp/check.imp"
L_0116:;
                                                                //   1106      SC = 0
#line 1106 "regression-compile-tmp/check.imp"
SC = 0;
                                                                //   1107      ->NN
#line 1107 "regression-compile-tmp/check.imp"
goto U_1037;
                                                                //   1108  
                                                                //   1109  %END; !CODE ATOM
#line 1109 "regression-compile-tmp/check.imp"
return;
} // End of block CODEATOM at level 2
                                                                //   1110  
                                                                //   1111  %ROUTINE POP CONTEXT
#line 1111 "regression-compile-tmp/check.imp"
void POPCONTEXT( void )
#line 1111 "regression-compile-tmp/check.imp"
{
                                                                //   1112  {%SHORTROUTINE}
                                                                //   1113  %INTEGER I
#line 1113 "regression-compile-tmp/check.imp"
int I;
                                                                //   1114      DPOS = C_LOCAL;  FPOS1 = FPOS
#line 1114 "regression-compile-tmp/check.imp"
DPOS = C.LOCAL;
#line 1114 "regression-compile-tmp/check.imp"
FPOS1 = FPOS;
                                                                //   1115      %WHILE DPOS # DLIM %CYCLE
#line 1115 "regression-compile-tmp/check.imp"
L_011b:;
#line 1115 "regression-compile-tmp/check.imp"
if (((DPOS) == (DLIM))) goto L_011c;
                                                                //   1116         I = INTEGER(DPOS)
#line 1116 "regression-compile-tmp/check.imp"
I = *_imp_INTEGER(DPOS);
                                                                //   1117         %IF I # RECFORMAT %START
#line 1117 "regression-compile-tmp/check.imp"
if (((I) == (4))) goto L_011e;
                                                                //   1118            REPORT(15) %IF I&1 # 0 %AND I&6 # 0
#line 1118 "regression-compile-tmp/check.imp"
if (((((I) & (1))) == (0))) goto L_011f;
#line 1118 "regression-compile-tmp/check.imp"
if (((((I) & (6))) == (0))) goto L_011f;
#line 1118 "regression-compile-tmp/check.imp"
REPORT(15);
#line 1118 "regression-compile-tmp/check.imp"
L_011f:;
                                                                //   1119         %FINISH %ELSE %START
#line 1119 "regression-compile-tmp/check.imp"
goto L_0120;
#line 1119 "regression-compile-tmp/check.imp"
L_011e:;
                                                                //   1120            DPOS = INTEGER(DPOS+4) %IF INTEGER(DPOS+4) # 0
#line 1120 "regression-compile-tmp/check.imp"
if (((*_imp_INTEGER((((int)(DPOS)) + (4)))) == (0))) goto L_0121;
#line 1120 "regression-compile-tmp/check.imp"
DPOS = *_imp_INTEGER((((int)(DPOS)) + (4)));
#line 1120 "regression-compile-tmp/check.imp"
L_0121:;
                                                                //   1121         %FINISH
#line 1121 "regression-compile-tmp/check.imp"
L_0120:;
                                                                //   1122         DPOS = BYTEINTEGER(DPOS+12)&(\3)+DPOS+16
#line 1122 "regression-compile-tmp/check.imp"
DPOS = (((int)((((int)(((*_imp_BYTEINTEGER((((int)(DPOS)) + (12)))) & ((~(3)))))) + (DPOS)))) + (16));
                                                                //   1123      %REPEAT
#line 1123 "regression-compile-tmp/check.imp"
goto L_011b;
#line 1123 "regression-compile-tmp/check.imp"
L_011c:;
                                                                //   1124      REPORT(C_STACK&1+9) %AND C_STACK=C_STACK>>2 %WHILE C_STACK # 0
#line 1124 "regression-compile-tmp/check.imp"
L_0122:;
#line 1124 "regression-compile-tmp/check.imp"
if (((C.STACK) == (0))) goto L_0123;
#line 1124 "regression-compile-tmp/check.imp"
REPORT((((int)(((C.STACK) & (1)))) + (9)));
#line 1124 "regression-compile-tmp/check.imp"
C.STACK = (int)((((unsigned int)(C.STACK)) >> (2)));
#line 1124 "regression-compile-tmp/check.imp"
goto L_0122;
#line 1124 "regression-compile-tmp/check.imp"
L_0123:;
                                                                //   1125      DLIM = C_LOCAL
#line 1125 "regression-compile-tmp/check.imp"
DLIM = C.LOCAL;
                                                                //   1126      C = HOLD(LEVEL);  LEVEL = LEVEL-1
#line 1126 "regression-compile-tmp/check.imp"
C = HOLD[(((int)(LEVEL)) - (1))];
#line 1126 "regression-compile-tmp/check.imp"
LEVEL = (((int)(LEVEL)) - (1));
                                                                //   1127      %CYCLE I = ADDR(INDEX(0)),4,ADDR(INDEX(255))
#line 1127 "regression-compile-tmp/check.imp"
{static int _initial, _increment, _final, _control;
_initial = _imp_ADDR(&INDEX[0]); _increment = 4; _final = _imp_ADDR(&INDEX[255]); I = _control = _initial;
if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = _imp_ADDR(&INDEX[0]), 4, _imp_ADDR(&INDEX[255])");
I -= _increment; _control -= _increment;
L_0125:;
if (I == _final) goto L_0126;
I += _increment; _control += _increment;
if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */
}
                                                                //   1128         INTEGER(I) = INTEGER(INTEGER(I)+8) %WHILE INTEGER(I) >= DLIM
#line 1128 "regression-compile-tmp/check.imp"
L_0128:;
#line 1128 "regression-compile-tmp/check.imp"
if (((*_imp_INTEGER(I)) < (DLIM))) goto L_0129;
#line 1128 "regression-compile-tmp/check.imp"
*_imp_INTEGER(I) = *_imp_INTEGER(((*(int *)(_imp_INTEGER(I))) + (8)));
#line 1128 "regression-compile-tmp/check.imp"
goto L_0128;
#line 1128 "regression-compile-tmp/check.imp"
L_0129:;
                                                                //   1129      %REPEAT
#line 1129 "regression-compile-tmp/check.imp"
goto L_0125;
#line 1129 "regression-compile-tmp/check.imp"
L_0126:;
                                                                //   1130  %END
#line 1130 "regression-compile-tmp/check.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block POPCONTEXT at level 2
                                                                //   1131  
                                                                //   1132  %ROUTINE DEFINE(%INTEGER DISP,VAL)
#line 1132 "regression-compile-tmp/check.imp"
void DEFINE( int DISP, int VAL )
#line 1132 "regression-compile-tmp/check.imp"
{
                                                                //   1133  {%SHORTROUTINE}
                                                                //   1134      %WHILE IDENTS # DLIM %CYCLE
#line 1134 "regression-compile-tmp/check.imp"
L_012b:;
#line 1134 "regression-compile-tmp/check.imp"
if (((IDENTS) == (DLIM))) goto L_012c;
                                                                //   1135         %IF DISP # 0 %THEN INTEGER(IDENTS+4) = VAL %C
#line 1135 "regression-compile-tmp/check.imp"
if (((DISP) == (0))) goto L_012e;
#line 1135 "regression-compile-tmp/check.imp"
*_imp_INTEGER((((int)(IDENTS)) + (4))) = VAL;
#line 1135 "regression-compile-tmp/check.imp"
goto L_012f;
#line 1135 "regression-compile-tmp/check.imp"
L_012e:;
#line 1135 "regression-compile-tmp/check.imp"
*_imp_BYTEINTEGER((((int)(IDENTS)) + (2))) = VAL;
#line 1135 "regression-compile-tmp/check.imp"
L_012f:;
                                                                //   1136         %ELSE BYTEINTEGER(IDENTS+2) = VAL
                                                                //   1137         IDENTS = BYTEINTEGER(IDENTS+12)&(\3)+IDENTS+16
#line 1137 "regression-compile-tmp/check.imp"
IDENTS = (((int)((((int)(((*_imp_BYTEINTEGER((((int)(IDENTS)) + (12)))) & ((~(3)))))) + (IDENTS)))) + (16));
                                                                //   1138      %REPEAT
#line 1138 "regression-compile-tmp/check.imp"
goto L_012b;
#line 1138 "regression-compile-tmp/check.imp"
L_012c:;
                                                                //   1139  %END
#line 1139 "regression-compile-tmp/check.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DEFINE at level 2
                                                                //   1140  
                                                                //   1141  
                                                                //   1142  %END;  !CHECKINNER
#line 1142 "regression-compile-tmp/check.imp"
/* Remove %on %event handler here if present for this block */
return;
sw1_A_24:;
sw1_A_28:;
sw1_A_46:;
sw1_A_49:;
sw1_A_61:;
sw1_A_62:;
sw1_A_87:;
sw1_A_127:;
/*_imp_signal(6,3,sw1_A_idx,"SWITCH LABEL NOT SET - sw1_A");*/
fprintf(stderr, "%%SWITCH LABEL NOT SET - sw1_A(%d): at line %s:%d", sw1_A_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__));
exit(1);
} // End of block CHECKINNER at level 1
                                                                //   1143  
                                                                //   1144  %EXTERNALROUTINE CHECK(%STRING(63) PARAM)
#line 1144 "regression-compile-tmp/check.imp"
void CHECK( _imp_string /*%string(63)*/ PARAM )
#line 1144 "regression-compile-tmp/check.imp"
{
                                                                //   1145  %RECORDFORMAT FINF(%INTEGER CONAD,FILESIZE, %BYTEINTEGER RUP, %C
#line 1145 "regression-compile-tmp/check.imp"
typedef struct FINF FINF;
struct FINF {
  int CONAD;
  int FILESIZE;
  unsigned char RUP;
  unsigned char EEP;
  unsigned char MODE;
  unsigned char CONS;
  unsigned char ARCH;
  _imp_string /*%string(6)*/ TRAN;
  short FILETYPE;
  short NUMIPERMS;
  int DATASTART;
  int DATAEND;
  int PLISTPTR;
};
                                                                //   1146                EEP,MODE,CONS,ARCH, %STRING(6) TRAN, %C
                                                                //   1147                %SHORTINTEGER FILETYPE,NUMIPERMS, %C
                                                                //   1148                %INTEGER DATASTART,DATAEND, PLISTPTR)
                                                                //   1149  {%EXTERNAL}%ROUTINE{SPEC} DEFINE(%STRING(63) S)
#line 1149 "regression-compile-tmp/check.imp"
void DEFINE( _imp_string /*%string(63)*/ S )
#line 1149 "regression-compile-tmp/check.imp"
{
                                                                //   1150  %end
#line 1150 "regression-compile-tmp/check.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block DEFINE at level 2
                                                                //   1151  {%SYSTEM}%ROUTINE{SPEC} CONNECT(%STRING(15) S, %INTEGER A,M,P, %C
#line 1151 "regression-compile-tmp/check.imp"
void CONNECT( _imp_string /*%string(15)*/ S, int A, int M, int P,  FINF /*name*/*R, int /*name*/*F )
#line 1151 "regression-compile-tmp/check.imp"
{
                                                                //   1152                             %RECORD(FINF)%NAME R, %INTEGERNAME F)
                                                                //   1153  %end
#line 1153 "regression-compile-tmp/check.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CONNECT at level 2
                                                                //   1154  {%EXTERNAL}%STRING(255)%FN{SPEC} SSFMESSAGE
#line 1154 "regression-compile-tmp/check.imp"
_imp_string /*%string(255)*/ SSFMESSAGE( void )
#line 1154 "regression-compile-tmp/check.imp"
{
                                                                //   1155  %result="error"  ;! I thought I had added this one to the perms..?
#line 1155 "regression-compile-tmp/check.imp"
/* Remove %on %event handler here if present for this block */
return _imp_str_literal("error");
                                                                //   1156  %end
#line 1156 "regression-compile-tmp/check.imp"
} // End of block SSFMESSAGE at level 2
                                                                //   1157  
                                                                //   1158  %RECORD(FINF) R
#line 1158 "regression-compile-tmp/check.imp"
 FINF R;
                                                                //   1159  %INTEGER I,J,FLAG
#line 1159 "regression-compile-tmp/check.imp"
int I;
#line 1159 "regression-compile-tmp/check.imp"
int J;
#line 1159 "regression-compile-tmp/check.imp"
int FLAG;
                                                                //   1160  %STRING(63) OPTIONS,OUT
#line 1160 "regression-compile-tmp/check.imp"
_imp_string /*%string(63)*/ OPTIONS;
#line 1160 "regression-compile-tmp/check.imp"
_imp_string /*%string(63)*/ OUT;
                                                                //   1161      OUT = "" %UNLESS PARAM -> PARAM.("/").OUT
#line 1161 "regression-compile-tmp/check.imp"
if (_imp_resolve(PARAM, &PARAM, _imp_str_literal("/"), &OUT)) goto L_0130;
#line 1161 "regression-compile-tmp/check.imp"
OUT = _imp_str_literal("");
#line 1161 "regression-compile-tmp/check.imp"
L_0130:;
                                                                //   1162      OPTIONS = "" %UNLESS PARAM -> PARAM.(",").OPTIONS
#line 1162 "regression-compile-tmp/check.imp"
if (_imp_resolve(PARAM, &PARAM, _imp_str_literal(","), &OPTIONS)) goto L_0131;
#line 1162 "regression-compile-tmp/check.imp"
OPTIONS = _imp_str_literal("");
#line 1162 "regression-compile-tmp/check.imp"
L_0131:;
                                                                //   1163      CONNECT(PARAM,0,0,0,R,FLAG)
#line 1163 "regression-compile-tmp/check.imp"
CONNECT(PARAM, 0, 0, 0, &R, &FLAG);
                                                                //   1164      PRINTSTRING(SSFMESSAGE) %AND %RETURN %IF FLAG # 0
#line 1164 "regression-compile-tmp/check.imp"
if (((FLAG) == (0))) goto L_0132;
#line 1164 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(SSFMESSAGE());
#line 1164 "regression-compile-tmp/check.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 1164 "regression-compile-tmp/check.imp"
L_0132:;
                                                                //   1165      %IF OUT # "" %START
#line 1165 "regression-compile-tmp/check.imp"
if ((_imp_strcmp(OUT, _imp_str_literal("")) == 0)) goto L_0133;
                                                                //   1166         DEFINE("ST19,".OUT)
#line 1166 "regression-compile-tmp/check.imp"
DEFINE(_imp_join((_imp_string)_imp_str_literal("ST19,"),(_imp_string)OUT));
                                                                //   1167         SELECT OUTPUT(19)
#line 1167 "regression-compile-tmp/check.imp"
_imp_SELECTOUTPUT(19);
                                                                //   1168      %FINISH
#line 1168 "regression-compile-tmp/check.imp"
L_0133:;
                                                                //   1169      I = 0
#line 1169 "regression-compile-tmp/check.imp"
I = 0;
                                                                //   1170      %WHILE I < LENGTH(OPTIONS) %CYCLE
#line 1170 "regression-compile-tmp/check.imp"
L_0134:;
#line 1170 "regression-compile-tmp/check.imp"
if (((I) >= (*_imp_LENGTH(&OPTIONS)))) goto L_0135;
                                                                //   1171         I = I+1;  J = CHARNO(OPTIONS,I)
#line 1171 "regression-compile-tmp/check.imp"
I = (((int)(I)) + (1));
#line 1171 "regression-compile-tmp/check.imp"
J = *_imp_CHARNO(&OPTIONS, I);
                                                                //   1172         FLAG = FLAG!8 %IF J = 'D'
#line 1172 "regression-compile-tmp/check.imp"
if (((J) != (68))) goto L_0137;
#line 1172 "regression-compile-tmp/check.imp"
FLAG = ((FLAG) | (8));
#line 1172 "regression-compile-tmp/check.imp"
L_0137:;
                                                                //   1173         FLAG = FLAG!4 %IF J = 'S'
#line 1173 "regression-compile-tmp/check.imp"
if (((J) != (83))) goto L_0138;
#line 1173 "regression-compile-tmp/check.imp"
FLAG = ((FLAG) | (4));
#line 1173 "regression-compile-tmp/check.imp"
L_0138:;
                                                                //   1174      %REPEAT
#line 1174 "regression-compile-tmp/check.imp"
goto L_0134;
#line 1174 "regression-compile-tmp/check.imp"
L_0135:;
                                                                //   1175      CHECKINNER(R_CONAD+R_DATASTART,R_DATAEND-R_DATASTART,FLAG)
#line 1175 "regression-compile-tmp/check.imp"
CHECKINNER((((int)(R.CONAD)) + (R.DATASTART)), (((int)(R.DATAEND)) - (R.DATASTART)), &FLAG);
                                                                //   1176     PRINT STRING(" OK") %AND NEWLINE %IF FLAG >= 0
#line 1176 "regression-compile-tmp/check.imp"
if (((FLAG) < (0))) goto L_0139;
#line 1176 "regression-compile-tmp/check.imp"
_imp_PRINTSTRING(_imp_str_literal(" OK"));
#line 1176 "regression-compile-tmp/check.imp"
_imp_NEWLINE();
#line 1176 "regression-compile-tmp/check.imp"
L_0139:;
                                                                //   1177  %END;  !CHECK
#line 1177 "regression-compile-tmp/check.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block CHECK at level 1
                                                                //   1178  
                                                                //   1179  %begin
#line 1179 "regression-compile-tmp/check.imp"
int main(int argc, char **argv) {
  _imp_initialise(argc, argv);
                                                                //   1180  %end
#line 1180 "regression-compile-tmp/check.imp"
/* Remove %on %event handler here if present for this block */
return 0;
} // End of block _imp_main at level 1
                                                                //   1181  
                                                                //   1182  %ENDOFFILE
#line 1182 "regression-compile-tmp/check.imp"
// End of file
