#include "perms.h" // 1 %external %routine %spec close output #line 1 "pass1v84-noprims.imp" extern void CLOSEOUTPUT( void ); // 2 %external %routine %spec close input #line 2 "pass1v84-noprims.imp" extern void CLOSEINPUT( void ); // 3 %external %routine %spec open output(%integer i, %string(255) s) #line 3 "pass1v84-noprims.imp" extern void OPENOUTPUT( int I, _imp_string /*%string(255)*/ S ); // 4 %external %routine %spec open input(%integer i, %string(255) s) #line 4 "pass1v84-noprims.imp" extern void OPENINPUT( int I, _imp_string /*%string(255)*/ S ); // 5 %recordformat impcomfm(%integer statements, flags, code, gla, diags, perm, #line 5 "pass1v84-noprims.imp" typedef struct IMPCOMFM IMPCOMFM; struct IMPCOMFM { int STATEMENTS; int FLAGS; int CODE; int GLA; int DIAGS; int PERM; _imp_string /*%string(31)*/ FILE; _imp_string /*%string(63)*/ OPTION; }; // 6 %string(31) file, // 7 %string(63) Option) // 8 %externalrecord(impcomfm) IMPCOM #line 8 "pass1v84-noprims.imp" IMPCOMFM IMPCOM; // 9 // 10 ! // 11 ! On EMAS all shorts should be changed to integers. // 12 ! Also, the INCLUDE facility will need to be modified. // 13 ! // 14 ! // 15 !################################################### // 16 ! Copyright: 1 January 1980 # // 17 ! Interactive Datasystems (Edinburgh) Ltd. # // 18 ! 32 Upper Gilmore Place # // 19 ! Edinburgh EH3 9NJ # // 20 ! All Rights Reserved # // 21 !################################################### // 22 // 23 %BEGIN #line 23 "pass1v84-noprims.imp" int main(int argc, char **argv) { __label__ _imp_endofblock; _imp_initialise(argc, argv); // 24 %CONSTSTRING(4) version = "8.4" _imp_current_line = 24; _imp_current_file = "pass1v84-noprims.imp"; #line 24 "pass1v84-noprims.imp" const _imp_string /*%string(4)*/ VERSION = _imp_str_literal("8.4"); // 25 // 26 !configuration parameters // 27 // 28 %CONSTINTEGER max int = ((-1)>>1)//10 _imp_current_line = 28; _imp_current_file = "pass1v84-noprims.imp"; // 29 %CONSTINTEGER max dig = (-1)>>1-maxint*10 _imp_current_line = 29; _imp_current_file = "pass1v84-noprims.imp"; // 30 %CONSTINTEGER byte size = 8; !bits per byte _imp_current_line = 30; _imp_current_file = "pass1v84-noprims.imp"; // 31 %CONSTINTEGER max tag = 800; !max no. of tags _imp_current_line = 31; _imp_current_file = "pass1v84-noprims.imp"; // 32 %CONSTINTEGER max dict = 6000; !max extent of dictionary _imp_current_line = 32; _imp_current_file = "pass1v84-noprims.imp"; // 33 %CONSTINTEGER name bits = 11 _imp_current_line = 33; _imp_current_file = "pass1v84-noprims.imp"; // 34 %CONSTINTEGER max names = 1<0 strings, <0 chars _imp_current_line = 153; _imp_current_file = "pass1v84-noprims.imp"; #line 153 "pass1v84-noprims.imp" static int QUOTE = 0; // 154 %owninteger end mark = 0; !%end flag _imp_current_line = 154; _imp_current_file = "pass1v84-noprims.imp"; #line 154 "pass1v84-noprims.imp" static int ENDMARK = 0; // 155 %OWNINTEGER cont = ' ', _imp_current_line = 155; _imp_current_file = "pass1v84-noprims.imp"; #line 155 "pass1v84-noprims.imp" static int CONT = 32; #line 155 "pass1v84-noprims.imp" static int CSYM = 32; // 156 csym = ' '; !listing continuation marker // 157 %OWNINTEGER decl = 0; !current declarator flags _imp_current_line = 157; _imp_current_file = "pass1v84-noprims.imp"; #line 157 "pass1v84-noprims.imp" static int DECL = 0; // 158 %OWNINTEGER dim = 0; !arrayname dimension _imp_current_line = 158; _imp_current_file = "pass1v84-noprims.imp"; #line 158 "pass1v84-noprims.imp" static int DIM = 0; // 159 %OWNINTEGER spec given = 0 _imp_current_line = 159; _imp_current_file = "pass1v84-noprims.imp"; #line 159 "pass1v84-noprims.imp" static int SPECGIVEN = 0; // 160 // 161 %OWNINTEGER escape class = 0; !when and where to escape _imp_current_line = 161; _imp_current_file = "pass1v84-noprims.imp"; #line 161 "pass1v84-noprims.imp" static int ESCAPECLASS = 0; // 162 %OWNINTEGER protection = 0, _imp_current_line = 162; _imp_current_file = "pass1v84-noprims.imp"; #line 162 "pass1v84-noprims.imp" static int PROTECTION = 0; #line 162 "pass1v84-noprims.imp" static int ATOMFLAGS = 0; // 163 atom flags = 0 // 164 %OWNINTEGER otype = 0; !current 'own' type _imp_current_line = 164; _imp_current_file = "pass1v84-noprims.imp"; #line 164 "pass1v84-noprims.imp" static int OTYPE = 0; // 165 %OWNINTEGER reals ln = 1; ! =4 for %REALSLONG _imp_current_line = 165; _imp_current_file = "pass1v84-noprims.imp"; #line 165 "pass1v84-noprims.imp" static int REALSLN = 1; // 166 %OWNINTEGER last1 = 0; !previous atom class _imp_current_line = 166; _imp_current_file = "pass1v84-noprims.imp"; #line 166 "pass1v84-noprims.imp" static int LAST1 = 0; // 167 %OWNINTEGER gen type = 0 _imp_current_line = 167; _imp_current_file = "pass1v84-noprims.imp"; #line 167 "pass1v84-noprims.imp" static int GENTYPE = 0; // 168 %OWNINTEGER ptype = 0; !current phrase type _imp_current_line = 168; _imp_current_file = "pass1v84-noprims.imp"; #line 168 "pass1v84-noprims.imp" static int PTYPE = 0; // 169 %OWNINTEGER papp = 0; !current phrase parameters _imp_current_line = 169; _imp_current_file = "pass1v84-noprims.imp"; #line 169 "pass1v84-noprims.imp" static int PAPP = 0; // 170 %OWNINTEGER pformat = 0; !current phrase format _imp_current_line = 170; _imp_current_file = "pass1v84-noprims.imp"; #line 170 "pass1v84-noprims.imp" static int PFORMAT = 0; // 171 %OWNINTEGER force = 0; !force next ptype _imp_current_line = 171; _imp_current_file = "pass1v84-noprims.imp"; #line 171 "pass1v84-noprims.imp" static int FORCE = 0; // 172 %OWNINTEGER g = 0, _imp_current_line = 172; _imp_current_file = "pass1v84-noprims.imp"; #line 172 "pass1v84-noprims.imp" static int G = 0; #line 172 "pass1v84-noprims.imp" static int GG = 0; #line 172 "pass1v84-noprims.imp" static int MAPGG = 0; // 173 gg = 0, // 174 map gg = 0; !grammar entries // 175 %OWNINTEGER fdef = 0; !current format definition _imp_current_line = 175; _imp_current_file = "pass1v84-noprims.imp"; #line 175 "pass1v84-noprims.imp" static int FDEF = 0; // 176 %OWNINTEGER this = -1; !current recordformat tag _imp_current_line = 176; _imp_current_file = "pass1v84-noprims.imp"; #line 176 "pass1v84-noprims.imp" static int THIS = (-1); // 177 %OWNINTEGER nmin = 0; !analysis record atom pointer _imp_current_line = 177; _imp_current_file = "pass1v84-noprims.imp"; #line 177 "pass1v84-noprims.imp" static int NMIN = 0; // 178 %OWNINTEGER nmax = 0; !analysis record phrase pointer _imp_current_line = 178; _imp_current_file = "pass1v84-noprims.imp"; #line 178 "pass1v84-noprims.imp" static int NMAX = 0; // 179 %OWNINTEGER rbase = 0; !record format definition base _imp_current_line = 179; _imp_current_file = "pass1v84-noprims.imp"; #line 179 "pass1v84-noprims.imp" static int RBASE = 0; // 180 %OWNINTEGER stbase = 0; !constant work area base _imp_current_line = 180; _imp_current_file = "pass1v84-noprims.imp"; #line 180 "pass1v84-noprims.imp" static int STBASE = 0; // 181 %OWNINTEGER gmin = max grammar; !upper bound on grammar _imp_current_line = 181; _imp_current_file = "pass1v84-noprims.imp"; #line 181 "pass1v84-noprims.imp" static int GMIN = 1720; // 182 %OWNINTEGER dmax = 1 _imp_current_line = 182; _imp_current_file = "pass1v84-noprims.imp"; #line 182 "pass1v84-noprims.imp" static int DMAX = 1; // 183 %OWNINTEGER tmin = max tag; !upper bound on tags _imp_current_line = 183; _imp_current_file = "pass1v84-noprims.imp"; #line 183 "pass1v84-noprims.imp" static int TMIN = 800; // 184 %OWNINTEGER ss = 0; !source statement entry _imp_current_line = 184; _imp_current_file = "pass1v84-noprims.imp"; #line 184 "pass1v84-noprims.imp" static int SS = 0; // 185 %STRING(63) include file _imp_current_line = 185; _imp_current_file = "pass1v84-noprims.imp"; #line 185 "pass1v84-noprims.imp" _imp_string /*%string(63)*/ INCLUDEFILE; // 186 %OWNINTEGER include list = 0, _imp_current_line = 186; _imp_current_file = "pass1v84-noprims.imp"; #line 186 "pass1v84-noprims.imp" static int INCLUDELIST = 0; #line 186 "pass1v84-noprims.imp" static int INCLUDELEVEL = 0; // 187 include level= 0 // 188 %OWNINTEGER include = 0; !=0 unused, #0 being used _imp_current_line = 188; _imp_current_file = "pass1v84-noprims.imp"; #line 188 "pass1v84-noprims.imp" static int INCLUDE = 0; // 189 %OWNINTEGER perm = 1; !1 = compiling perm, 0 = program _imp_current_line = 189; _imp_current_file = "pass1v84-noprims.imp"; #line 189 "pass1v84-noprims.imp" static int PERM = 1; // 190 %OWNINTEGER progmode = 0; !-1 = file, 1 = begin/eop _imp_current_line = 190; _imp_current_file = "pass1v84-noprims.imp"; #line 190 "pass1v84-noprims.imp" static int PROGMODE = 0; // 191 %OWNINTEGER sstype = 0; !-1:exec stat _imp_current_line = 191; _imp_current_file = "pass1v84-noprims.imp"; #line 191 "pass1v84-noprims.imp" static int SSTYPE = 0; // 192 ! 0: declaration // 193 ! 1: block in // 194 ! 2: block out // 195 %OWNINTEGER spec mode = 0; !>=0: definition _imp_current_line = 195; _imp_current_file = "pass1v84-noprims.imp"; #line 195 "pass1v84-noprims.imp" static int SPECMODE = 0; // 196 ! -1: proc spec // 197 ! -2: recordformat // 198 %OWNINTEGER ocount = -1; !own constants wanted _imp_current_line = 198; _imp_current_file = "pass1v84-noprims.imp"; #line 198 "pass1v84-noprims.imp" static int OCOUNT = (-1); // 199 %OWNINTEGER limit = 0; !lookup limit _imp_current_line = 199; _imp_current_file = "pass1v84-noprims.imp"; #line 199 "pass1v84-noprims.imp" static int LIMIT = 0; // 200 %OWNINTEGER copy = 0; !duplicate name flag _imp_current_line = 200; _imp_current_file = "pass1v84-noprims.imp"; #line 200 "pass1v84-noprims.imp" static int COPY = 0; // 201 %OWNINTEGER order = 0; !out of sequence flag _imp_current_line = 201; _imp_current_file = "pass1v84-noprims.imp"; #line 201 "pass1v84-noprims.imp" static int ORDER = 0; // 202 %OWNINTEGER for warn = 0; !non-local flag _imp_current_line = 202; _imp_current_file = "pass1v84-noprims.imp"; #line 202 "pass1v84-noprims.imp" static int FORWARN = 0; // 203 %OWNINTEGER dubious = 0; !flag for dubious statements _imp_current_line = 203; _imp_current_file = "pass1v84-noprims.imp"; #line 203 "pass1v84-noprims.imp" static int DUBIOUS = 0; // 204 %OWNINTEGER dp = 1 _imp_current_line = 204; _imp_current_file = "pass1v84-noprims.imp"; #line 204 "pass1v84-noprims.imp" static int DP = 1; // 205 %OWNINTEGER pos1 = 0, _imp_current_line = 205; _imp_current_file = "pass1v84-noprims.imp"; #line 205 "pass1v84-noprims.imp" static int POS1 = 0; #line 205 "pass1v84-noprims.imp" static int POS2 = 0; // 206 pos2 = 0; !error position // 207 %OWNINTEGER pos = 0; !input line index _imp_current_line = 207; _imp_current_file = "pass1v84-noprims.imp"; #line 207 "pass1v84-noprims.imp" static int POS = 0; // 208 %OWNINTEGER dimension = 0; !current array dimension _imp_current_line = 208; _imp_current_file = "pass1v84-noprims.imp"; #line 208 "pass1v84-noprims.imp" static int DIMENSION = 0; // 209 %OWNINTEGER local = 0; !search limit for locals _imp_current_line = 209; _imp_current_file = "pass1v84-noprims.imp"; #line 209 "pass1v84-noprims.imp" static int LOCAL = 0; // 210 %OWNINTEGER fm base = 0; !entry for format decls _imp_current_line = 210; _imp_current_file = "pass1v84-noprims.imp"; #line 210 "pass1v84-noprims.imp" static int FMBASE = 0; // 211 %OWNINTEGER search base = 0; !entry for record_names _imp_current_line = 211; _imp_current_file = "pass1v84-noprims.imp"; #line 211 "pass1v84-noprims.imp" static int SEARCHBASE = 0; // 212 %OWNINTEGER format list = 0; !size of current format list _imp_current_line = 212; _imp_current_file = "pass1v84-noprims.imp"; #line 212 "pass1v84-noprims.imp" static int FORMATLIST = 0; // 213 %INTEGER recid _imp_current_line = 213; _imp_current_file = "pass1v84-noprims.imp"; #line 213 "pass1v84-noprims.imp" int RECID; // 214 %OWNBYTEINTEGERARRAY char(0:133) = nl(134); !input line _imp_current_line = 214; _imp_current_file = "pass1v84-noprims.imp"; #line 214 "pass1v84-noprims.imp" static unsigned char CHAR[134] = { [0 ... 133] = 10 }; // 215 %INTEGERARRAY lit pool(0:lit max) _imp_current_line = 215; _imp_current_file = "pass1v84-noprims.imp"; #line 215 "pass1v84-noprims.imp" int LITPOOL[51]; // 216 %OWNINTEGER lit = 0; !current literal (integer) _imp_current_line = 216; _imp_current_file = "pass1v84-noprims.imp"; #line 216 "pass1v84-noprims.imp" static int LIT = 0; // 217 %OWNINTEGER lp = 0; !literals pointer _imp_current_line = 217; _imp_current_file = "pass1v84-noprims.imp"; #line 217 "pass1v84-noprims.imp" static int LP = 0; // 218 %OWNINTEGER block x = 0; !block tag _imp_current_line = 218; _imp_current_file = "pass1v84-noprims.imp"; #line 218 "pass1v84-noprims.imp" static int BLOCKX = 0; // 219 %OWNINTEGER list = 1; !<= to enable _imp_current_line = 219; _imp_current_file = "pass1v84-noprims.imp"; #line 219 "pass1v84-noprims.imp" static int LIST = 1; // 220 %OWNINTEGER control = 0 _imp_current_line = 220; _imp_current_file = "pass1v84-noprims.imp"; #line 220 "pass1v84-noprims.imp" static int CONTROL = 0; // 221 %OWNINTEGER diag = 0; !diagnose flags _imp_current_line = 221; _imp_current_file = "pass1v84-noprims.imp"; #line 221 "pass1v84-noprims.imp" static int DIAG = 0; // 222 %SHORTINTEGERARRAY hash(0:max names) _imp_current_line = 222; _imp_current_file = "pass1v84-noprims.imp"; #line 222 "pass1v84-noprims.imp" short HASH[2048]; // 223 %RECORD(tagfm)%ARRAY tag(0:max tag) _imp_current_line = 223; _imp_current_file = "pass1v84-noprims.imp"; #line 223 "pass1v84-noprims.imp" TAGFM TAG[801]; // 224 %SHORTINTEGERARRAY dict(1:max dict) _imp_current_line = 224; _imp_current_file = "pass1v84-noprims.imp"; #line 224 "pass1v84-noprims.imp" short DICT[6000]; // 225 %BYTEINTEGERARRAY buff(1:512) _imp_current_line = 225; _imp_current_file = "pass1v84-noprims.imp"; #line 225 "pass1v84-noprims.imp" unsigned char BUFF[512]; // 226 %OWNINTEGER bp = 0 _imp_current_line = 226; _imp_current_file = "pass1v84-noprims.imp"; #line 226 "pass1v84-noprims.imp" static int BP = 0; // 227 // 228 !*** start of generated tables *** // 229 %endoflist _imp_current_line = 229; _imp_current_file = "pass1v84-noprims.imp"; // 230 %conststring(8)%array text(0:255) = %c _imp_current_line = 230; _imp_current_file = "pass1v84-noprims.imp"; #line 230 "pass1v84-noprims.imp" const _imp_string /*%string(8)*/ TEXT[256] = { _imp_str_literal("Z"), _imp_str_literal("VDEC"), _imp_str_literal("OWNVDEC"), _imp_str_literal("EXTVSPEC"), _imp_str_literal("ADEC"), _imp_str_literal("OWNADEC"), _imp_str_literal("EXTASPEC"), _imp_str_literal("PROC"), _imp_str_literal("PROCSPEC"), _imp_str_literal("FORMDEC"), _imp_str_literal("SWDEC"), _imp_str_literal("LDEC"), _imp_str_literal("FORMSPEC"), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal("OPTION"), _imp_str_literal("COMMA"), _imp_str_literal("T"), _imp_str_literal("COLON"), _imp_str_literal("COMMENT"), _imp_str_literal("LB"), _imp_str_literal("ALIAS"), _imp_str_literal("RB"), _imp_str_literal("SUB"), _imp_str_literal("ARRAYD"), _imp_str_literal("STYPE"), _imp_str_literal("ARRAY"), _imp_str_literal("NAME"), _imp_str_literal("PROCD"), _imp_str_literal("FNMAP"), _imp_str_literal("SWITCH"), _imp_str_literal("OWN"), _imp_str_literal("EXTERNAL"), _imp_str_literal("STRING"), _imp_str_literal("RECORD"), _imp_str_literal("FORMAT"), _imp_str_literal("SPEC"), _imp_str_literal("MCODE"), _imp_str_literal("LABEL"), _imp_str_literal("OP1"), _imp_str_literal("OP2"), _imp_str_literal("OP3"), _imp_str_literal("SIGN"), _imp_str_literal("UOP"), _imp_str_literal("MOD"), _imp_str_literal("DOT"), _imp_str_literal("COMP"), _imp_str_literal("ACOMP"), _imp_str_literal("EQ"), _imp_str_literal("EQEQ"), _imp_str_literal("JAM"), _imp_str_literal("JUMP"), _imp_str_literal("RESOP"), _imp_str_literal("AND"), _imp_str_literal("OR"), _imp_str_literal("NOT"), _imp_str_literal("WHILE"), _imp_str_literal("UNTIL"), _imp_str_literal("FOR"), _imp_str_literal("CWORD"), _imp_str_literal("EXIT"), _imp_str_literal("ON"), _imp_str_literal("SIGNAL"), _imp_str_literal("THEN"), _imp_str_literal("START"), _imp_str_literal("ELSE"), _imp_str_literal("FINISH"), _imp_str_literal("FELSE"), _imp_str_literal("CYCLE"), _imp_str_literal("REPEAT"), _imp_str_literal("PROGRAM"), _imp_str_literal("BEGIN"), _imp_str_literal("END"), _imp_str_literal("ENDPROG"), _imp_str_literal("ENDPERM"), _imp_str_literal("FRESULT"), _imp_str_literal("MRESULT"), _imp_str_literal("BACK"), _imp_str_literal("MONITOR"), _imp_str_literal("STOP"), _imp_str_literal("LIST"), _imp_str_literal("REALSLN"), _imp_str_literal("CONTROL"), _imp_str_literal("INCLUDE"), _imp_str_literal("MASS"), _imp_str_literal("RTYPE"), _imp_str_literal("ADDOP"), _imp_str_literal("IDENT"), _imp_str_literal("V"), _imp_str_literal("N"), _imp_str_literal("CONST"), _imp_str_literal("FM"), _imp_str_literal(""), _imp_str_literal("R"), _imp_str_literal("F"), _imp_str_literal("M"), _imp_str_literal("P"), _imp_str_literal("RP"), _imp_str_literal("FP"), _imp_str_literal("MP"), _imp_str_literal("PP"), _imp_str_literal("L"), _imp_str_literal("S"), _imp_str_literal("A"), _imp_str_literal("AN"), _imp_str_literal("NA"), _imp_str_literal("NAN"), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal("%MSTART"), _imp_str_literal("%CLEAR"), _imp_str_literal("%PRED"), _imp_str_literal(""), _imp_str_literal("%DUBIOUS"), _imp_str_literal("%DUP"), _imp_str_literal("%PIN"), _imp_str_literal("%POUT"), _imp_str_literal("%EDUP"), _imp_str_literal(""), _imp_str_literal("PIDENT"), _imp_str_literal("CIDENT"), _imp_str_literal("OIDENT"), _imp_str_literal("FNAME"), _imp_str_literal("SWID"), _imp_str_literal("DOTL"), _imp_str_literal("DOTR"), _imp_str_literal("ASEP"), _imp_str_literal("CSEP"), _imp_str_literal("OSEP"), _imp_str_literal("PSEP"), _imp_str_literal("ARB"), _imp_str_literal("BPLRB"), _imp_str_literal("ORB"), _imp_str_literal("PRB"), _imp_str_literal("CRB"), _imp_str_literal("RCRB"), _imp_str_literal("RECRB"), _imp_str_literal("RECLB"), _imp_str_literal("LAB"), _imp_str_literal("MLAB"), _imp_str_literal("SLAB"), _imp_str_literal("XNAME"), _imp_str_literal("OWNT"), _imp_str_literal("DBSEP"), _imp_str_literal("PCONST"), _imp_str_literal("CMOD"), _imp_str_literal("CSIGN"), _imp_str_literal("CUOP"), _imp_str_literal("COP1"), _imp_str_literal("COP2"), _imp_str_literal("COP3"), _imp_str_literal("INDEF"), _imp_str_literal("XELSE"), _imp_str_literal("CRESOP"), _imp_str_literal("NLAB"), _imp_str_literal("RUNTIL"), _imp_str_literal("ACONST"), _imp_str_literal("ORRB"), _imp_str_literal("FMANY"), _imp_str_literal("OSTRING"), _imp_str_literal("FMLB"), _imp_str_literal("FMRB"), _imp_str_literal("FMOR"), _imp_str_literal("RANGERB"), _imp_str_literal("FSID"), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal("%DUMMY"), _imp_str_literal("%DECL"), _imp_str_literal("%TYPE"), _imp_str_literal("%ZERO"), _imp_str_literal("%APPLY"), _imp_str_literal("%PROT"), _imp_str_literal("%SETPROT"), _imp_str_literal("%PTYPE"), _imp_str_literal("%GAPP"), _imp_str_literal("%LOCAL"), _imp_str_literal("%GUARD"), _imp_str_literal("%MCODE"), _imp_str_literal("%CDUMMY"), _imp_str_literal("%SETTYPE"), _imp_str_literal("%OPER"), _imp_str_literal("%PARAM"), _imp_str_literal("%BLOCK"), _imp_str_literal("%OTHER"), _imp_str_literal("%COMPILE"), _imp_str_literal("APP"), _imp_str_literal("BASEAPP"), _imp_str_literal("APP2"), _imp_str_literal("APP3"), _imp_str_literal("APP4"), _imp_str_literal("APP5"), _imp_str_literal("APP6"), _imp_str_literal("ADEFN"), _imp_str_literal("NPARM"), _imp_str_literal("SWDEF"), _imp_str_literal("SWIDS"), _imp_str_literal("CIEXP"), _imp_str_literal("RCONST"), _imp_str_literal("SCONST"), _imp_str_literal("ARRAYP"), _imp_str_literal("XIMP"), _imp_str_literal("IMP"), _imp_str_literal("COND"), _imp_str_literal("SCOND"), _imp_str_literal("EXP1"), _imp_str_literal("EXP2"), _imp_str_literal("SEXP"), _imp_str_literal("IEXP"), _imp_str_literal("IEXP1"), _imp_str_literal("IEXP2"), _imp_str_literal("ISEXP"), _imp_str_literal("SEQ"), _imp_str_literal("FDEF"), _imp_str_literal("EXP"), _imp_str_literal("NARRAYP"), _imp_str_literal("STRUCT"), _imp_str_literal("RESEXP"), _imp_str_literal("BPL"), _imp_str_literal("CONSTB"), _imp_str_literal("FITEM"), _imp_str_literal("MOREA"), _imp_str_literal("CLIST"), _imp_str_literal("FPP"), _imp_str_literal("FPP0"), _imp_str_literal("FPP1"), _imp_str_literal("FPP2"), _imp_str_literal("INITVAR"), _imp_str_literal("RECEXP"), _imp_str_literal("EIMP"), _imp_str_literal("IDENTS"), _imp_str_literal("RANGE"), _imp_str_literal("RCONSTB"), _imp_str_literal("VARP"), _imp_str_literal("INITDEC"), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal(""), _imp_str_literal("ESCDEC"), _imp_str_literal("ESCPROC"), _imp_str_literal("ESCARRAY"), _imp_str_literal("ESCREC"), }; // 231 "Z","VDEC","OWNVDEC","EXTVSPEC","ADEC","OWNADEC", // 232 "EXTASPEC","PROC","PROCSPEC","FORMDEC","SWDEC","LDEC", // 233 "FORMSPEC","","","","","", // 234 "OPTION","COMMA","T","COLON","COMMENT","LB", // 235 "ALIAS","RB","SUB","ARRAYD","STYPE","ARRAY", // 236 "NAME","PROCD","FNMAP","SWITCH","OWN","EXTERNAL", // 237 "STRING","RECORD","FORMAT","SPEC","MCODE","LABEL", // 238 "OP1","OP2","OP3","SIGN","UOP","MOD", // 239 "DOT","COMP","ACOMP","EQ","EQEQ","JAM", // 240 "JUMP","RESOP","AND","OR","NOT","WHILE", // 241 "UNTIL","FOR","CWORD","EXIT","ON","SIGNAL", // 242 "THEN","START","ELSE","FINISH","FELSE","CYCLE", // 243 "REPEAT","PROGRAM","BEGIN","END","ENDPROG","ENDPERM", // 244 "FRESULT","MRESULT","BACK","MONITOR","STOP","LIST", // 245 "REALSLN","CONTROL","INCLUDE","MASS","RTYPE","ADDOP", // 246 "IDENT","V","N","CONST","FM","", // 247 "R","F","M","P","RP","FP", // 248 "MP","PP","L","S","A","AN", // 249 "NA","NAN","","","","", // 250 "","","","","","", // 251 "%MSTART","%CLEAR","%PRED","","%DUBIOUS","%DUP", // 252 "%PIN","%POUT","%EDUP","","PIDENT","CIDENT", // 253 "OIDENT","FNAME","SWID","DOTL","DOTR","ASEP", // 254 "CSEP","OSEP","PSEP","ARB","BPLRB","ORB", // 255 "PRB","CRB","RCRB","RECRB","RECLB","LAB", // 256 "MLAB","SLAB","XNAME","OWNT","DBSEP","PCONST", // 257 "CMOD","CSIGN","CUOP","COP1","COP2","COP3", // 258 "INDEF","XELSE","CRESOP","NLAB","RUNTIL","ACONST", // 259 "ORRB","FMANY","OSTRING","FMLB","FMRB","FMOR", // 260 "RANGERB","FSID","","","","", // 261 "","%DUMMY","%DECL","%TYPE","%ZERO","%APPLY", // 262 "%PROT","%SETPROT","%PTYPE","%GAPP","%LOCAL","%GUARD", // 263 "%MCODE","%CDUMMY","%SETTYPE","%OPER","%PARAM","%BLOCK", // 264 "%OTHER","%COMPILE","APP","BASEAPP","APP2","APP3", // 265 "APP4","APP5","APP6","ADEFN","NPARM","SWDEF", // 266 "SWIDS","CIEXP","RCONST","SCONST","ARRAYP","XIMP", // 267 "IMP","COND","SCOND","EXP1","EXP2","SEXP", // 268 "IEXP","IEXP1","IEXP2","ISEXP","SEQ","FDEF", // 269 "EXP","NARRAYP","STRUCT","RESEXP","BPL","CONSTB", // 270 "FITEM","MOREA","CLIST","FPP","FPP0","FPP1", // 271 "FPP2","INITVAR","RECEXP","EIMP","IDENTS","RANGE", // 272 "RCONSTB","VARP","INITDEC","","","", // 273 "ESCDEC","ESCPROC","ESCARRAY","ESCREC" // 274 %constinteger gmax1=719 _imp_current_line = 274; _imp_current_file = "pass1v84-noprims.imp"; // 275 %owninteger gmax=719 _imp_current_line = 275; _imp_current_file = "pass1v84-noprims.imp"; #line 275 "pass1v84-noprims.imp" static int GMAX = 719; // 276 %constinteger imp phrase =25 _imp_current_line = 276; _imp_current_file = "pass1v84-noprims.imp"; // 277 // 278 %ownshortintegerarray phrase(200:255) = %C _imp_current_line = 278; _imp_current_file = "pass1v84-noprims.imp"; #line 278 "pass1v84-noprims.imp" static short PHRASE[56] = { 0, 564, 565, 567, 569, 571, 573, 562, 614, 203, 200, 602, 478, 480, 624, 298, 206, 308, 318, 433, 426, 437, 444, 458, 453, 461, 467, 482, 402, 627, 629, 603, 521, 511, 486, 502, 575, 527, 528, 543, 550, 578, 397, 287, 197, 636, 516, 621, 167, 0, 0, 0, 640, 693, 701, 709, }; // 279 0, 564, 565, 567, 569, 571, 573, 562, // 280 614, 203, 200, 602, 478, 480, 624, 298, // 281 206, 308, 318, 433, 426, 437, 444, 458, // 282 453, 461, 467, 482, 402, 627, 629, 603, // 283 521, 511, 486, 502, 575, 527, 528, 543, // 284 550, 578, 397, 287, 197, 636, 516, 621, // 285 167, 0, 0, 0, 640, 693, 701, 709 // 286 // 287 %constbyteintegerarray atomic(130:179) = %c _imp_current_line = 287; _imp_current_file = "pass1v84-noprims.imp"; #line 287 "pass1v84-noprims.imp" const unsigned char ATOMIC[50] = { 90, 90, 90, 90, 90, 48, 48, 19, 19, 19, 19, 25, 25, 25, 25, 25, 25, 25, 23, 104, 104, 105, 30, 20, 21, 93, 47, 45, 46, 42, 43, 44, 40, 68, 55, 104, 60, 93, 25, 40, 93, 23, 25, 57, 25, 90, 176, 177, 178, 179, }; // 288 90, 90, 90, 90, 90, 48, 48, 19, // 289 19, 19, 19, 25, 25, 25, 25, 25, // 290 25, 25, 23, 104, 104, 105, 30, 20, // 291 21, 93, 47, 45, 46, 42, 43, 44, // 292 40, 68, 55, 104, 60, 93, 25, 40, // 293 93, 23, 25, 57, 25, 90, 176, 177, // 294 178, 179 // 295 // 296 ! FLAG<1> 0<1> SS<2> 0<3> T<1> LINK<8> // 297 %constshortintegerarray initial(0:119) = %c _imp_current_line = 297; _imp_current_file = "pass1v84-noprims.imp"; #line 297 "pass1v84-noprims.imp" const short INITIAL[120] = { 24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 23, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (-32551), 0, 0, 0, 0, 13, 0, 14, 4, (-32557), 16, (-32550), 0, 0, 5, 6, 3, 12, 15, 8, 7, 9, 10, 11, (-32558), (-32554), (-32559), (-32552), (-32553), 18, 22, 17, 21, 19, 0, 0, 0, (-32562), (-32560), 0, 0, 0, (-32561), 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, (-32556), 0, (-32555), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, }; // 298 24, 0, 0, 0, 0, 0, 0, 0, // 299 0, 0, 0, 0, 0, 0, 0, 0, // 300 0, 0, 23, 0, 0, 0, 0, 0, // 301 0, 0, 0, 0, 0, 0, 0, 0, // 302 0, 0, 0, 0, 0, 0, 0, 0, // 303 20, 0, 0, 0, 0, 0, 0, 0, // 304 0, 0, 0, 0, 0, 0, -32551, 0, // 305 0, 0, 0, 13, 0, 14, 4, -32557, // 306 16, -32550, 0, 0, 5, 6, 3, 12, // 307 15, 8, 7, 9, 10, 11, -32558, -32554, // 308 -32559, -32552, -32553, 18, 22, 17, 21, 19, // 309 0, 0, 0, -32562, -32560, 0, 0, 0, // 310 -32561, 0, 0, 0, 0, 0, 0, 0, // 311 1, 2, 0, -32556, 0, -32555, 0, 0, // 312 0, 0, 0, 0, 0, 0, 0, 0 // 313 // 314 ! MORE<1> 0<1> ORDER<2> TYPE<4> CLASS<8> // 315 %ownshortintegerarray gram(0:max grammar) = %c _imp_current_line = 315; _imp_current_file = "pass1v84-noprims.imp"; #line 315 "pass1v84-noprims.imp" static short GRAM[1721] = { 0, (-28523), (-28521), (-28602), (-32706), (-28509), (-28603), (-24502), (-24503), (-20405), (-20404), (-28595), (-32697), (-32709), (-16323), (-28600), (-32704), (-28587), (-28589), (-32681), (-16344), (-28586), (-28588), (-12270), (-32586), 216, (-12287), (-16380), (-8185), (-8184), (-12285), (-12286), (-12283), (-12282), (-12279), (-12276), (-16373), 20490, (-32706), (-32701), 216, (-16364), (-28610), (-28613), (-28612), 16445, 217, (-16364), 62, (-32701), 16450, (-16364), 5346, (-16364), 166, (-16344), 4332, 130, (-16360), (-16361), 126, 217, (-32701), 216, (-16364), 16450, (-32700), 16404, (-32701), (-32706), 216, 16405, 16407, (-16222), 8414, 130, 217, (-32697), 16450, 1250, 4307, 4318, 192, 93, 170, 90, 207, (-16365), 16404, 90, (-16360), (-16365), 16404, 241, (-16365), 16404, 132, 132, (-16360), 4329, (-16365), 16404, 133, 175, 90, (-16365), 16404, 209, (-16365), 16404, 4313, 217, 16451, 4263, 16384, 16384, 120, 216, (-32700), 16404, (-32706), 16404, 243, 16409, 454, (-32685), 16404, 454, 248, (-16365), 16404, 4263, 194, (-16360), 4329, (-32717), 16404, 4263, 16407, 454, 237, 127, 215, 454, 4263, 16384, (-16364), 1502, (-32629), (-16361), 153, (-32606), 222, 143, (-32629), 153, 454, 126, 16409, 454, 16384, 234, (-16365), (-32595), 147, (-32678), 234, 193, (-32677), (-32676), (-32661), 109, (-32717), 53, 52, 52, 52, 194, 194, 194, (-28581), 4188, 194, (-28566), 4203, 194, (-28564), 4205, 4580, 16429, 183, 183, 186, 186, (-28583), 0, 9437, 90, (-16365), 0, 134, (-16365), 0, 210, 4329, 199, (-32677), (-32672), (-32676), (-32688), (-32690), (-32705), (-32661), (-32659), (-32689), (-32686), (-32687), (-16330), 65, (-32716), 186, (-28583), (-32717), (-32715), (-32713), 52, (-32664), 4201, 186, (-32717), (-32715), 55, (-16328), 0, 197, 197, 52, 52, 197, (-28581), (-28580), 186, (-28581), 4188, 4318, 194, (-28581), 4188, 9437, 194, 194, 454, 16407, 216, 194, (-28566), (-28565), 186, (-28566), 4203, 194, (-28564), (-28563), 186, (-28564), 4205, 183, 183, 186, 183, (-16365), 0, 183, 4580, 16429, 5095, 9444, 5348, 186, (-28583), (-16328), 0, 16409, (-16365), 0, 9437, 5348, 217, (-32701), 16450, (-32701), 216, (-32700), 0, (-32701), (-32706), 216, 243, 217, (-16318), 0, (-32552), 0, (-32700), 0, (-32706), 0, 215, (-32550), 228, (-28616), (-28615), 0, 4096, 218, 218, (-28616), 0, (-32677), (-32676), (-16361), (-32710), (-32669), (-32662), (-32661), (-32660), (-32659), 740, (-32039), 740, (-32719), 4096, 194, (-32719), (-32718), (-32604), (-32726), (-32725), (-32724), (-32720), 4096, 710, 6116, (-32719), 0, 710, 6116, (-28581), 4188, 218, 122, 50, 16409, (-32726), (-32725), (-32724), (-32719), 4096, 710, 454, 195, 195, 195, 454, (-28581), 4188, 194, (-28566), (-28565), (-28564), 4205, 195, 195, 195, 710, 4836, 5095, 4829, (-32726), (-32725), (-32724), (-32719), 4096, 4827, 4828, 454, (-32720), (-32719), 4096, 4829, 4827, 4828, 194, (-32719), 0, 710, 4836, (-16291), (-32677), 92, 184, 121, (-28581), (-28580), (-32722), (-32723), 4317, (-32726), (-32725), (-32724), 0, 183, (-32726), (-32725), (-32724), (-32720), 0, 4316, 195, 195, 195, 454, (-28581), 4188, 4315, 183, 4317, (-32726), (-32725), 0, 195, 195, 4315, 4317, (-32726), 0, 195, (-32677), (-32676), (-16361), 16431, 228, 228, 47, (-32610), (-32611), 5345, (-32609), (-32608), (-32607), 0, 4320, 4319, 5345, (-32609), (-32608), 0, 4319, 5345, (-32609), 0, (-32613), (-16361), 16431, 222, 222, 156, (-32677), 92, 183, 186, 1222, 16435, 228, 16403, 4324, 138, 8420, (-32723), 4189, 93, 454, 148, (-32674), 16546, 16409, (-32597), 182, (-16383), 16388, 234, (-16365), (-32595), 172, (-32678), 234, 90, 244, 246, (-16365), 0, 235, (-32678), 234, (-16365), 246, (-16365), 0, (-32678), 234, 90, 16407, 222, 16405, 222, 145, 16407, 222, 16405, 222, 146, 16407, 1252, 154, 5348, (-16365), 142, 126, 182, (-16383), 16391, 90, (-16365), 127, (-32678), 238, 90, 125, 239, (-16365), 8319, 8430, 128, 126, (-16361), 127, 190, 240, 189, 16409, 182, (-16383), 16391, 90, (-16365), 0, (-32678), 240, 90, 16623, (-16365), 0, 244, 232, 1252, 1252, 137, 1252, 137, 1252, 137, 1252, 137, 1252, 137, 222, (-16365), 0, 131, 194, (-16360), (-16333), (-16332), 124, 181, (-16292), (-16277), 16493, (-31802), 5342, (-28581), 4188, 4263, 181, 186, 454, 16475, 183, (-28583), 199, 5598, 9438, 222, (-32677), (-32676), 16407, 186, 228, 135, 16409, (-32632), 0, (-32677), 92, (-32677), (-32676), (-32662), (-32661), (-32660), (-32659), 165, (-32677), 92, 188, (-32662), 107, 188, (-32660), 109, (-32732), 37, (-16344), 4318, 148, (-32674), 16424, 222, 16405, 222, 174, (-28644), (-32734), (-32680), (-28641), (-32733), (-32730), (-32735), (-32727), (-32738), 4326, (-32738), (-32739), (-32741), (-32736), 199, (-28644), (-32680), (-28641), 4326, (-32739), (-32741), 199, (-32738), (-32739), (-32741), (-32736), (-32729), 199, (-32616), 199, (-32739), (-32741), (-32729), 199, (-32616), (-32729), 199, (-28644), (-32680), 4326, (-32738), (-32739), (-32741), 199, 245, 4318, 245, 16409, 152, 4318, 16409, 152, 245, (-32672), (-32671), (-32670), 99, 16407, 200, 144, 185, (-32677), 92, 16407, (-32582), 200, 200, 187, 141, (-32677), 92, 16410, 191, (-32677), (-32676), (-32662), (-32661), (-32660), 109, 198, [720 ... 1720] = 0 }; // 316 0, -28523, -28521, -28602, -32706, -28509, -28603, -24502, // 317 -24503, -20405, -20404, -28595, -32697, -32709, -16323, -28600, // 318 -32704, -28587, -28589, -32681, -16344, -28586, -28588, -12270, // 319 -32586, 216, -12287, -16380, -8185, -8184, -12285, -12286, // 320 -12283, -12282, -12279, -12276, -16373, 20490, -32706, -32701, // 321 216, -16364, -28610, -28613, -28612, 16445, 217, -16364, // 322 62, -32701, 16450, -16364, 5346, -16364, 166, -16344, // 323 4332, 130, -16360, -16361, 126, 217, -32701, 216, // 324 -16364, 16450, -32700, 16404, -32701, -32706, 216, 16405, // 325 16407, -16222, 8414, 130, 217, -32697, 16450, 1250, // 326 4307, 4318, 192, 93, 170, 90, 207, -16365, // 327 16404, 90, -16360, -16365, 16404, 241, -16365, 16404, // 328 132, 132, -16360, 4329, -16365, 16404, 133, 175, // 329 90, -16365, 16404, 209, -16365, 16404, 4313, 217, // 330 16451, 4263, 16384, 16384, 120, 216, -32700, 16404, // 331 -32706, 16404, 243, 16409, 454, -32685, 16404, 454, // 332 248, -16365, 16404, 4263, 194, -16360, 4329, -32717, // 333 16404, 4263, 16407, 454, 237, 127, 215, 454, // 334 4263, 16384, -16364, 1502, -32629, -16361, 153, -32606, // 335 222, 143, -32629, 153, 454, 126, 16409, 454, // 336 16384, 234, -16365, -32595, 147, -32678, 234, 193, // 337 -32677, -32676, -32661, 109, -32717, 53, 52, 52, // 338 52, 194, 194, 194, -28581, 4188, 194, -28566, // 339 4203, 194, -28564, 4205, 4580, 16429, 183, 183, // 340 186, 186, -28583, 0, 9437, 90, -16365, 0, // 341 134, -16365, 0, 210, 4329, 199, -32677, -32672, // 342 -32676, -32688, -32690, -32705, -32661, -32659, -32689, -32686, // 343 -32687, -16330, 65, -32716, 186, -28583, -32717, -32715, // 344 -32713, 52, -32664, 4201, 186, -32717, -32715, 55, // 345 -16328, 0, 197, 197, 52, 52, 197, -28581, // 346 -28580, 186, -28581, 4188, 4318, 194, -28581, 4188, // 347 9437, 194, 194, 454, 16407, 216, 194, -28566, // 348 -28565, 186, -28566, 4203, 194, -28564, -28563, 186, // 349 -28564, 4205, 183, 183, 186, 183, -16365, 0, // 350 183, 4580, 16429, 5095, 9444, 5348, 186, -28583, // 351 -16328, 0, 16409, -16365, 0, 9437, 5348, 217, // 352 -32701, 16450, -32701, 216, -32700, 0, -32701, -32706, // 353 216, 243, 217, -16318, 0, -32552, 0, -32700, // 354 0, -32706, 0, 215, -32550, 228, -28616, -28615, // 355 0, 4096, 218, 218, -28616, 0, -32677, -32676, // 356 -16361, -32710, -32669, -32662, -32661, -32660, -32659, 740, // 357 -32039, 740, -32719, 4096, 194, -32719, -32718, -32604, // 358 -32726, -32725, -32724, -32720, 4096, 710, 6116, -32719, // 359 0, 710, 6116, -28581, 4188, 218, 122, 50, // 360 16409, -32726, -32725, -32724, -32719, 4096, 710, 454, // 361 195, 195, 195, 454, -28581, 4188, 194, -28566, // 362 -28565, -28564, 4205, 195, 195, 195, 710, 4836, // 363 5095, 4829, -32726, -32725, -32724, -32719, 4096, 4827, // 364 4828, 454, -32720, -32719, 4096, 4829, 4827, 4828, // 365 194, -32719, 0, 710, 4836, -16291, -32677, 92, // 366 184, 121, -28581, -28580, -32722, -32723, 4317, -32726, // 367 -32725, -32724, 0, 183, -32726, -32725, -32724, -32720, // 368 0, 4316, 195, 195, 195, 454, -28581, 4188, // 369 4315, 183, 4317, -32726, -32725, 0, 195, 195, // 370 4315, 4317, -32726, 0, 195, -32677, -32676, -16361, // 371 16431, 228, 228, 47, -32610, -32611, 5345, -32609, // 372 -32608, -32607, 0, 4320, 4319, 5345, -32609, -32608, // 373 0, 4319, 5345, -32609, 0, -32613, -16361, 16431, // 374 222, 222, 156, -32677, 92, 183, 186, 1222, // 375 16435, 228, 16403, 4324, 138, 8420, -32723, 4189, // 376 93, 454, 148, -32674, 16546, 16409, -32597, 182, // 377 -16383, 16388, 234, -16365, -32595, 172, -32678, 234, // 378 90, 244, 246, -16365, 0, 235, -32678, 234, // 379 -16365, 246, -16365, 0, -32678, 234, 90, 16407, // 380 222, 16405, 222, 145, 16407, 222, 16405, 222, // 381 146, 16407, 1252, 154, 5348, -16365, 142, 126, // 382 182, -16383, 16391, 90, -16365, 127, -32678, 238, // 383 90, 125, 239, -16365, 8319, 8430, 128, 126, // 384 -16361, 127, 190, 240, 189, 16409, 182, -16383, // 385 16391, 90, -16365, 0, -32678, 240, 90, 16623, // 386 -16365, 0, 244, 232, 1252, 1252, 137, 1252, // 387 137, 1252, 137, 1252, 137, 1252, 137, 222, // 388 -16365, 0, 131, 194, -16360, -16333, -16332, 124, // 389 181, -16292, -16277, 16493, -31802, 5342, -28581, 4188, // 390 4263, 181, 186, 454, 16475, 183, -28583, 199, // 391 5598, 9438, 222, -32677, -32676, 16407, 186, 228, // 392 135, 16409, -32632, 0, -32677, 92, -32677, -32676, // 393 -32662, -32661, -32660, -32659, 165, -32677, 92, 188, // 394 -32662, 107, 188, -32660, 109, -32732, 37, -16344, // 395 4318, 148, -32674, 16424, 222, 16405, 222, 174, // 396 -28644, -32734, -32680, -28641, -32733, -32730, -32735, -32727, // 397 -32738, 4326, -32738, -32739, -32741, -32736, 199, -28644, // 398 -32680, -28641, 4326, -32739, -32741, 199, -32738, -32739, // 399 -32741, -32736, -32729, 199, -32616, 199, -32739, -32741, // 400 -32729, 199, -32616, -32729, 199, -28644, -32680, 4326, // 401 -32738, -32739, -32741, 199, 245, 4318, 245, 16409, // 402 152, 4318, 16409, 152, 245, -32672, -32671, -32670, // 403 99, 16407, 200, 144, 185, -32677, 92, 16407, // 404 -32582, 200, 200, 187, 141, -32677, 92, 16410, // 405 191, -32677, -32676, -32662, -32661, -32660, 109, 198, // 406 0(max grammar-719) // 407 // 408 %ownshortintegerarray glink(0:max grammar) = %c _imp_current_line = 408; _imp_current_file = "pass1v84-noprims.imp"; #line 408 "pass1v84-noprims.imp" static short GLINK[1721] = { (-1), 71, 72, 38, 46, 47, 67, 67, 75, 67, 0, 67, 51, 76, 79, 53, 55, 80, 67, 81, 82, 83, 67, 84, 26, 41, 85, 86, 57, 57, 89, 93, 96, 97, 102, 103, 104, 107, 46, 67, 67, 0, 110, 110, 111, 52, 49, 0, 61, 67, 62, 0, 67, 0, 111, 112, 112, 58, 113, 114, 115, 64, 67, 66, 116, 117, 68, 0, 67, 122, 67, 0, 73, 123, 123, 67, 77, 67, 40, 77, 67, 67, 0, 124, 127, 128, 87, 86, 0, 90, 131, 89, 0, 94, 93, 0, 132, 98, 137, 100, 97, 0, 138, 67, 105, 104, 0, 108, 107, 0, 67, 67, 67, 139, 140, 141, 0, 118, 120, 116, 142, 116, 67, 71, 125, 67, 0, 67, 129, 85, 0, 143, 133, 144, 135, 145, 0, 156, 157, 59, 158, 67, 119, 91, 159, 146, 145, 148, 146, 151, 0, 153, 153, 154, 146, 0, 99, 160, 67, 134, 161, 162, 165, 161, 141, 162, 162, 168, 172, 174, 175, 176, 177, 178, 179, 182, 185, 188, 189, 180, 190, 190, 183, 191, 191, 186, 191, 191, 0, 188, 192, 193, 194, 0, 196, 0, 0, 198, 197, 0, 201, 200, 0, 204, 205, 0, 228, 232, 219, 234, 235, 0, 236, 237, 238, 0, 232, 226, 244, 245, 221, 248, 249, 250, 251, 245, 0, 252, 229, 249, 250, 251, 253, 0, 0, 188, 254, 260, 239, 269, 269, 242, 191, 191, 270, 246, 272, 272, 229, 273, 274, 275, 276, 0, 255, 266, 266, 258, 267, 267, 261, 266, 266, 264, 267, 267, 232, 268, 232, 0, 277, 0, 278, 232, 273, 232, 282, 283, 279, 285, 253, 0, 0, 286, 0, 232, 0, 288, 0, 290, 0, 292, 294, 0, 0, 297, 0, 0, 299, 301, 0, 303, 0, 305, 0, 307, 0, 0, 310, 313, 314, 315, 0, 0, 316, 311, 314, 0, 332, 332, 328, 349, 350, 351, 351, 351, 351, 330, 282, 352, 358, 0, 333, 341, 347, 359, 360, 361, 362, 363, 0, 342, 343, 345, 0, 346, 0, 269, 269, 0, 0, 366, 353, 371, 372, 373, 374, 0, 375, 376, 377, 383, 384, 364, 385, 385, 367, 269, 269, 269, 269, 389, 390, 391, 392, 393, 0, 378, 360, 361, 362, 341, 0, 379, 380, 386, 363, 341, 0, 353, 354, 355, 375, 395, 0, 396, 0, 400, 269, 269, 401, 0, 411, 411, 406, 417, 407, 418, 419, 420, 0, 412, 418, 419, 420, 421, 0, 409, 406, 424, 417, 422, 425, 425, 408, 415, 427, 430, 431, 0, 426, 432, 428, 434, 436, 0, 433, 269, 269, 441, 442, 282, 443, 0, 446, 451, 447, 446, 452, 451, 0, 449, 448, 454, 453, 457, 0, 455, 459, 458, 0, 269, 464, 465, 282, 466, 0, 469, 469, 470, 471, 472, 473, 474, 475, 476, 477, 0, 479, 269, 481, 0, 483, 485, 485, 205, 490, 488, 496, 497, 491, 494, 490, 0, 491, 491, 0, 498, 499, 501, 0, 0, 504, 506, 510, 499, 508, 0, 506, 506, 504, 512, 513, 514, 515, 0, 517, 518, 519, 520, 0, 522, 523, 524, 525, 522, 0, 528, 529, 531, 536, 532, 534, 0, 532, 0, 537, 538, 539, 541, 542, 542, 0, 544, 546, 0, 547, 548, 549, 533, 551, 553, 558, 554, 556, 0, 554, 0, 559, 560, 557, 0, 563, 205, 0, 566, 564, 568, 565, 570, 567, 572, 569, 574, 571, 576, 575, 0, 579, 580, 592, 593, 584, 205, 585, 588, 588, 588, 590, 205, 594, 594, 595, 596, 597, 581, 600, 598, 601, 0, 205, 205, 205, 606, 606, 607, 608, 609, 605, 610, 612, 0, 193, 193, 193, 193, 193, 193, 193, 193, 0, 623, 623, 192, 626, 626, 0, 626, 626, 631, 633, 282, 282, 634, 282, 282, 637, 638, 639, 0, 650, 677, 684, 666, 655, 205, 205, 205, 205, 650, 659, 668, 685, 666, 0, 662, 686, 666, 662, 668, 685, 0, 670, 674, 689, 666, 205, 0, 205, 0, 674, 689, 205, 0, 666, 205, 0, 680, 692, 680, 659, 668, 685, 0, 650, 687, 662, 688, 205, 690, 691, 666, 680, 697, 697, 697, 697, 698, 699, 700, 0, 703, 703, 704, 706, 707, 708, 708, 700, 711, 711, 712, 713, 719, 719, 719, 719, 719, 719, [719 ... 1720] = 0 }; // 409 -1, 71, 72, 38, 46, 47, 67, 67, // 410 75, 67, 0, 67, 51, 76, 79, 53, // 411 55, 80, 67, 81, 82, 83, 67, 84, // 412 26, 41, 85, 86, 57, 57, 89, 93, // 413 96, 97, 102, 103, 104, 107, 46, 67, // 414 67, 0, 110, 110, 111, 52, 49, 0, // 415 61, 67, 62, 0, 67, 0, 111, 112, // 416 112, 58, 113, 114, 115, 64, 67, 66, // 417 116, 117, 68, 0, 67, 122, 67, 0, // 418 73, 123, 123, 67, 77, 67, 40, 77, // 419 67, 67, 0, 124, 127, 128, 87, 86, // 420 0, 90, 131, 89, 0, 94, 93, 0, // 421 132, 98, 137, 100, 97, 0, 138, 67, // 422 105, 104, 0, 108, 107, 0, 67, 67, // 423 67, 139, 140, 141, 0, 118, 120, 116, // 424 142, 116, 67, 71, 125, 67, 0, 67, // 425 129, 85, 0, 143, 133, 144, 135, 145, // 426 0, 156, 157, 59, 158, 67, 119, 91, // 427 159, 146, 145, 148, 146, 151, 0, 153, // 428 153, 154, 146, 0, 99, 160, 67, 134, // 429 161, 162, 165, 161, 141, 162, 162, 168, // 430 172, 174, 175, 176, 177, 178, 179, 182, // 431 185, 188, 189, 180, 190, 190, 183, 191, // 432 191, 186, 191, 191, 0, 188, 192, 193, // 433 194, 0, 196, 0, 0, 198, 197, 0, // 434 201, 200, 0, 204, 205, 0, 228, 232, // 435 219, 234, 235, 0, 236, 237, 238, 0, // 436 232, 226, 244, 245, 221, 248, 249, 250, // 437 251, 245, 0, 252, 229, 249, 250, 251, // 438 253, 0, 0, 188, 254, 260, 239, 269, // 439 269, 242, 191, 191, 270, 246, 272, 272, // 440 229, 273, 274, 275, 276, 0, 255, 266, // 441 266, 258, 267, 267, 261, 266, 266, 264, // 442 267, 267, 232, 268, 232, 0, 277, 0, // 443 278, 232, 273, 232, 282, 283, 279, 285, // 444 253, 0, 0, 286, 0, 232, 0, 288, // 445 0, 290, 0, 292, 294, 0, 0, 297, // 446 0, 0, 299, 301, 0, 303, 0, 305, // 447 0, 307, 0, 0, 310, 313, 314, 315, // 448 0, 0, 316, 311, 314, 0, 332, 332, // 449 328, 349, 350, 351, 351, 351, 351, 330, // 450 282, 352, 358, 0, 333, 341, 347, 359, // 451 360, 361, 362, 363, 0, 342, 343, 345, // 452 0, 346, 0, 269, 269, 0, 0, 366, // 453 353, 371, 372, 373, 374, 0, 375, 376, // 454 377, 383, 384, 364, 385, 385, 367, 269, // 455 269, 269, 269, 389, 390, 391, 392, 393, // 456 0, 378, 360, 361, 362, 341, 0, 379, // 457 380, 386, 363, 341, 0, 353, 354, 355, // 458 375, 395, 0, 396, 0, 400, 269, 269, // 459 401, 0, 411, 411, 406, 417, 407, 418, // 460 419, 420, 0, 412, 418, 419, 420, 421, // 461 0, 409, 406, 424, 417, 422, 425, 425, // 462 408, 415, 427, 430, 431, 0, 426, 432, // 463 428, 434, 436, 0, 433, 269, 269, 441, // 464 442, 282, 443, 0, 446, 451, 447, 446, // 465 452, 451, 0, 449, 448, 454, 453, 457, // 466 0, 455, 459, 458, 0, 269, 464, 465, // 467 282, 466, 0, 469, 469, 470, 471, 472, // 468 473, 474, 475, 476, 477, 0, 479, 269, // 469 481, 0, 483, 485, 485, 205, 490, 488, // 470 496, 497, 491, 494, 490, 0, 491, 491, // 471 0, 498, 499, 501, 0, 0, 504, 506, // 472 510, 499, 508, 0, 506, 506, 504, 512, // 473 513, 514, 515, 0, 517, 518, 519, 520, // 474 0, 522, 523, 524, 525, 522, 0, 528, // 475 529, 531, 536, 532, 534, 0, 532, 0, // 476 537, 538, 539, 541, 542, 542, 0, 544, // 477 546, 0, 547, 548, 549, 533, 551, 553, // 478 558, 554, 556, 0, 554, 0, 559, 560, // 479 557, 0, 563, 205, 0, 566, 564, 568, // 480 565, 570, 567, 572, 569, 574, 571, 576, // 481 575, 0, 579, 580, 592, 593, 584, 205, // 482 585, 588, 588, 588, 590, 205, 594, 594, // 483 595, 596, 597, 581, 600, 598, 601, 0, // 484 205, 205, 205, 606, 606, 607, 608, 609, // 485 605, 610, 612, 0, 193, 193, 193, 193, // 486 193, 193, 193, 193, 0, 623, 623, 192, // 487 626, 626, 0, 626, 626, 631, 633, 282, // 488 282, 634, 282, 282, 637, 638, 639, 0, // 489 650, 677, 684, 666, 655, 205, 205, 205, // 490 205, 650, 659, 668, 685, 666, 0, 662, // 491 686, 666, 662, 668, 685, 0, 670, 674, // 492 689, 666, 205, 0, 205, 0, 674, 689, // 493 205, 0, 666, 205, 0, 680, 692, 680, // 494 659, 668, 685, 0, 650, 687, 662, 688, // 495 205, 690, 691, 666, 680, 697, 697, 697, // 496 697, 698, 699, 700, 0, 703, 703, 704, // 497 706, 707, 708, 708, 700, 711, 711, 712, // 498 713, 719, 719, 719, 719, 719, 719, 0, // 499 0(max grammar-719) // 500 // 501 %constshortintegerarray kdict(32:607) = %c _imp_current_line = 501; _imp_current_file = "pass1v84-noprims.imp"; #line 501 "pass1v84-noprims.imp" const short KDICT[576] = { 0, 511, 131, 531, 131, 551, 559, 131, 567, 575, 583, 603, 623, 631, 663, 671, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 691, 698, 707, 751, 795, 131, 131, 824, 900, 960, 1076, 1120, 1280, 128, 128, 1392, 128, 128, 1460, 1556, 1592, 1660, 1748, 128, 1828, 2044, 2240, 2272, 128, 2312, 128, 128, 128, 2331, 2339, 2371, 2379, 2399, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 131, 2407, 131, 2379, (-32351), 16428, 25, 16428, 29, (-32349), 16433, 1, 16434, 1, (-16127), 0, 16427, 21, 16407, 0, 16409, 0, (-32323), (-10840), 40, 16471, 0, (-32341), (-10580), 32, 16473, 117, 16384, 19, (-31955), (-32322), (-10580), 36, (-9290), 0, 16473, 113, 16432, 13, (-32337), 16427, 46, 16427, 17, 16405, 0, 16404, 0, (-31556), (-31939), (-32322), (-9551), 2, 16433, 1, 16433, 5, 16426, 5, (-31606), (-32323), (-9807), 0, (-32374), (-9678), 0, 16436, 0, 16435, 0, (-31939), (-32322), 16433, 4, 16426, 9, 16433, 3, (-30772), (-31666), 10578, 11457, (-32344), 16413, 2, 16411, 2, 68, (-32374), 16440, 0, 16440, 0, 8393, 83, 16408, 0, (-31291), 10841, 69, (-32311), 16412, 18, 10830, 9157, 10565, 16412, 18, 9415, 78, 16458, 0, (-32049), 8665, 8908, 16455, 0, (-30131), 78, (-31277), 84, (-32055), 10194, 76, 16469, 0, 10958, 69, 16447, 32, 84, (-32319), 16418, 2, 10830, 16418, 2, 8909, 10830, 16406, 0, (-31927), 10073, 9921, 8649, 16419, 5, 9153, 10190, 8915, 16469, 1, (-27956), (-31282), 88, (-31927), 8916, 10066, 9793, 16419, 3, 84, 16447, 4, 68, (-32305), 16459, 2, 70, (-30650), (-31284), 80, (-31931), 10194, 10567, 9921, 16460, 1, 9938, 16461, 0, 10697, 84, 16467, 3, 9801, 69, 16460, 0, 8915, 16452, 0, (-29631), (-30903), (-31282), (-31793), 10069, 10819, 10185, 78, 16416, 9, 82, 16445, 0, 16416, 9, 9422, 9299, (-32315), 16453, 0, 10700, 69, 16454, 0, 10700, 69, 16464, 1210, (-30778), 78, (-31549), 8916, 8903, 82, (-32344), 16412, 17, 16472, 17, 10956, 8900, 16470, 0, 16446, 44, (-30143), (-30647), 10063, 71, (-31671), (-32302), 16412, 20, 8389, 76, 16412, 36, 10830, 9157, 10565, 16412, 20, 10835, 16467, 1, 8898, 76, 16425, 6, (-31935), 10063, 10825, 10575, 16465, 109, 80, 16416, 10, (-32191), 10831, 16442, 0, 8909, (-32314), 16414, 1, (-31794), 10069, 10819, 10185, 78, 16416, 10, 16416, 10, (-30770), (-31408), (-32174), 10071, 16418, 1, (-32374), 16441, 2, 16441, 2, 9428, 10063, 16402, 0, (-32315), 16448, 0, 8918, 10830, 16448, 0, (-30523), 82, (-31419), (-31927), 9167, 8402, 77, 16457, 0, 77, 16419, 6, 9412, 8387, 8916, 16415, 123, 9938, 16419, 7, (-31931), 10959, 9428, 8910, 16415, 104, (-28351), (-30397), (-31024), (-32045), 10964, 10066, 16464, 1319, 9813, 7892, (-32323), 16462, 1384, 16463, 1241, 8389, 84, 16456, 0, 10575, 68, (-32314), 16421, 64, 10575, 8397, 84, (-32301), 16422, 9, 8912, 67, 16422, 12, 76, (-32301), 16412, 33, (-31924), 10190, 9938, 9793, 16468, 1, 10063, 71, 16468, 4, (-27704), (-28983), (-29488), (-31276), (-31913), 10713, 8916, 77, 16419, 4, 10825, 9283, 16417, 12, (-31423), (-31921), 9426, 9166, 40, 16420, 48, 80, 16466, 115, 10834, 16451, 0, 8645, 16423, 0, 10055, 9793, (-32315), 16449, 0, 8918, 10830, 16449, 0, 10575, 84, (-32311), 16412, 19, 10830, 9157, 10565, 16412, 19, (-32056), 10962, 69, 16464, 1354, 10053, 16450, 0, 78, (-32052), 9428, 76, 16444, 182, 10693, 83, 16446, 46, 9416, 8908, 16443, 180, 16407, 0, (-31939), (-32292), (-10454), 51, 16426, 13, 16433, 1, 16409, 0, (-32290), (-10454), 51, 16426, 13, 16410, 0, 16431, 14, (-32323), 16430, 51, 16433, 1, }; // 502 0, 511, 131, 531, 131, 551, 559, 131, // 503 567, 575, 583, 603, 623, 631, 663, 671, // 504 129, 129, 129, 129, 129, 129, 129, 129, // 505 129, 129, 691, 698, 707, 751, 795, 131, // 506 131, 824, 900, 960, 1076, 1120, 1280, 128, // 507 128, 1392, 128, 128, 1460, 1556, 1592, 1660, // 508 1748, 128, 1828, 2044, 2240, 2272, 128, 2312, // 509 128, 128, 128, 2331, 2339, 2371, 2379, 2399, // 510 131, 131, 131, 131, 131, 131, 131, 131, // 511 131, 131, 131, 131, 131, 131, 131, 131, // 512 131, 131, 131, 131, 131, 131, 131, 131, // 513 131, 131, 131, 131, 2407, 131, 2379, -32351, // 514 16428, 25, 16428, 29, -32349, 16433, 1, 16434, // 515 1, -16127, 0, 16427, 21, 16407, 0, 16409, // 516 0, -32323, -10840, 40, 16471, 0, -32341, -10580, // 517 32, 16473, 117, 16384, 19, -31955, -32322, -10580, // 518 36, -9290, 0, 16473, 113, 16432, 13, -32337, // 519 16427, 46, 16427, 17, 16405, 0, 16404, 0, // 520 -31556, -31939, -32322, -9551, 2, 16433, 1, 16433, // 521 5, 16426, 5, -31606, -32323, -9807, 0, -32374, // 522 -9678, 0, 16436, 0, 16435, 0, -31939, -32322, // 523 16433, 4, 16426, 9, 16433, 3, -30772, -31666, // 524 10578, 11457, -32344, 16413, 2, 16411, 2, 68, // 525 -32374, 16440, 0, 16440, 0, 8393, 83, 16408, // 526 0, -31291, 10841, 69, -32311, 16412, 18, 10830, // 527 9157, 10565, 16412, 18, 9415, 78, 16458, 0, // 528 -32049, 8665, 8908, 16455, 0, -30131, 78, -31277, // 529 84, -32055, 10194, 76, 16469, 0, 10958, 69, // 530 16447, 32, 84, -32319, 16418, 2, 10830, 16418, // 531 2, 8909, 10830, 16406, 0, -31927, 10073, 9921, // 532 8649, 16419, 5, 9153, 10190, 8915, 16469, 1, // 533 -27956, -31282, 88, -31927, 8916, 10066, 9793, 16419, // 534 3, 84, 16447, 4, 68, -32305, 16459, 2, // 535 70, -30650, -31284, 80, -31931, 10194, 10567, 9921, // 536 16460, 1, 9938, 16461, 0, 10697, 84, 16467, // 537 3, 9801, 69, 16460, 0, 8915, 16452, 0, // 538 -29631, -30903, -31282, -31793, 10069, 10819, 10185, 78, // 539 16416, 9, 82, 16445, 0, 16416, 9, 9422, // 540 9299, -32315, 16453, 0, 10700, 69, 16454, 0, // 541 10700, 69, 16464, 1210, -30778, 78, -31549, 8916, // 542 8903, 82, -32344, 16412, 17, 16472, 17, 10956, // 543 8900, 16470, 0, 16446, 44, -30143, -30647, 10063, // 544 71, -31671, -32302, 16412, 20, 8389, 76, 16412, // 545 36, 10830, 9157, 10565, 16412, 20, 10835, 16467, // 546 1, 8898, 76, 16425, 6, -31935, 10063, 10825, // 547 10575, 16465, 109, 80, 16416, 10, -32191, 10831, // 548 16442, 0, 8909, -32314, 16414, 1, -31794, 10069, // 549 10819, 10185, 78, 16416, 10, 16416, 10, -30770, // 550 -31408, -32174, 10071, 16418, 1, -32374, 16441, 2, // 551 16441, 2, 9428, 10063, 16402, 0, -32315, 16448, // 552 0, 8918, 10830, 16448, 0, -30523, 82, -31419, // 553 -31927, 9167, 8402, 77, 16457, 0, 77, 16419, // 554 6, 9412, 8387, 8916, 16415, 123, 9938, 16419, // 555 7, -31931, 10959, 9428, 8910, 16415, 104, -28351, // 556 -30397, -31024, -32045, 10964, 10066, 16464, 1319, 9813, // 557 7892, -32323, 16462, 1384, 16463, 1241, 8389, 84, // 558 16456, 0, 10575, 68, -32314, 16421, 64, 10575, // 559 8397, 84, -32301, 16422, 9, 8912, 67, 16422, // 560 12, 76, -32301, 16412, 33, -31924, 10190, 9938, // 561 9793, 16468, 1, 10063, 71, 16468, 4, -27704, // 562 -28983, -29488, -31276, -31913, 10713, 8916, 77, 16419, // 563 4, 10825, 9283, 16417, 12, -31423, -31921, 9426, // 564 9166, 40, 16420, 48, 80, 16466, 115, 10834, // 565 16451, 0, 8645, 16423, 0, 10055, 9793, -32315, // 566 16449, 0, 8918, 10830, 16449, 0, 10575, 84, // 567 -32311, 16412, 19, 10830, 9157, 10565, 16412, 19, // 568 -32056, 10962, 69, 16464, 1354, 10053, 16450, 0, // 569 78, -32052, 9428, 76, 16444, 182, 10693, 83, // 570 16446, 46, 9416, 8908, 16443, 180, 16407, 0, // 571 -31939, -32292, -10454, 51, 16426, 13, 16433, 1, // 572 16409, 0, -32290, -10454, 51, 16426, 13, 16410, // 573 0, 16431, 14, -32323, 16430, 51, 16433, 1 // 574 %list _imp_current_line = 574; _imp_current_file = "pass1v84-noprims.imp"; // 575 !*** end of generated tables *** // 576 // 577 %ROUTINE flush buffer _imp_current_line = 577; _imp_current_file = "pass1v84-noprims.imp"; #line 577 "pass1v84-noprims.imp" void FLUSHBUFFER( void ) #line 577 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 578 %INTEGER j _imp_current_line = 578; _imp_current_file = "pass1v84-noprims.imp"; #line 578 "pass1v84-noprims.imp" int J; // 579 %IF faulty = 0 %START _imp_current_line = 579; _imp_current_file = "pass1v84-noprims.imp"; #line 579 "pass1v84-noprims.imp" if (((FAULTY) != (0))) goto L_0002; // 580 select output(object) _imp_current_line = 580; _imp_current_file = "pass1v84-noprims.imp"; #line 580 "pass1v84-noprims.imp" _imp_SELECTOUTPUT(1); // 581 %FOR j = 1, 1, bp %CYCLE _imp_current_line = 581; _imp_current_file = "pass1v84-noprims.imp"; #line 581 "pass1v84-noprims.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = BP; J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, BP"); J -= _increment; _control -= _increment; L_0003:; if (J == _final) goto L_0004; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 582 printsymbol(buff(j)) _imp_current_line = 582; _imp_current_file = "pass1v84-noprims.imp"; #line 582 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(BUFF[(((int)(J)) - (1))]); // 583 %REPEAT _imp_current_line = 583; _imp_current_file = "pass1v84-noprims.imp"; #line 583 "pass1v84-noprims.imp" goto L_0003; #line 583 "pass1v84-noprims.imp" L_0004:; // 584 select output(listing) _imp_current_line = 584; _imp_current_file = "pass1v84-noprims.imp"; #line 584 "pass1v84-noprims.imp" _imp_SELECTOUTPUT(2); // 585 %FINISH _imp_current_line = 585; _imp_current_file = "pass1v84-noprims.imp"; #line 585 "pass1v84-noprims.imp" L_0002:; // 586 bp = 0 _imp_current_line = 586; _imp_current_file = "pass1v84-noprims.imp"; #line 586 "pass1v84-noprims.imp" BP = 0; // 587 %END _imp_current_line = 587; _imp_current_file = "pass1v84-noprims.imp"; #line 587 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block FLUSHBUFFER at level 2 // 588 %ROUTINE print ident(%INTEGER p, mode) _imp_current_line = 588; _imp_current_file = "pass1v84-noprims.imp"; #line 588 "pass1v84-noprims.imp" void PRINTIDENT( int P, int MODE ) #line 588 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 589 %INTEGER j, ad _imp_current_line = 589; _imp_current_file = "pass1v84-noprims.imp"; #line 589 "pass1v84-noprims.imp" int J; #line 589 "pass1v84-noprims.imp" int AD; // 590 p = tag(p)_text _imp_current_line = 590; _imp_current_file = "pass1v84-noprims.imp"; #line 590 "pass1v84-noprims.imp" P = TAG[P].TEXT; // 591 %IF p = 0 %START _imp_current_line = 591; _imp_current_file = "pass1v84-noprims.imp"; #line 591 "pass1v84-noprims.imp" if (((P) != (0))) goto L_0006; // 592 bp = bp+1 %AND buff(bp) = '?' %if Mode # 0 _imp_current_line = 592; _imp_current_file = "pass1v84-noprims.imp"; #line 592 "pass1v84-noprims.imp" if (((MODE) == (0))) goto L_0007; #line 592 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 592 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 63; #line 592 "pass1v84-noprims.imp" L_0007:; // 593 %RETURN _imp_current_line = 593; _imp_current_file = "pass1v84-noprims.imp"; #line 593 "pass1v84-noprims.imp" return; // 594 %FINISH _imp_current_line = 594; _imp_current_file = "pass1v84-noprims.imp"; #line 594 "pass1v84-noprims.imp" L_0006:; // 595 ad = addr(dict(p+1)) _imp_current_line = 595; _imp_current_file = "pass1v84-noprims.imp"; #line 595 "pass1v84-noprims.imp" AD = _imp_ADDR(&DICT[(((int)((((int)(P)) + (1)))) - (1))]); // 596 %IF mode = 0 %THEN printstring(string(ad)) %ELSE %START _imp_current_line = 596; _imp_current_file = "pass1v84-noprims.imp"; #line 596 "pass1v84-noprims.imp" if (((MODE) != (0))) goto L_0008; #line 596 "pass1v84-noprims.imp" _imp_PRINTSTRING(*_imp_STRING(AD)); #line 596 "pass1v84-noprims.imp" goto L_0009; #line 596 "pass1v84-noprims.imp" L_0008:; // 597 %FOR j = ad+1, 1, ad+byteinteger(ad) %CYCLE _imp_current_line = 597; _imp_current_file = "pass1v84-noprims.imp"; #line 597 "pass1v84-noprims.imp" {static int _initial, _increment, _final, _control; _initial = (((int)(AD)) + (1)); _increment = 1; _final = ((AD) + (*(int *)(_imp_BYTEINTEGER(AD)))); J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = (((int)(AD)) + (1)), 1, ((AD) + (*(int *)(_imp_BYTEINTEGER(AD))))"); J -= _increment; _control -= _increment; L_000a:; if (J == _final) goto L_000b; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 598 bp = bp+1 _imp_current_line = 598; _imp_current_file = "pass1v84-noprims.imp"; #line 598 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); // 599 buff(bp) = byteinteger(j) _imp_current_line = 599; _imp_current_file = "pass1v84-noprims.imp"; #line 599 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = *_imp_BYTEINTEGER(J); // 600 %REPEAT _imp_current_line = 600; _imp_current_file = "pass1v84-noprims.imp"; #line 600 "pass1v84-noprims.imp" goto L_000a; #line 600 "pass1v84-noprims.imp" L_000b:; // 601 %FINISH _imp_current_line = 601; _imp_current_file = "pass1v84-noprims.imp"; #line 601 "pass1v84-noprims.imp" L_0009:; // 602 %END _imp_current_line = 602; _imp_current_file = "pass1v84-noprims.imp"; #line 602 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block PRINTIDENT at level 2 // 603 %ROUTINE abandon(%INTEGER n) _imp_current_line = 603; _imp_current_file = "pass1v84-noprims.imp"; #line 603 "pass1v84-noprims.imp" void ABANDON( int N ) #line 603 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 604 %SWITCH reason(0:9) _imp_current_line = 604; _imp_current_file = "pass1v84-noprims.imp"; #line 604 "pass1v84-noprims.imp" static int sw1_REASON_idx; static const void * /*SWITCH*/ sw1_REASON[10] = { &&sw1_REASON_0, &&sw1_REASON_1, &&sw1_REASON_2, &&sw1_REASON_3, &&sw1_REASON_4, &&sw1_REASON_5, &&sw1_REASON_6, &&sw1_REASON_7, &&sw1_REASON_8, &&sw1_REASON_9, }; // 605 %INTEGER stream _imp_current_line = 605; _imp_current_file = "pass1v84-noprims.imp"; #line 605 "pass1v84-noprims.imp" int STREAM; // 606 stream = listing _imp_current_line = 606; _imp_current_file = "pass1v84-noprims.imp"; #line 606 "pass1v84-noprims.imp" STREAM = 2; // 607 %CYCLE _imp_current_line = 607; _imp_current_file = "pass1v84-noprims.imp"; #line 607 "pass1v84-noprims.imp" L_000d:; // 608 newline %IF sym # nl _imp_current_line = 608; _imp_current_file = "pass1v84-noprims.imp"; #line 608 "pass1v84-noprims.imp" if (((SYM) == (10))) goto L_0010; #line 608 "pass1v84-noprims.imp" _imp_NEWLINE(); #line 608 "pass1v84-noprims.imp" L_0010:; // 609 printsymbol('*'); write(lines,4); space _imp_current_line = 609; _imp_current_file = "pass1v84-noprims.imp"; #line 609 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(42); _imp_current_line = 609; _imp_current_file = "pass1v84-noprims.imp"; #line 609 "pass1v84-noprims.imp" _imp_WRITE(LINES, 4); _imp_current_line = 609; _imp_current_file = "pass1v84-noprims.imp"; #line 609 "pass1v84-noprims.imp" _imp_SPACE(); // 610 ->reason(n) _imp_current_line = 610; _imp_current_file = "pass1v84-noprims.imp"; #line 610 "pass1v84-noprims.imp" sw1_REASON_idx = N; if ((0 <= sw1_REASON_idx) && (sw1_REASON_idx <= 9)) goto *sw1_REASON[sw1_REASON_idx]; else { /*_imp_signal(8, 2, sw1_REASON_idx);*/ fprintf(stderr, "%%SWITCH index REASON(%d) not in range 0:9 at %s:%d\n", sw1_REASON_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 611 reason(0):printstring("compiler error!"); ->more _imp_current_line = 611; _imp_current_file = "pass1v84-noprims.imp"; #line 611 "pass1v84-noprims.imp" sw1_REASON_0:; _imp_current_line = 611; _imp_current_file = "pass1v84-noprims.imp"; #line 611 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("compiler error!")); _imp_current_line = 611; _imp_current_file = "pass1v84-noprims.imp"; #line 611 "pass1v84-noprims.imp" goto U_1000; // 612 reason(1):printstring("switch vector too large"); ->more _imp_current_line = 612; _imp_current_file = "pass1v84-noprims.imp"; #line 612 "pass1v84-noprims.imp" sw1_REASON_1:; _imp_current_line = 612; _imp_current_file = "pass1v84-noprims.imp"; #line 612 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("switch vector too large")); _imp_current_line = 612; _imp_current_file = "pass1v84-noprims.imp"; #line 612 "pass1v84-noprims.imp" goto U_1000; // 613 reason(2):printstring("too many names"); ->more _imp_current_line = 613; _imp_current_file = "pass1v84-noprims.imp"; #line 613 "pass1v84-noprims.imp" sw1_REASON_2:; _imp_current_line = 613; _imp_current_file = "pass1v84-noprims.imp"; #line 613 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("too many names")); _imp_current_line = 613; _imp_current_file = "pass1v84-noprims.imp"; #line 613 "pass1v84-noprims.imp" goto U_1000; // 614 reason(3):printstring("program too complex"); ->more _imp_current_line = 614; _imp_current_file = "pass1v84-noprims.imp"; #line 614 "pass1v84-noprims.imp" sw1_REASON_3:; _imp_current_line = 614; _imp_current_file = "pass1v84-noprims.imp"; #line 614 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("program too complex")); _imp_current_line = 614; _imp_current_file = "pass1v84-noprims.imp"; #line 614 "pass1v84-noprims.imp" goto U_1000; // 615 reason(4):printstring("feature not implemented"); ->more _imp_current_line = 615; _imp_current_file = "pass1v84-noprims.imp"; #line 615 "pass1v84-noprims.imp" sw1_REASON_4:; _imp_current_line = 615; _imp_current_file = "pass1v84-noprims.imp"; #line 615 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("feature not implemented")); _imp_current_line = 615; _imp_current_file = "pass1v84-noprims.imp"; #line 615 "pass1v84-noprims.imp" goto U_1000; // 616 reason(5):printstring("input ended: ") _imp_current_line = 616; _imp_current_file = "pass1v84-noprims.imp"; #line 616 "pass1v84-noprims.imp" sw1_REASON_5:; _imp_current_line = 616; _imp_current_file = "pass1v84-noprims.imp"; #line 616 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("input ended: ")); // 617 %IF quote # 0 %START _imp_current_line = 617; _imp_current_file = "pass1v84-noprims.imp"; #line 617 "pass1v84-noprims.imp" if (((QUOTE) == (0))) goto L_0011; // 618 %IF quote < 0 %THEN printsymbol(cquote) %C _imp_current_line = 618; _imp_current_file = "pass1v84-noprims.imp"; #line 618 "pass1v84-noprims.imp" if (((QUOTE) >= (0))) goto L_0012; #line 618 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(39); #line 618 "pass1v84-noprims.imp" goto L_0013; #line 618 "pass1v84-noprims.imp" L_0012:; #line 618 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(34); #line 618 "pass1v84-noprims.imp" L_0013:; // 619 %ELSE printsymbol(squote) // 620 %ELSE _imp_current_line = 620; _imp_current_file = "pass1v84-noprims.imp"; #line 620 "pass1v84-noprims.imp" goto L_0014; #line 620 "pass1v84-noprims.imp" L_0011:; // 621 printstring("%endof") _imp_current_line = 621; _imp_current_file = "pass1v84-noprims.imp"; #line 621 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("%endof")); // 622 %IF progmode >= 0 %THEN printstring("program") %C _imp_current_line = 622; _imp_current_file = "pass1v84-noprims.imp"; #line 622 "pass1v84-noprims.imp" if (((PROGMODE) < (0))) goto L_0015; #line 622 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("program")); #line 622 "pass1v84-noprims.imp" goto L_0016; #line 622 "pass1v84-noprims.imp" L_0015:; #line 622 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("file")); #line 622 "pass1v84-noprims.imp" L_0016:; // 623 %ELSE printstring("file") // 624 %FINISH _imp_current_line = 624; _imp_current_file = "pass1v84-noprims.imp"; #line 624 "pass1v84-noprims.imp" L_0014:; // 625 printstring(" missing?"); ->more _imp_current_line = 625; _imp_current_file = "pass1v84-noprims.imp"; #line 625 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal(" missing?")); _imp_current_line = 625; _imp_current_file = "pass1v84-noprims.imp"; #line 625 "pass1v84-noprims.imp" goto U_1000; // 626 reason(6):printstring("too many faults!"); ->more _imp_current_line = 626; _imp_current_file = "pass1v84-noprims.imp"; #line 626 "pass1v84-noprims.imp" sw1_REASON_6:; _imp_current_line = 626; _imp_current_file = "pass1v84-noprims.imp"; #line 626 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("too many faults!")); _imp_current_line = 626; _imp_current_file = "pass1v84-noprims.imp"; #line 626 "pass1v84-noprims.imp" goto U_1000; // 627 reason(7):printstring("string constant too long"); ->more _imp_current_line = 627; _imp_current_file = "pass1v84-noprims.imp"; #line 627 "pass1v84-noprims.imp" sw1_REASON_7:; _imp_current_line = 627; _imp_current_file = "pass1v84-noprims.imp"; #line 627 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("string constant too long")); _imp_current_line = 627; _imp_current_file = "pass1v84-noprims.imp"; #line 627 "pass1v84-noprims.imp" goto U_1000; // 628 reason(8):printstring("dictionary full"); -> more _imp_current_line = 628; _imp_current_file = "pass1v84-noprims.imp"; #line 628 "pass1v84-noprims.imp" sw1_REASON_8:; _imp_current_line = 628; _imp_current_file = "pass1v84-noprims.imp"; #line 628 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("dictionary full")); _imp_current_line = 628; _imp_current_file = "pass1v84-noprims.imp"; #line 628 "pass1v84-noprims.imp" goto U_1000; // 629 reason(9):printstring("Included file ".include file." does not exist") _imp_current_line = 629; _imp_current_file = "pass1v84-noprims.imp"; #line 629 "pass1v84-noprims.imp" sw1_REASON_9:; _imp_current_line = 629; _imp_current_file = "pass1v84-noprims.imp"; #line 629 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_join((_imp_string)_imp_str_literal("Included file "),(_imp_string)INCLUDEFILE),(_imp_string)_imp_str_literal(" does not exist"))); // 630 more: newline _imp_current_line = 630; _imp_current_file = "pass1v84-noprims.imp"; #line 630 "pass1v84-noprims.imp" U_1000:; _imp_current_line = 630; _imp_current_file = "pass1v84-noprims.imp"; #line 630 "pass1v84-noprims.imp" _imp_NEWLINE(); // 631 printstring("*** compilation abandoned ***"); newline _imp_current_line = 631; _imp_current_file = "pass1v84-noprims.imp"; #line 631 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("*** compilation abandoned ***")); _imp_current_line = 631; _imp_current_file = "pass1v84-noprims.imp"; #line 631 "pass1v84-noprims.imp" _imp_NEWLINE(); // 632 %EXIT %IF stream = report _imp_current_line = 632; _imp_current_file = "pass1v84-noprims.imp"; #line 632 "pass1v84-noprims.imp" if (((STREAM) != (0))) goto L_0017; #line 632 "pass1v84-noprims.imp" goto L_000e; #line 632 "pass1v84-noprims.imp" L_0017:; // 633 close output _imp_current_line = 633; _imp_current_file = "pass1v84-noprims.imp"; #line 633 "pass1v84-noprims.imp" CLOSEOUTPUT(); // 634 stream = report _imp_current_line = 634; _imp_current_file = "pass1v84-noprims.imp"; #line 634 "pass1v84-noprims.imp" STREAM = 0; // 635 select output(report) _imp_current_line = 635; _imp_current_file = "pass1v84-noprims.imp"; #line 635 "pass1v84-noprims.imp" _imp_SELECTOUTPUT(0); // 636 %REPEAT _imp_current_line = 636; _imp_current_file = "pass1v84-noprims.imp"; #line 636 "pass1v84-noprims.imp" goto L_000d; #line 636 "pass1v84-noprims.imp" L_000e:; // 637 !IMP80 BUG??? %SIGNAL 15,15 %IF diag&4096 # 0 // 638 %STOP _imp_current_line = 638; _imp_current_file = "pass1v84-noprims.imp"; #line 638 "pass1v84-noprims.imp" exit(0); // 639 %END _imp_current_line = 639; _imp_current_file = "pass1v84-noprims.imp"; #line 639 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block ABANDON at level 2 // 640 %ROUTINE op(%INTEGER code, param) _imp_current_line = 640; _imp_current_file = "pass1v84-noprims.imp"; #line 640 "pass1v84-noprims.imp" void OP( int CODE, int PARAM ) #line 640 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 641 buff(bp+1) <- code _imp_current_line = 641; _imp_current_file = "pass1v84-noprims.imp"; #line 641 "pass1v84-noprims.imp" BUFF[(((int)((((int)(BP)) + (1)))) - (1))] = CODE; // 642 buff(bp+2) <- param>>8 _imp_current_line = 642; _imp_current_file = "pass1v84-noprims.imp"; #line 642 "pass1v84-noprims.imp" BUFF[(((int)((((int)(BP)) + (2)))) - (1))] = (int)((((unsigned int)(PARAM)) >> (8))); // 643 buff(bp+3) <- param _imp_current_line = 643; _imp_current_file = "pass1v84-noprims.imp"; #line 643 "pass1v84-noprims.imp" BUFF[(((int)((((int)(BP)) + (3)))) - (1))] = PARAM; // 644 bp = bp+3 _imp_current_line = 644; _imp_current_file = "pass1v84-noprims.imp"; #line 644 "pass1v84-noprims.imp" BP = (((int)(BP)) + (3)); // 645 %END _imp_current_line = 645; _imp_current_file = "pass1v84-noprims.imp"; #line 645 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block OP at level 2 // 646 %ROUTINE set const(%INTEGER m) _imp_current_line = 646; _imp_current_file = "pass1v84-noprims.imp"; #line 646 "pass1v84-noprims.imp" void SETCONST( int M ) #line 646 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 647 buff(bp+1) <- 'N' _imp_current_line = 647; _imp_current_file = "pass1v84-noprims.imp"; #line 647 "pass1v84-noprims.imp" BUFF[(((int)((((int)(BP)) + (1)))) - (1))] = 78; // 648 buff(bp+5) <- m; m = m>>8 _imp_current_line = 648; _imp_current_file = "pass1v84-noprims.imp"; #line 648 "pass1v84-noprims.imp" BUFF[(((int)((((int)(BP)) + (5)))) - (1))] = M; _imp_current_line = 648; _imp_current_file = "pass1v84-noprims.imp"; #line 648 "pass1v84-noprims.imp" M = (int)((((unsigned int)(M)) >> (8))); // 649 buff(bp+4) <- m; m = m>>8 _imp_current_line = 649; _imp_current_file = "pass1v84-noprims.imp"; #line 649 "pass1v84-noprims.imp" BUFF[(((int)((((int)(BP)) + (4)))) - (1))] = M; _imp_current_line = 649; _imp_current_file = "pass1v84-noprims.imp"; #line 649 "pass1v84-noprims.imp" M = (int)((((unsigned int)(M)) >> (8))); // 650 buff(bp+3) <- m; m = m>>8 _imp_current_line = 650; _imp_current_file = "pass1v84-noprims.imp"; #line 650 "pass1v84-noprims.imp" BUFF[(((int)((((int)(BP)) + (3)))) - (1))] = M; _imp_current_line = 650; _imp_current_file = "pass1v84-noprims.imp"; #line 650 "pass1v84-noprims.imp" M = (int)((((unsigned int)(M)) >> (8))); // 651 buff(bp+2) <- m _imp_current_line = 651; _imp_current_file = "pass1v84-noprims.imp"; #line 651 "pass1v84-noprims.imp" BUFF[(((int)((((int)(BP)) + (2)))) - (1))] = M; // 652 bp = bp+5 _imp_current_line = 652; _imp_current_file = "pass1v84-noprims.imp"; #line 652 "pass1v84-noprims.imp" BP = (((int)(BP)) + (5)); // 653 %END _imp_current_line = 653; _imp_current_file = "pass1v84-noprims.imp"; #line 653 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block SETCONST at level 2 // 654 // 655 // 656 // 657 %ROUTINE compile block(%INTEGER level, block tag, dmin, tmax, id) _imp_current_line = 657; _imp_current_file = "pass1v84-noprims.imp"; #line 657 "pass1v84-noprims.imp" void COMPILEBLOCK( int LEVEL, int BLOCKTAG, int DMIN, int TMAX, int ID ) #line 657 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 658 // 659 %INTEGERFNSPEC gapp _imp_current_line = 659; _imp_current_file = "pass1v84-noprims.imp"; #line 659 "pass1v84-noprims.imp" auto int GAPP( void ); // 660 %ROUTINESPEC delete names(%INTEGER quiet) _imp_current_line = 660; _imp_current_file = "pass1v84-noprims.imp"; #line 660 "pass1v84-noprims.imp" auto void DELETENAMES( int QUIET ); // 661 %ROUTINESPEC analyse _imp_current_line = 661; _imp_current_file = "pass1v84-noprims.imp"; #line 661 "pass1v84-noprims.imp" auto void ANALYSE( void ); // 662 %ROUTINESPEC compile _imp_current_line = 662; _imp_current_file = "pass1v84-noprims.imp"; #line 662 "pass1v84-noprims.imp" auto void COMPILE( void ); // 663 // 664 %INTEGER open; open = closed; !zero if can return from proc _imp_current_line = 664; _imp_current_file = "pass1v84-noprims.imp"; #line 664 "pass1v84-noprims.imp" int OPEN; _imp_current_line = 664; _imp_current_file = "pass1v84-noprims.imp"; #line 664 "pass1v84-noprims.imp" OPEN = 16384; // 665 %INTEGER dbase; dbase = dmax; !dictionary base _imp_current_line = 665; _imp_current_file = "pass1v84-noprims.imp"; #line 665 "pass1v84-noprims.imp" int DBASE; _imp_current_line = 665; _imp_current_file = "pass1v84-noprims.imp"; #line 665 "pass1v84-noprims.imp" DBASE = DMAX; // 666 %INTEGER tbase; tbase = tmax; !tag base _imp_current_line = 666; _imp_current_file = "pass1v84-noprims.imp"; #line 666 "pass1v84-noprims.imp" int TBASE; _imp_current_line = 666; _imp_current_file = "pass1v84-noprims.imp"; #line 666 "pass1v84-noprims.imp" TBASE = TMAX; // 667 %INTEGER tstart; tstart = tmax _imp_current_line = 667; _imp_current_file = "pass1v84-noprims.imp"; #line 667 "pass1v84-noprims.imp" int TSTART; _imp_current_line = 667; _imp_current_file = "pass1v84-noprims.imp"; #line 667 "pass1v84-noprims.imp" TSTART = TMAX; // 668 %INTEGER label; label = 4; !first internal label _imp_current_line = 668; _imp_current_file = "pass1v84-noprims.imp"; #line 668 "pass1v84-noprims.imp" int LABEL; _imp_current_line = 668; _imp_current_file = "pass1v84-noprims.imp"; #line 668 "pass1v84-noprims.imp" LABEL = 4; // 669 %INTEGER access; access = 1; !non-zero if accessible _imp_current_line = 669; _imp_current_file = "pass1v84-noprims.imp"; #line 669 "pass1v84-noprims.imp" int ACCESS; _imp_current_line = 669; _imp_current_file = "pass1v84-noprims.imp"; #line 669 "pass1v84-noprims.imp" ACCESS = 1; // 670 %INTEGER inhibit; inhibit = 0; !non-zero inhibits declaratons _imp_current_line = 670; _imp_current_file = "pass1v84-noprims.imp"; #line 670 "pass1v84-noprims.imp" int INHIBIT; _imp_current_line = 670; _imp_current_file = "pass1v84-noprims.imp"; #line 670 "pass1v84-noprims.imp" INHIBIT = 0; // 671 // 672 %SHORTINTEGERNAME bflags; bflags == tag(block tag)_flags _imp_current_line = 672; _imp_current_file = "pass1v84-noprims.imp"; #line 672 "pass1v84-noprims.imp" short /*name*/*BFLAGS; _imp_current_line = 672; _imp_current_file = "pass1v84-noprims.imp"; #line 672 "pass1v84-noprims.imp" BFLAGS = &TAG[BLOCKTAG].FLAGS; // 673 %INTEGER block type; block type = bflags>>4&7 _imp_current_line = 673; _imp_current_file = "pass1v84-noprims.imp"; #line 673 "pass1v84-noprims.imp" int BLOCKTYPE; _imp_current_line = 673; _imp_current_file = "pass1v84-noprims.imp"; #line 673 "pass1v84-noprims.imp" BLOCKTYPE = (((short)(((*(unsigned short *)(BFLAGS)) >> (4)))) & (7)); // 674 %INTEGER block form; block form = bflags&15 _imp_current_line = 674; _imp_current_file = "pass1v84-noprims.imp"; #line 674 "pass1v84-noprims.imp" int BLOCKFORM; _imp_current_line = 674; _imp_current_file = "pass1v84-noprims.imp"; #line 674 "pass1v84-noprims.imp" BLOCKFORM = ((*BFLAGS) & (15)); // 675 %INTEGER block fm; block fm = tag(block tag)_format _imp_current_line = 675; _imp_current_file = "pass1v84-noprims.imp"; #line 675 "pass1v84-noprims.imp" int BLOCKFM; _imp_current_line = 675; _imp_current_file = "pass1v84-noprims.imp"; #line 675 "pass1v84-noprims.imp" BLOCKFM = TAG[BLOCKTAG].FORMAT; // 676 %INTEGER block otype; block otype = otype _imp_current_line = 676; _imp_current_file = "pass1v84-noprims.imp"; #line 676 "pass1v84-noprims.imp" int BLOCKOTYPE; _imp_current_line = 676; _imp_current_file = "pass1v84-noprims.imp"; #line 676 "pass1v84-noprims.imp" BLOCKOTYPE = OTYPE; // 677 %INTEGERNAME block app; block app == tag(block tag)_app _imp_current_line = 677; _imp_current_file = "pass1v84-noprims.imp"; #line 677 "pass1v84-noprims.imp" int /*name*/*BLOCKAPP; _imp_current_line = 677; _imp_current_file = "pass1v84-noprims.imp"; #line 677 "pass1v84-noprims.imp" BLOCKAPP = &TAG[BLOCKTAG].APP; // 678 // 679 %INTEGER l, new app _imp_current_line = 679; _imp_current_file = "pass1v84-noprims.imp"; #line 679 "pass1v84-noprims.imp" int L; #line 679 "pass1v84-noprims.imp" int NEWAPP; // 680 // 681 %ROUTINE fault(%INTEGER n) _imp_current_line = 681; _imp_current_file = "pass1v84-noprims.imp"; #line 681 "pass1v84-noprims.imp" void FAULT( int N ) #line 681 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 682 // 683 ! -5 : -1 - warnings // 684 ! 1 : 22 - errors // 685 // 686 %SWITCH fm(-5:22) _imp_current_line = 686; _imp_current_file = "pass1v84-noprims.imp"; #line 686 "pass1v84-noprims.imp" static int sw2_FM_idx; static const void * /*SWITCH*/ sw2_FM[28] = { &&sw2_FM_M_5, &&sw2_FM_M_4, &&sw2_FM_M_3, &&sw2_FM_M_2, &&sw2_FM_M_1, &&sw2_FM_0, &&sw2_FM_1, &&sw2_FM_2, &&sw2_FM_3, &&sw2_FM_4, &&sw2_FM_5, &&sw2_FM_6, &&sw2_FM_7, &&sw2_FM_8, &&sw2_FM_9, &&sw2_FM_10, &&sw2_FM_11, &&sw2_FM_12, &&sw2_FM_13, &&sw2_FM_14, &&sw2_FM_15, &&sw2_FM_16, &&sw2_FM_17, &&sw2_FM_18, &&sw2_FM_19, &&sw2_FM_20, &&sw2_FM_21, &&sw2_FM_22, }; // 687 %INTEGER st _imp_current_line = 687; _imp_current_file = "pass1v84-noprims.imp"; #line 687 "pass1v84-noprims.imp" int ST; // 688 // 689 %ROUTINE print ss _imp_current_line = 689; _imp_current_file = "pass1v84-noprims.imp"; #line 689 "pass1v84-noprims.imp" void PRINTSS( void ) #line 689 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 690 %INTEGER s, p _imp_current_line = 690; _imp_current_file = "pass1v84-noprims.imp"; #line 690 "pass1v84-noprims.imp" int S; #line 690 "pass1v84-noprims.imp" int P; // 691 %RETURN %IF pos = 0 _imp_current_line = 691; _imp_current_file = "pass1v84-noprims.imp"; #line 691 "pass1v84-noprims.imp" if (((POS) != (0))) goto L_0018; #line 691 "pass1v84-noprims.imp" return; #line 691 "pass1v84-noprims.imp" L_0018:; // 692 space _imp_current_line = 692; _imp_current_file = "pass1v84-noprims.imp"; #line 692 "pass1v84-noprims.imp" _imp_SPACE(); // 693 p = 1 _imp_current_line = 693; _imp_current_file = "pass1v84-noprims.imp"; #line 693 "pass1v84-noprims.imp" P = 1; // 694 %CYCLE _imp_current_line = 694; _imp_current_file = "pass1v84-noprims.imp"; #line 694 "pass1v84-noprims.imp" L_0019:; // 695 printsymbol(marker) %IF p = pos1 _imp_current_line = 695; _imp_current_file = "pass1v84-noprims.imp"; #line 695 "pass1v84-noprims.imp" if (((P) != (POS1))) goto L_001c; #line 695 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(94); #line 695 "pass1v84-noprims.imp" L_001c:; // 696 %EXIT %IF p = pos _imp_current_line = 696; _imp_current_file = "pass1v84-noprims.imp"; #line 696 "pass1v84-noprims.imp" if (((P) != (POS))) goto L_001d; #line 696 "pass1v84-noprims.imp" goto L_001a; #line 696 "pass1v84-noprims.imp" L_001d:; // 697 s = char(p); p = p+1 _imp_current_line = 697; _imp_current_file = "pass1v84-noprims.imp"; #line 697 "pass1v84-noprims.imp" S = CHAR[P]; _imp_current_line = 697; _imp_current_file = "pass1v84-noprims.imp"; #line 697 "pass1v84-noprims.imp" P = (((int)(P)) + (1)); // 698 %EXIT %IF s = nl %OR (s='%' %AND p = pos) _imp_current_line = 698; _imp_current_file = "pass1v84-noprims.imp"; #line 698 "pass1v84-noprims.imp" if (((S) == (10))) goto L_000c; #line 698 "pass1v84-noprims.imp" if (((S) != (37))) goto L_001e; #line 698 "pass1v84-noprims.imp" if (((P) != (POS))) goto L_001e; #line 698 "pass1v84-noprims.imp" L_000c:; #line 698 "pass1v84-noprims.imp" goto L_001a; #line 698 "pass1v84-noprims.imp" L_001e:; // 699 %IF s < ' ' %START; !beware of tabs _imp_current_line = 699; _imp_current_file = "pass1v84-noprims.imp"; #line 699 "pass1v84-noprims.imp" if (((S) >= (32))) goto L_001f; // 700 %IF s = ff %THEN s = nl %ELSE s = ' ' _imp_current_line = 700; _imp_current_file = "pass1v84-noprims.imp"; #line 700 "pass1v84-noprims.imp" if (((S) != (12))) goto L_0020; #line 700 "pass1v84-noprims.imp" S = 10; #line 700 "pass1v84-noprims.imp" goto L_0021; #line 700 "pass1v84-noprims.imp" L_0020:; #line 700 "pass1v84-noprims.imp" S = 32; #line 700 "pass1v84-noprims.imp" L_0021:; // 701 %FINISH _imp_current_line = 701; _imp_current_file = "pass1v84-noprims.imp"; #line 701 "pass1v84-noprims.imp" L_001f:; // 702 printsymbol(s) _imp_current_line = 702; _imp_current_file = "pass1v84-noprims.imp"; #line 702 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(S); // 703 %REPEAT _imp_current_line = 703; _imp_current_file = "pass1v84-noprims.imp"; #line 703 "pass1v84-noprims.imp" goto L_0019; #line 703 "pass1v84-noprims.imp" L_001a:; // 704 pos = 0 %IF list <= 0 _imp_current_line = 704; _imp_current_file = "pass1v84-noprims.imp"; #line 704 "pass1v84-noprims.imp" if (((LIST) > (0))) goto L_0022; #line 704 "pass1v84-noprims.imp" POS = 0; #line 704 "pass1v84-noprims.imp" L_0022:; // 705 %END _imp_current_line = 705; _imp_current_file = "pass1v84-noprims.imp"; #line 705 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block PRINTSS at level 4 // 706 // 707 pos1 = pos2 %IF pos2 > pos1 _imp_current_line = 707; _imp_current_file = "pass1v84-noprims.imp"; #line 707 "pass1v84-noprims.imp" if (((POS2) <= (POS1))) goto L_0023; #line 707 "pass1v84-noprims.imp" POS1 = POS2; #line 707 "pass1v84-noprims.imp" L_0023:; // 708 newline %IF sym # nl _imp_current_line = 708; _imp_current_file = "pass1v84-noprims.imp"; #line 708 "pass1v84-noprims.imp" if (((SYM) == (10))) goto L_0024; #line 708 "pass1v84-noprims.imp" _imp_NEWLINE(); #line 708 "pass1v84-noprims.imp" L_0024:; // 709 st = report _imp_current_line = 709; _imp_current_file = "pass1v84-noprims.imp"; #line 709 "pass1v84-noprims.imp" ST = 0; // 710 st = listing %IF n = -3; !dont report unused on the console _imp_current_line = 710; _imp_current_file = "pass1v84-noprims.imp"; #line 710 "pass1v84-noprims.imp" if (((N) != ((-3)))) goto L_0025; #line 710 "pass1v84-noprims.imp" ST = 2; #line 710 "pass1v84-noprims.imp" L_0025:; // 711 %cycle _imp_current_line = 711; _imp_current_file = "pass1v84-noprims.imp"; #line 711 "pass1v84-noprims.imp" L_0026:; // 712 SELECT OUTPUT(st) _imp_current_line = 712; _imp_current_file = "pass1v84-noprims.imp"; #line 712 "pass1v84-noprims.imp" _imp_SELECTOUTPUT(ST); // 713 %if n < 0 %then printsymbol('?') %and pos1 = 0 %else printsymbol('*') _imp_current_line = 713; _imp_current_file = "pass1v84-noprims.imp"; #line 713 "pass1v84-noprims.imp" if (((N) >= (0))) goto L_0029; #line 713 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(63); #line 713 "pass1v84-noprims.imp" POS1 = 0; #line 713 "pass1v84-noprims.imp" goto L_002a; #line 713 "pass1v84-noprims.imp" L_0029:; #line 713 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(42); #line 713 "pass1v84-noprims.imp" L_002a:; // 714 %if st # report %start _imp_current_line = 714; _imp_current_file = "pass1v84-noprims.imp"; #line 714 "pass1v84-noprims.imp" if (((ST) == (0))) goto L_002b; // 715 %if list <= 0 %and pos1 # 0 %start _imp_current_line = 715; _imp_current_file = "pass1v84-noprims.imp"; #line 715 "pass1v84-noprims.imp" if (((LIST) > (0))) goto L_002c; #line 715 "pass1v84-noprims.imp" if (((POS1) == (0))) goto L_002c; // 716 spaces(pos1+margin); PRINTSTRING(" ! ") _imp_current_line = 716; _imp_current_file = "pass1v84-noprims.imp"; #line 716 "pass1v84-noprims.imp" _imp_SPACES((((int)(POS1)) + (MARGIN))); _imp_current_line = 716; _imp_current_file = "pass1v84-noprims.imp"; #line 716 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal(" ! ")); // 717 %finish _imp_current_line = 717; _imp_current_file = "pass1v84-noprims.imp"; #line 717 "pass1v84-noprims.imp" L_002c:; // 718 %finish %else %start _imp_current_line = 718; _imp_current_file = "pass1v84-noprims.imp"; #line 718 "pass1v84-noprims.imp" goto L_002d; #line 718 "pass1v84-noprims.imp" L_002b:; // 719 PRINTSTRING(include file) %if include # 0 _imp_current_line = 719; _imp_current_file = "pass1v84-noprims.imp"; #line 719 "pass1v84-noprims.imp" if (((INCLUDE) == (0))) goto L_002e; #line 719 "pass1v84-noprims.imp" _imp_PRINTSTRING(INCLUDEFILE); #line 719 "pass1v84-noprims.imp" L_002e:; // 720 write(lines, 4); printsymbol(csym); space _imp_current_line = 720; _imp_current_file = "pass1v84-noprims.imp"; #line 720 "pass1v84-noprims.imp" _imp_WRITE(LINES, 4); _imp_current_line = 720; _imp_current_file = "pass1v84-noprims.imp"; #line 720 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(CSYM); _imp_current_line = 720; _imp_current_file = "pass1v84-noprims.imp"; #line 720 "pass1v84-noprims.imp" _imp_SPACE(); // 721 %finish _imp_current_line = 721; _imp_current_file = "pass1v84-noprims.imp"; #line 721 "pass1v84-noprims.imp" L_002d:; // 722 ->fm(n) %if -5 <= n <= 22 _imp_current_line = 722; _imp_current_file = "pass1v84-noprims.imp"; #line 722 "pass1v84-noprims.imp" if (((((-5)) > (N))) || (((N) > (22)))) goto L_002f; #line 722 "pass1v84-noprims.imp" sw2_FM_idx = N; if ((-5 <= sw2_FM_idx) && (sw2_FM_idx <= 22)) goto *(sw2_FM+5)[sw2_FM_idx]; /* Bounds=-5:22 */ else { /*_imp_signal(8, 2, sw2_FM_idx);*/ fprintf(stderr, "%%SWITCH index FM(%d) not in range -5:22 at %s:%d\n", sw2_FM_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } #line 722 "pass1v84-noprims.imp" L_002f:; // 723 PRINTSTRING("fault"); write(n, 2); ->ps _imp_current_line = 723; _imp_current_file = "pass1v84-noprims.imp"; #line 723 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("fault")); _imp_current_line = 723; _imp_current_file = "pass1v84-noprims.imp"; #line 723 "pass1v84-noprims.imp" _imp_WRITE(N, 2); _imp_current_line = 723; _imp_current_file = "pass1v84-noprims.imp"; #line 723 "pass1v84-noprims.imp" goto U_1001; // 724 // 725 fm(-5):PRINTSTRING("Dubious statement"); dubious = 0; ->psd _imp_current_line = 725; _imp_current_file = "pass1v84-noprims.imp"; #line 725 "pass1v84-noprims.imp" sw2_FM_M_5:; _imp_current_line = 725; _imp_current_file = "pass1v84-noprims.imp"; #line 725 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("Dubious statement")); _imp_current_line = 725; _imp_current_file = "pass1v84-noprims.imp"; #line 725 "pass1v84-noprims.imp" DUBIOUS = 0; _imp_current_line = 725; _imp_current_file = "pass1v84-noprims.imp"; #line 725 "pass1v84-noprims.imp" goto U_1002; // 726 fm(-4):PRINTSTRING("Non-local") _imp_current_line = 726; _imp_current_file = "pass1v84-noprims.imp"; #line 726 "pass1v84-noprims.imp" sw2_FM_M_4:; _imp_current_line = 726; _imp_current_file = "pass1v84-noprims.imp"; #line 726 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("Non-local")); // 727 pos1 = for warn; for warn = 0; ->ps _imp_current_line = 727; _imp_current_file = "pass1v84-noprims.imp"; #line 727 "pass1v84-noprims.imp" POS1 = FORWARN; _imp_current_line = 727; _imp_current_file = "pass1v84-noprims.imp"; #line 727 "pass1v84-noprims.imp" FORWARN = 0; _imp_current_line = 727; _imp_current_file = "pass1v84-noprims.imp"; #line 727 "pass1v84-noprims.imp" goto U_1001; // 728 fm(-3):print ident(x, 0); PRINTSTRING(" unused"); ->nps _imp_current_line = 728; _imp_current_file = "pass1v84-noprims.imp"; #line 728 "pass1v84-noprims.imp" sw2_FM_M_3:; _imp_current_line = 728; _imp_current_file = "pass1v84-noprims.imp"; #line 728 "pass1v84-noprims.imp" PRINTIDENT(X, 0); _imp_current_line = 728; _imp_current_file = "pass1v84-noprims.imp"; #line 728 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal(" unused")); _imp_current_line = 728; _imp_current_file = "pass1v84-noprims.imp"; #line 728 "pass1v84-noprims.imp" goto U_1003; // 729 fm(-2):PRINTSTRING("""}"""); ->miss _imp_current_line = 729; _imp_current_file = "pass1v84-noprims.imp"; #line 729 "pass1v84-noprims.imp" sw2_FM_M_2:; _imp_current_line = 729; _imp_current_file = "pass1v84-noprims.imp"; #line 729 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("\"}\"")); _imp_current_line = 729; _imp_current_file = "pass1v84-noprims.imp"; #line 729 "pass1v84-noprims.imp" goto U_1004; // 730 fm(-1):PRINTSTRING("access"); ->psd _imp_current_line = 730; _imp_current_file = "pass1v84-noprims.imp"; #line 730 "pass1v84-noprims.imp" sw2_FM_M_1:; _imp_current_line = 730; _imp_current_file = "pass1v84-noprims.imp"; #line 730 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("access")); _imp_current_line = 730; _imp_current_file = "pass1v84-noprims.imp"; #line 730 "pass1v84-noprims.imp" goto U_1002; // 731 // 732 fm(0): PRINTSTRING("form"); ->ps _imp_current_line = 732; _imp_current_file = "pass1v84-noprims.imp"; #line 732 "pass1v84-noprims.imp" sw2_FM_0:; _imp_current_line = 732; _imp_current_file = "pass1v84-noprims.imp"; #line 732 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("form")); _imp_current_line = 732; _imp_current_file = "pass1v84-noprims.imp"; #line 732 "pass1v84-noprims.imp" goto U_1001; // 733 fm(1): PRINTSTRING("atom"); ->ps _imp_current_line = 733; _imp_current_file = "pass1v84-noprims.imp"; #line 733 "pass1v84-noprims.imp" sw2_FM_1:; _imp_current_line = 733; _imp_current_file = "pass1v84-noprims.imp"; #line 733 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("atom")); _imp_current_line = 733; _imp_current_file = "pass1v84-noprims.imp"; #line 733 "pass1v84-noprims.imp" goto U_1001; // 734 fm(2): PRINTSTRING("not declared"); ->ps _imp_current_line = 734; _imp_current_file = "pass1v84-noprims.imp"; #line 734 "pass1v84-noprims.imp" sw2_FM_2:; _imp_current_line = 734; _imp_current_file = "pass1v84-noprims.imp"; #line 734 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("not declared")); _imp_current_line = 734; _imp_current_file = "pass1v84-noprims.imp"; #line 734 "pass1v84-noprims.imp" goto U_1001; // 735 fm(3): PRINTSTRING("too complex"); ->ps _imp_current_line = 735; _imp_current_file = "pass1v84-noprims.imp"; #line 735 "pass1v84-noprims.imp" sw2_FM_3:; _imp_current_line = 735; _imp_current_file = "pass1v84-noprims.imp"; #line 735 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("too complex")); _imp_current_line = 735; _imp_current_file = "pass1v84-noprims.imp"; #line 735 "pass1v84-noprims.imp" goto U_1001; // 736 fm(4): PRINTSTRING("duplicate "); Print Ident(x, 0); ->ps _imp_current_line = 736; _imp_current_file = "pass1v84-noprims.imp"; #line 736 "pass1v84-noprims.imp" sw2_FM_4:; _imp_current_line = 736; _imp_current_file = "pass1v84-noprims.imp"; #line 736 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("duplicate ")); _imp_current_line = 736; _imp_current_file = "pass1v84-noprims.imp"; #line 736 "pass1v84-noprims.imp" PRINTIDENT(X, 0); _imp_current_line = 736; _imp_current_file = "pass1v84-noprims.imp"; #line 736 "pass1v84-noprims.imp" goto U_1001; // 737 fm(5): PRINTSTRING("type"); ->ps _imp_current_line = 737; _imp_current_file = "pass1v84-noprims.imp"; #line 737 "pass1v84-noprims.imp" sw2_FM_5:; _imp_current_line = 737; _imp_current_file = "pass1v84-noprims.imp"; #line 737 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("type")); _imp_current_line = 737; _imp_current_file = "pass1v84-noprims.imp"; #line 737 "pass1v84-noprims.imp" goto U_1001; // 738 fm(6): PRINTSTRING("match"); ->psd _imp_current_line = 738; _imp_current_file = "pass1v84-noprims.imp"; #line 738 "pass1v84-noprims.imp" sw2_FM_6:; _imp_current_line = 738; _imp_current_file = "pass1v84-noprims.imp"; #line 738 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("match")); _imp_current_line = 738; _imp_current_file = "pass1v84-noprims.imp"; #line 738 "pass1v84-noprims.imp" goto U_1002; // 739 fm(7): PRINTSTRING("context"); ->psd _imp_current_line = 739; _imp_current_file = "pass1v84-noprims.imp"; #line 739 "pass1v84-noprims.imp" sw2_FM_7:; _imp_current_line = 739; _imp_current_file = "pass1v84-noprims.imp"; #line 739 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("context")); _imp_current_line = 739; _imp_current_file = "pass1v84-noprims.imp"; #line 739 "pass1v84-noprims.imp" goto U_1002; // 740 fm(21):PRINTSTRING("context "); print ident(this, 0); ->ps _imp_current_line = 740; _imp_current_file = "pass1v84-noprims.imp"; #line 740 "pass1v84-noprims.imp" sw2_FM_21:; _imp_current_line = 740; _imp_current_file = "pass1v84-noprims.imp"; #line 740 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("context ")); _imp_current_line = 740; _imp_current_file = "pass1v84-noprims.imp"; #line 740 "pass1v84-noprims.imp" PRINTIDENT(THIS, 0); _imp_current_line = 740; _imp_current_file = "pass1v84-noprims.imp"; #line 740 "pass1v84-noprims.imp" goto U_1001; // 741 fm(8): PRINTSTRING("%cycle"); ->miss _imp_current_line = 741; _imp_current_file = "pass1v84-noprims.imp"; #line 741 "pass1v84-noprims.imp" sw2_FM_8:; _imp_current_line = 741; _imp_current_file = "pass1v84-noprims.imp"; #line 741 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("%cycle")); _imp_current_line = 741; _imp_current_file = "pass1v84-noprims.imp"; #line 741 "pass1v84-noprims.imp" goto U_1004; // 742 fm(9): PRINTSTRING("%start"); ->miss _imp_current_line = 742; _imp_current_file = "pass1v84-noprims.imp"; #line 742 "pass1v84-noprims.imp" sw2_FM_9:; _imp_current_line = 742; _imp_current_file = "pass1v84-noprims.imp"; #line 742 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("%start")); _imp_current_line = 742; _imp_current_file = "pass1v84-noprims.imp"; #line 742 "pass1v84-noprims.imp" goto U_1004; // 743 fm(10):PRINTSTRING("size"); WRITE(lit, 1) %if pos1 = 0;->ps _imp_current_line = 743; _imp_current_file = "pass1v84-noprims.imp"; #line 743 "pass1v84-noprims.imp" sw2_FM_10:; _imp_current_line = 743; _imp_current_file = "pass1v84-noprims.imp"; #line 743 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("size")); _imp_current_line = 743; _imp_current_file = "pass1v84-noprims.imp"; #line 743 "pass1v84-noprims.imp" if (((POS1) != (0))) goto L_0030; #line 743 "pass1v84-noprims.imp" _imp_WRITE(LIT, 1); #line 743 "pass1v84-noprims.imp" L_0030:; _imp_current_line = 743; _imp_current_file = "pass1v84-noprims.imp"; #line 743 "pass1v84-noprims.imp" goto U_1001; // 744 fm(11):PRINTSTRING("bounds") _imp_current_line = 744; _imp_current_file = "pass1v84-noprims.imp"; #line 744 "pass1v84-noprims.imp" sw2_FM_11:; _imp_current_line = 744; _imp_current_file = "pass1v84-noprims.imp"; #line 744 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("bounds")); // 745 WRITE(ocount, 1) %unless ocount < 0; ->ps _imp_current_line = 745; _imp_current_file = "pass1v84-noprims.imp"; #line 745 "pass1v84-noprims.imp" if (((OCOUNT) < (0))) goto L_0031; #line 745 "pass1v84-noprims.imp" _imp_WRITE(OCOUNT, 1); #line 745 "pass1v84-noprims.imp" L_0031:; _imp_current_line = 745; _imp_current_file = "pass1v84-noprims.imp"; #line 745 "pass1v84-noprims.imp" goto U_1001; // 746 fm(12):PRINTSTRING("index"); ->ps _imp_current_line = 746; _imp_current_file = "pass1v84-noprims.imp"; #line 746 "pass1v84-noprims.imp" sw2_FM_12:; _imp_current_line = 746; _imp_current_file = "pass1v84-noprims.imp"; #line 746 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("index")); _imp_current_line = 746; _imp_current_file = "pass1v84-noprims.imp"; #line 746 "pass1v84-noprims.imp" goto U_1001; // 747 fm(13):PRINTSTRING("order"); ->psd _imp_current_line = 747; _imp_current_file = "pass1v84-noprims.imp"; #line 747 "pass1v84-noprims.imp" sw2_FM_13:; _imp_current_line = 747; _imp_current_file = "pass1v84-noprims.imp"; #line 747 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("order")); _imp_current_line = 747; _imp_current_file = "pass1v84-noprims.imp"; #line 747 "pass1v84-noprims.imp" goto U_1002; // 748 fm(14):PRINTSTRING("not a location"); ->ps _imp_current_line = 748; _imp_current_file = "pass1v84-noprims.imp"; #line 748 "pass1v84-noprims.imp" sw2_FM_14:; _imp_current_line = 748; _imp_current_file = "pass1v84-noprims.imp"; #line 748 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("not a location")); _imp_current_line = 748; _imp_current_file = "pass1v84-noprims.imp"; #line 748 "pass1v84-noprims.imp" goto U_1001; // 749 fm(15):PRINTSTRING("%begin"); ->miss _imp_current_line = 749; _imp_current_file = "pass1v84-noprims.imp"; #line 749 "pass1v84-noprims.imp" sw2_FM_15:; _imp_current_line = 749; _imp_current_file = "pass1v84-noprims.imp"; #line 749 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("%begin")); _imp_current_line = 749; _imp_current_file = "pass1v84-noprims.imp"; #line 749 "pass1v84-noprims.imp" goto U_1004; // 750 fm(16):PRINTSTRING("%end"); ->miss _imp_current_line = 750; _imp_current_file = "pass1v84-noprims.imp"; #line 750 "pass1v84-noprims.imp" sw2_FM_16:; _imp_current_line = 750; _imp_current_file = "pass1v84-noprims.imp"; #line 750 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("%end")); _imp_current_line = 750; _imp_current_file = "pass1v84-noprims.imp"; #line 750 "pass1v84-noprims.imp" goto U_1004; // 751 fm(17):PRINTSTRING("%repeat"); ->miss _imp_current_line = 751; _imp_current_file = "pass1v84-noprims.imp"; #line 751 "pass1v84-noprims.imp" sw2_FM_17:; _imp_current_line = 751; _imp_current_file = "pass1v84-noprims.imp"; #line 751 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("%repeat")); _imp_current_line = 751; _imp_current_file = "pass1v84-noprims.imp"; #line 751 "pass1v84-noprims.imp" goto U_1004; // 752 fm(18):PRINTSTRING("%finish"); ->miss _imp_current_line = 752; _imp_current_file = "pass1v84-noprims.imp"; #line 752 "pass1v84-noprims.imp" sw2_FM_18:; _imp_current_line = 752; _imp_current_file = "pass1v84-noprims.imp"; #line 752 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("%finish")); _imp_current_line = 752; _imp_current_file = "pass1v84-noprims.imp"; #line 752 "pass1v84-noprims.imp" goto U_1004; // 753 fm(19):PRINTSTRING("result"); ->miss _imp_current_line = 753; _imp_current_file = "pass1v84-noprims.imp"; #line 753 "pass1v84-noprims.imp" sw2_FM_19:; _imp_current_line = 753; _imp_current_file = "pass1v84-noprims.imp"; #line 753 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("result")); _imp_current_line = 753; _imp_current_file = "pass1v84-noprims.imp"; #line 753 "pass1v84-noprims.imp" goto U_1004; // 754 fm(22):PRINTSTRING("format"); ->ps _imp_current_line = 754; _imp_current_file = "pass1v84-noprims.imp"; #line 754 "pass1v84-noprims.imp" sw2_FM_22:; _imp_current_line = 754; _imp_current_file = "pass1v84-noprims.imp"; #line 754 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("format")); _imp_current_line = 754; _imp_current_file = "pass1v84-noprims.imp"; #line 754 "pass1v84-noprims.imp" goto U_1001; // 755 fm(20):printsymbol('"'); print ident(x, 0); printsymbol('"') _imp_current_line = 755; _imp_current_file = "pass1v84-noprims.imp"; #line 755 "pass1v84-noprims.imp" sw2_FM_20:; _imp_current_line = 755; _imp_current_file = "pass1v84-noprims.imp"; #line 755 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(34); _imp_current_line = 755; _imp_current_file = "pass1v84-noprims.imp"; #line 755 "pass1v84-noprims.imp" PRINTIDENT(X, 0); _imp_current_line = 755; _imp_current_file = "pass1v84-noprims.imp"; #line 755 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(34); // 756 miss: PRINTSTRING(" missing"); ->nps _imp_current_line = 756; _imp_current_file = "pass1v84-noprims.imp"; #line 756 "pass1v84-noprims.imp" U_1004:; _imp_current_line = 756; _imp_current_file = "pass1v84-noprims.imp"; #line 756 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal(" missing")); _imp_current_line = 756; _imp_current_file = "pass1v84-noprims.imp"; #line 756 "pass1v84-noprims.imp" goto U_1003; // 757 psd: pos1 = 0 _imp_current_line = 757; _imp_current_file = "pass1v84-noprims.imp"; #line 757 "pass1v84-noprims.imp" U_1002:; _imp_current_line = 757; _imp_current_file = "pass1v84-noprims.imp"; #line 757 "pass1v84-noprims.imp" POS1 = 0; // 758 ps: print ss _imp_current_line = 758; _imp_current_file = "pass1v84-noprims.imp"; #line 758 "pass1v84-noprims.imp" U_1001:; _imp_current_line = 758; _imp_current_file = "pass1v84-noprims.imp"; #line 758 "pass1v84-noprims.imp" PRINTSS(); // 759 nps: NEWLINE _imp_current_line = 759; _imp_current_file = "pass1v84-noprims.imp"; #line 759 "pass1v84-noprims.imp" U_1003:; _imp_current_line = 759; _imp_current_file = "pass1v84-noprims.imp"; #line 759 "pass1v84-noprims.imp" _imp_NEWLINE(); // 760 %exit %if st = listing _imp_current_line = 760; _imp_current_file = "pass1v84-noprims.imp"; #line 760 "pass1v84-noprims.imp" if (((ST) != (2))) goto L_0032; #line 760 "pass1v84-noprims.imp" goto L_0027; #line 760 "pass1v84-noprims.imp" L_0032:; // 761 st = listing _imp_current_line = 761; _imp_current_file = "pass1v84-noprims.imp"; #line 761 "pass1v84-noprims.imp" ST = 2; // 762 %repeat _imp_current_line = 762; _imp_current_file = "pass1v84-noprims.imp"; #line 762 "pass1v84-noprims.imp" goto L_0026; #line 762 "pass1v84-noprims.imp" L_0027:; // 763 %if n >= 0 %start _imp_current_line = 763; _imp_current_file = "pass1v84-noprims.imp"; #line 763 "pass1v84-noprims.imp" if (((N) < (0))) goto L_0033; // 764 !IMP80 BUG??? %signal 15,15 %if diag&4096 # 0 // 765 %stop %if diag&4096 # 0 _imp_current_line = 765; _imp_current_file = "pass1v84-noprims.imp"; #line 765 "pass1v84-noprims.imp" if (((((DIAG) & (4096))) == (0))) goto L_0034; #line 765 "pass1v84-noprims.imp" exit(0); #line 765 "pass1v84-noprims.imp" L_0034:; // 766 %if n # 13 %start; !order is fairly safe _imp_current_line = 766; _imp_current_file = "pass1v84-noprims.imp"; #line 766 "pass1v84-noprims.imp" if (((N) == (13))) goto L_0035; // 767 ocount = -1 _imp_current_line = 767; _imp_current_file = "pass1v84-noprims.imp"; #line 767 "pass1v84-noprims.imp" OCOUNT = (-1); // 768 gg = 0 _imp_current_line = 768; _imp_current_file = "pass1v84-noprims.imp"; #line 768 "pass1v84-noprims.imp" GG = 0; // 769 copy = 0; quote = 0 _imp_current_line = 769; _imp_current_file = "pass1v84-noprims.imp"; #line 769 "pass1v84-noprims.imp" COPY = 0; _imp_current_line = 769; _imp_current_file = "pass1v84-noprims.imp"; #line 769 "pass1v84-noprims.imp" QUOTE = 0; // 770 search base = 0; escape class = 0 _imp_current_line = 770; _imp_current_file = "pass1v84-noprims.imp"; #line 770 "pass1v84-noprims.imp" SEARCHBASE = 0; _imp_current_line = 770; _imp_current_file = "pass1v84-noprims.imp"; #line 770 "pass1v84-noprims.imp" ESCAPECLASS = 0; // 771 gg = 0 _imp_current_line = 771; _imp_current_file = "pass1v84-noprims.imp"; #line 771 "pass1v84-noprims.imp" GG = 0; // 772 %finish _imp_current_line = 772; _imp_current_file = "pass1v84-noprims.imp"; #line 772 "pass1v84-noprims.imp" L_0035:; // 773 faulty = faulty+1 _imp_current_line = 773; _imp_current_file = "pass1v84-noprims.imp"; #line 773 "pass1v84-noprims.imp" FAULTY = (((int)(FAULTY)) + (1)); // 774 // 775 !check that there havent been too many faults // 776 // 777 fault rate = fault rate+3; abandon(6) %IF fault rate > 30 _imp_current_line = 777; _imp_current_file = "pass1v84-noprims.imp"; #line 777 "pass1v84-noprims.imp" FAULTRATE = (((int)(FAULTRATE)) + (3)); _imp_current_line = 777; _imp_current_file = "pass1v84-noprims.imp"; #line 777 "pass1v84-noprims.imp" if (((FAULTRATE) <= (30))) goto L_0036; #line 777 "pass1v84-noprims.imp" ABANDON(6); #line 777 "pass1v84-noprims.imp" L_0036:; // 778 fault rate = 3 %IF fault rate <= 0 _imp_current_line = 778; _imp_current_file = "pass1v84-noprims.imp"; #line 778 "pass1v84-noprims.imp" if (((FAULTRATE) > (0))) goto L_0037; #line 778 "pass1v84-noprims.imp" FAULTRATE = 3; #line 778 "pass1v84-noprims.imp" L_0037:; // 779 %FINISH _imp_current_line = 779; _imp_current_file = "pass1v84-noprims.imp"; #line 779 "pass1v84-noprims.imp" L_0033:; // 780 tbase = tstart _imp_current_line = 780; _imp_current_file = "pass1v84-noprims.imp"; #line 780 "pass1v84-noprims.imp" TBASE = TSTART; // 781 %IF list <= 0 %AND sym # nl %START _imp_current_line = 781; _imp_current_file = "pass1v84-noprims.imp"; #line 781 "pass1v84-noprims.imp" if (((LIST) > (0))) goto L_0038; #line 781 "pass1v84-noprims.imp" if (((SYM) == (10))) goto L_0038; // 782 error margin = column _imp_current_line = 782; _imp_current_file = "pass1v84-noprims.imp"; #line 782 "pass1v84-noprims.imp" ERRORMARGIN = COLUMN; // 783 error sym = sym; sym = nl _imp_current_line = 783; _imp_current_file = "pass1v84-noprims.imp"; #line 783 "pass1v84-noprims.imp" ERRORSYM = SYM; _imp_current_line = 783; _imp_current_file = "pass1v84-noprims.imp"; #line 783 "pass1v84-noprims.imp" SYM = 10; // 784 %FINISH _imp_current_line = 784; _imp_current_file = "pass1v84-noprims.imp"; #line 784 "pass1v84-noprims.imp" L_0038:; // 785 %END _imp_current_line = 785; _imp_current_file = "pass1v84-noprims.imp"; #line 785 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block FAULT at level 3 // 786 // 787 dmin = dmin-1; dict(dmin) = -1; !end marker for starts & cycles _imp_current_line = 787; _imp_current_file = "pass1v84-noprims.imp"; #line 787 "pass1v84-noprims.imp" DMIN = (((int)(DMIN)) - (1)); _imp_current_line = 787; _imp_current_file = "pass1v84-noprims.imp"; #line 787 "pass1v84-noprims.imp" DICT[(((int)(DMIN)) - (1))] = (-1); // 788 abandon(2) %IF dmax = dmin _imp_current_line = 788; _imp_current_file = "pass1v84-noprims.imp"; #line 788 "pass1v84-noprims.imp" if (((DMAX) != (DMIN))) goto L_0039; #line 788 "pass1v84-noprims.imp" ABANDON(2); #line 788 "pass1v84-noprims.imp" L_0039:; // 789 // 790 %IF list > 0 %AND level > 0 %START _imp_current_line = 790; _imp_current_file = "pass1v84-noprims.imp"; #line 790 "pass1v84-noprims.imp" if (((LIST) <= (0))) goto L_003a; #line 790 "pass1v84-noprims.imp" if (((LEVEL) <= (0))) goto L_003a; // 791 write(lines, 5); spaces(level*3-1) _imp_current_line = 791; _imp_current_file = "pass1v84-noprims.imp"; #line 791 "pass1v84-noprims.imp" _imp_WRITE(LINES, 5); _imp_current_line = 791; _imp_current_file = "pass1v84-noprims.imp"; #line 791 "pass1v84-noprims.imp" _imp_SPACES((((int)((((int)(LEVEL)) * (3)))) - (1))); // 792 %IF block tag = 0 %START _imp_current_line = 792; _imp_current_file = "pass1v84-noprims.imp"; #line 792 "pass1v84-noprims.imp" if (((BLOCKTAG) != (0))) goto L_003b; // 793 printstring("Begin") _imp_current_line = 793; _imp_current_file = "pass1v84-noprims.imp"; #line 793 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("Begin")); // 794 %FINISH %ELSE %START _imp_current_line = 794; _imp_current_file = "pass1v84-noprims.imp"; #line 794 "pass1v84-noprims.imp" goto L_003c; #line 794 "pass1v84-noprims.imp" L_003b:; // 795 printstring("Procedure "); print ident(block tag, 0) _imp_current_line = 795; _imp_current_file = "pass1v84-noprims.imp"; #line 795 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("Procedure ")); _imp_current_line = 795; _imp_current_file = "pass1v84-noprims.imp"; #line 795 "pass1v84-noprims.imp" PRINTIDENT(BLOCKTAG, 0); // 796 %FINISH _imp_current_line = 796; _imp_current_file = "pass1v84-noprims.imp"; #line 796 "pass1v84-noprims.imp" L_003c:; // 797 newline _imp_current_line = 797; _imp_current_file = "pass1v84-noprims.imp"; #line 797 "pass1v84-noprims.imp" _imp_NEWLINE(); // 798 %FINISH _imp_current_line = 798; _imp_current_file = "pass1v84-noprims.imp"; #line 798 "pass1v84-noprims.imp" L_003a:; // 799 // 800 !deal with procedure definition (parameters) // 801 // 802 %IF block tag # 0 %START; !proc _imp_current_line = 802; _imp_current_file = "pass1v84-noprims.imp"; #line 802 "pass1v84-noprims.imp" if (((BLOCKTAG) == (0))) goto L_003d; // 803 analyse; compile %IF ss # 0 _imp_current_line = 803; _imp_current_file = "pass1v84-noprims.imp"; #line 803 "pass1v84-noprims.imp" ANALYSE(); _imp_current_line = 803; _imp_current_file = "pass1v84-noprims.imp"; #line 803 "pass1v84-noprims.imp" if (((SS) == (0))) goto L_003e; #line 803 "pass1v84-noprims.imp" COMPILE(); #line 803 "pass1v84-noprims.imp" L_003e:; // 804 // 805 %IF block otype # 0 %START; !external-ish _imp_current_line = 805; _imp_current_file = "pass1v84-noprims.imp"; #line 805 "pass1v84-noprims.imp" if (((BLOCKOTYPE) == (0))) goto L_003f; // 806 %IF bflags&spec = 0 %START; !definition _imp_current_line = 806; _imp_current_file = "pass1v84-noprims.imp"; #line 806 "pass1v84-noprims.imp" if (((((*BFLAGS) & (128))) != (0))) goto L_0040; // 807 %IF progmode <= 0 %AND level = 1 %THEN progmode = -1 %C _imp_current_line = 807; _imp_current_file = "pass1v84-noprims.imp"; #line 807 "pass1v84-noprims.imp" if (((PROGMODE) > (0))) goto L_0041; #line 807 "pass1v84-noprims.imp" if (((LEVEL) != (1))) goto L_0041; #line 807 "pass1v84-noprims.imp" PROGMODE = (-1); #line 807 "pass1v84-noprims.imp" goto L_0042; #line 807 "pass1v84-noprims.imp" L_0041:; #line 807 "pass1v84-noprims.imp" FAULT(7); #line 807 "pass1v84-noprims.imp" L_0042:; // 808 %ELSE fault(7) // 809 %FINISH _imp_current_line = 809; _imp_current_file = "pass1v84-noprims.imp"; #line 809 "pass1v84-noprims.imp" L_0040:; // 810 %FINISH _imp_current_line = 810; _imp_current_file = "pass1v84-noprims.imp"; #line 810 "pass1v84-noprims.imp" L_003f:; // 811 // 812 new app = gapp; !generate app grammar _imp_current_line = 812; _imp_current_file = "pass1v84-noprims.imp"; #line 812 "pass1v84-noprims.imp" NEWAPP = GAPP(); // 813 %IF spec given # 0 %START; !definition after spec _imp_current_line = 813; _imp_current_file = "pass1v84-noprims.imp"; #line 813 "pass1v84-noprims.imp" if (((SPECGIVEN) == (0))) goto L_0043; // 814 fault(6) %IF new app # block app; !different from spec _imp_current_line = 814; _imp_current_file = "pass1v84-noprims.imp"; #line 814 "pass1v84-noprims.imp" if (((NEWAPP) == (*BLOCKAPP))) goto L_0044; #line 814 "pass1v84-noprims.imp" FAULT(6); #line 814 "pass1v84-noprims.imp" L_0044:; // 815 %FINISH _imp_current_line = 815; _imp_current_file = "pass1v84-noprims.imp"; #line 815 "pass1v84-noprims.imp" L_0043:; // 816 block app = new app; !use the latest _imp_current_line = 816; _imp_current_file = "pass1v84-noprims.imp"; #line 816 "pass1v84-noprims.imp" *BLOCKAPP = NEWAPP; // 817 // 818 %IF level < 0 %START; !not procedure definition _imp_current_line = 818; _imp_current_file = "pass1v84-noprims.imp"; #line 818 "pass1v84-noprims.imp" if (((LEVEL) >= (0))) goto L_0045; // 819 delete names(0) _imp_current_line = 819; _imp_current_file = "pass1v84-noprims.imp"; #line 819 "pass1v84-noprims.imp" DELETENAMES(0); // 820 %RETURN _imp_current_line = 820; _imp_current_file = "pass1v84-noprims.imp"; #line 820 "pass1v84-noprims.imp" return; // 821 %FINISH _imp_current_line = 821; _imp_current_file = "pass1v84-noprims.imp"; #line 821 "pass1v84-noprims.imp" L_0045:; // 822 %FINISH %ELSE %START _imp_current_line = 822; _imp_current_file = "pass1v84-noprims.imp"; #line 822 "pass1v84-noprims.imp" goto L_0046; #line 822 "pass1v84-noprims.imp" L_003d:; // 823 open = 0; !can return from a block? _imp_current_line = 823; _imp_current_file = "pass1v84-noprims.imp"; #line 823 "pass1v84-noprims.imp" OPEN = 0; // 824 %FINISH _imp_current_line = 824; _imp_current_file = "pass1v84-noprims.imp"; #line 824 "pass1v84-noprims.imp" L_0046:; // 825 // 826 %CYCLE _imp_current_line = 826; _imp_current_file = "pass1v84-noprims.imp"; #line 826 "pass1v84-noprims.imp" L_0047:; // 827 analyse _imp_current_line = 827; _imp_current_file = "pass1v84-noprims.imp"; #line 827 "pass1v84-noprims.imp" ANALYSE(); // 828 %CONTINUE %IF ss = 0 _imp_current_line = 828; _imp_current_file = "pass1v84-noprims.imp"; #line 828 "pass1v84-noprims.imp" if (((SS) != (0))) goto L_004a; #line 828 "pass1v84-noprims.imp" goto L_0049; #line 828 "pass1v84-noprims.imp" L_004a:; // 829 compile _imp_current_line = 829; _imp_current_file = "pass1v84-noprims.imp"; #line 829 "pass1v84-noprims.imp" COMPILE(); // 830 fault(-5) %IF dubious # 0 _imp_current_line = 830; _imp_current_file = "pass1v84-noprims.imp"; #line 830 "pass1v84-noprims.imp" if (((DUBIOUS) == (0))) goto L_004b; #line 830 "pass1v84-noprims.imp" FAULT((-5)); #line 830 "pass1v84-noprims.imp" L_004b:; // 831 flush buffer %IF bp >= 128 _imp_current_line = 831; _imp_current_file = "pass1v84-noprims.imp"; #line 831 "pass1v84-noprims.imp" if (((BP) < (128))) goto L_004c; #line 831 "pass1v84-noprims.imp" FLUSHBUFFER(); #line 831 "pass1v84-noprims.imp" L_004c:; // 832 %IF sstype > 0 %START; !block in or out _imp_current_line = 832; _imp_current_file = "pass1v84-noprims.imp"; #line 832 "pass1v84-noprims.imp" if (((SSTYPE) <= (0))) goto L_004d; // 833 %EXIT %IF sstype = 2; !out _imp_current_line = 833; _imp_current_file = "pass1v84-noprims.imp"; #line 833 "pass1v84-noprims.imp" if (((SSTYPE) != (2))) goto L_004e; #line 833 "pass1v84-noprims.imp" goto L_0048; #line 833 "pass1v84-noprims.imp" L_004e:; // 834 compile block(spec mode, block x, dmin, tmax, id) _imp_current_line = 834; _imp_current_file = "pass1v84-noprims.imp"; #line 834 "pass1v84-noprims.imp" COMPILEBLOCK(SPECMODE, BLOCKX, DMIN, TMAX, ID); // 835 %EXIT %IF ss < 0; !endofprogram _imp_current_line = 835; _imp_current_file = "pass1v84-noprims.imp"; #line 835 "pass1v84-noprims.imp" if (((SS) >= (0))) goto L_004f; #line 835 "pass1v84-noprims.imp" goto L_0048; #line 835 "pass1v84-noprims.imp" L_004f:; // 836 %FINISH _imp_current_line = 836; _imp_current_file = "pass1v84-noprims.imp"; #line 836 "pass1v84-noprims.imp" L_004d:; // 837 %REPEAT _imp_current_line = 837; _imp_current_file = "pass1v84-noprims.imp"; #line 837 "pass1v84-noprims.imp" L_0049:; #line 837 "pass1v84-noprims.imp" goto L_0047; #line 837 "pass1v84-noprims.imp" L_0048:; // 838 %IF list > 0 %AND level > 0 %START _imp_current_line = 838; _imp_current_file = "pass1v84-noprims.imp"; #line 838 "pass1v84-noprims.imp" if (((LIST) <= (0))) goto L_0050; #line 838 "pass1v84-noprims.imp" if (((LEVEL) <= (0))) goto L_0050; // 839 write(lines, 5); spaces(level*3-1) _imp_current_line = 839; _imp_current_file = "pass1v84-noprims.imp"; #line 839 "pass1v84-noprims.imp" _imp_WRITE(LINES, 5); _imp_current_line = 839; _imp_current_file = "pass1v84-noprims.imp"; #line 839 "pass1v84-noprims.imp" _imp_SPACES((((int)((((int)(LEVEL)) * (3)))) - (1))); // 840 printstring("End") _imp_current_line = 840; _imp_current_file = "pass1v84-noprims.imp"; #line 840 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("End")); // 841 newline _imp_current_line = 841; _imp_current_file = "pass1v84-noprims.imp"; #line 841 "pass1v84-noprims.imp" _imp_NEWLINE(); // 842 %FINISH _imp_current_line = 842; _imp_current_file = "pass1v84-noprims.imp"; #line 842 "pass1v84-noprims.imp" L_0050:; // 843 delete names(0) _imp_current_line = 843; _imp_current_file = "pass1v84-noprims.imp"; #line 843 "pass1v84-noprims.imp" DELETENAMES(0); // 844 %RETURN _imp_current_line = 844; _imp_current_file = "pass1v84-noprims.imp"; #line 844 "pass1v84-noprims.imp" return; // 845 // 846 %INTEGERFN gapp; !generate app grammar (backwards) _imp_current_line = 846; _imp_current_file = "pass1v84-noprims.imp"; #line 846 "pass1v84-noprims.imp" int GAPP( void ) #line 846 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 847 %CONSTINTEGER comma = 140; !psep _imp_current_line = 847; _imp_current_file = "pass1v84-noprims.imp"; // 848 %ROUTINESPEC set cell(%INTEGER g, tt) _imp_current_line = 848; _imp_current_file = "pass1v84-noprims.imp"; #line 848 "pass1v84-noprims.imp" auto void SETCELL( int G, int TT ); // 849 %ROUTINESPEC class(%RECORD(tagfm)%NAME v) _imp_current_line = 849; _imp_current_file = "pass1v84-noprims.imp"; #line 849 "pass1v84-noprims.imp" auto void CLASS( TAGFM /*name*/*V ); // 850 %RECORD(tagfm)%NAME v _imp_current_line = 850; _imp_current_file = "pass1v84-noprims.imp"; #line 850 "pass1v84-noprims.imp" TAGFM /*name*/*V; // 851 %INTEGER p, link, tp, c, ap, t _imp_current_line = 851; _imp_current_file = "pass1v84-noprims.imp"; #line 851 "pass1v84-noprims.imp" int P; #line 851 "pass1v84-noprims.imp" int LINK; #line 851 "pass1v84-noprims.imp" int TP; #line 851 "pass1v84-noprims.imp" int C; #line 851 "pass1v84-noprims.imp" int AP; #line 851 "pass1v84-noprims.imp" int T; // 852 // 853 %RESULT = 0 %IF tmax = local; !no app needed _imp_current_line = 853; _imp_current_file = "pass1v84-noprims.imp"; #line 853 "pass1v84-noprims.imp" if (((TMAX) != (LOCAL))) goto L_0051; #line 853 "pass1v84-noprims.imp" return 0; #line 853 "pass1v84-noprims.imp" L_0051:; // 854 // 855 p = gmax1; link = 0; t = tmax _imp_current_line = 855; _imp_current_file = "pass1v84-noprims.imp"; #line 855 "pass1v84-noprims.imp" P = 719; _imp_current_line = 855; _imp_current_file = "pass1v84-noprims.imp"; #line 855 "pass1v84-noprims.imp" LINK = 0; _imp_current_line = 855; _imp_current_file = "pass1v84-noprims.imp"; #line 855 "pass1v84-noprims.imp" T = TMAX; // 856 // 857 %CYCLE _imp_current_line = 857; _imp_current_file = "pass1v84-noprims.imp"; #line 857 "pass1v84-noprims.imp" L_0052:; // 858 v == tag(t); t = t-1 _imp_current_line = 858; _imp_current_file = "pass1v84-noprims.imp"; #line 858 "pass1v84-noprims.imp" V = &TAG[T]; _imp_current_line = 858; _imp_current_file = "pass1v84-noprims.imp"; #line 858 "pass1v84-noprims.imp" T = (((int)(T)) - (1)); // 859 class(v); !deduce class from tag _imp_current_line = 859; _imp_current_file = "pass1v84-noprims.imp"; #line 859 "pass1v84-noprims.imp" CLASS(V); // 860 %IF c < 0 %START; !insert %PARAM _imp_current_line = 860; _imp_current_file = "pass1v84-noprims.imp"; #line 860 "pass1v84-noprims.imp" if (((C) >= (0))) goto L_0055; // 861 c = -c _imp_current_line = 861; _imp_current_file = "pass1v84-noprims.imp"; #line 861 "pass1v84-noprims.imp" C = (-(C)); // 862 set cell(196, tp) _imp_current_line = 862; _imp_current_file = "pass1v84-noprims.imp"; #line 862 "pass1v84-noprims.imp" SETCELL(196, TP); // 863 tp = -1 _imp_current_line = 863; _imp_current_file = "pass1v84-noprims.imp"; #line 863 "pass1v84-noprims.imp" TP = (-1); // 864 %FINISH _imp_current_line = 864; _imp_current_file = "pass1v84-noprims.imp"; #line 864 "pass1v84-noprims.imp" L_0055:; // 865 set cell(c, tp) _imp_current_line = 865; _imp_current_file = "pass1v84-noprims.imp"; #line 865 "pass1v84-noprims.imp" SETCELL(C, TP); // 866 %EXIT %IF t = local; !end of parameters _imp_current_line = 866; _imp_current_file = "pass1v84-noprims.imp"; #line 866 "pass1v84-noprims.imp" if (((T) != (LOCAL))) goto L_0056; #line 866 "pass1v84-noprims.imp" goto L_0053; #line 866 "pass1v84-noprims.imp" L_0056:; // 867 set cell(comma, -1); !add the separating comma _imp_current_line = 867; _imp_current_file = "pass1v84-noprims.imp"; #line 867 "pass1v84-noprims.imp" SETCELL(140, (-1)); // 868 %REPEAT _imp_current_line = 868; _imp_current_file = "pass1v84-noprims.imp"; #line 868 "pass1v84-noprims.imp" goto L_0052; #line 868 "pass1v84-noprims.imp" L_0053:; // 869 abandon(3) %IF gmax > gmin _imp_current_line = 869; _imp_current_file = "pass1v84-noprims.imp"; #line 869 "pass1v84-noprims.imp" if (((GMAX) <= (GMIN))) goto L_0057; #line 869 "pass1v84-noprims.imp" ABANDON(3); #line 869 "pass1v84-noprims.imp" L_0057:; // 870 // 871 %RESULT = link _imp_current_line = 871; _imp_current_file = "pass1v84-noprims.imp"; #line 871 "pass1v84-noprims.imp" return LINK; // 872 // 873 %ROUTINE set cell(%INTEGER g, tt) _imp_current_line = 873; _imp_current_file = "pass1v84-noprims.imp"; #line 873 "pass1v84-noprims.imp" void SETCELL( int G, int TT ) #line 873 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 874 // 875 !add the cell to the grammar, combining common tails // 876 // 877 %WHILE p # gmax %CYCLE _imp_current_line = 877; _imp_current_file = "pass1v84-noprims.imp"; #line 877 "pass1v84-noprims.imp" L_0058:; #line 877 "pass1v84-noprims.imp" if (((P) == (GMAX))) goto L_0059; // 878 p = p+1 _imp_current_line = 878; _imp_current_file = "pass1v84-noprims.imp"; #line 878 "pass1v84-noprims.imp" P = (((int)(P)) + (1)); // 879 %IF glink(p) = link %AND gram(p) = g %START _imp_current_line = 879; _imp_current_file = "pass1v84-noprims.imp"; #line 879 "pass1v84-noprims.imp" if (((GLINK[P]) != (LINK))) goto L_005b; #line 879 "pass1v84-noprims.imp" if (((GRAM[P]) != (G))) goto L_005b; // 880 %IF tt < 0 %OR (gram(p+1) = tt %AND glink(p+1)=ap) %START _imp_current_line = 880; _imp_current_file = "pass1v84-noprims.imp"; #line 880 "pass1v84-noprims.imp" if (((TT) < (0))) goto L_005c; #line 880 "pass1v84-noprims.imp" if (((GRAM[(((int)(P)) + (1))]) != (TT))) goto L_005d; #line 880 "pass1v84-noprims.imp" if (((GLINK[(((int)(P)) + (1))]) != (AP))) goto L_005d; #line 880 "pass1v84-noprims.imp" L_005c:; // 881 link = p; !already there _imp_current_line = 881; _imp_current_file = "pass1v84-noprims.imp"; #line 881 "pass1v84-noprims.imp" LINK = P; // 882 %RETURN _imp_current_line = 882; _imp_current_file = "pass1v84-noprims.imp"; #line 882 "pass1v84-noprims.imp" return; // 883 %FINISH _imp_current_line = 883; _imp_current_file = "pass1v84-noprims.imp"; #line 883 "pass1v84-noprims.imp" L_005d:; // 884 %FINISH _imp_current_line = 884; _imp_current_file = "pass1v84-noprims.imp"; #line 884 "pass1v84-noprims.imp" L_005b:; // 885 %REPEAT _imp_current_line = 885; _imp_current_file = "pass1v84-noprims.imp"; #line 885 "pass1v84-noprims.imp" goto L_0058; #line 885 "pass1v84-noprims.imp" L_0059:; // 886 // 887 !add a new cell // 888 // 889 gmax = gmax+1 _imp_current_line = 889; _imp_current_file = "pass1v84-noprims.imp"; #line 889 "pass1v84-noprims.imp" GMAX = (((int)(GMAX)) + (1)); // 890 gram(gmax) = g _imp_current_line = 890; _imp_current_file = "pass1v84-noprims.imp"; #line 890 "pass1v84-noprims.imp" GRAM[GMAX] = G; // 891 glink(gmax) = link _imp_current_line = 891; _imp_current_file = "pass1v84-noprims.imp"; #line 891 "pass1v84-noprims.imp" GLINK[GMAX] = LINK; // 892 link = gmax _imp_current_line = 892; _imp_current_file = "pass1v84-noprims.imp"; #line 892 "pass1v84-noprims.imp" LINK = GMAX; // 893 // 894 %IF tt >= 0 %START; ! set type cell _imp_current_line = 894; _imp_current_file = "pass1v84-noprims.imp"; #line 894 "pass1v84-noprims.imp" if (((TT) < (0))) goto L_005e; // 895 gmax = gmax+1 _imp_current_line = 895; _imp_current_file = "pass1v84-noprims.imp"; #line 895 "pass1v84-noprims.imp" GMAX = (((int)(GMAX)) + (1)); // 896 gram(gmax) = tt _imp_current_line = 896; _imp_current_file = "pass1v84-noprims.imp"; #line 896 "pass1v84-noprims.imp" GRAM[GMAX] = TT; // 897 glink(gmax) = ap _imp_current_line = 897; _imp_current_file = "pass1v84-noprims.imp"; #line 897 "pass1v84-noprims.imp" GLINK[GMAX] = AP; // 898 %FINISH _imp_current_line = 898; _imp_current_file = "pass1v84-noprims.imp"; #line 898 "pass1v84-noprims.imp" L_005e:; // 899 // 900 p = gmax _imp_current_line = 900; _imp_current_file = "pass1v84-noprims.imp"; #line 900 "pass1v84-noprims.imp" P = GMAX; // 901 %END _imp_current_line = 901; _imp_current_file = "pass1v84-noprims.imp"; #line 901 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block SETCELL at level 4 // 902 // 903 %ROUTINE class(%RECORD(tagfm)%NAME v) _imp_current_line = 903; _imp_current_file = "pass1v84-noprims.imp"; #line 903 "pass1v84-noprims.imp" void CLASS( TAGFM /*name*/*V ) #line 903 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 904 %CONSTINTEGER err = 89 _imp_current_line = 904; _imp_current_file = "pass1v84-noprims.imp"; // 905 %CONSTINTEGER rtp = 100 _imp_current_line = 905; _imp_current_file = "pass1v84-noprims.imp"; // 906 %CONSTINTEGER fnp = 101 _imp_current_line = 906; _imp_current_file = "pass1v84-noprims.imp"; // 907 %CONSTINTEGER mapp = 102 _imp_current_line = 907; _imp_current_file = "pass1v84-noprims.imp"; // 908 %CONSTINTEGER predp = 103 _imp_current_line = 908; _imp_current_file = "pass1v84-noprims.imp"; // 909 %CONSTINTEGERARRAY class map(0:15) = %C _imp_current_line = 909; _imp_current_file = "pass1v84-noprims.imp"; #line 909 "pass1v84-noprims.imp" const int CLASSMAP[16] = { 89, 1764, 247, 89, 89, 89, 89, (-100), (-101), (-102), (-103), 89, 214, 89, 229, 89, }; // 910 err,1764, 247, err(4), -rtp, -fnp, -mapp, -predp, err, 214, // 911 err, 229, err // 912 %INTEGER tags, type, form _imp_current_line = 912; _imp_current_file = "pass1v84-noprims.imp"; #line 912 "pass1v84-noprims.imp" int TAGS; #line 912 "pass1v84-noprims.imp" int TYPE; #line 912 "pass1v84-noprims.imp" int FORM; // 913 ap = 0 _imp_current_line = 913; _imp_current_file = "pass1v84-noprims.imp"; #line 913 "pass1v84-noprims.imp" AP = 0; // 914 tags = v_flags _imp_current_line = 914; _imp_current_file = "pass1v84-noprims.imp"; #line 914 "pass1v84-noprims.imp" TAGS = V->FLAGS; // 915 type = tags>>4&7; form = tags&15 _imp_current_line = 915; _imp_current_file = "pass1v84-noprims.imp"; #line 915 "pass1v84-noprims.imp" TYPE = (((int)((((unsigned int)(TAGS)) >> (4)))) & (7)); _imp_current_line = 915; _imp_current_file = "pass1v84-noprims.imp"; #line 915 "pass1v84-noprims.imp" FORM = ((TAGS) & (15)); // 916 tp = v_format<<3!type _imp_current_line = 916; _imp_current_file = "pass1v84-noprims.imp"; #line 916 "pass1v84-noprims.imp" TP = ((((V->FORMAT) << (3))) | (TYPE)); // 917 c = class map(form) _imp_current_line = 917; _imp_current_file = "pass1v84-noprims.imp"; #line 917 "pass1v84-noprims.imp" C = CLASSMAP[FORM]; // 918 c = 208 %AND tp = 0 %IF type = 0 %AND form = 2; !%NAME _imp_current_line = 918; _imp_current_file = "pass1v84-noprims.imp"; #line 918 "pass1v84-noprims.imp" if (((TYPE) != (0))) goto L_005f; #line 918 "pass1v84-noprims.imp" if (((FORM) != (2))) goto L_005f; #line 918 "pass1v84-noprims.imp" C = 208; #line 918 "pass1v84-noprims.imp" TP = 0; #line 918 "pass1v84-noprims.imp" L_005f:; // 919 ap = v_app %IF tags¶meters # 0 _imp_current_line = 919; _imp_current_file = "pass1v84-noprims.imp"; #line 919 "pass1v84-noprims.imp" if (((((TAGS) & (4096))) == (0))) goto L_0060; #line 919 "pass1v84-noprims.imp" AP = V->APP; #line 919 "pass1v84-noprims.imp" L_0060:; // 920 %END _imp_current_line = 920; _imp_current_file = "pass1v84-noprims.imp"; #line 920 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block CLASS at level 4 // 921 %END _imp_current_line = 921; _imp_current_file = "pass1v84-noprims.imp"; #line 921 "pass1v84-noprims.imp" /*_imp_signal(8, 4, 0, "");*/ fprintf(stderr, "%%RESULT missing in %s in file %s:%d\n", __PRETTY_FUNCTION__, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); _imp_endofblock: ; } // End of block GAPP at level 3 // 922 // 923 %ROUTINE delete names(%INTEGER quiet) _imp_current_line = 923; _imp_current_file = "pass1v84-noprims.imp"; #line 923 "pass1v84-noprims.imp" void DELETENAMES( int QUIET ) #line 923 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 924 %INTEGER flags _imp_current_line = 924; _imp_current_file = "pass1v84-noprims.imp"; #line 924 "pass1v84-noprims.imp" int FLAGS; // 925 %RECORD(tagfm)%NAME tx _imp_current_line = 925; _imp_current_file = "pass1v84-noprims.imp"; #line 925 "pass1v84-noprims.imp" TAGFM /*name*/*TX; // 926 %WHILE tmax > tbase %CYCLE _imp_current_line = 926; _imp_current_file = "pass1v84-noprims.imp"; #line 926 "pass1v84-noprims.imp" L_0061:; #line 926 "pass1v84-noprims.imp" if (((TMAX) <= (TBASE))) goto L_0062; // 927 x = tmax; tmax = tmax-1 _imp_current_line = 927; _imp_current_file = "pass1v84-noprims.imp"; #line 927 "pass1v84-noprims.imp" X = TMAX; _imp_current_line = 927; _imp_current_file = "pass1v84-noprims.imp"; #line 927 "pass1v84-noprims.imp" TMAX = (((int)(TMAX)) - (1)); // 928 tx == tag(x) _imp_current_line = 928; _imp_current_file = "pass1v84-noprims.imp"; #line 928 "pass1v84-noprims.imp" TX = &TAG[X]; // 929 flags = tx_flags _imp_current_line = 929; _imp_current_file = "pass1v84-noprims.imp"; #line 929 "pass1v84-noprims.imp" FLAGS = TX->FLAGS; // 930 fault(20) %IF flags&spec # 0 %and flags&own bit = 0 _imp_current_line = 930; _imp_current_file = "pass1v84-noprims.imp"; #line 930 "pass1v84-noprims.imp" if (((((FLAGS) & (128))) == (0))) goto L_0064; #line 930 "pass1v84-noprims.imp" if (((((FLAGS) & (512))) != (0))) goto L_0064; #line 930 "pass1v84-noprims.imp" FAULT(20); #line 930 "pass1v84-noprims.imp" L_0064:; // 931 {spec with no definition & not external} // 932 %IF flags&used bit = 0 %AND level >= 0 %AND list <= 0 %START _imp_current_line = 932; _imp_current_file = "pass1v84-noprims.imp"; #line 932 "pass1v84-noprims.imp" if (((((FLAGS) & (32768))) != (0))) goto L_0065; #line 932 "pass1v84-noprims.imp" if (((LEVEL) < (0))) goto L_0065; #line 932 "pass1v84-noprims.imp" if (((LIST) > (0))) goto L_0065; // 933 fault(-3) %IF quiet = 0; !unused _imp_current_line = 933; _imp_current_file = "pass1v84-noprims.imp"; #line 933 "pass1v84-noprims.imp" if (((QUIET) != (0))) goto L_0066; #line 933 "pass1v84-noprims.imp" FAULT((-3)); #line 933 "pass1v84-noprims.imp" L_0066:; // 934 %FINISH _imp_current_line = 934; _imp_current_file = "pass1v84-noprims.imp"; #line 934 "pass1v84-noprims.imp" L_0065:; // 935 dict(tx_text) = tx_link _imp_current_line = 935; _imp_current_file = "pass1v84-noprims.imp"; #line 935 "pass1v84-noprims.imp" DICT[(((int)(TX->TEXT)) - (1))] = TX->LINK; // 936 %REPEAT _imp_current_line = 936; _imp_current_file = "pass1v84-noprims.imp"; #line 936 "pass1v84-noprims.imp" goto L_0061; #line 936 "pass1v84-noprims.imp" L_0062:; // 937 %END _imp_current_line = 937; _imp_current_file = "pass1v84-noprims.imp"; #line 937 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block DELETENAMES at level 3 // 938 // 939 %ROUTINE analyse _imp_current_line = 939; _imp_current_file = "pass1v84-noprims.imp"; #line 939 "pass1v84-noprims.imp" void ANALYSE( void ) #line 939 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 940 // 941 %CONSTINTEGER order bits = x'3000', order bit = x'1000' _imp_current_line = 941; _imp_current_file = "pass1v84-noprims.imp"; // 942 %CONSTINTEGER escape = x'1000' _imp_current_line = 942; _imp_current_file = "pass1v84-noprims.imp"; // 943 %INTEGER strp, mark, flags, prot err, k, s, c _imp_current_line = 943; _imp_current_file = "pass1v84-noprims.imp"; #line 943 "pass1v84-noprims.imp" int STRP; #line 943 "pass1v84-noprims.imp" int MARK; #line 943 "pass1v84-noprims.imp" int FLAGS; #line 943 "pass1v84-noprims.imp" int PROTERR; #line 943 "pass1v84-noprims.imp" int K; #line 943 "pass1v84-noprims.imp" int S; #line 943 "pass1v84-noprims.imp" int C; // 944 %OWNINTEGER key = 0 _imp_current_line = 944; _imp_current_file = "pass1v84-noprims.imp"; #line 944 "pass1v84-noprims.imp" static int KEY = 0; // 945 %SHORTINTEGER node _imp_current_line = 945; _imp_current_file = "pass1v84-noprims.imp"; #line 945 "pass1v84-noprims.imp" short NODE; // 946 %SHORTINTEGERNAME z _imp_current_line = 946; _imp_current_file = "pass1v84-noprims.imp"; #line 946 "pass1v84-noprims.imp" short /*name*/*Z; // 947 %RECORD(arfm)%NAME arp _imp_current_line = 947; _imp_current_file = "pass1v84-noprims.imp"; #line 947 "pass1v84-noprims.imp" ARFM /*name*/*ARP; // 948 !emas: %INTEGER node // 949 !emas: %INTEGERNAME z // 950 %SWITCH act(actions:phrasal), paction(0:15) _imp_current_line = 950; _imp_current_file = "pass1v84-noprims.imp"; #line 950 "pass1v84-noprims.imp" static int sw3_ACT_idx; static const void * /*SWITCH*/ sw3_ACT[21] = { &&sw3_ACT_180, &&sw3_ACT_181, &&sw3_ACT_182, &&sw3_ACT_183, &&sw3_ACT_184, &&sw3_ACT_185, &&sw3_ACT_186, &&sw3_ACT_187, &&sw3_ACT_188, &&sw3_ACT_189, &&sw3_ACT_190, &&sw3_ACT_191, &&sw3_ACT_192, &&sw3_ACT_193, &&sw3_ACT_194, &&sw3_ACT_195, &&sw3_ACT_196, &&sw3_ACT_197, &&sw3_ACT_198, &&sw3_ACT_199, &&sw3_ACT_200, }; #line 950 "pass1v84-noprims.imp" static int sw4_PACTION_idx; static const void * /*SWITCH*/ sw4_PACTION[16] = { &&sw4_PACTION_0, &&sw4_PACTION_1, &&sw4_PACTION_2, &&sw4_PACTION_3, &&sw4_PACTION_4, &&sw4_PACTION_5, &&sw4_PACTION_6, &&sw4_PACTION_7, &&sw4_PACTION_8, &&sw4_PACTION_9, &&sw4_PACTION_10, &&sw4_PACTION_11, &&sw4_PACTION_12, &&sw4_PACTION_13, &&sw4_PACTION_14, &&sw4_PACTION_15, }; // 951 // 952 %ROUTINE trace analysis _imp_current_line = 952; _imp_current_file = "pass1v84-noprims.imp"; #line 952 "pass1v84-noprims.imp" void TRACEANALYSIS( void ) #line 952 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 953 !diagnostic trace routine (diagnose&1 # 0) // 954 %INTEGER a _imp_current_line = 954; _imp_current_file = "pass1v84-noprims.imp"; #line 954 "pass1v84-noprims.imp" int A; // 955 %ROUTINE show(%INTEGER a) _imp_current_line = 955; _imp_current_file = "pass1v84-noprims.imp"; #line 955 "pass1v84-noprims.imp" void SHOW( int A ) #line 955 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 956 %IF 0 < a < 130 %START _imp_current_line = 956; _imp_current_file = "pass1v84-noprims.imp"; #line 956 "pass1v84-noprims.imp" if ((((0) >= (A))) || (((A) >= (130)))) goto L_0067; // 957 space _imp_current_line = 957; _imp_current_file = "pass1v84-noprims.imp"; #line 957 "pass1v84-noprims.imp" _imp_SPACE(); // 958 printstring(text(a)) _imp_current_line = 958; _imp_current_file = "pass1v84-noprims.imp"; #line 958 "pass1v84-noprims.imp" _imp_PRINTSTRING(TEXT[A]); // 959 %FINISH %ELSE write(a, 3) _imp_current_line = 959; _imp_current_file = "pass1v84-noprims.imp"; #line 959 "pass1v84-noprims.imp" goto L_0068; #line 959 "pass1v84-noprims.imp" L_0067:; #line 959 "pass1v84-noprims.imp" _imp_WRITE(A, 3); #line 959 "pass1v84-noprims.imp" L_0068:; // 960 %END _imp_current_line = 960; _imp_current_file = "pass1v84-noprims.imp"; #line 960 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block SHOW at level 5 // 961 %OWNINTEGER la1=0, la2=0, lsa=0, lt=0 _imp_current_line = 961; _imp_current_file = "pass1v84-noprims.imp"; #line 961 "pass1v84-noprims.imp" static int LA1 = 0; #line 961 "pass1v84-noprims.imp" static int LA2 = 0; #line 961 "pass1v84-noprims.imp" static int LSA = 0; #line 961 "pass1v84-noprims.imp" static int LT = 0; // 962 newline %IF mon pos # pos %AND sym # nl _imp_current_line = 962; _imp_current_file = "pass1v84-noprims.imp"; #line 962 "pass1v84-noprims.imp" if (((MONPOS) == (POS))) goto L_0069; #line 962 "pass1v84-noprims.imp" if (((SYM) == (10))) goto L_0069; #line 962 "pass1v84-noprims.imp" _imp_NEWLINE(); #line 962 "pass1v84-noprims.imp" L_0069:; // 963 mon pos = pos _imp_current_line = 963; _imp_current_file = "pass1v84-noprims.imp"; #line 963 "pass1v84-noprims.imp" MONPOS = POS; // 964 write(g, 3) _imp_current_line = 964; _imp_current_file = "pass1v84-noprims.imp"; #line 964 "pass1v84-noprims.imp" _imp_WRITE(G, 3); // 965 space _imp_current_line = 965; _imp_current_file = "pass1v84-noprims.imp"; #line 965 "pass1v84-noprims.imp" _imp_SPACE(); // 966 printstring(text(class)) _imp_current_line = 966; _imp_current_file = "pass1v84-noprims.imp"; #line 966 "pass1v84-noprims.imp" _imp_PRINTSTRING(TEXT[CLASS]); // 967 printsymbol('"') %IF gg&trans bit # 0 _imp_current_line = 967; _imp_current_file = "pass1v84-noprims.imp"; #line 967 "pass1v84-noprims.imp" if (((((GG) & (16384))) == (0))) goto L_006a; #line 967 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(34); #line 967 "pass1v84-noprims.imp" L_006a:; // 968 a = gg>>8&15 _imp_current_line = 968; _imp_current_file = "pass1v84-noprims.imp"; #line 968 "pass1v84-noprims.imp" A = (((int)((((unsigned int)(GG)) >> (8)))) & (15)); // 969 %IF a # 0 %START _imp_current_line = 969; _imp_current_file = "pass1v84-noprims.imp"; #line 969 "pass1v84-noprims.imp" if (((A) == (0))) goto L_006b; // 970 printsymbol('{') _imp_current_line = 970; _imp_current_file = "pass1v84-noprims.imp"; #line 970 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(123); // 971 write(a, 0) _imp_current_line = 971; _imp_current_file = "pass1v84-noprims.imp"; #line 971 "pass1v84-noprims.imp" _imp_WRITE(A, 0); // 972 printsymbol('}') _imp_current_line = 972; _imp_current_file = "pass1v84-noprims.imp"; #line 972 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(125); // 973 %FINISH _imp_current_line = 973; _imp_current_file = "pass1v84-noprims.imp"; #line 973 "pass1v84-noprims.imp" L_006b:; // 974 %IF atom1 # la1 %OR atom2 # la2 %OR lsa # subatom %C _imp_current_line = 974; _imp_current_file = "pass1v84-noprims.imp"; #line 974 "pass1v84-noprims.imp" if (((ATOM1) != (LA1))) goto L_0063; #line 974 "pass1v84-noprims.imp" if (((ATOM2) != (LA2))) goto L_0063; #line 974 "pass1v84-noprims.imp" if (((LSA) != (SUBATOM))) goto L_0063; #line 974 "pass1v84-noprims.imp" if (((LT) == (TYPE))) goto L_006c; #line 974 "pass1v84-noprims.imp" L_0063:; // 975 %OR lt # type %START // 976 printstring(" [") _imp_current_line = 976; _imp_current_file = "pass1v84-noprims.imp"; #line 976 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal(" [")); // 977 la1 = atom1 _imp_current_line = 977; _imp_current_file = "pass1v84-noprims.imp"; #line 977 "pass1v84-noprims.imp" LA1 = ATOM1; // 978 show(la1) _imp_current_line = 978; _imp_current_file = "pass1v84-noprims.imp"; #line 978 "pass1v84-noprims.imp" SHOW(LA1); // 979 la2 = atom2 _imp_current_line = 979; _imp_current_file = "pass1v84-noprims.imp"; #line 979 "pass1v84-noprims.imp" LA2 = ATOM2; // 980 show(la2) _imp_current_line = 980; _imp_current_file = "pass1v84-noprims.imp"; #line 980 "pass1v84-noprims.imp" SHOW(LA2); // 981 lsa = subatom _imp_current_line = 981; _imp_current_file = "pass1v84-noprims.imp"; #line 981 "pass1v84-noprims.imp" LSA = SUBATOM; // 982 write(lsa, 3) _imp_current_line = 982; _imp_current_file = "pass1v84-noprims.imp"; #line 982 "pass1v84-noprims.imp" _imp_WRITE(LSA, 3); // 983 lt = type _imp_current_line = 983; _imp_current_file = "pass1v84-noprims.imp"; #line 983 "pass1v84-noprims.imp" LT = TYPE; // 984 write(lt, 5) _imp_current_line = 984; _imp_current_file = "pass1v84-noprims.imp"; #line 984 "pass1v84-noprims.imp" _imp_WRITE(LT, 5); // 985 printsymbol(']') _imp_current_line = 985; _imp_current_file = "pass1v84-noprims.imp"; #line 985 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(93); // 986 %FINISH _imp_current_line = 986; _imp_current_file = "pass1v84-noprims.imp"; #line 986 "pass1v84-noprims.imp" L_006c:; // 987 newline _imp_current_line = 987; _imp_current_file = "pass1v84-noprims.imp"; #line 987 "pass1v84-noprims.imp" _imp_NEWLINE(); // 988 %END _imp_current_line = 988; _imp_current_file = "pass1v84-noprims.imp"; #line 988 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block TRACEANALYSIS at level 4 // 989 // 990 %ROUTINE get sym _imp_current_line = 990; _imp_current_file = "pass1v84-noprims.imp"; #line 990 "pass1v84-noprims.imp" void GETSYM( void ) #line 990 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 991 readsymbol(sym) _imp_current_line = 991; _imp_current_file = "pass1v84-noprims.imp"; #line 991 "pass1v84-noprims.imp" _imp_READSYMBOL(&SYM); // 992 pos = pos+1 %IF pos # 133 _imp_current_line = 992; _imp_current_file = "pass1v84-noprims.imp"; #line 992 "pass1v84-noprims.imp" if (((POS) == (133))) goto L_006d; #line 992 "pass1v84-noprims.imp" POS = (((int)(POS)) + (1)); #line 992 "pass1v84-noprims.imp" L_006d:; // 993 char(pos) = sym _imp_current_line = 993; _imp_current_file = "pass1v84-noprims.imp"; #line 993 "pass1v84-noprims.imp" CHAR[POS] = SYM; // 994 printsymbol(sym) %IF list <= 0 _imp_current_line = 994; _imp_current_file = "pass1v84-noprims.imp"; #line 994 "pass1v84-noprims.imp" if (((LIST) > (0))) goto L_006e; #line 994 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(SYM); #line 994 "pass1v84-noprims.imp" L_006e:; // 995 column = column+1 _imp_current_line = 995; _imp_current_file = "pass1v84-noprims.imp"; #line 995 "pass1v84-noprims.imp" COLUMN = (((int)(COLUMN)) + (1)); // 996 %END _imp_current_line = 996; _imp_current_file = "pass1v84-noprims.imp"; #line 996 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block GETSYM at level 4 // 997 %ROUTINE read sym _imp_current_line = 997; _imp_current_file = "pass1v84-noprims.imp"; #line 997 "pass1v84-noprims.imp" void READSYM( void ) #line 997 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 998 %owninteger Last = 0 _imp_current_line = 998; _imp_current_file = "pass1v84-noprims.imp"; #line 998 "pass1v84-noprims.imp" static int LAST = 0; // 999 %CONSTBYTEINTEGERARRAY mapped(0:127) = %C _imp_current_line = 999; _imp_current_file = "pass1v84-noprims.imp"; #line 999 "pass1v84-noprims.imp" const unsigned char MAPPED[128] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 33, 34, 35, 36, 1, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 2, 124, 125, 126, 0, }; // 1000 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, nl, 0, 3 , 0, 0, 0, // 1001 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 1002 0 ,'!','"','#', '$', 1 ,'&', 39, '(',')','*','+', ',','-','.','/', // 1003 '0','1','2','3', '4','5','6','7', '8','9',':',';', '<','=','>','?', // 1004 '@','A','B','C', 'D','E','F','G', 'H','I','J','K', 'L','M','N','O', // 1005 'P','Q','R','S', 'T','U','V','W', 'X','Y','Z','[', '\',']','^','_', // 1006 '`','A','B','C', 'D','E','F','G', 'H','I','J','K', 'L','M','N','O', // 1007 'P','Q','R','S', 'T','U','V','W', 'X','Y','Z', 2 , '|','}','~', 0 // 1008 // 1009 !! 0 = space // 1010 !! 1 = % // 1011 !! 2 = { // 1012 !! 3 = ff // 1013 !! other values represent themselves // 1014 // 1015 %IF sym = nl %START _imp_current_line = 1015; _imp_current_file = "pass1v84-noprims.imp"; #line 1015 "pass1v84-noprims.imp" if (((SYM) != (10))) goto L_006f; // 1016 s1: lines = lines+1 _imp_current_line = 1016; _imp_current_file = "pass1v84-noprims.imp"; #line 1016 "pass1v84-noprims.imp" U_1005:; _imp_current_line = 1016; _imp_current_file = "pass1v84-noprims.imp"; #line 1016 "pass1v84-noprims.imp" LINES = (((int)(LINES)) + (1)); // 1017 printsymbol(end mark) %if end mark # 0 _imp_current_line = 1017; _imp_current_file = "pass1v84-noprims.imp"; #line 1017 "pass1v84-noprims.imp" if (((ENDMARK) == (0))) goto L_0070; #line 1017 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(ENDMARK); #line 1017 "pass1v84-noprims.imp" L_0070:; // 1018 s11: pos = 0; pos1 = 0; pos2 = 0; margin = 0; column = 0 _imp_current_line = 1018; _imp_current_file = "pass1v84-noprims.imp"; #line 1018 "pass1v84-noprims.imp" U_1006:; _imp_current_line = 1018; _imp_current_file = "pass1v84-noprims.imp"; #line 1018 "pass1v84-noprims.imp" POS = 0; _imp_current_line = 1018; _imp_current_file = "pass1v84-noprims.imp"; #line 1018 "pass1v84-noprims.imp" POS1 = 0; _imp_current_line = 1018; _imp_current_file = "pass1v84-noprims.imp"; #line 1018 "pass1v84-noprims.imp" POS2 = 0; _imp_current_line = 1018; _imp_current_file = "pass1v84-noprims.imp"; #line 1018 "pass1v84-noprims.imp" MARGIN = 0; _imp_current_line = 1018; _imp_current_file = "pass1v84-noprims.imp"; #line 1018 "pass1v84-noprims.imp" COLUMN = 0; // 1019 Last = 0 _imp_current_line = 1019; _imp_current_file = "pass1v84-noprims.imp"; #line 1019 "pass1v84-noprims.imp" LAST = 0; // 1020 end mark = 0 _imp_current_line = 1020; _imp_current_file = "pass1v84-noprims.imp"; #line 1020 "pass1v84-noprims.imp" ENDMARK = 0; // 1021 %IF list <= 0 %START _imp_current_line = 1021; _imp_current_file = "pass1v84-noprims.imp"; #line 1021 "pass1v84-noprims.imp" if (((LIST) > (0))) goto L_0071; // 1022 %IF include # 0 %START _imp_current_line = 1022; _imp_current_file = "pass1v84-noprims.imp"; #line 1022 "pass1v84-noprims.imp" if (((INCLUDE) == (0))) goto L_0072; // 1023 printstring(" &"); write(lines, -4) _imp_current_line = 1023; _imp_current_file = "pass1v84-noprims.imp"; #line 1023 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal(" &")); _imp_current_line = 1023; _imp_current_file = "pass1v84-noprims.imp"; #line 1023 "pass1v84-noprims.imp" _imp_WRITE(LINES, (-4)); // 1024 %FINISH %ELSE write(lines, 5) _imp_current_line = 1024; _imp_current_file = "pass1v84-noprims.imp"; #line 1024 "pass1v84-noprims.imp" goto L_0073; #line 1024 "pass1v84-noprims.imp" L_0072:; #line 1024 "pass1v84-noprims.imp" _imp_WRITE(LINES, 5); #line 1024 "pass1v84-noprims.imp" L_0073:; // 1025 csym = cont; printsymbol(csym) _imp_current_line = 1025; _imp_current_file = "pass1v84-noprims.imp"; #line 1025 "pass1v84-noprims.imp" CSYM = CONT; _imp_current_line = 1025; _imp_current_file = "pass1v84-noprims.imp"; #line 1025 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(CSYM); // 1026 space _imp_current_line = 1026; _imp_current_file = "pass1v84-noprims.imp"; #line 1026 "pass1v84-noprims.imp" _imp_SPACE(); // 1027 %IF error margin # 0 %START _imp_current_line = 1027; _imp_current_file = "pass1v84-noprims.imp"; #line 1027 "pass1v84-noprims.imp" if (((ERRORMARGIN) == (0))) goto L_0074; // 1028 lines = lines-1 _imp_current_line = 1028; _imp_current_file = "pass1v84-noprims.imp"; #line 1028 "pass1v84-noprims.imp" LINES = (((int)(LINES)) - (1)); // 1029 spaces(error margin) _imp_current_line = 1029; _imp_current_file = "pass1v84-noprims.imp"; #line 1029 "pass1v84-noprims.imp" _imp_SPACES(ERRORMARGIN); // 1030 error margin = 0 _imp_current_line = 1030; _imp_current_file = "pass1v84-noprims.imp"; #line 1030 "pass1v84-noprims.imp" ERRORMARGIN = 0; // 1031 %IF error sym # 0 %START _imp_current_line = 1031; _imp_current_file = "pass1v84-noprims.imp"; #line 1031 "pass1v84-noprims.imp" if (((ERRORSYM) == (0))) goto L_0075; // 1032 printsymbol(error sym) _imp_current_line = 1032; _imp_current_file = "pass1v84-noprims.imp"; #line 1032 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(ERRORSYM); // 1033 pos = 1 _imp_current_line = 1033; _imp_current_file = "pass1v84-noprims.imp"; #line 1033 "pass1v84-noprims.imp" POS = 1; // 1034 !IMP80 BUG??? // 1035 !! char(1) = error sym // 1036 byteinteger(addr(char(0))+1) = error sym _imp_current_line = 1036; _imp_current_file = "pass1v84-noprims.imp"; #line 1036 "pass1v84-noprims.imp" *_imp_BYTEINTEGER((((int)(_imp_ADDR(&CHAR[0]))) + (1))) = ERRORSYM; // 1037 sym = error sym; error sym = 0 _imp_current_line = 1037; _imp_current_file = "pass1v84-noprims.imp"; #line 1037 "pass1v84-noprims.imp" SYM = ERRORSYM; _imp_current_line = 1037; _imp_current_file = "pass1v84-noprims.imp"; #line 1037 "pass1v84-noprims.imp" ERRORSYM = 0; // 1038 ->s5 _imp_current_line = 1038; _imp_current_file = "pass1v84-noprims.imp"; #line 1038 "pass1v84-noprims.imp" goto U_1007; // 1039 %FINISH _imp_current_line = 1039; _imp_current_file = "pass1v84-noprims.imp"; #line 1039 "pass1v84-noprims.imp" L_0075:; // 1040 %FINISH _imp_current_line = 1040; _imp_current_file = "pass1v84-noprims.imp"; #line 1040 "pass1v84-noprims.imp" L_0074:; // 1041 %FINISH _imp_current_line = 1041; _imp_current_file = "pass1v84-noprims.imp"; #line 1041 "pass1v84-noprims.imp" L_0071:; // 1042 s2: symtype = 1 _imp_current_line = 1042; _imp_current_file = "pass1v84-noprims.imp"; #line 1042 "pass1v84-noprims.imp" U_1008:; _imp_current_line = 1042; _imp_current_file = "pass1v84-noprims.imp"; #line 1042 "pass1v84-noprims.imp" SYMTYPE = 1; // 1043 %FINISH _imp_current_line = 1043; _imp_current_file = "pass1v84-noprims.imp"; #line 1043 "pass1v84-noprims.imp" L_006f:; // 1044 s3:readsymbol(sym) _imp_current_line = 1044; _imp_current_file = "pass1v84-noprims.imp"; #line 1044 "pass1v84-noprims.imp" U_1009:; _imp_current_line = 1044; _imp_current_file = "pass1v84-noprims.imp"; #line 1044 "pass1v84-noprims.imp" _imp_READSYMBOL(&SYM); // 1045 pos = pos+1 %IF pos # 133 _imp_current_line = 1045; _imp_current_file = "pass1v84-noprims.imp"; #line 1045 "pass1v84-noprims.imp" if (((POS) == (133))) goto L_0076; #line 1045 "pass1v84-noprims.imp" POS = (((int)(POS)) + (1)); #line 1045 "pass1v84-noprims.imp" L_0076:; // 1046 char(pos) = sym _imp_current_line = 1046; _imp_current_file = "pass1v84-noprims.imp"; #line 1046 "pass1v84-noprims.imp" CHAR[POS] = SYM; // 1047 printsymbol(sym) %IF list <= 0 _imp_current_line = 1047; _imp_current_file = "pass1v84-noprims.imp"; #line 1047 "pass1v84-noprims.imp" if (((LIST) > (0))) goto L_0077; #line 1047 "pass1v84-noprims.imp" _imp_PRINTSYMBOL(SYM); #line 1047 "pass1v84-noprims.imp" L_0077:; // 1048 column = column+1 _imp_current_line = 1048; _imp_current_file = "pass1v84-noprims.imp"; #line 1048 "pass1v84-noprims.imp" COLUMN = (((int)(COLUMN)) + (1)); // 1049 s5:%IF sym # nl %START _imp_current_line = 1049; _imp_current_file = "pass1v84-noprims.imp"; #line 1049 "pass1v84-noprims.imp" U_1007:; _imp_current_line = 1049; _imp_current_file = "pass1v84-noprims.imp"; #line 1049 "pass1v84-noprims.imp" if (((SYM) == (10))) goto L_0078; // 1050 Last = Sym _imp_current_line = 1050; _imp_current_file = "pass1v84-noprims.imp"; #line 1050 "pass1v84-noprims.imp" LAST = SYM; // 1051 %RETURN %IF quote # 0; !dont alter strings _imp_current_line = 1051; _imp_current_file = "pass1v84-noprims.imp"; #line 1051 "pass1v84-noprims.imp" if (((QUOTE) == (0))) goto L_0079; #line 1051 "pass1v84-noprims.imp" return; #line 1051 "pass1v84-noprims.imp" L_0079:; // 1052 sym = mapped(sym&127) _imp_current_line = 1052; _imp_current_file = "pass1v84-noprims.imp"; #line 1052 "pass1v84-noprims.imp" SYM = MAPPED[((SYM) & (127))]; // 1053 %IF sym <= 3 %START; !special symbol _imp_current_line = 1053; _imp_current_file = "pass1v84-noprims.imp"; #line 1053 "pass1v84-noprims.imp" if (((SYM) > (3))) goto L_007a; // 1054 ->s2 %IF sym = 0; !space (or dubious control) _imp_current_line = 1054; _imp_current_file = "pass1v84-noprims.imp"; #line 1054 "pass1v84-noprims.imp" if (((SYM) != (0))) goto L_007b; #line 1054 "pass1v84-noprims.imp" goto U_1008; #line 1054 "pass1v84-noprims.imp" L_007b:; // 1055 symtype = 2 %AND ->s3 %IF sym = 1; !% _imp_current_line = 1055; _imp_current_file = "pass1v84-noprims.imp"; #line 1055 "pass1v84-noprims.imp" if (((SYM) != (1))) goto L_007c; #line 1055 "pass1v84-noprims.imp" SYMTYPE = 2; #line 1055 "pass1v84-noprims.imp" goto U_1009; #line 1055 "pass1v84-noprims.imp" L_007c:; // 1056 cont = '+' %AND ->s11 %IF sym = 3; !ff _imp_current_line = 1056; _imp_current_file = "pass1v84-noprims.imp"; #line 1056 "pass1v84-noprims.imp" if (((SYM) != (3))) goto L_007d; #line 1056 "pass1v84-noprims.imp" CONT = 43; #line 1056 "pass1v84-noprims.imp" goto U_1006; #line 1056 "pass1v84-noprims.imp" L_007d:; // 1057 !must be { // 1058 %CYCLE _imp_current_line = 1058; _imp_current_file = "pass1v84-noprims.imp"; #line 1058 "pass1v84-noprims.imp" L_007e:; // 1059 get sym _imp_current_line = 1059; _imp_current_file = "pass1v84-noprims.imp"; #line 1059 "pass1v84-noprims.imp" GETSYM(); // 1060 ->s3 %IF sym = '}' _imp_current_line = 1060; _imp_current_file = "pass1v84-noprims.imp"; #line 1060 "pass1v84-noprims.imp" if (((SYM) != (125))) goto L_0081; #line 1060 "pass1v84-noprims.imp" goto U_1009; #line 1060 "pass1v84-noprims.imp" L_0081:; // 1061 ->s4 %IF sym = nl _imp_current_line = 1061; _imp_current_file = "pass1v84-noprims.imp"; #line 1061 "pass1v84-noprims.imp" if (((SYM) != (10))) goto L_0082; #line 1061 "pass1v84-noprims.imp" goto U_100a; #line 1061 "pass1v84-noprims.imp" L_0082:; // 1062 %REPEAT _imp_current_line = 1062; _imp_current_file = "pass1v84-noprims.imp"; #line 1062 "pass1v84-noprims.imp" goto L_007e; // 1063 %FINISH _imp_current_line = 1063; _imp_current_file = "pass1v84-noprims.imp"; #line 1063 "pass1v84-noprims.imp" L_007a:; // 1064 key = kdict(sym) _imp_current_line = 1064; _imp_current_file = "pass1v84-noprims.imp"; #line 1064 "pass1v84-noprims.imp" KEY = (KDICT-32)[SYM]; // 1065 %IF key&3 = 0 %AND symtype = 2 %START; !keyword _imp_current_line = 1065; _imp_current_file = "pass1v84-noprims.imp"; #line 1065 "pass1v84-noprims.imp" if (((((KEY) & (3))) != (0))) goto L_0083; #line 1065 "pass1v84-noprims.imp" if (((SYMTYPE) != (2))) goto L_0083; // 1066 %IF sym = 'C' %AND nextsymbol = nl %START; !%C... _imp_current_line = 1066; _imp_current_file = "pass1v84-noprims.imp"; #line 1066 "pass1v84-noprims.imp" if (((SYM) != (67))) goto L_007f; #line 1066 "pass1v84-noprims.imp" if (((_imp_NEXTSYMBOL()) != (10))) goto L_007f; // 1067 getsym; cont = '+'; ->s1 _imp_current_line = 1067; _imp_current_file = "pass1v84-noprims.imp"; #line 1067 "pass1v84-noprims.imp" GETSYM(); _imp_current_line = 1067; _imp_current_file = "pass1v84-noprims.imp"; #line 1067 "pass1v84-noprims.imp" CONT = 43; _imp_current_line = 1067; _imp_current_file = "pass1v84-noprims.imp"; #line 1067 "pass1v84-noprims.imp" goto U_1005; // 1068 %FINISH _imp_current_line = 1068; _imp_current_file = "pass1v84-noprims.imp"; #line 1068 "pass1v84-noprims.imp" L_007f:; // 1069 %ELSE _imp_current_line = 1069; _imp_current_file = "pass1v84-noprims.imp"; #line 1069 "pass1v84-noprims.imp" goto L_0084; #line 1069 "pass1v84-noprims.imp" L_0083:; // 1070 symtype = key&3-2 _imp_current_line = 1070; _imp_current_file = "pass1v84-noprims.imp"; #line 1070 "pass1v84-noprims.imp" SYMTYPE = (((int)(((KEY) & (3)))) - (2)); // 1071 %FINISH _imp_current_line = 1071; _imp_current_file = "pass1v84-noprims.imp"; #line 1071 "pass1v84-noprims.imp" L_0084:; // 1072 %RETURN _imp_current_line = 1072; _imp_current_file = "pass1v84-noprims.imp"; #line 1072 "pass1v84-noprims.imp" return; // 1073 %FINISH _imp_current_line = 1073; _imp_current_file = "pass1v84-noprims.imp"; #line 1073 "pass1v84-noprims.imp" L_0078:; // 1074 s4:symtype = quote _imp_current_line = 1074; _imp_current_file = "pass1v84-noprims.imp"; #line 1074 "pass1v84-noprims.imp" U_100a:; _imp_current_line = 1074; _imp_current_file = "pass1v84-noprims.imp"; #line 1074 "pass1v84-noprims.imp" SYMTYPE = QUOTE; // 1075 ->S1 %if last = 0 %and Quote = 0 _imp_current_line = 1075; _imp_current_file = "pass1v84-noprims.imp"; #line 1075 "pass1v84-noprims.imp" if (((LAST) != (0))) goto L_0085; #line 1075 "pass1v84-noprims.imp" if (((QUOTE) != (0))) goto L_0085; #line 1075 "pass1v84-noprims.imp" goto U_1005; #line 1075 "pass1v84-noprims.imp" L_0085:; // 1076 Cont = '+' _imp_current_line = 1076; _imp_current_file = "pass1v84-noprims.imp"; #line 1076 "pass1v84-noprims.imp" CONT = 43; // 1077 %END _imp_current_line = 1077; _imp_current_file = "pass1v84-noprims.imp"; #line 1077 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block READSYM at level 4 // 1078 // 1079 %INTEGERFN format selected _imp_current_line = 1079; _imp_current_file = "pass1v84-noprims.imp"; #line 1079 "pass1v84-noprims.imp" int FORMATSELECTED( void ) #line 1079 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 1080 format list = tag(format)_app; !number of names _imp_current_line = 1080; _imp_current_file = "pass1v84-noprims.imp"; #line 1080 "pass1v84-noprims.imp" FORMATLIST = TAG[FORMAT].APP; // 1081 %IF format list < 0 %START; !forward ref _imp_current_line = 1081; _imp_current_file = "pass1v84-noprims.imp"; #line 1081 "pass1v84-noprims.imp" if (((FORMATLIST) >= (0))) goto L_0086; // 1082 atom1 = error+22 _imp_current_line = 1082; _imp_current_file = "pass1v84-noprims.imp"; #line 1082 "pass1v84-noprims.imp" ATOM1 = 32790; // 1083 %RESULT = 0 _imp_current_line = 1083; _imp_current_file = "pass1v84-noprims.imp"; #line 1083 "pass1v84-noprims.imp" return 0; // 1084 %FINISH _imp_current_line = 1084; _imp_current_file = "pass1v84-noprims.imp"; #line 1084 "pass1v84-noprims.imp" L_0086:; // 1085 %IF sym = '_' %START _imp_current_line = 1085; _imp_current_file = "pass1v84-noprims.imp"; #line 1085 "pass1v84-noprims.imp" if (((SYM) != (95))) goto L_0087; // 1086 escape class = esc rec _imp_current_line = 1086; _imp_current_file = "pass1v84-noprims.imp"; #line 1086 "pass1v84-noprims.imp" ESCAPECLASS = 255; // 1087 search base = tag(format)_format _imp_current_line = 1087; _imp_current_file = "pass1v84-noprims.imp"; #line 1087 "pass1v84-noprims.imp" SEARCHBASE = TAG[FORMAT].FORMAT; // 1088 %FINISH _imp_current_line = 1088; _imp_current_file = "pass1v84-noprims.imp"; #line 1088 "pass1v84-noprims.imp" L_0087:; // 1089 %RESULT = 1 _imp_current_line = 1089; _imp_current_file = "pass1v84-noprims.imp"; #line 1089 "pass1v84-noprims.imp" return 1; // 1090 %END _imp_current_line = 1090; _imp_current_file = "pass1v84-noprims.imp"; #line 1090 "pass1v84-noprims.imp" _imp_endofblock: ; } // End of block FORMATSELECTED at level 4 // 1091 // 1092 %ROUTINE code atom(%INTEGER target) _imp_current_line = 1092; _imp_current_file = "pass1v84-noprims.imp"; #line 1092 "pass1v84-noprims.imp" void CODEATOM( int TARGET ) #line 1092 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 1093 %INTEGER dbase, da _imp_current_line = 1093; _imp_current_file = "pass1v84-noprims.imp"; #line 1093 "pass1v84-noprims.imp" int DBASE; #line 1093 "pass1v84-noprims.imp" int DA; // 1094 %INTEGER base, n, mul, pend quote _imp_current_line = 1094; _imp_current_file = "pass1v84-noprims.imp"; #line 1094 "pass1v84-noprims.imp" int BASE; #line 1094 "pass1v84-noprims.imp" int N; #line 1094 "pass1v84-noprims.imp" int MUL; #line 1094 "pass1v84-noprims.imp" int PENDQUOTE; // 1095 %INTEGER j,k,l, pt _imp_current_line = 1095; _imp_current_file = "pass1v84-noprims.imp"; #line 1095 "pass1v84-noprims.imp" int J; #line 1095 "pass1v84-noprims.imp" int K; #line 1095 "pass1v84-noprims.imp" int L; #line 1095 "pass1v84-noprims.imp" int PT; // 1096 // 1097 %ROUTINE lookup(%INTEGER d) _imp_current_line = 1097; _imp_current_file = "pass1v84-noprims.imp"; #line 1097 "pass1v84-noprims.imp" void LOOKUP( int D ) #line 1097 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 1098 %CONSTINTEGER magic = 6700421 _imp_current_line = 1098; _imp_current_file = "pass1v84-noprims.imp"; // 1099 %INTEGER new name, vid, k1, k2, form _imp_current_line = 1099; _imp_current_file = "pass1v84-noprims.imp"; #line 1099 "pass1v84-noprims.imp" int NEWNAME; #line 1099 "pass1v84-noprims.imp" int VID; #line 1099 "pass1v84-noprims.imp" int K1; #line 1099 "pass1v84-noprims.imp" int K2; #line 1099 "pass1v84-noprims.imp" int FORM; // 1100 %RECORD(tagfm)%NAME t _imp_current_line = 1100; _imp_current_file = "pass1v84-noprims.imp"; #line 1100 "pass1v84-noprims.imp" TAGFM /*name*/*T; // 1101 !emas: %LONGINTEGER k0 // 1102 %INTEGER new _imp_current_line = 1102; _imp_current_file = "pass1v84-noprims.imp"; #line 1102 "pass1v84-noprims.imp" int NEW; // 1103 // 1104 !first locate the text of the name // 1105 // 1106 new = addr(dict(dmax+1)) _imp_current_line = 1106; _imp_current_file = "pass1v84-noprims.imp"; #line 1106 "pass1v84-noprims.imp" NEW = _imp_ADDR(&DICT[(((int)((((int)(DMAX)) + (1)))) - (1))]); // 1107 // 1108 !******** Machine code to inhibit overflow test ******** // 1109 // 1110 ! *LI_1,magic // 1111 ! * M_0,hash value // 1112 ! *ST_1,K2 // 1113 // 1114 {K2 = hash value*magic} // 1115 K2 = hash value*magic ;! requires NOCHECK option _imp_current_line = 1115; _imp_current_file = "pass1v84-noprims.imp"; #line 1115 "pass1v84-noprims.imp" K2 = (((int)(HASHVALUE)) * (6700421)); // 1116 ! we could fix this properly by a shift+add loop // 1117 !******************************************************* // 1118 // 1119 k2 = k2>>(32-2*name bits)!1 _imp_current_line = 1119; _imp_current_file = "pass1v84-noprims.imp"; #line 1119 "pass1v84-noprims.imp" K2 = (((int)((((unsigned int)(K2)) >> (((32) - ((int)((((int)(2)) * (11))))))))) | (1)); // 1120 !emas: k0 = magic // 1121 !emas: k1 = (k0*hash value)&X'7FFFFFFF' // 1122 !emas: k2 = k1>>(32-2*name bits)!1 // 1123 k1 = k2>>name bits; !giving name bits _imp_current_line = 1123; _imp_current_file = "pass1v84-noprims.imp"; #line 1123 "pass1v84-noprims.imp" K1 = (int)((((unsigned int)(K2)) >> (11))); // 1124 %CYCLE _imp_current_line = 1124; _imp_current_file = "pass1v84-noprims.imp"; #line 1124 "pass1v84-noprims.imp" L_0088:; // 1125 newname = hash(k1) _imp_current_line = 1125; _imp_current_file = "pass1v84-noprims.imp"; #line 1125 "pass1v84-noprims.imp" NEWNAME = HASH[K1]; // 1126 %EXIT %IF newname = 0; !not in _imp_current_line = 1126; _imp_current_file = "pass1v84-noprims.imp"; #line 1126 "pass1v84-noprims.imp" if (((NEWNAME) != (0))) goto L_008b; #line 1126 "pass1v84-noprims.imp" goto L_0089; #line 1126 "pass1v84-noprims.imp" L_008b:; // 1127 ->in %IF string(addr(dict(newname+1))) = string(new) _imp_current_line = 1127; _imp_current_file = "pass1v84-noprims.imp"; #line 1127 "pass1v84-noprims.imp" if ((_imp_strcmp(*_imp_STRING(_imp_ADDR(&DICT[(((int)((((int)(NEWNAME)) + (1)))) - (1))])), *_imp_STRING(NEW)) != 0)) goto L_008c; #line 1127 "pass1v84-noprims.imp" goto U_100b; #line 1127 "pass1v84-noprims.imp" L_008c:; // 1128 k1 = (k1+k2)&max names _imp_current_line = 1128; _imp_current_file = "pass1v84-noprims.imp"; #line 1128 "pass1v84-noprims.imp" K1 = (((((int)(K1)) + (K2))) & (2047)); // 1129 %REPEAT _imp_current_line = 1129; _imp_current_file = "pass1v84-noprims.imp"; #line 1129 "pass1v84-noprims.imp" goto L_0088; #line 1129 "pass1v84-noprims.imp" L_0089:; // 1130 // 1131 ! not found // 1132 // 1133 spare names = spare names-1 _imp_current_line = 1133; _imp_current_file = "pass1v84-noprims.imp"; #line 1133 "pass1v84-noprims.imp" SPARENAMES = (((int)(SPARENAMES)) - (1)); // 1134 abandon(2) %IF spare names <= 0 _imp_current_line = 1134; _imp_current_file = "pass1v84-noprims.imp"; #line 1134 "pass1v84-noprims.imp" if (((SPARENAMES) > (0))) goto L_008d; #line 1134 "pass1v84-noprims.imp" ABANDON(2); #line 1134 "pass1v84-noprims.imp" L_008d:; // 1135 hash(k1) = dmax; !put it in _imp_current_line = 1135; _imp_current_file = "pass1v84-noprims.imp"; #line 1135 "pass1v84-noprims.imp" HASH[K1] = DMAX; // 1136 dict(dmax) = -1 _imp_current_line = 1136; _imp_current_file = "pass1v84-noprims.imp"; #line 1136 "pass1v84-noprims.imp" DICT[(((int)(DMAX)) - (1))] = (-1); // 1137 newname = dmax; dmax = dp; ->not in _imp_current_line = 1137; _imp_current_file = "pass1v84-noprims.imp"; #line 1137 "pass1v84-noprims.imp" NEWNAME = DMAX; _imp_current_line = 1137; _imp_current_file = "pass1v84-noprims.imp"; #line 1137 "pass1v84-noprims.imp" DMAX = DP; _imp_current_line = 1137; _imp_current_file = "pass1v84-noprims.imp"; #line 1137 "pass1v84-noprims.imp" goto U_100c; // 1138 // 1139 in: search base = rbase %IF this >= 0 %AND d # 0; !record elem defn _imp_current_line = 1139; _imp_current_file = "pass1v84-noprims.imp"; #line 1139 "pass1v84-noprims.imp" U_100b:; _imp_current_line = 1139; _imp_current_file = "pass1v84-noprims.imp"; #line 1139 "pass1v84-noprims.imp" if (((THIS) < (0))) goto L_008e; #line 1139 "pass1v84-noprims.imp" if (((D) == (0))) goto L_008e; #line 1139 "pass1v84-noprims.imp" SEARCHBASE = RBASE; #line 1139 "pass1v84-noprims.imp" L_008e:; // 1140 %IF search base # 0 %START; !record subname _imp_current_line = 1140; _imp_current_file = "pass1v84-noprims.imp"; #line 1140 "pass1v84-noprims.imp" if (((SEARCHBASE) == (0))) goto L_008f; // 1141 new = -1 _imp_current_line = 1141; _imp_current_file = "pass1v84-noprims.imp"; #line 1141 "pass1v84-noprims.imp" NEW = (-1); // 1142 x = search base _imp_current_line = 1142; _imp_current_file = "pass1v84-noprims.imp"; #line 1142 "pass1v84-noprims.imp" X = SEARCHBASE; // 1143 %CYCLE _imp_current_line = 1143; _imp_current_file = "pass1v84-noprims.imp"; #line 1143 "pass1v84-noprims.imp" L_0090:; // 1144 ->not in %IF x < format list _imp_current_line = 1144; _imp_current_file = "pass1v84-noprims.imp"; #line 1144 "pass1v84-noprims.imp" if (((X) >= (FORMATLIST))) goto L_0093; #line 1144 "pass1v84-noprims.imp" goto U_100c; #line 1144 "pass1v84-noprims.imp" L_0093:; // 1145 %EXIT %IF tag(x)_text = new name _imp_current_line = 1145; _imp_current_file = "pass1v84-noprims.imp"; #line 1145 "pass1v84-noprims.imp" if (((TAG[X].TEXT) != (NEWNAME))) goto L_0094; #line 1145 "pass1v84-noprims.imp" goto L_0091; #line 1145 "pass1v84-noprims.imp" L_0094:; // 1146 x = x-1 _imp_current_line = 1146; _imp_current_file = "pass1v84-noprims.imp"; #line 1146 "pass1v84-noprims.imp" X = (((int)(X)) - (1)); // 1147 %REPEAT _imp_current_line = 1147; _imp_current_file = "pass1v84-noprims.imp"; #line 1147 "pass1v84-noprims.imp" goto L_0090; #line 1147 "pass1v84-noprims.imp" L_0091:; // 1148 %FINISH %ELSE %START; !hash in for normal names _imp_current_line = 1148; _imp_current_file = "pass1v84-noprims.imp"; #line 1148 "pass1v84-noprims.imp" goto L_0095; #line 1148 "pass1v84-noprims.imp" L_008f:; // 1149 x = dict(newname) _imp_current_line = 1149; _imp_current_file = "pass1v84-noprims.imp"; #line 1149 "pass1v84-noprims.imp" X = DICT[(((int)(NEWNAME)) - (1))]; // 1150 ->not in %IF x <= limit; !wrong level _imp_current_line = 1150; _imp_current_file = "pass1v84-noprims.imp"; #line 1150 "pass1v84-noprims.imp" if (((X) > (LIMIT))) goto L_0096; #line 1150 "pass1v84-noprims.imp" goto U_100c; #line 1150 "pass1v84-noprims.imp" L_0096:; // 1151 %FINISH _imp_current_line = 1151; _imp_current_file = "pass1v84-noprims.imp"; #line 1151 "pass1v84-noprims.imp" L_0095:; // 1152 // 1153 subatom = x; !name found, extract info _imp_current_line = 1153; _imp_current_file = "pass1v84-noprims.imp"; #line 1153 "pass1v84-noprims.imp" SUBATOM = X; // 1154 t == tag(x) _imp_current_line = 1154; _imp_current_file = "pass1v84-noprims.imp"; #line 1154 "pass1v84-noprims.imp" T = &TAG[X]; // 1155 atom flags = t_flags _imp_current_line = 1155; _imp_current_file = "pass1v84-noprims.imp"; #line 1155 "pass1v84-noprims.imp" ATOMFLAGS = T->FLAGS; // 1156 format = t_format; app = t_app _imp_current_line = 1156; _imp_current_file = "pass1v84-noprims.imp"; #line 1156 "pass1v84-noprims.imp" FORMAT = T->FORMAT; _imp_current_line = 1156; _imp_current_file = "pass1v84-noprims.imp"; #line 1156 "pass1v84-noprims.imp" APP = T->APP; // 1157 protection = atom flags&prot _imp_current_line = 1157; _imp_current_file = "pass1v84-noprims.imp"; #line 1157 "pass1v84-noprims.imp" PROTECTION = ((ATOMFLAGS) & (256)); // 1158 type = atom flags>>4&7; atom1 = amap(atom flags&15) _imp_current_line = 1158; _imp_current_file = "pass1v84-noprims.imp"; #line 1158 "pass1v84-noprims.imp" TYPE = (((int)((((unsigned int)(ATOMFLAGS)) >> (4)))) & (7)); _imp_current_line = 1158; _imp_current_file = "pass1v84-noprims.imp"; #line 1158 "pass1v84-noprims.imp" ATOM1 = AMAP[((ATOMFLAGS) & (15))]; // 1159 // 1160 %IF diag&8 # 0 %START _imp_current_line = 1160; _imp_current_file = "pass1v84-noprims.imp"; #line 1160 "pass1v84-noprims.imp" if (((((DIAG) & (8))) == (0))) goto L_0097; // 1161 printstring("lookup:") _imp_current_line = 1161; _imp_current_file = "pass1v84-noprims.imp"; #line 1161 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("lookup:")); // 1162 write(atom1, 3) _imp_current_line = 1162; _imp_current_file = "pass1v84-noprims.imp"; #line 1162 "pass1v84-noprims.imp" _imp_WRITE(ATOM1, 3); // 1163 write(type, 1) _imp_current_line = 1163; _imp_current_file = "pass1v84-noprims.imp"; #line 1163 "pass1v84-noprims.imp" _imp_WRITE(TYPE, 1); // 1164 write(app, 3) _imp_current_line = 1164; _imp_current_file = "pass1v84-noprims.imp"; #line 1164 "pass1v84-noprims.imp" _imp_WRITE(APP, 3); // 1165 write(format, 5) _imp_current_line = 1165; _imp_current_file = "pass1v84-noprims.imp"; #line 1165 "pass1v84-noprims.imp" _imp_WRITE(FORMAT, 5); // 1166 write(atom flags, 3) _imp_current_line = 1166; _imp_current_file = "pass1v84-noprims.imp"; #line 1166 "pass1v84-noprims.imp" _imp_WRITE(ATOMFLAGS, 3); // 1167 newline _imp_current_line = 1167; _imp_current_file = "pass1v84-noprims.imp"; #line 1167 "pass1v84-noprims.imp" _imp_NEWLINE(); // 1168 %FINISH _imp_current_line = 1168; _imp_current_file = "pass1v84-noprims.imp"; #line 1168 "pass1v84-noprims.imp" L_0097:; // 1169 // 1170 %IF d = 0 %START; !old name wanted _imp_current_line = 1170; _imp_current_file = "pass1v84-noprims.imp"; #line 1170 "pass1v84-noprims.imp" if (((D) != (0))) goto L_0098; // 1171 t_flags <- t_flags!used bit _imp_current_line = 1171; _imp_current_file = "pass1v84-noprims.imp"; #line 1171 "pass1v84-noprims.imp" T->FLAGS = ((T->FLAGS) | (32768)); // 1172 search base = 0 _imp_current_line = 1172; _imp_current_file = "pass1v84-noprims.imp"; #line 1172 "pass1v84-noprims.imp" SEARCHBASE = 0; // 1173 // 1174 %IF atom flags&subname # 0 %AND format # 0 %START; !a record _imp_current_line = 1174; _imp_current_file = "pass1v84-noprims.imp"; #line 1174 "pass1v84-noprims.imp" if (((((ATOMFLAGS) & (2048))) == (0))) goto L_0099; #line 1174 "pass1v84-noprims.imp" if (((FORMAT) == (0))) goto L_0099; // 1175 %RETURN %IF format selected = 0 _imp_current_line = 1175; _imp_current_file = "pass1v84-noprims.imp"; #line 1175 "pass1v84-noprims.imp" if (((FORMATSELECTED()) != (0))) goto L_009a; #line 1175 "pass1v84-noprims.imp" return; #line 1175 "pass1v84-noprims.imp" L_009a:; // 1176 %FINISH _imp_current_line = 1176; _imp_current_file = "pass1v84-noprims.imp"; #line 1176 "pass1v84-noprims.imp" L_0099:; // 1177 // 1178 %IF atom flags¶meters # 0 %START; !proc or array _imp_current_line = 1178; _imp_current_file = "pass1v84-noprims.imp"; #line 1178 "pass1v84-noprims.imp" if (((((ATOMFLAGS) & (4096))) == (0))) goto L_009b; // 1179 // 1180 %IF app = 0 %START; !no parameters needed _imp_current_line = 1180; _imp_current_file = "pass1v84-noprims.imp"; #line 1180 "pass1v84-noprims.imp" if (((APP) != (0))) goto L_009c; // 1181 atom2 = atom1 _imp_current_line = 1181; _imp_current_file = "pass1v84-noprims.imp"; #line 1181 "pass1v84-noprims.imp" ATOM2 = ATOM1; // 1182 atom1 = atom1-4 _imp_current_line = 1182; _imp_current_file = "pass1v84-noprims.imp"; #line 1182 "pass1v84-noprims.imp" ATOM1 = (((int)(ATOM1)) - (4)); // 1183 %IF 97 <= atom1 <= 98 %START _imp_current_line = 1183; _imp_current_file = "pass1v84-noprims.imp"; #line 1183 "pass1v84-noprims.imp" if ((((97) > (ATOM1))) || (((ATOM1) > (98)))) goto L_009d; // 1184 map gg = atom1; atom1 = var _imp_current_line = 1184; _imp_current_file = "pass1v84-noprims.imp"; #line 1184 "pass1v84-noprims.imp" MAPGG = ATOM1; _imp_current_line = 1184; _imp_current_file = "pass1v84-noprims.imp"; #line 1184 "pass1v84-noprims.imp" ATOM1 = 91; // 1185 %FINISH _imp_current_line = 1185; _imp_current_file = "pass1v84-noprims.imp"; #line 1185 "pass1v84-noprims.imp" L_009d:; // 1186 %FINISH %ELSE %START _imp_current_line = 1186; _imp_current_file = "pass1v84-noprims.imp"; #line 1186 "pass1v84-noprims.imp" goto L_009e; #line 1186 "pass1v84-noprims.imp" L_009c:; // 1187 %IF sym = '(' %START _imp_current_line = 1187; _imp_current_file = "pass1v84-noprims.imp"; #line 1187 "pass1v84-noprims.imp" if (((SYM) != (40))) goto L_009f; // 1188 search base = 0; !ignore format for now _imp_current_line = 1188; _imp_current_file = "pass1v84-noprims.imp"; #line 1188 "pass1v84-noprims.imp" SEARCHBASE = 0; // 1189 %IF atom1 >= 106 %START; !arrays _imp_current_line = 1189; _imp_current_file = "pass1v84-noprims.imp"; #line 1189 "pass1v84-noprims.imp" if (((ATOM1) < (106))) goto L_00a0; // 1190 app = phrase(app+200) _imp_current_line = 1190; _imp_current_file = "pass1v84-noprims.imp"; #line 1190 "pass1v84-noprims.imp" APP = (PHRASE-200)[(((int)(APP)) + (200))]; // 1191 escape class = esc array _imp_current_line = 1191; _imp_current_file = "pass1v84-noprims.imp"; #line 1191 "pass1v84-noprims.imp" ESCAPECLASS = 254; // 1192 atom1 = (atom1-106)>>1+91; !a,an->v na,nan->n _imp_current_line = 1192; _imp_current_file = "pass1v84-noprims.imp"; #line 1192 "pass1v84-noprims.imp" ATOM1 = (((int)((((((((int)(ATOM1)) - (106)))) >> (1))))) + (91)); // 1193 %FINISH %ELSE %START; !procedures _imp_current_line = 1193; _imp_current_file = "pass1v84-noprims.imp"; #line 1193 "pass1v84-noprims.imp" goto L_00a1; #line 1193 "pass1v84-noprims.imp" L_00a0:; // 1194 escape class = esc proc _imp_current_line = 1194; _imp_current_file = "pass1v84-noprims.imp"; #line 1194 "pass1v84-noprims.imp" ESCAPECLASS = 253; // 1195 atom1 = atom1-4 _imp_current_line = 1195; _imp_current_file = "pass1v84-noprims.imp"; #line 1195 "pass1v84-noprims.imp" ATOM1 = (((int)(ATOM1)) - (4)); // 1196 %FINISH _imp_current_line = 1196; _imp_current_file = "pass1v84-noprims.imp"; #line 1196 "pass1v84-noprims.imp" L_00a1:; // 1197 phrase(200) = app _imp_current_line = 1197; _imp_current_file = "pass1v84-noprims.imp"; #line 1197 "pass1v84-noprims.imp" (PHRASE-200)[200] = APP; // 1198 %FINISH _imp_current_line = 1198; _imp_current_file = "pass1v84-noprims.imp"; #line 1198 "pass1v84-noprims.imp" L_009f:; // 1199 %FINISH _imp_current_line = 1199; _imp_current_file = "pass1v84-noprims.imp"; #line 1199 "pass1v84-noprims.imp" L_009e:; // 1200 pos2 = pos; %return _imp_current_line = 1200; _imp_current_file = "pass1v84-noprims.imp"; #line 1200 "pass1v84-noprims.imp" POS2 = POS; _imp_current_line = 1200; _imp_current_file = "pass1v84-noprims.imp"; #line 1200 "pass1v84-noprims.imp" return; // 1201 %FINISH _imp_current_line = 1201; _imp_current_file = "pass1v84-noprims.imp"; #line 1201 "pass1v84-noprims.imp" L_009b:; // 1202 // 1203 !deal with constintegers etc // 1204 // 1205 %IF atom flags&const bit # 0 %AND atom1 = var %START _imp_current_line = 1205; _imp_current_file = "pass1v84-noprims.imp"; #line 1205 "pass1v84-noprims.imp" if (((((ATOMFLAGS) & (8192))) == (0))) goto L_00a2; #line 1205 "pass1v84-noprims.imp" if (((ATOM1) != (91))) goto L_00a2; // 1206 map gg = const; atom2 = const _imp_current_line = 1206; _imp_current_file = "pass1v84-noprims.imp"; #line 1206 "pass1v84-noprims.imp" MAPGG = 93; _imp_current_line = 1206; _imp_current_file = "pass1v84-noprims.imp"; #line 1206 "pass1v84-noprims.imp" ATOM2 = 93; // 1207 subatom = -subatom %IF type = integer _imp_current_line = 1207; _imp_current_file = "pass1v84-noprims.imp"; #line 1207 "pass1v84-noprims.imp" if (((TYPE) != (1))) goto L_00a3; #line 1207 "pass1v84-noprims.imp" SUBATOM = (-(SUBATOM)); #line 1207 "pass1v84-noprims.imp" L_00a3:; // 1208 %FINISH _imp_current_line = 1208; _imp_current_file = "pass1v84-noprims.imp"; #line 1208 "pass1v84-noprims.imp" L_00a2:; // 1209 %RETURN _imp_current_line = 1209; _imp_current_file = "pass1v84-noprims.imp"; #line 1209 "pass1v84-noprims.imp" return; // 1210 // 1211 %FINISH _imp_current_line = 1211; _imp_current_file = "pass1v84-noprims.imp"; #line 1211 "pass1v84-noprims.imp" L_0098:; // 1212 !new name wanted // 1213 ->not in %IF tbase # tstart; !dont fault proc parm-parm _imp_current_line = 1213; _imp_current_file = "pass1v84-noprims.imp"; #line 1213 "pass1v84-noprims.imp" if (((TBASE) == (TSTART))) goto L_00a4; #line 1213 "pass1v84-noprims.imp" goto U_100c; #line 1213 "pass1v84-noprims.imp" L_00a4:; // 1214 %IF d = lab+spec+used bit %START _imp_current_line = 1214; _imp_current_file = "pass1v84-noprims.imp"; #line 1214 "pass1v84-noprims.imp" if (((D) != (32899))) goto L_00a5; // 1215 t_flags = t_flags!used bit _imp_current_line = 1215; _imp_current_file = "pass1v84-noprims.imp"; #line 1215 "pass1v84-noprims.imp" T->FLAGS = ((T->FLAGS) | (32768)); // 1216 %RETURN _imp_current_line = 1216; _imp_current_file = "pass1v84-noprims.imp"; #line 1216 "pass1v84-noprims.imp" return; // 1217 %FINISH _imp_current_line = 1217; _imp_current_file = "pass1v84-noprims.imp"; #line 1217 "pass1v84-noprims.imp" L_00a5:; // 1218 %IF atom flags&spec # 0 %START; !a spec has been given _imp_current_line = 1218; _imp_current_file = "pass1v84-noprims.imp"; #line 1218 "pass1v84-noprims.imp" if (((((ATOMFLAGS) & (128))) == (0))) goto L_00a6; // 1219 %IF d = lab %START; !define label _imp_current_line = 1219; _imp_current_file = "pass1v84-noprims.imp"; #line 1219 "pass1v84-noprims.imp" if (((D) != (3))) goto L_00a7; // 1220 t_flags <- t_Flags-Spec _imp_current_line = 1220; _imp_current_file = "pass1v84-noprims.imp"; #line 1220 "pass1v84-noprims.imp" T->FLAGS = (((int)(T->FLAGS)) - (128)); // 1221 %RETURN _imp_current_line = 1221; _imp_current_file = "pass1v84-noprims.imp"; #line 1221 "pass1v84-noprims.imp" return; // 1222 %FINISH _imp_current_line = 1222; _imp_current_file = "pass1v84-noprims.imp"; #line 1222 "pass1v84-noprims.imp" L_00a7:; // 1223 %IF 7 <= decl&15 <= 10 %AND decl&spec = 0 %START _imp_current_line = 1223; _imp_current_file = "pass1v84-noprims.imp"; #line 1223 "pass1v84-noprims.imp" if ((((7) > (((DECL) & (15))))) || (((((DECL) & (15))) > (10)))) goto L_00a8; #line 1223 "pass1v84-noprims.imp" if (((((DECL) & (128))) != (0))) goto L_00a8; // 1224 // 1225 !procedure definition after spec // 1226 // 1227 %IF (decl!!atom flags)&b'1111111' = 0 %START; !correct type? _imp_current_line = 1227; _imp_current_file = "pass1v84-noprims.imp"; #line 1227 "pass1v84-noprims.imp" if (((((((DECL) ^ (ATOMFLAGS))) & (127))) != (0))) goto L_00a9; // 1228 t_flags = t_flags-spec _imp_current_line = 1228; _imp_current_file = "pass1v84-noprims.imp"; #line 1228 "pass1v84-noprims.imp" T->FLAGS = (((int)(T->FLAGS)) - (128)); // 1229 spec given = 1 _imp_current_line = 1229; _imp_current_file = "pass1v84-noprims.imp"; #line 1229 "pass1v84-noprims.imp" SPECGIVEN = 1; // 1230 %RETURN _imp_current_line = 1230; _imp_current_file = "pass1v84-noprims.imp"; #line 1230 "pass1v84-noprims.imp" return; // 1231 %FINISH _imp_current_line = 1231; _imp_current_file = "pass1v84-noprims.imp"; #line 1231 "pass1v84-noprims.imp" L_00a9:; // 1232 // 1233 !note that an external procedure must be speced as a // 1234 !non-external procedure. // 1235 // 1236 %FINISH _imp_current_line = 1236; _imp_current_file = "pass1v84-noprims.imp"; #line 1236 "pass1v84-noprims.imp" L_00a8:; // 1237 %IF decl&15 = recfm %START; !recordformat _imp_current_line = 1237; _imp_current_file = "pass1v84-noprims.imp"; #line 1237 "pass1v84-noprims.imp" if (((((DECL) & (15))) != (4))) goto L_00aa; // 1238 t_flags = record<<4+recfm _imp_current_line = 1238; _imp_current_file = "pass1v84-noprims.imp"; #line 1238 "pass1v84-noprims.imp" T->FLAGS = (((int)(((4) << (4)))) + (4)); // 1239 t_format = fdef _imp_current_line = 1239; _imp_current_file = "pass1v84-noprims.imp"; #line 1239 "pass1v84-noprims.imp" T->FORMAT = FDEF; // 1240 %RETURN _imp_current_line = 1240; _imp_current_file = "pass1v84-noprims.imp"; #line 1240 "pass1v84-noprims.imp" return; // 1241 %FINISH _imp_current_line = 1241; _imp_current_file = "pass1v84-noprims.imp"; #line 1241 "pass1v84-noprims.imp" L_00aa:; // 1242 %FINISH _imp_current_line = 1242; _imp_current_file = "pass1v84-noprims.imp"; #line 1242 "pass1v84-noprims.imp" L_00a6:; // 1243 %RETURN %IF last1 = jump %AND atom1 = swit _imp_current_line = 1243; _imp_current_file = "pass1v84-noprims.imp"; #line 1243 "pass1v84-noprims.imp" if (((LAST1) != (54))) goto L_00ab; #line 1243 "pass1v84-noprims.imp" if (((ATOM1) != (105))) goto L_00ab; #line 1243 "pass1v84-noprims.imp" return; #line 1243 "pass1v84-noprims.imp" L_00ab:; // 1244 copy = x %IF copy = 0 _imp_current_line = 1244; _imp_current_file = "pass1v84-noprims.imp"; #line 1244 "pass1v84-noprims.imp" if (((COPY) != (0))) goto L_00ac; #line 1244 "pass1v84-noprims.imp" COPY = X; #line 1244 "pass1v84-noprims.imp" L_00ac:; // 1245 // 1246 notin:app = 0; vid = 0 _imp_current_line = 1246; _imp_current_file = "pass1v84-noprims.imp"; #line 1246 "pass1v84-noprims.imp" U_100c:; _imp_current_line = 1246; _imp_current_file = "pass1v84-noprims.imp"; #line 1246 "pass1v84-noprims.imp" APP = 0; _imp_current_line = 1246; _imp_current_file = "pass1v84-noprims.imp"; #line 1246 "pass1v84-noprims.imp" VID = 0; // 1247 atom1 = error+2 _imp_current_line = 1247; _imp_current_file = "pass1v84-noprims.imp"; #line 1247 "pass1v84-noprims.imp" ATOM1 = 32770; // 1248 // 1249 %return %if d = 0; !old name wanted _imp_current_line = 1249; _imp_current_file = "pass1v84-noprims.imp"; #line 1249 "pass1v84-noprims.imp" if (((D) != (0))) goto L_00ad; #line 1249 "pass1v84-noprims.imp" return; #line 1249 "pass1v84-noprims.imp" L_00ad:; // 1250 type = d>>4&7; form = d&15; atom1 = amap(form) _imp_current_line = 1250; _imp_current_file = "pass1v84-noprims.imp"; #line 1250 "pass1v84-noprims.imp" TYPE = (((int)((((unsigned int)(D)) >> (4)))) & (7)); _imp_current_line = 1250; _imp_current_file = "pass1v84-noprims.imp"; #line 1250 "pass1v84-noprims.imp" FORM = ((D) & (15)); _imp_current_line = 1250; _imp_current_file = "pass1v84-noprims.imp"; #line 1250 "pass1v84-noprims.imp" ATOM1 = AMAP[FORM]; // 1251 // 1252 %IF this < 0 %START; !normal scope _imp_current_line = 1252; _imp_current_file = "pass1v84-noprims.imp"; #line 1252 "pass1v84-noprims.imp" if (((THIS) >= (0))) goto L_00ae; // 1253 new = newname _imp_current_line = 1253; _imp_current_file = "pass1v84-noprims.imp"; #line 1253 "pass1v84-noprims.imp" NEW = NEWNAME; // 1254 tmax = tmax+1; x = tmax _imp_current_line = 1254; _imp_current_file = "pass1v84-noprims.imp"; #line 1254 "pass1v84-noprims.imp" TMAX = (((int)(TMAX)) + (1)); _imp_current_line = 1254; _imp_current_file = "pass1v84-noprims.imp"; #line 1254 "pass1v84-noprims.imp" X = TMAX; // 1255 %FINISH %ELSE %START; !recordformat scope _imp_current_line = 1255; _imp_current_file = "pass1v84-noprims.imp"; #line 1255 "pass1v84-noprims.imp" goto L_00af; #line 1255 "pass1v84-noprims.imp" L_00ae:; // 1256 new = -1 _imp_current_line = 1256; _imp_current_file = "pass1v84-noprims.imp"; #line 1256 "pass1v84-noprims.imp" NEW = (-1); // 1257 recid = recid-1; vid = recid _imp_current_line = 1257; _imp_current_file = "pass1v84-noprims.imp"; #line 1257 "pass1v84-noprims.imp" RECID = (((int)(RECID)) - (1)); _imp_current_line = 1257; _imp_current_file = "pass1v84-noprims.imp"; #line 1257 "pass1v84-noprims.imp" VID = RECID; // 1258 tmin = tmin-1; x = tmin _imp_current_line = 1258; _imp_current_file = "pass1v84-noprims.imp"; #line 1258 "pass1v84-noprims.imp" TMIN = (((int)(TMIN)) - (1)); _imp_current_line = 1258; _imp_current_file = "pass1v84-noprims.imp"; #line 1258 "pass1v84-noprims.imp" X = TMIN; // 1259 format list = tmin _imp_current_line = 1259; _imp_current_file = "pass1v84-noprims.imp"; #line 1259 "pass1v84-noprims.imp" FORMATLIST = TMIN; // 1260 %FINISH _imp_current_line = 1260; _imp_current_file = "pass1v84-noprims.imp"; #line 1260 "pass1v84-noprims.imp" L_00af:; // 1261 // 1262 %IF 11 <= form <= 14 %START; !arrays _imp_current_line = 1262; _imp_current_file = "pass1v84-noprims.imp"; #line 1262 "pass1v84-noprims.imp" if ((((11) > (FORM))) || (((FORM) > (14)))) goto L_00b0; // 1263 dim = 1 %IF dim = 0; !set dim for owns _imp_current_line = 1263; _imp_current_file = "pass1v84-noprims.imp"; #line 1263 "pass1v84-noprims.imp" if (((DIM) != (0))) goto L_00b1; #line 1263 "pass1v84-noprims.imp" DIM = 1; #line 1263 "pass1v84-noprims.imp" L_00b1:; // 1264 app = dim _imp_current_line = 1264; _imp_current_file = "pass1v84-noprims.imp"; #line 1264 "pass1v84-noprims.imp" APP = DIM; // 1265 %FINISH _imp_current_line = 1265; _imp_current_file = "pass1v84-noprims.imp"; #line 1265 "pass1v84-noprims.imp" L_00b0:; // 1266 // 1267 d = d!used bit %IF (otype > 2 %AND d&spec = 0) %OR perm # 0 %OR %C _imp_current_line = 1267; _imp_current_file = "pass1v84-noprims.imp"; #line 1267 "pass1v84-noprims.imp" if (((OTYPE) <= (2))) goto L_00b2; #line 1267 "pass1v84-noprims.imp" if (((((D) & (128))) == (0))) goto L_008a; #line 1267 "pass1v84-noprims.imp" L_00b2:; #line 1267 "pass1v84-noprims.imp" if (((PERM) != (0))) goto L_008a; #line 1267 "pass1v84-noprims.imp" if (((LEVEL) != (INCLUDELEVEL))) goto L_00b3; #line 1267 "pass1v84-noprims.imp" L_008a:; #line 1267 "pass1v84-noprims.imp" D = ((D) | (32768)); #line 1267 "pass1v84-noprims.imp" L_00b3:; // 1268 Level = Include Level // 1269 // 1270 !external definitions need not be used in the file in which // 1271 !they are defined, so inhibit a useless unused warning. // 1272 // 1273 t == tag(x) _imp_current_line = 1273; _imp_current_file = "pass1v84-noprims.imp"; #line 1273 "pass1v84-noprims.imp" T = &TAG[X]; // 1274 %IF form = lab %START _imp_current_line = 1274; _imp_current_file = "pass1v84-noprims.imp"; #line 1274 "pass1v84-noprims.imp" if (((FORM) != (3))) goto L_00b4; // 1275 id = id+1; vid = id _imp_current_line = 1275; _imp_current_file = "pass1v84-noprims.imp"; #line 1275 "pass1v84-noprims.imp" ID = (((int)(ID)) + (1)); _imp_current_line = 1275; _imp_current_file = "pass1v84-noprims.imp"; #line 1275 "pass1v84-noprims.imp" VID = ID; // 1276 %FINISH _imp_current_line = 1276; _imp_current_file = "pass1v84-noprims.imp"; #line 1276 "pass1v84-noprims.imp" L_00b4:; // 1277 t_index = vid _imp_current_line = 1277; _imp_current_file = "pass1v84-noprims.imp"; #line 1277 "pass1v84-noprims.imp" T->INDEX = VID; // 1278 t_text = new name _imp_current_line = 1278; _imp_current_file = "pass1v84-noprims.imp"; #line 1278 "pass1v84-noprims.imp" T->TEXT = NEWNAME; // 1279 t_flags <- d _imp_current_line = 1279; _imp_current_file = "pass1v84-noprims.imp"; #line 1279 "pass1v84-noprims.imp" T->FLAGS = D; // 1280 t_app = app _imp_current_line = 1280; _imp_current_file = "pass1v84-noprims.imp"; #line 1280 "pass1v84-noprims.imp" T->APP = APP; // 1281 t_format = fdef; format = fdef _imp_current_line = 1281; _imp_current_file = "pass1v84-noprims.imp"; #line 1281 "pass1v84-noprims.imp" T->FORMAT = FDEF; _imp_current_line = 1281; _imp_current_file = "pass1v84-noprims.imp"; #line 1281 "pass1v84-noprims.imp" FORMAT = FDEF; // 1282 subatom = x _imp_current_line = 1282; _imp_current_file = "pass1v84-noprims.imp"; #line 1282 "pass1v84-noprims.imp" SUBATOM = X; // 1283 // 1284 %IF new >= 0 %START; !insert into hash table _imp_current_line = 1284; _imp_current_file = "pass1v84-noprims.imp"; #line 1284 "pass1v84-noprims.imp" if (((NEW) < (0))) goto L_00b5; // 1285 t_link = dict(new); dict(new) = x _imp_current_line = 1285; _imp_current_file = "pass1v84-noprims.imp"; #line 1285 "pass1v84-noprims.imp" T->LINK = DICT[(((int)(NEW)) - (1))]; _imp_current_line = 1285; _imp_current_file = "pass1v84-noprims.imp"; #line 1285 "pass1v84-noprims.imp" DICT[(((int)(NEW)) - (1))] = X; // 1286 %IF gmin = max grammar %START; !proc param params _imp_current_line = 1286; _imp_current_file = "pass1v84-noprims.imp"; #line 1286 "pass1v84-noprims.imp" if (((GMIN) != (1720))) goto L_00b6; // 1287 tmin = tmin-1; subatom = tmin _imp_current_line = 1287; _imp_current_file = "pass1v84-noprims.imp"; #line 1287 "pass1v84-noprims.imp" TMIN = (((int)(TMIN)) - (1)); _imp_current_line = 1287; _imp_current_file = "pass1v84-noprims.imp"; #line 1287 "pass1v84-noprims.imp" SUBATOM = TMIN; // 1288 tag(tmin) = t _imp_current_line = 1288; _imp_current_file = "pass1v84-noprims.imp"; #line 1288 "pass1v84-noprims.imp" TAG[TMIN] = *T; // 1289 %FINISH _imp_current_line = 1289; _imp_current_file = "pass1v84-noprims.imp"; #line 1289 "pass1v84-noprims.imp" L_00b6:; // 1290 %FINISH _imp_current_line = 1290; _imp_current_file = "pass1v84-noprims.imp"; #line 1290 "pass1v84-noprims.imp" L_00b5:; // 1291 abandon(3) %IF tmax >= tmin _imp_current_line = 1291; _imp_current_file = "pass1v84-noprims.imp"; #line 1291 "pass1v84-noprims.imp" if (((TMAX) < (TMIN))) goto L_00b7; #line 1291 "pass1v84-noprims.imp" ABANDON(3); #line 1291 "pass1v84-noprims.imp" L_00b7:; // 1292 %END _imp_current_line = 1292; _imp_current_file = "pass1v84-noprims.imp"; #line 1292 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block LOOKUP at level 5 // 1293 // 1294 // 1295 // 1296 top: pos1 = pos _imp_current_line = 1296; _imp_current_file = "pass1v84-noprims.imp"; #line 1296 "pass1v84-noprims.imp" U_100d:; _imp_current_line = 1296; _imp_current_file = "pass1v84-noprims.imp"; #line 1296 "pass1v84-noprims.imp" POS1 = POS; // 1297 subatom = 0; pend quote = 0; atom flags = 0 _imp_current_line = 1297; _imp_current_file = "pass1v84-noprims.imp"; #line 1297 "pass1v84-noprims.imp" SUBATOM = 0; _imp_current_line = 1297; _imp_current_file = "pass1v84-noprims.imp"; #line 1297 "pass1v84-noprims.imp" PENDQUOTE = 0; _imp_current_line = 1297; _imp_current_file = "pass1v84-noprims.imp"; #line 1297 "pass1v84-noprims.imp" ATOMFLAGS = 0; // 1298 // 1299 !app and format must be left for assigning to papp & pformat // 1300 // 1301 ->name %IF symtype = -2; !letter _imp_current_line = 1301; _imp_current_file = "pass1v84-noprims.imp"; #line 1301 "pass1v84-noprims.imp" if (((SYMTYPE) != ((-2)))) goto L_00b8; #line 1301 "pass1v84-noprims.imp" goto U_100e; #line 1301 "pass1v84-noprims.imp" L_00b8:; // 1302 ->number %IF symtype < 0; !digit _imp_current_line = 1302; _imp_current_file = "pass1v84-noprims.imp"; #line 1302 "pass1v84-noprims.imp" if (((SYMTYPE) >= (0))) goto L_00b9; #line 1302 "pass1v84-noprims.imp" goto U_100f; #line 1302 "pass1v84-noprims.imp" L_00b9:; // 1303 %IF symtype = 0 %START _imp_current_line = 1303; _imp_current_file = "pass1v84-noprims.imp"; #line 1303 "pass1v84-noprims.imp" if (((SYMTYPE) != (0))) goto L_00ba; // 1304 atom1 = termin; atom2 = 0 _imp_current_line = 1304; _imp_current_file = "pass1v84-noprims.imp"; #line 1304 "pass1v84-noprims.imp" ATOM1 = 20; _imp_current_line = 1304; _imp_current_file = "pass1v84-noprims.imp"; #line 1304 "pass1v84-noprims.imp" ATOM2 = 0; // 1305 %RETURN _imp_current_line = 1305; _imp_current_file = "pass1v84-noprims.imp"; #line 1305 "pass1v84-noprims.imp" return; // 1306 %FINISH _imp_current_line = 1306; _imp_current_file = "pass1v84-noprims.imp"; #line 1306 "pass1v84-noprims.imp" L_00ba:; // 1307 %IF symtype # 2 %START; !catch keywords here _imp_current_line = 1307; _imp_current_file = "pass1v84-noprims.imp"; #line 1307 "pass1v84-noprims.imp" if (((SYMTYPE) == (2))) goto L_00bb; // 1308 ->text %IF quote # 0; !completion of text _imp_current_line = 1308; _imp_current_file = "pass1v84-noprims.imp"; #line 1308 "pass1v84-noprims.imp" if (((QUOTE) == (0))) goto L_00bc; #line 1308 "pass1v84-noprims.imp" goto U_1010; #line 1308 "pass1v84-noprims.imp" L_00bc:; // 1309 ->strings %IF sym = squote; !start of string _imp_current_line = 1309; _imp_current_file = "pass1v84-noprims.imp"; #line 1309 "pass1v84-noprims.imp" if (((SYM) != (34))) goto L_00bd; #line 1309 "pass1v84-noprims.imp" goto U_1011; #line 1309 "pass1v84-noprims.imp" L_00bd:; // 1310 ->symbols %IF sym = cquote; !start of symbol _imp_current_line = 1310; _imp_current_file = "pass1v84-noprims.imp"; #line 1310 "pass1v84-noprims.imp" if (((SYM) != (39))) goto L_00be; #line 1310 "pass1v84-noprims.imp" goto U_1012; #line 1310 "pass1v84-noprims.imp" L_00be:; // 1311 ->number %IF sym = '.' %AND '0' <= nextsymbol <= '9' _imp_current_line = 1311; _imp_current_file = "pass1v84-noprims.imp"; #line 1311 "pass1v84-noprims.imp" if (((SYM) != (46))) goto L_00bf; #line 1311 "pass1v84-noprims.imp" if (({int tmp1 = 48, tmp2 = _imp_NEXTSYMBOL(), tmp3 = 57; (tmp1 > tmp2) || (tmp2 > tmp3);})) goto L_00bf; #line 1311 "pass1v84-noprims.imp" goto U_100f; #line 1311 "pass1v84-noprims.imp" L_00bf:; // 1312 %FINISH _imp_current_line = 1312; _imp_current_file = "pass1v84-noprims.imp"; #line 1312 "pass1v84-noprims.imp" L_00bb:; // 1313 // 1314 !locate atom in fixed dict // 1315 k = key>>2; read sym _imp_current_line = 1315; _imp_current_file = "pass1v84-noprims.imp"; #line 1315 "pass1v84-noprims.imp" K = (int)((((unsigned int)(KEY)) >> (2))); _imp_current_line = 1315; _imp_current_file = "pass1v84-noprims.imp"; #line 1315 "pass1v84-noprims.imp" READSYM(); // 1316 %CYCLE _imp_current_line = 1316; _imp_current_file = "pass1v84-noprims.imp"; #line 1316 "pass1v84-noprims.imp" L_00c0:; // 1317 j = kdict(k) _imp_current_line = 1317; _imp_current_file = "pass1v84-noprims.imp"; #line 1317 "pass1v84-noprims.imp" J = (KDICT-32)[K]; // 1318 %EXIT %IF j&x'4000' # 0 _imp_current_line = 1318; _imp_current_file = "pass1v84-noprims.imp"; #line 1318 "pass1v84-noprims.imp" if (((((J) & (16384))) == (0))) goto L_00c3; #line 1318 "pass1v84-noprims.imp" goto L_00c1; #line 1318 "pass1v84-noprims.imp" L_00c3:; // 1319 %IF j&127 # sym %OR symtype < 0 %START _imp_current_line = 1319; _imp_current_file = "pass1v84-noprims.imp"; #line 1319 "pass1v84-noprims.imp" if (((((J) & (127))) != (SYM))) goto L_0092; #line 1319 "pass1v84-noprims.imp" if (((SYMTYPE) >= (0))) goto L_00c4; #line 1319 "pass1v84-noprims.imp" L_0092:; // 1320 ->err %UNLESS j < 0 _imp_current_line = 1320; _imp_current_file = "pass1v84-noprims.imp"; #line 1320 "pass1v84-noprims.imp" if (((J) < (0))) goto L_00c5; #line 1320 "pass1v84-noprims.imp" goto U_1013; #line 1320 "pass1v84-noprims.imp" L_00c5:; // 1321 k = k+1 _imp_current_line = 1321; _imp_current_file = "pass1v84-noprims.imp"; #line 1321 "pass1v84-noprims.imp" K = (((int)(K)) + (1)); // 1322 %FINISH %ELSE %START _imp_current_line = 1322; _imp_current_file = "pass1v84-noprims.imp"; #line 1322 "pass1v84-noprims.imp" goto L_00c6; #line 1322 "pass1v84-noprims.imp" L_00c4:; // 1323 l = j>>7&127; read sym _imp_current_line = 1323; _imp_current_file = "pass1v84-noprims.imp"; #line 1323 "pass1v84-noprims.imp" L = (((int)((((unsigned int)(J)) >> (7)))) & (127)); _imp_current_line = 1323; _imp_current_file = "pass1v84-noprims.imp"; #line 1323 "pass1v84-noprims.imp" READSYM(); // 1324 %IF j > 0 %START _imp_current_line = 1324; _imp_current_file = "pass1v84-noprims.imp"; #line 1324 "pass1v84-noprims.imp" if (((J) <= (0))) goto L_00c7; // 1325 %IF l # 0 %START _imp_current_line = 1325; _imp_current_file = "pass1v84-noprims.imp"; #line 1325 "pass1v84-noprims.imp" if (((L) == (0))) goto L_00c8; // 1326 ->err %IF l # sym %OR symtype < 0 _imp_current_line = 1326; _imp_current_file = "pass1v84-noprims.imp"; #line 1326 "pass1v84-noprims.imp" if (((L) != (SYM))) goto L_00c9; #line 1326 "pass1v84-noprims.imp" if (((SYMTYPE) >= (0))) goto L_00ca; #line 1326 "pass1v84-noprims.imp" L_00c9:; #line 1326 "pass1v84-noprims.imp" goto U_1013; #line 1326 "pass1v84-noprims.imp" L_00ca:; // 1327 read sym _imp_current_line = 1327; _imp_current_file = "pass1v84-noprims.imp"; #line 1327 "pass1v84-noprims.imp" READSYM(); // 1328 %FINISH _imp_current_line = 1328; _imp_current_file = "pass1v84-noprims.imp"; #line 1328 "pass1v84-noprims.imp" L_00c8:; // 1329 l = 1 _imp_current_line = 1329; _imp_current_file = "pass1v84-noprims.imp"; #line 1329 "pass1v84-noprims.imp" L = 1; // 1330 %FINISH _imp_current_line = 1330; _imp_current_file = "pass1v84-noprims.imp"; #line 1330 "pass1v84-noprims.imp" L_00c7:; // 1331 k = k+l _imp_current_line = 1331; _imp_current_file = "pass1v84-noprims.imp"; #line 1331 "pass1v84-noprims.imp" K = (((int)(K)) + (L)); // 1332 %FINISH _imp_current_line = 1332; _imp_current_file = "pass1v84-noprims.imp"; #line 1332 "pass1v84-noprims.imp" L_00c6:; // 1333 %REPEAT _imp_current_line = 1333; _imp_current_file = "pass1v84-noprims.imp"; #line 1333 "pass1v84-noprims.imp" goto L_00c0; #line 1333 "pass1v84-noprims.imp" L_00c1:; // 1334 atom1 = j&127 _imp_current_line = 1334; _imp_current_file = "pass1v84-noprims.imp"; #line 1334 "pass1v84-noprims.imp" ATOM1 = ((J) & (127)); // 1335 %IF atom1 = 0 %START; !comma _imp_current_line = 1335; _imp_current_file = "pass1v84-noprims.imp"; #line 1335 "pass1v84-noprims.imp" if (((ATOM1) != (0))) goto L_00cb; // 1336 atom1 = 19; subatom = 19; atom2 = 0 _imp_current_line = 1336; _imp_current_file = "pass1v84-noprims.imp"; #line 1336 "pass1v84-noprims.imp" ATOM1 = 19; _imp_current_line = 1336; _imp_current_file = "pass1v84-noprims.imp"; #line 1336 "pass1v84-noprims.imp" SUBATOM = 19; _imp_current_line = 1336; _imp_current_file = "pass1v84-noprims.imp"; #line 1336 "pass1v84-noprims.imp" ATOM2 = 0; // 1337 %IF sym = nl %START _imp_current_line = 1337; _imp_current_file = "pass1v84-noprims.imp"; #line 1337 "pass1v84-noprims.imp" if (((SYM) != (10))) goto L_00cc; // 1338 %RETURN %IF ocount >= 0 _imp_current_line = 1338; _imp_current_file = "pass1v84-noprims.imp"; #line 1338 "pass1v84-noprims.imp" if (((OCOUNT) < (0))) goto L_00cd; #line 1338 "pass1v84-noprims.imp" return; #line 1338 "pass1v84-noprims.imp" L_00cd:; // 1339 // 1340 !special action needs to be taken with as // 1341 !const array lists can be enormous // 1342 // 1343 read sym _imp_current_line = 1343; _imp_current_file = "pass1v84-noprims.imp"; #line 1343 "pass1v84-noprims.imp" READSYM(); // 1344 %FINISH _imp_current_line = 1344; _imp_current_file = "pass1v84-noprims.imp"; #line 1344 "pass1v84-noprims.imp" L_00cc:; // 1345 %RETURN _imp_current_line = 1345; _imp_current_file = "pass1v84-noprims.imp"; #line 1345 "pass1v84-noprims.imp" return; // 1346 %FINISH _imp_current_line = 1346; _imp_current_file = "pass1v84-noprims.imp"; #line 1346 "pass1v84-noprims.imp" L_00cb:; // 1347 atom2 = j>>7&127 _imp_current_line = 1347; _imp_current_file = "pass1v84-noprims.imp"; #line 1347 "pass1v84-noprims.imp" ATOM2 = (((int)((((unsigned int)(J)) >> (7)))) & (127)); // 1348 subatom = kdict(k+1)&x'3fff' _imp_current_line = 1348; _imp_current_file = "pass1v84-noprims.imp"; #line 1348 "pass1v84-noprims.imp" SUBATOM = (((KDICT-32)[(((int)(K)) + (1))]) & (16383)); // 1349 !!!!!cont = ' ' // 1350 %RETURN _imp_current_line = 1350; _imp_current_file = "pass1v84-noprims.imp"; #line 1350 "pass1v84-noprims.imp" return; // 1351 // 1352 !report an error. adjust the error marker (pos1) to point // 1353 !to the faulty character in an atom, but care needs to be taken // 1354 !to prevent misleading reports in cases like ...????? // 1355 // 1356 err: atom1 = error+1; atom2 = 0 _imp_current_line = 1356; _imp_current_file = "pass1v84-noprims.imp"; #line 1356 "pass1v84-noprims.imp" U_1013:; _imp_current_line = 1356; _imp_current_file = "pass1v84-noprims.imp"; #line 1356 "pass1v84-noprims.imp" ATOM1 = 32769; _imp_current_line = 1356; _imp_current_file = "pass1v84-noprims.imp"; #line 1356 "pass1v84-noprims.imp" ATOM2 = 0; // 1357 pos1 = pos %IF pos-pos1 > 2 _imp_current_line = 1357; _imp_current_file = "pass1v84-noprims.imp"; #line 1357 "pass1v84-noprims.imp" if ((((((int)(POS)) - (POS1))) <= (2))) goto L_00ce; #line 1357 "pass1v84-noprims.imp" POS1 = POS; #line 1357 "pass1v84-noprims.imp" L_00ce:; // 1358 %RETURN _imp_current_line = 1358; _imp_current_file = "pass1v84-noprims.imp"; #line 1358 "pass1v84-noprims.imp" return; // 1359 // 1360 !take care with strings and symbol constants. // 1361 !make sure the constant is valid here before sucking it in // 1362 !(and potentially loosing many lines) // 1363 // 1364 symbols:atom1 = var; atom2 = const; type = integer _imp_current_line = 1364; _imp_current_file = "pass1v84-noprims.imp"; #line 1364 "pass1v84-noprims.imp" U_1012:; _imp_current_line = 1364; _imp_current_file = "pass1v84-noprims.imp"; #line 1364 "pass1v84-noprims.imp" ATOM1 = 91; _imp_current_line = 1364; _imp_current_file = "pass1v84-noprims.imp"; #line 1364 "pass1v84-noprims.imp" ATOM2 = 93; _imp_current_line = 1364; _imp_current_file = "pass1v84-noprims.imp"; #line 1364 "pass1v84-noprims.imp" TYPE = 1; // 1365 map gg = const; protection = prot _imp_current_line = 1365; _imp_current_file = "pass1v84-noprims.imp"; #line 1365 "pass1v84-noprims.imp" MAPGG = 93; _imp_current_line = 1365; _imp_current_file = "pass1v84-noprims.imp"; #line 1365 "pass1v84-noprims.imp" PROTECTION = 256; // 1366 subatom = lp; abandon(3) %IF lp >= lit max _imp_current_line = 1366; _imp_current_file = "pass1v84-noprims.imp"; #line 1366 "pass1v84-noprims.imp" SUBATOM = LP; _imp_current_line = 1366; _imp_current_file = "pass1v84-noprims.imp"; #line 1366 "pass1v84-noprims.imp" if (((LP) < (50))) goto L_00cf; #line 1366 "pass1v84-noprims.imp" ABANDON(3); #line 1366 "pass1v84-noprims.imp" L_00cf:; // 1367 quote = \pend quote _imp_current_line = 1367; _imp_current_file = "pass1v84-noprims.imp"; #line 1367 "pass1v84-noprims.imp" QUOTE = (~(PENDQUOTE)); // 1368 %RETURN _imp_current_line = 1368; _imp_current_file = "pass1v84-noprims.imp"; #line 1368 "pass1v84-noprims.imp" return; // 1369 // 1370 !an integer constant is acceptable so get it in and // 1371 !get the next atom // 1372 // 1373 chars:n = 0; cont = cquote _imp_current_line = 1373; _imp_current_file = "pass1v84-noprims.imp"; #line 1373 "pass1v84-noprims.imp" U_1014:; _imp_current_line = 1373; _imp_current_file = "pass1v84-noprims.imp"; #line 1373 "pass1v84-noprims.imp" N = 0; _imp_current_line = 1373; _imp_current_file = "pass1v84-noprims.imp"; #line 1373 "pass1v84-noprims.imp" CONT = 39; // 1374 %CYCLE _imp_current_line = 1374; _imp_current_file = "pass1v84-noprims.imp"; #line 1374 "pass1v84-noprims.imp" L_00d0:; // 1375 read sym _imp_current_line = 1375; _imp_current_file = "pass1v84-noprims.imp"; #line 1375 "pass1v84-noprims.imp" READSYM(); // 1376 %IF sym = cquote %START _imp_current_line = 1376; _imp_current_file = "pass1v84-noprims.imp"; #line 1376 "pass1v84-noprims.imp" if (((SYM) != (39))) goto L_00d3; // 1377 %EXIT %IF nextsymbol # cquote _imp_current_line = 1377; _imp_current_file = "pass1v84-noprims.imp"; #line 1377 "pass1v84-noprims.imp" if (((_imp_NEXTSYMBOL()) == (39))) goto L_00d4; #line 1377 "pass1v84-noprims.imp" goto L_00d1; #line 1377 "pass1v84-noprims.imp" L_00d4:; // 1378 read sym _imp_current_line = 1378; _imp_current_file = "pass1v84-noprims.imp"; #line 1378 "pass1v84-noprims.imp" READSYM(); // 1379 %FINISH _imp_current_line = 1379; _imp_current_file = "pass1v84-noprims.imp"; #line 1379 "pass1v84-noprims.imp" L_00d3:; // 1380 %IF n&(\((-1)>>byte size)) # 0 %START; ! overflow _imp_current_line = 1380; _imp_current_file = "pass1v84-noprims.imp"; #line 1380 "pass1v84-noprims.imp" if (((((N) & ((~((int)((((unsigned int)((-1))) >> (8)))))))) == (0))) goto L_00d5; // 1381 pos1 = pos; atom1 = error+10; %RETURN _imp_current_line = 1381; _imp_current_file = "pass1v84-noprims.imp"; #line 1381 "pass1v84-noprims.imp" POS1 = POS; _imp_current_line = 1381; _imp_current_file = "pass1v84-noprims.imp"; #line 1381 "pass1v84-noprims.imp" ATOM1 = 32778; _imp_current_line = 1381; _imp_current_file = "pass1v84-noprims.imp"; #line 1381 "pass1v84-noprims.imp" return; // 1382 %FINISH _imp_current_line = 1382; _imp_current_file = "pass1v84-noprims.imp"; #line 1382 "pass1v84-noprims.imp" L_00d5:; // 1383 ->err %IF quote = 0 _imp_current_line = 1383; _imp_current_file = "pass1v84-noprims.imp"; #line 1383 "pass1v84-noprims.imp" if (((QUOTE) != (0))) goto L_00d6; #line 1383 "pass1v84-noprims.imp" goto U_1013; #line 1383 "pass1v84-noprims.imp" L_00d6:; // 1384 n = n<top _imp_current_line = 1390; _imp_current_file = "pass1v84-noprims.imp"; #line 1390 "pass1v84-noprims.imp" goto U_100d; // 1391 // 1392 !sniff the grammar before getting the string // 1393 // 1394 strings:atom1 = var; atom2 = const; type = stringv _imp_current_line = 1394; _imp_current_file = "pass1v84-noprims.imp"; #line 1394 "pass1v84-noprims.imp" U_1011:; _imp_current_line = 1394; _imp_current_file = "pass1v84-noprims.imp"; #line 1394 "pass1v84-noprims.imp" ATOM1 = 91; _imp_current_line = 1394; _imp_current_file = "pass1v84-noprims.imp"; #line 1394 "pass1v84-noprims.imp" ATOM2 = 93; _imp_current_line = 1394; _imp_current_file = "pass1v84-noprims.imp"; #line 1394 "pass1v84-noprims.imp" TYPE = 3; // 1395 subatom = (strp-stbase)!x'4000' _imp_current_line = 1395; _imp_current_file = "pass1v84-noprims.imp"; #line 1395 "pass1v84-noprims.imp" SUBATOM = (((((int)(STRP)) - (STBASE))) | (16384)); // 1396 map gg = const; protection = prot _imp_current_line = 1396; _imp_current_file = "pass1v84-noprims.imp"; #line 1396 "pass1v84-noprims.imp" MAPGG = 93; _imp_current_line = 1396; _imp_current_file = "pass1v84-noprims.imp"; #line 1396 "pass1v84-noprims.imp" PROTECTION = 256; // 1397 quote = subatom _imp_current_line = 1397; _imp_current_file = "pass1v84-noprims.imp"; #line 1397 "pass1v84-noprims.imp" QUOTE = SUBATOM; // 1398 text line = lines; !in case of errors _imp_current_line = 1398; _imp_current_file = "pass1v84-noprims.imp"; #line 1398 "pass1v84-noprims.imp" TEXTLINE = LINES; // 1399 %RETURN _imp_current_line = 1399; _imp_current_file = "pass1v84-noprims.imp"; #line 1399 "pass1v84-noprims.imp" return; // 1400 // 1401 !a string constant is ok here, so pull it in and get // 1402 !the next atom // 1403 // 1404 text: ->chars %IF quote < 0; !character consts _imp_current_line = 1404; _imp_current_file = "pass1v84-noprims.imp"; #line 1404 "pass1v84-noprims.imp" U_1010:; _imp_current_line = 1404; _imp_current_file = "pass1v84-noprims.imp"; #line 1404 "pass1v84-noprims.imp" if (((QUOTE) >= (0))) goto L_00d8; #line 1404 "pass1v84-noprims.imp" goto U_1014; #line 1404 "pass1v84-noprims.imp" L_00d8:; // 1405 l = strp; n = strp _imp_current_line = 1405; _imp_current_file = "pass1v84-noprims.imp"; #line 1405 "pass1v84-noprims.imp" L = STRP; _imp_current_line = 1405; _imp_current_file = "pass1v84-noprims.imp"; #line 1405 "pass1v84-noprims.imp" N = STRP; // 1406 j = addr(glink(gmin-1)); !absolute limit _imp_current_line = 1406; _imp_current_file = "pass1v84-noprims.imp"; #line 1406 "pass1v84-noprims.imp" J = _imp_ADDR(&GLINK[(((int)(GMIN)) - (1))]); // 1407 k = l+256; !string length limit _imp_current_line = 1407; _imp_current_file = "pass1v84-noprims.imp"; #line 1407 "pass1v84-noprims.imp" K = (((int)(L)) + (256)); // 1408 k = j %IF j < k; !choose lower _imp_current_line = 1408; _imp_current_file = "pass1v84-noprims.imp"; #line 1408 "pass1v84-noprims.imp" if (((J) >= (K))) goto L_00d9; #line 1408 "pass1v84-noprims.imp" K = J; #line 1408 "pass1v84-noprims.imp" L_00d9:; // 1409 // 1410 %CYCLE _imp_current_line = 1410; _imp_current_file = "pass1v84-noprims.imp"; #line 1410 "pass1v84-noprims.imp" L_00da:; // 1411 cont = squote; quote = 1 _imp_current_line = 1411; _imp_current_file = "pass1v84-noprims.imp"; #line 1411 "pass1v84-noprims.imp" CONT = 34; _imp_current_line = 1411; _imp_current_file = "pass1v84-noprims.imp"; #line 1411 "pass1v84-noprims.imp" QUOTE = 1; // 1412 %CYCLE _imp_current_line = 1412; _imp_current_file = "pass1v84-noprims.imp"; #line 1412 "pass1v84-noprims.imp" L_00dd:; // 1413 read sym _imp_current_line = 1413; _imp_current_file = "pass1v84-noprims.imp"; #line 1413 "pass1v84-noprims.imp" READSYM(); // 1414 %IF sym = squote %START; !terminator? _imp_current_line = 1414; _imp_current_file = "pass1v84-noprims.imp"; #line 1414 "pass1v84-noprims.imp" if (((SYM) != (34))) goto L_00e0; // 1415 %EXIT %IF nextsymbol # squote; !yes -> _imp_current_line = 1415; _imp_current_file = "pass1v84-noprims.imp"; #line 1415 "pass1v84-noprims.imp" if (((_imp_NEXTSYMBOL()) == (34))) goto L_00e1; #line 1415 "pass1v84-noprims.imp" goto L_00de; #line 1415 "pass1v84-noprims.imp" L_00e1:; // 1416 read sym; ! skip quote _imp_current_line = 1416; _imp_current_file = "pass1v84-noprims.imp"; #line 1416 "pass1v84-noprims.imp" READSYM(); // 1417 %FINISH _imp_current_line = 1417; _imp_current_file = "pass1v84-noprims.imp"; #line 1417 "pass1v84-noprims.imp" L_00e0:; // 1418 l = l+1; byteinteger(l) = sym _imp_current_line = 1418; _imp_current_file = "pass1v84-noprims.imp"; #line 1418 "pass1v84-noprims.imp" L = (((int)(L)) + (1)); _imp_current_line = 1418; _imp_current_file = "pass1v84-noprims.imp"; #line 1418 "pass1v84-noprims.imp" *_imp_BYTEINTEGER(L) = SYM; // 1419 lines = text line %AND abandon(7) %IF l >= k; !too many chars _imp_current_line = 1419; _imp_current_file = "pass1v84-noprims.imp"; #line 1419 "pass1v84-noprims.imp" if (((L) < (K))) goto L_00e2; #line 1419 "pass1v84-noprims.imp" LINES = TEXTLINE; #line 1419 "pass1v84-noprims.imp" ABANDON(7); #line 1419 "pass1v84-noprims.imp" L_00e2:; // 1420 %REPEAT _imp_current_line = 1420; _imp_current_file = "pass1v84-noprims.imp"; #line 1420 "pass1v84-noprims.imp" goto L_00dd; #line 1420 "pass1v84-noprims.imp" L_00de:; // 1421 byteinteger(n) = l-n; !plug in length _imp_current_line = 1421; _imp_current_file = "pass1v84-noprims.imp"; #line 1421 "pass1v84-noprims.imp" *_imp_BYTEINTEGER(N) = (((int)(L)) - (N)); // 1422 // 1423 strp = l+1; !ready for next string _imp_current_line = 1423; _imp_current_file = "pass1v84-noprims.imp"; #line 1423 "pass1v84-noprims.imp" STRP = (((int)(L)) + (1)); // 1424 quote = 0; cont = ' '; read sym _imp_current_line = 1424; _imp_current_file = "pass1v84-noprims.imp"; #line 1424 "pass1v84-noprims.imp" QUOTE = 0; _imp_current_line = 1424; _imp_current_file = "pass1v84-noprims.imp"; #line 1424 "pass1v84-noprims.imp" CONT = 32; _imp_current_line = 1424; _imp_current_file = "pass1v84-noprims.imp"; #line 1424 "pass1v84-noprims.imp" READSYM(); // 1425 code atom(target) _imp_current_line = 1425; _imp_current_file = "pass1v84-noprims.imp"; #line 1425 "pass1v84-noprims.imp" CODEATOM(TARGET); // 1426 %RETURN %UNLESS atom1 = 48 %AND sym = squote; !fold "???"."+++" _imp_current_line = 1426; _imp_current_file = "pass1v84-noprims.imp"; #line 1426 "pass1v84-noprims.imp" if (((ATOM1) != (48))) goto L_00df; #line 1426 "pass1v84-noprims.imp" if (((SYM) == (34))) goto L_00e3; #line 1426 "pass1v84-noprims.imp" L_00df:; #line 1426 "pass1v84-noprims.imp" return; #line 1426 "pass1v84-noprims.imp" L_00e3:; // 1427 %REPEAT _imp_current_line = 1427; _imp_current_file = "pass1v84-noprims.imp"; #line 1427 "pass1v84-noprims.imp" goto L_00da; // 1428 // 1429 %ROUTINE get(%INTEGER limit) _imp_current_line = 1429; _imp_current_file = "pass1v84-noprims.imp"; #line 1429 "pass1v84-noprims.imp" void GET( int LIMIT ) #line 1429 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 1430 %INTEGER s, shift _imp_current_line = 1430; _imp_current_file = "pass1v84-noprims.imp"; #line 1430 "pass1v84-noprims.imp" int S; #line 1430 "pass1v84-noprims.imp" int SHIFT; // 1431 shift = 0 _imp_current_line = 1431; _imp_current_file = "pass1v84-noprims.imp"; #line 1431 "pass1v84-noprims.imp" SHIFT = 0; // 1432 %IF base # 10 %START _imp_current_line = 1432; _imp_current_file = "pass1v84-noprims.imp"; #line 1432 "pass1v84-noprims.imp" if (((BASE) == (10))) goto L_00db; // 1433 %IF base = 16 %START _imp_current_line = 1433; _imp_current_file = "pass1v84-noprims.imp"; #line 1433 "pass1v84-noprims.imp" if (((BASE) != (16))) goto L_00e4; // 1434 shift = 4 _imp_current_line = 1434; _imp_current_file = "pass1v84-noprims.imp"; #line 1434 "pass1v84-noprims.imp" SHIFT = 4; // 1435 %FINISH %ELSE %START _imp_current_line = 1435; _imp_current_file = "pass1v84-noprims.imp"; #line 1435 "pass1v84-noprims.imp" goto L_00e5; #line 1435 "pass1v84-noprims.imp" L_00e4:; // 1436 %IF base = 8 %START _imp_current_line = 1436; _imp_current_file = "pass1v84-noprims.imp"; #line 1436 "pass1v84-noprims.imp" if (((BASE) != (8))) goto L_00e6; // 1437 shift = 3 _imp_current_line = 1437; _imp_current_file = "pass1v84-noprims.imp"; #line 1437 "pass1v84-noprims.imp" SHIFT = 3; // 1438 %FINISH %ELSE %START _imp_current_line = 1438; _imp_current_file = "pass1v84-noprims.imp"; #line 1438 "pass1v84-noprims.imp" goto L_00e7; #line 1438 "pass1v84-noprims.imp" L_00e6:; // 1439 %IF base = 2 %START _imp_current_line = 1439; _imp_current_file = "pass1v84-noprims.imp"; #line 1439 "pass1v84-noprims.imp" if (((BASE) != (2))) goto L_00e8; // 1440 shift = 1 _imp_current_line = 1440; _imp_current_file = "pass1v84-noprims.imp"; #line 1440 "pass1v84-noprims.imp" SHIFT = 1; // 1441 %FINISH _imp_current_line = 1441; _imp_current_file = "pass1v84-noprims.imp"; #line 1441 "pass1v84-noprims.imp" L_00e8:; // 1442 %FINISH _imp_current_line = 1442; _imp_current_file = "pass1v84-noprims.imp"; #line 1442 "pass1v84-noprims.imp" L_00e7:; // 1443 %FINISH _imp_current_line = 1443; _imp_current_file = "pass1v84-noprims.imp"; #line 1443 "pass1v84-noprims.imp" L_00e5:; // 1444 %FINISH _imp_current_line = 1444; _imp_current_file = "pass1v84-noprims.imp"; #line 1444 "pass1v84-noprims.imp" L_00db:; // 1445 n = 0 _imp_current_line = 1445; _imp_current_file = "pass1v84-noprims.imp"; #line 1445 "pass1v84-noprims.imp" N = 0; // 1446 %CYCLE _imp_current_line = 1446; _imp_current_file = "pass1v84-noprims.imp"; #line 1446 "pass1v84-noprims.imp" L_00e9:; // 1447 %IF symtype = -1 %START; !digit _imp_current_line = 1447; _imp_current_file = "pass1v84-noprims.imp"; #line 1447 "pass1v84-noprims.imp" if (((SYMTYPE) != ((-1)))) goto L_00ec; // 1448 s = sym-'0' _imp_current_line = 1448; _imp_current_file = "pass1v84-noprims.imp"; #line 1448 "pass1v84-noprims.imp" S = (((int)(SYM)) - (48)); // 1449 %FINISH %ELSE %START _imp_current_line = 1449; _imp_current_file = "pass1v84-noprims.imp"; #line 1449 "pass1v84-noprims.imp" goto L_00ed; #line 1449 "pass1v84-noprims.imp" L_00ec:; // 1450 %IF symtype < 0 %START; !letter _imp_current_line = 1450; _imp_current_file = "pass1v84-noprims.imp"; #line 1450 "pass1v84-noprims.imp" if (((SYMTYPE) >= (0))) goto L_00ee; // 1451 s = sym-'A'+10 _imp_current_line = 1451; _imp_current_file = "pass1v84-noprims.imp"; #line 1451 "pass1v84-noprims.imp" S = (((int)((((int)(SYM)) - (65)))) + (10)); // 1452 %FINISH %ELSE %START _imp_current_line = 1452; _imp_current_file = "pass1v84-noprims.imp"; #line 1452 "pass1v84-noprims.imp" goto L_00ef; #line 1452 "pass1v84-noprims.imp" L_00ee:; // 1453 %RETURN _imp_current_line = 1453; _imp_current_file = "pass1v84-noprims.imp"; #line 1453 "pass1v84-noprims.imp" return; // 1454 %FINISH _imp_current_line = 1454; _imp_current_file = "pass1v84-noprims.imp"; #line 1454 "pass1v84-noprims.imp" L_00ef:; // 1455 %FINISH _imp_current_line = 1455; _imp_current_file = "pass1v84-noprims.imp"; #line 1455 "pass1v84-noprims.imp" L_00ed:; // 1456 %RETURN %IF s >= limit _imp_current_line = 1456; _imp_current_file = "pass1v84-noprims.imp"; #line 1456 "pass1v84-noprims.imp" if (((S) < (LIMIT))) goto L_00f0; #line 1456 "pass1v84-noprims.imp" return; #line 1456 "pass1v84-noprims.imp" L_00f0:; // 1457 pt = pt+1; byteinteger(pt) = sym _imp_current_line = 1457; _imp_current_file = "pass1v84-noprims.imp"; #line 1457 "pass1v84-noprims.imp" PT = (((int)(PT)) + (1)); _imp_current_line = 1457; _imp_current_file = "pass1v84-noprims.imp"; #line 1457 "pass1v84-noprims.imp" *_imp_BYTEINTEGER(PT) = SYM; // 1458 %IF base = 10 %START; !check overflow _imp_current_line = 1458; _imp_current_file = "pass1v84-noprims.imp"; #line 1458 "pass1v84-noprims.imp" if (((BASE) != (10))) goto L_00f1; // 1459 %IF n >= max int %AND (s > max dig %OR n > max int) %START _imp_current_line = 1459; _imp_current_file = "pass1v84-noprims.imp"; #line 1459 "pass1v84-noprims.imp" if (((N) < (214748364))) goto L_00f2; #line 1459 "pass1v84-noprims.imp" if (((S) > (7))) goto L_0080; #line 1459 "pass1v84-noprims.imp" if (((N) <= (214748364))) goto L_00f2; #line 1459 "pass1v84-noprims.imp" L_0080:; // 1460 // 1461 !too big for an integer, // 1462 !so call it a real // 1463 // 1464 base = 0; type = real; n = 0 _imp_current_line = 1464; _imp_current_file = "pass1v84-noprims.imp"; #line 1464 "pass1v84-noprims.imp" BASE = 0; _imp_current_line = 1464; _imp_current_file = "pass1v84-noprims.imp"; #line 1464 "pass1v84-noprims.imp" TYPE = 2; _imp_current_line = 1464; _imp_current_file = "pass1v84-noprims.imp"; #line 1464 "pass1v84-noprims.imp" N = 0; // 1465 %FINISH _imp_current_line = 1465; _imp_current_file = "pass1v84-noprims.imp"; #line 1465 "pass1v84-noprims.imp" L_00f2:; // 1466 %FINISH _imp_current_line = 1466; _imp_current_file = "pass1v84-noprims.imp"; #line 1466 "pass1v84-noprims.imp" L_00f1:; // 1467 %IF shift = 0 %START _imp_current_line = 1467; _imp_current_file = "pass1v84-noprims.imp"; #line 1467 "pass1v84-noprims.imp" if (((SHIFT) != (0))) goto L_00f3; // 1468 n = n*base+s _imp_current_line = 1468; _imp_current_file = "pass1v84-noprims.imp"; #line 1468 "pass1v84-noprims.imp" N = (((int)((((int)(N)) * (BASE)))) + (S)); // 1469 %FINISH %ELSE %START _imp_current_line = 1469; _imp_current_file = "pass1v84-noprims.imp"; #line 1469 "pass1v84-noprims.imp" goto L_00f4; #line 1469 "pass1v84-noprims.imp" L_00f3:; // 1470 n = n<= lit max _imp_current_line = 1479; _imp_current_file = "pass1v84-noprims.imp"; #line 1479 "pass1v84-noprims.imp" if (((LP) < (50))) goto L_00ea; #line 1479 "pass1v84-noprims.imp" ABANDON(3); #line 1479 "pass1v84-noprims.imp" L_00ea:; // 1480 pt = strp; mul = 0 _imp_current_line = 1480; _imp_current_file = "pass1v84-noprims.imp"; #line 1480 "pass1v84-noprims.imp" PT = STRP; _imp_current_line = 1480; _imp_current_file = "pass1v84-noprims.imp"; #line 1480 "pass1v84-noprims.imp" MUL = 0; // 1481 %CYCLE _imp_current_line = 1481; _imp_current_file = "pass1v84-noprims.imp"; #line 1481 "pass1v84-noprims.imp" L_00f5:; // 1482 get(base) _imp_current_line = 1482; _imp_current_file = "pass1v84-noprims.imp"; #line 1482 "pass1v84-noprims.imp" GET(BASE); // 1483 %EXIT %UNLESS sym = '_' %AND base # 0 %AND pend quote = 0; !change of base _imp_current_line = 1483; _imp_current_file = "pass1v84-noprims.imp"; #line 1483 "pass1v84-noprims.imp" if (((SYM) != (95))) goto L_00f8; #line 1483 "pass1v84-noprims.imp" if (((BASE) == (0))) goto L_00f8; #line 1483 "pass1v84-noprims.imp" if (((PENDQUOTE) == (0))) goto L_00f9; #line 1483 "pass1v84-noprims.imp" L_00f8:; #line 1483 "pass1v84-noprims.imp" goto L_00f6; #line 1483 "pass1v84-noprims.imp" L_00f9:; // 1484 pt = pt+1; byteinteger(pt) = '_' _imp_current_line = 1484; _imp_current_file = "pass1v84-noprims.imp"; #line 1484 "pass1v84-noprims.imp" PT = (((int)(PT)) + (1)); _imp_current_line = 1484; _imp_current_file = "pass1v84-noprims.imp"; #line 1484 "pass1v84-noprims.imp" *_imp_BYTEINTEGER(PT) = 95; // 1485 read sym _imp_current_line = 1485; _imp_current_file = "pass1v84-noprims.imp"; #line 1485 "pass1v84-noprims.imp" READSYM(); // 1486 base = n _imp_current_line = 1486; _imp_current_file = "pass1v84-noprims.imp"; #line 1486 "pass1v84-noprims.imp" BASE = N; // 1487 %REPEAT _imp_current_line = 1487; _imp_current_file = "pass1v84-noprims.imp"; #line 1487 "pass1v84-noprims.imp" goto L_00f5; #line 1487 "pass1v84-noprims.imp" L_00f6:; // 1488 // 1489 %IF pend quote # 0 %START _imp_current_line = 1489; _imp_current_file = "pass1v84-noprims.imp"; #line 1489 "pass1v84-noprims.imp" if (((PENDQUOTE) == (0))) goto L_00fa; // 1490 ->err %IF sym # cquote _imp_current_line = 1490; _imp_current_file = "pass1v84-noprims.imp"; #line 1490 "pass1v84-noprims.imp" if (((SYM) == (39))) goto L_00fb; #line 1490 "pass1v84-noprims.imp" goto U_1013; #line 1490 "pass1v84-noprims.imp" L_00fb:; // 1491 readsym _imp_current_line = 1491; _imp_current_file = "pass1v84-noprims.imp"; #line 1491 "pass1v84-noprims.imp" READSYM(); // 1492 %FINISH _imp_current_line = 1492; _imp_current_file = "pass1v84-noprims.imp"; #line 1492 "pass1v84-noprims.imp" L_00fa:; // 1493 %IF sym = '.' %START; !a real constant _imp_current_line = 1493; _imp_current_file = "pass1v84-noprims.imp"; #line 1493 "pass1v84-noprims.imp" if (((SYM) != (46))) goto L_00fc; // 1494 pt = pt+1; byteinteger(pt) = '.' _imp_current_line = 1494; _imp_current_file = "pass1v84-noprims.imp"; #line 1494 "pass1v84-noprims.imp" PT = (((int)(PT)) + (1)); _imp_current_line = 1494; _imp_current_file = "pass1v84-noprims.imp"; #line 1494 "pass1v84-noprims.imp" *_imp_BYTEINTEGER(PT) = 46; // 1495 read sym _imp_current_line = 1495; _imp_current_file = "pass1v84-noprims.imp"; #line 1495 "pass1v84-noprims.imp" READSYM(); // 1496 type = real; n = base; base = 0; get(n) _imp_current_line = 1496; _imp_current_file = "pass1v84-noprims.imp"; #line 1496 "pass1v84-noprims.imp" TYPE = 2; _imp_current_line = 1496; _imp_current_file = "pass1v84-noprims.imp"; #line 1496 "pass1v84-noprims.imp" N = BASE; _imp_current_line = 1496; _imp_current_file = "pass1v84-noprims.imp"; #line 1496 "pass1v84-noprims.imp" BASE = 0; _imp_current_line = 1496; _imp_current_file = "pass1v84-noprims.imp"; #line 1496 "pass1v84-noprims.imp" GET(N); // 1497 %FINISH _imp_current_line = 1497; _imp_current_file = "pass1v84-noprims.imp"; #line 1497 "pass1v84-noprims.imp" L_00fc:; // 1498 // 1499 %IF sym = '@' %START; !an exponent _imp_current_line = 1499; _imp_current_file = "pass1v84-noprims.imp"; #line 1499 "pass1v84-noprims.imp" if (((SYM) != (64))) goto L_00fd; // 1500 pt = pt+1; byteinteger(pt) = '@'; k = pt _imp_current_line = 1500; _imp_current_file = "pass1v84-noprims.imp"; #line 1500 "pass1v84-noprims.imp" PT = (((int)(PT)) + (1)); _imp_current_line = 1500; _imp_current_file = "pass1v84-noprims.imp"; #line 1500 "pass1v84-noprims.imp" *_imp_BYTEINTEGER(PT) = 64; _imp_current_line = 1500; _imp_current_file = "pass1v84-noprims.imp"; #line 1500 "pass1v84-noprims.imp" K = PT; // 1501 readsym _imp_current_line = 1501; _imp_current_file = "pass1v84-noprims.imp"; #line 1501 "pass1v84-noprims.imp" READSYM(); // 1502 type = integer; base = 10 _imp_current_line = 1502; _imp_current_file = "pass1v84-noprims.imp"; #line 1502 "pass1v84-noprims.imp" TYPE = 1; _imp_current_line = 1502; _imp_current_file = "pass1v84-noprims.imp"; #line 1502 "pass1v84-noprims.imp" BASE = 10; // 1503 %IF sym = '-' %START _imp_current_line = 1503; _imp_current_file = "pass1v84-noprims.imp"; #line 1503 "pass1v84-noprims.imp" if (((SYM) != (45))) goto L_00fe; // 1504 read sym; get(10); n = -n _imp_current_line = 1504; _imp_current_file = "pass1v84-noprims.imp"; #line 1504 "pass1v84-noprims.imp" READSYM(); _imp_current_line = 1504; _imp_current_file = "pass1v84-noprims.imp"; #line 1504 "pass1v84-noprims.imp" GET(10); _imp_current_line = 1504; _imp_current_file = "pass1v84-noprims.imp"; #line 1504 "pass1v84-noprims.imp" N = (-(N)); // 1505 %FINISH %ELSE %START _imp_current_line = 1505; _imp_current_file = "pass1v84-noprims.imp"; #line 1505 "pass1v84-noprims.imp" goto L_00ff; #line 1505 "pass1v84-noprims.imp" L_00fe:; // 1506 get(10) _imp_current_line = 1506; _imp_current_file = "pass1v84-noprims.imp"; #line 1506 "pass1v84-noprims.imp" GET(10); // 1507 %FINISH _imp_current_line = 1507; _imp_current_file = "pass1v84-noprims.imp"; #line 1507 "pass1v84-noprims.imp" L_00ff:; // 1508 pt = k+1; byteinteger(pt) = lp; litpool(lp) = n; lp = lp+1 _imp_current_line = 1508; _imp_current_file = "pass1v84-noprims.imp"; #line 1508 "pass1v84-noprims.imp" PT = (((int)(K)) + (1)); _imp_current_line = 1508; _imp_current_file = "pass1v84-noprims.imp"; #line 1508 "pass1v84-noprims.imp" *_imp_BYTEINTEGER(PT) = LP; _imp_current_line = 1508; _imp_current_file = "pass1v84-noprims.imp"; #line 1508 "pass1v84-noprims.imp" LITPOOL[LP] = N; _imp_current_line = 1508; _imp_current_file = "pass1v84-noprims.imp"; #line 1508 "pass1v84-noprims.imp" LP = (((int)(LP)) + (1)); // 1509 atom1 = error+10 %IF base = 0 _imp_current_line = 1509; _imp_current_file = "pass1v84-noprims.imp"; #line 1509 "pass1v84-noprims.imp" if (((BASE) != (0))) goto L_0100; #line 1509 "pass1v84-noprims.imp" ATOM1 = 32778; #line 1509 "pass1v84-noprims.imp" L_0100:; // 1510 type = real; !exponents force the type _imp_current_line = 1510; _imp_current_file = "pass1v84-noprims.imp"; #line 1510 "pass1v84-noprims.imp" TYPE = 2; // 1511 %FINISH _imp_current_line = 1511; _imp_current_file = "pass1v84-noprims.imp"; #line 1511 "pass1v84-noprims.imp" L_00fd:; // 1512 // 1513 %IF type = real %START _imp_current_line = 1513; _imp_current_file = "pass1v84-noprims.imp"; #line 1513 "pass1v84-noprims.imp" if (((TYPE) != (2))) goto L_0101; // 1514 byteinteger(strp) = pt-strp _imp_current_line = 1514; _imp_current_file = "pass1v84-noprims.imp"; #line 1514 "pass1v84-noprims.imp" *_imp_BYTEINTEGER(STRP) = (((int)(PT)) - (STRP)); // 1515 subatom = (strp-stbase)!x'2000'; strp = pt+1 _imp_current_line = 1515; _imp_current_file = "pass1v84-noprims.imp"; #line 1515 "pass1v84-noprims.imp" SUBATOM = (((((int)(STRP)) - (STBASE))) | (8192)); _imp_current_line = 1515; _imp_current_file = "pass1v84-noprims.imp"; #line 1515 "pass1v84-noprims.imp" STRP = (((int)(PT)) + (1)); // 1516 %FINISH %ELSE %START _imp_current_line = 1516; _imp_current_file = "pass1v84-noprims.imp"; #line 1516 "pass1v84-noprims.imp" goto L_0102; #line 1516 "pass1v84-noprims.imp" L_0101:; // 1517 litpool(lp) = n _imp_current_line = 1517; _imp_current_file = "pass1v84-noprims.imp"; #line 1517 "pass1v84-noprims.imp" LITPOOL[LP] = N; // 1518 lp = lp+1 _imp_current_line = 1518; _imp_current_file = "pass1v84-noprims.imp"; #line 1518 "pass1v84-noprims.imp" LP = (((int)(LP)) + (1)); // 1519 %FINISH _imp_current_line = 1519; _imp_current_file = "pass1v84-noprims.imp"; #line 1519 "pass1v84-noprims.imp" L_0102:; // 1520 %RETURN _imp_current_line = 1520; _imp_current_file = "pass1v84-noprims.imp"; #line 1520 "pass1v84-noprims.imp" return; // 1521 // 1522 name: atom1 = 0 %AND %RETURN %IF 27 <= target <= 41 _imp_current_line = 1522; _imp_current_file = "pass1v84-noprims.imp"; #line 1522 "pass1v84-noprims.imp" U_100e:; _imp_current_line = 1522; _imp_current_file = "pass1v84-noprims.imp"; #line 1522 "pass1v84-noprims.imp" if ((((27) > (TARGET))) || (((TARGET) > (41)))) goto L_0103; #line 1522 "pass1v84-noprims.imp" ATOM1 = 0; #line 1522 "pass1v84-noprims.imp" return; #line 1522 "pass1v84-noprims.imp" L_0103:; // 1523 hash value = 0 _imp_current_line = 1523; _imp_current_file = "pass1v84-noprims.imp"; #line 1523 "pass1v84-noprims.imp" HASHVALUE = 0; // 1524 // 1525 !***************************** // 1526 !*machine dependent for speed* // 1527 !***************************** // 1528 // 1529 dp = dmax+1 _imp_current_line = 1529; _imp_current_file = "pass1v84-noprims.imp"; #line 1529 "pass1v84-noprims.imp" DP = (((int)(DMAX)) + (1)); // 1530 da = addr(dict(dp)); dbase = da _imp_current_line = 1530; _imp_current_file = "pass1v84-noprims.imp"; #line 1530 "pass1v84-noprims.imp" DA = _imp_ADDR(&DICT[(((int)(DP)) - (1))]); _imp_current_line = 1530; _imp_current_file = "pass1v84-noprims.imp"; #line 1530 "pass1v84-noprims.imp" DBASE = DA; // 1531 %CYCLE _imp_current_line = 1531; _imp_current_file = "pass1v84-noprims.imp"; #line 1531 "pass1v84-noprims.imp" L_0104:; // 1532 hash value = hash value+(hash value+sym); !is this good enough? _imp_current_line = 1532; _imp_current_file = "pass1v84-noprims.imp"; #line 1532 "pass1v84-noprims.imp" HASHVALUE = ((HASHVALUE) + ((int)((((int)(HASHVALUE)) + (SYM))))); // 1533 da = da+1; byteinteger(da) = sym _imp_current_line = 1533; _imp_current_file = "pass1v84-noprims.imp"; #line 1533 "pass1v84-noprims.imp" DA = (((int)(DA)) + (1)); _imp_current_line = 1533; _imp_current_file = "pass1v84-noprims.imp"; #line 1533 "pass1v84-noprims.imp" *_imp_BYTEINTEGER(DA) = SYM; // 1534 read sym _imp_current_line = 1534; _imp_current_file = "pass1v84-noprims.imp"; #line 1534 "pass1v84-noprims.imp" READSYM(); // 1535 %EXIT %IF symtype >= 0 _imp_current_line = 1535; _imp_current_file = "pass1v84-noprims.imp"; #line 1535 "pass1v84-noprims.imp" if (((SYMTYPE) < (0))) goto L_0107; #line 1535 "pass1v84-noprims.imp" goto L_0105; #line 1535 "pass1v84-noprims.imp" L_0107:; // 1536 %REPEAT _imp_current_line = 1536; _imp_current_file = "pass1v84-noprims.imp"; #line 1536 "pass1v84-noprims.imp" goto L_0104; #line 1536 "pass1v84-noprims.imp" L_0105:; // 1537 %IF sym = cquote %START _imp_current_line = 1537; _imp_current_file = "pass1v84-noprims.imp"; #line 1537 "pass1v84-noprims.imp" if (((SYM) != (39))) goto L_0108; // 1538 pend quote = 100 _imp_current_line = 1538; _imp_current_file = "pass1v84-noprims.imp"; #line 1538 "pass1v84-noprims.imp" PENDQUOTE = 100; // 1539 ->symbols %IF hash value = 'M' _imp_current_line = 1539; _imp_current_file = "pass1v84-noprims.imp"; #line 1539 "pass1v84-noprims.imp" if (((HASHVALUE) != (77))) goto L_0109; #line 1539 "pass1v84-noprims.imp" goto U_1012; #line 1539 "pass1v84-noprims.imp" L_0109:; // 1540 read sym _imp_current_line = 1540; _imp_current_file = "pass1v84-noprims.imp"; #line 1540 "pass1v84-noprims.imp" READSYM(); // 1541 %IF hash value = 'X' %THEN base = 16 %AND ->bxk _imp_current_line = 1541; _imp_current_file = "pass1v84-noprims.imp"; #line 1541 "pass1v84-noprims.imp" if (((HASHVALUE) != (88))) goto L_010a; #line 1541 "pass1v84-noprims.imp" BASE = 16; #line 1541 "pass1v84-noprims.imp" goto U_100c; #line 1541 "pass1v84-noprims.imp" L_010a:; // 1542 %IF hash value = 'K' %C _imp_current_line = 1542; _imp_current_file = "pass1v84-noprims.imp"; #line 1542 "pass1v84-noprims.imp" if (((HASHVALUE) == (75))) goto L_010b; #line 1542 "pass1v84-noprims.imp" if (((HASHVALUE) != (79))) goto L_010c; #line 1542 "pass1v84-noprims.imp" L_010b:; #line 1542 "pass1v84-noprims.imp" BASE = 8; #line 1542 "pass1v84-noprims.imp" goto U_100c; #line 1542 "pass1v84-noprims.imp" L_010c:; // 1543 %OR hash value = 'O' %THEN base = 8 %AND ->bxk // 1544 %IF hash value = 'B' %THEN base = 2 %AND ->bxk _imp_current_line = 1544; _imp_current_file = "pass1v84-noprims.imp"; #line 1544 "pass1v84-noprims.imp" if (((HASHVALUE) != (66))) goto L_010d; #line 1544 "pass1v84-noprims.imp" BASE = 2; #line 1544 "pass1v84-noprims.imp" goto U_100c; #line 1544 "pass1v84-noprims.imp" L_010d:; // 1545 ->err _imp_current_line = 1545; _imp_current_file = "pass1v84-noprims.imp"; #line 1545 "pass1v84-noprims.imp" goto U_1013; // 1546 %FINISH _imp_current_line = 1546; _imp_current_file = "pass1v84-noprims.imp"; #line 1546 "pass1v84-noprims.imp" L_0108:; // 1547 n = da-dbase _imp_current_line = 1547; _imp_current_file = "pass1v84-noprims.imp"; #line 1547 "pass1v84-noprims.imp" N = (((int)(DA)) - (DBASE)); // 1548 byteinteger(dbase) = n _imp_current_line = 1548; _imp_current_file = "pass1v84-noprims.imp"; #line 1548 "pass1v84-noprims.imp" *_imp_BYTEINTEGER(DBASE) = N; // 1549 dp = dp+(n+2)>>1 _imp_current_line = 1549; _imp_current_file = "pass1v84-noprims.imp"; #line 1549 "pass1v84-noprims.imp" DP = ((DP) + ((int)((((((((int)(N)) + (2)))) >> (1)))))); // 1550 abandon(8) %IF dp >= dmin _imp_current_line = 1550; _imp_current_file = "pass1v84-noprims.imp"; #line 1550 "pass1v84-noprims.imp" if (((DP) < (DMIN))) goto L_010e; #line 1550 "pass1v84-noprims.imp" ABANDON(8); #line 1550 "pass1v84-noprims.imp" L_010e:; // 1551 // 1552 atom2 = 90; !ident _imp_current_line = 1552; _imp_current_file = "pass1v84-noprims.imp"; #line 1552 "pass1v84-noprims.imp" ATOM2 = 90; // 1553 %IF last1 = 0 %AND sym = ':' %START; !label _imp_current_line = 1553; _imp_current_file = "pass1v84-noprims.imp"; #line 1553 "pass1v84-noprims.imp" if (((LAST1) != (0))) goto L_010f; #line 1553 "pass1v84-noprims.imp" if (((SYM) != (58))) goto L_010f; // 1554 limit = local; lookup(lab); %RETURN _imp_current_line = 1554; _imp_current_file = "pass1v84-noprims.imp"; #line 1554 "pass1v84-noprims.imp" LIMIT = LOCAL; _imp_current_line = 1554; _imp_current_file = "pass1v84-noprims.imp"; #line 1554 "pass1v84-noprims.imp" LOOKUP(3); _imp_current_line = 1554; _imp_current_file = "pass1v84-noprims.imp"; #line 1554 "pass1v84-noprims.imp" return; // 1555 %FINISH _imp_current_line = 1555; _imp_current_file = "pass1v84-noprims.imp"; #line 1555 "pass1v84-noprims.imp" L_010f:; // 1556 %IF last1 = jump %START; !->label _imp_current_line = 1556; _imp_current_file = "pass1v84-noprims.imp"; #line 1556 "pass1v84-noprims.imp" if (((LAST1) != (54))) goto L_0110; // 1557 limit = local; lookup(lab+spec+used bit); %RETURN _imp_current_line = 1557; _imp_current_file = "pass1v84-noprims.imp"; #line 1557 "pass1v84-noprims.imp" LIMIT = LOCAL; _imp_current_line = 1557; _imp_current_file = "pass1v84-noprims.imp"; #line 1557 "pass1v84-noprims.imp" LOOKUP(32899); _imp_current_line = 1557; _imp_current_file = "pass1v84-noprims.imp"; #line 1557 "pass1v84-noprims.imp" return; // 1558 %FINISH _imp_current_line = 1558; _imp_current_file = "pass1v84-noprims.imp"; #line 1558 "pass1v84-noprims.imp" L_0110:; // 1559 %IF decl # 0 %AND target = 90 %START; !identifier _imp_current_line = 1559; _imp_current_file = "pass1v84-noprims.imp"; #line 1559 "pass1v84-noprims.imp" if (((DECL) == (0))) goto L_0111; #line 1559 "pass1v84-noprims.imp" if (((TARGET) != (90))) goto L_0111; // 1560 search base = fm base _imp_current_line = 1560; _imp_current_file = "pass1v84-noprims.imp"; #line 1560 "pass1v84-noprims.imp" SEARCHBASE = FMBASE; // 1561 limit = local; lookup(decl) _imp_current_line = 1561; _imp_current_file = "pass1v84-noprims.imp"; #line 1561 "pass1v84-noprims.imp" LIMIT = LOCAL; _imp_current_line = 1561; _imp_current_file = "pass1v84-noprims.imp"; #line 1561 "pass1v84-noprims.imp" LOOKUP(DECL); // 1562 search base = 0 _imp_current_line = 1562; _imp_current_file = "pass1v84-noprims.imp"; #line 1562 "pass1v84-noprims.imp" SEARCHBASE = 0; // 1563 %FINISH %ELSE %START _imp_current_line = 1563; _imp_current_file = "pass1v84-noprims.imp"; #line 1563 "pass1v84-noprims.imp" goto L_0112; #line 1563 "pass1v84-noprims.imp" L_0111:; // 1564 limit = 0; lookup(0) _imp_current_line = 1564; _imp_current_file = "pass1v84-noprims.imp"; #line 1564 "pass1v84-noprims.imp" LIMIT = 0; _imp_current_line = 1564; _imp_current_file = "pass1v84-noprims.imp"; #line 1564 "pass1v84-noprims.imp" LOOKUP(0); // 1565 %FINISH _imp_current_line = 1565; _imp_current_file = "pass1v84-noprims.imp"; #line 1565 "pass1v84-noprims.imp" L_0112:; // 1566 %END _imp_current_line = 1566; _imp_current_file = "pass1v84-noprims.imp"; #line 1566 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block CODEATOM at level 4 // 1567 // 1568 %INTEGERFN parsed machine code _imp_current_line = 1568; _imp_current_file = "pass1v84-noprims.imp"; #line 1568 "pass1v84-noprims.imp" int PARSEDMACHINECODE( void ) #line 1568 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 1569 ! *opcode_?????????? // 1570 %routine octal(%integer n) _imp_current_line = 1570; _imp_current_file = "pass1v84-noprims.imp"; #line 1570 "pass1v84-noprims.imp" void OCTAL( int N ) #line 1570 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 1571 %integer m _imp_current_line = 1571; _imp_current_file = "pass1v84-noprims.imp"; #line 1571 "pass1v84-noprims.imp" int M; // 1572 m = n>>3 _imp_current_line = 1572; _imp_current_file = "pass1v84-noprims.imp"; #line 1572 "pass1v84-noprims.imp" M = (int)((((unsigned int)(N)) >> (3))); // 1573 octal(m) %if m # 0 _imp_current_line = 1573; _imp_current_file = "pass1v84-noprims.imp"; #line 1573 "pass1v84-noprims.imp" if (((M) == (0))) goto L_0113; #line 1573 "pass1v84-noprims.imp" OCTAL(M); #line 1573 "pass1v84-noprims.imp" L_0113:; // 1574 bp = bp+1; buff(bp) = n&7+'0' _imp_current_line = 1574; _imp_current_file = "pass1v84-noprims.imp"; #line 1574 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); _imp_current_line = 1574; _imp_current_file = "pass1v84-noprims.imp"; #line 1574 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = (((int)(((N) & (7)))) + (48)); // 1575 %end _imp_current_line = 1575; _imp_current_file = "pass1v84-noprims.imp"; #line 1575 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block OCTAL at level 5 // 1576 atom1 = error %AND %RESULT=0 %UNLESS symtype = -2; !starts with letter _imp_current_line = 1576; _imp_current_file = "pass1v84-noprims.imp"; #line 1576 "pass1v84-noprims.imp" if (((SYMTYPE) == ((-2)))) goto L_0114; #line 1576 "pass1v84-noprims.imp" ATOM1 = 32768; #line 1576 "pass1v84-noprims.imp" return 0; #line 1576 "pass1v84-noprims.imp" L_0114:; // 1577 flush buffer %IF bp >= 128 _imp_current_line = 1577; _imp_current_file = "pass1v84-noprims.imp"; #line 1577 "pass1v84-noprims.imp" if (((BP) < (128))) goto L_0115; #line 1577 "pass1v84-noprims.imp" FLUSHBUFFER(); #line 1577 "pass1v84-noprims.imp" L_0115:; // 1578 bp=bp+1 %AND buff(bp)='w' _imp_current_line = 1578; _imp_current_file = "pass1v84-noprims.imp"; #line 1578 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 1578 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 119; // 1579 %CYCLE _imp_current_line = 1579; _imp_current_file = "pass1v84-noprims.imp"; #line 1579 "pass1v84-noprims.imp" L_0116:; // 1580 bp=bp+1 %AND buff(bp)=sym _imp_current_line = 1580; _imp_current_file = "pass1v84-noprims.imp"; #line 1580 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 1580 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = SYM; // 1581 read sym _imp_current_line = 1581; _imp_current_file = "pass1v84-noprims.imp"; #line 1581 "pass1v84-noprims.imp" READSYM(); // 1582 %EXIT %IF symtype >= 0; !pull in letters and digits _imp_current_line = 1582; _imp_current_file = "pass1v84-noprims.imp"; #line 1582 "pass1v84-noprims.imp" if (((SYMTYPE) < (0))) goto L_0119; #line 1582 "pass1v84-noprims.imp" goto L_0117; #line 1582 "pass1v84-noprims.imp" L_0119:; // 1583 %REPEAT _imp_current_line = 1583; _imp_current_file = "pass1v84-noprims.imp"; #line 1583 "pass1v84-noprims.imp" goto L_0116; #line 1583 "pass1v84-noprims.imp" L_0117:; // 1584 bp=bp+1 %AND buff(bp)='_' _imp_current_line = 1584; _imp_current_file = "pass1v84-noprims.imp"; #line 1584 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 1584 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 95; // 1585 %IF symtype # 0 %START; !not terminator _imp_current_line = 1585; _imp_current_file = "pass1v84-noprims.imp"; #line 1585 "pass1v84-noprims.imp" if (((SYMTYPE) == (0))) goto L_011a; // 1586 atom1 = error %AND %result=0 %UNLESS sym = '_' _imp_current_line = 1586; _imp_current_file = "pass1v84-noprims.imp"; #line 1586 "pass1v84-noprims.imp" if (((SYM) == (95))) goto L_011b; #line 1586 "pass1v84-noprims.imp" ATOM1 = 32768; #line 1586 "pass1v84-noprims.imp" return 0; #line 1586 "pass1v84-noprims.imp" L_011b:; // 1587 read sym _imp_current_line = 1587; _imp_current_file = "pass1v84-noprims.imp"; #line 1587 "pass1v84-noprims.imp" READSYM(); // 1588 %WHILE symtype # 0 %CYCLE _imp_current_line = 1588; _imp_current_file = "pass1v84-noprims.imp"; #line 1588 "pass1v84-noprims.imp" L_011c:; #line 1588 "pass1v84-noprims.imp" if (((SYMTYPE) == (0))) goto L_011d; // 1589 %IF symtype < 0 %START; !complex _imp_current_line = 1589; _imp_current_file = "pass1v84-noprims.imp"; #line 1589 "pass1v84-noprims.imp" if (((SYMTYPE) >= (0))) goto L_011f; // 1590 code atom(0); %result=0 %IF atom1&error # 0 _imp_current_line = 1590; _imp_current_file = "pass1v84-noprims.imp"; #line 1590 "pass1v84-noprims.imp" CODEATOM(0); _imp_current_line = 1590; _imp_current_file = "pass1v84-noprims.imp"; #line 1590 "pass1v84-noprims.imp" if (((((ATOM1) & (32768))) == (0))) goto L_0120; #line 1590 "pass1v84-noprims.imp" return 0; #line 1590 "pass1v84-noprims.imp" L_0120:; // 1591 %IF atom2 = const %AND type = integer %START _imp_current_line = 1591; _imp_current_file = "pass1v84-noprims.imp"; #line 1591 "pass1v84-noprims.imp" if (((ATOM2) != (93))) goto L_0121; #line 1591 "pass1v84-noprims.imp" if (((TYPE) != (1))) goto L_0121; // 1592 %IF subatom < 0 %THEN octal(tag(-subatom)_format) %C _imp_current_line = 1592; _imp_current_file = "pass1v84-noprims.imp"; #line 1592 "pass1v84-noprims.imp" if (((SUBATOM) >= (0))) goto L_0122; #line 1592 "pass1v84-noprims.imp" OCTAL(TAG[(-(SUBATOM))].FORMAT); #line 1592 "pass1v84-noprims.imp" goto L_0123; #line 1592 "pass1v84-noprims.imp" L_0122:; #line 1592 "pass1v84-noprims.imp" OCTAL(LITPOOL[SUBATOM]); #line 1592 "pass1v84-noprims.imp" L_0123:; // 1593 %ELSE octal(litpool(subatom)) // 1594 %FINISH %ELSE %START _imp_current_line = 1594; _imp_current_file = "pass1v84-noprims.imp"; #line 1594 "pass1v84-noprims.imp" goto L_0124; #line 1594 "pass1v84-noprims.imp" L_0121:; // 1595 %IF 91 <= atom1 <= 109 %START _imp_current_line = 1595; _imp_current_file = "pass1v84-noprims.imp"; #line 1595 "pass1v84-noprims.imp" if ((((91) > (ATOM1))) || (((ATOM1) > (109)))) goto L_0125; // 1596 %if atom1 = 104 {label} %and %C _imp_current_line = 1596; _imp_current_file = "pass1v84-noprims.imp"; #line 1596 "pass1v84-noprims.imp" if (((ATOM1) != (104))) goto L_0126; #line 1596 "pass1v84-noprims.imp" if (((((TAG[SUBATOM].FLAGS) & (16384))) != (0))) goto L_0126; // 1597 Tag(Subatom)_Flags&Closed = 0 %start // 1598 This = Subatom; Atom1 = Error+21 _imp_current_line = 1598; _imp_current_file = "pass1v84-noprims.imp"; #line 1598 "pass1v84-noprims.imp" THIS = SUBATOM; _imp_current_line = 1598; _imp_current_file = "pass1v84-noprims.imp"; #line 1598 "pass1v84-noprims.imp" ATOM1 = 32789; // 1599 %result = 0 _imp_current_line = 1599; _imp_current_file = "pass1v84-noprims.imp"; #line 1599 "pass1v84-noprims.imp" return 0; // 1600 %finish _imp_current_line = 1600; _imp_current_file = "pass1v84-noprims.imp"; #line 1600 "pass1v84-noprims.imp" L_0126:; // 1601 op(' ', tag(subatom)_index) _imp_current_line = 1601; _imp_current_file = "pass1v84-noprims.imp"; #line 1601 "pass1v84-noprims.imp" OP(32, TAG[SUBATOM].INDEX); // 1602 %FINISH %ELSE %START _imp_current_line = 1602; _imp_current_file = "pass1v84-noprims.imp"; #line 1602 "pass1v84-noprims.imp" goto L_0127; #line 1602 "pass1v84-noprims.imp" L_0125:; // 1603 atom1 = error; %result=0 _imp_current_line = 1603; _imp_current_file = "pass1v84-noprims.imp"; #line 1603 "pass1v84-noprims.imp" ATOM1 = 32768; _imp_current_line = 1603; _imp_current_file = "pass1v84-noprims.imp"; #line 1603 "pass1v84-noprims.imp" return 0; // 1604 %FINISH _imp_current_line = 1604; _imp_current_file = "pass1v84-noprims.imp"; #line 1604 "pass1v84-noprims.imp" L_0127:; // 1605 %FINISH _imp_current_line = 1605; _imp_current_file = "pass1v84-noprims.imp"; #line 1605 "pass1v84-noprims.imp" L_0124:; // 1606 %FINISH %ELSE %START _imp_current_line = 1606; _imp_current_file = "pass1v84-noprims.imp"; #line 1606 "pass1v84-noprims.imp" goto L_0128; #line 1606 "pass1v84-noprims.imp" L_011f:; // 1607 bp=bp+1 %AND buff(bp)=sym; read sym _imp_current_line = 1607; _imp_current_file = "pass1v84-noprims.imp"; #line 1607 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 1607 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = SYM; _imp_current_line = 1607; _imp_current_file = "pass1v84-noprims.imp"; #line 1607 "pass1v84-noprims.imp" READSYM(); // 1608 %FINISH _imp_current_line = 1608; _imp_current_file = "pass1v84-noprims.imp"; #line 1608 "pass1v84-noprims.imp" L_0128:; // 1609 %REPEAT _imp_current_line = 1609; _imp_current_file = "pass1v84-noprims.imp"; #line 1609 "pass1v84-noprims.imp" goto L_011c; #line 1609 "pass1v84-noprims.imp" L_011d:; // 1610 %FINISH _imp_current_line = 1610; _imp_current_file = "pass1v84-noprims.imp"; #line 1610 "pass1v84-noprims.imp" L_011a:; // 1611 bp=bp+1 %AND buff(bp)=';' _imp_current_line = 1611; _imp_current_file = "pass1v84-noprims.imp"; #line 1611 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 1611 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 59; // 1612 %RESULT=1 _imp_current_line = 1612; _imp_current_file = "pass1v84-noprims.imp"; #line 1612 "pass1v84-noprims.imp" return 1; // 1613 %END _imp_current_line = 1613; _imp_current_file = "pass1v84-noprims.imp"; #line 1613 "pass1v84-noprims.imp" _imp_endofblock: ; } // End of block PARSEDMACHINECODE at level 4 // 1614 // 1615 cont = ' ' %IF gg = 0 _imp_current_line = 1615; _imp_current_file = "pass1v84-noprims.imp"; #line 1615 "pass1v84-noprims.imp" if (((GG) != (0))) goto L_0129; #line 1615 "pass1v84-noprims.imp" CONT = 32; #line 1615 "pass1v84-noprims.imp" L_0129:; // 1616 last1 = 0; mapgg = 0 _imp_current_line = 1616; _imp_current_file = "pass1v84-noprims.imp"; #line 1616 "pass1v84-noprims.imp" LAST1 = 0; _imp_current_line = 1616; _imp_current_file = "pass1v84-noprims.imp"; #line 1616 "pass1v84-noprims.imp" MAPGG = 0; // 1617 s = 0; ss = 0; sstype = -1; fdef = 0 _imp_current_line = 1617; _imp_current_file = "pass1v84-noprims.imp"; #line 1617 "pass1v84-noprims.imp" S = 0; _imp_current_line = 1617; _imp_current_file = "pass1v84-noprims.imp"; #line 1617 "pass1v84-noprims.imp" SS = 0; _imp_current_line = 1617; _imp_current_file = "pass1v84-noprims.imp"; #line 1617 "pass1v84-noprims.imp" SSTYPE = (-1); _imp_current_line = 1617; _imp_current_file = "pass1v84-noprims.imp"; #line 1617 "pass1v84-noprims.imp" FDEF = 0; // 1618 fm base = 0 _imp_current_line = 1618; _imp_current_file = "pass1v84-noprims.imp"; #line 1618 "pass1v84-noprims.imp" FMBASE = 0; // 1619 app = 0 _imp_current_line = 1619; _imp_current_file = "pass1v84-noprims.imp"; #line 1619 "pass1v84-noprims.imp" APP = 0; // 1620 // 1621 !deal with alignment following an error in one statement // 1622 !of several on a line // 1623 // 1624 margin = column; !start of statement _imp_current_line = 1624; _imp_current_file = "pass1v84-noprims.imp"; #line 1624 "pass1v84-noprims.imp" MARGIN = COLUMN; // 1625 // 1626 pos = 0 _imp_current_line = 1626; _imp_current_file = "pass1v84-noprims.imp"; #line 1626 "pass1v84-noprims.imp" POS = 0; // 1627 stbase = addr(glink(gmax+1)); strp = stbase; lp = 0 _imp_current_line = 1627; _imp_current_file = "pass1v84-noprims.imp"; #line 1627 "pass1v84-noprims.imp" STBASE = _imp_ADDR(&GLINK[(((int)(GMAX)) + (1))]); _imp_current_line = 1627; _imp_current_file = "pass1v84-noprims.imp"; #line 1627 "pass1v84-noprims.imp" STRP = STBASE; _imp_current_line = 1627; _imp_current_file = "pass1v84-noprims.imp"; #line 1627 "pass1v84-noprims.imp" LP = 0; // 1628 tbase = tstart; !?????????????? _imp_current_line = 1628; _imp_current_file = "pass1v84-noprims.imp"; #line 1628 "pass1v84-noprims.imp" TBASE = TSTART; // 1629 local = tbase _imp_current_line = 1629; _imp_current_file = "pass1v84-noprims.imp"; #line 1629 "pass1v84-noprims.imp" LOCAL = TBASE; // 1630 // 1631 %IF gg = 0 %or ocount >= 0 %START; !data or not continuation(z) _imp_current_line = 1631; _imp_current_file = "pass1v84-noprims.imp"; #line 1631 "pass1v84-noprims.imp" if (((GG) == (0))) goto L_0118; #line 1631 "pass1v84-noprims.imp" if (((OCOUNT) < (0))) goto L_012a; #line 1631 "pass1v84-noprims.imp" L_0118:; // 1632 again:%WHILE sym type = 0 %CYCLE; !skip redundant terminators _imp_current_line = 1632; _imp_current_file = "pass1v84-noprims.imp"; #line 1632 "pass1v84-noprims.imp" U_1006:; _imp_current_line = 1632; _imp_current_file = "pass1v84-noprims.imp"; #line 1632 "pass1v84-noprims.imp" L_012b:; #line 1632 "pass1v84-noprims.imp" if (((SYMTYPE) != (0))) goto L_012c; // 1633 c = cont _imp_current_line = 1633; _imp_current_file = "pass1v84-noprims.imp"; #line 1633 "pass1v84-noprims.imp" C = CONT; // 1634 cont = ' '; cont = '+' %IF ocount >= 0 _imp_current_line = 1634; _imp_current_file = "pass1v84-noprims.imp"; #line 1634 "pass1v84-noprims.imp" CONT = 32; _imp_current_line = 1634; _imp_current_file = "pass1v84-noprims.imp"; #line 1634 "pass1v84-noprims.imp" if (((OCOUNT) < (0))) goto L_012e; #line 1634 "pass1v84-noprims.imp" CONT = 43; #line 1634 "pass1v84-noprims.imp" L_012e:; // 1635 read sym _imp_current_line = 1635; _imp_current_file = "pass1v84-noprims.imp"; #line 1635 "pass1v84-noprims.imp" READSYM(); // 1636 cont = c _imp_current_line = 1636; _imp_current_file = "pass1v84-noprims.imp"; #line 1636 "pass1v84-noprims.imp" CONT = C; // 1637 %REPEAT _imp_current_line = 1637; _imp_current_file = "pass1v84-noprims.imp"; #line 1637 "pass1v84-noprims.imp" goto L_012b; #line 1637 "pass1v84-noprims.imp" L_012c:; // 1638 ->skip %IF sym = '!'; !comment _imp_current_line = 1638; _imp_current_file = "pass1v84-noprims.imp"; #line 1638 "pass1v84-noprims.imp" if (((SYM) != (33))) goto L_012f; #line 1638 "pass1v84-noprims.imp" goto U_1007; #line 1638 "pass1v84-noprims.imp" L_012f:; // 1639 this = -1 _imp_current_line = 1639; _imp_current_file = "pass1v84-noprims.imp"; #line 1639 "pass1v84-noprims.imp" THIS = (-1); // 1640 code atom(0) _imp_current_line = 1640; _imp_current_file = "pass1v84-noprims.imp"; #line 1640 "pass1v84-noprims.imp" CODEATOM(0); // 1641 %IF atom1 = comment %START _imp_current_line = 1641; _imp_current_file = "pass1v84-noprims.imp"; #line 1641 "pass1v84-noprims.imp" if (((ATOM1) != (22))) goto L_0130; // 1642 skip: quote = 1 _imp_current_line = 1642; _imp_current_file = "pass1v84-noprims.imp"; #line 1642 "pass1v84-noprims.imp" U_1007:; _imp_current_line = 1642; _imp_current_file = "pass1v84-noprims.imp"; #line 1642 "pass1v84-noprims.imp" QUOTE = 1; // 1643 c = cont _imp_current_line = 1643; _imp_current_file = "pass1v84-noprims.imp"; #line 1643 "pass1v84-noprims.imp" C = CONT; // 1644 read sym %AND cont = c %WHILE sym # nl; !skip to end of line _imp_current_line = 1644; _imp_current_file = "pass1v84-noprims.imp"; #line 1644 "pass1v84-noprims.imp" L_0131:; #line 1644 "pass1v84-noprims.imp" if (((SYM) == (10))) goto L_0132; #line 1644 "pass1v84-noprims.imp" READSYM(); #line 1644 "pass1v84-noprims.imp" CONT = C; #line 1644 "pass1v84-noprims.imp" goto L_0131; #line 1644 "pass1v84-noprims.imp" L_0132:; // 1645 quote = 0; symtype = 0 _imp_current_line = 1645; _imp_current_file = "pass1v84-noprims.imp"; #line 1645 "pass1v84-noprims.imp" QUOTE = 0; _imp_current_line = 1645; _imp_current_file = "pass1v84-noprims.imp"; #line 1645 "pass1v84-noprims.imp" SYMTYPE = 0; // 1646 ->again _imp_current_line = 1646; _imp_current_file = "pass1v84-noprims.imp"; #line 1646 "pass1v84-noprims.imp" goto U_1006; // 1647 %FINISH _imp_current_line = 1647; _imp_current_file = "pass1v84-noprims.imp"; #line 1647 "pass1v84-noprims.imp" L_0130:; // 1648 %FINISH _imp_current_line = 1648; _imp_current_file = "pass1v84-noprims.imp"; #line 1648 "pass1v84-noprims.imp" L_012a:; // 1649 decl = 0; mark = 0 _imp_current_line = 1649; _imp_current_file = "pass1v84-noprims.imp"; #line 1649 "pass1v84-noprims.imp" DECL = 0; _imp_current_line = 1649; _imp_current_file = "pass1v84-noprims.imp"; #line 1649 "pass1v84-noprims.imp" MARK = 0; // 1650 gentype = 0; force = 0 _imp_current_line = 1650; _imp_current_file = "pass1v84-noprims.imp"; #line 1650 "pass1v84-noprims.imp" GENTYPE = 0; _imp_current_line = 1650; _imp_current_file = "pass1v84-noprims.imp"; #line 1650 "pass1v84-noprims.imp" FORCE = 0; // 1651 dim = 0; prot err = 0 _imp_current_line = 1651; _imp_current_file = "pass1v84-noprims.imp"; #line 1651 "pass1v84-noprims.imp" DIM = 0; _imp_current_line = 1651; _imp_current_file = "pass1v84-noprims.imp"; #line 1651 "pass1v84-noprims.imp" PROTERR = 0; // 1652 node = 0; nmax = 0; nmin = rec size+1 _imp_current_line = 1652; _imp_current_file = "pass1v84-noprims.imp"; #line 1652 "pass1v84-noprims.imp" NODE = 0; _imp_current_line = 1652; _imp_current_file = "pass1v84-noprims.imp"; #line 1652 "pass1v84-noprims.imp" NMAX = 0; _imp_current_line = 1652; _imp_current_file = "pass1v84-noprims.imp"; #line 1652 "pass1v84-noprims.imp" NMIN = 521; // 1653 order = 1; gmin = max grammar+1 _imp_current_line = 1653; _imp_current_file = "pass1v84-noprims.imp"; #line 1653 "pass1v84-noprims.imp" ORDER = 1; _imp_current_line = 1653; _imp_current_file = "pass1v84-noprims.imp"; #line 1653 "pass1v84-noprims.imp" GMIN = 1721; // 1654 sstype = 0 %AND ->more %IF gg # 0; !continuation _imp_current_line = 1654; _imp_current_file = "pass1v84-noprims.imp"; #line 1654 "pass1v84-noprims.imp" if (((GG) == (0))) goto L_0134; #line 1654 "pass1v84-noprims.imp" SSTYPE = 0; #line 1654 "pass1v84-noprims.imp" goto U_1008; #line 1654 "pass1v84-noprims.imp" L_0134:; // 1655 ptype = 0; spec given = 0 _imp_current_line = 1655; _imp_current_file = "pass1v84-noprims.imp"; #line 1655 "pass1v84-noprims.imp" PTYPE = 0; _imp_current_line = 1655; _imp_current_file = "pass1v84-noprims.imp"; #line 1655 "pass1v84-noprims.imp" SPECGIVEN = 0; // 1656 // 1657 stats = stats+1; op('O', lines) %IF perm = 0 _imp_current_line = 1657; _imp_current_file = "pass1v84-noprims.imp"; #line 1657 "pass1v84-noprims.imp" STATS = (((int)(STATS)) + (1)); _imp_current_line = 1657; _imp_current_file = "pass1v84-noprims.imp"; #line 1657 "pass1v84-noprims.imp" if (((PERM) != (0))) goto L_0135; #line 1657 "pass1v84-noprims.imp" OP(79, LINES); #line 1657 "pass1v84-noprims.imp" L_0135:; // 1658 // 1659 ->fail1 %IF atom1&error # 0; !first atom faulty _imp_current_line = 1659; _imp_current_file = "pass1v84-noprims.imp"; #line 1659 "pass1v84-noprims.imp" if (((((ATOM1) & (32768))) == (0))) goto L_0136; #line 1659 "pass1v84-noprims.imp" goto U_1009; #line 1659 "pass1v84-noprims.imp" L_0136:; // 1660 // 1661 %IF escape class # 0 %START; !enter the hard way after _imp_current_line = 1661; _imp_current_file = "pass1v84-noprims.imp"; #line 1661 "pass1v84-noprims.imp" if (((ESCAPECLASS) == (0))) goto L_0137; // 1662 g = imp phrase; sstype = -1; ->a3 _imp_current_line = 1662; _imp_current_file = "pass1v84-noprims.imp"; #line 1662 "pass1v84-noprims.imp" G = 25; _imp_current_line = 1662; _imp_current_file = "pass1v84-noprims.imp"; #line 1662 "pass1v84-noprims.imp" SSTYPE = (-1); _imp_current_line = 1662; _imp_current_file = "pass1v84-noprims.imp"; #line 1662 "pass1v84-noprims.imp" goto U_100a; // 1663 %FINISH _imp_current_line = 1663; _imp_current_file = "pass1v84-noprims.imp"; #line 1663 "pass1v84-noprims.imp" L_0137:; // 1664 // 1665 g = initial(atom1); !pick up entry point _imp_current_line = 1665; _imp_current_file = "pass1v84-noprims.imp"; #line 1665 "pass1v84-noprims.imp" G = INITIAL[ATOM1]; // 1666 %IF g = 0 %START; !invalid first atom _imp_current_line = 1666; _imp_current_file = "pass1v84-noprims.imp"; #line 1666 "pass1v84-noprims.imp" if (((G) != (0))) goto L_0138; // 1667 g = initial(0); sstype = 0; ->a3; !declarator? _imp_current_line = 1667; _imp_current_file = "pass1v84-noprims.imp"; #line 1667 "pass1v84-noprims.imp" G = INITIAL[0]; _imp_current_line = 1667; _imp_current_file = "pass1v84-noprims.imp"; #line 1667 "pass1v84-noprims.imp" SSTYPE = 0; _imp_current_line = 1667; _imp_current_file = "pass1v84-noprims.imp"; #line 1667 "pass1v84-noprims.imp" goto U_100a; // 1668 %FINISH _imp_current_line = 1668; _imp_current_file = "pass1v84-noprims.imp"; #line 1668 "pass1v84-noprims.imp" L_0138:; // 1669 %IF g < 0 %START; !phrase imp _imp_current_line = 1669; _imp_current_file = "pass1v84-noprims.imp"; #line 1669 "pass1v84-noprims.imp" if (((G) >= (0))) goto L_0139; // 1670 g = g&255 _imp_current_line = 1670; _imp_current_file = "pass1v84-noprims.imp"; #line 1670 "pass1v84-noprims.imp" G = ((G) & (255)); // 1671 nmax = 1 _imp_current_line = 1671; _imp_current_file = "pass1v84-noprims.imp"; #line 1671 "pass1v84-noprims.imp" NMAX = 1; // 1672 ar(1)_class = 0; ar(1)_link = 0; ar(1)_sub = imp phrase _imp_current_line = 1672; _imp_current_file = "pass1v84-noprims.imp"; #line 1672 "pass1v84-noprims.imp" AR[0].CLASS = 0; _imp_current_line = 1672; _imp_current_file = "pass1v84-noprims.imp"; #line 1672 "pass1v84-noprims.imp" AR[0].LINK = 0; _imp_current_line = 1672; _imp_current_file = "pass1v84-noprims.imp"; #line 1672 "pass1v84-noprims.imp" AR[0].SUB = 25; // 1673 %FINISH _imp_current_line = 1673; _imp_current_file = "pass1v84-noprims.imp"; #line 1673 "pass1v84-noprims.imp" L_0139:; // 1674 // 1675 gg = gram(g); class = gg&255; sstype = gg>>12&3-1 _imp_current_line = 1675; _imp_current_file = "pass1v84-noprims.imp"; #line 1675 "pass1v84-noprims.imp" GG = GRAM[G]; _imp_current_line = 1675; _imp_current_file = "pass1v84-noprims.imp"; #line 1675 "pass1v84-noprims.imp" CLASS = ((GG) & (255)); _imp_current_line = 1675; _imp_current_file = "pass1v84-noprims.imp"; #line 1675 "pass1v84-noprims.imp" SSTYPE = (((int)((((int)((((unsigned int)(GG)) >> (12)))) & (3)))) - (1)); // 1676 ->a1 _imp_current_line = 1676; _imp_current_file = "pass1v84-noprims.imp"; #line 1676 "pass1v84-noprims.imp" goto U_1015; // 1677 // 1678 act(194): ptype = type; papp = app; pformat = format; ->more _imp_current_line = 1678; _imp_current_file = "pass1v84-noprims.imp"; #line 1678 "pass1v84-noprims.imp" sw3_ACT_194:; _imp_current_line = 1678; _imp_current_file = "pass1v84-noprims.imp"; #line 1678 "pass1v84-noprims.imp" PTYPE = TYPE; _imp_current_line = 1678; _imp_current_file = "pass1v84-noprims.imp"; #line 1678 "pass1v84-noprims.imp" PAPP = APP; _imp_current_line = 1678; _imp_current_file = "pass1v84-noprims.imp"; #line 1678 "pass1v84-noprims.imp" PFORMAT = FORMAT; _imp_current_line = 1678; _imp_current_file = "pass1v84-noprims.imp"; #line 1678 "pass1v84-noprims.imp" goto U_1008; // 1679 act(196):k =g+1; ->a610 _imp_current_line = 1679; _imp_current_file = "pass1v84-noprims.imp"; #line 1679 "pass1v84-noprims.imp" sw3_ACT_196:; _imp_current_line = 1679; _imp_current_file = "pass1v84-noprims.imp"; #line 1679 "pass1v84-noprims.imp" K = (((int)(G)) + (1)); _imp_current_line = 1679; _imp_current_file = "pass1v84-noprims.imp"; #line 1679 "pass1v84-noprims.imp" goto U_1016; // 1680 act(188):k = ar(nmax)_sub+1 _imp_current_line = 1680; _imp_current_file = "pass1v84-noprims.imp"; #line 1680 "pass1v84-noprims.imp" sw3_ACT_188:; _imp_current_line = 1680; _imp_current_file = "pass1v84-noprims.imp"; #line 1680 "pass1v84-noprims.imp" K = (((int)(AR[(((int)(NMAX)) - (1))].SUB)) + (1)); // 1681 a610: papp = glink(k) _imp_current_line = 1681; _imp_current_file = "pass1v84-noprims.imp"; #line 1681 "pass1v84-noprims.imp" U_1016:; _imp_current_line = 1681; _imp_current_file = "pass1v84-noprims.imp"; #line 1681 "pass1v84-noprims.imp" PAPP = GLINK[K]; // 1682 k = gram(k) _imp_current_line = 1682; _imp_current_file = "pass1v84-noprims.imp"; #line 1682 "pass1v84-noprims.imp" K = GRAM[K]; // 1683 ->more %IF k = 0; !%NAME _imp_current_line = 1683; _imp_current_file = "pass1v84-noprims.imp"; #line 1683 "pass1v84-noprims.imp" if (((K) != (0))) goto L_013a; #line 1683 "pass1v84-noprims.imp" goto U_1008; #line 1683 "pass1v84-noprims.imp" L_013a:; // 1684 ptype = k&7; pformat = k>>3 _imp_current_line = 1684; _imp_current_file = "pass1v84-noprims.imp"; #line 1684 "pass1v84-noprims.imp" PTYPE = ((K) & (7)); _imp_current_line = 1684; _imp_current_file = "pass1v84-noprims.imp"; #line 1684 "pass1v84-noprims.imp" PFORMAT = (int)((((unsigned int)(K)) >> (3))); // 1685 act(183):k = type; gentype = k %IF gentype = 0 %OR k = real _imp_current_line = 1685; _imp_current_file = "pass1v84-noprims.imp"; #line 1685 "pass1v84-noprims.imp" sw3_ACT_183:; _imp_current_line = 1685; _imp_current_file = "pass1v84-noprims.imp"; #line 1685 "pass1v84-noprims.imp" K = TYPE; _imp_current_line = 1685; _imp_current_file = "pass1v84-noprims.imp"; #line 1685 "pass1v84-noprims.imp" if (((GENTYPE) == (0))) goto L_013b; #line 1685 "pass1v84-noprims.imp" if (((K) != (2))) goto L_013c; #line 1685 "pass1v84-noprims.imp" L_013b:; #line 1685 "pass1v84-noprims.imp" GENTYPE = K; #line 1685 "pass1v84-noprims.imp" L_013c:; // 1686 %IF pformat < 0 %START; !general type _imp_current_line = 1686; _imp_current_file = "pass1v84-noprims.imp"; #line 1686 "pass1v84-noprims.imp" if (((PFORMAT) >= (0))) goto L_013d; // 1687 app = papp; format = pformat _imp_current_line = 1687; _imp_current_file = "pass1v84-noprims.imp"; #line 1687 "pass1v84-noprims.imp" APP = PAPP; _imp_current_line = 1687; _imp_current_file = "pass1v84-noprims.imp"; #line 1687 "pass1v84-noprims.imp" FORMAT = PFORMAT; // 1688 k = real %IF ptype = real %AND type = integer _imp_current_line = 1688; _imp_current_file = "pass1v84-noprims.imp"; #line 1688 "pass1v84-noprims.imp" if (((PTYPE) != (2))) goto L_013e; #line 1688 "pass1v84-noprims.imp" if (((TYPE) != (1))) goto L_013e; #line 1688 "pass1v84-noprims.imp" K = 2; #line 1688 "pass1v84-noprims.imp" L_013e:; // 1689 k = force %AND force = 0 %IF force # 0 _imp_current_line = 1689; _imp_current_file = "pass1v84-noprims.imp"; #line 1689 "pass1v84-noprims.imp" if (((FORCE) == (0))) goto L_013f; #line 1689 "pass1v84-noprims.imp" K = FORCE; #line 1689 "pass1v84-noprims.imp" FORCE = 0; #line 1689 "pass1v84-noprims.imp" L_013f:; // 1690 %FINISH _imp_current_line = 1690; _imp_current_file = "pass1v84-noprims.imp"; #line 1690 "pass1v84-noprims.imp" L_013d:; // 1691 ->fail2 %UNLESS papp = app %AND (ptype = k %OR ptype = 0) _imp_current_line = 1691; _imp_current_file = "pass1v84-noprims.imp"; #line 1691 "pass1v84-noprims.imp" if (((PAPP) != (APP))) goto L_0140; #line 1691 "pass1v84-noprims.imp" if (((PTYPE) == (K))) goto L_0141; #line 1691 "pass1v84-noprims.imp" if (((PTYPE) == (0))) goto L_0141; #line 1691 "pass1v84-noprims.imp" L_0140:; #line 1691 "pass1v84-noprims.imp" goto U_1017; #line 1691 "pass1v84-noprims.imp" L_0141:; // 1692 ->more %IF pformat=format %OR pformat = 0 %OR format = 0 _imp_current_line = 1692; _imp_current_file = "pass1v84-noprims.imp"; #line 1692 "pass1v84-noprims.imp" if (((PFORMAT) == (FORMAT))) goto L_0142; #line 1692 "pass1v84-noprims.imp" if (((PFORMAT) == (0))) goto L_0142; #line 1692 "pass1v84-noprims.imp" if (((FORMAT) != (0))) goto L_0143; #line 1692 "pass1v84-noprims.imp" L_0142:; #line 1692 "pass1v84-noprims.imp" goto U_1008; #line 1692 "pass1v84-noprims.imp" L_0143:; // 1693 ->fail2 _imp_current_line = 1693; _imp_current_file = "pass1v84-noprims.imp"; #line 1693 "pass1v84-noprims.imp" goto U_1017; // 1694 act(197):arp == ar(nmin) _imp_current_line = 1694; _imp_current_file = "pass1v84-noprims.imp"; #line 1694 "pass1v84-noprims.imp" sw3_ACT_197:; _imp_current_line = 1694; _imp_current_file = "pass1v84-noprims.imp"; #line 1694 "pass1v84-noprims.imp" ARP = &AR[(((int)(NMIN)) - (1))]; // 1695 k = arp_sub _imp_current_line = 1695; _imp_current_file = "pass1v84-noprims.imp"; #line 1695 "pass1v84-noprims.imp" K = ARP->SUB; // 1696 ->fail3 %UNLESS block form = k&15 _imp_current_line = 1696; _imp_current_file = "pass1v84-noprims.imp"; #line 1696 "pass1v84-noprims.imp" if (((BLOCKFORM) == (((K) & (15))))) goto L_0144; #line 1696 "pass1v84-noprims.imp" goto U_1018; #line 1696 "pass1v84-noprims.imp" L_0144:; // 1697 arp_sub = k>>4 _imp_current_line = 1697; _imp_current_file = "pass1v84-noprims.imp"; #line 1697 "pass1v84-noprims.imp" ARP->SUB = (int)((((unsigned int)(K)) >> (4))); // 1698 // 1699 type = block type _imp_current_line = 1699; _imp_current_file = "pass1v84-noprims.imp"; #line 1699 "pass1v84-noprims.imp" TYPE = BLOCKTYPE; // 1700 ptype = block type; pformat = block fm; papp = app _imp_current_line = 1700; _imp_current_file = "pass1v84-noprims.imp"; #line 1700 "pass1v84-noprims.imp" PTYPE = BLOCKTYPE; _imp_current_line = 1700; _imp_current_file = "pass1v84-noprims.imp"; #line 1700 "pass1v84-noprims.imp" PFORMAT = BLOCKFM; _imp_current_line = 1700; _imp_current_file = "pass1v84-noprims.imp"; #line 1700 "pass1v84-noprims.imp" PAPP = APP; // 1701 pformat = -1 %IF ptype # record _imp_current_line = 1701; _imp_current_file = "pass1v84-noprims.imp"; #line 1701 "pass1v84-noprims.imp" if (((PTYPE) == (4))) goto L_0145; #line 1701 "pass1v84-noprims.imp" PFORMAT = (-1); #line 1701 "pass1v84-noprims.imp" L_0145:; // 1702 ->more _imp_current_line = 1702; _imp_current_file = "pass1v84-noprims.imp"; #line 1702 "pass1v84-noprims.imp" goto U_1008; // 1703 act(195):->Fail2 %if Type # 0 %and Type # Integer %and %C _imp_current_line = 1703; _imp_current_file = "pass1v84-noprims.imp"; #line 1703 "pass1v84-noprims.imp" sw3_ACT_195:; _imp_current_line = 1703; _imp_current_file = "pass1v84-noprims.imp"; #line 1703 "pass1v84-noprims.imp" if (((TYPE) == (0))) goto L_0146; #line 1703 "pass1v84-noprims.imp" if (((TYPE) == (1))) goto L_0146; #line 1703 "pass1v84-noprims.imp" if (((TYPE) == (2))) goto L_0146; #line 1703 "pass1v84-noprims.imp" goto U_1017; #line 1703 "pass1v84-noprims.imp" L_0146:; // 1704 Type # Real // 1705 arp == ar(nmin) _imp_current_line = 1705; _imp_current_file = "pass1v84-noprims.imp"; #line 1705 "pass1v84-noprims.imp" ARP = &AR[(((int)(NMIN)) - (1))]; // 1706 k = arp_sub _imp_current_line = 1706; _imp_current_file = "pass1v84-noprims.imp"; #line 1706 "pass1v84-noprims.imp" K = ARP->SUB; // 1707 arp_sub = k>>2 _imp_current_line = 1707; _imp_current_file = "pass1v84-noprims.imp"; #line 1707 "pass1v84-noprims.imp" ARP->SUB = (int)((((unsigned int)(K)) >> (2))); // 1708 k = k&3 _imp_current_line = 1708; _imp_current_file = "pass1v84-noprims.imp"; #line 1708 "pass1v84-noprims.imp" K = ((K) & (3)); // 1709 !1 = check integer // 1710 !2 = check real // 1711 !3 = check real + int // 1712 ->more %IF k = 0; !0 = no action _imp_current_line = 1712; _imp_current_file = "pass1v84-noprims.imp"; #line 1712 "pass1v84-noprims.imp" if (((K) != (0))) goto L_0147; #line 1712 "pass1v84-noprims.imp" goto U_1008; #line 1712 "pass1v84-noprims.imp" L_0147:; // 1713 %IF k = 1 %START _imp_current_line = 1713; _imp_current_file = "pass1v84-noprims.imp"; #line 1713 "pass1v84-noprims.imp" if (((K) != (1))) goto L_0148; // 1714 force = integer _imp_current_line = 1714; _imp_current_file = "pass1v84-noprims.imp"; #line 1714 "pass1v84-noprims.imp" FORCE = 1; // 1715 ->more %IF type = integer %OR type = 0 _imp_current_line = 1715; _imp_current_file = "pass1v84-noprims.imp"; #line 1715 "pass1v84-noprims.imp" if (((TYPE) == (1))) goto L_012d; #line 1715 "pass1v84-noprims.imp" if (((TYPE) != (0))) goto L_0149; #line 1715 "pass1v84-noprims.imp" L_012d:; #line 1715 "pass1v84-noprims.imp" goto U_1008; #line 1715 "pass1v84-noprims.imp" L_0149:; // 1716 ->fail2 _imp_current_line = 1716; _imp_current_file = "pass1v84-noprims.imp"; #line 1716 "pass1v84-noprims.imp" goto U_1017; // 1717 %FINISH _imp_current_line = 1717; _imp_current_file = "pass1v84-noprims.imp"; #line 1717 "pass1v84-noprims.imp" L_0148:; // 1718 ->fail2 %UNLESS ptype = real %or ptype = 0 {or added?} _imp_current_line = 1718; _imp_current_file = "pass1v84-noprims.imp"; #line 1718 "pass1v84-noprims.imp" if (((PTYPE) == (2))) goto L_014a; #line 1718 "pass1v84-noprims.imp" if (((PTYPE) == (0))) goto L_014a; #line 1718 "pass1v84-noprims.imp" goto U_1017; #line 1718 "pass1v84-noprims.imp" L_014a:; // 1719 force = integer %IF k = 3 _imp_current_line = 1719; _imp_current_file = "pass1v84-noprims.imp"; #line 1719 "pass1v84-noprims.imp" if (((K) != (3))) goto L_014b; #line 1719 "pass1v84-noprims.imp" FORCE = 1; #line 1719 "pass1v84-noprims.imp" L_014b:; // 1720 ->more _imp_current_line = 1720; _imp_current_file = "pass1v84-noprims.imp"; #line 1720 "pass1v84-noprims.imp" goto U_1008; // 1721 act(198):!%OTHER _imp_current_line = 1721; _imp_current_file = "pass1v84-noprims.imp"; #line 1721 "pass1v84-noprims.imp" sw3_ACT_198:; // 1722 k = gg>>8&15 _imp_current_line = 1722; _imp_current_file = "pass1v84-noprims.imp"; #line 1722 "pass1v84-noprims.imp" K = (((int)((((unsigned int)(GG)) >> (8)))) & (15)); // 1723 %IF k = 0 %START; !restore atom _imp_current_line = 1723; _imp_current_file = "pass1v84-noprims.imp"; #line 1723 "pass1v84-noprims.imp" if (((K) != (0))) goto L_014c; // 1724 atom1 = last1 _imp_current_line = 1724; _imp_current_file = "pass1v84-noprims.imp"; #line 1724 "pass1v84-noprims.imp" ATOM1 = LAST1; // 1725 ->more _imp_current_line = 1725; _imp_current_file = "pass1v84-noprims.imp"; #line 1725 "pass1v84-noprims.imp" goto U_1008; // 1726 %FINISH _imp_current_line = 1726; _imp_current_file = "pass1v84-noprims.imp"; #line 1726 "pass1v84-noprims.imp" L_014c:; // 1727 %IF k = 1 %START; !test string _imp_current_line = 1727; _imp_current_file = "pass1v84-noprims.imp"; #line 1727 "pass1v84-noprims.imp" if (((K) != (1))) goto L_014d; // 1728 ->fail2 %UNLESS type = stringv _imp_current_line = 1728; _imp_current_file = "pass1v84-noprims.imp"; #line 1728 "pass1v84-noprims.imp" if (((TYPE) == (3))) goto L_014e; #line 1728 "pass1v84-noprims.imp" goto U_1017; #line 1728 "pass1v84-noprims.imp" L_014e:; // 1729 ->more _imp_current_line = 1729; _imp_current_file = "pass1v84-noprims.imp"; #line 1729 "pass1v84-noprims.imp" goto U_1008; // 1730 %FINISH _imp_current_line = 1730; _imp_current_file = "pass1v84-noprims.imp"; #line 1730 "pass1v84-noprims.imp" L_014d:; // 1731 %if k = 2 %start {fault record comparisons} _imp_current_line = 1731; _imp_current_file = "pass1v84-noprims.imp"; #line 1731 "pass1v84-noprims.imp" if (((K) != (2))) goto L_014f; // 1732 ->fail2 %if type = record _imp_current_line = 1732; _imp_current_file = "pass1v84-noprims.imp"; #line 1732 "pass1v84-noprims.imp" if (((TYPE) != (4))) goto L_0150; #line 1732 "pass1v84-noprims.imp" goto U_1017; #line 1732 "pass1v84-noprims.imp" L_0150:; // 1733 ->more _imp_current_line = 1733; _imp_current_file = "pass1v84-noprims.imp"; #line 1733 "pass1v84-noprims.imp" goto U_1008; // 1734 %finish _imp_current_line = 1734; _imp_current_file = "pass1v84-noprims.imp"; #line 1734 "pass1v84-noprims.imp" L_014f:; // 1735 %if k = 3 %start; !check OWN variable coming _imp_current_line = 1735; _imp_current_file = "pass1v84-noprims.imp"; #line 1735 "pass1v84-noprims.imp" if (((K) != (3))) goto L_0151; // 1736 code atom(0) _imp_current_line = 1736; _imp_current_file = "pass1v84-noprims.imp"; #line 1736 "pass1v84-noprims.imp" CODEATOM(0); // 1737 ->A7 %if atom flags&own bit = 0 _imp_current_line = 1737; _imp_current_file = "pass1v84-noprims.imp"; #line 1737 "pass1v84-noprims.imp" if (((((ATOMFLAGS) & (512))) != (0))) goto L_0152; #line 1737 "pass1v84-noprims.imp" goto U_1019; #line 1737 "pass1v84-noprims.imp" L_0152:; // 1738 ->more _imp_current_line = 1738; _imp_current_file = "pass1v84-noprims.imp"; #line 1738 "pass1v84-noprims.imp" goto U_1008; // 1739 %finish _imp_current_line = 1739; _imp_current_file = "pass1v84-noprims.imp"; #line 1739 "pass1v84-noprims.imp" L_0151:; // 1740 for warn = pos1 %IF x <= local; !%FORTEST _imp_current_line = 1740; _imp_current_file = "pass1v84-noprims.imp"; #line 1740 "pass1v84-noprims.imp" if (((X) > (LOCAL))) goto L_0153; #line 1740 "pass1v84-noprims.imp" FORWARN = POS1; #line 1740 "pass1v84-noprims.imp" L_0153:; // 1741 ->more _imp_current_line = 1741; _imp_current_file = "pass1v84-noprims.imp"; #line 1741 "pass1v84-noprims.imp" goto U_1008; // 1742 paction(1):%IF type = record %THEN g = phrase(242) %ELSE pformat = -1 _imp_current_line = 1742; _imp_current_file = "pass1v84-noprims.imp"; #line 1742 "pass1v84-noprims.imp" sw4_PACTION_1:; _imp_current_line = 1742; _imp_current_file = "pass1v84-noprims.imp"; #line 1742 "pass1v84-noprims.imp" if (((TYPE) != (4))) goto L_0154; #line 1742 "pass1v84-noprims.imp" G = (PHRASE-200)[242]; #line 1742 "pass1v84-noprims.imp" goto L_0155; #line 1742 "pass1v84-noprims.imp" L_0154:; #line 1742 "pass1v84-noprims.imp" PFORMAT = (-1); #line 1742 "pass1v84-noprims.imp" L_0155:; // 1743 ->a3 _imp_current_line = 1743; _imp_current_file = "pass1v84-noprims.imp"; #line 1743 "pass1v84-noprims.imp" goto U_100a; // 1744 paction(2):ptype = real; pformat = -1; ->a3 _imp_current_line = 1744; _imp_current_file = "pass1v84-noprims.imp"; #line 1744 "pass1v84-noprims.imp" sw4_PACTION_2:; _imp_current_line = 1744; _imp_current_file = "pass1v84-noprims.imp"; #line 1744 "pass1v84-noprims.imp" PTYPE = 2; _imp_current_line = 1744; _imp_current_file = "pass1v84-noprims.imp"; #line 1744 "pass1v84-noprims.imp" PFORMAT = (-1); _imp_current_line = 1744; _imp_current_file = "pass1v84-noprims.imp"; #line 1744 "pass1v84-noprims.imp" goto U_100a; // 1745 paction(3):ptype = stringv; pformat = -1; ->a3 _imp_current_line = 1745; _imp_current_file = "pass1v84-noprims.imp"; #line 1745 "pass1v84-noprims.imp" sw4_PACTION_3:; _imp_current_line = 1745; _imp_current_file = "pass1v84-noprims.imp"; #line 1745 "pass1v84-noprims.imp" PTYPE = 3; _imp_current_line = 1745; _imp_current_file = "pass1v84-noprims.imp"; #line 1745 "pass1v84-noprims.imp" PFORMAT = (-1); _imp_current_line = 1745; _imp_current_file = "pass1v84-noprims.imp"; #line 1745 "pass1v84-noprims.imp" goto U_100a; // 1746 paction(4):ptype = integer; pformat = -1; ->a3 _imp_current_line = 1746; _imp_current_file = "pass1v84-noprims.imp"; #line 1746 "pass1v84-noprims.imp" sw4_PACTION_4:; _imp_current_line = 1746; _imp_current_file = "pass1v84-noprims.imp"; #line 1746 "pass1v84-noprims.imp" PTYPE = 1; _imp_current_line = 1746; _imp_current_file = "pass1v84-noprims.imp"; #line 1746 "pass1v84-noprims.imp" PFORMAT = (-1); _imp_current_line = 1746; _imp_current_file = "pass1v84-noprims.imp"; #line 1746 "pass1v84-noprims.imp" goto U_100a; // 1747 paction(5):->a3 %if ptype = integer _imp_current_line = 1747; _imp_current_file = "pass1v84-noprims.imp"; #line 1747 "pass1v84-noprims.imp" sw4_PACTION_5:; _imp_current_line = 1747; _imp_current_file = "pass1v84-noprims.imp"; #line 1747 "pass1v84-noprims.imp" if (((PTYPE) != (1))) goto L_0156; #line 1747 "pass1v84-noprims.imp" goto U_100a; #line 1747 "pass1v84-noprims.imp" L_0156:; // 1748 g = phrase(212) %AND pformat=-1 %IF ptype = real _imp_current_line = 1748; _imp_current_file = "pass1v84-noprims.imp"; #line 1748 "pass1v84-noprims.imp" if (((PTYPE) != (2))) goto L_0157; #line 1748 "pass1v84-noprims.imp" G = (PHRASE-200)[212]; #line 1748 "pass1v84-noprims.imp" PFORMAT = (-1); #line 1748 "pass1v84-noprims.imp" L_0157:; // 1749 g = phrase(213) %IF ptype = stringv _imp_current_line = 1749; _imp_current_file = "pass1v84-noprims.imp"; #line 1749 "pass1v84-noprims.imp" if (((PTYPE) != (3))) goto L_0158; #line 1749 "pass1v84-noprims.imp" G = (PHRASE-200)[213]; #line 1749 "pass1v84-noprims.imp" L_0158:; // 1750 ->a3 _imp_current_line = 1750; _imp_current_file = "pass1v84-noprims.imp"; #line 1750 "pass1v84-noprims.imp" goto U_100a; // 1751 paction(6):ptype = gram(ar(nmax)_sub+1)&7; pformat = -1; ->a3 _imp_current_line = 1751; _imp_current_file = "pass1v84-noprims.imp"; #line 1751 "pass1v84-noprims.imp" sw4_PACTION_6:; _imp_current_line = 1751; _imp_current_file = "pass1v84-noprims.imp"; #line 1751 "pass1v84-noprims.imp" PTYPE = ((GRAM[(((int)(AR[(((int)(NMAX)) - (1))].SUB)) + (1))]) & (7)); _imp_current_line = 1751; _imp_current_file = "pass1v84-noprims.imp"; #line 1751 "pass1v84-noprims.imp" PFORMAT = (-1); _imp_current_line = 1751; _imp_current_file = "pass1v84-noprims.imp"; #line 1751 "pass1v84-noprims.imp" goto U_100a; // 1752 paction(7):ptype=real %IF ptype = integer; pformat = -1; ->a3 _imp_current_line = 1752; _imp_current_file = "pass1v84-noprims.imp"; #line 1752 "pass1v84-noprims.imp" sw4_PACTION_7:; _imp_current_line = 1752; _imp_current_file = "pass1v84-noprims.imp"; #line 1752 "pass1v84-noprims.imp" if (((PTYPE) != (1))) goto L_0159; #line 1752 "pass1v84-noprims.imp" PTYPE = 2; #line 1752 "pass1v84-noprims.imp" L_0159:; _imp_current_line = 1752; _imp_current_file = "pass1v84-noprims.imp"; #line 1752 "pass1v84-noprims.imp" PFORMAT = (-1); _imp_current_line = 1752; _imp_current_file = "pass1v84-noprims.imp"; #line 1752 "pass1v84-noprims.imp" goto U_100a; // 1753 // 1754 a1: last1 = class; atom1 = 0; s = subatom _imp_current_line = 1754; _imp_current_file = "pass1v84-noprims.imp"; #line 1754 "pass1v84-noprims.imp" U_1015:; _imp_current_line = 1754; _imp_current_file = "pass1v84-noprims.imp"; #line 1754 "pass1v84-noprims.imp" LAST1 = CLASS; _imp_current_line = 1754; _imp_current_file = "pass1v84-noprims.imp"; #line 1754 "pass1v84-noprims.imp" ATOM1 = 0; _imp_current_line = 1754; _imp_current_file = "pass1v84-noprims.imp"; #line 1754 "pass1v84-noprims.imp" S = SUBATOM; // 1755 // 1756 a2: %IF gg&trans bit = 0 %START; !insert into analysis record _imp_current_line = 1756; _imp_current_file = "pass1v84-noprims.imp"; #line 1756 "pass1v84-noprims.imp" U_101a:; _imp_current_line = 1756; _imp_current_file = "pass1v84-noprims.imp"; #line 1756 "pass1v84-noprims.imp" if (((((GG) & (16384))) != (0))) goto L_015a; // 1757 z == node _imp_current_line = 1757; _imp_current_file = "pass1v84-noprims.imp"; #line 1757 "pass1v84-noprims.imp" Z = &NODE; // 1758 %CYCLE; !insert cell in order _imp_current_line = 1758; _imp_current_file = "pass1v84-noprims.imp"; #line 1758 "pass1v84-noprims.imp" L_015b:; // 1759 k = z _imp_current_line = 1759; _imp_current_file = "pass1v84-noprims.imp"; #line 1759 "pass1v84-noprims.imp" K = *Z; // 1760 %EXIT %IF gg&order bits = 0 %OR k = 0 _imp_current_line = 1760; _imp_current_file = "pass1v84-noprims.imp"; #line 1760 "pass1v84-noprims.imp" if (((((GG) & (12288))) == (0))) goto L_0133; #line 1760 "pass1v84-noprims.imp" if (((K) != (0))) goto L_015e; #line 1760 "pass1v84-noprims.imp" L_0133:; #line 1760 "pass1v84-noprims.imp" goto L_015c; #line 1760 "pass1v84-noprims.imp" L_015e:; // 1761 gg = gg-order bit; z == ar(k)_link _imp_current_line = 1761; _imp_current_file = "pass1v84-noprims.imp"; #line 1761 "pass1v84-noprims.imp" GG = (((int)(GG)) - (4096)); _imp_current_line = 1761; _imp_current_file = "pass1v84-noprims.imp"; #line 1761 "pass1v84-noprims.imp" Z = &AR[(((int)(K)) - (1))].LINK; // 1762 %REPEAT _imp_current_line = 1762; _imp_current_file = "pass1v84-noprims.imp"; #line 1762 "pass1v84-noprims.imp" goto L_015b; #line 1762 "pass1v84-noprims.imp" L_015c:; // 1763 gg = map gg %IF map gg # 0 %AND gg&255 = var _imp_current_line = 1763; _imp_current_file = "pass1v84-noprims.imp"; #line 1763 "pass1v84-noprims.imp" if (((MAPGG) == (0))) goto L_015f; #line 1763 "pass1v84-noprims.imp" if (((((GG) & (255))) != (91))) goto L_015f; #line 1763 "pass1v84-noprims.imp" GG = MAPGG; #line 1763 "pass1v84-noprims.imp" L_015f:; // 1764 nmin = nmin-1; ->fail0 %IF nmin = nmax _imp_current_line = 1764; _imp_current_file = "pass1v84-noprims.imp"; #line 1764 "pass1v84-noprims.imp" NMIN = (((int)(NMIN)) - (1)); _imp_current_line = 1764; _imp_current_file = "pass1v84-noprims.imp"; #line 1764 "pass1v84-noprims.imp" if (((NMIN) != (NMAX))) goto L_0160; #line 1764 "pass1v84-noprims.imp" goto U_100d; #line 1764 "pass1v84-noprims.imp" L_0160:; // 1765 z = nmin _imp_current_line = 1765; _imp_current_file = "pass1v84-noprims.imp"; #line 1765 "pass1v84-noprims.imp" *Z = NMIN; // 1766 arp == ar(nmin) _imp_current_line = 1766; _imp_current_file = "pass1v84-noprims.imp"; #line 1766 "pass1v84-noprims.imp" ARP = &AR[(((int)(NMIN)) - (1))]; // 1767 arp_sub = s; arp_class = (gg&255)!mark _imp_current_line = 1767; _imp_current_file = "pass1v84-noprims.imp"; #line 1767 "pass1v84-noprims.imp" ARP->SUB = S; _imp_current_line = 1767; _imp_current_file = "pass1v84-noprims.imp"; #line 1767 "pass1v84-noprims.imp" ARP->CLASS = ((((GG) & (255))) | (MARK)); // 1768 arp_link = k _imp_current_line = 1768; _imp_current_file = "pass1v84-noprims.imp"; #line 1768 "pass1v84-noprims.imp" ARP->LINK = K; // 1769 %FINISH _imp_current_line = 1769; _imp_current_file = "pass1v84-noprims.imp"; #line 1769 "pass1v84-noprims.imp" L_015a:; // 1770 mark = 0; map gg = 0 _imp_current_line = 1770; _imp_current_file = "pass1v84-noprims.imp"; #line 1770 "pass1v84-noprims.imp" MARK = 0; _imp_current_line = 1770; _imp_current_file = "pass1v84-noprims.imp"; #line 1770 "pass1v84-noprims.imp" MAPGG = 0; // 1771 // 1772 more: g = glink(g); !chain down the grammar _imp_current_line = 1772; _imp_current_file = "pass1v84-noprims.imp"; #line 1772 "pass1v84-noprims.imp" U_1008:; _imp_current_line = 1772; _imp_current_file = "pass1v84-noprims.imp"; #line 1772 "pass1v84-noprims.imp" G = GLINK[G]; // 1773 // 1774 paction(0): _imp_current_line = 1774; _imp_current_file = "pass1v84-noprims.imp"; #line 1774 "pass1v84-noprims.imp" sw4_PACTION_0:; // 1775 a3: gg = gram(g); class = gg&255 _imp_current_line = 1775; _imp_current_file = "pass1v84-noprims.imp"; #line 1775 "pass1v84-noprims.imp" U_100a:; _imp_current_line = 1775; _imp_current_file = "pass1v84-noprims.imp"; #line 1775 "pass1v84-noprims.imp" GG = GRAM[G]; _imp_current_line = 1775; _imp_current_file = "pass1v84-noprims.imp"; #line 1775 "pass1v84-noprims.imp" CLASS = ((GG) & (255)); // 1776 trace analysis %IF diag&1 # 0 _imp_current_line = 1776; _imp_current_file = "pass1v84-noprims.imp"; #line 1776 "pass1v84-noprims.imp" if (((((DIAG) & (1))) == (0))) goto L_0161; #line 1776 "pass1v84-noprims.imp" TRACEANALYSIS(); #line 1776 "pass1v84-noprims.imp" L_0161:; // 1777 ->a5 %IF class = 0; !end of phrase _imp_current_line = 1777; _imp_current_file = "pass1v84-noprims.imp"; #line 1777 "pass1v84-noprims.imp" if (((CLASS) != (0))) goto L_0162; #line 1777 "pass1v84-noprims.imp" goto U_100e; #line 1777 "pass1v84-noprims.imp" L_0162:; // 1778 // 1779 %IF class < actions %START; !not a phrase or an action _imp_current_line = 1779; _imp_current_file = "pass1v84-noprims.imp"; #line 1779 "pass1v84-noprims.imp" if (((CLASS) >= (180))) goto L_0163; // 1780 class = atomic(class) %IF class >= figurative _imp_current_line = 1780; _imp_current_file = "pass1v84-noprims.imp"; #line 1780 "pass1v84-noprims.imp" if (((CLASS) < (130))) goto L_0164; #line 1780 "pass1v84-noprims.imp" CLASS = (ATOMIC-130)[CLASS]; #line 1780 "pass1v84-noprims.imp" L_0164:; // 1781 ->a2 %IF class >= manifest _imp_current_line = 1781; _imp_current_file = "pass1v84-noprims.imp"; #line 1781 "pass1v84-noprims.imp" if (((CLASS) < (120))) goto L_0165; #line 1781 "pass1v84-noprims.imp" goto U_101a; #line 1781 "pass1v84-noprims.imp" L_0165:; // 1782 code atom(class) %IF atom1 = 0 _imp_current_line = 1782; _imp_current_file = "pass1v84-noprims.imp"; #line 1782 "pass1v84-noprims.imp" if (((ATOM1) != (0))) goto L_0166; #line 1782 "pass1v84-noprims.imp" CODEATOM(CLASS); #line 1782 "pass1v84-noprims.imp" L_0166:; // 1783 %IF escape class # 0 %START; !escape to new grammar _imp_current_line = 1783; _imp_current_file = "pass1v84-noprims.imp"; #line 1783 "pass1v84-noprims.imp" if (((ESCAPECLASS) == (0))) goto L_0167; // 1784 class = escape class; escape class = 0 _imp_current_line = 1784; _imp_current_file = "pass1v84-noprims.imp"; #line 1784 "pass1v84-noprims.imp" CLASS = ESCAPECLASS; _imp_current_line = 1784; _imp_current_file = "pass1v84-noprims.imp"; #line 1784 "pass1v84-noprims.imp" ESCAPECLASS = 0; // 1785 g = g+escape _imp_current_line = 1785; _imp_current_file = "pass1v84-noprims.imp"; #line 1785 "pass1v84-noprims.imp" G = (((int)(G)) + (4096)); // 1786 // 1787 !note that following an escape the next item is // 1788 !forced to be transparent! // 1789 // 1790 esc: gg = 0 _imp_current_line = 1790; _imp_current_file = "pass1v84-noprims.imp"; #line 1790 "pass1v84-noprims.imp" U_100f:; _imp_current_line = 1790; _imp_current_file = "pass1v84-noprims.imp"; #line 1790 "pass1v84-noprims.imp" GG = 0; // 1791 arp == ar(nmax+1) _imp_current_line = 1791; _imp_current_file = "pass1v84-noprims.imp"; #line 1791 "pass1v84-noprims.imp" ARP = &AR[(((int)((((int)(NMAX)) + (1)))) - (1))]; // 1792 arp_papp = papp; arp_x = x; ->a4 _imp_current_line = 1792; _imp_current_file = "pass1v84-noprims.imp"; #line 1792 "pass1v84-noprims.imp" ARP->PAPP = PAPP; _imp_current_line = 1792; _imp_current_file = "pass1v84-noprims.imp"; #line 1792 "pass1v84-noprims.imp" ARP->X = X; _imp_current_line = 1792; _imp_current_file = "pass1v84-noprims.imp"; #line 1792 "pass1v84-noprims.imp" goto U_1010; // 1793 %FINISH _imp_current_line = 1793; _imp_current_file = "pass1v84-noprims.imp"; #line 1793 "pass1v84-noprims.imp" L_0167:; // 1794 // 1795 ->a1 %IF class = atom1 %OR class = atom2 _imp_current_line = 1795; _imp_current_file = "pass1v84-noprims.imp"; #line 1795 "pass1v84-noprims.imp" if (((CLASS) == (ATOM1))) goto L_015d; #line 1795 "pass1v84-noprims.imp" if (((CLASS) != (ATOM2))) goto L_0168; #line 1795 "pass1v84-noprims.imp" L_015d:; #line 1795 "pass1v84-noprims.imp" goto U_1015; #line 1795 "pass1v84-noprims.imp" L_0168:; // 1796 // 1797 a7: ->fail1 %IF gg >= 0; !no alternative _imp_current_line = 1797; _imp_current_file = "pass1v84-noprims.imp"; #line 1797 "pass1v84-noprims.imp" U_1019:; _imp_current_line = 1797; _imp_current_file = "pass1v84-noprims.imp"; #line 1797 "pass1v84-noprims.imp" if (((GG) < (0))) goto L_0169; #line 1797 "pass1v84-noprims.imp" goto U_1009; #line 1797 "pass1v84-noprims.imp" L_0169:; // 1798 g = g+1 _imp_current_line = 1798; _imp_current_file = "pass1v84-noprims.imp"; #line 1798 "pass1v84-noprims.imp" G = (((int)(G)) + (1)); // 1799 ->a3 _imp_current_line = 1799; _imp_current_file = "pass1v84-noprims.imp"; #line 1799 "pass1v84-noprims.imp" goto U_100a; // 1800 %FINISH _imp_current_line = 1800; _imp_current_file = "pass1v84-noprims.imp"; #line 1800 "pass1v84-noprims.imp" L_0163:; // 1801 // 1802 %IF class >= phrasal %START; !a phrase _imp_current_line = 1802; _imp_current_file = "pass1v84-noprims.imp"; #line 1802 "pass1v84-noprims.imp" if (((CLASS) < (200))) goto L_016a; // 1803 a4: nmax = nmax+1; ->fail0 %IF nmax = nmin _imp_current_line = 1803; _imp_current_file = "pass1v84-noprims.imp"; #line 1803 "pass1v84-noprims.imp" U_1010:; _imp_current_line = 1803; _imp_current_file = "pass1v84-noprims.imp"; #line 1803 "pass1v84-noprims.imp" NMAX = (((int)(NMAX)) + (1)); _imp_current_line = 1803; _imp_current_file = "pass1v84-noprims.imp"; #line 1803 "pass1v84-noprims.imp" if (((NMAX) != (NMIN))) goto L_016b; #line 1803 "pass1v84-noprims.imp" goto U_100d; #line 1803 "pass1v84-noprims.imp" L_016b:; // 1804 arp == ar(nmax) _imp_current_line = 1804; _imp_current_file = "pass1v84-noprims.imp"; #line 1804 "pass1v84-noprims.imp" ARP = &AR[(((int)(NMAX)) - (1))]; // 1805 arp_ptype = ptype _imp_current_line = 1805; _imp_current_file = "pass1v84-noprims.imp"; #line 1805 "pass1v84-noprims.imp" ARP->PTYPE = PTYPE; // 1806 arp_pos = pos1 _imp_current_line = 1806; _imp_current_file = "pass1v84-noprims.imp"; #line 1806 "pass1v84-noprims.imp" ARP->POS = POS1; // 1807 arp_pformat = pformat _imp_current_line = 1807; _imp_current_file = "pass1v84-noprims.imp"; #line 1807 "pass1v84-noprims.imp" ARP->PFORMAT = PFORMAT; // 1808 arp_link = gentype _imp_current_line = 1808; _imp_current_file = "pass1v84-noprims.imp"; #line 1808 "pass1v84-noprims.imp" ARP->LINK = GENTYPE; // 1809 arp_class = node _imp_current_line = 1809; _imp_current_file = "pass1v84-noprims.imp"; #line 1809 "pass1v84-noprims.imp" ARP->CLASS = NODE; // 1810 arp_sub = g _imp_current_line = 1810; _imp_current_file = "pass1v84-noprims.imp"; #line 1810 "pass1v84-noprims.imp" ARP->SUB = G; // 1811 node = 0 _imp_current_line = 1811; _imp_current_file = "pass1v84-noprims.imp"; #line 1811 "pass1v84-noprims.imp" NODE = 0; // 1812 g = phrase(class) _imp_current_line = 1812; _imp_current_file = "pass1v84-noprims.imp"; #line 1812 "pass1v84-noprims.imp" G = (PHRASE-200)[CLASS]; // 1813 ptype = force %AND force = 0 %IF force # 0 _imp_current_line = 1813; _imp_current_file = "pass1v84-noprims.imp"; #line 1813 "pass1v84-noprims.imp" if (((FORCE) == (0))) goto L_016c; #line 1813 "pass1v84-noprims.imp" PTYPE = FORCE; #line 1813 "pass1v84-noprims.imp" FORCE = 0; #line 1813 "pass1v84-noprims.imp" L_016c:; // 1814 gentype = 0 _imp_current_line = 1814; _imp_current_file = "pass1v84-noprims.imp"; #line 1814 "pass1v84-noprims.imp" GENTYPE = 0; // 1815 ->paction(gg>>8&15) _imp_current_line = 1815; _imp_current_file = "pass1v84-noprims.imp"; #line 1815 "pass1v84-noprims.imp" sw4_PACTION_idx = (((int)((((unsigned int)(GG)) >> (8)))) & (15)); if ((0 <= sw4_PACTION_idx) && (sw4_PACTION_idx <= 15)) goto *sw4_PACTION[sw4_PACTION_idx]; else { /*_imp_signal(8, 2, sw4_PACTION_idx);*/ fprintf(stderr, "%%SWITCH index PACTION(%d) not in range 0:15 at %s:%d\n", sw4_PACTION_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 1816 %FINISH _imp_current_line = 1816; _imp_current_file = "pass1v84-noprims.imp"; #line 1816 "pass1v84-noprims.imp" L_016a:; // 1817 // 1818 ->act(class); !only actions left _imp_current_line = 1818; _imp_current_file = "pass1v84-noprims.imp"; #line 1818 "pass1v84-noprims.imp" sw3_ACT_idx = CLASS; if ((180 <= sw3_ACT_idx) && (sw3_ACT_idx <= 200)) goto *(sw3_ACT-180)[sw3_ACT_idx]; /* Bounds=180:200 */ else { /*_imp_signal(8, 2, sw3_ACT_idx);*/ fprintf(stderr, "%%SWITCH index ACT(%d) not in range 180:200 at %s:%d\n", sw3_ACT_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 1819 // 1820 a5: !reverse links _imp_current_line = 1820; _imp_current_file = "pass1v84-noprims.imp"; #line 1820 "pass1v84-noprims.imp" U_100e:; // 1821 // 1822 s = 0 _imp_current_line = 1822; _imp_current_file = "pass1v84-noprims.imp"; #line 1822 "pass1v84-noprims.imp" S = 0; // 1823 %WHILE node # 0 %CYCLE _imp_current_line = 1823; _imp_current_file = "pass1v84-noprims.imp"; #line 1823 "pass1v84-noprims.imp" L_016d:; #line 1823 "pass1v84-noprims.imp" if (((NODE) == (0))) goto L_016e; // 1824 z == ar(node)_link _imp_current_line = 1824; _imp_current_file = "pass1v84-noprims.imp"; #line 1824 "pass1v84-noprims.imp" Z = &AR[(((int)(NODE)) - (1))].LINK; // 1825 k = z; z = s; s = node; node = k _imp_current_line = 1825; _imp_current_file = "pass1v84-noprims.imp"; #line 1825 "pass1v84-noprims.imp" K = *Z; _imp_current_line = 1825; _imp_current_file = "pass1v84-noprims.imp"; #line 1825 "pass1v84-noprims.imp" *Z = S; _imp_current_line = 1825; _imp_current_file = "pass1v84-noprims.imp"; #line 1825 "pass1v84-noprims.imp" S = NODE; _imp_current_line = 1825; _imp_current_file = "pass1v84-noprims.imp"; #line 1825 "pass1v84-noprims.imp" NODE = K; // 1826 %REPEAT _imp_current_line = 1826; _imp_current_file = "pass1v84-noprims.imp"; #line 1826 "pass1v84-noprims.imp" goto L_016d; #line 1826 "pass1v84-noprims.imp" L_016e:; // 1827 ss = s _imp_current_line = 1827; _imp_current_file = "pass1v84-noprims.imp"; #line 1827 "pass1v84-noprims.imp" SS = S; // 1828 // 1829 a6: %IF nmax # 0 %START _imp_current_line = 1829; _imp_current_file = "pass1v84-noprims.imp"; #line 1829 "pass1v84-noprims.imp" U_1011:; _imp_current_line = 1829; _imp_current_file = "pass1v84-noprims.imp"; #line 1829 "pass1v84-noprims.imp" if (((NMAX) == (0))) goto L_0170; // 1830 k = gentype; !type of phrase _imp_current_line = 1830; _imp_current_file = "pass1v84-noprims.imp"; #line 1830 "pass1v84-noprims.imp" K = GENTYPE; // 1831 arp == ar(nmax); nmax = nmax-1 _imp_current_line = 1831; _imp_current_file = "pass1v84-noprims.imp"; #line 1831 "pass1v84-noprims.imp" ARP = &AR[(((int)(NMAX)) - (1))]; _imp_current_line = 1831; _imp_current_file = "pass1v84-noprims.imp"; #line 1831 "pass1v84-noprims.imp" NMAX = (((int)(NMAX)) - (1)); // 1832 node = arp_class _imp_current_line = 1832; _imp_current_file = "pass1v84-noprims.imp"; #line 1832 "pass1v84-noprims.imp" NODE = ARP->CLASS; // 1833 gentype = arp_link _imp_current_line = 1833; _imp_current_file = "pass1v84-noprims.imp"; #line 1833 "pass1v84-noprims.imp" GENTYPE = ARP->LINK; // 1834 ptype = arp_ptype _imp_current_line = 1834; _imp_current_file = "pass1v84-noprims.imp"; #line 1834 "pass1v84-noprims.imp" PTYPE = ARP->PTYPE; // 1835 pformat = arp_pformat _imp_current_line = 1835; _imp_current_file = "pass1v84-noprims.imp"; #line 1835 "pass1v84-noprims.imp" PFORMAT = ARP->PFORMAT; // 1836 g = arp_sub _imp_current_line = 1836; _imp_current_file = "pass1v84-noprims.imp"; #line 1836 "pass1v84-noprims.imp" G = ARP->SUB; // 1837 %IF g&escape # 0 %START _imp_current_line = 1837; _imp_current_file = "pass1v84-noprims.imp"; #line 1837 "pass1v84-noprims.imp" if (((((G) & (4096))) == (0))) goto L_0171; // 1838 g = g-escape _imp_current_line = 1838; _imp_current_file = "pass1v84-noprims.imp"; #line 1838 "pass1v84-noprims.imp" G = (((int)(G)) - (4096)); // 1839 papp = arp_papp _imp_current_line = 1839; _imp_current_file = "pass1v84-noprims.imp"; #line 1839 "pass1v84-noprims.imp" PAPP = ARP->PAPP; // 1840 mark = 255 _imp_current_line = 1840; _imp_current_file = "pass1v84-noprims.imp"; #line 1840 "pass1v84-noprims.imp" MARK = 255; // 1841 subatom = s _imp_current_line = 1841; _imp_current_file = "pass1v84-noprims.imp"; #line 1841 "pass1v84-noprims.imp" SUBATOM = S; // 1842 ->a3 _imp_current_line = 1842; _imp_current_file = "pass1v84-noprims.imp"; #line 1842 "pass1v84-noprims.imp" goto U_100a; // 1843 %FINISH _imp_current_line = 1843; _imp_current_file = "pass1v84-noprims.imp"; #line 1843 "pass1v84-noprims.imp" L_0171:; // 1844 gentype = k %IF gentype = 0 %OR k = real _imp_current_line = 1844; _imp_current_file = "pass1v84-noprims.imp"; #line 1844 "pass1v84-noprims.imp" if (((GENTYPE) == (0))) goto L_0172; #line 1844 "pass1v84-noprims.imp" if (((K) != (2))) goto L_0173; #line 1844 "pass1v84-noprims.imp" L_0172:; #line 1844 "pass1v84-noprims.imp" GENTYPE = K; #line 1844 "pass1v84-noprims.imp" L_0173:; // 1845 type = gen type _imp_current_line = 1845; _imp_current_file = "pass1v84-noprims.imp"; #line 1845 "pass1v84-noprims.imp" TYPE = GENTYPE; // 1846 // 1847 k = gg; !exit-point code _imp_current_line = 1847; _imp_current_file = "pass1v84-noprims.imp"; #line 1847 "pass1v84-noprims.imp" K = GG; // 1848 %CYCLE _imp_current_line = 1848; _imp_current_file = "pass1v84-noprims.imp"; #line 1848 "pass1v84-noprims.imp" L_0174:; // 1849 gg = gram(g) _imp_current_line = 1849; _imp_current_file = "pass1v84-noprims.imp"; #line 1849 "pass1v84-noprims.imp" GG = GRAM[G]; // 1850 ->a2 %IF k = 0 _imp_current_line = 1850; _imp_current_file = "pass1v84-noprims.imp"; #line 1850 "pass1v84-noprims.imp" if (((K) != (0))) goto L_0177; #line 1850 "pass1v84-noprims.imp" goto U_101a; #line 1850 "pass1v84-noprims.imp" L_0177:; // 1851 ->fail1 %IF gg >= 0; !no alternative phrase _imp_current_line = 1851; _imp_current_file = "pass1v84-noprims.imp"; #line 1851 "pass1v84-noprims.imp" if (((GG) < (0))) goto L_0178; #line 1851 "pass1v84-noprims.imp" goto U_1009; #line 1851 "pass1v84-noprims.imp" L_0178:; // 1852 k = k-order bit _imp_current_line = 1852; _imp_current_file = "pass1v84-noprims.imp"; #line 1852 "pass1v84-noprims.imp" K = (((int)(K)) - (4096)); // 1853 g = g+1; !sideways step _imp_current_line = 1853; _imp_current_file = "pass1v84-noprims.imp"; #line 1853 "pass1v84-noprims.imp" G = (((int)(G)) + (1)); // 1854 %REPEAT _imp_current_line = 1854; _imp_current_file = "pass1v84-noprims.imp"; #line 1854 "pass1v84-noprims.imp" goto L_0174; // 1855 // 1856 %FINISH _imp_current_line = 1856; _imp_current_file = "pass1v84-noprims.imp"; #line 1856 "pass1v84-noprims.imp" L_0170:; // 1857 // 1858 Fault(4) %IF copy # 0 _imp_current_line = 1858; _imp_current_file = "pass1v84-noprims.imp"; #line 1858 "pass1v84-noprims.imp" if (((COPY) == (0))) goto L_0179; #line 1858 "pass1v84-noprims.imp" FAULT(4); #line 1858 "pass1v84-noprims.imp" L_0179:; // 1859 fault(13) %IF order = 0 _imp_current_line = 1859; _imp_current_file = "pass1v84-noprims.imp"; #line 1859 "pass1v84-noprims.imp" if (((ORDER) != (0))) goto L_017a; #line 1859 "pass1v84-noprims.imp" FAULT(13); #line 1859 "pass1v84-noprims.imp" L_017a:; // 1860 fault(-4) %IF for warn # 0 _imp_current_line = 1860; _imp_current_file = "pass1v84-noprims.imp"; #line 1860 "pass1v84-noprims.imp" if (((FORWARN) == (0))) goto L_017b; #line 1860 "pass1v84-noprims.imp" FAULT((-4)); #line 1860 "pass1v84-noprims.imp" L_017b:; // 1861 pos1 = 0 _imp_current_line = 1861; _imp_current_file = "pass1v84-noprims.imp"; #line 1861 "pass1v84-noprims.imp" POS1 = 0; // 1862 fault rate = fault rate-1 _imp_current_line = 1862; _imp_current_file = "pass1v84-noprims.imp"; #line 1862 "pass1v84-noprims.imp" FAULTRATE = (((int)(FAULTRATE)) - (1)); // 1863 %RETURN _imp_current_line = 1863; _imp_current_file = "pass1v84-noprims.imp"; #line 1863 "pass1v84-noprims.imp" return; // 1864 // 1865 act(193):gg = 0 %AND ->a5 %UNLESS sym = '=' %or sym = '<'; !cdummy _imp_current_line = 1865; _imp_current_file = "pass1v84-noprims.imp"; #line 1865 "pass1v84-noprims.imp" sw3_ACT_193:; _imp_current_line = 1865; _imp_current_file = "pass1v84-noprims.imp"; #line 1865 "pass1v84-noprims.imp" if (((SYM) == (61))) goto L_017c; #line 1865 "pass1v84-noprims.imp" if (((SYM) == (60))) goto L_017c; #line 1865 "pass1v84-noprims.imp" GG = 0; #line 1865 "pass1v84-noprims.imp" goto U_100e; #line 1865 "pass1v84-noprims.imp" L_017c:; // 1866 act(181):atom1 = amap(decl&15); !dummy _imp_current_line = 1866; _imp_current_file = "pass1v84-noprims.imp"; #line 1866 "pass1v84-noprims.imp" sw3_ACT_181:; _imp_current_line = 1866; _imp_current_file = "pass1v84-noprims.imp"; #line 1866 "pass1v84-noprims.imp" ATOM1 = AMAP[((DECL) & (15))]; // 1867 ->more _imp_current_line = 1867; _imp_current_file = "pass1v84-noprims.imp"; #line 1867 "pass1v84-noprims.imp" goto U_1008; // 1868 // 1869 act(182):class = escdec; g = glink(g)!escape _imp_current_line = 1869; _imp_current_file = "pass1v84-noprims.imp"; #line 1869 "pass1v84-noprims.imp" sw3_ACT_182:; _imp_current_line = 1869; _imp_current_file = "pass1v84-noprims.imp"; #line 1869 "pass1v84-noprims.imp" CLASS = 252; _imp_current_line = 1869; _imp_current_file = "pass1v84-noprims.imp"; #line 1869 "pass1v84-noprims.imp" G = ((GLINK[G]) | (4096)); // 1870 decl = 0; otype = 0; ->esc; !decl _imp_current_line = 1870; _imp_current_file = "pass1v84-noprims.imp"; #line 1870 "pass1v84-noprims.imp" DECL = 0; _imp_current_line = 1870; _imp_current_file = "pass1v84-noprims.imp"; #line 1870 "pass1v84-noprims.imp" OTYPE = 0; _imp_current_line = 1870; _imp_current_file = "pass1v84-noprims.imp"; #line 1870 "pass1v84-noprims.imp" goto U_100f; // 1871 // 1872 act(199): !compile _imp_current_line = 1872; _imp_current_file = "pass1v84-noprims.imp"; #line 1872 "pass1v84-noprims.imp" sw3_ACT_199:; // 1873 // 1874 s = 0 _imp_current_line = 1874; _imp_current_file = "pass1v84-noprims.imp"; #line 1874 "pass1v84-noprims.imp" S = 0; // 1875 %WHILE node # 0 %CYCLE _imp_current_line = 1875; _imp_current_file = "pass1v84-noprims.imp"; #line 1875 "pass1v84-noprims.imp" L_017d:; #line 1875 "pass1v84-noprims.imp" if (((NODE) == (0))) goto L_017e; // 1876 z == ar(node)_link _imp_current_line = 1876; _imp_current_file = "pass1v84-noprims.imp"; #line 1876 "pass1v84-noprims.imp" Z = &AR[(((int)(NODE)) - (1))].LINK; // 1877 k = z; z = s; s = node; node = k _imp_current_line = 1877; _imp_current_file = "pass1v84-noprims.imp"; #line 1877 "pass1v84-noprims.imp" K = *Z; _imp_current_line = 1877; _imp_current_file = "pass1v84-noprims.imp"; #line 1877 "pass1v84-noprims.imp" *Z = S; _imp_current_line = 1877; _imp_current_file = "pass1v84-noprims.imp"; #line 1877 "pass1v84-noprims.imp" S = NODE; _imp_current_line = 1877; _imp_current_file = "pass1v84-noprims.imp"; #line 1877 "pass1v84-noprims.imp" NODE = K; // 1878 %repeat _imp_current_line = 1878; _imp_current_file = "pass1v84-noprims.imp"; #line 1878 "pass1v84-noprims.imp" goto L_017d; #line 1878 "pass1v84-noprims.imp" L_017e:; // 1879 ss = s _imp_current_line = 1879; _imp_current_file = "pass1v84-noprims.imp"; #line 1879 "pass1v84-noprims.imp" SS = S; // 1880 // 1881 code atom(28) %IF quote # 0; !expend _imp_current_line = 1881; _imp_current_file = "pass1v84-noprims.imp"; #line 1881 "pass1v84-noprims.imp" if (((QUOTE) == (0))) goto L_0180; #line 1881 "pass1v84-noprims.imp" CODEATOM(28); #line 1881 "pass1v84-noprims.imp" L_0180:; // 1882 compile; ->more %IF atom1&error = 0 _imp_current_line = 1882; _imp_current_file = "pass1v84-noprims.imp"; #line 1882 "pass1v84-noprims.imp" COMPILE(); _imp_current_line = 1882; _imp_current_file = "pass1v84-noprims.imp"; #line 1882 "pass1v84-noprims.imp" if (((((ATOM1) & (32768))) != (0))) goto L_0181; #line 1882 "pass1v84-noprims.imp" goto U_1008; #line 1882 "pass1v84-noprims.imp" L_0181:; // 1883 ->fail1 _imp_current_line = 1883; _imp_current_file = "pass1v84-noprims.imp"; #line 1883 "pass1v84-noprims.imp" goto U_1009; // 1884 // 1885 act(184):->fail4 %UNLESS type = integer _imp_current_line = 1885; _imp_current_file = "pass1v84-noprims.imp"; #line 1885 "pass1v84-noprims.imp" sw3_ACT_184:; _imp_current_line = 1885; _imp_current_file = "pass1v84-noprims.imp"; #line 1885 "pass1v84-noprims.imp" if (((TYPE) == (1))) goto L_0182; #line 1885 "pass1v84-noprims.imp" goto U_1012; #line 1885 "pass1v84-noprims.imp" L_0182:; // 1886 %IF subatom < 0 %THEN lit = tag(-subatom)_format %C _imp_current_line = 1886; _imp_current_file = "pass1v84-noprims.imp"; #line 1886 "pass1v84-noprims.imp" if (((SUBATOM) >= (0))) goto L_0183; #line 1886 "pass1v84-noprims.imp" LIT = TAG[(-(SUBATOM))].FORMAT; #line 1886 "pass1v84-noprims.imp" goto L_0184; #line 1886 "pass1v84-noprims.imp" L_0183:; #line 1886 "pass1v84-noprims.imp" LIT = LITPOOL[SUBATOM]; #line 1886 "pass1v84-noprims.imp" L_0184:; // 1887 %ELSE lit = lit pool(subatom) // 1888 ->fail4 %IF lit # 0 _imp_current_line = 1888; _imp_current_file = "pass1v84-noprims.imp"; #line 1888 "pass1v84-noprims.imp" if (((LIT) == (0))) goto L_0185; #line 1888 "pass1v84-noprims.imp" goto U_1012; #line 1888 "pass1v84-noprims.imp" L_0185:; // 1889 ->more _imp_current_line = 1889; _imp_current_file = "pass1v84-noprims.imp"; #line 1889 "pass1v84-noprims.imp" goto U_1008; // 1890 act(185): !apply parameters _imp_current_line = 1890; _imp_current_file = "pass1v84-noprims.imp"; #line 1890 "pass1v84-noprims.imp" sw3_ACT_185:; // 1891 s = 0 _imp_current_line = 1891; _imp_current_file = "pass1v84-noprims.imp"; #line 1891 "pass1v84-noprims.imp" S = 0; // 1892 %WHILE node # 0 %CYCLE _imp_current_line = 1892; _imp_current_file = "pass1v84-noprims.imp"; #line 1892 "pass1v84-noprims.imp" L_0186:; #line 1892 "pass1v84-noprims.imp" if (((NODE) == (0))) goto L_0187; // 1893 z == ar(node)_link _imp_current_line = 1893; _imp_current_file = "pass1v84-noprims.imp"; #line 1893 "pass1v84-noprims.imp" Z = &AR[(((int)(NODE)) - (1))].LINK; // 1894 k = z; z = s; s = node; node = k _imp_current_line = 1894; _imp_current_file = "pass1v84-noprims.imp"; #line 1894 "pass1v84-noprims.imp" K = *Z; _imp_current_line = 1894; _imp_current_file = "pass1v84-noprims.imp"; #line 1894 "pass1v84-noprims.imp" *Z = S; _imp_current_line = 1894; _imp_current_file = "pass1v84-noprims.imp"; #line 1894 "pass1v84-noprims.imp" S = NODE; _imp_current_line = 1894; _imp_current_file = "pass1v84-noprims.imp"; #line 1894 "pass1v84-noprims.imp" NODE = K; // 1895 %REPEAT _imp_current_line = 1895; _imp_current_file = "pass1v84-noprims.imp"; #line 1895 "pass1v84-noprims.imp" goto L_0186; #line 1895 "pass1v84-noprims.imp" L_0187:; // 1896 ss = s _imp_current_line = 1896; _imp_current_file = "pass1v84-noprims.imp"; #line 1896 "pass1v84-noprims.imp" SS = S; // 1897 // 1898 atom1 = ar(s)_class; atom2 = 0 _imp_current_line = 1898; _imp_current_file = "pass1v84-noprims.imp"; #line 1898 "pass1v84-noprims.imp" ATOM1 = AR[(((int)(S)) - (1))].CLASS; _imp_current_line = 1898; _imp_current_file = "pass1v84-noprims.imp"; #line 1898 "pass1v84-noprims.imp" ATOM2 = 0; // 1899 atom1 = var %IF atom1 = 97 %OR atom1 = 98 _imp_current_line = 1899; _imp_current_file = "pass1v84-noprims.imp"; #line 1899 "pass1v84-noprims.imp" if (((ATOM1) == (97))) goto L_0188; #line 1899 "pass1v84-noprims.imp" if (((ATOM1) != (98))) goto L_0189; #line 1899 "pass1v84-noprims.imp" L_0188:; #line 1899 "pass1v84-noprims.imp" ATOM1 = 91; #line 1899 "pass1v84-noprims.imp" L_0189:; // 1900 arp == ar(nmax) _imp_current_line = 1900; _imp_current_file = "pass1v84-noprims.imp"; #line 1900 "pass1v84-noprims.imp" ARP = &AR[(((int)(NMAX)) - (1))]; // 1901 x = arp_x _imp_current_line = 1901; _imp_current_file = "pass1v84-noprims.imp"; #line 1901 "pass1v84-noprims.imp" X = ARP->X; // 1902 pos1 = arp_pos _imp_current_line = 1902; _imp_current_file = "pass1v84-noprims.imp"; #line 1902 "pass1v84-noprims.imp" POS1 = ARP->POS; // 1903 pos2 = 0 _imp_current_line = 1903; _imp_current_file = "pass1v84-noprims.imp"; #line 1903 "pass1v84-noprims.imp" POS2 = 0; // 1904 app = 0 _imp_current_line = 1904; _imp_current_file = "pass1v84-noprims.imp"; #line 1904 "pass1v84-noprims.imp" APP = 0; // 1905 format = tag(x)_format _imp_current_line = 1905; _imp_current_file = "pass1v84-noprims.imp"; #line 1905 "pass1v84-noprims.imp" FORMAT = TAG[X].FORMAT; // 1906 flags = tag(x)_flags _imp_current_line = 1906; _imp_current_file = "pass1v84-noprims.imp"; #line 1906 "pass1v84-noprims.imp" FLAGS = TAG[X].FLAGS; // 1907 type = flags>>4&7 _imp_current_line = 1907; _imp_current_file = "pass1v84-noprims.imp"; #line 1907 "pass1v84-noprims.imp" TYPE = (((int)((((unsigned int)(FLAGS)) >> (4)))) & (7)); // 1908 protection = flags&prot _imp_current_line = 1908; _imp_current_file = "pass1v84-noprims.imp"; #line 1908 "pass1v84-noprims.imp" PROTECTION = ((FLAGS) & (256)); // 1909 protection = 0 %IF flags&aname # 0 _imp_current_line = 1909; _imp_current_file = "pass1v84-noprims.imp"; #line 1909 "pass1v84-noprims.imp" if (((((FLAGS) & (1024))) == (0))) goto L_018a; #line 1909 "pass1v84-noprims.imp" PROTECTION = 0; #line 1909 "pass1v84-noprims.imp" L_018a:; // 1910 // 1911 %IF flags&subname # 0 %AND format # 0 %START _imp_current_line = 1911; _imp_current_file = "pass1v84-noprims.imp"; #line 1911 "pass1v84-noprims.imp" if (((((FLAGS) & (2048))) == (0))) goto L_018b; #line 1911 "pass1v84-noprims.imp" if (((FORMAT) == (0))) goto L_018b; // 1912 ->fail1 %if format selected = 0 _imp_current_line = 1912; _imp_current_file = "pass1v84-noprims.imp"; #line 1912 "pass1v84-noprims.imp" if (((FORMATSELECTED()) != (0))) goto L_0175; #line 1912 "pass1v84-noprims.imp" goto U_1009; #line 1912 "pass1v84-noprims.imp" L_0175:; // 1913 %FINISH _imp_current_line = 1913; _imp_current_file = "pass1v84-noprims.imp"; #line 1913 "pass1v84-noprims.imp" L_018b:; // 1914 // 1915 ->a6 _imp_current_line = 1915; _imp_current_file = "pass1v84-noprims.imp"; #line 1915 "pass1v84-noprims.imp" goto U_1011; // 1916 // 1917 act(187):protection = prot; ->more; !%SETPROT _imp_current_line = 1917; _imp_current_file = "pass1v84-noprims.imp"; #line 1917 "pass1v84-noprims.imp" sw3_ACT_187:; _imp_current_line = 1917; _imp_current_file = "pass1v84-noprims.imp"; #line 1917 "pass1v84-noprims.imp" PROTECTION = 256; _imp_current_line = 1917; _imp_current_file = "pass1v84-noprims.imp"; #line 1917 "pass1v84-noprims.imp" goto U_1008; // 1918 act(186):->More %if protection&prot = 0 _imp_current_line = 1918; _imp_current_file = "pass1v84-noprims.imp"; #line 1918 "pass1v84-noprims.imp" sw3_ACT_186:; _imp_current_line = 1918; _imp_current_file = "pass1v84-noprims.imp"; #line 1918 "pass1v84-noprims.imp" if (((((PROTECTION) & (256))) != (0))) goto L_018c; #line 1918 "pass1v84-noprims.imp" goto U_1008; #line 1918 "pass1v84-noprims.imp" L_018c:; // 1919 prot err = nmin _imp_current_line = 1919; _imp_current_file = "pass1v84-noprims.imp"; #line 1919 "pass1v84-noprims.imp" PROTERR = NMIN; // 1920 ->A7 _imp_current_line = 1920; _imp_current_file = "pass1v84-noprims.imp"; #line 1920 "pass1v84-noprims.imp" goto U_1019; // 1921 act(191):k = protection; !%GUARD _imp_current_line = 1921; _imp_current_file = "pass1v84-noprims.imp"; #line 1921 "pass1v84-noprims.imp" sw3_ACT_191:; _imp_current_line = 1921; _imp_current_file = "pass1v84-noprims.imp"; #line 1921 "pass1v84-noprims.imp" K = PROTECTION; // 1922 code atom(0) _imp_current_line = 1922; _imp_current_file = "pass1v84-noprims.imp"; #line 1922 "pass1v84-noprims.imp" CODEATOM(0); // 1923 protection = k %IF atom flags&aname = 0 _imp_current_line = 1923; _imp_current_file = "pass1v84-noprims.imp"; #line 1923 "pass1v84-noprims.imp" if (((((ATOMFLAGS) & (1024))) != (0))) goto L_018d; #line 1923 "pass1v84-noprims.imp" PROTECTION = K; #line 1923 "pass1v84-noprims.imp" L_018d:; // 1924 ->more _imp_current_line = 1924; _imp_current_file = "pass1v84-noprims.imp"; #line 1924 "pass1v84-noprims.imp" goto U_1008; // 1925 // 1926 act(192):->fail1 %IF parsed machine code=0 _imp_current_line = 1926; _imp_current_file = "pass1v84-noprims.imp"; #line 1926 "pass1v84-noprims.imp" sw3_ACT_192:; _imp_current_line = 1926; _imp_current_file = "pass1v84-noprims.imp"; #line 1926 "pass1v84-noprims.imp" if (((PARSEDMACHINECODE()) != (0))) goto L_018e; #line 1926 "pass1v84-noprims.imp" goto U_1009; #line 1926 "pass1v84-noprims.imp" L_018e:; // 1927 ->more _imp_current_line = 1927; _imp_current_file = "pass1v84-noprims.imp"; #line 1927 "pass1v84-noprims.imp" goto U_1008; // 1928 // 1929 act(189):k = gapp; !%GAPP _imp_current_line = 1929; _imp_current_file = "pass1v84-noprims.imp"; #line 1929 "pass1v84-noprims.imp" sw3_ACT_189:; _imp_current_line = 1929; _imp_current_file = "pass1v84-noprims.imp"; #line 1929 "pass1v84-noprims.imp" K = GAPP(); // 1930 delete names(1) _imp_current_line = 1930; _imp_current_file = "pass1v84-noprims.imp"; #line 1930 "pass1v84-noprims.imp" DELETENAMES(1); // 1931 tmax = tbase; tbase = gram (gmin); !restore tmax _imp_current_line = 1931; _imp_current_file = "pass1v84-noprims.imp"; #line 1931 "pass1v84-noprims.imp" TMAX = TBASE; _imp_current_line = 1931; _imp_current_file = "pass1v84-noprims.imp"; #line 1931 "pass1v84-noprims.imp" TBASE = GRAM[GMIN]; // 1932 local= tbase _imp_current_line = 1932; _imp_current_file = "pass1v84-noprims.imp"; #line 1932 "pass1v84-noprims.imp" LOCAL = TBASE; // 1933 gmin = gmin+1 _imp_current_line = 1933; _imp_current_file = "pass1v84-noprims.imp"; #line 1933 "pass1v84-noprims.imp" GMIN = (((int)(GMIN)) + (1)); // 1934 // 1935 x = ar(ar(nmax)_class)_sub _imp_current_line = 1935; _imp_current_file = "pass1v84-noprims.imp"; #line 1935 "pass1v84-noprims.imp" X = AR[(((int)(AR[(((int)(NMAX)) - (1))].CLASS)) - (1))].SUB; // 1936 tag(x)_app = k; !update app _imp_current_line = 1936; _imp_current_file = "pass1v84-noprims.imp"; #line 1936 "pass1v84-noprims.imp" TAG[X].APP = K; // 1937 ->more _imp_current_line = 1937; _imp_current_file = "pass1v84-noprims.imp"; #line 1937 "pass1v84-noprims.imp" goto U_1008; // 1938 // 1939 act(190):gmin = gmin-1; !%LOCAL _imp_current_line = 1939; _imp_current_file = "pass1v84-noprims.imp"; #line 1939 "pass1v84-noprims.imp" sw3_ACT_190:; _imp_current_line = 1939; _imp_current_file = "pass1v84-noprims.imp"; #line 1939 "pass1v84-noprims.imp" GMIN = (((int)(GMIN)) - (1)); // 1940 abandon(2) %IF gmin <= gmax _imp_current_line = 1940; _imp_current_file = "pass1v84-noprims.imp"; #line 1940 "pass1v84-noprims.imp" if (((GMIN) > (GMAX))) goto L_018f; #line 1940 "pass1v84-noprims.imp" ABANDON(2); #line 1940 "pass1v84-noprims.imp" L_018f:; // 1941 gram (gmin) = tbase; tbase = tmax _imp_current_line = 1941; _imp_current_file = "pass1v84-noprims.imp"; #line 1941 "pass1v84-noprims.imp" GRAM[GMIN] = TBASE; _imp_current_line = 1941; _imp_current_file = "pass1v84-noprims.imp"; #line 1941 "pass1v84-noprims.imp" TBASE = TMAX; // 1942 local = tbase _imp_current_line = 1942; _imp_current_file = "pass1v84-noprims.imp"; #line 1942 "pass1v84-noprims.imp" LOCAL = TBASE; // 1943 ->more _imp_current_line = 1943; _imp_current_file = "pass1v84-noprims.imp"; #line 1943 "pass1v84-noprims.imp" goto U_1008; // 1944 // 1945 ! errors // 1946 // 1947 fail4:k = error+10; ->failed; !*size _imp_current_line = 1947; _imp_current_file = "pass1v84-noprims.imp"; #line 1947 "pass1v84-noprims.imp" U_1012:; _imp_current_line = 1947; _imp_current_file = "pass1v84-noprims.imp"; #line 1947 "pass1v84-noprims.imp" K = 32778; _imp_current_line = 1947; _imp_current_file = "pass1v84-noprims.imp"; #line 1947 "pass1v84-noprims.imp" goto U_1013; // 1948 fail3:k = error+7; ->failed; !*context _imp_current_line = 1948; _imp_current_file = "pass1v84-noprims.imp"; #line 1948 "pass1v84-noprims.imp" U_1018:; _imp_current_line = 1948; _imp_current_file = "pass1v84-noprims.imp"; #line 1948 "pass1v84-noprims.imp" K = 32775; _imp_current_line = 1948; _imp_current_file = "pass1v84-noprims.imp"; #line 1948 "pass1v84-noprims.imp" goto U_1013; // 1949 fail2:k = error+5; pos2 = 0; ->failed; !*type _imp_current_line = 1949; _imp_current_file = "pass1v84-noprims.imp"; #line 1949 "pass1v84-noprims.imp" U_1017:; _imp_current_line = 1949; _imp_current_file = "pass1v84-noprims.imp"; #line 1949 "pass1v84-noprims.imp" K = 32773; _imp_current_line = 1949; _imp_current_file = "pass1v84-noprims.imp"; #line 1949 "pass1v84-noprims.imp" POS2 = 0; _imp_current_line = 1949; _imp_current_file = "pass1v84-noprims.imp"; #line 1949 "pass1v84-noprims.imp" goto U_1013; // 1950 fail0:k = error+3; ->failed; !*too complex _imp_current_line = 1950; _imp_current_file = "pass1v84-noprims.imp"; #line 1950 "pass1v84-noprims.imp" U_100d:; _imp_current_line = 1950; _imp_current_file = "pass1v84-noprims.imp"; #line 1950 "pass1v84-noprims.imp" K = 32771; _imp_current_line = 1950; _imp_current_file = "pass1v84-noprims.imp"; #line 1950 "pass1v84-noprims.imp" goto U_1013; // 1951 fail1:k = atom1; pos2 = 0 _imp_current_line = 1951; _imp_current_file = "pass1v84-noprims.imp"; #line 1951 "pass1v84-noprims.imp" U_1009:; _imp_current_line = 1951; _imp_current_file = "pass1v84-noprims.imp"; #line 1951 "pass1v84-noprims.imp" K = ATOM1; _imp_current_line = 1951; _imp_current_file = "pass1v84-noprims.imp"; #line 1951 "pass1v84-noprims.imp" POS2 = 0; // 1952 // 1953 failed: _imp_current_line = 1953; _imp_current_file = "pass1v84-noprims.imp"; #line 1953 "pass1v84-noprims.imp" U_1013:; // 1954 %IF diag&32 # 0 %START _imp_current_line = 1954; _imp_current_file = "pass1v84-noprims.imp"; #line 1954 "pass1v84-noprims.imp" if (((((DIAG) & (32))) == (0))) goto L_0190; // 1955 printstring("Atom1 ="); write(atom1, 3) _imp_current_line = 1955; _imp_current_file = "pass1v84-noprims.imp"; #line 1955 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("Atom1 =")); _imp_current_line = 1955; _imp_current_file = "pass1v84-noprims.imp"; #line 1955 "pass1v84-noprims.imp" _imp_WRITE(ATOM1, 3); // 1956 printstring(" Atom2 ="); write(atom2, 3) _imp_current_line = 1956; _imp_current_file = "pass1v84-noprims.imp"; #line 1956 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal(" Atom2 =")); _imp_current_line = 1956; _imp_current_file = "pass1v84-noprims.imp"; #line 1956 "pass1v84-noprims.imp" _imp_WRITE(ATOM2, 3); // 1957 printstring(" subatom ="); write(subatom, 3); newline _imp_current_line = 1957; _imp_current_file = "pass1v84-noprims.imp"; #line 1957 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal(" subatom =")); _imp_current_line = 1957; _imp_current_file = "pass1v84-noprims.imp"; #line 1957 "pass1v84-noprims.imp" _imp_WRITE(SUBATOM, 3); _imp_current_line = 1957; _imp_current_file = "pass1v84-noprims.imp"; #line 1957 "pass1v84-noprims.imp" _imp_NEWLINE(); // 1958 printstring("Type ="); write(type, 1) _imp_current_line = 1958; _imp_current_file = "pass1v84-noprims.imp"; #line 1958 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("Type =")); _imp_current_line = 1958; _imp_current_file = "pass1v84-noprims.imp"; #line 1958 "pass1v84-noprims.imp" _imp_WRITE(TYPE, 1); // 1959 printstring(" Ptype ="); write(ptype, 1); newline _imp_current_line = 1959; _imp_current_file = "pass1v84-noprims.imp"; #line 1959 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal(" Ptype =")); _imp_current_line = 1959; _imp_current_file = "pass1v84-noprims.imp"; #line 1959 "pass1v84-noprims.imp" _imp_WRITE(PTYPE, 1); _imp_current_line = 1959; _imp_current_file = "pass1v84-noprims.imp"; #line 1959 "pass1v84-noprims.imp" _imp_NEWLINE(); // 1960 printstring("App ="); write(app, 1) _imp_current_line = 1960; _imp_current_file = "pass1v84-noprims.imp"; #line 1960 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("App =")); _imp_current_line = 1960; _imp_current_file = "pass1v84-noprims.imp"; #line 1960 "pass1v84-noprims.imp" _imp_WRITE(APP, 1); // 1961 printstring(" Papp ="); write(papp, 1); newline _imp_current_line = 1961; _imp_current_file = "pass1v84-noprims.imp"; #line 1961 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal(" Papp =")); _imp_current_line = 1961; _imp_current_file = "pass1v84-noprims.imp"; #line 1961 "pass1v84-noprims.imp" _imp_WRITE(PAPP, 1); _imp_current_line = 1961; _imp_current_file = "pass1v84-noprims.imp"; #line 1961 "pass1v84-noprims.imp" _imp_NEWLINE(); // 1962 printstring("Format ="); write(format, 1) _imp_current_line = 1962; _imp_current_file = "pass1v84-noprims.imp"; #line 1962 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("Format =")); _imp_current_line = 1962; _imp_current_file = "pass1v84-noprims.imp"; #line 1962 "pass1v84-noprims.imp" _imp_WRITE(FORMAT, 1); // 1963 printstring(" Pformat ="); write(pformat, 1); newline _imp_current_line = 1963; _imp_current_file = "pass1v84-noprims.imp"; #line 1963 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal(" Pformat =")); _imp_current_line = 1963; _imp_current_file = "pass1v84-noprims.imp"; #line 1963 "pass1v84-noprims.imp" _imp_WRITE(PFORMAT, 1); _imp_current_line = 1963; _imp_current_file = "pass1v84-noprims.imp"; #line 1963 "pass1v84-noprims.imp" _imp_NEWLINE(); // 1964 !IMP80 BUG??? %SIGNAL 13,15 // 1965 %STOP _imp_current_line = 1965; _imp_current_file = "pass1v84-noprims.imp"; #line 1965 "pass1v84-noprims.imp" exit(0); // 1966 %FINISH _imp_current_line = 1966; _imp_current_file = "pass1v84-noprims.imp"; #line 1966 "pass1v84-noprims.imp" L_0190:; // 1967 // 1968 quote = 0 %AND readsym %WHILE sym # nl %AND sym # ';' _imp_current_line = 1968; _imp_current_file = "pass1v84-noprims.imp"; #line 1968 "pass1v84-noprims.imp" L_0191:; #line 1968 "pass1v84-noprims.imp" if (((SYM) == (10))) goto L_0192; #line 1968 "pass1v84-noprims.imp" if (((SYM) == (59))) goto L_0192; #line 1968 "pass1v84-noprims.imp" QUOTE = 0; #line 1968 "pass1v84-noprims.imp" READSYM(); #line 1968 "pass1v84-noprims.imp" goto L_0191; #line 1968 "pass1v84-noprims.imp" L_0192:; // 1969 %IF k&error # 0 %START _imp_current_line = 1969; _imp_current_file = "pass1v84-noprims.imp"; #line 1969 "pass1v84-noprims.imp" if (((((K) & (32768))) == (0))) goto L_0194; // 1970 fault(k&255) _imp_current_line = 1970; _imp_current_file = "pass1v84-noprims.imp"; #line 1970 "pass1v84-noprims.imp" FAULT(((K) & (255))); // 1971 %FINISH %ELSE %START _imp_current_line = 1971; _imp_current_file = "pass1v84-noprims.imp"; #line 1971 "pass1v84-noprims.imp" goto L_0195; #line 1971 "pass1v84-noprims.imp" L_0194:; // 1972 %IF prot err = nmin %THEN fault(14) %ELSE fault(0) _imp_current_line = 1972; _imp_current_file = "pass1v84-noprims.imp"; #line 1972 "pass1v84-noprims.imp" if (((PROTERR) != (NMIN))) goto L_0196; #line 1972 "pass1v84-noprims.imp" FAULT(14); #line 1972 "pass1v84-noprims.imp" goto L_0197; #line 1972 "pass1v84-noprims.imp" L_0196:; #line 1972 "pass1v84-noprims.imp" FAULT(0); #line 1972 "pass1v84-noprims.imp" L_0197:; // 1973 %FINISH _imp_current_line = 1973; _imp_current_file = "pass1v84-noprims.imp"; #line 1973 "pass1v84-noprims.imp" L_0195:; // 1974 gg = 0; ss = 0; symtype = 0 _imp_current_line = 1974; _imp_current_file = "pass1v84-noprims.imp"; #line 1974 "pass1v84-noprims.imp" GG = 0; _imp_current_line = 1974; _imp_current_file = "pass1v84-noprims.imp"; #line 1974 "pass1v84-noprims.imp" SS = 0; _imp_current_line = 1974; _imp_current_file = "pass1v84-noprims.imp"; #line 1974 "pass1v84-noprims.imp" SYMTYPE = 0; // 1975 %END; !of analyse _imp_current_line = 1975; _imp_current_file = "pass1v84-noprims.imp"; #line 1975 "pass1v84-noprims.imp" return; sw4_PACTION_8:; sw4_PACTION_9:; sw4_PACTION_10:; sw4_PACTION_11:; sw4_PACTION_12:; sw4_PACTION_13:; sw4_PACTION_14:; sw4_PACTION_15:; /*_imp_signal(6,3,sw4_PACTION_idx,"SWITCH LABEL NOT SET - sw4_PACTION");*/ fprintf(stderr, "%%SWITCH LABEL NOT SET - sw4_PACTION(%d): at line %s:%d", sw4_PACTION_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); sw3_ACT_180:; sw3_ACT_200:; /*_imp_signal(6,3,sw3_ACT_idx,"SWITCH LABEL NOT SET - sw3_ACT");*/ fprintf(stderr, "%%SWITCH LABEL NOT SET - sw3_ACT(%d): at line %s:%d", sw3_ACT_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); _imp_endofblock: ; } // End of block ANALYSE at level 3 // 1976 // 1977 %ROUTINE compile _imp_current_line = 1977; _imp_current_file = "pass1v84-noprims.imp"; #line 1977 "pass1v84-noprims.imp" void COMPILE( void ) #line 1977 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 1978 // 1979 %CONSTINTEGER then = 4, else = 8, loop = 16 _imp_current_line = 1979; _imp_current_file = "pass1v84-noprims.imp"; // 1980 // 1981 %SWITCH c(0:actions), litop(1:12) _imp_current_line = 1981; _imp_current_file = "pass1v84-noprims.imp"; #line 1981 "pass1v84-noprims.imp" static int sw5_C_idx; static const void * /*SWITCH*/ sw5_C[181] = { &&sw5_C_0, &&sw5_C_1, &&sw5_C_2, &&sw5_C_3, &&sw5_C_4, &&sw5_C_5, &&sw5_C_6, &&sw5_C_7, &&sw5_C_8, &&sw5_C_9, &&sw5_C_10, &&sw5_C_11, &&sw5_C_12, &&sw5_C_13, &&sw5_C_14, &&sw5_C_15, &&sw5_C_16, &&sw5_C_17, &&sw5_C_18, &&sw5_C_19, &&sw5_C_20, &&sw5_C_21, &&sw5_C_22, &&sw5_C_23, &&sw5_C_24, &&sw5_C_25, &&sw5_C_26, &&sw5_C_27, &&sw5_C_28, &&sw5_C_29, &&sw5_C_30, &&sw5_C_31, &&sw5_C_32, &&sw5_C_33, &&sw5_C_34, &&sw5_C_35, &&sw5_C_36, &&sw5_C_37, &&sw5_C_38, &&sw5_C_39, &&sw5_C_40, &&sw5_C_41, &&sw5_C_42, &&sw5_C_43, &&sw5_C_44, &&sw5_C_45, &&sw5_C_46, &&sw5_C_47, &&sw5_C_48, &&sw5_C_49, &&sw5_C_50, &&sw5_C_51, &&sw5_C_52, &&sw5_C_53, &&sw5_C_54, &&sw5_C_55, &&sw5_C_56, &&sw5_C_57, &&sw5_C_58, &&sw5_C_59, &&sw5_C_60, &&sw5_C_61, &&sw5_C_62, &&sw5_C_63, &&sw5_C_64, &&sw5_C_65, &&sw5_C_66, &&sw5_C_67, &&sw5_C_68, &&sw5_C_69, &&sw5_C_70, &&sw5_C_71, &&sw5_C_72, &&sw5_C_73, &&sw5_C_74, &&sw5_C_75, &&sw5_C_76, &&sw5_C_77, &&sw5_C_78, &&sw5_C_79, &&sw5_C_80, &&sw5_C_81, &&sw5_C_82, &&sw5_C_83, &&sw5_C_84, &&sw5_C_85, &&sw5_C_86, &&sw5_C_87, &&sw5_C_88, &&sw5_C_89, &&sw5_C_90, &&sw5_C_91, &&sw5_C_92, &&sw5_C_93, &&sw5_C_94, &&sw5_C_95, &&sw5_C_96, &&sw5_C_97, &&sw5_C_98, &&sw5_C_99, &&sw5_C_100, &&sw5_C_101, &&sw5_C_102, &&sw5_C_103, &&sw5_C_104, &&sw5_C_105, &&sw5_C_106, &&sw5_C_107, &&sw5_C_108, &&sw5_C_109, &&sw5_C_110, &&sw5_C_111, &&sw5_C_112, &&sw5_C_113, &&sw5_C_114, &&sw5_C_115, &&sw5_C_116, &&sw5_C_117, &&sw5_C_118, &&sw5_C_119, &&sw5_C_120, &&sw5_C_121, &&sw5_C_122, &&sw5_C_123, &&sw5_C_124, &&sw5_C_125, &&sw5_C_126, &&sw5_C_127, &&sw5_C_128, &&sw5_C_129, &&sw5_C_130, &&sw5_C_131, &&sw5_C_132, &&sw5_C_133, &&sw5_C_134, &&sw5_C_135, &&sw5_C_136, &&sw5_C_137, &&sw5_C_138, &&sw5_C_139, &&sw5_C_140, &&sw5_C_141, &&sw5_C_142, &&sw5_C_143, &&sw5_C_144, &&sw5_C_145, &&sw5_C_146, &&sw5_C_147, &&sw5_C_148, &&sw5_C_149, &&sw5_C_150, &&sw5_C_151, &&sw5_C_152, &&sw5_C_153, &&sw5_C_154, &&sw5_C_155, &&sw5_C_156, &&sw5_C_157, &&sw5_C_158, &&sw5_C_159, &&sw5_C_160, &&sw5_C_161, &&sw5_C_162, &&sw5_C_163, &&sw5_C_164, &&sw5_C_165, &&sw5_C_166, &&sw5_C_167, &&sw5_C_168, &&sw5_C_169, &&sw5_C_170, &&sw5_C_171, &&sw5_C_172, &&sw5_C_173, &&sw5_C_174, &&sw5_C_175, &&sw5_C_176, &&sw5_C_177, &&sw5_C_178, &&sw5_C_179, &&sw5_C_180, }; #line 1981 "pass1v84-noprims.imp" static int sw6_LITOP_idx; static const void * /*SWITCH*/ sw6_LITOP[12] = { &&sw6_LITOP_1, &&sw6_LITOP_2, &&sw6_LITOP_3, &&sw6_LITOP_4, &&sw6_LITOP_5, &&sw6_LITOP_6, &&sw6_LITOP_7, &&sw6_LITOP_8, &&sw6_LITOP_9, &&sw6_LITOP_10, &&sw6_LITOP_11, &&sw6_LITOP_12, }; // 1982 // 1983 %CONSTBYTEINTEGERARRAY operator(1:14) = %C _imp_current_line = 1983; _imp_current_file = "pass1v84-noprims.imp"; #line 1983 "pass1v84-noprims.imp" const unsigned char OPERATOR[14] = { 91, 93, 88, 47, 38, 33, 37, 43, 45, 42, 81, 120, 46, 118, }; // 1984 '[', ']', 'X', '/', '&', '!', '%', '+', // 1985 '-', '*', 'Q', 'x', '.', 'v' // 1986 // 1987 %CONSTBYTEINTEGERARRAY cc(0 : 7) = '#','=',')','<','(','>', 'k','t' _imp_current_line = 1987; _imp_current_file = "pass1v84-noprims.imp"; #line 1987 "pass1v84-noprims.imp" const unsigned char CC[8] = { 35, 61, 41, 60, 40, 62, 107, 116, }; // 1988 // 1989 %CONSTBYTEINTEGERARRAY anyform(0:15) = 1,0,1,1(4),1,0,1,1,0,1,1,1,1 _imp_current_line = 1989; _imp_current_file = "pass1v84-noprims.imp"; #line 1989 "pass1v84-noprims.imp" const unsigned char ANYFORM[16] = { 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, }; // 1990 // 1991 %CONSTSHORTINTEGERARRAY decmap(0:15) = %C _imp_current_line = 1991; _imp_current_file = "pass1v84-noprims.imp"; #line 1991 "pass1v84-noprims.imp" const short DECMAP[16] = { 1, 2, 4107, 4109, 5132, 5134, 3, 4, 4103, 4104, 4105, 4106, 6, 0, 0, 0, }; // 1992 1, 2, // 1993 x'100B', x'100D', x'140C', x'140E', // 1994 3, 4, // 1995 x'1007', x'1008', x'1009', x'100A', // 1996 6, 0, 0, 0 // 1997 %OWNBYTEINTEGERARRAY cnest(0:15) _imp_current_line = 1997; _imp_current_file = "pass1v84-noprims.imp"; #line 1997 "pass1v84-noprims.imp" static unsigned char CNEST[16]; // 1998 %INTEGER lmode, clab, dupid _imp_current_line = 1998; _imp_current_file = "pass1v84-noprims.imp"; #line 1998 "pass1v84-noprims.imp" int LMODE; #line 1998 "pass1v84-noprims.imp" int CLAB; #line 1998 "pass1v84-noprims.imp" int DUPID; // 1999 %INTEGER resln _imp_current_line = 1999; _imp_current_file = "pass1v84-noprims.imp"; #line 1999 "pass1v84-noprims.imp" int RESLN; // 2000 %OWNINTEGER last def = 0 _imp_current_line = 2000; _imp_current_file = "pass1v84-noprims.imp"; #line 2000 "pass1v84-noprims.imp" static int LASTDEF = 0; // 2001 %OWNINTEGER lb, ub _imp_current_line = 2001; _imp_current_file = "pass1v84-noprims.imp"; #line 2001 "pass1v84-noprims.imp" static int LB; #line 2001 "pass1v84-noprims.imp" static int UB; // 2002 %INTEGER cp, ord _imp_current_line = 2002; _imp_current_file = "pass1v84-noprims.imp"; #line 2002 "pass1v84-noprims.imp" int CP; #line 2002 "pass1v84-noprims.imp" int ORD; // 2003 %INTEGER next, link, j, k, n, done _imp_current_line = 2003; _imp_current_file = "pass1v84-noprims.imp"; #line 2003 "pass1v84-noprims.imp" int NEXT; #line 2003 "pass1v84-noprims.imp" int LINK; #line 2003 "pass1v84-noprims.imp" int J; #line 2003 "pass1v84-noprims.imp" int K; #line 2003 "pass1v84-noprims.imp" int N; #line 2003 "pass1v84-noprims.imp" int DONE; // 2004 %INTEGER class _imp_current_line = 2004; _imp_current_file = "pass1v84-noprims.imp"; #line 2004 "pass1v84-noprims.imp" int CLASS; // 2005 %INTEGER lit2, defs, decs, cident _imp_current_line = 2005; _imp_current_file = "pass1v84-noprims.imp"; #line 2005 "pass1v84-noprims.imp" int LIT2; #line 2005 "pass1v84-noprims.imp" int DEFS; #line 2005 "pass1v84-noprims.imp" int DECS; #line 2005 "pass1v84-noprims.imp" int CIDENT; // 2006 %INTEGER pending; %OWNINTEGERARRAY pstack(1:40) _imp_current_line = 2006; _imp_current_file = "pass1v84-noprims.imp"; #line 2006 "pass1v84-noprims.imp" int PENDING; _imp_current_line = 2006; _imp_current_file = "pass1v84-noprims.imp"; #line 2006 "pass1v84-noprims.imp" static int PSTACK[40]; // 2007 %OWNSTRING(8) name = "" _imp_current_line = 2007; _imp_current_file = "pass1v84-noprims.imp"; #line 2007 "pass1v84-noprims.imp" static _imp_string /*%string(8)*/ NAME = _imp_str_literal(""); // 2008 %OWNINTEGER count = 0 _imp_current_line = 2008; _imp_current_file = "pass1v84-noprims.imp"; #line 2008 "pass1v84-noprims.imp" static int COUNT = 0; // 2009 // 2010 %ROUTINE def lab(%INTEGER l) _imp_current_line = 2010; _imp_current_file = "pass1v84-noprims.imp"; #line 2010 "pass1v84-noprims.imp" void DEFLAB( int L ) #line 2010 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 2011 op(':', l) _imp_current_line = 2011; _imp_current_file = "pass1v84-noprims.imp"; #line 2011 "pass1v84-noprims.imp" OP(58, L); // 2012 access = 1 _imp_current_line = 2012; _imp_current_file = "pass1v84-noprims.imp"; #line 2012 "pass1v84-noprims.imp" ACCESS = 1; // 2013 %END _imp_current_line = 2013; _imp_current_file = "pass1v84-noprims.imp"; #line 2013 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block DEFLAB at level 4 // 2014 // 2015 %ROUTINE get next _imp_current_line = 2015; _imp_current_file = "pass1v84-noprims.imp"; #line 2015 "pass1v84-noprims.imp" void GETNEXT( void ) #line 2015 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 2016 %RECORD(arfm)%NAME p _imp_current_line = 2016; _imp_current_file = "pass1v84-noprims.imp"; #line 2016 "pass1v84-noprims.imp" ARFM /*name*/*P; // 2017 gn: %IF next = 0 %START; !end of phrase _imp_current_line = 2017; _imp_current_file = "pass1v84-noprims.imp"; #line 2017 "pass1v84-noprims.imp" U_1011:; _imp_current_line = 2017; _imp_current_file = "pass1v84-noprims.imp"; #line 2017 "pass1v84-noprims.imp" if (((NEXT) != (0))) goto L_0198; // 2018 class = 0 %AND %RETURN %IF link = 0; !end of statement _imp_current_line = 2018; _imp_current_file = "pass1v84-noprims.imp"; #line 2018 "pass1v84-noprims.imp" if (((LINK) != (0))) goto L_0199; #line 2018 "pass1v84-noprims.imp" CLASS = 0; #line 2018 "pass1v84-noprims.imp" return; #line 2018 "pass1v84-noprims.imp" L_0199:; // 2019 p == ar(link) _imp_current_line = 2019; _imp_current_file = "pass1v84-noprims.imp"; #line 2019 "pass1v84-noprims.imp" P = &AR[(((int)(LINK)) - (1))]; // 2020 next = p_link _imp_current_line = 2020; _imp_current_file = "pass1v84-noprims.imp"; #line 2020 "pass1v84-noprims.imp" NEXT = P->LINK; // 2021 link = p_sub _imp_current_line = 2021; _imp_current_file = "pass1v84-noprims.imp"; #line 2021 "pass1v84-noprims.imp" LINK = P->SUB; // 2022 %FINISH _imp_current_line = 2022; _imp_current_file = "pass1v84-noprims.imp"; #line 2022 "pass1v84-noprims.imp" L_0198:; // 2023 %CYCLE _imp_current_line = 2023; _imp_current_file = "pass1v84-noprims.imp"; #line 2023 "pass1v84-noprims.imp" L_019a:; // 2024 p == ar(next) _imp_current_line = 2024; _imp_current_file = "pass1v84-noprims.imp"; #line 2024 "pass1v84-noprims.imp" P = &AR[(((int)(NEXT)) - (1))]; // 2025 x = p_sub _imp_current_line = 2025; _imp_current_file = "pass1v84-noprims.imp"; #line 2025 "pass1v84-noprims.imp" X = P->SUB; // 2026 class = p_class _imp_current_line = 2026; _imp_current_file = "pass1v84-noprims.imp"; #line 2026 "pass1v84-noprims.imp" CLASS = P->CLASS; // 2027 %EXIT %IF class < actions; !an atom _imp_current_line = 2027; _imp_current_file = "pass1v84-noprims.imp"; #line 2027 "pass1v84-noprims.imp" if (((CLASS) >= (180))) goto L_019d; #line 2027 "pass1v84-noprims.imp" goto L_019b; #line 2027 "pass1v84-noprims.imp" L_019d:; // 2028 %IF x = 0 %START; !null phrase _imp_current_line = 2028; _imp_current_file = "pass1v84-noprims.imp"; #line 2028 "pass1v84-noprims.imp" if (((X) != (0))) goto L_019e; // 2029 next = p_link; ->gn _imp_current_line = 2029; _imp_current_file = "pass1v84-noprims.imp"; #line 2029 "pass1v84-noprims.imp" NEXT = P->LINK; _imp_current_line = 2029; _imp_current_file = "pass1v84-noprims.imp"; #line 2029 "pass1v84-noprims.imp" goto U_1011; // 2030 %FINISH _imp_current_line = 2030; _imp_current_file = "pass1v84-noprims.imp"; #line 2030 "pass1v84-noprims.imp" L_019e:; // 2031 %IF p_link # 0 %START; !follow a phrase _imp_current_line = 2031; _imp_current_file = "pass1v84-noprims.imp"; #line 2031 "pass1v84-noprims.imp" if (((P->LINK) == (0))) goto L_019f; // 2032 p_sub = link; link = next _imp_current_line = 2032; _imp_current_file = "pass1v84-noprims.imp"; #line 2032 "pass1v84-noprims.imp" P->SUB = LINK; _imp_current_line = 2032; _imp_current_file = "pass1v84-noprims.imp"; #line 2032 "pass1v84-noprims.imp" LINK = NEXT; // 2033 %FINISH _imp_current_line = 2033; _imp_current_file = "pass1v84-noprims.imp"; #line 2033 "pass1v84-noprims.imp" L_019f:; // 2034 next = x _imp_current_line = 2034; _imp_current_file = "pass1v84-noprims.imp"; #line 2034 "pass1v84-noprims.imp" NEXT = X; // 2035 %REPEAT _imp_current_line = 2035; _imp_current_file = "pass1v84-noprims.imp"; #line 2035 "pass1v84-noprims.imp" goto L_019a; #line 2035 "pass1v84-noprims.imp" L_019b:; // 2036 next = p_link _imp_current_line = 2036; _imp_current_file = "pass1v84-noprims.imp"; #line 2036 "pass1v84-noprims.imp" NEXT = P->LINK; // 2037 %IF diag&2 # 0 %START _imp_current_line = 2037; _imp_current_file = "pass1v84-noprims.imp"; #line 2037 "pass1v84-noprims.imp" if (((((DIAG) & (2))) == (0))) goto L_01a0; // 2038 spaces(8-length(name)) %UNLESS name = "" _imp_current_line = 2038; _imp_current_file = "pass1v84-noprims.imp"; #line 2038 "pass1v84-noprims.imp" if ((_imp_strcmp(NAME, _imp_str_literal("")) == 0)) goto L_01a1; #line 2038 "pass1v84-noprims.imp" _imp_SPACES(((8) - (*(int *)(_imp_LENGTH(&NAME))))); #line 2038 "pass1v84-noprims.imp" L_01a1:; // 2039 name = text(class) _imp_current_line = 2039; _imp_current_file = "pass1v84-noprims.imp"; #line 2039 "pass1v84-noprims.imp" NAME = TEXT[CLASS]; // 2040 write(x, 2) _imp_current_line = 2040; _imp_current_file = "pass1v84-noprims.imp"; #line 2040 "pass1v84-noprims.imp" _imp_WRITE(X, 2); // 2041 space _imp_current_line = 2041; _imp_current_file = "pass1v84-noprims.imp"; #line 2041 "pass1v84-noprims.imp" _imp_SPACE(); // 2042 printstring(name) _imp_current_line = 2042; _imp_current_file = "pass1v84-noprims.imp"; #line 2042 "pass1v84-noprims.imp" _imp_PRINTSTRING(NAME); // 2043 space _imp_current_line = 2043; _imp_current_file = "pass1v84-noprims.imp"; #line 2043 "pass1v84-noprims.imp" _imp_SPACE(); // 2044 count = count-1 _imp_current_line = 2044; _imp_current_file = "pass1v84-noprims.imp"; #line 2044 "pass1v84-noprims.imp" COUNT = (((int)(COUNT)) - (1)); // 2045 %IF count <= 0 %START _imp_current_line = 2045; _imp_current_file = "pass1v84-noprims.imp"; #line 2045 "pass1v84-noprims.imp" if (((COUNT) > (0))) goto L_01a2; // 2046 count = 5 _imp_current_line = 2046; _imp_current_file = "pass1v84-noprims.imp"; #line 2046 "pass1v84-noprims.imp" COUNT = 5; // 2047 name = "" _imp_current_line = 2047; _imp_current_file = "pass1v84-noprims.imp"; #line 2047 "pass1v84-noprims.imp" NAME = _imp_str_literal(""); // 2048 newline _imp_current_line = 2048; _imp_current_file = "pass1v84-noprims.imp"; #line 2048 "pass1v84-noprims.imp" _imp_NEWLINE(); // 2049 %FINISH _imp_current_line = 2049; _imp_current_file = "pass1v84-noprims.imp"; #line 2049 "pass1v84-noprims.imp" L_01a2:; // 2050 %FINISH _imp_current_line = 2050; _imp_current_file = "pass1v84-noprims.imp"; #line 2050 "pass1v84-noprims.imp" L_01a0:; // 2051 %END _imp_current_line = 2051; _imp_current_file = "pass1v84-noprims.imp"; #line 2051 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block GETNEXT at level 4 // 2052 // 2053 %ROUTINE set subs(%INTEGER n) _imp_current_line = 2053; _imp_current_file = "pass1v84-noprims.imp"; #line 2053 "pass1v84-noprims.imp" void SETSUBS( int N ) #line 2053 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 2054 // 2055 !update the app field in n array descriptors // 2056 // 2057 %INTEGER p _imp_current_line = 2057; _imp_current_file = "pass1v84-noprims.imp"; #line 2057 "pass1v84-noprims.imp" int P; // 2058 p = tmax _imp_current_line = 2058; _imp_current_file = "pass1v84-noprims.imp"; #line 2058 "pass1v84-noprims.imp" P = TMAX; // 2059 %WHILE n > 0 %CYCLE _imp_current_line = 2059; _imp_current_file = "pass1v84-noprims.imp"; #line 2059 "pass1v84-noprims.imp" L_01a3:; #line 2059 "pass1v84-noprims.imp" if (((N) <= (0))) goto L_01a4; // 2060 !IMP80 BUG??? %SIGNAL 15,15 %IF p < tbase // 2061 %STOP %IF p < tbase _imp_current_line = 2061; _imp_current_file = "pass1v84-noprims.imp"; #line 2061 "pass1v84-noprims.imp" if (((P) >= (TBASE))) goto L_01a6; #line 2061 "pass1v84-noprims.imp" exit(0); #line 2061 "pass1v84-noprims.imp" L_01a6:; // 2062 tag(p)_app = dimension _imp_current_line = 2062; _imp_current_file = "pass1v84-noprims.imp"; #line 2062 "pass1v84-noprims.imp" TAG[P].APP = DIMENSION; // 2063 p = p-1; n = n-1 _imp_current_line = 2063; _imp_current_file = "pass1v84-noprims.imp"; #line 2063 "pass1v84-noprims.imp" P = (((int)(P)) - (1)); _imp_current_line = 2063; _imp_current_file = "pass1v84-noprims.imp"; #line 2063 "pass1v84-noprims.imp" N = (((int)(N)) - (1)); // 2064 %REPEAT _imp_current_line = 2064; _imp_current_file = "pass1v84-noprims.imp"; #line 2064 "pass1v84-noprims.imp" goto L_01a3; #line 2064 "pass1v84-noprims.imp" L_01a4:; // 2065 %END _imp_current_line = 2065; _imp_current_file = "pass1v84-noprims.imp"; #line 2065 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block SETSUBS at level 4 // 2066 // 2067 %ROUTINE set bp _imp_current_line = 2067; _imp_current_file = "pass1v84-noprims.imp"; #line 2067 "pass1v84-noprims.imp" void SETBP( void ) #line 2067 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 2068 // 2069 !define a constant bound pair from the last stacked constants // 2070 // 2071 pending = pending-2 _imp_current_line = 2071; _imp_current_file = "pass1v84-noprims.imp"; #line 2071 "pass1v84-noprims.imp" PENDING = (((int)(PENDING)) - (2)); // 2072 lb = pstack(pending+1); ub = pstack(pending+2) _imp_current_line = 2072; _imp_current_file = "pass1v84-noprims.imp"; #line 2072 "pass1v84-noprims.imp" LB = (PSTACK-1)[(((int)(PENDING)) + (1))]; _imp_current_line = 2072; _imp_current_file = "pass1v84-noprims.imp"; #line 2072 "pass1v84-noprims.imp" UB = (PSTACK-1)[(((int)(PENDING)) + (2))]; // 2073 %IF ub-lb+1 < 0 %START _imp_current_line = 2073; _imp_current_file = "pass1v84-noprims.imp"; #line 2073 "pass1v84-noprims.imp" if ((((((int)((((int)(UB)) - (LB)))) + (1))) >= (0))) goto L_01a7; // 2074 pos1 = 0; next = link; fault(11) _imp_current_line = 2074; _imp_current_file = "pass1v84-noprims.imp"; #line 2074 "pass1v84-noprims.imp" POS1 = 0; _imp_current_line = 2074; _imp_current_file = "pass1v84-noprims.imp"; #line 2074 "pass1v84-noprims.imp" NEXT = LINK; _imp_current_line = 2074; _imp_current_file = "pass1v84-noprims.imp"; #line 2074 "pass1v84-noprims.imp" FAULT(11); // 2075 ub = lb _imp_current_line = 2075; _imp_current_file = "pass1v84-noprims.imp"; #line 2075 "pass1v84-noprims.imp" UB = LB; // 2076 %FINISH _imp_current_line = 2076; _imp_current_file = "pass1v84-noprims.imp"; #line 2076 "pass1v84-noprims.imp" L_01a7:; // 2077 set const(lb); set const(ub) _imp_current_line = 2077; _imp_current_file = "pass1v84-noprims.imp"; #line 2077 "pass1v84-noprims.imp" SETCONST(LB); _imp_current_line = 2077; _imp_current_file = "pass1v84-noprims.imp"; #line 2077 "pass1v84-noprims.imp" SETCONST(UB); // 2078 bp=bp+1 %AND buff(bp)='b' %UNLESS class = 146 _imp_current_line = 2078; _imp_current_file = "pass1v84-noprims.imp"; #line 2078 "pass1v84-noprims.imp" if (((CLASS) == (146))) goto L_01a8; #line 2078 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2078 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 98; #line 2078 "pass1v84-noprims.imp" L_01a8:; // 2079 %END _imp_current_line = 2079; _imp_current_file = "pass1v84-noprims.imp"; #line 2079 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block SETBP at level 4 // 2080 // 2081 %ROUTINE compile end(%INTEGER type) _imp_current_line = 2081; _imp_current_file = "pass1v84-noprims.imp"; #line 2081 "pass1v84-noprims.imp" void COMPILEEND( int TYPE ) #line 2081 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 2082 // 2083 ! type = 0:eof, 1:eop, 2:end // 2084 // 2085 %IF access # 0 %START _imp_current_line = 2085; _imp_current_file = "pass1v84-noprims.imp"; #line 2085 "pass1v84-noprims.imp" if (((ACCESS) == (0))) goto L_01a9; // 2086 open = 0 _imp_current_line = 2086; _imp_current_file = "pass1v84-noprims.imp"; #line 2086 "pass1v84-noprims.imp" OPEN = 0; // 2087 fault(19) %IF block form > proc; !can reach end _imp_current_line = 2087; _imp_current_file = "pass1v84-noprims.imp"; #line 2087 "pass1v84-noprims.imp" if (((BLOCKFORM) <= (7))) goto L_01aa; #line 2087 "pass1v84-noprims.imp" FAULT(19); #line 2087 "pass1v84-noprims.imp" L_01aa:; // 2088 %FINISH _imp_current_line = 2088; _imp_current_file = "pass1v84-noprims.imp"; #line 2088 "pass1v84-noprims.imp" L_01a9:; // 2089 // 2090 %WHILE dict(dmin) >= 0 %CYCLE; !finishes & repeats _imp_current_line = 2090; _imp_current_file = "pass1v84-noprims.imp"; #line 2090 "pass1v84-noprims.imp" L_01ab:; #line 2090 "pass1v84-noprims.imp" if (((DICT[(((int)(DMIN)) - (1))]) < (0))) goto L_01ac; // 2091 fault(17+dict(dmin)&1) _imp_current_line = 2091; _imp_current_file = "pass1v84-noprims.imp"; #line 2091 "pass1v84-noprims.imp" FAULT(((17) + ((int)(((DICT[(((int)(DMIN)) - (1))]) & (1)))))); // 2092 dmin = dmin+1 _imp_current_line = 2092; _imp_current_file = "pass1v84-noprims.imp"; #line 2092 "pass1v84-noprims.imp" DMIN = (((int)(DMIN)) + (1)); // 2093 %REPEAT _imp_current_line = 2093; _imp_current_file = "pass1v84-noprims.imp"; #line 2093 "pass1v84-noprims.imp" goto L_01ab; #line 2093 "pass1v84-noprims.imp" L_01ac:; // 2094 {delete names(0)} // 2095 bp=bp+1 %AND buff(bp)=';' _imp_current_line = 2095; _imp_current_file = "pass1v84-noprims.imp"; #line 2095 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2095 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 59; // 2096 bp=bp+1 %AND buff(bp)=';' %IF type = 1; !endofprogram _imp_current_line = 2096; _imp_current_file = "pass1v84-noprims.imp"; #line 2096 "pass1v84-noprims.imp" if (((TYPE) != (1))) goto L_01ae; #line 2096 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2096 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 59; #line 2096 "pass1v84-noprims.imp" L_01ae:; // 2097 // 2098 bflags = bflags!open; !show if it returns _imp_current_line = 2098; _imp_current_file = "pass1v84-noprims.imp"; #line 2098 "pass1v84-noprims.imp" *BFLAGS = ((*BFLAGS) | (OPEN)); // 2099 // 2100 def lab(0) %IF block tag # 0 %AND level # 1; !for jump around _imp_current_line = 2100; _imp_current_file = "pass1v84-noprims.imp"; #line 2100 "pass1v84-noprims.imp" if (((BLOCKTAG) == (0))) goto L_01af; #line 2100 "pass1v84-noprims.imp" if (((LEVEL) == (1))) goto L_01af; #line 2100 "pass1v84-noprims.imp" DEFLAB(0); #line 2100 "pass1v84-noprims.imp" L_01af:; // 2101 %IF type # 2 %START; !eop, eof _imp_current_line = 2101; _imp_current_file = "pass1v84-noprims.imp"; #line 2101 "pass1v84-noprims.imp" if (((TYPE) == (2))) goto L_01b0; // 2102 fault(16) %IF level # type; !end missing _imp_current_line = 2102; _imp_current_file = "pass1v84-noprims.imp"; #line 2102 "pass1v84-noprims.imp" if (((LEVEL) == (TYPE))) goto L_01b1; #line 2102 "pass1v84-noprims.imp" FAULT(16); #line 2102 "pass1v84-noprims.imp" L_01b1:; // 2103 %FINISH %ELSE %START _imp_current_line = 2103; _imp_current_file = "pass1v84-noprims.imp"; #line 2103 "pass1v84-noprims.imp" goto L_01b2; #line 2103 "pass1v84-noprims.imp" L_01b0:; // 2104 %IF level = 0 %START _imp_current_line = 2104; _imp_current_file = "pass1v84-noprims.imp"; #line 2104 "pass1v84-noprims.imp" if (((LEVEL) != (0))) goto L_01b3; // 2105 fault(15); !spurious end _imp_current_line = 2105; _imp_current_file = "pass1v84-noprims.imp"; #line 2105 "pass1v84-noprims.imp" FAULT(15); // 2106 %FINISH _imp_current_line = 2106; _imp_current_file = "pass1v84-noprims.imp"; #line 2106 "pass1v84-noprims.imp" L_01b3:; // 2107 %FINISH _imp_current_line = 2107; _imp_current_file = "pass1v84-noprims.imp"; #line 2107 "pass1v84-noprims.imp" L_01b2:; // 2108 // 2109 end mark = 11; !******Mouses specific****** _imp_current_line = 2109; _imp_current_file = "pass1v84-noprims.imp"; #line 2109 "pass1v84-noprims.imp" ENDMARK = 11; // 2110 %END _imp_current_line = 2110; _imp_current_file = "pass1v84-noprims.imp"; #line 2110 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block COMPILEEND at level 4 // 2111 // 2112 %ROUTINE def(%INTEGER p) _imp_current_line = 2112; _imp_current_file = "pass1v84-noprims.imp"; #line 2112 "pass1v84-noprims.imp" void DEF( int P ) #line 2112 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 2113 // 2114 !dump a descriptor // 2115 // 2116 %INTEGER t, f, type _imp_current_line = 2116; _imp_current_file = "pass1v84-noprims.imp"; #line 2116 "pass1v84-noprims.imp" int T; #line 2116 "pass1v84-noprims.imp" int F; #line 2116 "pass1v84-noprims.imp" int TYPE; // 2117 %RECORD(tagfm)%NAME v _imp_current_line = 2117; _imp_current_file = "pass1v84-noprims.imp"; #line 2117 "pass1v84-noprims.imp" TAGFM /*name*/*V; // 2118 flush buffer %if bp # 0 _imp_current_line = 2118; _imp_current_file = "pass1v84-noprims.imp"; #line 2118 "pass1v84-noprims.imp" if (((BP) == (0))) goto L_01b4; #line 2118 "pass1v84-noprims.imp" FLUSHBUFFER(); #line 2118 "pass1v84-noprims.imp" L_01b4:; // 2119 defs = defs+1 _imp_current_line = 2119; _imp_current_file = "pass1v84-noprims.imp"; #line 2119 "pass1v84-noprims.imp" DEFS = (((int)(DEFS)) + (1)); // 2120 v == tag(p) _imp_current_line = 2120; _imp_current_file = "pass1v84-noprims.imp"; #line 2120 "pass1v84-noprims.imp" V = &TAG[P]; // 2121 t = 0 _imp_current_line = 2121; _imp_current_file = "pass1v84-noprims.imp"; #line 2121 "pass1v84-noprims.imp" T = 0; // 2122 %UNLESS v_index < 0 %START; !no index for subnames _imp_current_line = 2122; _imp_current_file = "pass1v84-noprims.imp"; #line 2122 "pass1v84-noprims.imp" if (((V->INDEX) < (0))) goto L_01b5; // 2123 id = id+1 %AND v_index = id %IF v_index = 0 _imp_current_line = 2123; _imp_current_file = "pass1v84-noprims.imp"; #line 2123 "pass1v84-noprims.imp" if (((V->INDEX) != (0))) goto L_01b6; #line 2123 "pass1v84-noprims.imp" ID = (((int)(ID)) + (1)); #line 2123 "pass1v84-noprims.imp" V->INDEX = ID; #line 2123 "pass1v84-noprims.imp" L_01b6:; // 2124 last def = v_index _imp_current_line = 2124; _imp_current_file = "pass1v84-noprims.imp"; #line 2124 "pass1v84-noprims.imp" LASTDEF = V->INDEX; // 2125 t = last def _imp_current_line = 2125; _imp_current_file = "pass1v84-noprims.imp"; #line 2125 "pass1v84-noprims.imp" T = LASTDEF; // 2126 %FINISH _imp_current_line = 2126; _imp_current_file = "pass1v84-noprims.imp"; #line 2126 "pass1v84-noprims.imp" L_01b5:; // 2127 op('$', t) _imp_current_line = 2127; _imp_current_file = "pass1v84-noprims.imp"; #line 2127 "pass1v84-noprims.imp" OP(36, T); // 2128 print ident(p, 1); !output the name _imp_current_line = 2128; _imp_current_file = "pass1v84-noprims.imp"; #line 2128 "pass1v84-noprims.imp" PRINTIDENT(P, 1); // 2129 t = v_flags _imp_current_line = 2129; _imp_current_file = "pass1v84-noprims.imp"; #line 2129 "pass1v84-noprims.imp" T = V->FLAGS; // 2130 type = t _imp_current_line = 2130; _imp_current_file = "pass1v84-noprims.imp"; #line 2130 "pass1v84-noprims.imp" TYPE = T; // 2131 type = type&(\(7<<4)) %IF type&(7<<4) >= 6<<4;!routine & pred _imp_current_line = 2131; _imp_current_file = "pass1v84-noprims.imp"; #line 2131 "pass1v84-noprims.imp" if (((((TYPE) & (((7) << (4))))) < (((6) << (4))))) goto L_01b7; #line 2131 "pass1v84-noprims.imp" TYPE = ((TYPE) & ((~(((7) << (4)))))); #line 2131 "pass1v84-noprims.imp" L_01b7:; // 2132 op(',', type&b'1111111'); !type & form _imp_current_line = 2132; _imp_current_file = "pass1v84-noprims.imp"; #line 2132 "pass1v84-noprims.imp" OP(44, ((TYPE) & (127))); // 2133 f = v_format _imp_current_line = 2133; _imp_current_file = "pass1v84-noprims.imp"; #line 2133 "pass1v84-noprims.imp" F = V->FORMAT; // 2134 f = tag(f)_index %IF t&x'70' = record<<4 _imp_current_line = 2134; _imp_current_file = "pass1v84-noprims.imp"; #line 2134 "pass1v84-noprims.imp" if (((((T) & (112))) != (((4) << (4))))) goto L_01b8; #line 2134 "pass1v84-noprims.imp" F = TAG[F].INDEX; #line 2134 "pass1v84-noprims.imp" L_01b8:; // 2135 f = v_index %IF f < 0 _imp_current_line = 2135; _imp_current_file = "pass1v84-noprims.imp"; #line 2135 "pass1v84-noprims.imp" if (((F) >= (0))) goto L_01b9; #line 2135 "pass1v84-noprims.imp" F = V->INDEX; #line 2135 "pass1v84-noprims.imp" L_01b9:; // 2136 op(',', f); !format _imp_current_line = 2136; _imp_current_file = "pass1v84-noprims.imp"; #line 2136 "pass1v84-noprims.imp" OP(44, F); // 2137 f = otype+t>>4&b'1111000' _imp_current_line = 2137; _imp_current_file = "pass1v84-noprims.imp"; #line 2137 "pass1v84-noprims.imp" F = ((OTYPE) + ((int)((((int)((((unsigned int)(T)) >> (4)))) & (120))))); // 2138 f = f!8 %IF class = 125; !add spec from %DUP _imp_current_line = 2138; _imp_current_file = "pass1v84-noprims.imp"; #line 2138 "pass1v84-noprims.imp" if (((CLASS) != (125))) goto L_01ba; #line 2138 "pass1v84-noprims.imp" F = ((F) | (8)); #line 2138 "pass1v84-noprims.imp" L_01ba:; // 2139 dim = v_app; !dimension _imp_current_line = 2139; _imp_current_file = "pass1v84-noprims.imp"; #line 2139 "pass1v84-noprims.imp" DIM = V->APP; // 2140 dim = 0 %unless 0 < dim <= dim limit _imp_current_line = 2140; _imp_current_file = "pass1v84-noprims.imp"; #line 2140 "pass1v84-noprims.imp" if ((((0) >= (DIM))) || (((DIM) <= (6)))) goto L_01bb; #line 2140 "pass1v84-noprims.imp" L_01ad:; #line 2140 "pass1v84-noprims.imp" DIM = 0; #line 2140 "pass1v84-noprims.imp" L_01bb:; // 2141 op(',', f+dim<<8); !otype & spec & prot _imp_current_line = 2141; _imp_current_file = "pass1v84-noprims.imp"; #line 2141 "pass1v84-noprims.imp" OP(44, ((F) + ((int)(((DIM) << (8)))))); // 2142 defs = 0 %IF t¶meters = 0 _imp_current_line = 2142; _imp_current_file = "pass1v84-noprims.imp"; #line 2142 "pass1v84-noprims.imp" if (((((T) & (4096))) != (0))) goto L_01bc; #line 2142 "pass1v84-noprims.imp" DEFS = 0; #line 2142 "pass1v84-noprims.imp" L_01bc:; // 2143 f = t&15 _imp_current_line = 2143; _imp_current_file = "pass1v84-noprims.imp"; #line 2143 "pass1v84-noprims.imp" F = ((T) & (15)); // 2144 %IF v_flags&spec # 0 %START _imp_current_line = 2144; _imp_current_file = "pass1v84-noprims.imp"; #line 2144 "pass1v84-noprims.imp" if (((((V->FLAGS) & (128))) == (0))) goto L_01bd; // 2145 v_flags = v_flags&(\spec) %UNLESS 3 <= f <= 10 _imp_current_line = 2145; _imp_current_file = "pass1v84-noprims.imp"; #line 2145 "pass1v84-noprims.imp" if ((((3) > (F))) || (((F) <= (10)))) goto L_01be; #line 2145 "pass1v84-noprims.imp" L_0176:; #line 2145 "pass1v84-noprims.imp" V->FLAGS = ((V->FLAGS) & ((~(128)))); #line 2145 "pass1v84-noprims.imp" L_01be:; // 2146 ocount = -1; !external specs have no constants _imp_current_line = 2146; _imp_current_file = "pass1v84-noprims.imp"; #line 2146 "pass1v84-noprims.imp" OCOUNT = (-1); // 2147 %FINISH _imp_current_line = 2147; _imp_current_file = "pass1v84-noprims.imp"; #line 2147 "pass1v84-noprims.imp" L_01bd:; // 2148 dimension = 0 _imp_current_line = 2148; _imp_current_file = "pass1v84-noprims.imp"; #line 2148 "pass1v84-noprims.imp" DIMENSION = 0; // 2149 %if otype = 2 %and (f=2 %or f=12 %or f=14) %start _imp_current_line = 2149; _imp_current_file = "pass1v84-noprims.imp"; #line 2149 "pass1v84-noprims.imp" if (((OTYPE) != (2))) goto L_01bf; #line 2149 "pass1v84-noprims.imp" if (((F) == (2))) goto L_01c0; #line 2149 "pass1v84-noprims.imp" if (((F) == (12))) goto L_01c0; #line 2149 "pass1v84-noprims.imp" if (((F) != (14))) goto L_01bf; #line 2149 "pass1v84-noprims.imp" L_01c0:; // 2150 v_flags = v_flags-1; !convert to simple _imp_current_line = 2150; _imp_current_file = "pass1v84-noprims.imp"; #line 2150 "pass1v84-noprims.imp" V->FLAGS = (((int)(V->FLAGS)) - (1)); // 2151 %finish _imp_current_line = 2151; _imp_current_file = "pass1v84-noprims.imp"; #line 2151 "pass1v84-noprims.imp" L_01bf:; // 2152 %END _imp_current_line = 2152; _imp_current_file = "pass1v84-noprims.imp"; #line 2152 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block DEF at level 4 // 2153 // 2154 %ROUTINE def s lab(%INTEGER n) _imp_current_line = 2154; _imp_current_file = "pass1v84-noprims.imp"; #line 2154 "pass1v84-noprims.imp" void DEFSLAB( int N ) #line 2154 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 2155 // 2156 !define a switch label, x defines the switch tag // 2157 // 2158 %INTEGER p, l, b, w, bit _imp_current_line = 2158; _imp_current_file = "pass1v84-noprims.imp"; #line 2158 "pass1v84-noprims.imp" int P; #line 2158 "pass1v84-noprims.imp" int L; #line 2158 "pass1v84-noprims.imp" int B; #line 2158 "pass1v84-noprims.imp" int W; #line 2158 "pass1v84-noprims.imp" int BIT; // 2159 p = tag(x)_format; !pointer to table _imp_current_line = 2159; _imp_current_file = "pass1v84-noprims.imp"; #line 2159 "pass1v84-noprims.imp" P = TAG[X].FORMAT; // 2160 l = dict(p); !lower bound _imp_current_line = 2160; _imp_current_file = "pass1v84-noprims.imp"; #line 2160 "pass1v84-noprims.imp" L = DICT[(((int)(P)) - (1))]; // 2161 %IF l <= n <= dict(p+1) %START _imp_current_line = 2161; _imp_current_file = "pass1v84-noprims.imp"; #line 2161 "pass1v84-noprims.imp" if ((((L) > (N))) || (((N) > (DICT[(((int)((((int)(P)) + (1)))) - (1))])))) goto L_01c1; // 2162 b = n-l _imp_current_line = 2162; _imp_current_file = "pass1v84-noprims.imp"; #line 2162 "pass1v84-noprims.imp" B = (((int)(N)) - (L)); // 2163 w = b>>4+p _imp_current_line = 2163; _imp_current_file = "pass1v84-noprims.imp"; #line 2163 "pass1v84-noprims.imp" W = (((int)((int)((((unsigned int)(B)) >> (4))))) + (P)); // 2164 bit = 1<<(b&15) _imp_current_line = 2164; _imp_current_file = "pass1v84-noprims.imp"; #line 2164 "pass1v84-noprims.imp" BIT = ((1) << (((B) & (15)))); // 2165 %IF dict(w+2)&bit # 0 %START; !already set _imp_current_line = 2165; _imp_current_file = "pass1v84-noprims.imp"; #line 2165 "pass1v84-noprims.imp" if (((((DICT[(((int)((((int)(W)) + (2)))) - (1))]) & (BIT))) == (0))) goto L_01c2; // 2166 fault(4) %IF pending # 0 _imp_current_line = 2166; _imp_current_file = "pass1v84-noprims.imp"; #line 2166 "pass1v84-noprims.imp" if (((PENDING) == (0))) goto L_01c3; #line 2166 "pass1v84-noprims.imp" FAULT(4); #line 2166 "pass1v84-noprims.imp" L_01c3:; // 2167 %RETURN _imp_current_line = 2167; _imp_current_file = "pass1v84-noprims.imp"; #line 2167 "pass1v84-noprims.imp" return; // 2168 %FINISH _imp_current_line = 2168; _imp_current_file = "pass1v84-noprims.imp"; #line 2168 "pass1v84-noprims.imp" L_01c2:; // 2169 dict(w+2) <- dict(w+2)!bit %IF pending # 0 _imp_current_line = 2169; _imp_current_file = "pass1v84-noprims.imp"; #line 2169 "pass1v84-noprims.imp" if (((PENDING) == (0))) goto L_01c4; #line 2169 "pass1v84-noprims.imp" DICT[(((int)((((int)(W)) + (2)))) - (1))] = ((DICT[(((int)((((int)(W)) + (2)))) - (1))]) | (BIT)); #line 2169 "pass1v84-noprims.imp" L_01c4:; // 2170 set const(n) _imp_current_line = 2170; _imp_current_file = "pass1v84-noprims.imp"; #line 2170 "pass1v84-noprims.imp" SETCONST(N); // 2171 op('_', tag(x)_index) _imp_current_line = 2171; _imp_current_file = "pass1v84-noprims.imp"; #line 2171 "pass1v84-noprims.imp" OP(95, TAG[X].INDEX); // 2172 %FINISH %ELSE %START _imp_current_line = 2172; _imp_current_file = "pass1v84-noprims.imp"; #line 2172 "pass1v84-noprims.imp" goto L_01c5; #line 2172 "pass1v84-noprims.imp" L_01c1:; // 2173 fault(12) _imp_current_line = 2173; _imp_current_file = "pass1v84-noprims.imp"; #line 2173 "pass1v84-noprims.imp" FAULT(12); // 2174 %FINISH _imp_current_line = 2174; _imp_current_file = "pass1v84-noprims.imp"; #line 2174 "pass1v84-noprims.imp" L_01c5:; // 2175 access = 1 _imp_current_line = 2175; _imp_current_file = "pass1v84-noprims.imp"; #line 2175 "pass1v84-noprims.imp" ACCESS = 1; // 2176 %END _imp_current_line = 2176; _imp_current_file = "pass1v84-noprims.imp"; #line 2176 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block DEFSLAB at level 4 // 2177 // 2178 %ROUTINE call _imp_current_line = 2178; _imp_current_file = "pass1v84-noprims.imp"; #line 2178 "pass1v84-noprims.imp" void CALL( void ) #line 2178 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 2179 %RECORD(tagfm)%NAME T _imp_current_line = 2179; _imp_current_file = "pass1v84-noprims.imp"; #line 2179 "pass1v84-noprims.imp" TAGFM /*name*/*T; // 2180 t == tag(x) _imp_current_line = 2180; _imp_current_file = "pass1v84-noprims.imp"; #line 2180 "pass1v84-noprims.imp" T = &TAG[X]; // 2181 op('@', t_index) _imp_current_line = 2181; _imp_current_file = "pass1v84-noprims.imp"; #line 2181 "pass1v84-noprims.imp" OP(64, T->INDEX); // 2182 access = 0 %IF t_flags&closed # 0; !never comes back _imp_current_line = 2182; _imp_current_file = "pass1v84-noprims.imp"; #line 2182 "pass1v84-noprims.imp" if (((((T->FLAGS) & (16384))) == (0))) goto L_01c6; #line 2182 "pass1v84-noprims.imp" ACCESS = 0; #line 2182 "pass1v84-noprims.imp" L_01c6:; // 2183 bp=bp+1 %AND buff(bp)='E' %IF t_app = 0; !no parameters _imp_current_line = 2183; _imp_current_file = "pass1v84-noprims.imp"; #line 2183 "pass1v84-noprims.imp" if (((T->APP) != (0))) goto L_01c7; #line 2183 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2183 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 69; #line 2183 "pass1v84-noprims.imp" L_01c7:; // 2184 %END _imp_current_line = 2184; _imp_current_file = "pass1v84-noprims.imp"; #line 2184 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block CALL at level 4 // 2185 // 2186 %ROUTINE pop def _imp_current_line = 2186; _imp_current_file = "pass1v84-noprims.imp"; #line 2186 "pass1v84-noprims.imp" void POPDEF( void ) #line 2186 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 2187 set const(pstack(pending)); pending = pending-1 _imp_current_line = 2187; _imp_current_file = "pass1v84-noprims.imp"; #line 2187 "pass1v84-noprims.imp" SETCONST((PSTACK-1)[PENDING]); _imp_current_line = 2187; _imp_current_file = "pass1v84-noprims.imp"; #line 2187 "pass1v84-noprims.imp" PENDING = (((int)(PENDING)) - (1)); // 2188 %END _imp_current_line = 2188; _imp_current_file = "pass1v84-noprims.imp"; #line 2188 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block POPDEF at level 4 // 2189 // 2190 %ROUTINE pop lit _imp_current_line = 2190; _imp_current_file = "pass1v84-noprims.imp"; #line 2190 "pass1v84-noprims.imp" void POPLIT( void ) #line 2190 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 2191 %IF pending = 0 %THEN lit = 0 %ELSE %START _imp_current_line = 2191; _imp_current_file = "pass1v84-noprims.imp"; #line 2191 "pass1v84-noprims.imp" if (((PENDING) != (0))) goto L_01c8; #line 2191 "pass1v84-noprims.imp" LIT = 0; #line 2191 "pass1v84-noprims.imp" goto L_01c9; #line 2191 "pass1v84-noprims.imp" L_01c8:; // 2192 lit = pstack(pending); pending = pending-1 _imp_current_line = 2192; _imp_current_file = "pass1v84-noprims.imp"; #line 2192 "pass1v84-noprims.imp" LIT = (PSTACK-1)[PENDING]; _imp_current_line = 2192; _imp_current_file = "pass1v84-noprims.imp"; #line 2192 "pass1v84-noprims.imp" PENDING = (((int)(PENDING)) - (1)); // 2193 %FINISH _imp_current_line = 2193; _imp_current_file = "pass1v84-noprims.imp"; #line 2193 "pass1v84-noprims.imp" L_01c9:; // 2194 %END _imp_current_line = 2194; _imp_current_file = "pass1v84-noprims.imp"; #line 2194 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block POPLIT at level 4 // 2195 // 2196 // 2197 %IF sstype < 0 %START; !executable statement _imp_current_line = 2197; _imp_current_file = "pass1v84-noprims.imp"; #line 2197 "pass1v84-noprims.imp" if (((SSTYPE) >= (0))) goto L_01ca; // 2198 %IF level = 0 %START; !outermost level _imp_current_line = 2198; _imp_current_file = "pass1v84-noprims.imp"; #line 2198 "pass1v84-noprims.imp" if (((LEVEL) != (0))) goto L_01cb; // 2199 fault(13); !*order _imp_current_line = 2199; _imp_current_file = "pass1v84-noprims.imp"; #line 2199 "pass1v84-noprims.imp" FAULT(13); // 2200 %FINISH %ELSE %START _imp_current_line = 2200; _imp_current_file = "pass1v84-noprims.imp"; #line 2200 "pass1v84-noprims.imp" goto L_01cc; #line 2200 "pass1v84-noprims.imp" L_01cb:; // 2201 %IF access = 0 %START _imp_current_line = 2201; _imp_current_file = "pass1v84-noprims.imp"; #line 2201 "pass1v84-noprims.imp" if (((ACCESS) != (0))) goto L_01cd; // 2202 access = 1; fault(-1); !only a warning _imp_current_line = 2202; _imp_current_file = "pass1v84-noprims.imp"; #line 2202 "pass1v84-noprims.imp" ACCESS = 1; _imp_current_line = 2202; _imp_current_file = "pass1v84-noprims.imp"; #line 2202 "pass1v84-noprims.imp" FAULT((-1)); // 2203 %FINISH _imp_current_line = 2203; _imp_current_file = "pass1v84-noprims.imp"; #line 2203 "pass1v84-noprims.imp" L_01cd:; // 2204 %FINISH _imp_current_line = 2204; _imp_current_file = "pass1v84-noprims.imp"; #line 2204 "pass1v84-noprims.imp" L_01cc:; // 2205 %FINISH _imp_current_line = 2205; _imp_current_file = "pass1v84-noprims.imp"; #line 2205 "pass1v84-noprims.imp" L_01ca:; // 2206 // 2207 %IF diag&2 # 0 %START _imp_current_line = 2207; _imp_current_file = "pass1v84-noprims.imp"; #line 2207 "pass1v84-noprims.imp" if (((((DIAG) & (2))) == (0))) goto L_01ce; // 2208 newline %IF sym # nl _imp_current_line = 2208; _imp_current_file = "pass1v84-noprims.imp"; #line 2208 "pass1v84-noprims.imp" if (((SYM) == (10))) goto L_01cf; #line 2208 "pass1v84-noprims.imp" _imp_NEWLINE(); #line 2208 "pass1v84-noprims.imp" L_01cf:; // 2209 printstring("ss =") _imp_current_line = 2209; _imp_current_file = "pass1v84-noprims.imp"; #line 2209 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal("ss =")); // 2210 write(ss, 1) _imp_current_line = 2210; _imp_current_file = "pass1v84-noprims.imp"; #line 2210 "pass1v84-noprims.imp" _imp_WRITE(SS, 1); // 2211 newline _imp_current_line = 2211; _imp_current_file = "pass1v84-noprims.imp"; #line 2211 "pass1v84-noprims.imp" _imp_NEWLINE(); // 2212 count = 5 _imp_current_line = 2212; _imp_current_file = "pass1v84-noprims.imp"; #line 2212 "pass1v84-noprims.imp" COUNT = 5; // 2213 name = "" _imp_current_line = 2213; _imp_current_file = "pass1v84-noprims.imp"; #line 2213 "pass1v84-noprims.imp" NAME = _imp_str_literal(""); // 2214 %FINISH _imp_current_line = 2214; _imp_current_file = "pass1v84-noprims.imp"; #line 2214 "pass1v84-noprims.imp" L_01ce:; // 2215 // 2216 next = ss _imp_current_line = 2216; _imp_current_file = "pass1v84-noprims.imp"; #line 2216 "pass1v84-noprims.imp" NEXT = SS; // 2217 pending = 0; lmode = 0 _imp_current_line = 2217; _imp_current_file = "pass1v84-noprims.imp"; #line 2217 "pass1v84-noprims.imp" PENDING = 0; _imp_current_line = 2217; _imp_current_file = "pass1v84-noprims.imp"; #line 2217 "pass1v84-noprims.imp" LMODE = 0; // 2218 link = 0; decs = 0 _imp_current_line = 2218; _imp_current_file = "pass1v84-noprims.imp"; #line 2218 "pass1v84-noprims.imp" LINK = 0; _imp_current_line = 2218; _imp_current_file = "pass1v84-noprims.imp"; #line 2218 "pass1v84-noprims.imp" DECS = 0; // 2219 defs = 0; resln = 0; done = 0 _imp_current_line = 2219; _imp_current_file = "pass1v84-noprims.imp"; #line 2219 "pass1v84-noprims.imp" DEFS = 0; _imp_current_line = 2219; _imp_current_file = "pass1v84-noprims.imp"; #line 2219 "pass1v84-noprims.imp" RESLN = 0; _imp_current_line = 2219; _imp_current_file = "pass1v84-noprims.imp"; #line 2219 "pass1v84-noprims.imp" DONE = 0; // 2220 ord = level _imp_current_line = 2220; _imp_current_file = "pass1v84-noprims.imp"; #line 2220 "pass1v84-noprims.imp" ORD = LEVEL; // 2221 ord = 1 %IF this >= 0; !recordformat declarations _imp_current_line = 2221; _imp_current_file = "pass1v84-noprims.imp"; #line 2221 "pass1v84-noprims.imp" if (((THIS) < (0))) goto L_01d0; #line 2221 "pass1v84-noprims.imp" ORD = 1; #line 2221 "pass1v84-noprims.imp" L_01d0:; // 2222 c(0): _imp_current_line = 2222; _imp_current_file = "pass1v84-noprims.imp"; #line 2222 "pass1v84-noprims.imp" sw5_C_0:; // 2223 top: %IF next # link %START _imp_current_line = 2223; _imp_current_file = "pass1v84-noprims.imp"; #line 2223 "pass1v84-noprims.imp" U_101b:; _imp_current_line = 2223; _imp_current_file = "pass1v84-noprims.imp"; #line 2223 "pass1v84-noprims.imp" if (((NEXT) == (LINK))) goto L_01d1; // 2224 get next; ->c(class) _imp_current_line = 2224; _imp_current_file = "pass1v84-noprims.imp"; #line 2224 "pass1v84-noprims.imp" GETNEXT(); _imp_current_line = 2224; _imp_current_file = "pass1v84-noprims.imp"; #line 2224 "pass1v84-noprims.imp" sw5_C_idx = CLASS; if ((0 <= sw5_C_idx) && (sw5_C_idx <= 180)) goto *sw5_C[sw5_C_idx]; else { /*_imp_signal(8, 2, sw5_C_idx);*/ fprintf(stderr, "%%SWITCH index C(%d) not in range 0:180 at %s:%d\n", sw5_C_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 2225 %FINISH _imp_current_line = 2225; _imp_current_file = "pass1v84-noprims.imp"; #line 2225 "pass1v84-noprims.imp" L_01d1:; // 2226 // 2227 !all done, tidy up declarations and jumps // 2228 // 2229 newline %IF diag&2 # 0 %AND count # 5 _imp_current_line = 2229; _imp_current_file = "pass1v84-noprims.imp"; #line 2229 "pass1v84-noprims.imp" if (((((DIAG) & (2))) == (0))) goto L_01d2; #line 2229 "pass1v84-noprims.imp" if (((COUNT) == (5))) goto L_01d2; #line 2229 "pass1v84-noprims.imp" _imp_NEWLINE(); #line 2229 "pass1v84-noprims.imp" L_01d2:; // 2230 // 2231 %IF lmode&(loop!then!else) # 0 %START; !pending labels and jumps _imp_current_line = 2231; _imp_current_file = "pass1v84-noprims.imp"; #line 2231 "pass1v84-noprims.imp" if (((((LMODE) & (((((16) | (4))) | (8))))) == (0))) goto L_01d3; // 2232 op('B', label-1) %IF lmode&loop # 0; !repeat _imp_current_line = 2232; _imp_current_file = "pass1v84-noprims.imp"; #line 2232 "pass1v84-noprims.imp" if (((((LMODE) & (16))) == (0))) goto L_01d4; #line 2232 "pass1v84-noprims.imp" OP(66, (((int)(LABEL)) - (1))); #line 2232 "pass1v84-noprims.imp" L_01d4:; // 2233 def lab(label) %IF lmode&then # 0; !entry from then _imp_current_line = 2233; _imp_current_file = "pass1v84-noprims.imp"; #line 2233 "pass1v84-noprims.imp" if (((((LMODE) & (4))) == (0))) goto L_01d5; #line 2233 "pass1v84-noprims.imp" DEFLAB(LABEL); #line 2233 "pass1v84-noprims.imp" L_01d5:; // 2234 def lab(label-1) %IF lmode&else # 0; !entry from else _imp_current_line = 2234; _imp_current_file = "pass1v84-noprims.imp"; #line 2234 "pass1v84-noprims.imp" if (((((LMODE) & (8))) == (0))) goto L_01d6; #line 2234 "pass1v84-noprims.imp" DEFLAB((((int)(LABEL)) - (1))); #line 2234 "pass1v84-noprims.imp" L_01d6:; // 2235 %FINISH _imp_current_line = 2235; _imp_current_file = "pass1v84-noprims.imp"; #line 2235 "pass1v84-noprims.imp" L_01d3:; // 2236 // 2237 %RETURN %IF decs = 0 _imp_current_line = 2237; _imp_current_file = "pass1v84-noprims.imp"; #line 2237 "pass1v84-noprims.imp" if (((DECS) != (0))) goto L_01d7; #line 2237 "pass1v84-noprims.imp" return; #line 2237 "pass1v84-noprims.imp" L_01d7:; // 2238 atom1 = error %AND %RETURN %IF atom1 # 0; !%INTEGERROUTINE _imp_current_line = 2238; _imp_current_file = "pass1v84-noprims.imp"; #line 2238 "pass1v84-noprims.imp" if (((ATOM1) == (0))) goto L_01d8; #line 2238 "pass1v84-noprims.imp" ATOM1 = 32768; #line 2238 "pass1v84-noprims.imp" return; #line 2238 "pass1v84-noprims.imp" L_01d8:; // 2239 order = ord _imp_current_line = 2239; _imp_current_file = "pass1v84-noprims.imp"; #line 2239 "pass1v84-noprims.imp" ORDER = ORD; // 2240 decl = decl&(\15)+decmap(decl&15); !construct declarator flags _imp_current_line = 2240; _imp_current_file = "pass1v84-noprims.imp"; #line 2240 "pass1v84-noprims.imp" DECL = (((short)(((DECL) & ((~(15)))))) + (DECMAP[((DECL) & (15))])); // 2241 atom1 = atoms(decl&15); !generate class _imp_current_line = 2241; _imp_current_file = "pass1v84-noprims.imp"; #line 2241 "pass1v84-noprims.imp" ATOM1 = ATOMS[((DECL) & (15))]; // 2242 %IF otype # 0 %START; !own, const etc. _imp_current_line = 2242; _imp_current_file = "pass1v84-noprims.imp"; #line 2242 "pass1v84-noprims.imp" if (((OTYPE) == (0))) goto L_01d9; // 2243 atom1 = atom1+1 %IF atom1 # proc _imp_current_line = 2243; _imp_current_file = "pass1v84-noprims.imp"; #line 2243 "pass1v84-noprims.imp" if (((ATOM1) == (7))) goto L_01da; #line 2243 "pass1v84-noprims.imp" ATOM1 = (((int)(ATOM1)) + (1)); #line 2243 "pass1v84-noprims.imp" L_01da:; // 2244 %IF otype = 2 %START; !const _imp_current_line = 2244; _imp_current_file = "pass1v84-noprims.imp"; #line 2244 "pass1v84-noprims.imp" if (((OTYPE) != (2))) goto L_01db; // 2245 n = decl&15 _imp_current_line = 2245; _imp_current_file = "pass1v84-noprims.imp"; #line 2245 "pass1v84-noprims.imp" N = ((DECL) & (15)); // 2246 %if n&1 # 0 %start _imp_current_line = 2246; _imp_current_file = "pass1v84-noprims.imp"; #line 2246 "pass1v84-noprims.imp" if (((((N) & (1))) == (0))) goto L_01dc; // 2247 decl = decl!prot _imp_current_line = 2247; _imp_current_file = "pass1v84-noprims.imp"; #line 2247 "pass1v84-noprims.imp" DECL = ((DECL) | (256)); // 2248 decl = decl!const bit %IF decl&b'1111111' = iform _imp_current_line = 2248; _imp_current_file = "pass1v84-noprims.imp"; #line 2248 "pass1v84-noprims.imp" if (((((DECL) & (127))) != (17))) goto L_01dd; #line 2248 "pass1v84-noprims.imp" DECL = ((DECL) | (8192)); #line 2248 "pass1v84-noprims.imp" L_01dd:; // 2249 %finish _imp_current_line = 2249; _imp_current_file = "pass1v84-noprims.imp"; #line 2249 "pass1v84-noprims.imp" L_01dc:; // 2250 %else _imp_current_line = 2250; _imp_current_file = "pass1v84-noprims.imp"; #line 2250 "pass1v84-noprims.imp" goto L_01de; #line 2250 "pass1v84-noprims.imp" L_01db:; // 2251 decl = decl!own bit _imp_current_line = 2251; _imp_current_file = "pass1v84-noprims.imp"; #line 2251 "pass1v84-noprims.imp" DECL = ((DECL) | (512)); // 2252 %FINISH _imp_current_line = 2252; _imp_current_file = "pass1v84-noprims.imp"; #line 2252 "pass1v84-noprims.imp" L_01de:; // 2253 %FINISH _imp_current_line = 2253; _imp_current_file = "pass1v84-noprims.imp"; #line 2253 "pass1v84-noprims.imp" L_01d9:; // 2254 sstype = 1 %IF sstype = 0 %AND atom1 = proc _imp_current_line = 2254; _imp_current_file = "pass1v84-noprims.imp"; #line 2254 "pass1v84-noprims.imp" if (((SSTYPE) != (0))) goto L_01df; #line 2254 "pass1v84-noprims.imp" if (((ATOM1) != (7))) goto L_01df; #line 2254 "pass1v84-noprims.imp" SSTYPE = 1; #line 2254 "pass1v84-noprims.imp" L_01df:; // 2255 atom1 = atom1+1 %IF decl&spec # 0; !onto spec variant _imp_current_line = 2255; _imp_current_file = "pass1v84-noprims.imp"; #line 2255 "pass1v84-noprims.imp" if (((((DECL) & (128))) == (0))) goto L_01e0; #line 2255 "pass1v84-noprims.imp" ATOM1 = (((int)(ATOM1)) + (1)); #line 2255 "pass1v84-noprims.imp" L_01e0:; // 2256 ocount = 0 %AND cont = '+' %IF atom1 = 5; !own array _imp_current_line = 2256; _imp_current_file = "pass1v84-noprims.imp"; #line 2256 "pass1v84-noprims.imp" if (((ATOM1) != (5))) goto L_01e1; #line 2256 "pass1v84-noprims.imp" OCOUNT = 0; #line 2256 "pass1v84-noprims.imp" CONT = 43; #line 2256 "pass1v84-noprims.imp" L_01e1:; // 2257 %IF anyform(decl&15) = 0 %START; !check meaningful _imp_current_line = 2257; _imp_current_file = "pass1v84-noprims.imp"; #line 2257 "pass1v84-noprims.imp" if (((ANYFORM[((DECL) & (15))]) != (0))) goto L_01e2; // 2258 %IF decl>>4&7 = record %START _imp_current_line = 2258; _imp_current_file = "pass1v84-noprims.imp"; #line 2258 "pass1v84-noprims.imp" if ((((((int)((((unsigned int)(DECL)) >> (4)))) & (7))) != (4))) goto L_01e3; // 2259 this = fdef %IF tag(fdef)_flags&spec # 0 _imp_current_line = 2259; _imp_current_file = "pass1v84-noprims.imp"; #line 2259 "pass1v84-noprims.imp" if (((((TAG[FDEF].FLAGS) & (128))) == (0))) goto L_01e4; #line 2259 "pass1v84-noprims.imp" THIS = FDEF; #line 2259 "pass1v84-noprims.imp" L_01e4:; // 2260 atom1 = error+21 %IF fdef = this; !*context for format _imp_current_line = 2260; _imp_current_file = "pass1v84-noprims.imp"; #line 2260 "pass1v84-noprims.imp" if (((FDEF) != (THIS))) goto L_01e5; #line 2260 "pass1v84-noprims.imp" ATOM1 = 32789; #line 2260 "pass1v84-noprims.imp" L_01e5:; // 2261 %FINISH _imp_current_line = 2261; _imp_current_file = "pass1v84-noprims.imp"; #line 2261 "pass1v84-noprims.imp" L_01e3:; // 2262 atom1 = error+10 %IF fdef = 0; !*size _imp_current_line = 2262; _imp_current_file = "pass1v84-noprims.imp"; #line 2262 "pass1v84-noprims.imp" if (((FDEF) != (0))) goto L_01e6; #line 2262 "pass1v84-noprims.imp" ATOM1 = 32778; #line 2262 "pass1v84-noprims.imp" L_01e6:; // 2263 %FINISH _imp_current_line = 2263; _imp_current_file = "pass1v84-noprims.imp"; #line 2263 "pass1v84-noprims.imp" L_01e2:; // 2264 %RETURN _imp_current_line = 2264; _imp_current_file = "pass1v84-noprims.imp"; #line 2264 "pass1v84-noprims.imp" return; // 2265 // 2266 atop: access = 0; ->top _imp_current_line = 2266; _imp_current_file = "pass1v84-noprims.imp"; #line 2266 "pass1v84-noprims.imp" U_101c:; _imp_current_line = 2266; _imp_current_file = "pass1v84-noprims.imp"; #line 2266 "pass1v84-noprims.imp" ACCESS = 0; _imp_current_line = 2266; _imp_current_file = "pass1v84-noprims.imp"; #line 2266 "pass1v84-noprims.imp" goto U_101b; // 2267 // 2268 ! declarators // 2269 // 2270 c(88): !rtype _imp_current_line = 2270; _imp_current_file = "pass1v84-noprims.imp"; #line 2270 "pass1v84-noprims.imp" sw5_C_88:; // 2271 c(28): decl = x&(\7); !stype _imp_current_line = 2271; _imp_current_file = "pass1v84-noprims.imp"; #line 2271 "pass1v84-noprims.imp" sw5_C_28:; _imp_current_line = 2271; _imp_current_file = "pass1v84-noprims.imp"; #line 2271 "pass1v84-noprims.imp" DECL = ((X) & ((~(7)))); // 2272 fdef = x&7; !precision _imp_current_line = 2272; _imp_current_file = "pass1v84-noprims.imp"; #line 2272 "pass1v84-noprims.imp" FDEF = ((X) & (7)); // 2273 fdef = reals ln %IF x&b'1110001' = real<<4+1; !convert to long _imp_current_line = 2273; _imp_current_file = "pass1v84-noprims.imp"; #line 2273 "pass1v84-noprims.imp" if (((((X) & (113))) != ((((int)(((2) << (4)))) + (1))))) goto L_01e7; #line 2273 "pass1v84-noprims.imp" FDEF = REALSLN; #line 2273 "pass1v84-noprims.imp" L_01e7:; // 2274 decs = 1; ->top _imp_current_line = 2274; _imp_current_file = "pass1v84-noprims.imp"; #line 2274 "pass1v84-noprims.imp" DECS = 1; _imp_current_line = 2274; _imp_current_file = "pass1v84-noprims.imp"; #line 2274 "pass1v84-noprims.imp" goto U_101b; // 2275 c(34): !own _imp_current_line = 2275; _imp_current_file = "pass1v84-noprims.imp"; #line 2275 "pass1v84-noprims.imp" sw5_C_34:; // 2276 c(35): otype = x; ord = 1; ->top; !external _imp_current_line = 2276; _imp_current_file = "pass1v84-noprims.imp"; #line 2276 "pass1v84-noprims.imp" sw5_C_35:; _imp_current_line = 2276; _imp_current_file = "pass1v84-noprims.imp"; #line 2276 "pass1v84-noprims.imp" OTYPE = X; _imp_current_line = 2276; _imp_current_file = "pass1v84-noprims.imp"; #line 2276 "pass1v84-noprims.imp" ORD = 1; _imp_current_line = 2276; _imp_current_file = "pass1v84-noprims.imp"; #line 2276 "pass1v84-noprims.imp" goto U_101b; // 2277 c(152):decl = decl+x<<1; ->top; !xname _imp_current_line = 2277; _imp_current_file = "pass1v84-noprims.imp"; #line 2277 "pass1v84-noprims.imp" sw5_C_152:; _imp_current_line = 2277; _imp_current_file = "pass1v84-noprims.imp"; #line 2277 "pass1v84-noprims.imp" DECL = ((DECL) + ((int)(((X) << (1))))); _imp_current_line = 2277; _imp_current_file = "pass1v84-noprims.imp"; #line 2277 "pass1v84-noprims.imp" goto U_101b; // 2278 c(31): !proc _imp_current_line = 2278; _imp_current_file = "pass1v84-noprims.imp"; #line 2278 "pass1v84-noprims.imp" sw5_C_31:; // 2279 c(32): spec mode = level+1; !fn/map _imp_current_line = 2279; _imp_current_file = "pass1v84-noprims.imp"; #line 2279 "pass1v84-noprims.imp" sw5_C_32:; _imp_current_line = 2279; _imp_current_file = "pass1v84-noprims.imp"; #line 2279 "pass1v84-noprims.imp" SPECMODE = (((int)(LEVEL)) + (1)); // 2280 decl = decl!prot %IF x = 9; !function _imp_current_line = 2280; _imp_current_file = "pass1v84-noprims.imp"; #line 2280 "pass1v84-noprims.imp" if (((X) != (9))) goto L_01e8; #line 2280 "pass1v84-noprims.imp" DECL = ((DECL) | (256)); #line 2280 "pass1v84-noprims.imp" L_01e8:; // 2281 c(29): ord = 1; !array _imp_current_line = 2281; _imp_current_file = "pass1v84-noprims.imp"; #line 2281 "pass1v84-noprims.imp" sw5_C_29:; _imp_current_line = 2281; _imp_current_file = "pass1v84-noprims.imp"; #line 2281 "pass1v84-noprims.imp" ORD = 1; // 2282 dim = 0 _imp_current_line = 2282; _imp_current_file = "pass1v84-noprims.imp"; #line 2282 "pass1v84-noprims.imp" DIM = 0; // 2283 c(30): decl = decl+x; !name _imp_current_line = 2283; _imp_current_file = "pass1v84-noprims.imp"; #line 2283 "pass1v84-noprims.imp" sw5_C_30:; _imp_current_line = 2283; _imp_current_file = "pass1v84-noprims.imp"; #line 2283 "pass1v84-noprims.imp" DECL = (((int)(DECL)) + (X)); // 2284 decs = 1 _imp_current_line = 2284; _imp_current_file = "pass1v84-noprims.imp"; #line 2284 "pass1v84-noprims.imp" DECS = 1; // 2285 ->top _imp_current_line = 2285; _imp_current_file = "pass1v84-noprims.imp"; #line 2285 "pass1v84-noprims.imp" goto U_101b; // 2286 c(27): lit = 0; ! arrayd _imp_current_line = 2286; _imp_current_file = "pass1v84-noprims.imp"; #line 2286 "pass1v84-noprims.imp" sw5_C_27:; _imp_current_line = 2286; _imp_current_file = "pass1v84-noprims.imp"; #line 2286 "pass1v84-noprims.imp" LIT = 0; // 2287 %IF pending # 0 %START _imp_current_line = 2287; _imp_current_file = "pass1v84-noprims.imp"; #line 2287 "pass1v84-noprims.imp" if (((PENDING) == (0))) goto L_01e9; // 2288 pop lit _imp_current_line = 2288; _imp_current_file = "pass1v84-noprims.imp"; #line 2288 "pass1v84-noprims.imp" POPLIT(); // 2289 %UNLESS 0= (LIT))) || (((LIT) <= (6)))) goto L_01eb; #line 2289 "pass1v84-noprims.imp" L_01ea:; // 2290 atom1 = error + 11; %RETURN _imp_current_line = 2290; _imp_current_file = "pass1v84-noprims.imp"; #line 2290 "pass1v84-noprims.imp" ATOM1 = 32779; _imp_current_line = 2290; _imp_current_file = "pass1v84-noprims.imp"; #line 2290 "pass1v84-noprims.imp" return; // 2291 %FINISH _imp_current_line = 2291; _imp_current_file = "pass1v84-noprims.imp"; #line 2291 "pass1v84-noprims.imp" L_01eb:; // 2292 %FINISH _imp_current_line = 2292; _imp_current_file = "pass1v84-noprims.imp"; #line 2292 "pass1v84-noprims.imp" L_01e9:; // 2293 dim = lit _imp_current_line = 2293; _imp_current_file = "pass1v84-noprims.imp"; #line 2293 "pass1v84-noprims.imp" DIM = LIT; // 2294 decl = decl + x; decs = 1 _imp_current_line = 2294; _imp_current_file = "pass1v84-noprims.imp"; #line 2294 "pass1v84-noprims.imp" DECL = (((int)(DECL)) + (X)); _imp_current_line = 2294; _imp_current_file = "pass1v84-noprims.imp"; #line 2294 "pass1v84-noprims.imp" DECS = 1; // 2295 -> top _imp_current_line = 2295; _imp_current_file = "pass1v84-noprims.imp"; #line 2295 "pass1v84-noprims.imp" goto U_101b; // 2296 c(37): x = x!subname; !record _imp_current_line = 2296; _imp_current_file = "pass1v84-noprims.imp"; #line 2296 "pass1v84-noprims.imp" sw5_C_37:; _imp_current_line = 2296; _imp_current_file = "pass1v84-noprims.imp"; #line 2296 "pass1v84-noprims.imp" X = ((X) | (2048)); // 2297 c(36): lit = 0; !string _imp_current_line = 2297; _imp_current_file = "pass1v84-noprims.imp"; #line 2297 "pass1v84-noprims.imp" sw5_C_36:; _imp_current_line = 2297; _imp_current_file = "pass1v84-noprims.imp"; #line 2297 "pass1v84-noprims.imp" LIT = 0; // 2298 %IF pending # 0 %START _imp_current_line = 2298; _imp_current_file = "pass1v84-noprims.imp"; #line 2298 "pass1v84-noprims.imp" if (((PENDING) == (0))) goto L_01ec; // 2299 pop lit _imp_current_line = 2299; _imp_current_file = "pass1v84-noprims.imp"; #line 2299 "pass1v84-noprims.imp" POPLIT(); // 2300 %UNLESS 0 < lit <= 255 %START; !max length wrong _imp_current_line = 2300; _imp_current_file = "pass1v84-noprims.imp"; #line 2300 "pass1v84-noprims.imp" if ((((0) >= (LIT))) || (((LIT) <= (255)))) goto L_01ee; #line 2300 "pass1v84-noprims.imp" L_01ed:; // 2301 atom1 = error+10; %RETURN _imp_current_line = 2301; _imp_current_file = "pass1v84-noprims.imp"; #line 2301 "pass1v84-noprims.imp" ATOM1 = 32778; _imp_current_line = 2301; _imp_current_file = "pass1v84-noprims.imp"; #line 2301 "pass1v84-noprims.imp" return; // 2302 %FINISH _imp_current_line = 2302; _imp_current_file = "pass1v84-noprims.imp"; #line 2302 "pass1v84-noprims.imp" L_01ee:; // 2303 %FINISH _imp_current_line = 2303; _imp_current_file = "pass1v84-noprims.imp"; #line 2303 "pass1v84-noprims.imp" L_01ec:; // 2304 fdef = lit; !format or length _imp_current_line = 2304; _imp_current_file = "pass1v84-noprims.imp"; #line 2304 "pass1v84-noprims.imp" FDEF = LIT; // 2305 c(33): decl = x; !switch _imp_current_line = 2305; _imp_current_file = "pass1v84-noprims.imp"; #line 2305 "pass1v84-noprims.imp" sw5_C_33:; _imp_current_line = 2305; _imp_current_file = "pass1v84-noprims.imp"; #line 2305 "pass1v84-noprims.imp" DECL = X; // 2306 decs = 1 _imp_current_line = 2306; _imp_current_file = "pass1v84-noprims.imp"; #line 2306 "pass1v84-noprims.imp" DECS = 1; // 2307 ->top _imp_current_line = 2307; _imp_current_file = "pass1v84-noprims.imp"; #line 2307 "pass1v84-noprims.imp" goto U_101b; // 2308 c(39): decl = decl!spec; !spec _imp_current_line = 2308; _imp_current_file = "pass1v84-noprims.imp"; #line 2308 "pass1v84-noprims.imp" sw5_C_39:; _imp_current_line = 2308; _imp_current_file = "pass1v84-noprims.imp"; #line 2308 "pass1v84-noprims.imp" DECL = ((DECL) | (128)); // 2309 ocount = -1; !no initialisation _imp_current_line = 2309; _imp_current_file = "pass1v84-noprims.imp"; #line 2309 "pass1v84-noprims.imp" OCOUNT = (-1); // 2310 spec mode = -1 _imp_current_line = 2310; _imp_current_file = "pass1v84-noprims.imp"; #line 2310 "pass1v84-noprims.imp" SPECMODE = (-1); // 2311 ->top _imp_current_line = 2311; _imp_current_file = "pass1v84-noprims.imp"; #line 2311 "pass1v84-noprims.imp" goto U_101b; // 2312 c(38): decl = 64+4; !recordformat (spec) _imp_current_line = 2312; _imp_current_file = "pass1v84-noprims.imp"; #line 2312 "pass1v84-noprims.imp" sw5_C_38:; _imp_current_line = 2312; _imp_current_file = "pass1v84-noprims.imp"; #line 2312 "pass1v84-noprims.imp" DECL = 68; // 2313 order = 1 _imp_current_line = 2313; _imp_current_file = "pass1v84-noprims.imp"; #line 2313 "pass1v84-noprims.imp" ORDER = 1; // 2314 atom1 = x _imp_current_line = 2314; _imp_current_file = "pass1v84-noprims.imp"; #line 2314 "pass1v84-noprims.imp" ATOM1 = X; // 2315 decl = decl!spec %if atom1 = 12; !formatspec _imp_current_line = 2315; _imp_current_file = "pass1v84-noprims.imp"; #line 2315 "pass1v84-noprims.imp" if (((ATOM1) != (12))) goto L_01ef; #line 2315 "pass1v84-noprims.imp" DECL = ((DECL) | (128)); #line 2315 "pass1v84-noprims.imp" L_01ef:; // 2316 fdef = tmax+1; !format tag _imp_current_line = 2316; _imp_current_file = "pass1v84-noprims.imp"; #line 2316 "pass1v84-noprims.imp" FDEF = (((int)(TMAX)) + (1)); // 2317 %return _imp_current_line = 2317; _imp_current_file = "pass1v84-noprims.imp"; #line 2317 "pass1v84-noprims.imp" return; // 2318 c(175):id = id+1; tag(x)_index = id; %return; !FSID _imp_current_line = 2318; _imp_current_file = "pass1v84-noprims.imp"; #line 2318 "pass1v84-noprims.imp" sw5_C_175:; _imp_current_line = 2318; _imp_current_file = "pass1v84-noprims.imp"; #line 2318 "pass1v84-noprims.imp" ID = (((int)(ID)) + (1)); _imp_current_line = 2318; _imp_current_file = "pass1v84-noprims.imp"; #line 2318 "pass1v84-noprims.imp" TAG[X].INDEX = ID; _imp_current_line = 2318; _imp_current_file = "pass1v84-noprims.imp"; #line 2318 "pass1v84-noprims.imp" return; // 2319 c(41): decs = 1; decl = x!spec!closed; ->top; !label _imp_current_line = 2319; _imp_current_file = "pass1v84-noprims.imp"; #line 2319 "pass1v84-noprims.imp" sw5_C_41:; _imp_current_line = 2319; _imp_current_file = "pass1v84-noprims.imp"; #line 2319 "pass1v84-noprims.imp" DECS = 1; _imp_current_line = 2319; _imp_current_file = "pass1v84-noprims.imp"; #line 2319 "pass1v84-noprims.imp" DECL = ((((X) | (128))) | (16384)); _imp_current_line = 2319; _imp_current_file = "pass1v84-noprims.imp"; #line 2319 "pass1v84-noprims.imp" goto U_101b; // 2320 c(133):recid = 0; rbase = tmin-1; !fname _imp_current_line = 2320; _imp_current_file = "pass1v84-noprims.imp"; #line 2320 "pass1v84-noprims.imp" sw5_C_133:; _imp_current_line = 2320; _imp_current_file = "pass1v84-noprims.imp"; #line 2320 "pass1v84-noprims.imp" RECID = 0; _imp_current_line = 2320; _imp_current_file = "pass1v84-noprims.imp"; #line 2320 "pass1v84-noprims.imp" RBASE = (((int)(TMIN)) - (1)); // 2321 this = x _imp_current_line = 2321; _imp_current_file = "pass1v84-noprims.imp"; #line 2321 "pass1v84-noprims.imp" THIS = X; // 2322 fm base = fdef; format list = tmin _imp_current_line = 2322; _imp_current_file = "pass1v84-noprims.imp"; #line 2322 "pass1v84-noprims.imp" FMBASE = FDEF; _imp_current_line = 2322; _imp_current_file = "pass1v84-noprims.imp"; #line 2322 "pass1v84-noprims.imp" FORMATLIST = TMIN; // 2323 def(this); ->top _imp_current_line = 2323; _imp_current_file = "pass1v84-noprims.imp"; #line 2323 "pass1v84-noprims.imp" DEF(THIS); _imp_current_line = 2323; _imp_current_file = "pass1v84-noprims.imp"; #line 2323 "pass1v84-noprims.imp" goto U_101b; // 2324 c(148):fdef = 0 %AND ->top %IF next = 0; !reclb _imp_current_line = 2324; _imp_current_file = "pass1v84-noprims.imp"; #line 2324 "pass1v84-noprims.imp" sw5_C_148:; _imp_current_line = 2324; _imp_current_file = "pass1v84-noprims.imp"; #line 2324 "pass1v84-noprims.imp" if (((NEXT) != (0))) goto L_01f0; #line 2324 "pass1v84-noprims.imp" FDEF = 0; #line 2324 "pass1v84-noprims.imp" goto U_101b; #line 2324 "pass1v84-noprims.imp" L_01f0:; // 2325 get next; !skip name _imp_current_line = 2325; _imp_current_file = "pass1v84-noprims.imp"; #line 2325 "pass1v84-noprims.imp" GETNEXT(); // 2326 fdef = x _imp_current_line = 2326; _imp_current_file = "pass1v84-noprims.imp"; #line 2326 "pass1v84-noprims.imp" FDEF = X; // 2327 ->top _imp_current_line = 2327; _imp_current_file = "pass1v84-noprims.imp"; #line 2327 "pass1v84-noprims.imp" goto U_101b; // 2328 c(127):bp=bp+1 %AND buff(bp)='}'; ->top; !%POUT _imp_current_line = 2328; _imp_current_file = "pass1v84-noprims.imp"; #line 2328 "pass1v84-noprims.imp" sw5_C_127:; _imp_current_line = 2328; _imp_current_file = "pass1v84-noprims.imp"; #line 2328 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2328 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 125; _imp_current_line = 2328; _imp_current_file = "pass1v84-noprims.imp"; #line 2328 "pass1v84-noprims.imp" goto U_101b; // 2329 c(126):bp=bp+1 %AND buff(bp)='{'; ->top; !%PIN _imp_current_line = 2329; _imp_current_file = "pass1v84-noprims.imp"; #line 2329 "pass1v84-noprims.imp" sw5_C_126:; _imp_current_line = 2329; _imp_current_file = "pass1v84-noprims.imp"; #line 2329 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2329 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 123; _imp_current_line = 2329; _imp_current_file = "pass1v84-noprims.imp"; #line 2329 "pass1v84-noprims.imp" goto U_101b; // 2330 // 2331 c(174):set bp; !rangerb _imp_current_line = 2331; _imp_current_file = "pass1v84-noprims.imp"; #line 2331 "pass1v84-noprims.imp" sw5_C_174:; _imp_current_line = 2331; _imp_current_file = "pass1v84-noprims.imp"; #line 2331 "pass1v84-noprims.imp" SETBP(); // 2332 c(171): !fmlb _imp_current_line = 2332; _imp_current_file = "pass1v84-noprims.imp"; #line 2332 "pass1v84-noprims.imp" sw5_C_171:; // 2333 c(172): !fmrb _imp_current_line = 2333; _imp_current_file = "pass1v84-noprims.imp"; #line 2333 "pass1v84-noprims.imp" sw5_C_172:; // 2334 c(173):bp=bp+1 %AND buff(bp)='~'; bp=bp+1 %AND buff(bp)=class-171+'A'; ->top; !fmor _imp_current_line = 2334; _imp_current_file = "pass1v84-noprims.imp"; #line 2334 "pass1v84-noprims.imp" sw5_C_173:; _imp_current_line = 2334; _imp_current_file = "pass1v84-noprims.imp"; #line 2334 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2334 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 126; _imp_current_line = 2334; _imp_current_file = "pass1v84-noprims.imp"; #line 2334 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2334 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = (((int)((((int)(CLASS)) - (171)))) + (65)); _imp_current_line = 2334; _imp_current_file = "pass1v84-noprims.imp"; #line 2334 "pass1v84-noprims.imp" goto U_101b; // 2335 c(168):rbase = -rbase; !orrb _imp_current_line = 2335; _imp_current_file = "pass1v84-noprims.imp"; #line 2335 "pass1v84-noprims.imp" sw5_C_168:; _imp_current_line = 2335; _imp_current_file = "pass1v84-noprims.imp"; #line 2335 "pass1v84-noprims.imp" RBASE = (-(RBASE)); // 2336 sstype = 0; spec mode = 0 _imp_current_line = 2336; _imp_current_file = "pass1v84-noprims.imp"; #line 2336 "pass1v84-noprims.imp" SSTYPE = 0; _imp_current_line = 2336; _imp_current_file = "pass1v84-noprims.imp"; #line 2336 "pass1v84-noprims.imp" SPECMODE = 0; // 2337 // 2338 c(147):search base = 0; !recrb _imp_current_line = 2338; _imp_current_file = "pass1v84-noprims.imp"; #line 2338 "pass1v84-noprims.imp" sw5_C_147:; _imp_current_line = 2338; _imp_current_file = "pass1v84-noprims.imp"; #line 2338 "pass1v84-noprims.imp" SEARCHBASE = 0; // 2339 tag(this)_app = tmin _imp_current_line = 2339; _imp_current_file = "pass1v84-noprims.imp"; #line 2339 "pass1v84-noprims.imp" TAG[THIS].APP = TMIN; // 2340 tag(this)_format = rbase _imp_current_line = 2340; _imp_current_file = "pass1v84-noprims.imp"; #line 2340 "pass1v84-noprims.imp" TAG[THIS].FORMAT = RBASE; // 2341 ->top _imp_current_line = 2341; _imp_current_file = "pass1v84-noprims.imp"; #line 2341 "pass1v84-noprims.imp" goto U_101b; // 2342 // 2343 c(45):bp=bp+1 %and buff(bp)='U' %IF x = 36; ->top; !sign _imp_current_line = 2343; _imp_current_file = "pass1v84-noprims.imp"; #line 2343 "pass1v84-noprims.imp" sw5_C_45:; _imp_current_line = 2343; _imp_current_file = "pass1v84-noprims.imp"; #line 2343 "pass1v84-noprims.imp" if (((X) != (36))) goto L_01f1; #line 2343 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2343 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 85; #line 2343 "pass1v84-noprims.imp" L_01f1:; _imp_current_line = 2343; _imp_current_file = "pass1v84-noprims.imp"; #line 2343 "pass1v84-noprims.imp" goto U_101b; // 2344 c(46):bp=bp+1; buff(bp)='\'; ->top; !uop _imp_current_line = 2344; _imp_current_file = "pass1v84-noprims.imp"; #line 2344 "pass1v84-noprims.imp" sw5_C_46:; _imp_current_line = 2344; _imp_current_file = "pass1v84-noprims.imp"; #line 2344 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); _imp_current_line = 2344; _imp_current_file = "pass1v84-noprims.imp"; #line 2344 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 92; _imp_current_line = 2344; _imp_current_file = "pass1v84-noprims.imp"; #line 2344 "pass1v84-noprims.imp" goto U_101b; // 2345 c(47): !mod _imp_current_line = 2345; _imp_current_file = "pass1v84-noprims.imp"; #line 2345 "pass1v84-noprims.imp" sw5_C_47:; // 2346 c(48): !dot _imp_current_line = 2346; _imp_current_file = "pass1v84-noprims.imp"; #line 2346 "pass1v84-noprims.imp" sw5_C_48:; // 2347 c(42): !op1 _imp_current_line = 2347; _imp_current_file = "pass1v84-noprims.imp"; #line 2347 "pass1v84-noprims.imp" sw5_C_42:; // 2348 c(43): !op2 _imp_current_line = 2348; _imp_current_file = "pass1v84-noprims.imp"; #line 2348 "pass1v84-noprims.imp" sw5_C_43:; // 2349 c(44):bp=bp+1; buff(bp)=operator(x); ->top; !op3 _imp_current_line = 2349; _imp_current_file = "pass1v84-noprims.imp"; #line 2349 "pass1v84-noprims.imp" sw5_C_44:; _imp_current_line = 2349; _imp_current_file = "pass1v84-noprims.imp"; #line 2349 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); _imp_current_line = 2349; _imp_current_file = "pass1v84-noprims.imp"; #line 2349 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = (OPERATOR-1)[X]; _imp_current_line = 2349; _imp_current_file = "pass1v84-noprims.imp"; #line 2349 "pass1v84-noprims.imp" goto U_101b; // 2350 // 2351 !conditions & jumps // 2352 // 2353 %ROUTINE push(%INTEGER x) _imp_current_line = 2353; _imp_current_file = "pass1v84-noprims.imp"; #line 2353 "pass1v84-noprims.imp" void PUSH( int X ) #line 2353 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 2354 %IF cnest(cp)&2 # x %START _imp_current_line = 2354; _imp_current_file = "pass1v84-noprims.imp"; #line 2354 "pass1v84-noprims.imp" if (((((CNEST[CP]) & (2))) == (X))) goto L_01f2; // 2355 cnest(cp) = cnest(cp)!1; x = x+4 _imp_current_line = 2355; _imp_current_file = "pass1v84-noprims.imp"; #line 2355 "pass1v84-noprims.imp" CNEST[CP] = ((CNEST[CP]) | (1)); _imp_current_line = 2355; _imp_current_file = "pass1v84-noprims.imp"; #line 2355 "pass1v84-noprims.imp" X = (((int)(X)) + (4)); // 2356 %FINISH _imp_current_line = 2356; _imp_current_file = "pass1v84-noprims.imp"; #line 2356 "pass1v84-noprims.imp" L_01f2:; // 2357 clab = clab+1 %IF cnest(cp)&1 # 0 _imp_current_line = 2357; _imp_current_file = "pass1v84-noprims.imp"; #line 2357 "pass1v84-noprims.imp" if (((((CNEST[CP]) & (1))) == (0))) goto L_01f3; #line 2357 "pass1v84-noprims.imp" CLAB = (((int)(CLAB)) + (1)); #line 2357 "pass1v84-noprims.imp" L_01f3:; // 2358 cnest(cp+1) = x; cp = cp+1 _imp_current_line = 2358; _imp_current_file = "pass1v84-noprims.imp"; #line 2358 "pass1v84-noprims.imp" CNEST[(((int)(CP)) + (1))] = X; _imp_current_line = 2358; _imp_current_file = "pass1v84-noprims.imp"; #line 2358 "pass1v84-noprims.imp" CP = (((int)(CP)) + (1)); // 2359 %END _imp_current_line = 2359; _imp_current_file = "pass1v84-noprims.imp"; #line 2359 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block PUSH at level 4 // 2360 // 2361 %ROUTINE pop label(%INTEGER mode) _imp_current_line = 2361; _imp_current_file = "pass1v84-noprims.imp"; #line 2361 "pass1v84-noprims.imp" void POPLABEL( int MODE ) #line 2361 "pass1v84-noprims.imp" { __label__ _imp_endofblock; // 2362 lmode = dict(dmin) _imp_current_line = 2362; _imp_current_file = "pass1v84-noprims.imp"; #line 2362 "pass1v84-noprims.imp" LMODE = DICT[(((int)(DMIN)) - (1))]; // 2363 %IF lmode < 0 %OR lmode&1 # mode %START _imp_current_line = 2363; _imp_current_file = "pass1v84-noprims.imp"; #line 2363 "pass1v84-noprims.imp" if (((LMODE) < (0))) goto L_01f4; #line 2363 "pass1v84-noprims.imp" if (((((LMODE) & (1))) == (MODE))) goto L_01f5; #line 2363 "pass1v84-noprims.imp" L_01f4:; // 2364 fault(mode+8) _imp_current_line = 2364; _imp_current_file = "pass1v84-noprims.imp"; #line 2364 "pass1v84-noprims.imp" FAULT((((int)(MODE)) + (8))); // 2365 %FINISH %ELSE %START _imp_current_line = 2365; _imp_current_file = "pass1v84-noprims.imp"; #line 2365 "pass1v84-noprims.imp" goto L_01f6; #line 2365 "pass1v84-noprims.imp" L_01f5:; // 2366 dmin = dmin+1; label = label-3 _imp_current_line = 2366; _imp_current_file = "pass1v84-noprims.imp"; #line 2366 "pass1v84-noprims.imp" DMIN = (((int)(DMIN)) + (1)); _imp_current_line = 2366; _imp_current_file = "pass1v84-noprims.imp"; #line 2366 "pass1v84-noprims.imp" LABEL = (((int)(LABEL)) - (3)); // 2367 %FINISH _imp_current_line = 2367; _imp_current_file = "pass1v84-noprims.imp"; #line 2367 "pass1v84-noprims.imp" L_01f6:; // 2368 %END _imp_current_line = 2368; _imp_current_file = "pass1v84-noprims.imp"; #line 2368 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block POPLABEL at level 4 // 2369 // 2370 c(56): !and _imp_current_line = 2370; _imp_current_file = "pass1v84-noprims.imp"; #line 2370 "pass1v84-noprims.imp" sw5_C_56:; // 2371 c(57):push(x); ->top; !or _imp_current_line = 2371; _imp_current_file = "pass1v84-noprims.imp"; #line 2371 "pass1v84-noprims.imp" sw5_C_57:; _imp_current_line = 2371; _imp_current_file = "pass1v84-noprims.imp"; #line 2371 "pass1v84-noprims.imp" PUSH(X); _imp_current_line = 2371; _imp_current_file = "pass1v84-noprims.imp"; #line 2371 "pass1v84-noprims.imp" goto U_101b; // 2372 c(58):cnest(cp) = cnest(cp)!!2; ->top; !not _imp_current_line = 2372; _imp_current_file = "pass1v84-noprims.imp"; #line 2372 "pass1v84-noprims.imp" sw5_C_58:; _imp_current_line = 2372; _imp_current_file = "pass1v84-noprims.imp"; #line 2372 "pass1v84-noprims.imp" CNEST[CP] = ((CNEST[CP]) ^ (2)); _imp_current_line = 2372; _imp_current_file = "pass1v84-noprims.imp"; #line 2372 "pass1v84-noprims.imp" goto U_101b; // 2373 // 2374 c(138):x = 128+32+16+4; !csep: treat like %WHILE _imp_current_line = 2374; _imp_current_file = "pass1v84-noprims.imp"; #line 2374 "pass1v84-noprims.imp" sw5_C_138:; _imp_current_line = 2374; _imp_current_file = "pass1v84-noprims.imp"; #line 2374 "pass1v84-noprims.imp" X = 180; // 2375 c(59): !while _imp_current_line = 2375; _imp_current_file = "pass1v84-noprims.imp"; #line 2375 "pass1v84-noprims.imp" sw5_C_59:; // 2376 c(60):%IF class = 138 %THEN op('f', label-1) %C _imp_current_line = 2376; _imp_current_file = "pass1v84-noprims.imp"; #line 2376 "pass1v84-noprims.imp" sw5_C_60:; _imp_current_line = 2376; _imp_current_file = "pass1v84-noprims.imp"; #line 2376 "pass1v84-noprims.imp" if (((CLASS) != (138))) goto L_01f7; #line 2376 "pass1v84-noprims.imp" OP(102, (((int)(LABEL)) - (1))); #line 2376 "pass1v84-noprims.imp" goto L_01f8; #line 2376 "pass1v84-noprims.imp" L_01f7:; #line 2376 "pass1v84-noprims.imp" DEFLAB((((int)(LABEL)) - (1))); #line 2376 "pass1v84-noprims.imp" L_01f8:; // 2377 %ELSE def lab(label-1); !until // 2378 c(166): !runtil _imp_current_line = 2378; _imp_current_file = "pass1v84-noprims.imp"; #line 2378 "pass1v84-noprims.imp" sw5_C_166:; // 2379 c(62):lmode = (lmode&(else!loop)) !(x>>3); !cword _imp_current_line = 2379; _imp_current_file = "pass1v84-noprims.imp"; #line 2379 "pass1v84-noprims.imp" sw5_C_62:; _imp_current_line = 2379; _imp_current_file = "pass1v84-noprims.imp"; #line 2379 "pass1v84-noprims.imp" LMODE = ((((LMODE) & (((8) | (16))))) | ((int)((((unsigned int)(X)) >> (3))))); // 2380 clab = label; cp = 1; cnest(1) = x&7 _imp_current_line = 2380; _imp_current_file = "pass1v84-noprims.imp"; #line 2380 "pass1v84-noprims.imp" CLAB = LABEL; _imp_current_line = 2380; _imp_current_file = "pass1v84-noprims.imp"; #line 2380 "pass1v84-noprims.imp" CP = 1; _imp_current_line = 2380; _imp_current_file = "pass1v84-noprims.imp"; #line 2380 "pass1v84-noprims.imp" CNEST[1] = ((X) & (7)); // 2381 ->top _imp_current_line = 2381; _imp_current_file = "pass1v84-noprims.imp"; #line 2381 "pass1v84-noprims.imp" goto U_101b; // 2382 c(72):pop label(0); !repeat _imp_current_line = 2382; _imp_current_file = "pass1v84-noprims.imp"; #line 2382 "pass1v84-noprims.imp" sw5_C_72:; _imp_current_line = 2382; _imp_current_file = "pass1v84-noprims.imp"; #line 2382 "pass1v84-noprims.imp" POPLABEL(0); // 2383 def lab(label+1) %IF lmode&32 # 0; ->atop _imp_current_line = 2383; _imp_current_file = "pass1v84-noprims.imp"; #line 2383 "pass1v84-noprims.imp" if (((((LMODE) & (32))) == (0))) goto L_01f9; #line 2383 "pass1v84-noprims.imp" DEFLAB((((int)(LABEL)) + (1))); #line 2383 "pass1v84-noprims.imp" L_01f9:; _imp_current_line = 2383; _imp_current_file = "pass1v84-noprims.imp"; #line 2383 "pass1v84-noprims.imp" goto U_101c; // 2384 c(69):pop label(1); ->top; !finish _imp_current_line = 2384; _imp_current_file = "pass1v84-noprims.imp"; #line 2384 "pass1v84-noprims.imp" sw5_C_69:; _imp_current_line = 2384; _imp_current_file = "pass1v84-noprims.imp"; #line 2384 "pass1v84-noprims.imp" POPLABEL(1); _imp_current_line = 2384; _imp_current_file = "pass1v84-noprims.imp"; #line 2384 "pass1v84-noprims.imp" goto U_101b; // 2385 c(163): !xelse _imp_current_line = 2385; _imp_current_file = "pass1v84-noprims.imp"; #line 2385 "pass1v84-noprims.imp" sw5_C_163:; // 2386 c(70):pop label(1); !finish else ... _imp_current_line = 2386; _imp_current_file = "pass1v84-noprims.imp"; #line 2386 "pass1v84-noprims.imp" sw5_C_70:; _imp_current_line = 2386; _imp_current_file = "pass1v84-noprims.imp"; #line 2386 "pass1v84-noprims.imp" POPLABEL(1); // 2387 fault(7) %IF lmode&3 = 3; !dangling else _imp_current_line = 2387; _imp_current_file = "pass1v84-noprims.imp"; #line 2387 "pass1v84-noprims.imp" if (((((LMODE) & (3))) != (3))) goto L_01fa; #line 2387 "pass1v84-noprims.imp" FAULT(7); #line 2387 "pass1v84-noprims.imp" L_01fa:; // 2388 c(68):lmode = (lmode&else)!3; !...else... _imp_current_line = 2388; _imp_current_file = "pass1v84-noprims.imp"; #line 2388 "pass1v84-noprims.imp" sw5_C_68:; _imp_current_line = 2388; _imp_current_file = "pass1v84-noprims.imp"; #line 2388 "pass1v84-noprims.imp" LMODE = ((((LMODE) & (8))) | (3)); // 2389 %IF access # 0 %START _imp_current_line = 2389; _imp_current_file = "pass1v84-noprims.imp"; #line 2389 "pass1v84-noprims.imp" if (((ACCESS) == (0))) goto L_01fb; // 2390 op('F', label-1); lmode = else!3 _imp_current_line = 2390; _imp_current_file = "pass1v84-noprims.imp"; #line 2390 "pass1v84-noprims.imp" OP(70, (((int)(LABEL)) - (1))); _imp_current_line = 2390; _imp_current_file = "pass1v84-noprims.imp"; #line 2390 "pass1v84-noprims.imp" LMODE = ((8) | (3)); // 2391 %FINISH _imp_current_line = 2391; _imp_current_file = "pass1v84-noprims.imp"; #line 2391 "pass1v84-noprims.imp" L_01fb:; // 2392 def lab(label) _imp_current_line = 2392; _imp_current_file = "pass1v84-noprims.imp"; #line 2392 "pass1v84-noprims.imp" DEFLAB(LABEL); // 2393 ->top %IF next # 0 _imp_current_line = 2393; _imp_current_file = "pass1v84-noprims.imp"; #line 2393 "pass1v84-noprims.imp" if (((NEXT) == (0))) goto L_01fc; #line 2393 "pass1v84-noprims.imp" goto U_101b; #line 2393 "pass1v84-noprims.imp" L_01fc:; // 2394 // 2395 c(120): !%MSTART _imp_current_line = 2395; _imp_current_file = "pass1v84-noprims.imp"; #line 2395 "pass1v84-noprims.imp" sw5_C_120:; // 2396 c(67): !start _imp_current_line = 2396; _imp_current_file = "pass1v84-noprims.imp"; #line 2396 "pass1v84-noprims.imp" sw5_C_67:; // 2397 c(71): !cycle _imp_current_line = 2397; _imp_current_file = "pass1v84-noprims.imp"; #line 2397 "pass1v84-noprims.imp" sw5_C_71:; // 2398 stcy: def lab(label-1) %AND lmode = loop %IF lmode = 0;!cycle _imp_current_line = 2398; _imp_current_file = "pass1v84-noprims.imp"; #line 2398 "pass1v84-noprims.imp" U_101d:; _imp_current_line = 2398; _imp_current_file = "pass1v84-noprims.imp"; #line 2398 "pass1v84-noprims.imp" if (((LMODE) != (0))) goto L_01fd; #line 2398 "pass1v84-noprims.imp" DEFLAB((((int)(LABEL)) - (1))); #line 2398 "pass1v84-noprims.imp" LMODE = 16; #line 2398 "pass1v84-noprims.imp" L_01fd:; // 2399 dmin = dmin-1; abandon(3) %IF dmin <= dmax _imp_current_line = 2399; _imp_current_file = "pass1v84-noprims.imp"; #line 2399 "pass1v84-noprims.imp" DMIN = (((int)(DMIN)) - (1)); _imp_current_line = 2399; _imp_current_file = "pass1v84-noprims.imp"; #line 2399 "pass1v84-noprims.imp" if (((DMIN) > (DMAX))) goto L_01fe; #line 2399 "pass1v84-noprims.imp" ABANDON(3); #line 2399 "pass1v84-noprims.imp" L_01fe:; // 2400 dict(dmin) = lmode _imp_current_line = 2400; _imp_current_file = "pass1v84-noprims.imp"; #line 2400 "pass1v84-noprims.imp" DICT[(((int)(DMIN)) - (1))] = LMODE; // 2401 label = label+3 _imp_current_line = 2401; _imp_current_file = "pass1v84-noprims.imp"; #line 2401 "pass1v84-noprims.imp" LABEL = (((int)(LABEL)) + (3)); // 2402 %RETURN _imp_current_line = 2402; _imp_current_file = "pass1v84-noprims.imp"; #line 2402 "pass1v84-noprims.imp" return; // 2403 // 2404 c(64):fault(13) %IF dict(dmin) >= 0 %OR inhibit # 0; !on event _imp_current_line = 2404; _imp_current_file = "pass1v84-noprims.imp"; #line 2404 "pass1v84-noprims.imp" sw5_C_64:; _imp_current_line = 2404; _imp_current_file = "pass1v84-noprims.imp"; #line 2404 "pass1v84-noprims.imp" if (((DICT[(((int)(DMIN)) - (1))]) >= (0))) goto L_01ff; #line 2404 "pass1v84-noprims.imp" if (((INHIBIT) == (0))) goto L_0200; #line 2404 "pass1v84-noprims.imp" L_01ff:; #line 2404 "pass1v84-noprims.imp" FAULT(13); #line 2404 "pass1v84-noprims.imp" L_0200:; // 2405 inhibit = 1 _imp_current_line = 2405; _imp_current_file = "pass1v84-noprims.imp"; #line 2405 "pass1v84-noprims.imp" INHIBIT = 1; // 2406 n = 0 _imp_current_line = 2406; _imp_current_file = "pass1v84-noprims.imp"; #line 2406 "pass1v84-noprims.imp" N = 0; // 2407 n = x'FFFF' %IF pending = 0; !* = all events _imp_current_line = 2407; _imp_current_file = "pass1v84-noprims.imp"; #line 2407 "pass1v84-noprims.imp" if (((PENDING) != (0))) goto L_0201; #line 2407 "pass1v84-noprims.imp" N = 65535; #line 2407 "pass1v84-noprims.imp" L_0201:; // 2408 %WHILE pending > 0 %CYCLE _imp_current_line = 2408; _imp_current_file = "pass1v84-noprims.imp"; #line 2408 "pass1v84-noprims.imp" L_0202:; #line 2408 "pass1v84-noprims.imp" if (((PENDING) <= (0))) goto L_0203; // 2409 pop lit; fault(10) %IF lit&(\15) # 0;!too big _imp_current_line = 2409; _imp_current_file = "pass1v84-noprims.imp"; #line 2409 "pass1v84-noprims.imp" POPLIT(); _imp_current_line = 2409; _imp_current_file = "pass1v84-noprims.imp"; #line 2409 "pass1v84-noprims.imp" if (((((LIT) & ((~(15))))) == (0))) goto L_0205; #line 2409 "pass1v84-noprims.imp" FAULT(10); #line 2409 "pass1v84-noprims.imp" L_0205:; // 2410 j = 1<stcy _imp_current_line = 2415; _imp_current_file = "pass1v84-noprims.imp"; #line 2415 "pass1v84-noprims.imp" LMODE = ((4) | (1)); _imp_current_line = 2415; _imp_current_file = "pass1v84-noprims.imp"; #line 2415 "pass1v84-noprims.imp" goto U_101d; // 2416 // 2417 // 2418 c(104):op('J', tag(x)_index); !l _imp_current_line = 2418; _imp_current_file = "pass1v84-noprims.imp"; #line 2418 "pass1v84-noprims.imp" sw5_C_104:; _imp_current_line = 2418; _imp_current_file = "pass1v84-noprims.imp"; #line 2418 "pass1v84-noprims.imp" OP(74, TAG[X].INDEX); // 2419 inhibit = 1; ->atop _imp_current_line = 2419; _imp_current_file = "pass1v84-noprims.imp"; #line 2419 "pass1v84-noprims.imp" INHIBIT = 1; _imp_current_line = 2419; _imp_current_file = "pass1v84-noprims.imp"; #line 2419 "pass1v84-noprims.imp" goto U_101c; // 2420 c(149):stats = stats-1; !lab _imp_current_line = 2420; _imp_current_file = "pass1v84-noprims.imp"; #line 2420 "pass1v84-noprims.imp" sw5_C_149:; _imp_current_line = 2420; _imp_current_file = "pass1v84-noprims.imp"; #line 2420 "pass1v84-noprims.imp" STATS = (((int)(STATS)) - (1)); // 2421 access = 1; inhibit = 1 _imp_current_line = 2421; _imp_current_file = "pass1v84-noprims.imp"; #line 2421 "pass1v84-noprims.imp" ACCESS = 1; _imp_current_line = 2421; _imp_current_file = "pass1v84-noprims.imp"; #line 2421 "pass1v84-noprims.imp" INHIBIT = 1; // 2422 op('L', tag(x)_index); ->top _imp_current_line = 2422; _imp_current_file = "pass1v84-noprims.imp"; #line 2422 "pass1v84-noprims.imp" OP(76, TAG[X].INDEX); _imp_current_line = 2422; _imp_current_file = "pass1v84-noprims.imp"; #line 2422 "pass1v84-noprims.imp" goto U_101b; // 2423 // 2424 c(63):j = dmin; l = label-3; !exit, continue _imp_current_line = 2424; _imp_current_file = "pass1v84-noprims.imp"; #line 2424 "pass1v84-noprims.imp" sw5_C_63:; _imp_current_line = 2424; _imp_current_file = "pass1v84-noprims.imp"; #line 2424 "pass1v84-noprims.imp" J = DMIN; _imp_current_line = 2424; _imp_current_file = "pass1v84-noprims.imp"; #line 2424 "pass1v84-noprims.imp" L = (((int)(LABEL)) - (3)); // 2425 %CYCLE _imp_current_line = 2425; _imp_current_file = "pass1v84-noprims.imp"; #line 2425 "pass1v84-noprims.imp" L_0207:; // 2426 fault(7) %AND ->top %IF dict(j) < 0 _imp_current_line = 2426; _imp_current_file = "pass1v84-noprims.imp"; #line 2426 "pass1v84-noprims.imp" if (((DICT[(((int)(J)) - (1))]) >= (0))) goto L_020a; #line 2426 "pass1v84-noprims.imp" FAULT(7); #line 2426 "pass1v84-noprims.imp" goto U_101b; #line 2426 "pass1v84-noprims.imp" L_020a:; // 2427 %EXIT %IF dict(j)&1 = 0 _imp_current_line = 2427; _imp_current_file = "pass1v84-noprims.imp"; #line 2427 "pass1v84-noprims.imp" if (((((DICT[(((int)(J)) - (1))]) & (1))) != (0))) goto L_020b; #line 2427 "pass1v84-noprims.imp" goto L_0208; #line 2427 "pass1v84-noprims.imp" L_020b:; // 2428 j = j+1; l = l-3 _imp_current_line = 2428; _imp_current_file = "pass1v84-noprims.imp"; #line 2428 "pass1v84-noprims.imp" J = (((int)(J)) + (1)); _imp_current_line = 2428; _imp_current_file = "pass1v84-noprims.imp"; #line 2428 "pass1v84-noprims.imp" L = (((int)(L)) - (3)); // 2429 %REPEAT _imp_current_line = 2429; _imp_current_file = "pass1v84-noprims.imp"; #line 2429 "pass1v84-noprims.imp" goto L_0207; #line 2429 "pass1v84-noprims.imp" L_0208:; // 2430 l = l+1 %IF x = 32; !continue _imp_current_line = 2430; _imp_current_file = "pass1v84-noprims.imp"; #line 2430 "pass1v84-noprims.imp" if (((X) != (32))) goto L_020c; #line 2430 "pass1v84-noprims.imp" L = (((int)(L)) + (1)); #line 2430 "pass1v84-noprims.imp" L_020c:; // 2431 op('F', l) _imp_current_line = 2431; _imp_current_file = "pass1v84-noprims.imp"; #line 2431 "pass1v84-noprims.imp" OP(70, L); // 2432 dict(j) = dict(j)!x; !show given _imp_current_line = 2432; _imp_current_file = "pass1v84-noprims.imp"; #line 2432 "pass1v84-noprims.imp" DICT[(((int)(J)) - (1))] = ((DICT[(((int)(J)) - (1))]) | (X)); // 2433 ->atop _imp_current_line = 2433; _imp_current_file = "pass1v84-noprims.imp"; #line 2433 "pass1v84-noprims.imp" goto U_101c; // 2434 // 2435 c(50):bp=bp+1 %AND buff(bp)='C'; ->cop; !acomp _imp_current_line = 2435; _imp_current_file = "pass1v84-noprims.imp"; #line 2435 "pass1v84-noprims.imp" sw5_C_50:; _imp_current_line = 2435; _imp_current_file = "pass1v84-noprims.imp"; #line 2435 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2435 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 67; _imp_current_line = 2435; _imp_current_file = "pass1v84-noprims.imp"; #line 2435 "pass1v84-noprims.imp" goto U_101e; // 2436 // 2437 c(49): bp = bp+1 _imp_current_line = 2437; _imp_current_file = "pass1v84-noprims.imp"; #line 2437 "pass1v84-noprims.imp" sw5_C_49:; _imp_current_line = 2437; _imp_current_file = "pass1v84-noprims.imp"; #line 2437 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); // 2438 %IF next # 0 %START; !comparator _imp_current_line = 2438; _imp_current_file = "pass1v84-noprims.imp"; #line 2438 "pass1v84-noprims.imp" if (((NEXT) == (0))) goto L_020d; // 2439 buff(bp)='"'; push(0); !double sided _imp_current_line = 2439; _imp_current_file = "pass1v84-noprims.imp"; #line 2439 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 34; _imp_current_line = 2439; _imp_current_file = "pass1v84-noprims.imp"; #line 2439 "pass1v84-noprims.imp" PUSH(0); // 2440 %FINISH %ELSE %START _imp_current_line = 2440; _imp_current_file = "pass1v84-noprims.imp"; #line 2440 "pass1v84-noprims.imp" goto L_020e; #line 2440 "pass1v84-noprims.imp" L_020d:; // 2441 buff(bp)='?' _imp_current_line = 2441; _imp_current_file = "pass1v84-noprims.imp"; #line 2441 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 63; // 2442 %FINISH _imp_current_line = 2442; _imp_current_file = "pass1v84-noprims.imp"; #line 2442 "pass1v84-noprims.imp" L_020e:; // 2443 // 2444 cop: x = x!!1 %IF cnest(cp)&2 # 0; !invert the condition _imp_current_line = 2444; _imp_current_file = "pass1v84-noprims.imp"; #line 2444 "pass1v84-noprims.imp" U_101e:; _imp_current_line = 2444; _imp_current_file = "pass1v84-noprims.imp"; #line 2444 "pass1v84-noprims.imp" if (((((CNEST[CP]) & (2))) == (0))) goto L_020f; #line 2444 "pass1v84-noprims.imp" X = ((X) ^ (1)); #line 2444 "pass1v84-noprims.imp" L_020f:; // 2445 j = cp; l = clab _imp_current_line = 2445; _imp_current_file = "pass1v84-noprims.imp"; #line 2445 "pass1v84-noprims.imp" J = CP; _imp_current_line = 2445; _imp_current_file = "pass1v84-noprims.imp"; #line 2445 "pass1v84-noprims.imp" L = CLAB; // 2446 %WHILE cnest(j)&4 = 0 %CYCLE _imp_current_line = 2446; _imp_current_file = "pass1v84-noprims.imp"; #line 2446 "pass1v84-noprims.imp" L_0210:; #line 2446 "pass1v84-noprims.imp" if (((((CNEST[J]) & (4))) != (0))) goto L_0211; // 2447 j = j-1; l = l-cnest(j)&1 _imp_current_line = 2447; _imp_current_file = "pass1v84-noprims.imp"; #line 2447 "pass1v84-noprims.imp" J = (((int)(J)) - (1)); _imp_current_line = 2447; _imp_current_file = "pass1v84-noprims.imp"; #line 2447 "pass1v84-noprims.imp" L = ((L) - ((int)(((CNEST[J]) & (1))))); // 2448 %REPEAT _imp_current_line = 2448; _imp_current_file = "pass1v84-noprims.imp"; #line 2448 "pass1v84-noprims.imp" goto L_0210; #line 2448 "pass1v84-noprims.imp" L_0211:; // 2449 op(cc(x), l) _imp_current_line = 2449; _imp_current_file = "pass1v84-noprims.imp"; #line 2449 "pass1v84-noprims.imp" OP(CC[X], L); // 2450 def lab(clab+1) %IF cnest(cp)&1 # 0 _imp_current_line = 2450; _imp_current_file = "pass1v84-noprims.imp"; #line 2450 "pass1v84-noprims.imp" if (((((CNEST[CP]) & (1))) == (0))) goto L_0213; #line 2450 "pass1v84-noprims.imp" DEFLAB((((int)(CLAB)) + (1))); #line 2450 "pass1v84-noprims.imp" L_0213:; // 2451 cp = cp-1 _imp_current_line = 2451; _imp_current_file = "pass1v84-noprims.imp"; #line 2451 "pass1v84-noprims.imp" CP = (((int)(CP)) - (1)); // 2452 clab = clab-cnest(cp)&1 _imp_current_line = 2452; _imp_current_file = "pass1v84-noprims.imp"; #line 2452 "pass1v84-noprims.imp" CLAB = ((CLAB) - ((int)(((CNEST[CP]) & (1))))); // 2453 ->top _imp_current_line = 2453; _imp_current_file = "pass1v84-noprims.imp"; #line 2453 "pass1v84-noprims.imp" goto U_101b; // 2454 // 2455 c(78): !fresult _imp_current_line = 2455; _imp_current_file = "pass1v84-noprims.imp"; #line 2455 "pass1v84-noprims.imp" sw5_C_78:; // 2456 c(79): !mresult _imp_current_line = 2456; _imp_current_file = "pass1v84-noprims.imp"; #line 2456 "pass1v84-noprims.imp" sw5_C_79:; // 2457 c(80): open = 0; !return, true, false _imp_current_line = 2457; _imp_current_file = "pass1v84-noprims.imp"; #line 2457 "pass1v84-noprims.imp" sw5_C_80:; _imp_current_line = 2457; _imp_current_file = "pass1v84-noprims.imp"; #line 2457 "pass1v84-noprims.imp" OPEN = 0; // 2458 c(82): access = 0; !stop _imp_current_line = 2458; _imp_current_file = "pass1v84-noprims.imp"; #line 2458 "pass1v84-noprims.imp" sw5_C_82:; _imp_current_line = 2458; _imp_current_file = "pass1v84-noprims.imp"; #line 2458 "pass1v84-noprims.imp" ACCESS = 0; // 2459 c(89): !addop _imp_current_line = 2459; _imp_current_file = "pass1v84-noprims.imp"; #line 2459 "pass1v84-noprims.imp" sw5_C_89:; // 2460 c(81): bp=bp+1 %AND buff(bp)=x; ->top; !monitor _imp_current_line = 2460; _imp_current_file = "pass1v84-noprims.imp"; #line 2460 "pass1v84-noprims.imp" sw5_C_81:; _imp_current_line = 2460; _imp_current_file = "pass1v84-noprims.imp"; #line 2460 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2460 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = X; _imp_current_line = 2460; _imp_current_file = "pass1v84-noprims.imp"; #line 2460 "pass1v84-noprims.imp" goto U_101b; // 2461 // 2462 c(65): pop lit; op('e', lit); ->atop; !signal _imp_current_line = 2462; _imp_current_file = "pass1v84-noprims.imp"; #line 2462 "pass1v84-noprims.imp" sw5_C_65:; _imp_current_line = 2462; _imp_current_file = "pass1v84-noprims.imp"; #line 2462 "pass1v84-noprims.imp" POPLIT(); _imp_current_line = 2462; _imp_current_file = "pass1v84-noprims.imp"; #line 2462 "pass1v84-noprims.imp" OP(101, LIT); _imp_current_line = 2462; _imp_current_file = "pass1v84-noprims.imp"; #line 2462 "pass1v84-noprims.imp" goto U_101c; // 2463 // 2464 c(51): bp=bp+1 %AND buff(bp)='S'; ->top; !eq _imp_current_line = 2464; _imp_current_file = "pass1v84-noprims.imp"; #line 2464 "pass1v84-noprims.imp" sw5_C_51:; _imp_current_line = 2464; _imp_current_file = "pass1v84-noprims.imp"; #line 2464 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2464 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 83; _imp_current_line = 2464; _imp_current_file = "pass1v84-noprims.imp"; #line 2464 "pass1v84-noprims.imp" goto U_101b; // 2465 c(53): bp=bp+1 %AND buff(bp)='j'; ->top; !jam transfer _imp_current_line = 2465; _imp_current_file = "pass1v84-noprims.imp"; #line 2465 "pass1v84-noprims.imp" sw5_C_53:; _imp_current_line = 2465; _imp_current_file = "pass1v84-noprims.imp"; #line 2465 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2465 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 106; _imp_current_line = 2465; _imp_current_file = "pass1v84-noprims.imp"; #line 2465 "pass1v84-noprims.imp" goto U_101b; // 2466 c(52): bp=bp+1 %AND buff(bp)='Z'; ->top; !eqeq _imp_current_line = 2466; _imp_current_file = "pass1v84-noprims.imp"; #line 2466 "pass1v84-noprims.imp" sw5_C_52:; _imp_current_line = 2466; _imp_current_file = "pass1v84-noprims.imp"; #line 2466 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2466 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 90; _imp_current_line = 2466; _imp_current_file = "pass1v84-noprims.imp"; #line 2466 "pass1v84-noprims.imp" goto U_101b; // 2467 // 2468 c(74):%IF level = 0 %START; !begin _imp_current_line = 2468; _imp_current_file = "pass1v84-noprims.imp"; #line 2468 "pass1v84-noprims.imp" sw5_C_74:; _imp_current_line = 2468; _imp_current_file = "pass1v84-noprims.imp"; #line 2468 "pass1v84-noprims.imp" if (((LEVEL) != (0))) goto L_0214; // 2469 %IF progmode <= 0 %THEN progmode = 1 %ELSE fault(7) _imp_current_line = 2469; _imp_current_file = "pass1v84-noprims.imp"; #line 2469 "pass1v84-noprims.imp" if (((PROGMODE) > (0))) goto L_0215; #line 2469 "pass1v84-noprims.imp" PROGMODE = 1; #line 2469 "pass1v84-noprims.imp" goto L_0216; #line 2469 "pass1v84-noprims.imp" L_0215:; #line 2469 "pass1v84-noprims.imp" FAULT(7); #line 2469 "pass1v84-noprims.imp" L_0216:; // 2470 {Permit BEGIN after external defs} // 2471 %FINISH _imp_current_line = 2471; _imp_current_file = "pass1v84-noprims.imp"; #line 2471 "pass1v84-noprims.imp" L_0214:; // 2472 spec mode = level+1 _imp_current_line = 2472; _imp_current_file = "pass1v84-noprims.imp"; #line 2472 "pass1v84-noprims.imp" SPECMODE = (((int)(LEVEL)) + (1)); // 2473 block x = 0 _imp_current_line = 2473; _imp_current_file = "pass1v84-noprims.imp"; #line 2473 "pass1v84-noprims.imp" BLOCKX = 0; // 2474 bp=bp+1 %AND buff(bp)='H'; %RETURN _imp_current_line = 2474; _imp_current_file = "pass1v84-noprims.imp"; #line 2474 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2474 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 72; _imp_current_line = 2474; _imp_current_file = "pass1v84-noprims.imp"; #line 2474 "pass1v84-noprims.imp" return; // 2475 c(77):perm = 0; lines = 0; stats = 0; !endofperm _imp_current_line = 2475; _imp_current_file = "pass1v84-noprims.imp"; #line 2475 "pass1v84-noprims.imp" sw5_C_77:; _imp_current_line = 2475; _imp_current_file = "pass1v84-noprims.imp"; #line 2475 "pass1v84-noprims.imp" PERM = 0; _imp_current_line = 2475; _imp_current_file = "pass1v84-noprims.imp"; #line 2475 "pass1v84-noprims.imp" LINES = 0; _imp_current_line = 2475; _imp_current_file = "pass1v84-noprims.imp"; #line 2475 "pass1v84-noprims.imp" STATS = 0; // 2476 close input _imp_current_line = 2476; _imp_current_file = "pass1v84-noprims.imp"; #line 2476 "pass1v84-noprims.imp" CLOSEINPUT(); // 2477 select input(source) _imp_current_line = 2477; _imp_current_file = "pass1v84-noprims.imp"; #line 2477 "pass1v84-noprims.imp" _imp_SELECTINPUT(1); // 2478 list = list-1 _imp_current_line = 2478; _imp_current_file = "pass1v84-noprims.imp"; #line 2478 "pass1v84-noprims.imp" LIST = (((int)(LIST)) - (1)); // 2479 tbase = tmax; tstart = tmax _imp_current_line = 2479; _imp_current_file = "pass1v84-noprims.imp"; #line 2479 "pass1v84-noprims.imp" TBASE = TMAX; _imp_current_line = 2479; _imp_current_file = "pass1v84-noprims.imp"; #line 2479 "pass1v84-noprims.imp" TSTART = TMAX; // 2480 %RETURN _imp_current_line = 2480; _imp_current_file = "pass1v84-noprims.imp"; #line 2480 "pass1v84-noprims.imp" return; // 2481 c(76):%IF include # 0 %AND x = 0 %START; !end of ... _imp_current_line = 2481; _imp_current_file = "pass1v84-noprims.imp"; #line 2481 "pass1v84-noprims.imp" sw5_C_76:; _imp_current_line = 2481; _imp_current_file = "pass1v84-noprims.imp"; #line 2481 "pass1v84-noprims.imp" if (((INCLUDE) == (0))) goto L_0217; #line 2481 "pass1v84-noprims.imp" if (((X) != (0))) goto L_0217; // 2482 lines = include; sstype = 0; !include _imp_current_line = 2482; _imp_current_file = "pass1v84-noprims.imp"; #line 2482 "pass1v84-noprims.imp" LINES = INCLUDE; _imp_current_line = 2482; _imp_current_file = "pass1v84-noprims.imp"; #line 2482 "pass1v84-noprims.imp" SSTYPE = 0; // 2483 close input _imp_current_line = 2483; _imp_current_file = "pass1v84-noprims.imp"; #line 2483 "pass1v84-noprims.imp" CLOSEINPUT(); // 2484 list = include list _imp_current_line = 2484; _imp_current_file = "pass1v84-noprims.imp"; #line 2484 "pass1v84-noprims.imp" LIST = INCLUDELIST; // 2485 include level = 0 _imp_current_line = 2485; _imp_current_file = "pass1v84-noprims.imp"; #line 2485 "pass1v84-noprims.imp" INCLUDELEVEL = 0; // 2486 include = 0; select input(source); %RETURN _imp_current_line = 2486; _imp_current_file = "pass1v84-noprims.imp"; #line 2486 "pass1v84-noprims.imp" INCLUDE = 0; _imp_current_line = 2486; _imp_current_file = "pass1v84-noprims.imp"; #line 2486 "pass1v84-noprims.imp" _imp_SELECTINPUT(1); _imp_current_line = 2486; _imp_current_file = "pass1v84-noprims.imp"; #line 2486 "pass1v84-noprims.imp" return; // 2487 %FINISH _imp_current_line = 2487; _imp_current_file = "pass1v84-noprims.imp"; #line 2487 "pass1v84-noprims.imp" L_0217:; // 2488 ss = -1; !prog/file _imp_current_line = 2488; _imp_current_file = "pass1v84-noprims.imp"; #line 2488 "pass1v84-noprims.imp" SS = (-1); // 2489 c(75):compile end(x); %RETURN; !%END _imp_current_line = 2489; _imp_current_file = "pass1v84-noprims.imp"; #line 2489 "pass1v84-noprims.imp" sw5_C_75:; _imp_current_line = 2489; _imp_current_file = "pass1v84-noprims.imp"; #line 2489 "pass1v84-noprims.imp" COMPILEEND(X); _imp_current_line = 2489; _imp_current_file = "pass1v84-noprims.imp"; #line 2489 "pass1v84-noprims.imp" return; // 2490 // 2491 c(85):%IF x=0 %THEN control=lit %ELSE %START; !control _imp_current_line = 2491; _imp_current_file = "pass1v84-noprims.imp"; #line 2491 "pass1v84-noprims.imp" sw5_C_85:; _imp_current_line = 2491; _imp_current_file = "pass1v84-noprims.imp"; #line 2491 "pass1v84-noprims.imp" if (((X) != (0))) goto L_0218; #line 2491 "pass1v84-noprims.imp" CONTROL = LIT; #line 2491 "pass1v84-noprims.imp" goto L_0219; #line 2491 "pass1v84-noprims.imp" L_0218:; // 2492 diag = lit&x'3FFF' %IF lit>>14&3 = 1 _imp_current_line = 2492; _imp_current_file = "pass1v84-noprims.imp"; #line 2492 "pass1v84-noprims.imp" if ((((((int)((((unsigned int)(LIT)) >> (14)))) & (3))) != (1))) goto L_021a; #line 2492 "pass1v84-noprims.imp" DIAG = ((LIT) & (16383)); #line 2492 "pass1v84-noprims.imp" L_021a:; // 2493 %FINISH _imp_current_line = 2493; _imp_current_file = "pass1v84-noprims.imp"; #line 2493 "pass1v84-noprims.imp" L_0219:; // 2494 op('z'-x, lit) _imp_current_line = 2494; _imp_current_file = "pass1v84-noprims.imp"; #line 2494 "pass1v84-noprims.imp" OP((((int)(122)) - (X)), LIT); // 2495 ->top _imp_current_line = 2495; _imp_current_file = "pass1v84-noprims.imp"; #line 2495 "pass1v84-noprims.imp" goto U_101b; // 2496 c(83):list = list+x-2; ->top; !%LIST/%ENDOFLIST _imp_current_line = 2496; _imp_current_file = "pass1v84-noprims.imp"; #line 2496 "pass1v84-noprims.imp" sw5_C_83:; _imp_current_line = 2496; _imp_current_file = "pass1v84-noprims.imp"; #line 2496 "pass1v84-noprims.imp" LIST = (((int)((((int)(LIST)) + (X)))) - (2)); _imp_current_line = 2496; _imp_current_file = "pass1v84-noprims.imp"; #line 2496 "pass1v84-noprims.imp" goto U_101b; // 2497 c(84):reals ln = x; ->top; !%REALS long/normal _imp_current_line = 2497; _imp_current_file = "pass1v84-noprims.imp"; #line 2497 "pass1v84-noprims.imp" sw5_C_84:; _imp_current_line = 2497; _imp_current_file = "pass1v84-noprims.imp"; #line 2497 "pass1v84-noprims.imp" REALSLN = X; _imp_current_line = 2497; _imp_current_file = "pass1v84-noprims.imp"; #line 2497 "pass1v84-noprims.imp" goto U_101b; // 2498 c(86):%IF include # 0 %START; !include "file" _imp_current_line = 2498; _imp_current_file = "pass1v84-noprims.imp"; #line 2498 "pass1v84-noprims.imp" sw5_C_86:; _imp_current_line = 2498; _imp_current_file = "pass1v84-noprims.imp"; #line 2498 "pass1v84-noprims.imp" if (((INCLUDE) == (0))) goto L_021b; // 2499 fault(7); %RETURN _imp_current_line = 2499; _imp_current_file = "pass1v84-noprims.imp"; #line 2499 "pass1v84-noprims.imp" FAULT(7); _imp_current_line = 2499; _imp_current_file = "pass1v84-noprims.imp"; #line 2499 "pass1v84-noprims.imp" return; // 2500 %FINISH _imp_current_line = 2500; _imp_current_file = "pass1v84-noprims.imp"; #line 2500 "pass1v84-noprims.imp" L_021b:; // 2501 get next; !sconst _imp_current_line = 2501; _imp_current_file = "pass1v84-noprims.imp"; #line 2501 "pass1v84-noprims.imp" GETNEXT(); // 2502 include file = string(x-x'4000'+stbase) _imp_current_line = 2502; _imp_current_file = "pass1v84-noprims.imp"; #line 2502 "pass1v84-noprims.imp" INCLUDEFILE = *_imp_STRING((((int)((((int)(X)) - (16384)))) + (STBASE))); // 2503 %begin _imp_current_line = 2503; _imp_current_file = "pass1v84-noprims.imp"; #line 2503 "pass1v84-noprims.imp" void _BLOCK_1_LEVEL_3_(void) { __label__ _imp_endofblock; // 2504 %on 9 %start; Abandon(9); %finish _imp_current_line = 2504; _imp_current_file = "pass1v84-noprims.imp"; #line 2504 "pass1v84-noprims.imp" if (!_imp_on_event(9)) goto L_021c; _imp_current_line = 2504; _imp_current_file = "pass1v84-noprims.imp"; #line 2504 "pass1v84-noprims.imp" ABANDON(9); _imp_current_line = 2504; _imp_current_file = "pass1v84-noprims.imp"; #line 2504 "pass1v84-noprims.imp" L_021c:; // 2505 open input(3, include file) _imp_current_line = 2505; _imp_current_file = "pass1v84-noprims.imp"; #line 2505 "pass1v84-noprims.imp" OPENINPUT(3, INCLUDEFILE); // 2506 %end _imp_current_line = 2506; _imp_current_file = "pass1v84-noprims.imp"; #line 2506 "pass1v84-noprims.imp" goto _imp_endofblock; _imp_endofblock: ; } // End of block _BLOCK_1_LEVEL_3_ at level 4 _BLOCK_1_LEVEL_3_(); // 2507 include = lines; lines = 0 _imp_current_line = 2507; _imp_current_file = "pass1v84-noprims.imp"; #line 2507 "pass1v84-noprims.imp" INCLUDE = LINES; _imp_current_line = 2507; _imp_current_file = "pass1v84-noprims.imp"; #line 2507 "pass1v84-noprims.imp" LINES = 0; // 2508 include list = list; include level = level _imp_current_line = 2508; _imp_current_file = "pass1v84-noprims.imp"; #line 2508 "pass1v84-noprims.imp" INCLUDELIST = LIST; _imp_current_line = 2508; _imp_current_file = "pass1v84-noprims.imp"; #line 2508 "pass1v84-noprims.imp" INCLUDELEVEL = LEVEL; // 2509 select input(3) _imp_current_line = 2509; _imp_current_file = "pass1v84-noprims.imp"; #line 2509 "pass1v84-noprims.imp" _imp_SELECTINPUT(3); // 2510 ->top _imp_current_line = 2510; _imp_current_file = "pass1v84-noprims.imp"; #line 2510 "pass1v84-noprims.imp" goto U_101b; // 2511 // 2512 c(154):dimension = dimension+1; !dbsep _imp_current_line = 2512; _imp_current_file = "pass1v84-noprims.imp"; #line 2512 "pass1v84-noprims.imp" sw5_C_154:; _imp_current_line = 2512; _imp_current_file = "pass1v84-noprims.imp"; #line 2512 "pass1v84-noprims.imp" DIMENSION = (((int)(DIMENSION)) + (1)); // 2513 fault(11) %IF dimension = dim limit+1 _imp_current_line = 2513; _imp_current_file = "pass1v84-noprims.imp"; #line 2513 "pass1v84-noprims.imp" if (((DIMENSION) != (7))) goto L_021d; #line 2513 "pass1v84-noprims.imp" FAULT(11); #line 2513 "pass1v84-noprims.imp" L_021d:; // 2514 ->top _imp_current_line = 2514; _imp_current_file = "pass1v84-noprims.imp"; #line 2514 "pass1v84-noprims.imp" goto U_101b; // 2515 c(145):set bp; ->top; !crb _imp_current_line = 2515; _imp_current_file = "pass1v84-noprims.imp"; #line 2515 "pass1v84-noprims.imp" sw5_C_145:; _imp_current_line = 2515; _imp_current_file = "pass1v84-noprims.imp"; #line 2515 "pass1v84-noprims.imp" SETBP(); _imp_current_line = 2515; _imp_current_file = "pass1v84-noprims.imp"; #line 2515 "pass1v84-noprims.imp" goto U_101b; // 2516 c(146):set bp; !rcrb _imp_current_line = 2516; _imp_current_file = "pass1v84-noprims.imp"; #line 2516 "pass1v84-noprims.imp" sw5_C_146:; _imp_current_line = 2516; _imp_current_file = "pass1v84-noprims.imp"; #line 2516 "pass1v84-noprims.imp" SETBP(); // 2517 c(142): !bplrb _imp_current_line = 2517; _imp_current_file = "pass1v84-noprims.imp"; #line 2517 "pass1v84-noprims.imp" sw5_C_142:; // 2518 dimension = 1 %IF dimension = 0 _imp_current_line = 2518; _imp_current_file = "pass1v84-noprims.imp"; #line 2518 "pass1v84-noprims.imp" if (((DIMENSION) != (0))) goto L_021e; #line 2518 "pass1v84-noprims.imp" DIMENSION = 1; #line 2518 "pass1v84-noprims.imp" L_021e:; // 2519 op('d', dimension); op(',', defs) _imp_current_line = 2519; _imp_current_file = "pass1v84-noprims.imp"; #line 2519 "pass1v84-noprims.imp" OP(100, DIMENSION); _imp_current_line = 2519; _imp_current_file = "pass1v84-noprims.imp"; #line 2519 "pass1v84-noprims.imp" OP(44, DEFS); // 2520 %IF class # 146 %START _imp_current_line = 2520; _imp_current_file = "pass1v84-noprims.imp"; #line 2520 "pass1v84-noprims.imp" if (((CLASS) == (146))) goto L_021f; // 2521 set subs(defs) _imp_current_line = 2521; _imp_current_file = "pass1v84-noprims.imp"; #line 2521 "pass1v84-noprims.imp" SETSUBS(DEFS); // 2522 fault(13) %IF dict(dmin) >= 0 %OR inhibit # 0 %OR level=0 _imp_current_line = 2522; _imp_current_file = "pass1v84-noprims.imp"; #line 2522 "pass1v84-noprims.imp" if (((DICT[(((int)(DMIN)) - (1))]) >= (0))) goto L_0220; #line 2522 "pass1v84-noprims.imp" if (((INHIBIT) != (0))) goto L_0220; #line 2522 "pass1v84-noprims.imp" if (((LEVEL) != (0))) goto L_0221; #line 2522 "pass1v84-noprims.imp" L_0220:; #line 2522 "pass1v84-noprims.imp" FAULT(13); #line 2522 "pass1v84-noprims.imp" L_0221:; // 2523 %FINISH _imp_current_line = 2523; _imp_current_file = "pass1v84-noprims.imp"; #line 2523 "pass1v84-noprims.imp" L_021f:; // 2524 dimension = 0; defs = 0 _imp_current_line = 2524; _imp_current_file = "pass1v84-noprims.imp"; #line 2524 "pass1v84-noprims.imp" DIMENSION = 0; _imp_current_line = 2524; _imp_current_file = "pass1v84-noprims.imp"; #line 2524 "pass1v84-noprims.imp" DEFS = 0; // 2525 ->top _imp_current_line = 2525; _imp_current_file = "pass1v84-noprims.imp"; #line 2525 "pass1v84-noprims.imp" goto U_101b; // 2526 c(128):id = dupid; ->top; !EDUP _imp_current_line = 2526; _imp_current_file = "pass1v84-noprims.imp"; #line 2526 "pass1v84-noprims.imp" sw5_C_128:; _imp_current_line = 2526; _imp_current_file = "pass1v84-noprims.imp"; #line 2526 "pass1v84-noprims.imp" ID = DUPID; _imp_current_line = 2526; _imp_current_file = "pass1v84-noprims.imp"; #line 2526 "pass1v84-noprims.imp" goto U_101b; // 2527 c(130):block x = x _imp_current_line = 2527; _imp_current_file = "pass1v84-noprims.imp"; #line 2527 "pass1v84-noprims.imp" sw5_C_130:; _imp_current_line = 2527; _imp_current_file = "pass1v84-noprims.imp"; #line 2527 "pass1v84-noprims.imp" BLOCKX = X; // 2528 op('F', 0) %IF decl&spec = 0 %AND level # 0; !jump round proc _imp_current_line = 2528; _imp_current_file = "pass1v84-noprims.imp"; #line 2528 "pass1v84-noprims.imp" if (((((DECL) & (128))) != (0))) goto L_0222; #line 2528 "pass1v84-noprims.imp" if (((LEVEL) == (0))) goto L_0222; #line 2528 "pass1v84-noprims.imp" OP(70, 0); #line 2528 "pass1v84-noprims.imp" L_0222:; // 2529 c(125):dupid = id; !%DUP _imp_current_line = 2529; _imp_current_file = "pass1v84-noprims.imp"; #line 2529 "pass1v84-noprims.imp" sw5_C_125:; _imp_current_line = 2529; _imp_current_file = "pass1v84-noprims.imp"; #line 2529 "pass1v84-noprims.imp" DUPID = ID; // 2530 %return %if Level < 0 {spec about} _imp_current_line = 2530; _imp_current_file = "pass1v84-noprims.imp"; #line 2530 "pass1v84-noprims.imp" if (((LEVEL) >= (0))) goto L_0223; #line 2530 "pass1v84-noprims.imp" return; #line 2530 "pass1v84-noprims.imp" L_0223:; // 2531 c(90): def(x); ->top; !ident _imp_current_line = 2531; _imp_current_file = "pass1v84-noprims.imp"; #line 2531 "pass1v84-noprims.imp" sw5_C_90:; _imp_current_line = 2531; _imp_current_file = "pass1v84-noprims.imp"; #line 2531 "pass1v84-noprims.imp" DEF(X); _imp_current_line = 2531; _imp_current_file = "pass1v84-noprims.imp"; #line 2531 "pass1v84-noprims.imp" goto U_101b; // 2532 c(131): !cident _imp_current_line = 2532; _imp_current_file = "pass1v84-noprims.imp"; #line 2532 "pass1v84-noprims.imp" sw5_C_131:; // 2533 %IF tag(x)_flags&(b'1111111'+const bit) = iform+const bit %START _imp_current_line = 2533; _imp_current_file = "pass1v84-noprims.imp"; #line 2533 "pass1v84-noprims.imp" if (((((TAG[X].FLAGS) & (8319))) != (8209))) goto L_0224; // 2534 tag(x)_format = lit _imp_current_line = 2534; _imp_current_file = "pass1v84-noprims.imp"; #line 2534 "pass1v84-noprims.imp" TAG[X].FORMAT = LIT; // 2535 %FINISH %ELSE %START _imp_current_line = 2535; _imp_current_file = "pass1v84-noprims.imp"; #line 2535 "pass1v84-noprims.imp" goto L_0225; #line 2535 "pass1v84-noprims.imp" L_0224:; // 2536 set const(lit) %IF pending # 0 _imp_current_line = 2536; _imp_current_file = "pass1v84-noprims.imp"; #line 2536 "pass1v84-noprims.imp" if (((PENDING) == (0))) goto L_0226; #line 2536 "pass1v84-noprims.imp" SETCONST(LIT); #line 2536 "pass1v84-noprims.imp" L_0226:; // 2537 def(x) _imp_current_line = 2537; _imp_current_file = "pass1v84-noprims.imp"; #line 2537 "pass1v84-noprims.imp" DEF(X); // 2538 op('A', 1) _imp_current_line = 2538; _imp_current_file = "pass1v84-noprims.imp"; #line 2538 "pass1v84-noprims.imp" OP(65, 1); // 2539 %FINISH _imp_current_line = 2539; _imp_current_file = "pass1v84-noprims.imp"; #line 2539 "pass1v84-noprims.imp" L_0225:; // 2540 cident = x _imp_current_line = 2540; _imp_current_file = "pass1v84-noprims.imp"; #line 2540 "pass1v84-noprims.imp" CIDENT = X; // 2541 ->top _imp_current_line = 2541; _imp_current_file = "pass1v84-noprims.imp"; #line 2541 "pass1v84-noprims.imp" goto U_101b; // 2542 c(124):dubious = 1 %IF tag(cident)_flags&prot # 0; !%DUBIOUS _imp_current_line = 2542; _imp_current_file = "pass1v84-noprims.imp"; #line 2542 "pass1v84-noprims.imp" sw5_C_124:; _imp_current_line = 2542; _imp_current_file = "pass1v84-noprims.imp"; #line 2542 "pass1v84-noprims.imp" if (((((TAG[CIDENT].FLAGS) & (256))) == (0))) goto L_0227; #line 2542 "pass1v84-noprims.imp" DUBIOUS = 1; #line 2542 "pass1v84-noprims.imp" L_0227:; // 2543 ->top _imp_current_line = 2543; _imp_current_file = "pass1v84-noprims.imp"; #line 2543 "pass1v84-noprims.imp" goto U_101b; // 2544 c(97): !f _imp_current_line = 2544; _imp_current_file = "pass1v84-noprims.imp"; #line 2544 "pass1v84-noprims.imp" sw5_C_97:; // 2545 c(98): !m _imp_current_line = 2545; _imp_current_file = "pass1v84-noprims.imp"; #line 2545 "pass1v84-noprims.imp" sw5_C_98:; // 2546 c(99): !p _imp_current_line = 2546; _imp_current_file = "pass1v84-noprims.imp"; #line 2546 "pass1v84-noprims.imp" sw5_C_99:; // 2547 c(96): call; ->top; !r _imp_current_line = 2547; _imp_current_file = "pass1v84-noprims.imp"; #line 2547 "pass1v84-noprims.imp" sw5_C_96:; _imp_current_line = 2547; _imp_current_file = "pass1v84-noprims.imp"; #line 2547 "pass1v84-noprims.imp" CALL(); _imp_current_line = 2547; _imp_current_file = "pass1v84-noprims.imp"; #line 2547 "pass1v84-noprims.imp" goto U_101b; // 2548 // 2549 c(165): !nlab _imp_current_line = 2549; _imp_current_file = "pass1v84-noprims.imp"; #line 2549 "pass1v84-noprims.imp" sw5_C_165:; // 2550 c(100): !rp _imp_current_line = 2550; _imp_current_file = "pass1v84-noprims.imp"; #line 2550 "pass1v84-noprims.imp" sw5_C_100:; // 2551 c(101): !fp _imp_current_line = 2551; _imp_current_file = "pass1v84-noprims.imp"; #line 2551 "pass1v84-noprims.imp" sw5_C_101:; // 2552 c(102): !mp _imp_current_line = 2552; _imp_current_file = "pass1v84-noprims.imp"; #line 2552 "pass1v84-noprims.imp" sw5_C_102:; // 2553 c(103): !pp _imp_current_line = 2553; _imp_current_file = "pass1v84-noprims.imp"; #line 2553 "pass1v84-noprims.imp" sw5_C_103:; // 2554 c(91): !v _imp_current_line = 2554; _imp_current_file = "pass1v84-noprims.imp"; #line 2554 "pass1v84-noprims.imp" sw5_C_91:; // 2555 c(92): !n _imp_current_line = 2555; _imp_current_file = "pass1v84-noprims.imp"; #line 2555 "pass1v84-noprims.imp" sw5_C_92:; // 2556 c(106): !a _imp_current_line = 2556; _imp_current_file = "pass1v84-noprims.imp"; #line 2556 "pass1v84-noprims.imp" sw5_C_106:; // 2557 c(107): !an _imp_current_line = 2557; _imp_current_file = "pass1v84-noprims.imp"; #line 2557 "pass1v84-noprims.imp" sw5_C_107:; // 2558 c(108): !na _imp_current_line = 2558; _imp_current_file = "pass1v84-noprims.imp"; #line 2558 "pass1v84-noprims.imp" sw5_C_108:; // 2559 c(109): !nan _imp_current_line = 2559; _imp_current_file = "pass1v84-noprims.imp"; #line 2559 "pass1v84-noprims.imp" sw5_C_109:; // 2560 k = tag(x)_index _imp_current_line = 2560; _imp_current_file = "pass1v84-noprims.imp"; #line 2560 "pass1v84-noprims.imp" K = TAG[X].INDEX; // 2561 %IF k < 0 %THEN op('n', -k) %ELSE op('@', k) _imp_current_line = 2561; _imp_current_file = "pass1v84-noprims.imp"; #line 2561 "pass1v84-noprims.imp" if (((K) >= (0))) goto L_0228; #line 2561 "pass1v84-noprims.imp" OP(110, (-(K))); #line 2561 "pass1v84-noprims.imp" goto L_0229; #line 2561 "pass1v84-noprims.imp" L_0228:; #line 2561 "pass1v84-noprims.imp" OP(64, K); #line 2561 "pass1v84-noprims.imp" L_0229:; // 2562 ->top _imp_current_line = 2562; _imp_current_file = "pass1v84-noprims.imp"; #line 2562 "pass1v84-noprims.imp" goto U_101b; // 2563 c(121):set const(0); ->top; !special for zero _imp_current_line = 2563; _imp_current_file = "pass1v84-noprims.imp"; #line 2563 "pass1v84-noprims.imp" sw5_C_121:; _imp_current_line = 2563; _imp_current_file = "pass1v84-noprims.imp"; #line 2563 "pass1v84-noprims.imp" SETCONST(0); _imp_current_line = 2563; _imp_current_file = "pass1v84-noprims.imp"; #line 2563 "pass1v84-noprims.imp" goto U_101b; // 2564 c(167):bp=bp+1; buff(bp)='G'; ->pstr; !aconst (alias) _imp_current_line = 2564; _imp_current_file = "pass1v84-noprims.imp"; #line 2564 "pass1v84-noprims.imp" sw5_C_167:; _imp_current_line = 2564; _imp_current_file = "pass1v84-noprims.imp"; #line 2564 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); _imp_current_line = 2564; _imp_current_file = "pass1v84-noprims.imp"; #line 2564 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 71; _imp_current_line = 2564; _imp_current_file = "pass1v84-noprims.imp"; #line 2564 "pass1v84-noprims.imp" goto U_101f; // 2565 c(const): !const _imp_current_line = 2565; _imp_current_file = "pass1v84-noprims.imp"; #line 2565 "pass1v84-noprims.imp" sw5_C_93:; // 2566 %IF x < 0 %START; !constinteger _imp_current_line = 2566; _imp_current_file = "pass1v84-noprims.imp"; #line 2566 "pass1v84-noprims.imp" if (((X) >= (0))) goto L_022a; // 2567 set const(tag(-x)_format); ->top _imp_current_line = 2567; _imp_current_file = "pass1v84-noprims.imp"; #line 2567 "pass1v84-noprims.imp" SETCONST(TAG[(-(X))].FORMAT); _imp_current_line = 2567; _imp_current_file = "pass1v84-noprims.imp"; #line 2567 "pass1v84-noprims.imp" goto U_101b; // 2568 %FINISH _imp_current_line = 2568; _imp_current_file = "pass1v84-noprims.imp"; #line 2568 "pass1v84-noprims.imp" L_022a:; // 2569 %IF x&x'4000' # 0 %START; !strings _imp_current_line = 2569; _imp_current_file = "pass1v84-noprims.imp"; #line 2569 "pass1v84-noprims.imp" if (((((X) & (16384))) == (0))) goto L_022b; // 2570 bp=bp+1 %AND buff(bp)='''' _imp_current_line = 2570; _imp_current_file = "pass1v84-noprims.imp"; #line 2570 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2570 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 39; // 2571 pstr: x = x-x'4000'+stbase _imp_current_line = 2571; _imp_current_file = "pass1v84-noprims.imp"; #line 2571 "pass1v84-noprims.imp" U_101f:; _imp_current_line = 2571; _imp_current_file = "pass1v84-noprims.imp"; #line 2571 "pass1v84-noprims.imp" X = (((int)((((int)(X)) - (16384)))) + (STBASE)); // 2572 k = byteinteger(x) _imp_current_line = 2572; _imp_current_file = "pass1v84-noprims.imp"; #line 2572 "pass1v84-noprims.imp" K = *_imp_BYTEINTEGER(X); // 2573 bp=bp+1 %AND buff(bp)=k _imp_current_line = 2573; _imp_current_file = "pass1v84-noprims.imp"; #line 2573 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2573 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = K; // 2574 k = k+x _imp_current_line = 2574; _imp_current_file = "pass1v84-noprims.imp"; #line 2574 "pass1v84-noprims.imp" K = (((int)(K)) + (X)); // 2575 %CYCLE _imp_current_line = 2575; _imp_current_file = "pass1v84-noprims.imp"; #line 2575 "pass1v84-noprims.imp" L_022c:; // 2576 ->top %IF x = k _imp_current_line = 2576; _imp_current_file = "pass1v84-noprims.imp"; #line 2576 "pass1v84-noprims.imp" if (((X) != (K))) goto L_022f; #line 2576 "pass1v84-noprims.imp" goto U_101b; #line 2576 "pass1v84-noprims.imp" L_022f:; // 2577 x = x+1; bp=bp+1 %AND buff(bp)=byteinteger(x) _imp_current_line = 2577; _imp_current_file = "pass1v84-noprims.imp"; #line 2577 "pass1v84-noprims.imp" X = (((int)(X)) + (1)); _imp_current_line = 2577; _imp_current_file = "pass1v84-noprims.imp"; #line 2577 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2577 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = *_imp_BYTEINTEGER(X); // 2578 %REPEAT _imp_current_line = 2578; _imp_current_file = "pass1v84-noprims.imp"; #line 2578 "pass1v84-noprims.imp" goto L_022c; // 2579 %FINISH _imp_current_line = 2579; _imp_current_file = "pass1v84-noprims.imp"; #line 2579 "pass1v84-noprims.imp" L_022b:; // 2580 %IF x&x'2000' # 0 %START; !real _imp_current_line = 2580; _imp_current_file = "pass1v84-noprims.imp"; #line 2580 "pass1v84-noprims.imp" if (((((X) & (8192))) == (0))) goto L_0230; // 2581 x = x-x'2000'+stbase _imp_current_line = 2581; _imp_current_file = "pass1v84-noprims.imp"; #line 2581 "pass1v84-noprims.imp" X = (((int)((((int)(X)) - (8192)))) + (STBASE)); // 2582 k = byteinteger(x) _imp_current_line = 2582; _imp_current_file = "pass1v84-noprims.imp"; #line 2582 "pass1v84-noprims.imp" K = *_imp_BYTEINTEGER(X); // 2583 op('D', k); bp=bp+1 %AND buff(bp)=',' _imp_current_line = 2583; _imp_current_file = "pass1v84-noprims.imp"; #line 2583 "pass1v84-noprims.imp" OP(68, K); _imp_current_line = 2583; _imp_current_file = "pass1v84-noprims.imp"; #line 2583 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2583 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 44; // 2584 k = k+x _imp_current_line = 2584; _imp_current_file = "pass1v84-noprims.imp"; #line 2584 "pass1v84-noprims.imp" K = (((int)(K)) + (X)); // 2585 %CYCLE _imp_current_line = 2585; _imp_current_file = "pass1v84-noprims.imp"; #line 2585 "pass1v84-noprims.imp" L_0231:; // 2586 ->top %IF x = k _imp_current_line = 2586; _imp_current_file = "pass1v84-noprims.imp"; #line 2586 "pass1v84-noprims.imp" if (((X) != (K))) goto L_0234; #line 2586 "pass1v84-noprims.imp" goto U_101b; #line 2586 "pass1v84-noprims.imp" L_0234:; // 2587 x = x+1; j = byteinteger(x) _imp_current_line = 2587; _imp_current_file = "pass1v84-noprims.imp"; #line 2587 "pass1v84-noprims.imp" X = (((int)(X)) + (1)); _imp_current_line = 2587; _imp_current_file = "pass1v84-noprims.imp"; #line 2587 "pass1v84-noprims.imp" J = *_imp_BYTEINTEGER(X); // 2588 %IF j = '@' %START _imp_current_line = 2588; _imp_current_file = "pass1v84-noprims.imp"; #line 2588 "pass1v84-noprims.imp" if (((J) != (64))) goto L_0235; // 2589 op('@', litpool(byteinteger(x+1))); ->top _imp_current_line = 2589; _imp_current_file = "pass1v84-noprims.imp"; #line 2589 "pass1v84-noprims.imp" OP(64, LITPOOL[*_imp_BYTEINTEGER((((int)(X)) + (1)))]); _imp_current_line = 2589; _imp_current_file = "pass1v84-noprims.imp"; #line 2589 "pass1v84-noprims.imp" goto U_101b; // 2590 %FINISH _imp_current_line = 2590; _imp_current_file = "pass1v84-noprims.imp"; #line 2590 "pass1v84-noprims.imp" L_0235:; // 2591 bp=bp+1 %AND buff(bp)=j _imp_current_line = 2591; _imp_current_file = "pass1v84-noprims.imp"; #line 2591 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2591 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = J; // 2592 %REPEAT _imp_current_line = 2592; _imp_current_file = "pass1v84-noprims.imp"; #line 2592 "pass1v84-noprims.imp" goto L_0231; // 2593 %FINISH _imp_current_line = 2593; _imp_current_file = "pass1v84-noprims.imp"; #line 2593 "pass1v84-noprims.imp" L_0230:; // 2594 set const(lit pool(x)) _imp_current_line = 2594; _imp_current_file = "pass1v84-noprims.imp"; #line 2594 "pass1v84-noprims.imp" SETCONST(LITPOOL[X]); // 2595 ->top _imp_current_line = 2595; _imp_current_file = "pass1v84-noprims.imp"; #line 2595 "pass1v84-noprims.imp" goto U_101b; // 2596 // 2597 c(137):bp=bp+1 %AND buff(bp)='i'; ->top; !asep _imp_current_line = 2597; _imp_current_file = "pass1v84-noprims.imp"; #line 2597 "pass1v84-noprims.imp" sw5_C_137:; _imp_current_line = 2597; _imp_current_file = "pass1v84-noprims.imp"; #line 2597 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2597 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 105; _imp_current_line = 2597; _imp_current_file = "pass1v84-noprims.imp"; #line 2597 "pass1v84-noprims.imp" goto U_101b; // 2598 c(141):bp=bp+1 %AND buff(bp)='a'; ->top; !arb _imp_current_line = 2598; _imp_current_file = "pass1v84-noprims.imp"; #line 2598 "pass1v84-noprims.imp" sw5_C_141:; _imp_current_line = 2598; _imp_current_file = "pass1v84-noprims.imp"; #line 2598 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2598 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 97; _imp_current_line = 2598; _imp_current_file = "pass1v84-noprims.imp"; #line 2598 "pass1v84-noprims.imp" goto U_101b; // 2599 // 2600 !own arrays // 2601 // 2602 c(132):ocount = ub-lb+1 _imp_current_line = 2602; _imp_current_file = "pass1v84-noprims.imp"; #line 2602 "pass1v84-noprims.imp" sw5_C_132:; _imp_current_line = 2602; _imp_current_file = "pass1v84-noprims.imp"; #line 2602 "pass1v84-noprims.imp" OCOUNT = (((int)((((int)(UB)) - (LB)))) + (1)); // 2603 def(x); !oident _imp_current_line = 2603; _imp_current_file = "pass1v84-noprims.imp"; #line 2603 "pass1v84-noprims.imp" DEF(X); // 2604 dimension = 1; set subs(1) _imp_current_line = 2604; _imp_current_file = "pass1v84-noprims.imp"; #line 2604 "pass1v84-noprims.imp" DIMENSION = 1; _imp_current_line = 2604; _imp_current_file = "pass1v84-noprims.imp"; #line 2604 "pass1v84-noprims.imp" SETSUBS(1); // 2605 %IF next = 0 %START; !no initialisation _imp_current_line = 2605; _imp_current_file = "pass1v84-noprims.imp"; #line 2605 "pass1v84-noprims.imp" if (((NEXT) != (0))) goto L_0236; // 2606 op('A', ocount) %IF ocount > 0 _imp_current_line = 2606; _imp_current_file = "pass1v84-noprims.imp"; #line 2606 "pass1v84-noprims.imp" if (((OCOUNT) <= (0))) goto L_0232; #line 2606 "pass1v84-noprims.imp" OP(65, OCOUNT); #line 2606 "pass1v84-noprims.imp" L_0232:; // 2607 ocount = -1 _imp_current_line = 2607; _imp_current_file = "pass1v84-noprims.imp"; #line 2607 "pass1v84-noprims.imp" OCOUNT = (-1); // 2608 %FINISH %ELSE %START; !initialisation given _imp_current_line = 2608; _imp_current_file = "pass1v84-noprims.imp"; #line 2608 "pass1v84-noprims.imp" goto L_0237; #line 2608 "pass1v84-noprims.imp" L_0236:; // 2609 get next _imp_current_line = 2609; _imp_current_file = "pass1v84-noprims.imp"; #line 2609 "pass1v84-noprims.imp" GETNEXT(); // 2610 %FINISH _imp_current_line = 2610; _imp_current_file = "pass1v84-noprims.imp"; #line 2610 "pass1v84-noprims.imp" L_0237:; // 2611 ->top _imp_current_line = 2611; _imp_current_file = "pass1v84-noprims.imp"; #line 2611 "pass1v84-noprims.imp" goto U_101b; // 2612 c(162):lit = ocount; ->ins; !indef _imp_current_line = 2612; _imp_current_file = "pass1v84-noprims.imp"; #line 2612 "pass1v84-noprims.imp" sw5_C_162:; _imp_current_line = 2612; _imp_current_file = "pass1v84-noprims.imp"; #line 2612 "pass1v84-noprims.imp" LIT = OCOUNT; _imp_current_line = 2612; _imp_current_file = "pass1v84-noprims.imp"; #line 2612 "pass1v84-noprims.imp" goto U_1020; // 2613 c(143):pop lit; !orb _imp_current_line = 2613; _imp_current_file = "pass1v84-noprims.imp"; #line 2613 "pass1v84-noprims.imp" sw5_C_143:; _imp_current_line = 2613; _imp_current_file = "pass1v84-noprims.imp"; #line 2613 "pass1v84-noprims.imp" POPLIT(); // 2614 ins: fault(10) %AND lit = 0 %IF lit < 0 _imp_current_line = 2614; _imp_current_file = "pass1v84-noprims.imp"; #line 2614 "pass1v84-noprims.imp" U_1020:; _imp_current_line = 2614; _imp_current_file = "pass1v84-noprims.imp"; #line 2614 "pass1v84-noprims.imp" if (((LIT) >= (0))) goto L_0238; #line 2614 "pass1v84-noprims.imp" FAULT(10); #line 2614 "pass1v84-noprims.imp" LIT = 0; #line 2614 "pass1v84-noprims.imp" L_0238:; // 2615 get next _imp_current_line = 2615; _imp_current_file = "pass1v84-noprims.imp"; #line 2615 "pass1v84-noprims.imp" GETNEXT(); // 2616 ->inst _imp_current_line = 2616; _imp_current_file = "pass1v84-noprims.imp"; #line 2616 "pass1v84-noprims.imp" goto U_1021; // 2617 c(139): !osep (x=19) _imp_current_line = 2617; _imp_current_file = "pass1v84-noprims.imp"; #line 2617 "pass1v84-noprims.imp" sw5_C_139:; // 2618 c(153):lit = 1 _imp_current_line = 2618; _imp_current_file = "pass1v84-noprims.imp"; #line 2618 "pass1v84-noprims.imp" sw5_C_153:; _imp_current_line = 2618; _imp_current_file = "pass1v84-noprims.imp"; #line 2618 "pass1v84-noprims.imp" LIT = 1; // 2619 inst: pop def %IF pending # 0; !ownt (x=0) _imp_current_line = 2619; _imp_current_file = "pass1v84-noprims.imp"; #line 2619 "pass1v84-noprims.imp" U_1021:; _imp_current_line = 2619; _imp_current_file = "pass1v84-noprims.imp"; #line 2619 "pass1v84-noprims.imp" if (((PENDING) == (0))) goto L_0239; #line 2619 "pass1v84-noprims.imp" POPDEF(); #line 2619 "pass1v84-noprims.imp" L_0239:; // 2620 op('A', lit) _imp_current_line = 2620; _imp_current_file = "pass1v84-noprims.imp"; #line 2620 "pass1v84-noprims.imp" OP(65, LIT); // 2621 ocount = ocount-lit _imp_current_line = 2621; _imp_current_file = "pass1v84-noprims.imp"; #line 2621 "pass1v84-noprims.imp" OCOUNT = (((int)(OCOUNT)) - (LIT)); // 2622 %IF ocount >= 0 %START _imp_current_line = 2622; _imp_current_file = "pass1v84-noprims.imp"; #line 2622 "pass1v84-noprims.imp" if (((OCOUNT) < (0))) goto L_023a; // 2623 ->top %IF x # 0; !more coming _imp_current_line = 2623; _imp_current_file = "pass1v84-noprims.imp"; #line 2623 "pass1v84-noprims.imp" if (((X) == (0))) goto L_023b; #line 2623 "pass1v84-noprims.imp" goto U_101b; #line 2623 "pass1v84-noprims.imp" L_023b:; // 2624 ocount = -1 %AND %RETURN %IF ocount = 0; !all done _imp_current_line = 2624; _imp_current_file = "pass1v84-noprims.imp"; #line 2624 "pass1v84-noprims.imp" if (((OCOUNT) != (0))) goto L_023c; #line 2624 "pass1v84-noprims.imp" OCOUNT = (-1); #line 2624 "pass1v84-noprims.imp" return; #line 2624 "pass1v84-noprims.imp" L_023c:; // 2625 %FINISH _imp_current_line = 2625; _imp_current_file = "pass1v84-noprims.imp"; #line 2625 "pass1v84-noprims.imp" L_023a:; // 2626 fault(11); %RETURN _imp_current_line = 2626; _imp_current_file = "pass1v84-noprims.imp"; #line 2626 "pass1v84-noprims.imp" FAULT(11); _imp_current_line = 2626; _imp_current_file = "pass1v84-noprims.imp"; #line 2626 "pass1v84-noprims.imp" return; // 2627 // 2628 c(swit):op('W', tag(x)_index); inhibit = 1; ->atop _imp_current_line = 2628; _imp_current_file = "pass1v84-noprims.imp"; #line 2628 "pass1v84-noprims.imp" sw5_C_105:; _imp_current_line = 2628; _imp_current_file = "pass1v84-noprims.imp"; #line 2628 "pass1v84-noprims.imp" OP(87, TAG[X].INDEX); _imp_current_line = 2628; _imp_current_file = "pass1v84-noprims.imp"; #line 2628 "pass1v84-noprims.imp" INHIBIT = 1; _imp_current_line = 2628; _imp_current_file = "pass1v84-noprims.imp"; #line 2628 "pass1v84-noprims.imp" goto U_101c; // 2629 c(134):def(x); !swid _imp_current_line = 2629; _imp_current_file = "pass1v84-noprims.imp"; #line 2629 "pass1v84-noprims.imp" sw5_C_134:; _imp_current_line = 2629; _imp_current_file = "pass1v84-noprims.imp"; #line 2629 "pass1v84-noprims.imp" DEF(X); // 2630 n = ub-lb+1 _imp_current_line = 2630; _imp_current_file = "pass1v84-noprims.imp"; #line 2630 "pass1v84-noprims.imp" N = (((int)((((int)(UB)) - (LB)))) + (1)); // 2631 n = (n+15)>>4; !slots needed (includes zero) _imp_current_line = 2631; _imp_current_file = "pass1v84-noprims.imp"; #line 2631 "pass1v84-noprims.imp" N = (((((((int)(N)) + (15)))) >> (4))); // 2632 j = dmax; dmax = dmax+n+2 _imp_current_line = 2632; _imp_current_file = "pass1v84-noprims.imp"; #line 2632 "pass1v84-noprims.imp" J = DMAX; _imp_current_line = 2632; _imp_current_file = "pass1v84-noprims.imp"; #line 2632 "pass1v84-noprims.imp" DMAX = (((int)((((int)(DMAX)) + (N)))) + (2)); // 2633 abandon(1) %IF dmax >= dmin _imp_current_line = 2633; _imp_current_file = "pass1v84-noprims.imp"; #line 2633 "pass1v84-noprims.imp" if (((DMAX) < (DMIN))) goto L_023d; #line 2633 "pass1v84-noprims.imp" ABANDON(1); #line 2633 "pass1v84-noprims.imp" L_023d:; // 2634 tag(x)_format = j _imp_current_line = 2634; _imp_current_file = "pass1v84-noprims.imp"; #line 2634 "pass1v84-noprims.imp" TAG[X].FORMAT = J; // 2635 dict(j) = lb; dict(j+1) = ub _imp_current_line = 2635; _imp_current_file = "pass1v84-noprims.imp"; #line 2635 "pass1v84-noprims.imp" DICT[(((int)(J)) - (1))] = LB; _imp_current_line = 2635; _imp_current_file = "pass1v84-noprims.imp"; #line 2635 "pass1v84-noprims.imp" DICT[(((int)((((int)(J)) + (1)))) - (1))] = UB; // 2636 %CYCLE _imp_current_line = 2636; _imp_current_file = "pass1v84-noprims.imp"; #line 2636 "pass1v84-noprims.imp" L_023e:; // 2637 n = n-1 _imp_current_line = 2637; _imp_current_file = "pass1v84-noprims.imp"; #line 2637 "pass1v84-noprims.imp" N = (((int)(N)) - (1)); // 2638 ->top %IF n < 0 _imp_current_line = 2638; _imp_current_file = "pass1v84-noprims.imp"; #line 2638 "pass1v84-noprims.imp" if (((N) >= (0))) goto L_0241; #line 2638 "pass1v84-noprims.imp" goto U_101b; #line 2638 "pass1v84-noprims.imp" L_0241:; // 2639 j = j+1; dict(j+1) = 0 _imp_current_line = 2639; _imp_current_file = "pass1v84-noprims.imp"; #line 2639 "pass1v84-noprims.imp" J = (((int)(J)) + (1)); _imp_current_line = 2639; _imp_current_file = "pass1v84-noprims.imp"; #line 2639 "pass1v84-noprims.imp" DICT[(((int)((((int)(J)) + (1)))) - (1))] = 0; // 2640 %REPEAT _imp_current_line = 2640; _imp_current_file = "pass1v84-noprims.imp"; #line 2640 "pass1v84-noprims.imp" goto L_023e; // 2641 c(151):stats = stats-1; !slab _imp_current_line = 2641; _imp_current_file = "pass1v84-noprims.imp"; #line 2641 "pass1v84-noprims.imp" sw5_C_151:; _imp_current_line = 2641; _imp_current_file = "pass1v84-noprims.imp"; #line 2641 "pass1v84-noprims.imp" STATS = (((int)(STATS)) - (1)); // 2642 fault(7) %AND %RETURN %IF x < tbase _imp_current_line = 2642; _imp_current_file = "pass1v84-noprims.imp"; #line 2642 "pass1v84-noprims.imp" if (((X) >= (TBASE))) goto L_023f; #line 2642 "pass1v84-noprims.imp" FAULT(7); #line 2642 "pass1v84-noprims.imp" return; #line 2642 "pass1v84-noprims.imp" L_023f:; // 2643 %IF pending # 0 %START; !explicit label _imp_current_line = 2643; _imp_current_file = "pass1v84-noprims.imp"; #line 2643 "pass1v84-noprims.imp" if (((PENDING) == (0))) goto L_0242; // 2644 def s lab(pstack(1)) _imp_current_line = 2644; _imp_current_file = "pass1v84-noprims.imp"; #line 2644 "pass1v84-noprims.imp" DEFSLAB((PSTACK-1)[1]); // 2645 %FINISH %ELSE %START _imp_current_line = 2645; _imp_current_file = "pass1v84-noprims.imp"; #line 2645 "pass1v84-noprims.imp" goto L_0243; #line 2645 "pass1v84-noprims.imp" L_0242:; // 2646 fault(4) %AND %RETURN %IF tag(x)_app # 0 _imp_current_line = 2646; _imp_current_file = "pass1v84-noprims.imp"; #line 2646 "pass1v84-noprims.imp" if (((TAG[X].APP) == (0))) goto L_0244; #line 2646 "pass1v84-noprims.imp" FAULT(4); #line 2646 "pass1v84-noprims.imp" return; #line 2646 "pass1v84-noprims.imp" L_0244:; // 2647 tag(x)_app = 1 _imp_current_line = 2647; _imp_current_file = "pass1v84-noprims.imp"; #line 2647 "pass1v84-noprims.imp" TAG[X].APP = 1; // 2648 n = tag(x)_format _imp_current_line = 2648; _imp_current_file = "pass1v84-noprims.imp"; #line 2648 "pass1v84-noprims.imp" N = TAG[X].FORMAT; // 2649 %FOR j = dict(n), 1, dict(n+1) %CYCLE _imp_current_line = 2649; _imp_current_file = "pass1v84-noprims.imp"; #line 2649 "pass1v84-noprims.imp" {static int _initial, _increment, _final, _control; _initial = DICT[(((int)(N)) - (1))]; _increment = 1; _final = DICT[(((int)((((int)(N)) + (1)))) - (1))]; J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = DICT[(((int)(N)) - (1))], 1, DICT[(((int)((((int)(N)) + (1)))) - (1))]"); J -= _increment; _control -= _increment; L_0245:; if (J == _final) goto L_0246; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 2650 def s lab(j) _imp_current_line = 2650; _imp_current_file = "pass1v84-noprims.imp"; #line 2650 "pass1v84-noprims.imp" DEFSLAB(J); // 2651 flush buffer %IF bp >= 128 _imp_current_line = 2651; _imp_current_file = "pass1v84-noprims.imp"; #line 2651 "pass1v84-noprims.imp" if (((BP) < (128))) goto L_0248; #line 2651 "pass1v84-noprims.imp" FLUSHBUFFER(); #line 2651 "pass1v84-noprims.imp" L_0248:; // 2652 %REPEAT _imp_current_line = 2652; _imp_current_file = "pass1v84-noprims.imp"; #line 2652 "pass1v84-noprims.imp" goto L_0245; #line 2652 "pass1v84-noprims.imp" L_0246:; // 2653 %FINISH _imp_current_line = 2653; _imp_current_file = "pass1v84-noprims.imp"; #line 2653 "pass1v84-noprims.imp" L_0243:; // 2654 inhibit = 1 _imp_current_line = 2654; _imp_current_file = "pass1v84-noprims.imp"; #line 2654 "pass1v84-noprims.imp" INHIBIT = 1; // 2655 %RETURN _imp_current_line = 2655; _imp_current_file = "pass1v84-noprims.imp"; #line 2655 "pass1v84-noprims.imp" return; // 2656 // 2657 c(140):bp=bp+1 %AND buff(bp)='p'; ->top; !psep _imp_current_line = 2657; _imp_current_file = "pass1v84-noprims.imp"; #line 2657 "pass1v84-noprims.imp" sw5_C_140:; _imp_current_line = 2657; _imp_current_file = "pass1v84-noprims.imp"; #line 2657 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2657 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 112; _imp_current_line = 2657; _imp_current_file = "pass1v84-noprims.imp"; #line 2657 "pass1v84-noprims.imp" goto U_101b; // 2658 c(144):buff(bp+1)='p'; buff(bp+2)='E'; bp=bp+2; ->top; !prb _imp_current_line = 2658; _imp_current_file = "pass1v84-noprims.imp"; #line 2658 "pass1v84-noprims.imp" sw5_C_144:; _imp_current_line = 2658; _imp_current_file = "pass1v84-noprims.imp"; #line 2658 "pass1v84-noprims.imp" BUFF[(((int)((((int)(BP)) + (1)))) - (1))] = 112; _imp_current_line = 2658; _imp_current_file = "pass1v84-noprims.imp"; #line 2658 "pass1v84-noprims.imp" BUFF[(((int)((((int)(BP)) + (2)))) - (1))] = 69; _imp_current_line = 2658; _imp_current_file = "pass1v84-noprims.imp"; #line 2658 "pass1v84-noprims.imp" BP = (((int)(BP)) + (2)); _imp_current_line = 2658; _imp_current_file = "pass1v84-noprims.imp"; #line 2658 "pass1v84-noprims.imp" goto U_101b; // 2659 // 2660 !constant expressions // 2661 // 2662 c(155): !pconst _imp_current_line = 2662; _imp_current_file = "pass1v84-noprims.imp"; #line 2662 "pass1v84-noprims.imp" sw5_C_155:; // 2663 %IF x < 0 %THEN lit = tag(-x)_format %c _imp_current_line = 2663; _imp_current_file = "pass1v84-noprims.imp"; #line 2663 "pass1v84-noprims.imp" if (((X) >= (0))) goto L_0249; #line 2663 "pass1v84-noprims.imp" LIT = TAG[(-(X))].FORMAT; #line 2663 "pass1v84-noprims.imp" goto L_024a; #line 2663 "pass1v84-noprims.imp" L_0249:; #line 2663 "pass1v84-noprims.imp" LIT = LITPOOL[X]; #line 2663 "pass1v84-noprims.imp" L_024a:; // 2664 %ELSE lit = lit pool(x) // 2665 pending = pending+1; pstack(pending) = lit; ->top _imp_current_line = 2665; _imp_current_file = "pass1v84-noprims.imp"; #line 2665 "pass1v84-noprims.imp" PENDING = (((int)(PENDING)) + (1)); _imp_current_line = 2665; _imp_current_file = "pass1v84-noprims.imp"; #line 2665 "pass1v84-noprims.imp" (PSTACK-1)[PENDING] = LIT; _imp_current_line = 2665; _imp_current_file = "pass1v84-noprims.imp"; #line 2665 "pass1v84-noprims.imp" goto U_101b; // 2666 c(156):lit = pstack(pending); lit = -lit %IF lit < 0 _imp_current_line = 2666; _imp_current_file = "pass1v84-noprims.imp"; #line 2666 "pass1v84-noprims.imp" sw5_C_156:; _imp_current_line = 2666; _imp_current_file = "pass1v84-noprims.imp"; #line 2666 "pass1v84-noprims.imp" LIT = (PSTACK-1)[PENDING]; _imp_current_line = 2666; _imp_current_file = "pass1v84-noprims.imp"; #line 2666 "pass1v84-noprims.imp" if (((LIT) >= (0))) goto L_024b; #line 2666 "pass1v84-noprims.imp" LIT = (-(LIT)); #line 2666 "pass1v84-noprims.imp" L_024b:; // 2667 pstack(pending) = lit; ->top; !cmod _imp_current_line = 2667; _imp_current_file = "pass1v84-noprims.imp"; #line 2667 "pass1v84-noprims.imp" (PSTACK-1)[PENDING] = LIT; _imp_current_line = 2667; _imp_current_file = "pass1v84-noprims.imp"; #line 2667 "pass1v84-noprims.imp" goto U_101b; // 2668 c(157):lit = -pstack(pending); pstack(pending) = lit; ->top; !csign _imp_current_line = 2668; _imp_current_file = "pass1v84-noprims.imp"; #line 2668 "pass1v84-noprims.imp" sw5_C_157:; _imp_current_line = 2668; _imp_current_file = "pass1v84-noprims.imp"; #line 2668 "pass1v84-noprims.imp" LIT = (-((PSTACK-1)[PENDING])); _imp_current_line = 2668; _imp_current_file = "pass1v84-noprims.imp"; #line 2668 "pass1v84-noprims.imp" (PSTACK-1)[PENDING] = LIT; _imp_current_line = 2668; _imp_current_file = "pass1v84-noprims.imp"; #line 2668 "pass1v84-noprims.imp" goto U_101b; // 2669 c(158):lit = \pstack(pending); pstack(pending) = lit; ->top; !cuop _imp_current_line = 2669; _imp_current_file = "pass1v84-noprims.imp"; #line 2669 "pass1v84-noprims.imp" sw5_C_158:; _imp_current_line = 2669; _imp_current_file = "pass1v84-noprims.imp"; #line 2669 "pass1v84-noprims.imp" LIT = (~((PSTACK-1)[PENDING])); _imp_current_line = 2669; _imp_current_file = "pass1v84-noprims.imp"; #line 2669 "pass1v84-noprims.imp" (PSTACK-1)[PENDING] = LIT; _imp_current_line = 2669; _imp_current_file = "pass1v84-noprims.imp"; #line 2669 "pass1v84-noprims.imp" goto U_101b; // 2670 c(159): !cop1 _imp_current_line = 2670; _imp_current_file = "pass1v84-noprims.imp"; #line 2670 "pass1v84-noprims.imp" sw5_C_159:; // 2671 c(160): !cop2 _imp_current_line = 2671; _imp_current_file = "pass1v84-noprims.imp"; #line 2671 "pass1v84-noprims.imp" sw5_C_160:; // 2672 c(161):pending = pending-1; !cop3 _imp_current_line = 2672; _imp_current_file = "pass1v84-noprims.imp"; #line 2672 "pass1v84-noprims.imp" sw5_C_161:; _imp_current_line = 2672; _imp_current_file = "pass1v84-noprims.imp"; #line 2672 "pass1v84-noprims.imp" PENDING = (((int)(PENDING)) - (1)); // 2673 lit2 = pstack(pending+1); lit = pstack(pending) _imp_current_line = 2673; _imp_current_file = "pass1v84-noprims.imp"; #line 2673 "pass1v84-noprims.imp" LIT2 = (PSTACK-1)[(((int)(PENDING)) + (1))]; _imp_current_line = 2673; _imp_current_file = "pass1v84-noprims.imp"; #line 2673 "pass1v84-noprims.imp" LIT = (PSTACK-1)[PENDING]; // 2674 ->litop(x>>2) _imp_current_line = 2674; _imp_current_file = "pass1v84-noprims.imp"; #line 2674 "pass1v84-noprims.imp" sw6_LITOP_idx = (int)((((unsigned int)(X)) >> (2))); if ((1 <= sw6_LITOP_idx) && (sw6_LITOP_idx <= 12)) goto *(sw6_LITOP-1)[sw6_LITOP_idx]; /* Bounds=1:12 */ else { /*_imp_signal(8, 2, sw6_LITOP_idx);*/ fprintf(stderr, "%%SWITCH index LITOP(%d) not in range 1:12 at %s:%d\n", sw6_LITOP_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 2675 litop(10):lit = lit*lit2; ->setl _imp_current_line = 2675; _imp_current_file = "pass1v84-noprims.imp"; #line 2675 "pass1v84-noprims.imp" sw6_LITOP_10:; _imp_current_line = 2675; _imp_current_file = "pass1v84-noprims.imp"; #line 2675 "pass1v84-noprims.imp" LIT = (((int)(LIT)) * (LIT2)); _imp_current_line = 2675; _imp_current_file = "pass1v84-noprims.imp"; #line 2675 "pass1v84-noprims.imp" goto U_1022; // 2676 litop(12): _imp_current_line = 2676; _imp_current_file = "pass1v84-noprims.imp"; #line 2676 "pass1v84-noprims.imp" sw6_LITOP_12:; // 2677 litop(3):n = 1; !lit = lit\\lit2 _imp_current_line = 2677; _imp_current_file = "pass1v84-noprims.imp"; #line 2677 "pass1v84-noprims.imp" sw6_LITOP_3:; _imp_current_line = 2677; _imp_current_file = "pass1v84-noprims.imp"; #line 2677 "pass1v84-noprims.imp" N = 1; // 2678 fault(10) %IF lit2 < 0 _imp_current_line = 2678; _imp_current_file = "pass1v84-noprims.imp"; #line 2678 "pass1v84-noprims.imp" if (((LIT2) >= (0))) goto L_024c; #line 2678 "pass1v84-noprims.imp" FAULT(10); #line 2678 "pass1v84-noprims.imp" L_024c:; // 2679 %WHILE lit2 > 0 %CYCLE _imp_current_line = 2679; _imp_current_file = "pass1v84-noprims.imp"; #line 2679 "pass1v84-noprims.imp" L_024d:; #line 2679 "pass1v84-noprims.imp" if (((LIT2) <= (0))) goto L_024e; // 2680 lit2 = lit2-1 _imp_current_line = 2680; _imp_current_file = "pass1v84-noprims.imp"; #line 2680 "pass1v84-noprims.imp" LIT2 = (((int)(LIT2)) - (1)); // 2681 n = n*lit _imp_current_line = 2681; _imp_current_file = "pass1v84-noprims.imp"; #line 2681 "pass1v84-noprims.imp" N = (((int)(N)) * (LIT)); // 2682 %REPEAT _imp_current_line = 2682; _imp_current_file = "pass1v84-noprims.imp"; #line 2682 "pass1v84-noprims.imp" goto L_024d; #line 2682 "pass1v84-noprims.imp" L_024e:; // 2683 lit = n; ->setl _imp_current_line = 2683; _imp_current_file = "pass1v84-noprims.imp"; #line 2683 "pass1v84-noprims.imp" LIT = N; _imp_current_line = 2683; _imp_current_file = "pass1v84-noprims.imp"; #line 2683 "pass1v84-noprims.imp" goto U_1022; // 2684 litop(1):lit = lit<setl _imp_current_line = 2684; _imp_current_file = "pass1v84-noprims.imp"; #line 2684 "pass1v84-noprims.imp" sw6_LITOP_1:; _imp_current_line = 2684; _imp_current_file = "pass1v84-noprims.imp"; #line 2684 "pass1v84-noprims.imp" LIT = ((LIT) << (LIT2)); _imp_current_line = 2684; _imp_current_file = "pass1v84-noprims.imp"; #line 2684 "pass1v84-noprims.imp" goto U_1022; // 2685 litop(2):lit = lit>>lit2; ->setl _imp_current_line = 2685; _imp_current_file = "pass1v84-noprims.imp"; #line 2685 "pass1v84-noprims.imp" sw6_LITOP_2:; _imp_current_line = 2685; _imp_current_file = "pass1v84-noprims.imp"; #line 2685 "pass1v84-noprims.imp" LIT = (int)((((unsigned int)(LIT)) >> (LIT2))); _imp_current_line = 2685; _imp_current_file = "pass1v84-noprims.imp"; #line 2685 "pass1v84-noprims.imp" goto U_1022; // 2686 litop(5):lit = lit&lit2; ->setl _imp_current_line = 2686; _imp_current_file = "pass1v84-noprims.imp"; #line 2686 "pass1v84-noprims.imp" sw6_LITOP_5:; _imp_current_line = 2686; _imp_current_file = "pass1v84-noprims.imp"; #line 2686 "pass1v84-noprims.imp" LIT = ((LIT) & (LIT2)); _imp_current_line = 2686; _imp_current_file = "pass1v84-noprims.imp"; #line 2686 "pass1v84-noprims.imp" goto U_1022; // 2687 litop(11): _imp_current_line = 2687; _imp_current_file = "pass1v84-noprims.imp"; #line 2687 "pass1v84-noprims.imp" sw6_LITOP_11:; // 2688 litop(4):%IF lit2 = 0 %THEN fault(10) %ELSE lit = lit//lit2 _imp_current_line = 2688; _imp_current_file = "pass1v84-noprims.imp"; #line 2688 "pass1v84-noprims.imp" sw6_LITOP_4:; _imp_current_line = 2688; _imp_current_file = "pass1v84-noprims.imp"; #line 2688 "pass1v84-noprims.imp" if (((LIT2) != (0))) goto L_0250; #line 2688 "pass1v84-noprims.imp" FAULT(10); #line 2688 "pass1v84-noprims.imp" goto L_0251; #line 2688 "pass1v84-noprims.imp" L_0250:; #line 2688 "pass1v84-noprims.imp" LIT = (((int)(LIT)) / ((int)(_Z(LIT2)))); #line 2688 "pass1v84-noprims.imp" L_0251:; // 2689 ->setl _imp_current_line = 2689; _imp_current_file = "pass1v84-noprims.imp"; #line 2689 "pass1v84-noprims.imp" goto U_1022; // 2690 litop(8):lit = lit+lit2; ->setl _imp_current_line = 2690; _imp_current_file = "pass1v84-noprims.imp"; #line 2690 "pass1v84-noprims.imp" sw6_LITOP_8:; _imp_current_line = 2690; _imp_current_file = "pass1v84-noprims.imp"; #line 2690 "pass1v84-noprims.imp" LIT = (((int)(LIT)) + (LIT2)); _imp_current_line = 2690; _imp_current_file = "pass1v84-noprims.imp"; #line 2690 "pass1v84-noprims.imp" goto U_1022; // 2691 litop(9):lit = lit-lit2; ->setl _imp_current_line = 2691; _imp_current_file = "pass1v84-noprims.imp"; #line 2691 "pass1v84-noprims.imp" sw6_LITOP_9:; _imp_current_line = 2691; _imp_current_file = "pass1v84-noprims.imp"; #line 2691 "pass1v84-noprims.imp" LIT = (((int)(LIT)) - (LIT2)); _imp_current_line = 2691; _imp_current_file = "pass1v84-noprims.imp"; #line 2691 "pass1v84-noprims.imp" goto U_1022; // 2692 litop(6):lit = lit!lit2; ->setl _imp_current_line = 2692; _imp_current_file = "pass1v84-noprims.imp"; #line 2692 "pass1v84-noprims.imp" sw6_LITOP_6:; _imp_current_line = 2692; _imp_current_file = "pass1v84-noprims.imp"; #line 2692 "pass1v84-noprims.imp" LIT = ((LIT) | (LIT2)); _imp_current_line = 2692; _imp_current_file = "pass1v84-noprims.imp"; #line 2692 "pass1v84-noprims.imp" goto U_1022; // 2693 litop(7):lit = lit!!lit2 _imp_current_line = 2693; _imp_current_file = "pass1v84-noprims.imp"; #line 2693 "pass1v84-noprims.imp" sw6_LITOP_7:; _imp_current_line = 2693; _imp_current_file = "pass1v84-noprims.imp"; #line 2693 "pass1v84-noprims.imp" LIT = ((LIT) ^ (LIT2)); // 2694 // 2695 setl: pstack(pending) = lit; ->top _imp_current_line = 2695; _imp_current_file = "pass1v84-noprims.imp"; #line 2695 "pass1v84-noprims.imp" U_1022:; _imp_current_line = 2695; _imp_current_file = "pass1v84-noprims.imp"; #line 2695 "pass1v84-noprims.imp" (PSTACK-1)[PENDING] = LIT; _imp_current_line = 2695; _imp_current_file = "pass1v84-noprims.imp"; #line 2695 "pass1v84-noprims.imp" goto U_101b; // 2696 // 2697 c(170):Fault(4) %if IMPCOM_Option # "" _imp_current_line = 2697; _imp_current_file = "pass1v84-noprims.imp"; #line 2697 "pass1v84-noprims.imp" sw5_C_170:; _imp_current_line = 2697; _imp_current_file = "pass1v84-noprims.imp"; #line 2697 "pass1v84-noprims.imp" if ((_imp_strcmp(IMPCOM.OPTION, _imp_str_literal("")) == 0)) goto L_0252; #line 2697 "pass1v84-noprims.imp" FAULT(4); #line 2697 "pass1v84-noprims.imp" L_0252:; // 2698 IMPCOM_Option = String(x-x'4000'+Stbase); !Option string _imp_current_line = 2698; _imp_current_file = "pass1v84-noprims.imp"; #line 2698 "pass1v84-noprims.imp" IMPCOM.OPTION = *_imp_STRING((((int)((((int)(X)) - (16384)))) + (STBASE))); // 2699 ->Top _imp_current_line = 2699; _imp_current_file = "pass1v84-noprims.imp"; #line 2699 "pass1v84-noprims.imp" goto U_101b; // 2700 // 2701 !string resolution // 2702 // 2703 c(135):resln = 2; ->top; !dotl _imp_current_line = 2703; _imp_current_file = "pass1v84-noprims.imp"; #line 2703 "pass1v84-noprims.imp" sw5_C_135:; _imp_current_line = 2703; _imp_current_file = "pass1v84-noprims.imp"; #line 2703 "pass1v84-noprims.imp" RESLN = 2; _imp_current_line = 2703; _imp_current_file = "pass1v84-noprims.imp"; #line 2703 "pass1v84-noprims.imp" goto U_101b; // 2704 c(136):resln = resln+1; ->top; !dotr _imp_current_line = 2704; _imp_current_file = "pass1v84-noprims.imp"; #line 2704 "pass1v84-noprims.imp" sw5_C_136:; _imp_current_line = 2704; _imp_current_file = "pass1v84-noprims.imp"; #line 2704 "pass1v84-noprims.imp" RESLN = (((int)(RESLN)) + (1)); _imp_current_line = 2704; _imp_current_file = "pass1v84-noprims.imp"; #line 2704 "pass1v84-noprims.imp" goto U_101b; // 2705 c(55): op('r', resln); resln = 0; ->top; !resop _imp_current_line = 2705; _imp_current_file = "pass1v84-noprims.imp"; #line 2705 "pass1v84-noprims.imp" sw5_C_55:; _imp_current_line = 2705; _imp_current_file = "pass1v84-noprims.imp"; #line 2705 "pass1v84-noprims.imp" OP(114, RESLN); _imp_current_line = 2705; _imp_current_file = "pass1v84-noprims.imp"; #line 2705 "pass1v84-noprims.imp" RESLN = 0; _imp_current_line = 2705; _imp_current_file = "pass1v84-noprims.imp"; #line 2705 "pass1v84-noprims.imp" goto U_101b; // 2706 c(164):op('r', resln+4); resln = 0; !cresop _imp_current_line = 2706; _imp_current_file = "pass1v84-noprims.imp"; #line 2706 "pass1v84-noprims.imp" sw5_C_164:; _imp_current_line = 2706; _imp_current_file = "pass1v84-noprims.imp"; #line 2706 "pass1v84-noprims.imp" OP(114, (((int)(RESLN)) + (4))); _imp_current_line = 2706; _imp_current_file = "pass1v84-noprims.imp"; #line 2706 "pass1v84-noprims.imp" RESLN = 0; // 2707 c(122):x = 6; ->cop; !%PRED _imp_current_line = 2707; _imp_current_file = "pass1v84-noprims.imp"; #line 2707 "pass1v84-noprims.imp" sw5_C_122:; _imp_current_line = 2707; _imp_current_file = "pass1v84-noprims.imp"; #line 2707 "pass1v84-noprims.imp" X = 6; _imp_current_line = 2707; _imp_current_file = "pass1v84-noprims.imp"; #line 2707 "pass1v84-noprims.imp" goto U_101e; // 2708 c(87): set const(pstack(1)); !mass _imp_current_line = 2708; _imp_current_file = "pass1v84-noprims.imp"; #line 2708 "pass1v84-noprims.imp" sw5_C_87:; _imp_current_line = 2708; _imp_current_file = "pass1v84-noprims.imp"; #line 2708 "pass1v84-noprims.imp" SETCONST((PSTACK-1)[1]); // 2709 bp=bp+1 %AND buff(bp)='P'; ->top _imp_current_line = 2709; _imp_current_file = "pass1v84-noprims.imp"; #line 2709 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2709 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 80; _imp_current_line = 2709; _imp_current_file = "pass1v84-noprims.imp"; #line 2709 "pass1v84-noprims.imp" goto U_101b; // 2710 %END _imp_current_line = 2710; _imp_current_file = "pass1v84-noprims.imp"; #line 2710 "pass1v84-noprims.imp" return; sw5_C_1:; sw5_C_2:; sw5_C_3:; sw5_C_4:; sw5_C_5:; sw5_C_6:; sw5_C_7:; sw5_C_8:; sw5_C_9:; sw5_C_10:; sw5_C_11:; sw5_C_12:; sw5_C_13:; sw5_C_14:; sw5_C_15:; sw5_C_16:; sw5_C_17:; sw5_C_18:; sw5_C_19:; sw5_C_20:; sw5_C_21:; sw5_C_22:; sw5_C_23:; sw5_C_24:; sw5_C_25:; sw5_C_26:; sw5_C_40:; sw5_C_54:; sw5_C_61:; sw5_C_66:; sw5_C_73:; sw5_C_94:; sw5_C_95:; sw5_C_110:; sw5_C_111:; sw5_C_112:; sw5_C_113:; sw5_C_114:; sw5_C_115:; sw5_C_116:; sw5_C_117:; sw5_C_118:; sw5_C_119:; sw5_C_123:; sw5_C_129:; sw5_C_150:; sw5_C_169:; sw5_C_176:; sw5_C_177:; sw5_C_178:; sw5_C_179:; sw5_C_180:; /*_imp_signal(6,3,sw5_C_idx,"SWITCH LABEL NOT SET - sw5_C");*/ fprintf(stderr, "%%SWITCH LABEL NOT SET - sw5_C(%d): at line %s:%d", sw5_C_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); _imp_endofblock: ; } // End of block COMPILE at level 3 // 2711 // 2712 %END; !of compile block _imp_current_line = 2712; _imp_current_file = "pass1v84-noprims.imp"; #line 2712 "pass1v84-noprims.imp" return; _imp_endofblock: ; } // End of block COMPILEBLOCK at level 2 // 2713 // 2714 %ON 9 %START _imp_current_line = 2714; _imp_current_file = "pass1v84-noprims.imp"; #line 2714 "pass1v84-noprims.imp" if (!_imp_on_event(9)) goto L_0253; // 2715 abandon(5) _imp_current_line = 2715; _imp_current_file = "pass1v84-noprims.imp"; #line 2715 "pass1v84-noprims.imp" ABANDON(5); // 2716 %FINISH _imp_current_line = 2716; _imp_current_file = "pass1v84-noprims.imp"; #line 2716 "pass1v84-noprims.imp" L_0253:; // 2717 // 2718 impcom_flags = 0 _imp_current_line = 2718; _imp_current_file = "pass1v84-noprims.imp"; #line 2718 "pass1v84-noprims.imp" IMPCOM.FLAGS = 0; // 2719 impcom_option = "" _imp_current_line = 2719; _imp_current_file = "pass1v84-noprims.imp"; #line 2719 "pass1v84-noprims.imp" IMPCOM.OPTION = _imp_str_literal(""); // 2720 // 2721 list = 15 %IF Impcom_Flags&x'1000' # 0 _imp_current_line = 2721; _imp_current_file = "pass1v84-noprims.imp"; #line 2721 "pass1v84-noprims.imp" if (((((IMPCOM.FLAGS) & (4096))) == (0))) goto L_0254; #line 2721 "pass1v84-noprims.imp" LIST = 15; #line 2721 "pass1v84-noprims.imp" L_0254:; // 2722 // 2723 open output(2, "LISTING"); _imp_current_line = 2723; _imp_current_file = "pass1v84-noprims.imp"; #line 2723 "pass1v84-noprims.imp" OPENOUTPUT(2, _imp_str_literal("LISTING")); // 2724 open input(2, "prims-null.inc"); _imp_current_line = 2724; _imp_current_file = "pass1v84-noprims.imp"; #line 2724 "pass1v84-noprims.imp" OPENINPUT(2, _imp_str_literal("prims-null.inc")); // 2725 select input(2); selectoutput(listing) _imp_current_line = 2725; _imp_current_file = "pass1v84-noprims.imp"; #line 2725 "pass1v84-noprims.imp" _imp_SELECTINPUT(2); _imp_current_line = 2725; _imp_current_file = "pass1v84-noprims.imp"; #line 2725 "pass1v84-noprims.imp" _imp_SELECTOUTPUT(2); // 2726 tag(max tag) = 0; !%BEGIN defn _imp_current_line = 2726; _imp_current_file = "pass1v84-noprims.imp"; #line 2726 "pass1v84-noprims.imp" TAG[800] = (TAGFM){ 0 } /* Assign 0's to all fields of record */; // 2727 tag(0) = 0; tag(0)_flags = 7; !%BEGIN tag! _imp_current_line = 2727; _imp_current_file = "pass1v84-noprims.imp"; #line 2727 "pass1v84-noprims.imp" TAG[0] = (TAGFM){ 0 } /* Assign 0's to all fields of record */; _imp_current_line = 2727; _imp_current_file = "pass1v84-noprims.imp"; #line 2727 "pass1v84-noprims.imp" TAG[0].FLAGS = 7; // 2728 Hash(x) = 0 %FOR x = 0, 1, max names _imp_current_line = 2728; _imp_current_file = "pass1v84-noprims.imp"; #line 2728 "pass1v84-noprims.imp" X = (-1); if ((((2047)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle X = 0, 1, 2047"); L_0255:; if (X == 2047) goto L_0256; X += 1; #line 2728 "pass1v84-noprims.imp" HASH[X] = 0; #line 2728 "pass1v84-noprims.imp" goto L_0255; #line 2728 "pass1v84-noprims.imp" L_0256:; // 2729 printstring(" Edinburgh IMP77 Compiler - Version ") _imp_current_line = 2729; _imp_current_file = "pass1v84-noprims.imp"; #line 2729 "pass1v84-noprims.imp" _imp_PRINTSTRING(_imp_str_literal(" Edinburgh IMP77 Compiler - Version ")); // 2730 printstring(version); newlines(2) _imp_current_line = 2730; _imp_current_file = "pass1v84-noprims.imp"; #line 2730 "pass1v84-noprims.imp" _imp_PRINTSTRING(VERSION); _imp_current_line = 2730; _imp_current_file = "pass1v84-noprims.imp"; #line 2730 "pass1v84-noprims.imp" _imp_NEWLINES(2); // 2731 op('l', 0) _imp_current_line = 2731; _imp_current_file = "pass1v84-noprims.imp"; #line 2731 "pass1v84-noprims.imp" OP(108, 0); // 2732 compile block(0, 0, max dict, 0, 0) _imp_current_line = 2732; _imp_current_file = "pass1v84-noprims.imp"; #line 2732 "pass1v84-noprims.imp" COMPILEBLOCK(0, 0, 6000, 0, 0); // 2733 bp=bp+1 %AND buff(bp)=nl {for bouncing off} _imp_current_line = 2733; _imp_current_file = "pass1v84-noprims.imp"; #line 2733 "pass1v84-noprims.imp" BP = (((int)(BP)) + (1)); #line 2733 "pass1v84-noprims.imp" BUFF[(((int)(BP)) - (1))] = 10; // 2734 flush buffer _imp_current_line = 2734; _imp_current_file = "pass1v84-noprims.imp"; #line 2734 "pass1v84-noprims.imp" FLUSHBUFFER(); // 2735 Impcom_Statements = stats _imp_current_line = 2735; _imp_current_file = "pass1v84-noprims.imp"; #line 2735 "pass1v84-noprims.imp" IMPCOM.STATEMENTS = STATS; // 2736 Impcom_Statements = -faulty %IF faulty # 0 _imp_current_line = 2736; _imp_current_file = "pass1v84-noprims.imp"; #line 2736 "pass1v84-noprims.imp" if (((FAULTY) == (0))) goto L_0258; #line 2736 "pass1v84-noprims.imp" IMPCOM.STATEMENTS = (-(FAULTY)); #line 2736 "pass1v84-noprims.imp" L_0258:; // 2737 %ENDOFPROGRAM _imp_current_line = 2737; _imp_current_file = "pass1v84-noprims.imp"; #line 2737 "pass1v84-noprims.imp" return 0; _imp_endofblock: ; } // End of block _imp_main at level 1 #line 2737 "pass1v84-noprims.imp" // End of file // COMPILE WITH: gcc12 -DVALGRIND_AVAILABLE -UPARM_OPT -DPARM_UNASS -DPARM_CHECK -O -g -ftrivial-auto-var-init=pattern -fmerge-constants -fno-strict-aliasing -Wall -Wno-unused-but-set-variable -Wno-unused-variable -Wno-unused-label -Wno-unused-function -Wno-maybe-uninitialized -Wno-uninitialized -frecord-gcc-switches -fsanitize=undefined -fsanitize=float-divide-by-zero -fsanitize-undefined-trap-on-error -fsanitize=float-cast-overflow -fno-sanitize-recover=all -fstack-protector -Wno-frame-address -fno-omit-frame-pointer -Wno-return-type -Wno-comment -ftrapv -ggdb3 -gdwarf-4 -I. -I.. -c -o pass1v84-noprims.o pass1v84-noprims.c -lm