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