#include // 1 %BEGIN; !HAL-7502 #line 1 "regression-bugs-tmp/hal7502.imp" int main(int argc, char **argv) { __label__ _imp_endofblock; _imp_initialise(argc, argv); // 2 ! INPUT/OUTPUT STREAMS // 3 %OWNINTEGER MAIN=1, PRE=2; !INPUT _imp_current_line = 3; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 3 "regression-bugs-tmp/hal7502.imp" static int MAIN = 1; #line 3 "regression-bugs-tmp/hal7502.imp" static int PRE = 2; // 4 %OWNINTEGER BIN=1, LIS=2; !OUTPUT _imp_current_line = 4; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 4 "regression-bugs-tmp/hal7502.imp" static int BIN = 1; #line 4 "regression-bugs-tmp/hal7502.imp" static int LIS = 2; // 5 ! OPERAND TYPES // 6 %OWNINTEGER OPMASK=16_F000; !MACHINE INSTRUCTION OR MACRO _imp_current_line = 6; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 6 "regression-bugs-tmp/hal7502.imp" static int OPMASK = 61440; // 7 %OWNINTEGER MACRO=16_A000 _imp_current_line = 7; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 7 "regression-bugs-tmp/hal7502.imp" static int MACRO = 40960; // 8 %OWNINTEGER FMASK=16_0800; !FORWARD REF _imp_current_line = 8; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 8 "regression-bugs-tmp/hal7502.imp" static int FMASK = 2048; // 9 %OWNINTEGER UMASK=16_0200; !UNDEF (FORWARD REF) _imp_current_line = 9; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 9 "regression-bugs-tmp/hal7502.imp" static int UMASK = 512; // 10 %OWNINTEGER REG=16_0080; !REGISTER _imp_current_line = 10; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 10 "regression-bugs-tmp/hal7502.imp" static int REG = 128; // 11 %OWNINTEGER MEMMASK=16_0040; !MEM REF _imp_current_line = 11; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 11 "regression-bugs-tmp/hal7502.imp" static int MEMMASK = 64; // 12 %OWNINTEGER RELMASK=16_0020; !RELOCATABLE _imp_current_line = 12; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 12 "regression-bugs-tmp/hal7502.imp" static int RELMASK = 32; // 13 %OWNINTEGER XMASK=16_0010; !INDEXED _imp_current_line = 13; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 13 "regression-bugs-tmp/hal7502.imp" static int XMASK = 16; // 14 %OWNINTEGER REGXMASK=16_0090; !=REG+XMASK _imp_current_line = 14; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 14 "regression-bugs-tmp/hal7502.imp" static int REGXMASK = 144; // 15 %OWNINTEGER RELUXMASK=16_0230; !=RELMASK+UMASK+XMASK _imp_current_line = 15; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 15 "regression-bugs-tmp/hal7502.imp" static int RELUXMASK = 560; // 16 ! TEXT POINTERS (BYTE ADDRESSES) // 17 %OWNINTEGER CODEPOS; !(NOT ACTUALLY BYTE) _imp_current_line = 17; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 17 "regression-bugs-tmp/hal7502.imp" static int CODEPOS; // 18 %OWNINTEGER STARTPOS; !START OF CURRENT LINE _imp_current_line = 18; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 18 "regression-bugs-tmp/hal7502.imp" static int STARTPOS; // 19 %OWNINTEGER GETPOS; !INPUT POINTER (NEXT) _imp_current_line = 19; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 19 "regression-bugs-tmp/hal7502.imp" static int GETPOS; // 20 %OWNINTEGER PUTPOS _imp_current_line = 20; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 20 "regression-bugs-tmp/hal7502.imp" static int PUTPOS; // 21 %OWNINTEGER PSEUDOLIM _imp_current_line = 21; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 21 "regression-bugs-tmp/hal7502.imp" static int PSEUDOLIM; // 22 %OWNINTEGER PRINTPOS; !START OF PRINT LINE _imp_current_line = 22; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 22 "regression-bugs-tmp/hal7502.imp" static int PRINTPOS; // 23 %OWNINTEGER FAULTPOS _imp_current_line = 23; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 23 "regression-bugs-tmp/hal7502.imp" static int FAULTPOS; // 24 %OWNINTEGER MACLIM; !MACRO DEF LIMIT _imp_current_line = 24; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 24 "regression-bugs-tmp/hal7502.imp" static int MACLIM; // 25 ! OTHER POINTERS (WORD ADDRESSES) // 26 %OWNINTEGER MP; !MACRO-CALL PARAMETERS _imp_current_line = 26; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 26 "regression-bugs-tmp/hal7502.imp" static int MP; // 27 %OWNINTEGER QBASE,QSTART,QLIM,TRANSF; !OPERAND QUEUE _imp_current_line = 27; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 27 "regression-bugs-tmp/hal7502.imp" static int QBASE; #line 27 "regression-bugs-tmp/hal7502.imp" static int QSTART; #line 27 "regression-bugs-tmp/hal7502.imp" static int QLIM; #line 27 "regression-bugs-tmp/hal7502.imp" static int TRANSF; // 28 %OWNINTEGER DEFMIN; !TAG MIN (DOWN - RESET) _imp_current_line = 28; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 28 "regression-bugs-tmp/hal7502.imp" static int DEFMIN; // 29 %OWNINTEGER DEFLIM; !TAG LIM (FIXED) _imp_current_line = 29; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 29 "regression-bugs-tmp/hal7502.imp" static int DEFLIM; // 30 %OWNINTEGER ALMAX; !ASSEMBLER LAB MAX (UP - RESET) _imp_current_line = 30; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 30 "regression-bugs-tmp/hal7502.imp" static int ALMAX; // 31 %OWNINTEGER LABMIN; !USER LAB MIN (DOWN - RESET) _imp_current_line = 31; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 31 "regression-bugs-tmp/hal7502.imp" static int LABMIN; // 32 %OWNINTEGER LABLIM; !USER LAB LIM (FIXED) _imp_current_line = 32; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 32 "regression-bugs-tmp/hal7502.imp" static int LABLIM; // 33 %OWNINTEGER BP; !BLOCK POINTER (UP - DOWN) _imp_current_line = 33; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 33 "regression-bugs-tmp/hal7502.imp" static int BP; // 34 %OWNINTEGER NP; !NEST POINTER (DOWN - UP) _imp_current_line = 34; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 34 "regression-bugs-tmp/hal7502.imp" static int NP; // 35 %OWNINTEGER STORELIM; !(FIXED) _imp_current_line = 35; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 35 "regression-bugs-tmp/hal7502.imp" static int STORELIM; // 36 // 37 %INTEGER SYM; !CURRENT SYMBOL _imp_current_line = 37; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 37 "regression-bugs-tmp/hal7502.imp" int SYM; // 38 %INTEGER TERM; !TAG TERMINATOR _imp_current_line = 38; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 38 "regression-bugs-tmp/hal7502.imp" int TERM; // 39 %INTEGER FSYM; !FAULT FLAG SYMBOL _imp_current_line = 39; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 39 "regression-bugs-tmp/hal7502.imp" int FSYM; // 40 %OWNINTEGER CHARS=0; !PRINT CHAR COUNT _imp_current_line = 40; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 40 "regression-bugs-tmp/hal7502.imp" static int CHARS = 0; // 41 %OWNINTEGER LINES=0; !PRINT LINE COUNT _imp_current_line = 41; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 41 "regression-bugs-tmp/hal7502.imp" static int LINES = 0; // 42 %OWNINTEGER PASS=-1; !CURRENT PASS (-1,0,1) _imp_current_line = 42; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 42 "regression-bugs-tmp/hal7502.imp" static int PASS = (-1); // 43 %OWNINTEGER LIST=-1; !LISTING CONTROL _imp_current_line = 43; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 43 "regression-bugs-tmp/hal7502.imp" static int LIST = (-1); // 44 %INTEGER ASSCOND,SKIP; !ASSEMBLY CONDITIONS (BIT NEST) _imp_current_line = 44; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 44 "regression-bugs-tmp/hal7502.imp" int ASSCOND; #line 44 "regression-bugs-tmp/hal7502.imp" int SKIP; // 45 %OWNINTEGER SAVE=1; !REG SAVE DISPLACEMENT _imp_current_line = 45; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 45 "regression-bugs-tmp/hal7502.imp" static int SAVE = 1; // 46 %OWNINTEGER TEMPS=12; !TEMPORARY REGISTER SET _imp_current_line = 46; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 46 "regression-bugs-tmp/hal7502.imp" static int TEMPS = 12; // 47 %OWNINTEGER CONTROL=16_40; !OBJECT CODE CONTROL FIELD _imp_current_line = 47; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 47 "regression-bugs-tmp/hal7502.imp" static int CONTROL = 64; // 48 %OWNINTEGER CHECK=0; !BINARY CHECKSUM _imp_current_line = 48; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 48 "regression-bugs-tmp/hal7502.imp" static int CHECK = 0; // 49 %INTEGER LOCTYPE,LOC; !LOCATION COUNTER _imp_current_line = 49; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 49 "regression-bugs-tmp/hal7502.imp" int LOCTYPE; #line 49 "regression-bugs-tmp/hal7502.imp" int LOC; // 50 %INTEGER ACC,ATYPE,AVAL; !MAIN TEMP REGISTER _imp_current_line = 50; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 50 "regression-bugs-tmp/hal7502.imp" int ACC; #line 50 "regression-bugs-tmp/hal7502.imp" int ATYPE; #line 50 "regression-bugs-tmp/hal7502.imp" int AVAL; // 51 %INTEGER CREG; !CONDITION CODE _imp_current_line = 51; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 51 "regression-bugs-tmp/hal7502.imp" int CREG; // 52 %INTEGER COND; !CONDITION CODE MASK _imp_current_line = 52; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 52 "regression-bugs-tmp/hal7502.imp" int COND; // 53 %INTEGER DREG,DUSE; !DESTINATION REGISTER _imp_current_line = 53; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 53 "regression-bugs-tmp/hal7502.imp" int DREG; #line 53 "regression-bugs-tmp/hal7502.imp" int DUSE; // 54 %INTEGER TYPE,VAL; !CURRENT TYPE,VALUE _imp_current_line = 54; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 54 "regression-bugs-tmp/hal7502.imp" int TYPE; #line 54 "regression-bugs-tmp/hal7502.imp" int VAL; // 55 %INTEGER TAG1,TAG2; !TAG (CHARS 1:3, 4:6) _imp_current_line = 55; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 55 "regression-bugs-tmp/hal7502.imp" int TAG1; #line 55 "regression-bugs-tmp/hal7502.imp" int TAG2; // 56 %INTEGER MODE; !ASSEMBLY MODE _imp_current_line = 56; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 56 "regression-bugs-tmp/hal7502.imp" int MODE; // 57 %INTEGER PEND; !TAG ALREADY RECOGNISED _imp_current_line = 57; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 57 "regression-bugs-tmp/hal7502.imp" int PEND; // 58 %INTEGER FLAG; !JUMPS _imp_current_line = 58; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 58 "regression-bugs-tmp/hal7502.imp" int FLAG; // 59 // 60 // 61 %INTEGER SBOUND _imp_current_line = 61; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 61 "regression-bugs-tmp/hal7502.imp" int SBOUND; // 62 SBOUND = FREESTORE-260; !ALLOW FOR INPUT BUFFER _imp_current_line = 62; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 62 "regression-bugs-tmp/hal7502.imp" SBOUND = (((int)(_imp_FREESTORE())) - (260)); // 63 SBOUND = SBOUND-256 %IF OUTDEV = 2 _imp_current_line = 63; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 63 "regression-bugs-tmp/hal7502.imp" if (((_imp_OUTDEV()) != (2))) goto L_0002; #line 63 "regression-bugs-tmp/hal7502.imp" SBOUND = (((int)(SBOUND)) - (256)); #line 63 "regression-bugs-tmp/hal7502.imp" L_0002:; // 64 SELECT OUTPUT(LIS) _imp_current_line = 64; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 64 "regression-bugs-tmp/hal7502.imp" _imp_SELECTOUTPUT(LIS); // 65 SBOUND = SBOUND-256 %IF OUTDEV = 2 _imp_current_line = 65; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 65 "regression-bugs-tmp/hal7502.imp" if (((_imp_OUTDEV()) != (2))) goto L_0003; #line 65 "regression-bugs-tmp/hal7502.imp" SBOUND = (((int)(SBOUND)) - (256)); #line 65 "regression-bugs-tmp/hal7502.imp" L_0003:; // 66 %INTEGERARRAY STORE(1:SBOUND) _imp_current_line = 66; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 66 "regression-bugs-tmp/hal7502.imp" int STORE[(((unsigned char)((((int)(SBOUND)) - (1)))) + (1))]; // 67 // 68 %INTEGERFN CHAR(%INTEGER P) _imp_current_line = 68; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 68 "regression-bugs-tmp/hal7502.imp" int CHAR( int P ) #line 68 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 69 !BYTE FETCH // 70 %result = byteinteger(P) _imp_current_line = 70; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 70 "regression-bugs-tmp/hal7502.imp" return *_imp_BYTEINTEGER(P); // 71 %END _imp_current_line = 71; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 71 "regression-bugs-tmp/hal7502.imp" _imp_endofblock: ; } // End of block CHAR at level 2 // 72 // 73 %ROUTINE PUT CHAR(%INTEGER K) _imp_current_line = 73; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 73 "regression-bugs-tmp/hal7502.imp" void PUTCHAR( int K ) #line 73 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 74 !AT PUTPOS WITH POST-INCREMENT // 75 byteinteger(putpos) = k _imp_current_line = 75; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 75 "regression-bugs-tmp/hal7502.imp" *_imp_BYTEINTEGER(PUTPOS) = K; // 76 putpos = putpos + 1 _imp_current_line = 76; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 76 "regression-bugs-tmp/hal7502.imp" PUTPOS = (((int)(PUTPOS)) + (1)); // 77 %END _imp_current_line = 77; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 77 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block PUTCHAR at level 2 // 78 // 79 %ROUTINE FAULT(%INTEGER K) _imp_current_line = 79; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 79 "regression-bugs-tmp/hal7502.imp" void FAULT( int K ) #line 79 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 80 !RECORD (FIRST) FAULT // 81 !NOT NECESSARILY CULPABLE IN PASS 0 // 82 FSYM = K %IF FSYM = ' ' _imp_current_line = 82; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 82 "regression-bugs-tmp/hal7502.imp" if (((FSYM) != (32))) goto L_0004; #line 82 "regression-bugs-tmp/hal7502.imp" FSYM = K; #line 82 "regression-bugs-tmp/hal7502.imp" L_0004:; // 83 %END _imp_current_line = 83; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 83 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block FAULT at level 2 // 84 // 85 %ROUTINE PRINT(%INTEGER K) _imp_current_line = 85; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 85 "regression-bugs-tmp/hal7502.imp" void PRINT( int K ) #line 85 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 86 INTEGER(CODEPOS+CHARS) = K _imp_current_line = 86; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 86 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER((((int)(CODEPOS)) + (CHARS))) = K; // 87 CHARS = CHARS+1 _imp_current_line = 87; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 87 "regression-bugs-tmp/hal7502.imp" CHARS = (((int)(CHARS)) + (1)); // 88 %END _imp_current_line = 88; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 88 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block PRINT at level 2 // 89 // 90 %ROUTINE PRINT WORD(%INTEGER V) _imp_current_line = 90; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 90 "regression-bugs-tmp/hal7502.imp" void PRINTWORD( int V ) #line 90 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 91 %ROUTINE PRINT HIT(%INTEGER V) _imp_current_line = 91; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 91 "regression-bugs-tmp/hal7502.imp" void PRINTHIT( int V ) #line 91 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 92 V = V&15+'0'; V = V+7 %IF V > '9' _imp_current_line = 92; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 92 "regression-bugs-tmp/hal7502.imp" V = (((int)(((V) & (15)))) + (48)); _imp_current_line = 92; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 92 "regression-bugs-tmp/hal7502.imp" if (((V) <= (57))) goto L_0005; #line 92 "regression-bugs-tmp/hal7502.imp" V = (((int)(V)) + (7)); #line 92 "regression-bugs-tmp/hal7502.imp" L_0005:; // 93 PRINT(V) _imp_current_line = 93; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 93 "regression-bugs-tmp/hal7502.imp" PRINT(V); // 94 %END _imp_current_line = 94; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 94 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block PRINTHIT at level 3 // 95 %ROUTINE PRINT1(%INTEGER V) _imp_current_line = 95; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 95 "regression-bugs-tmp/hal7502.imp" void PRINT1( int V ) #line 95 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 96 PRINT HIT(V>>4); PRINT HIT(V) _imp_current_line = 96; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 96 "regression-bugs-tmp/hal7502.imp" PRINTHIT((int)((((unsigned int)(V)) >> (4)))); _imp_current_line = 96; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 96 "regression-bugs-tmp/hal7502.imp" PRINTHIT(V); // 97 %END _imp_current_line = 97; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 97 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block PRINT1 at level 3 // 98 PRINT1(V>>8); PRINT1(V) _imp_current_line = 98; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 98 "regression-bugs-tmp/hal7502.imp" PRINT1((int)((((unsigned int)(V)) >> (8)))); _imp_current_line = 98; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 98 "regression-bugs-tmp/hal7502.imp" PRINT1(V); // 99 %END _imp_current_line = 99; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 99 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block PRINTWORD at level 2 // 100 // 101 %ROUTINE PRINT LOC _imp_current_line = 101; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 101 "regression-bugs-tmp/hal7502.imp" void PRINTLOC( void ) #line 101 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 102 PRINT WORD(LOC) _imp_current_line = 102; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 102 "regression-bugs-tmp/hal7502.imp" PRINTWORD(LOC); // 103 %IF LOCTYPE&RELMASK # 0 %THEN PRINT('''') %ELSE PRINT(' ') _imp_current_line = 103; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 103 "regression-bugs-tmp/hal7502.imp" if (((((LOCTYPE) & (RELMASK))) == (0))) goto L_0006; #line 103 "regression-bugs-tmp/hal7502.imp" PRINT(39); #line 103 "regression-bugs-tmp/hal7502.imp" goto L_0007; #line 103 "regression-bugs-tmp/hal7502.imp" L_0006:; #line 103 "regression-bugs-tmp/hal7502.imp" PRINT(32); #line 103 "regression-bugs-tmp/hal7502.imp" L_0007:; // 104 PRINT(' ') _imp_current_line = 104; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 104 "regression-bugs-tmp/hal7502.imp" PRINT(32); // 105 %END _imp_current_line = 105; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 105 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block PRINTLOC at level 2 // 106 // 107 %ROUTINE DO NEWLINE _imp_current_line = 107; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 107 "regression-bugs-tmp/hal7502.imp" void DONEWLINE( void ) #line 107 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 108 NEWLINE; LINES = LINES+1 _imp_current_line = 108; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 108 "regression-bugs-tmp/hal7502.imp" _imp_NEWLINE(); _imp_current_line = 108; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 108 "regression-bugs-tmp/hal7502.imp" LINES = (((int)(LINES)) + (1)); // 109 NEWLINES(2) %AND LINES = 0 %IF LINES = 61 _imp_current_line = 109; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 109 "regression-bugs-tmp/hal7502.imp" if (((LINES) != (61))) goto L_0008; #line 109 "regression-bugs-tmp/hal7502.imp" _imp_NEWLINES(2); #line 109 "regression-bugs-tmp/hal7502.imp" LINES = 0; #line 109 "regression-bugs-tmp/hal7502.imp" L_0008:; // 110 %END _imp_current_line = 110; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 110 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block DONEWLINE at level 2 // 111 // 112 %ROUTINE PRINT LINE _imp_current_line = 112; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 112 "regression-bugs-tmp/hal7502.imp" void PRINTLINE( void ) #line 112 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 113 %ROUTINE PRINTIT(%INTEGER SUB) _imp_current_line = 113; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 113 "regression-bugs-tmp/hal7502.imp" void PRINTIT( int SUB ) #line 113 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 114 %OWNINTEGER MARKER=124; !VERTICAL BAR _imp_current_line = 114; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 114 "regression-bugs-tmp/hal7502.imp" static int MARKER = 124; // 115 %INTEGER P,Q,K _imp_current_line = 115; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 115 "regression-bugs-tmp/hal7502.imp" int P; #line 115 "regression-bugs-tmp/hal7502.imp" int Q; #line 115 "regression-bugs-tmp/hal7502.imp" int K; // 116 %RETURN %IF CHARS = 0 %AND CHAR(PRINTPOS) = NL _imp_current_line = 116; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 116 "regression-bugs-tmp/hal7502.imp" if (((CHARS) != (0))) goto L_0009; #line 116 "regression-bugs-tmp/hal7502.imp" if (((CHAR(PRINTPOS)) != (10))) goto L_0009; #line 116 "regression-bugs-tmp/hal7502.imp" return; #line 116 "regression-bugs-tmp/hal7502.imp" L_0009:; // 117 PRINT SYMBOL(FSYM); SPACE _imp_current_line = 117; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 117 "regression-bugs-tmp/hal7502.imp" _imp_PRINTSYMBOL(FSYM); _imp_current_line = 117; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 117 "regression-bugs-tmp/hal7502.imp" _imp_SPACE(); // 118 P = CODEPOS; Q = P+CHARS _imp_current_line = 118; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 118 "regression-bugs-tmp/hal7502.imp" P = CODEPOS; _imp_current_line = 118; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 118 "regression-bugs-tmp/hal7502.imp" Q = (((int)(P)) + (CHARS)); // 119 PRINT SYMBOL(INTEGER(P)) %AND P=P+1 %WHILE P # Q _imp_current_line = 119; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 119 "regression-bugs-tmp/hal7502.imp" L_000a:; #line 119 "regression-bugs-tmp/hal7502.imp" if (((P) == (Q))) goto L_000b; #line 119 "regression-bugs-tmp/hal7502.imp" _imp_PRINTSYMBOL(*_imp_INTEGER(P)); #line 119 "regression-bugs-tmp/hal7502.imp" P = (((int)(P)) + (1)); #line 119 "regression-bugs-tmp/hal7502.imp" goto L_000a; #line 119 "regression-bugs-tmp/hal7502.imp" L_000b:; // 120 %RETURN %IF PRINTPOS = 0 _imp_current_line = 120; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 120 "regression-bugs-tmp/hal7502.imp" if (((PRINTPOS) != (0))) goto L_000d; #line 120 "regression-bugs-tmp/hal7502.imp" return; #line 120 "regression-bugs-tmp/hal7502.imp" L_000d:; // 121 SPACES(17-CHARS) _imp_current_line = 121; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 121 "regression-bugs-tmp/hal7502.imp" _imp_SPACES((((int)(17)) - (CHARS))); // 122 P = PRINTPOS; Q = 0 _imp_current_line = 122; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 122 "regression-bugs-tmp/hal7502.imp" P = PRINTPOS; _imp_current_line = 122; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 122 "regression-bugs-tmp/hal7502.imp" Q = 0; // 123 %CYCLE _imp_current_line = 123; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 123 "regression-bugs-tmp/hal7502.imp" L_000e:; // 124 PRINT SYMBOL(MARKER) %IF P = FAULTPOS _imp_current_line = 124; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 124 "regression-bugs-tmp/hal7502.imp" if (((P) != (FAULTPOS))) goto L_0011; #line 124 "regression-bugs-tmp/hal7502.imp" _imp_PRINTSYMBOL(MARKER); #line 124 "regression-bugs-tmp/hal7502.imp" L_0011:; // 125 K = CHAR(P); K = SUB %IF P = PSEUDOLIM _imp_current_line = 125; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 125 "regression-bugs-tmp/hal7502.imp" K = CHAR(P); _imp_current_line = 125; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 125 "regression-bugs-tmp/hal7502.imp" if (((P) != (PSEUDOLIM))) goto L_0012; #line 125 "regression-bugs-tmp/hal7502.imp" K = SUB; #line 125 "regression-bugs-tmp/hal7502.imp" L_0012:; // 126 PRINT SYMBOL('''') %IF (K!!Q)&128 # 0 _imp_current_line = 126; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 126 "regression-bugs-tmp/hal7502.imp" if (((((((K) ^ (Q))) & (128))) == (0))) goto L_0013; #line 126 "regression-bugs-tmp/hal7502.imp" _imp_PRINTSYMBOL(39); #line 126 "regression-bugs-tmp/hal7502.imp" L_0013:; // 127 %RETURN %IF K = NL _imp_current_line = 127; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 127 "regression-bugs-tmp/hal7502.imp" if (((K) != (10))) goto L_0014; #line 127 "regression-bugs-tmp/hal7502.imp" return; #line 127 "regression-bugs-tmp/hal7502.imp" L_0014:; // 128 PRINT SYMBOL(K&127) _imp_current_line = 128; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 128 "regression-bugs-tmp/hal7502.imp" _imp_PRINTSYMBOL(((K) & (127))); // 129 P = P+1; Q = K _imp_current_line = 129; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 129 "regression-bugs-tmp/hal7502.imp" P = (((int)(P)) + (1)); _imp_current_line = 129; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 129 "regression-bugs-tmp/hal7502.imp" Q = K; // 130 %REPEAT _imp_current_line = 130; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 130 "regression-bugs-tmp/hal7502.imp" goto L_000e; // 131 %END _imp_current_line = 131; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 131 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block PRINTIT at level 3 // 132 %RETURN %IF PASS = 0 _imp_current_line = 132; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 132 "regression-bugs-tmp/hal7502.imp" if (((PASS) != (0))) goto L_000f; #line 132 "regression-bugs-tmp/hal7502.imp" return; #line 132 "regression-bugs-tmp/hal7502.imp" L_000f:; // 133 %UNLESS LIST < 0 %OR (PRINTPOS=0 %AND FSYM=' ' %AND LIST&1=0) %START _imp_current_line = 133; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 133 "regression-bugs-tmp/hal7502.imp" if (((LIST) < (0))) goto L_0015; #line 133 "regression-bugs-tmp/hal7502.imp" if (((PRINTPOS) != (0))) goto L_0010; #line 133 "regression-bugs-tmp/hal7502.imp" if (((FSYM) != (32))) goto L_0010; #line 133 "regression-bugs-tmp/hal7502.imp" if (((((LIST) & (1))) == (0))) goto L_0015; #line 133 "regression-bugs-tmp/hal7502.imp" L_0010:; // 134 NEWLINES(3) %IF LINES = 0 _imp_current_line = 134; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 134 "regression-bugs-tmp/hal7502.imp" if (((LINES) != (0))) goto L_0016; #line 134 "regression-bugs-tmp/hal7502.imp" _imp_NEWLINES(3); #line 134 "regression-bugs-tmp/hal7502.imp" L_0016:; // 135 PRINTIT(' ') _imp_current_line = 135; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 135 "regression-bugs-tmp/hal7502.imp" PRINTIT(32); // 136 DO NEWLINE _imp_current_line = 136; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 136 "regression-bugs-tmp/hal7502.imp" DONEWLINE(); // 137 %FINISH _imp_current_line = 137; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 137 "regression-bugs-tmp/hal7502.imp" L_0015:; // 138 %IF FSYM # ' ' %AND OUTDEV # 1 %START _imp_current_line = 138; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 138 "regression-bugs-tmp/hal7502.imp" if (((FSYM) == (32))) goto L_0017; #line 138 "regression-bugs-tmp/hal7502.imp" if (((_imp_OUTDEV()) == (1))) goto L_0017; // 139 SELECT OUTPUT(0) _imp_current_line = 139; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 139 "regression-bugs-tmp/hal7502.imp" _imp_SELECTOUTPUT(0); // 140 PRINTPOS = STARTPOS %IF PRINTPOS = 0 _imp_current_line = 140; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 140 "regression-bugs-tmp/hal7502.imp" if (((PRINTPOS) != (0))) goto L_0018; #line 140 "regression-bugs-tmp/hal7502.imp" PRINTPOS = STARTPOS; #line 140 "regression-bugs-tmp/hal7502.imp" L_0018:; // 141 PRINT LOC %IF CHARS = 0 _imp_current_line = 141; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 141 "regression-bugs-tmp/hal7502.imp" if (((CHARS) != (0))) goto L_0019; #line 141 "regression-bugs-tmp/hal7502.imp" PRINTLOC(); #line 141 "regression-bugs-tmp/hal7502.imp" L_0019:; // 142 PRINTIT(NL) _imp_current_line = 142; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 142 "regression-bugs-tmp/hal7502.imp" PRINTIT(10); // 143 NEWLINE _imp_current_line = 143; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 143 "regression-bugs-tmp/hal7502.imp" _imp_NEWLINE(); // 144 SELECT OUTPUT(LIS) _imp_current_line = 144; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 144 "regression-bugs-tmp/hal7502.imp" _imp_SELECTOUTPUT(LIS); // 145 %FINISH _imp_current_line = 145; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 145 "regression-bugs-tmp/hal7502.imp" L_0017:; // 146 FSYM = ' '; PRINTPOS = 0; CHARS = 0 _imp_current_line = 146; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 146 "regression-bugs-tmp/hal7502.imp" FSYM = 32; _imp_current_line = 146; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 146 "regression-bugs-tmp/hal7502.imp" PRINTPOS = 0; _imp_current_line = 146; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 146 "regression-bugs-tmp/hal7502.imp" CHARS = 0; // 147 %END _imp_current_line = 147; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 147 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block PRINTLINE at level 2 // 148 // 149 %ROUTINE PUT WORD(%INTEGER V) _imp_current_line = 149; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 149 "regression-bugs-tmp/hal7502.imp" void PUTWORD( int V ) #line 149 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 150 CHECK = CHECK!!V _imp_current_line = 150; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 150 "regression-bugs-tmp/hal7502.imp" CHECK = ((CHECK) ^ (V)); // 151 SELECT OUTPUT(BIN) _imp_current_line = 151; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 151 "regression-bugs-tmp/hal7502.imp" _imp_SELECTOUTPUT(BIN); // 152 PRINT CH(V>>12&15+CONTROL) _imp_current_line = 152; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 152 "regression-bugs-tmp/hal7502.imp" _imp_PRINTCH((((int)((((int)((((unsigned int)(V)) >> (12)))) & (15)))) + (CONTROL))); // 153 PRINT CH(V>>8&15+16_40) _imp_current_line = 153; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 153 "regression-bugs-tmp/hal7502.imp" _imp_PRINTCH((((int)((((int)((((unsigned int)(V)) >> (8)))) & (15)))) + (64))); // 154 PRINT CH(V>>4&15+16_40) _imp_current_line = 154; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 154 "regression-bugs-tmp/hal7502.imp" _imp_PRINTCH((((int)((((int)((((unsigned int)(V)) >> (4)))) & (15)))) + (64))); // 155 PRINT CH(V&15+16_40) _imp_current_line = 155; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 155 "regression-bugs-tmp/hal7502.imp" _imp_PRINTCH((((int)(((V) & (15)))) + (64))); // 156 CONTROL = 16_50 _imp_current_line = 156; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 156 "regression-bugs-tmp/hal7502.imp" CONTROL = 80; // 157 SELECT OUTPUT(LIS) _imp_current_line = 157; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 157 "regression-bugs-tmp/hal7502.imp" _imp_SELECTOUTPUT(LIS); // 158 %END _imp_current_line = 158; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 158 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block PUTWORD at level 2 // 159 // 160 %ROUTINE PLANT VAL _imp_current_line = 160; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 160 "regression-bugs-tmp/hal7502.imp" void PLANTVAL( void ) #line 160 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 161 %IF PASS > 0 %START _imp_current_line = 161; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 161 "regression-bugs-tmp/hal7502.imp" if (((PASS) <= (0))) goto L_001a; // 162 %IF CHARS = 0 %START _imp_current_line = 162; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 162 "regression-bugs-tmp/hal7502.imp" if (((CHARS) != (0))) goto L_001b; // 163 %IF PRINTPOS#0 %THEN PRINT LOC %ELSE %START _imp_current_line = 163; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 163 "regression-bugs-tmp/hal7502.imp" if (((PRINTPOS) == (0))) goto L_001c; #line 163 "regression-bugs-tmp/hal7502.imp" PRINTLOC(); #line 163 "regression-bugs-tmp/hal7502.imp" goto L_001d; #line 163 "regression-bugs-tmp/hal7502.imp" L_001c:; // 164 PRINT(' '); PRINT(' '); PRINT(' ') _imp_current_line = 164; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 164 "regression-bugs-tmp/hal7502.imp" PRINT(32); _imp_current_line = 164; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 164 "regression-bugs-tmp/hal7502.imp" PRINT(32); _imp_current_line = 164; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 164 "regression-bugs-tmp/hal7502.imp" PRINT(32); // 165 PRINT(' '); PRINT(' '); PRINT(' ') _imp_current_line = 165; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 165 "regression-bugs-tmp/hal7502.imp" PRINT(32); _imp_current_line = 165; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 165 "regression-bugs-tmp/hal7502.imp" PRINT(32); _imp_current_line = 165; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 165 "regression-bugs-tmp/hal7502.imp" PRINT(32); // 166 %FINISH _imp_current_line = 166; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 166 "regression-bugs-tmp/hal7502.imp" L_001d:; // 167 %FINISH _imp_current_line = 167; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 167 "regression-bugs-tmp/hal7502.imp" L_001b:; // 168 PRINT(' ') %IF CHARS = 10 _imp_current_line = 168; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 168 "regression-bugs-tmp/hal7502.imp" if (((CHARS) != (10))) goto L_001e; #line 168 "regression-bugs-tmp/hal7502.imp" PRINT(32); #line 168 "regression-bugs-tmp/hal7502.imp" L_001e:; // 169 PRINT WORD(VAL); PUT WORD(VAL) _imp_current_line = 169; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 169 "regression-bugs-tmp/hal7502.imp" PRINTWORD(VAL); _imp_current_line = 169; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 169 "regression-bugs-tmp/hal7502.imp" PUTWORD(VAL); // 170 PRINT('''') %IF TYPE&RELMASK # 0 _imp_current_line = 170; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 170 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (RELMASK))) == (0))) goto L_001f; #line 170 "regression-bugs-tmp/hal7502.imp" PRINT(39); #line 170 "regression-bugs-tmp/hal7502.imp" L_001f:; // 171 PRINT LINE %IF CHARS >= 15 _imp_current_line = 171; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 171 "regression-bugs-tmp/hal7502.imp" if (((CHARS) < (15))) goto L_0020; #line 171 "regression-bugs-tmp/hal7502.imp" PRINTLINE(); #line 171 "regression-bugs-tmp/hal7502.imp" L_0020:; // 172 %FINISH _imp_current_line = 172; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 172 "regression-bugs-tmp/hal7502.imp" L_001a:; // 173 LOC = LOC+1 _imp_current_line = 173; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 173 "regression-bugs-tmp/hal7502.imp" LOC = (((int)(LOC)) + (1)); // 174 %END _imp_current_line = 174; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 174 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block PLANTVAL at level 2 // 175 // 176 %ROUTINE PLANT(%INTEGER V) _imp_current_line = 176; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 176 "regression-bugs-tmp/hal7502.imp" void PLANT( int V ) #line 176 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 177 %INTEGER THOLD,VHOLD _imp_current_line = 177; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 177 "regression-bugs-tmp/hal7502.imp" int THOLD; #line 177 "regression-bugs-tmp/hal7502.imp" int VHOLD; // 178 THOLD = TYPE; VHOLD = VAL _imp_current_line = 178; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 178 "regression-bugs-tmp/hal7502.imp" THOLD = TYPE; _imp_current_line = 178; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 178 "regression-bugs-tmp/hal7502.imp" VHOLD = VAL; // 179 TYPE = 0; VAL = V _imp_current_line = 179; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 179 "regression-bugs-tmp/hal7502.imp" TYPE = 0; _imp_current_line = 179; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 179 "regression-bugs-tmp/hal7502.imp" VAL = V; // 180 PLANT VAL _imp_current_line = 180; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 180 "regression-bugs-tmp/hal7502.imp" PLANTVAL(); // 181 TYPE = THOLD; VAL = THOLD _imp_current_line = 181; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 181 "regression-bugs-tmp/hal7502.imp" TYPE = THOLD; _imp_current_line = 181; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 181 "regression-bugs-tmp/hal7502.imp" VAL = THOLD; // 182 %END _imp_current_line = 182; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 182 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block PLANT at level 2 // 183 // 184 %ROUTINE NEST(%INTEGER K) _imp_current_line = 184; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 184 "regression-bugs-tmp/hal7502.imp" void NEST( int K ) #line 184 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 185 NP = NP-1; !!%MONITOR 23 %IF NP = BP _imp_current_line = 185; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 185 "regression-bugs-tmp/hal7502.imp" NP = (((int)(NP)) - (1)); // 186 INTEGER(NP) = K _imp_current_line = 186; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 186 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER(NP) = K; // 187 %END _imp_current_line = 187; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 187 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block NEST at level 2 // 188 // 189 %ROUTINE SET LAB(%INTEGER DEST) _imp_current_line = 189; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 189 "regression-bugs-tmp/hal7502.imp" void SETLAB( int DEST ) #line 189 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 190 %INTEGER P,Q _imp_current_line = 190; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 190 "regression-bugs-tmp/hal7502.imp" int P; #line 190 "regression-bugs-tmp/hal7502.imp" int Q; // 191 Q = 0 _imp_current_line = 191; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 191 "regression-bugs-tmp/hal7502.imp" Q = 0; // 192 %CYCLE _imp_current_line = 192; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 192 "regression-bugs-tmp/hal7502.imp" L_0021:; // 193 TYPE = INTEGER(NP); P = TYPE&16_3FF+DEFLIM; !DEST SLOT _imp_current_line = 193; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 193 "regression-bugs-tmp/hal7502.imp" TYPE = *_imp_INTEGER(NP); _imp_current_line = 193; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 193 "regression-bugs-tmp/hal7502.imp" P = (((int)(((TYPE) & (1023)))) + (DEFLIM)); // 194 NP = NP+1 _imp_current_line = 194; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 194 "regression-bugs-tmp/hal7502.imp" NP = (((int)(NP)) + (1)); // 195 VAL = INTEGER(NP); !LOC OF JUMP _imp_current_line = 195; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 195 "regression-bugs-tmp/hal7502.imp" VAL = *_imp_INTEGER(NP); // 196 NP = NP+1 _imp_current_line = 196; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 196 "regression-bugs-tmp/hal7502.imp" NP = (((int)(NP)) + (1)); // 197 ATYPE = -1; CREG = -1 _imp_current_line = 197; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 197 "regression-bugs-tmp/hal7502.imp" ATYPE = (-1); _imp_current_line = 197; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 197 "regression-bugs-tmp/hal7502.imp" CREG = (-1); // 198 FLAG = 0; _imp_current_line = 198; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 198 "regression-bugs-tmp/hal7502.imp" FLAG = 0; // 199 %IF TYPE&16_800 = 0 %START _imp_current_line = 199; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 199 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (2048))) != (0))) goto L_0024; // 200 FLAG = 1 %IF DEST-VAL+PASS <= 128 _imp_current_line = 200; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 200 "regression-bugs-tmp/hal7502.imp" if ((((((int)((((int)(DEST)) - (VAL)))) + (PASS))) > (128))) goto L_0025; #line 200 "regression-bugs-tmp/hal7502.imp" FLAG = 1; #line 200 "regression-bugs-tmp/hal7502.imp" L_0025:; // 201 %finish %ELSE %IF TYPE&16_400 # 0 %START _imp_current_line = 201; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 201 "regression-bugs-tmp/hal7502.imp" goto L_0026; #line 201 "regression-bugs-tmp/hal7502.imp" L_0024:; #line 201 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (1024))) == (0))) goto L_0027; // 202 FLAG = 2 %IF DEST-VAL+PASS+PASS = 1 _imp_current_line = 202; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 202 "regression-bugs-tmp/hal7502.imp" if ((((((int)((((int)((((int)(DEST)) - (VAL)))) + (PASS)))) + (PASS))) != (1))) goto L_0028; #line 202 "regression-bugs-tmp/hal7502.imp" FLAG = 2; #line 202 "regression-bugs-tmp/hal7502.imp" L_0028:; // 203 %FINISH _imp_current_line = 203; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 203 "regression-bugs-tmp/hal7502.imp" L_0027:; #line 203 "regression-bugs-tmp/hal7502.imp" L_0026:; // 204 %IF PASS = 0 %START _imp_current_line = 204; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 204 "regression-bugs-tmp/hal7502.imp" if (((PASS) != (0))) goto L_0029; // 205 DEST = DEST-FLAG; INTEGER(P) = DEST _imp_current_line = 205; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 205 "regression-bugs-tmp/hal7502.imp" DEST = (((int)(DEST)) - (FLAG)); _imp_current_line = 205; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 205 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER(P) = DEST; // 206 %IF FLAG # 0 %START _imp_current_line = 206; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 206 "regression-bugs-tmp/hal7502.imp" if (((FLAG) == (0))) goto L_002a; // 207 LOC = LOC-FLAG _imp_current_line = 207; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 207 "regression-bugs-tmp/hal7502.imp" LOC = (((int)(LOC)) - (FLAG)); // 208 %WHILE P # ALMAX %CYCLE _imp_current_line = 208; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 208 "regression-bugs-tmp/hal7502.imp" L_002b:; #line 208 "regression-bugs-tmp/hal7502.imp" if (((P) == (ALMAX))) goto L_002c; // 209 P = P+1; INTEGER(P) = INTEGER(P)-FLAG _imp_current_line = 209; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 209 "regression-bugs-tmp/hal7502.imp" P = (((int)(P)) + (1)); _imp_current_line = 209; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 209 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER(P) = ((*(int *)(_imp_INTEGER(P))) - (FLAG)); // 210 %REPEAT _imp_current_line = 210; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 210 "regression-bugs-tmp/hal7502.imp" goto L_002b; #line 210 "regression-bugs-tmp/hal7502.imp" L_002c:; // 211 %FINISH _imp_current_line = 211; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 211 "regression-bugs-tmp/hal7502.imp" L_002a:; // 212 %finish %ELSE %START _imp_current_line = 212; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 212 "regression-bugs-tmp/hal7502.imp" goto L_002e; #line 212 "regression-bugs-tmp/hal7502.imp" L_0029:; // 213 FAULT('P') %IF INTEGER(P) # DEST _imp_current_line = 213; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 213 "regression-bugs-tmp/hal7502.imp" if (((*_imp_INTEGER(P)) == (DEST))) goto L_002f; #line 213 "regression-bugs-tmp/hal7502.imp" FAULT(80); #line 213 "regression-bugs-tmp/hal7502.imp" L_002f:; // 214 %FINISH _imp_current_line = 214; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 214 "regression-bugs-tmp/hal7502.imp" L_002e:; // 215 %RETURN %IF INTEGER(NP)&16_1000 = 0 _imp_current_line = 215; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 215 "regression-bugs-tmp/hal7502.imp" if (((((*_imp_INTEGER(NP)) & (4096))) != (0))) goto L_0030; #line 215 "regression-bugs-tmp/hal7502.imp" return; #line 215 "regression-bugs-tmp/hal7502.imp" L_0030:; // 216 %IF INTEGER(NP)&16_2000 # 0 %AND Q = 0 %START; !OR _imp_current_line = 216; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 216 "regression-bugs-tmp/hal7502.imp" if (((((*_imp_INTEGER(NP)) & (8192))) == (0))) goto L_0031; #line 216 "regression-bugs-tmp/hal7502.imp" if (((Q) != (0))) goto L_0031; // 217 DEST = VAL+1 _imp_current_line = 217; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 217 "regression-bugs-tmp/hal7502.imp" DEST = (((int)(VAL)) + (1)); // 218 DEST = VAL+2-FLAG %UNLESS TYPE&16_C00 = 16_C00 _imp_current_line = 218; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 218 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (3072))) == (3072))) goto L_0032; #line 218 "regression-bugs-tmp/hal7502.imp" DEST = (((int)((((int)(VAL)) + (2)))) - (FLAG)); #line 218 "regression-bugs-tmp/hal7502.imp" L_0032:; // 219 Q = 1 _imp_current_line = 219; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 219 "regression-bugs-tmp/hal7502.imp" Q = 1; // 220 %FINISH _imp_current_line = 220; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 220 "regression-bugs-tmp/hal7502.imp" L_0031:; // 221 %REPEAT _imp_current_line = 221; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 221 "regression-bugs-tmp/hal7502.imp" goto L_0021; // 222 %END _imp_current_line = 222; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 222 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block SETLAB at level 2 // 223 // 224 %ROUTINE ASSEMBLE _imp_current_line = 224; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 224 "regression-bugs-tmp/hal7502.imp" void ASSEMBLE( void ) #line 224 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 225 ! 7502 OP-CODES // 226 %OWNINTEGER ADD=16_F400, SUB=16_F500, AND=16_F100 _imp_current_line = 226; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 226 "regression-bugs-tmp/hal7502.imp" static int ADD = 62464; #line 226 "regression-bugs-tmp/hal7502.imp" static int SUB = 62720; #line 226 "regression-bugs-tmp/hal7502.imp" static int AND = 61696; // 227 %OWNINTEGER OR=16_F000, XOR=16_F700, COMP=16_F200 _imp_current_line = 227; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 227 "regression-bugs-tmp/hal7502.imp" static int OR = 61440; #line 227 "regression-bugs-tmp/hal7502.imp" static int XOR = 63232; #line 227 "regression-bugs-tmp/hal7502.imp" static int COMP = 61952; // 228 %OWNINTEGER COPY=16_F300 _imp_current_line = 228; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 228 "regression-bugs-tmp/hal7502.imp" static int COPY = 62208; // 229 %OWNINTEGER LOADI=16_6000, SKIDI=16_7000, ADDI=16_8000 _imp_current_line = 229; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 229 "regression-bugs-tmp/hal7502.imp" static int LOADI = 24576; #line 229 "regression-bugs-tmp/hal7502.imp" static int SKIDI = 28672; #line 229 "regression-bugs-tmp/hal7502.imp" static int ADDI = 32768; // 230 %OWNINTEGER ANDI=16_9000 _imp_current_line = 230; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 230 "regression-bugs-tmp/hal7502.imp" static int ANDI = 36864; // 231 %OWNINTEGER BOC=16_5800, BOCR=16_5000, JUM=16_4000 _imp_current_line = 231; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 231 "regression-bugs-tmp/hal7502.imp" static int BOC = 22528; #line 231 "regression-bugs-tmp/hal7502.imp" static int BOCR = 20480; #line 231 "regression-bugs-tmp/hal7502.imp" static int JUM = 16384; // 232 %OWNINTEGER SKIP=16_4002, LOADC=16_20F2, ROT=16_3000 _imp_current_line = 232; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 232 "regression-bugs-tmp/hal7502.imp" static int SKIP = 16386; #line 232 "regression-bugs-tmp/hal7502.imp" static int LOADC = 8434; #line 232 "regression-bugs-tmp/hal7502.imp" static int ROT = 12288; // 233 %OWNINTEGER LOAD=16_2000, STORE=16_2008 _imp_current_line = 233; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 233 "regression-bugs-tmp/hal7502.imp" static int LOAD = 8192; #line 233 "regression-bugs-tmp/hal7502.imp" static int STORE = 8200; // 234 // 235 %INTEGER Q,NQ,OP,K,LITVAL,TYPE1,VAL1,FREE _imp_current_line = 235; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 235 "regression-bugs-tmp/hal7502.imp" int Q; #line 235 "regression-bugs-tmp/hal7502.imp" int NQ; #line 235 "regression-bugs-tmp/hal7502.imp" int OP; #line 235 "regression-bugs-tmp/hal7502.imp" int K; #line 235 "regression-bugs-tmp/hal7502.imp" int LITVAL; #line 235 "regression-bugs-tmp/hal7502.imp" int TYPE1; #line 235 "regression-bugs-tmp/hal7502.imp" int VAL1; #line 235 "regression-bugs-tmp/hal7502.imp" int FREE; // 236 %SWITCH ASS(-30:-1) _imp_current_line = 236; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 236 "regression-bugs-tmp/hal7502.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, }; // 237 // 238 %ROUTINE COMBINE _imp_current_line = 238; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 238 "regression-bugs-tmp/hal7502.imp" void COMBINE( void ) #line 238 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 239 %INTEGER I,J,K _imp_current_line = 239; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 239 "regression-bugs-tmp/hal7502.imp" int I; #line 239 "regression-bugs-tmp/hal7502.imp" int J; #line 239 "regression-bugs-tmp/hal7502.imp" int K; // 240 I = 11; K = 2048 _imp_current_line = 240; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 240 "regression-bugs-tmp/hal7502.imp" I = 11; _imp_current_line = 240; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 240 "regression-bugs-tmp/hal7502.imp" K = 2048; // 241 I=I-1 %AND K=K>>1 %WHILE K&TYPE1 = 0 %AND I # 0 _imp_current_line = 241; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 241 "regression-bugs-tmp/hal7502.imp" L_0033:; #line 241 "regression-bugs-tmp/hal7502.imp" if (((((K) & (TYPE1))) != (0))) goto L_0034; #line 241 "regression-bugs-tmp/hal7502.imp" if (((I) == (0))) goto L_0034; #line 241 "regression-bugs-tmp/hal7502.imp" I = (((int)(I)) - (1)); #line 241 "regression-bugs-tmp/hal7502.imp" K = (int)((((unsigned int)(K)) >> (1))); #line 241 "regression-bugs-tmp/hal7502.imp" goto L_0033; #line 241 "regression-bugs-tmp/hal7502.imp" L_0034:; // 242 J = K _imp_current_line = 242; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 242 "regression-bugs-tmp/hal7502.imp" J = K; // 243 I =I-1 %AND J=J>>1 %WHILE J&VAL1 = 0 %AND I # 0 _imp_current_line = 243; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 243 "regression-bugs-tmp/hal7502.imp" L_0036:; #line 243 "regression-bugs-tmp/hal7502.imp" if (((((J) & (VAL1))) != (0))) goto L_0037; #line 243 "regression-bugs-tmp/hal7502.imp" if (((I) == (0))) goto L_0037; #line 243 "regression-bugs-tmp/hal7502.imp" I = (((int)(I)) - (1)); #line 243 "regression-bugs-tmp/hal7502.imp" J = (int)((((unsigned int)(J)) >> (1))); #line 243 "regression-bugs-tmp/hal7502.imp" goto L_0036; #line 243 "regression-bugs-tmp/hal7502.imp" L_0037:; // 244 VAL = VAL< 127 _imp_current_line = 258; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 258 "regression-bugs-tmp/hal7502.imp" if (((FLAG) == (0))) goto L_003d; #line 258 "regression-bugs-tmp/hal7502.imp" if (((_imp_IMOD(I)) <= (127))) goto L_003d; #line 258 "regression-bugs-tmp/hal7502.imp" FAULT(74); #line 258 "regression-bugs-tmp/hal7502.imp" I = 0; #line 258 "regression-bugs-tmp/hal7502.imp" L_003d:; // 259 %IF |I| <= 127 %START _imp_current_line = 259; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 259 "regression-bugs-tmp/hal7502.imp" if (((_imp_IMOD(I)) > (127))) goto L_003e; // 260 %IF TYPE&UMASK = 0 %OR FLAG # 0 %START _imp_current_line = 260; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 260 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (UMASK))) == (0))) goto L_003f; #line 260 "regression-bugs-tmp/hal7502.imp" if (((FLAG) == (0))) goto L_0040; #line 260 "regression-bugs-tmp/hal7502.imp" L_003f:; // 261 PLANT(BOC+(COND!!1)<<8+I&255) _imp_current_line = 261; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 261 "regression-bugs-tmp/hal7502.imp" PLANT((((((BOC) + ((int)(((((COND) ^ (1))) << (8))))))) + (((I) & (255))))); // 262 %RETURN _imp_current_line = 262; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 262 "regression-bugs-tmp/hal7502.imp" return; // 263 %FINISH _imp_current_line = 263; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 263 "regression-bugs-tmp/hal7502.imp" L_0040:; // 264 FAULT('S') %IF LIST >= 0 %AND LIST&8 # 0 _imp_current_line = 264; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 264 "regression-bugs-tmp/hal7502.imp" if (((LIST) < (0))) goto L_0041; #line 264 "regression-bugs-tmp/hal7502.imp" if (((((LIST) & (8))) == (0))) goto L_0041; #line 264 "regression-bugs-tmp/hal7502.imp" FAULT(83); #line 264 "regression-bugs-tmp/hal7502.imp" L_0041:; // 265 %FINISH _imp_current_line = 265; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 265 "regression-bugs-tmp/hal7502.imp" L_003e:; // 266 PLANT(BOC+COND<<8+2) _imp_current_line = 266; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 266 "regression-bugs-tmp/hal7502.imp" PLANT((((int)(((BOC) + ((int)(((COND) << (8))))))) + (2))); // 267 %FINISH _imp_current_line = 267; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 267 "regression-bugs-tmp/hal7502.imp" L_003c:; // 268 PLANT(JUM+(VAL-LOC)&4095) _imp_current_line = 268; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 268 "regression-bugs-tmp/hal7502.imp" PLANT(((JUM) + ((int)((((((int)(VAL)) - (LOC))) & (4095)))))); // 269 %END _imp_current_line = 269; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 269 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block PLANTJUMP at level 3 // 270 // 271 %ROUTINE SET JUMP(%INTEGER CASE) _imp_current_line = 271; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 271 "regression-bugs-tmp/hal7502.imp" void SETJUMP( int CASE ) #line 271 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 272 %INTEGER THOLD,VHOLD,FHOLD _imp_current_line = 272; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 272 "regression-bugs-tmp/hal7502.imp" int THOLD; #line 272 "regression-bugs-tmp/hal7502.imp" int VHOLD; #line 272 "regression-bugs-tmp/hal7502.imp" int FHOLD; // 273 CASE = CASE+16_0800 %IF COND&6 = 0 _imp_current_line = 273; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 273 "regression-bugs-tmp/hal7502.imp" if (((((COND) & (6))) != (0))) goto L_0042; #line 273 "regression-bugs-tmp/hal7502.imp" CASE = (((int)(CASE)) + (2048)); #line 273 "regression-bugs-tmp/hal7502.imp" L_0042:; // 274 CASE = CASE+16_0400 %IF COND&1 # 0 _imp_current_line = 274; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 274 "regression-bugs-tmp/hal7502.imp" if (((((COND) & (1))) == (0))) goto L_0043; #line 274 "regression-bugs-tmp/hal7502.imp" CASE = (((int)(CASE)) + (1024)); #line 274 "regression-bugs-tmp/hal7502.imp" L_0043:; // 275 ALMAX = ALMAX+1; !!%MONITOR 22 %IF ALMAX = LABMIN _imp_current_line = 275; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 275 "regression-bugs-tmp/hal7502.imp" ALMAX = (((int)(ALMAX)) + (1)); // 276 NEST(LOC); NEST(ALMAX-DEFLIM+CASE) _imp_current_line = 276; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 276 "regression-bugs-tmp/hal7502.imp" NEST(LOC); _imp_current_line = 276; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 276 "regression-bugs-tmp/hal7502.imp" NEST((((int)((((int)(ALMAX)) - (DEFLIM)))) + (CASE))); // 277 THOLD = TYPE; VHOLD = VAL; FHOLD = FLAG _imp_current_line = 277; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 277 "regression-bugs-tmp/hal7502.imp" THOLD = TYPE; _imp_current_line = 277; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 277 "regression-bugs-tmp/hal7502.imp" VHOLD = VAL; _imp_current_line = 277; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 277 "regression-bugs-tmp/hal7502.imp" FHOLD = FLAG; // 278 TYPE = LOCTYPE; VAL = INTEGER(ALMAX); FLAG = 0 _imp_current_line = 278; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 278 "regression-bugs-tmp/hal7502.imp" TYPE = LOCTYPE; _imp_current_line = 278; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 278 "regression-bugs-tmp/hal7502.imp" VAL = *_imp_INTEGER(ALMAX); _imp_current_line = 278; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 278 "regression-bugs-tmp/hal7502.imp" FLAG = 0; // 279 TYPE = TYPE+UMASK %IF PASS = 0 _imp_current_line = 279; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 279 "regression-bugs-tmp/hal7502.imp" if (((PASS) != (0))) goto L_0044; #line 279 "regression-bugs-tmp/hal7502.imp" TYPE = (((int)(TYPE)) + (UMASK)); #line 279 "regression-bugs-tmp/hal7502.imp" L_0044:; // 280 COND = COND!!1 _imp_current_line = 280; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 280 "regression-bugs-tmp/hal7502.imp" COND = ((COND) ^ (1)); // 281 PLANT JUMP; COND = 0 _imp_current_line = 281; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 281 "regression-bugs-tmp/hal7502.imp" PLANTJUMP(); _imp_current_line = 281; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 281 "regression-bugs-tmp/hal7502.imp" COND = 0; // 282 TYPE = THOLD; VAL = VHOLD; FLAG = FHOLD _imp_current_line = 282; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 282 "regression-bugs-tmp/hal7502.imp" TYPE = THOLD; _imp_current_line = 282; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 282 "regression-bugs-tmp/hal7502.imp" VAL = VHOLD; _imp_current_line = 282; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 282 "regression-bugs-tmp/hal7502.imp" FLAG = FHOLD; // 283 %END _imp_current_line = 283; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 283 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block SETJUMP at level 3 // 284 // 285 %ROUTINE PLANT INST(%INTEGER CODE) _imp_current_line = 285; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 285 "regression-bugs-tmp/hal7502.imp" void PLANTINST( int CODE ) #line 285 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 286 SET JUMP(16_1000) %IF COND # 0 _imp_current_line = 286; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 286 "regression-bugs-tmp/hal7502.imp" if (((COND) == (0))) goto L_0045; #line 286 "regression-bugs-tmp/hal7502.imp" SETJUMP(4096); #line 286 "regression-bugs-tmp/hal7502.imp" L_0045:; // 287 PLANT(CODE) _imp_current_line = 287; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 287 "regression-bugs-tmp/hal7502.imp" PLANT(CODE); // 288 %END _imp_current_line = 288; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 288 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block PLANTINST at level 3 // 289 // 290 %ROUTINE RELEASE _imp_current_line = 290; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 290 "regression-bugs-tmp/hal7502.imp" void RELEASE( void ) #line 290 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 291 %INTEGER I _imp_current_line = 291; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 291 "regression-bugs-tmp/hal7502.imp" int I; // 292 %RETURN %IF TYPE®XMASK = 0 _imp_current_line = 292; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 292 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (REGXMASK))) != (0))) goto L_0046; #line 292 "regression-bugs-tmp/hal7502.imp" return; #line 292 "regression-bugs-tmp/hal7502.imp" L_0046:; // 293 I = TYPE&15; I = VAL %IF TYPE = REG _imp_current_line = 293; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 293 "regression-bugs-tmp/hal7502.imp" I = ((TYPE) & (15)); _imp_current_line = 293; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 293 "regression-bugs-tmp/hal7502.imp" if (((TYPE) != (REG))) goto L_0047; #line 293 "regression-bugs-tmp/hal7502.imp" I = VAL; #line 293 "regression-bugs-tmp/hal7502.imp" L_0047:; // 294 %IF I = DREG %START _imp_current_line = 294; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 294 "regression-bugs-tmp/hal7502.imp" if (((I) != (DREG))) goto L_0048; // 295 DUSE = DUSE-1 _imp_current_line = 295; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 295 "regression-bugs-tmp/hal7502.imp" DUSE = (((int)(DUSE)) - (1)); // 296 %finish %ELSE %START _imp_current_line = 296; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 296 "regression-bugs-tmp/hal7502.imp" goto L_0049; #line 296 "regression-bugs-tmp/hal7502.imp" L_0048:; // 297 I = 1<= 0 %AND DUSE = 0 %START _imp_current_line = 304; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 304 "regression-bugs-tmp/hal7502.imp" if (((DREG) < (0))) goto L_004b; #line 304 "regression-bugs-tmp/hal7502.imp" if (((DUSE) != (0))) goto L_004b; // 305 DUSE = 1 _imp_current_line = 305; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 305 "regression-bugs-tmp/hal7502.imp" DUSE = 1; // 306 %RESULT = DREG _imp_current_line = 306; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 306 "regression-bugs-tmp/hal7502.imp" return DREG; // 307 %FINISH _imp_current_line = 307; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 307 "regression-bugs-tmp/hal7502.imp" L_004b:; // 308 J = 1 _imp_current_line = 308; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 308 "regression-bugs-tmp/hal7502.imp" J = 1; // 309 %CYCLE I = 0,1,15 _imp_current_line = 309; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 309 "regression-bugs-tmp/hal7502.imp" I = (-1); if ((((15)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 15"); L_004c:; if (I == 15) goto L_004d; I += 1; // 310 ->OK %IF FREE&J # 0 %AND I # DREG _imp_current_line = 310; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 310 "regression-bugs-tmp/hal7502.imp" if (((((FREE) & (J))) == (0))) goto L_004f; #line 310 "regression-bugs-tmp/hal7502.imp" if (((I) == (DREG))) goto L_004f; #line 310 "regression-bugs-tmp/hal7502.imp" goto U_1000; #line 310 "regression-bugs-tmp/hal7502.imp" L_004f:; // 311 J = J<<1 _imp_current_line = 311; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 311 "regression-bugs-tmp/hal7502.imp" J = ((J) << (1)); // 312 %REPEAT _imp_current_line = 312; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 312 "regression-bugs-tmp/hal7502.imp" goto L_004c; #line 312 "regression-bugs-tmp/hal7502.imp" L_004d:; // 313 FAULT('R') _imp_current_line = 313; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 313 "regression-bugs-tmp/hal7502.imp" FAULT(82); // 314 OK: FREE = FREE-J _imp_current_line = 314; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 314 "regression-bugs-tmp/hal7502.imp" U_1000:; _imp_current_line = 314; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 314 "regression-bugs-tmp/hal7502.imp" FREE = (((int)(FREE)) - (J)); // 315 %RESULT = I _imp_current_line = 315; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 315 "regression-bugs-tmp/hal7502.imp" return I; // 316 %END _imp_current_line = 316; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 316 "regression-bugs-tmp/hal7502.imp" _imp_endofblock: ; } // End of block TREG at level 3 // 317 // 318 %ROUTINE LOAD CONST(%INTEGER R) _imp_current_line = 318; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 318 "regression-bugs-tmp/hal7502.imp" void LOADCONST( int R ) #line 318 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 319 %INTEGER I,J _imp_current_line = 319; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 319 "regression-bugs-tmp/hal7502.imp" int I; #line 319 "regression-bugs-tmp/hal7502.imp" int J; // 320 I = LOADI+R<<8 _imp_current_line = 320; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 320 "regression-bugs-tmp/hal7502.imp" I = ((LOADI) + ((int)(((R) << (8))))); // 321 %IF VAL&(\255) = 0 %AND TYPE&UMASK = 0 %START _imp_current_line = 321; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 321 "regression-bugs-tmp/hal7502.imp" if (((((VAL) & ((~(255))))) != (0))) goto L_0050; #line 321 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (UMASK))) != (0))) goto L_0050; // 322 PLANT INST(I+VAL) _imp_current_line = 322; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 322 "regression-bugs-tmp/hal7502.imp" PLANTINST((((int)(I)) + (VAL))); // 323 %finish %ELSE %IF \VAL&(\255) = 0 %AND TYPE&UMASK = 0 %START _imp_current_line = 323; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 323 "regression-bugs-tmp/hal7502.imp" goto L_0051; #line 323 "regression-bugs-tmp/hal7502.imp" L_0050:; #line 323 "regression-bugs-tmp/hal7502.imp" if ((((((~(VAL))) & ((~(255))))) != (0))) goto L_0052; #line 323 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (UMASK))) != (0))) goto L_0052; // 324 PLANT INST(I+(\VAL)) _imp_current_line = 324; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 324 "regression-bugs-tmp/hal7502.imp" PLANTINST(((I) + ((~(VAL))))); // 325 PLANT INST(COMP+R<<4+R) _imp_current_line = 325; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 325 "regression-bugs-tmp/hal7502.imp" PLANTINST((((int)(((COMP) + ((int)(((R) << (4))))))) + (R))); // 326 CREG = R _imp_current_line = 326; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 326 "regression-bugs-tmp/hal7502.imp" CREG = R; // 327 %finish %ELSE %START _imp_current_line = 327; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 327 "regression-bugs-tmp/hal7502.imp" goto L_0051; #line 327 "regression-bugs-tmp/hal7502.imp" L_0052:; // 328 ! PLANT INST(LOADC+R<<8) // 329 ! PLANT INST(SKIP) // 330 ! PLANT VAL // 331 J = VAL>>8&255 _imp_current_line = 331; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 331 "regression-bugs-tmp/hal7502.imp" J = (((int)((((unsigned int)(VAL)) >> (8)))) & (255)); // 332 J = J+1 %IF VAL&128 # 0 _imp_current_line = 332; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 332 "regression-bugs-tmp/hal7502.imp" if (((((VAL) & (128))) == (0))) goto L_0053; #line 332 "regression-bugs-tmp/hal7502.imp" J = (((int)(J)) + (1)); #line 332 "regression-bugs-tmp/hal7502.imp" L_0053:; // 333 PLANT INST(I+J) _imp_current_line = 333; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 333 "regression-bugs-tmp/hal7502.imp" PLANTINST((((int)(I)) + (J))); // 334 PLANT INST(ROT+R<<8+7<<4+R) _imp_current_line = 334; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 334 "regression-bugs-tmp/hal7502.imp" PLANTINST((((int)((((((ROT) + ((int)(((R) << (8))))))) + (((7) << (4)))))) + (R))); // 335 PLANT INST(ADDI+R<<8+VAL&255) %IF VAL&255 # 0 _imp_current_line = 335; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 335 "regression-bugs-tmp/hal7502.imp" if (((((VAL) & (255))) == (0))) goto L_0054; #line 335 "regression-bugs-tmp/hal7502.imp" PLANTINST((((((ADDI) + ((int)(((R) << (8))))))) + (((VAL) & (255))))); #line 335 "regression-bugs-tmp/hal7502.imp" L_0054:; // 336 %FINISH _imp_current_line = 336; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 336 "regression-bugs-tmp/hal7502.imp" L_0051:; // 337 %END _imp_current_line = 337; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 337 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block LOADCONST at level 3 // 338 // 339 %ROUTINE LOAD REG(%INTEGER R) _imp_current_line = 339; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 339 "regression-bugs-tmp/hal7502.imp" void LOADREG( int R ) #line 339 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 340 %INTEGER OP _imp_current_line = 340; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 340 "regression-bugs-tmp/hal7502.imp" int OP; // 341 %IF ATYPE = TYPE %AND AVAL = VAL %START _imp_current_line = 341; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 341 "regression-bugs-tmp/hal7502.imp" if (((ATYPE) != (TYPE))) goto L_0055; #line 341 "regression-bugs-tmp/hal7502.imp" if (((AVAL) != (VAL))) goto L_0055; // 342 TYPE = REG; VAL = ACC _imp_current_line = 342; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 342 "regression-bugs-tmp/hal7502.imp" TYPE = REG; _imp_current_line = 342; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 342 "regression-bugs-tmp/hal7502.imp" VAL = ACC; // 343 %RETURN %IF R = ACC _imp_current_line = 343; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 343 "regression-bugs-tmp/hal7502.imp" if (((R) != (ACC))) goto L_0056; #line 343 "regression-bugs-tmp/hal7502.imp" return; #line 343 "regression-bugs-tmp/hal7502.imp" L_0056:; // 344 %FINISH _imp_current_line = 344; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 344 "regression-bugs-tmp/hal7502.imp" L_0055:; // 345 ATYPE = TYPE %AND AVAL = VAL %IF R = ACC _imp_current_line = 345; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 345 "regression-bugs-tmp/hal7502.imp" if (((R) != (ACC))) goto L_0057; #line 345 "regression-bugs-tmp/hal7502.imp" ATYPE = TYPE; #line 345 "regression-bugs-tmp/hal7502.imp" AVAL = VAL; #line 345 "regression-bugs-tmp/hal7502.imp" L_0057:; // 346 ATYPE = -1 %IF (ATYPE=REG %AND AVAL=R) _imp_current_line = 346; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 346 "regression-bugs-tmp/hal7502.imp" if (((ATYPE) != (REG))) goto L_0058; #line 346 "regression-bugs-tmp/hal7502.imp" if (((AVAL) != (R))) goto L_0058; #line 346 "regression-bugs-tmp/hal7502.imp" ATYPE = (-1); #line 346 "regression-bugs-tmp/hal7502.imp" L_0058:; // 347 ATYPE = -1 %IF ATYPE&XMASK # 0 %AND ATYPE&15 = R _imp_current_line = 347; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 347 "regression-bugs-tmp/hal7502.imp" if (((((ATYPE) & (XMASK))) == (0))) goto L_0059; #line 347 "regression-bugs-tmp/hal7502.imp" if (((((ATYPE) & (15))) != (R))) goto L_0059; #line 347 "regression-bugs-tmp/hal7502.imp" ATYPE = (-1); #line 347 "regression-bugs-tmp/hal7502.imp" L_0059:; // 348 %IF TYPE = REG %START _imp_current_line = 348; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 348 "regression-bugs-tmp/hal7502.imp" if (((TYPE) != (REG))) goto L_005a; // 349 PLANT INST(COPY+R<<4+VAL) _imp_current_line = 349; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 349 "regression-bugs-tmp/hal7502.imp" PLANTINST((((int)(((COPY) + ((int)(((R) << (4))))))) + (VAL))); // 350 CREG = R _imp_current_line = 350; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 350 "regression-bugs-tmp/hal7502.imp" CREG = R; // 351 %finish %ELSE %IF TYPE&XMASK = 0 %START _imp_current_line = 351; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 351 "regression-bugs-tmp/hal7502.imp" goto L_005b; #line 351 "regression-bugs-tmp/hal7502.imp" L_005a:; #line 351 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (XMASK))) != (0))) goto L_005c; // 352 LOAD CONST(R) _imp_current_line = 352; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 352 "regression-bugs-tmp/hal7502.imp" LOADCONST(R); // 353 PLANT INST(LOAD+R<<8+R<<4) %IF TYPE&MEMMASK # 0 _imp_current_line = 353; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 353 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (MEMMASK))) == (0))) goto L_005d; #line 353 "regression-bugs-tmp/hal7502.imp" PLANTINST((((((LOAD) + ((int)(((R) << (8))))))) + (((R) << (4))))); #line 353 "regression-bugs-tmp/hal7502.imp" L_005d:; // 354 %finish %ELSE %START _imp_current_line = 354; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 354 "regression-bugs-tmp/hal7502.imp" goto L_005b; #line 354 "regression-bugs-tmp/hal7502.imp" L_005c:; // 355 %IF VAL&(\3) # 0 %OR TYPE&MEMMASK = 0 %START _imp_current_line = 355; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 355 "regression-bugs-tmp/hal7502.imp" if (((((VAL) & ((~(3))))) != (0))) goto L_005e; #line 355 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (MEMMASK))) != (0))) goto L_005f; #line 355 "regression-bugs-tmp/hal7502.imp" L_005e:; // 356 %IF TYPE&15 # R %START _imp_current_line = 356; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 356 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (15))) == (R))) goto L_0060; // 357 %IF |VAL| <= 127 %START _imp_current_line = 357; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 357 "regression-bugs-tmp/hal7502.imp" if (((_imp_IMOD(VAL)) > (127))) goto L_0061; // 358 PLANT INST(COPY+R<<4+TYPE&15) _imp_current_line = 358; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 358 "regression-bugs-tmp/hal7502.imp" PLANTINST((((((COPY) + ((int)(((R) << (4))))))) + (((TYPE) & (15))))); // 359 PLANT INST(ADDI+R<<8+VAL&255) %IF VAL # 0 _imp_current_line = 359; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 359 "regression-bugs-tmp/hal7502.imp" if (((VAL) == (0))) goto L_0062; #line 359 "regression-bugs-tmp/hal7502.imp" PLANTINST((((((ADDI) + ((int)(((R) << (8))))))) + (((VAL) & (255))))); #line 359 "regression-bugs-tmp/hal7502.imp" L_0062:; // 360 %finish %ELSE %START _imp_current_line = 360; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 360 "regression-bugs-tmp/hal7502.imp" goto L_0063; #line 360 "regression-bugs-tmp/hal7502.imp" L_0061:; // 361 LOAD CONST(R) _imp_current_line = 361; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 361 "regression-bugs-tmp/hal7502.imp" LOADCONST(R); // 362 PLANT INST(ADD+R<<4+TYPE&15) _imp_current_line = 362; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 362 "regression-bugs-tmp/hal7502.imp" PLANTINST((((((ADD) + ((int)(((R) << (4))))))) + (((TYPE) & (15))))); // 363 %FINISH _imp_current_line = 363; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 363 "regression-bugs-tmp/hal7502.imp" L_0063:; // 364 CREG = R _imp_current_line = 364; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 364 "regression-bugs-tmp/hal7502.imp" CREG = R; // 365 %finish %ELSE %START _imp_current_line = 365; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 365 "regression-bugs-tmp/hal7502.imp" goto L_0064; #line 365 "regression-bugs-tmp/hal7502.imp" L_0060:; // 366 %IF |VAL| <= 127 %START _imp_current_line = 366; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 366 "regression-bugs-tmp/hal7502.imp" if (((_imp_IMOD(VAL)) > (127))) goto L_0065; // 367 %IF VAL # 0 %START _imp_current_line = 367; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 367 "regression-bugs-tmp/hal7502.imp" if (((VAL) == (0))) goto L_0066; // 368 PLANT INST(ADDI+R<<8+VAL&255) _imp_current_line = 368; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 368 "regression-bugs-tmp/hal7502.imp" PLANTINST((((((ADDI) + ((int)(((R) << (8))))))) + (((VAL) & (255))))); // 369 CREG = R _imp_current_line = 369; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 369 "regression-bugs-tmp/hal7502.imp" CREG = R; // 370 %FINISH _imp_current_line = 370; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 370 "regression-bugs-tmp/hal7502.imp" L_0066:; // 371 %finish %ELSE %START _imp_current_line = 371; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 371 "regression-bugs-tmp/hal7502.imp" goto L_0067; #line 371 "regression-bugs-tmp/hal7502.imp" L_0065:; // 372 OP = TREG _imp_current_line = 372; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 372 "regression-bugs-tmp/hal7502.imp" OP = TREG(); // 373 LOAD CONST(OP) _imp_current_line = 373; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 373 "regression-bugs-tmp/hal7502.imp" LOADCONST(OP); // 374 TYPE = REG; VAL = OP _imp_current_line = 374; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 374 "regression-bugs-tmp/hal7502.imp" TYPE = REG; _imp_current_line = 374; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 374 "regression-bugs-tmp/hal7502.imp" VAL = OP; // 375 RELEASE _imp_current_line = 375; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 375 "regression-bugs-tmp/hal7502.imp" RELEASE(); // 376 PLANT INST(ADD+R<<4+OP) _imp_current_line = 376; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 376 "regression-bugs-tmp/hal7502.imp" PLANTINST((((int)(((ADD) + ((int)(((R) << (4))))))) + (OP))); // 377 CREG = R _imp_current_line = 377; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 377 "regression-bugs-tmp/hal7502.imp" CREG = R; // 378 %FINISH _imp_current_line = 378; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 378 "regression-bugs-tmp/hal7502.imp" L_0067:; // 379 %FINISH _imp_current_line = 379; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 379 "regression-bugs-tmp/hal7502.imp" L_0064:; // 380 TYPE = TYPE&MEMMASK+XMASK+R; VAL = 0 _imp_current_line = 380; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 380 "regression-bugs-tmp/hal7502.imp" TYPE = (((int)((((int)(((TYPE) & (MEMMASK)))) + (XMASK)))) + (R)); _imp_current_line = 380; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 380 "regression-bugs-tmp/hal7502.imp" VAL = 0; // 381 %FINISH _imp_current_line = 381; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 381 "regression-bugs-tmp/hal7502.imp" L_005f:; // 382 %IF TYPE&MEMMASK # 0 %START _imp_current_line = 382; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 382 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (MEMMASK))) == (0))) goto L_0068; // 383 PLANT INST(LOAD+R<<8+(TYPE&15)<<4+VAL) _imp_current_line = 383; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 383 "regression-bugs-tmp/hal7502.imp" PLANTINST((((int)((((((LOAD) + ((int)(((R) << (8))))))) + (((((TYPE) & (15))) << (4)))))) + (VAL))); // 384 CREG = -1 _imp_current_line = 384; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 384 "regression-bugs-tmp/hal7502.imp" CREG = (-1); // 385 ! %FINISH -- commenting out this line allows the program to compile // 386 %finish %ELSE %START _imp_current_line = 386; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 386 "regression-bugs-tmp/hal7502.imp" goto L_0069; #line 386 "regression-bugs-tmp/hal7502.imp" L_0068:; // 387 LOAD CONST(R) _imp_current_line = 387; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 387 "regression-bugs-tmp/hal7502.imp" LOADCONST(R); // 388 PLANT INST(LOAD+R<<8+R<<4) _imp_current_line = 388; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 388 "regression-bugs-tmp/hal7502.imp" PLANTINST((((((LOAD) + ((int)(((R) << (8))))))) + (((R) << (4))))); // 389 %FINISH _imp_current_line = 389; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 389 "regression-bugs-tmp/hal7502.imp" L_0069:; // 390 %FINISH _imp_current_line = 390; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 390 "regression-bugs-tmp/hal7502.imp" L_005b:; // 391 TYPE = REG; VAL = R _imp_current_line = 391; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 391 "regression-bugs-tmp/hal7502.imp" TYPE = REG; _imp_current_line = 391; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 391 "regression-bugs-tmp/hal7502.imp" VAL = R; // 392 %END _imp_current_line = 392; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 392 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block LOADREG at level 3 // 393 // 394 %ROUTINE LOAD TEMP _imp_current_line = 394; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 394 "regression-bugs-tmp/hal7502.imp" void LOADTEMP( void ) #line 394 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 395 RELEASE _imp_current_line = 395; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 395 "regression-bugs-tmp/hal7502.imp" RELEASE(); // 396 LOAD REG(TREG) _imp_current_line = 396; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 396 "regression-bugs-tmp/hal7502.imp" LOADREG(TREG()); // 397 %END _imp_current_line = 397; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 397 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block LOADTEMP at level 3 // 398 // 399 %ROUTINE SWOP _imp_current_line = 399; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 399 "regression-bugs-tmp/hal7502.imp" void SWOP( void ) #line 399 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 400 %INTEGER K _imp_current_line = 400; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 400 "regression-bugs-tmp/hal7502.imp" int K; // 401 K = TYPE1; TYPE1 = TYPE; TYPE = K _imp_current_line = 401; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 401 "regression-bugs-tmp/hal7502.imp" K = TYPE1; _imp_current_line = 401; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 401 "regression-bugs-tmp/hal7502.imp" TYPE1 = TYPE; _imp_current_line = 401; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 401 "regression-bugs-tmp/hal7502.imp" TYPE = K; // 402 K = VAL1; VAL1 = VAL; VAL = K _imp_current_line = 402; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 402 "regression-bugs-tmp/hal7502.imp" K = VAL1; _imp_current_line = 402; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 402 "regression-bugs-tmp/hal7502.imp" VAL1 = VAL; _imp_current_line = 402; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 402 "regression-bugs-tmp/hal7502.imp" VAL = K; // 403 %END _imp_current_line = 403; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 403 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block SWOP at level 3 // 404 // 405 Q = QSTART _imp_current_line = 405; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 405 "regression-bugs-tmp/hal7502.imp" Q = QSTART; // 406 NEW:NQ = QSTART; FREE = TEMPS _imp_current_line = 406; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 406 "regression-bugs-tmp/hal7502.imp" U_1001:; _imp_current_line = 406; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 406 "regression-bugs-tmp/hal7502.imp" NQ = QSTART; _imp_current_line = 406; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 406 "regression-bugs-tmp/hal7502.imp" FREE = TEMPS; // 407 TYPE = INTEGER(Q); Q = Q+1 _imp_current_line = 407; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 407 "regression-bugs-tmp/hal7502.imp" TYPE = *_imp_INTEGER(Q); _imp_current_line = 407; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 407 "regression-bugs-tmp/hal7502.imp" Q = (((int)(Q)) + (1)); // 408 VAL = INTEGER(Q); Q = Q+1 _imp_current_line = 408; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 408 "regression-bugs-tmp/hal7502.imp" VAL = *_imp_INTEGER(Q); _imp_current_line = 408; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 408 "regression-bugs-tmp/hal7502.imp" Q = (((int)(Q)) + (1)); // 409 // 410 GET:%CYCLE _imp_current_line = 410; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 410 "regression-bugs-tmp/hal7502.imp" U_1002:; _imp_current_line = 410; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 410 "regression-bugs-tmp/hal7502.imp" L_006a:; // 411 %RETURN %IF Q = QLIM _imp_current_line = 411; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 411 "regression-bugs-tmp/hal7502.imp" if (((Q) != (QLIM))) goto L_006d; #line 411 "regression-bugs-tmp/hal7502.imp" return; #line 411 "regression-bugs-tmp/hal7502.imp" L_006d:; // 412 K = INTEGER(Q); Q = Q+1 _imp_current_line = 412; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 412 "regression-bugs-tmp/hal7502.imp" K = *_imp_INTEGER(Q); _imp_current_line = 412; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 412 "regression-bugs-tmp/hal7502.imp" Q = (((int)(Q)) + (1)); // 413 ->ASS(K) %IF K < 0 _imp_current_line = 413; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 413 "regression-bugs-tmp/hal7502.imp" if (((K) >= (0))) goto L_006e; #line 413 "regression-bugs-tmp/hal7502.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 413 "regression-bugs-tmp/hal7502.imp" L_006e:; // 414 INTEGER(NQ) = TYPE1; INTEGER(NQ+1) = VAL1 _imp_current_line = 414; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 414 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER(NQ) = TYPE1; _imp_current_line = 414; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 414 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER((((int)(NQ)) + (1))) = VAL1; // 415 NQ = NQ+2 _imp_current_line = 415; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 415 "regression-bugs-tmp/hal7502.imp" NQ = (((int)(NQ)) + (2)); // 416 TYPE1 = TYPE; VAL1 = VAL _imp_current_line = 416; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 416 "regression-bugs-tmp/hal7502.imp" TYPE1 = TYPE; _imp_current_line = 416; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 416 "regression-bugs-tmp/hal7502.imp" VAL1 = VAL; // 417 TYPE = K; VAL = INTEGER(Q); Q = Q+1 _imp_current_line = 417; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 417 "regression-bugs-tmp/hal7502.imp" TYPE = K; _imp_current_line = 417; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 417 "regression-bugs-tmp/hal7502.imp" VAL = *_imp_INTEGER(Q); _imp_current_line = 417; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 417 "regression-bugs-tmp/hal7502.imp" Q = (((int)(Q)) + (1)); // 418 %REPEAT _imp_current_line = 418; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 418 "regression-bugs-tmp/hal7502.imp" goto L_006a; // 419 // 420 %PREDICATE TEMP _imp_current_line = 420; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 420 "regression-bugs-tmp/hal7502.imp" int /*Boolean*/ TEMP( void ) #line 420 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 421 %FALSE %IF TYPE1 # REG _imp_current_line = 421; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 421 "regression-bugs-tmp/hal7502.imp" if (((TYPE1) == (REG))) goto L_006b; #line 421 "regression-bugs-tmp/hal7502.imp" return 0; #line 421 "regression-bugs-tmp/hal7502.imp" L_006b:; // 422 %IF VAL1 = DREG %START _imp_current_line = 422; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 422 "regression-bugs-tmp/hal7502.imp" if (((VAL1) != (DREG))) goto L_006f; // 423 %FALSE %IF DUSE # 1 _imp_current_line = 423; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 423 "regression-bugs-tmp/hal7502.imp" if (((DUSE) == (1))) goto L_0070; #line 423 "regression-bugs-tmp/hal7502.imp" return 0; #line 423 "regression-bugs-tmp/hal7502.imp" L_0070:; // 424 %finish %ELSE %START _imp_current_line = 424; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 424 "regression-bugs-tmp/hal7502.imp" goto L_0071; #line 424 "regression-bugs-tmp/hal7502.imp" L_006f:; // 425 %FALSE %IF 1<GET _imp_current_line = 457; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 457 "regression-bugs-tmp/hal7502.imp" goto U_1002; // 458 // 459 ASS(-2): _imp_current_line = 459; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 459 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_2:; // 460 OP = SUB _imp_current_line = 460; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 460 "regression-bugs-tmp/hal7502.imp" OP = SUB; // 461 ->NOP %IF MODE > 0 %AND TYPE # 0 _imp_current_line = 461; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 461 "regression-bugs-tmp/hal7502.imp" if (((MODE) <= (0))) goto L_0080; #line 461 "regression-bugs-tmp/hal7502.imp" if (((TYPE) == (0))) goto L_0080; #line 461 "regression-bugs-tmp/hal7502.imp" goto U_1003; #line 461 "regression-bugs-tmp/hal7502.imp" L_0080:; // 462 TYPE1 = 0 %AND TYPE = 0 %IF MODE <= 0 %AND TYPE1 = TYPE _imp_current_line = 462; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 462 "regression-bugs-tmp/hal7502.imp" if (((MODE) > (0))) goto L_0081; #line 462 "regression-bugs-tmp/hal7502.imp" if (((TYPE1) != (TYPE))) goto L_0081; #line 462 "regression-bugs-tmp/hal7502.imp" TYPE1 = 0; #line 462 "regression-bugs-tmp/hal7502.imp" TYPE = 0; #line 462 "regression-bugs-tmp/hal7502.imp" L_0081:; // 463 VAL = -VAL _imp_current_line = 463; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 463 "regression-bugs-tmp/hal7502.imp" VAL = (-(VAL)); // 464 ASS(-1): _imp_current_line = 464; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 464 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_1:; // 465 OP = ADD; LITVAL = VAL1+VAL _imp_current_line = 465; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 465 "regression-bugs-tmp/hal7502.imp" OP = ADD; _imp_current_line = 465; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 465 "regression-bugs-tmp/hal7502.imp" LITVAL = (((int)(VAL1)) + (VAL)); // 466 ->BOP %UNLESS TYPE = 0 _imp_current_line = 466; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 466 "regression-bugs-tmp/hal7502.imp" if (((TYPE) == (0))) goto L_0082; #line 466 "regression-bugs-tmp/hal7502.imp" goto U_1004; #line 466 "regression-bugs-tmp/hal7502.imp" L_0082:; // 467 %IF TYPE1&MEMMASK # 0 %AND MODE > 0 %START _imp_current_line = 467; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 467 "regression-bugs-tmp/hal7502.imp" if (((((TYPE1) & (MEMMASK))) == (0))) goto L_0083; #line 467 "regression-bugs-tmp/hal7502.imp" if (((MODE) <= (0))) goto L_0083; // 468 SWOP; LOAD TEMP; SWOP _imp_current_line = 468; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 468 "regression-bugs-tmp/hal7502.imp" SWOP(); _imp_current_line = 468; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 468 "regression-bugs-tmp/hal7502.imp" LOADTEMP(); _imp_current_line = 468; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 468 "regression-bugs-tmp/hal7502.imp" SWOP(); // 469 %FINISH _imp_current_line = 469; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 469 "regression-bugs-tmp/hal7502.imp" L_0083:; // 470 %IF TYPE1 = REG %AND %NOT TYPE=VAL=0 %START _imp_current_line = 470; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 470 "regression-bugs-tmp/hal7502.imp" if (((TYPE1) != (REG))) goto L_0084; #line 470 "regression-bugs-tmp/hal7502.imp" if ((((TYPE) != (VAL))) || (((VAL) == (0)))) goto L_0084; #line 470 "regression-bugs-tmp/hal7502.imp" L_0085:; // 471 TYPE1 = XMASK+VAL1; LITVAL = VAL _imp_current_line = 471; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 471 "regression-bugs-tmp/hal7502.imp" TYPE1 = (((int)(XMASK)) + (VAL1)); _imp_current_line = 471; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 471 "regression-bugs-tmp/hal7502.imp" LITVAL = VAL; // 472 %FINISH _imp_current_line = 472; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 472 "regression-bugs-tmp/hal7502.imp" L_0084:; // 473 TYPE = TYPE1; VAL = LITVAL _imp_current_line = 473; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 473 "regression-bugs-tmp/hal7502.imp" TYPE = TYPE1; _imp_current_line = 473; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 473 "regression-bugs-tmp/hal7502.imp" VAL = LITVAL; // 474 ->POP _imp_current_line = 474; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 474 "regression-bugs-tmp/hal7502.imp" goto U_1005; // 475 ASS(-6): _imp_current_line = 475; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 475 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_6:; // 476 LITVAL = VAL1<AS7 _imp_current_line = 478; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 478 "regression-bugs-tmp/hal7502.imp" goto U_1006; // 479 ASS(-7): _imp_current_line = 479; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 479 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_7:; // 480 LITVAL = VAL1>>VAL; K = (16_FFFF)>>VAL _imp_current_line = 480; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 480 "regression-bugs-tmp/hal7502.imp" LITVAL = (int)((((unsigned int)(VAL1)) >> (VAL))); _imp_current_line = 480; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 480 "regression-bugs-tmp/hal7502.imp" K = (int)((((unsigned int)(65535)) >> (VAL))); // 481 AS7:K=0 %AND ->BOP %IF MODE <= 0 _imp_current_line = 481; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 481 "regression-bugs-tmp/hal7502.imp" U_1006:; _imp_current_line = 481; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 481 "regression-bugs-tmp/hal7502.imp" if (((MODE) > (0))) goto L_0086; #line 481 "regression-bugs-tmp/hal7502.imp" K = 0; #line 481 "regression-bugs-tmp/hal7502.imp" goto U_1004; #line 481 "regression-bugs-tmp/hal7502.imp" L_0086:; // 482 FAULT('I') %IF TYPE # 0 %OR VAL&(\15) # 0 _imp_current_line = 482; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 482 "regression-bugs-tmp/hal7502.imp" if (((TYPE) != (0))) goto L_0087; #line 482 "regression-bugs-tmp/hal7502.imp" if (((((VAL) & ((~(15))))) == (0))) goto L_0088; #line 482 "regression-bugs-tmp/hal7502.imp" L_0087:; #line 482 "regression-bugs-tmp/hal7502.imp" FAULT(73); #line 482 "regression-bugs-tmp/hal7502.imp" L_0088:; // 483 %IF %NOT TEMP %START _imp_current_line = 483; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 483 "regression-bugs-tmp/hal7502.imp" if (TEMP()) goto L_0089; // 484 SWOP; LOAD TEMP; SWOP _imp_current_line = 484; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 484 "regression-bugs-tmp/hal7502.imp" SWOP(); _imp_current_line = 484; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 484 "regression-bugs-tmp/hal7502.imp" LOADTEMP(); _imp_current_line = 484; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 484 "regression-bugs-tmp/hal7502.imp" SWOP(); // 485 %FINISH _imp_current_line = 485; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 485 "regression-bugs-tmp/hal7502.imp" L_0089:; // 486 OP = ROT+VAL1<<8+VAL1 _imp_current_line = 486; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 486 "regression-bugs-tmp/hal7502.imp" OP = (((int)(((ROT) + ((int)(((VAL1) << (8))))))) + (VAL1)); // 487 PLANT INST(OP+16_0070) %IF VAL > 8 _imp_current_line = 487; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 487 "regression-bugs-tmp/hal7502.imp" if (((VAL) <= (8))) goto L_008a; #line 487 "regression-bugs-tmp/hal7502.imp" PLANTINST((((int)(OP)) + (112))); #line 487 "regression-bugs-tmp/hal7502.imp" L_008a:; // 488 PLANT INST(OP+(VAL-1)<<4) %IF VAL # 0 _imp_current_line = 488; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 488 "regression-bugs-tmp/hal7502.imp" if (((VAL) == (0))) goto L_008b; #line 488 "regression-bugs-tmp/hal7502.imp" PLANTINST(((OP) + ((int)((((((int)(VAL)) - (1))) << (4)))))); #line 488 "regression-bugs-tmp/hal7502.imp" L_008b:; // 489 TYPE = 0; VAL = K; K = -3 _imp_current_line = 489; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 489 "regression-bugs-tmp/hal7502.imp" TYPE = 0; _imp_current_line = 489; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 489 "regression-bugs-tmp/hal7502.imp" VAL = K; _imp_current_line = 489; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 489 "regression-bugs-tmp/hal7502.imp" K = (-3); // 490 ASS(-3): _imp_current_line = 490; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 490 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_3:; // 491 OP = AND; LITVAL = VAL1&VAL _imp_current_line = 491; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 491 "regression-bugs-tmp/hal7502.imp" OP = AND; _imp_current_line = 491; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 491 "regression-bugs-tmp/hal7502.imp" LITVAL = ((VAL1) & (VAL)); // 492 ->BOP _imp_current_line = 492; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 492 "regression-bugs-tmp/hal7502.imp" goto U_1004; // 493 ASS(-4): _imp_current_line = 493; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 493 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_4:; // 494 OP = OR; LITVAL = VAL1!VAL _imp_current_line = 494; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 494 "regression-bugs-tmp/hal7502.imp" OP = OR; _imp_current_line = 494; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 494 "regression-bugs-tmp/hal7502.imp" LITVAL = ((VAL1) | (VAL)); // 495 ->BOP _imp_current_line = 495; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 495 "regression-bugs-tmp/hal7502.imp" goto U_1004; // 496 ASS(-5): _imp_current_line = 496; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 496 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_5:; // 497 OP = XOR; LITVAL = VAL1!!VAL _imp_current_line = 497; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 497 "regression-bugs-tmp/hal7502.imp" OP = XOR; _imp_current_line = 497; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 497 "regression-bugs-tmp/hal7502.imp" LITVAL = ((VAL1) ^ (VAL)); // 498 ->BOP _imp_current_line = 498; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 498 "regression-bugs-tmp/hal7502.imp" goto U_1004; // 499 // 500 ASS(-8): !TYPE_VAL _imp_current_line = 500; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 500 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_8:; // 501 TYPE = VAL1 _imp_current_line = 501; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 501 "regression-bugs-tmp/hal7502.imp" TYPE = VAL1; // 502 TYPE = 0 %IF TYPE&OPMASK = MACRO; !SAFETY _imp_current_line = 502; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 502 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (OPMASK))) != (MACRO))) goto L_008c; #line 502 "regression-bugs-tmp/hal7502.imp" TYPE = 0; #line 502 "regression-bugs-tmp/hal7502.imp" L_008c:; // 503 TYPE = 0 %IF TYPE&(OPMASK+FMASK) = FMASK _imp_current_line = 503; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 503 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & ((((int)(OPMASK)) + (FMASK))))) != (FMASK))) goto L_008d; #line 503 "regression-bugs-tmp/hal7502.imp" TYPE = 0; #line 503 "regression-bugs-tmp/hal7502.imp" L_008d:; // 504 ->POP _imp_current_line = 504; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 504 "regression-bugs-tmp/hal7502.imp" goto U_1005; // 505 // 506 ASS(-11): !COMPARE _imp_current_line = 506; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 506 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_11:; // 507 K = INTEGER(Q); Q = Q+1 _imp_current_line = 507; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 507 "regression-bugs-tmp/hal7502.imp" K = *_imp_INTEGER(Q); _imp_current_line = 507; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 507 "regression-bugs-tmp/hal7502.imp" Q = (((int)(Q)) + (1)); // 508 %IF MODE <= 0 %START _imp_current_line = 508; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 508 "regression-bugs-tmp/hal7502.imp" if (((MODE) > (0))) goto L_008e; // 509 LITVAL = 2_01011000 _imp_current_line = 509; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 509 "regression-bugs-tmp/hal7502.imp" LITVAL = 88; // 510 LITVAL = 2_01100100 %IF VAL < 0 _imp_current_line = 510; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 510 "regression-bugs-tmp/hal7502.imp" if (((VAL) >= (0))) goto L_008f; #line 510 "regression-bugs-tmp/hal7502.imp" LITVAL = 100; #line 510 "regression-bugs-tmp/hal7502.imp" L_008f:; // 511 LITVAL = 2_10101000 %IF VAL1 > VAL _imp_current_line = 511; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 511 "regression-bugs-tmp/hal7502.imp" if (((VAL1) <= (VAL))) goto L_0090; #line 511 "regression-bugs-tmp/hal7502.imp" LITVAL = 168; #line 511 "regression-bugs-tmp/hal7502.imp" L_0090:; // 512 K = LITVAL>>K&1; _imp_current_line = 512; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 512 "regression-bugs-tmp/hal7502.imp" K = (((int)((((unsigned int)(LITVAL)) >> (K)))) & (1)); // 513 %finish %ELSE %START _imp_current_line = 513; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 513 "regression-bugs-tmp/hal7502.imp" goto L_0091; #line 513 "regression-bugs-tmp/hal7502.imp" L_008e:; // 514 %UNLESS K&6=4 %AND -256= (VAL))) || (((VAL) >= (0)))) goto L_0092; #line 514 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (XMASK))) != (0))) goto L_0093; #line 514 "regression-bugs-tmp/hal7502.imp" L_0092:; // 515 LOAD TEMP %IF TYPE # REG _imp_current_line = 515; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 515 "regression-bugs-tmp/hal7502.imp" if (((TYPE) == (REG))) goto L_0094; #line 515 "regression-bugs-tmp/hal7502.imp" LOADTEMP(); #line 515 "regression-bugs-tmp/hal7502.imp" L_0094:; // 516 PLANT INST(COPY+VAL<<4+VAL) %IF CREG # VAL _imp_current_line = 516; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 516 "regression-bugs-tmp/hal7502.imp" if (((CREG) == (VAL))) goto L_0095; #line 516 "regression-bugs-tmp/hal7502.imp" PLANTINST((((int)(((COPY) + ((int)(((VAL) << (4))))))) + (VAL))); #line 516 "regression-bugs-tmp/hal7502.imp" L_0095:; // 517 CREG = VAL _imp_current_line = 517; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 517 "regression-bugs-tmp/hal7502.imp" CREG = VAL; // 518 %finish %ELSE %START _imp_current_line = 518; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 518 "regression-bugs-tmp/hal7502.imp" goto L_0096; #line 518 "regression-bugs-tmp/hal7502.imp" L_0093:; // 519 PLANT INST(SKIDI+(TYPE&15)<<8-VAL) _imp_current_line = 519; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 519 "regression-bugs-tmp/hal7502.imp" PLANTINST((((int)(((SKIDI) + ((int)(((((TYPE) & (15))) << (8))))))) - (VAL))); // 520 K = K+4; !8,9 _imp_current_line = 520; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 520 "regression-bugs-tmp/hal7502.imp" K = (((int)(K)) + (4)); // 521 %FINISH _imp_current_line = 521; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 521 "regression-bugs-tmp/hal7502.imp" L_0096:; // 522 %FINISH _imp_current_line = 522; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 522 "regression-bugs-tmp/hal7502.imp" L_0091:; // 523 COND = K _imp_current_line = 523; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 523 "regression-bugs-tmp/hal7502.imp" COND = K; // 524 ->GET _imp_current_line = 524; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 524 "regression-bugs-tmp/hal7502.imp" goto U_1002; // 525 // 526 ASS(-12): !TEST CC _imp_current_line = 526; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 526 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_12:; // 527 COND = VAL!!1 _imp_current_line = 527; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 527 "regression-bugs-tmp/hal7502.imp" COND = ((VAL) ^ (1)); // 528 ->GET _imp_current_line = 528; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 528 "regression-bugs-tmp/hal7502.imp" goto U_1002; // 529 // 530 ASS(-13): !AND _imp_current_line = 530; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 530 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_13:; // 531 %IF MODE > 0 %START _imp_current_line = 531; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 531 "regression-bugs-tmp/hal7502.imp" if (((MODE) <= (0))) goto L_0097; // 532 SET JUMP(16_1000) _imp_current_line = 532; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 532 "regression-bugs-tmp/hal7502.imp" SETJUMP(4096); // 533 %finish %ELSE %START _imp_current_line = 533; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 533 "regression-bugs-tmp/hal7502.imp" goto L_0098; #line 533 "regression-bugs-tmp/hal7502.imp" L_0097:; // 534 %RETURN %IF COND = 0 _imp_current_line = 534; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 534 "regression-bugs-tmp/hal7502.imp" if (((COND) != (0))) goto L_0099; #line 534 "regression-bugs-tmp/hal7502.imp" return; #line 534 "regression-bugs-tmp/hal7502.imp" L_0099:; // 535 %FINISH _imp_current_line = 535; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 535 "regression-bugs-tmp/hal7502.imp" L_0098:; // 536 %RETURN %IF Q = QLIM _imp_current_line = 536; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 536 "regression-bugs-tmp/hal7502.imp" if (((Q) != (QLIM))) goto L_009a; #line 536 "regression-bugs-tmp/hal7502.imp" return; #line 536 "regression-bugs-tmp/hal7502.imp" L_009a:; // 537 ->NEW _imp_current_line = 537; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 537 "regression-bugs-tmp/hal7502.imp" goto U_1001; // 538 // 539 ASS(-14): !OR _imp_current_line = 539; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 539 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_14:; // 540 %IF MODE > 0 %START _imp_current_line = 540; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 540 "regression-bugs-tmp/hal7502.imp" if (((MODE) <= (0))) goto L_009b; // 541 COND = COND!!1 _imp_current_line = 541; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 541 "regression-bugs-tmp/hal7502.imp" COND = ((COND) ^ (1)); // 542 SET JUMP(16_3000) _imp_current_line = 542; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 542 "regression-bugs-tmp/hal7502.imp" SETJUMP(12288); // 543 %finish %ELSE %START _imp_current_line = 543; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 543 "regression-bugs-tmp/hal7502.imp" goto L_009c; #line 543 "regression-bugs-tmp/hal7502.imp" L_009b:; // 544 %RETURN %IF COND # 0 _imp_current_line = 544; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 544 "regression-bugs-tmp/hal7502.imp" if (((COND) == (0))) goto L_009d; #line 544 "regression-bugs-tmp/hal7502.imp" return; #line 544 "regression-bugs-tmp/hal7502.imp" L_009d:; // 545 %FINISH _imp_current_line = 545; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 545 "regression-bugs-tmp/hal7502.imp" L_009c:; // 546 ->NEW _imp_current_line = 546; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 546 "regression-bugs-tmp/hal7502.imp" goto U_1001; // 547 // 548 ASS(-15): !IF _imp_current_line = 548; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 548 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_15:; // 549 SET JUMP(16_2000) _imp_current_line = 549; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 549 "regression-bugs-tmp/hal7502.imp" SETJUMP(8192); // 550 %RETURN _imp_current_line = 550; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 550 "regression-bugs-tmp/hal7502.imp" return; // 551 // 552 ASS(-16): !ELSE _imp_current_line = 552; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 552 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_16:; // 553 COND = 1 _imp_current_line = 553; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 553 "regression-bugs-tmp/hal7502.imp" COND = 1; // 554 SET JUMP(16_4000) _imp_current_line = 554; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 554 "regression-bugs-tmp/hal7502.imp" SETJUMP(16384); // 555 %RETURN _imp_current_line = 555; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 555 "regression-bugs-tmp/hal7502.imp" return; // 556 // 557 ASS(-17): !IF AFTER ELSE _imp_current_line = 557; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 557 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_17:; // 558 SET JUMP(16_6000) _imp_current_line = 558; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 558 "regression-bugs-tmp/hal7502.imp" SETJUMP(24576); // 559 %RETURN _imp_current_line = 559; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 559 "regression-bugs-tmp/hal7502.imp" return; // 560 // 561 ASS(-18): !MACCALL IF _imp_current_line = 561; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 561 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_18:; // 562 SET JUMP(16_8000) _imp_current_line = 562; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 562 "regression-bugs-tmp/hal7502.imp" SETJUMP(32768); // 563 %RETURN _imp_current_line = 563; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 563 "regression-bugs-tmp/hal7502.imp" return; // 564 // 565 ASS(-20): !HASH _imp_current_line = 565; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 565 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_20:; // 566 TYPE = TYPE&(UMASK+63) _imp_current_line = 566; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 566 "regression-bugs-tmp/hal7502.imp" TYPE = ((TYPE) & ((((int)(UMASK)) + (63)))); // 567 ->GET _imp_current_line = 567; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 567 "regression-bugs-tmp/hal7502.imp" goto U_1002; // 568 // 569 ASS(-21): !INDEX _imp_current_line = 569; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 569 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_21:; // 570 FAULT('I') %IF TYPE1®XMASK # 0 _imp_current_line = 570; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 570 "regression-bugs-tmp/hal7502.imp" if (((((TYPE1) & (REGXMASK))) == (0))) goto L_009e; #line 570 "regression-bugs-tmp/hal7502.imp" FAULT(73); #line 570 "regression-bugs-tmp/hal7502.imp" L_009e:; // 571 %IF TYPE&MEMMASK # 0 %START _imp_current_line = 571; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 571 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (MEMMASK))) == (0))) goto L_009f; // 572 %IF MODE > 0 %THEN LOAD TEMP %ELSE FAULT('A') _imp_current_line = 572; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 572 "regression-bugs-tmp/hal7502.imp" if (((MODE) <= (0))) goto L_00a0; #line 572 "regression-bugs-tmp/hal7502.imp" LOADTEMP(); #line 572 "regression-bugs-tmp/hal7502.imp" goto L_00a1; #line 572 "regression-bugs-tmp/hal7502.imp" L_00a0:; #line 572 "regression-bugs-tmp/hal7502.imp" FAULT(65); #line 572 "regression-bugs-tmp/hal7502.imp" L_00a1:; // 573 %FINISH _imp_current_line = 573; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 573 "regression-bugs-tmp/hal7502.imp" L_009f:; // 574 %IF TYPE = REG %START _imp_current_line = 574; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 574 "regression-bugs-tmp/hal7502.imp" if (((TYPE) != (REG))) goto L_00a2; // 575 TYPE = XMASK+VAL; VAL = 0 _imp_current_line = 575; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 575 "regression-bugs-tmp/hal7502.imp" TYPE = (((int)(XMASK)) + (VAL)); _imp_current_line = 575; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 575 "regression-bugs-tmp/hal7502.imp" VAL = 0; // 576 %FINISH _imp_current_line = 576; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 576 "regression-bugs-tmp/hal7502.imp" L_00a2:; // 577 FAULT('I') %IF TYPE1&TYPE&RELMASK # 0 _imp_current_line = 577; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 577 "regression-bugs-tmp/hal7502.imp" if (((((((TYPE1) & (TYPE))) & (RELMASK))) == (0))) goto L_00a3; #line 577 "regression-bugs-tmp/hal7502.imp" FAULT(73); #line 577 "regression-bugs-tmp/hal7502.imp" L_00a3:; // 578 TYPE = TYPE1!TYPE!MEMMASK; VAL = VAL1+VAL _imp_current_line = 578; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 578 "regression-bugs-tmp/hal7502.imp" TYPE = ((((TYPE1) | (TYPE))) | (MEMMASK)); _imp_current_line = 578; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 578 "regression-bugs-tmp/hal7502.imp" VAL = (((int)(VAL1)) + (VAL)); // 579 ->POP _imp_current_line = 579; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 579 "regression-bugs-tmp/hal7502.imp" goto U_1005; // 580 // 581 ASS(-22): !MINST SEPARATOR _imp_current_line = 581; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 581 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_22:; // 582 COMBINE _imp_current_line = 582; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 582 "regression-bugs-tmp/hal7502.imp" COMBINE(); // 583 ->POP _imp_current_line = 583; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 583 "regression-bugs-tmp/hal7502.imp" goto U_1005; // 584 // 585 ASS(-23): !PLANT INST _imp_current_line = 585; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 585 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_23:; // 586 MODE = 1 _imp_current_line = 586; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 586 "regression-bugs-tmp/hal7502.imp" MODE = 1; // 587 PLANT INST(VAL) _imp_current_line = 587; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 587 "regression-bugs-tmp/hal7502.imp" PLANTINST(VAL); // 588 CREG = -1; ATYPE = -1 _imp_current_line = 588; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 588 "regression-bugs-tmp/hal7502.imp" CREG = (-1); _imp_current_line = 588; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 588 "regression-bugs-tmp/hal7502.imp" ATYPE = (-1); // 589 %RETURN _imp_current_line = 589; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 589 "regression-bugs-tmp/hal7502.imp" return; // 590 // 591 ASS(-24): !LOAD _imp_current_line = 591; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 591 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_24:; // 592 LOAD TEMP %IF TYPE # REG _imp_current_line = 592; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 592 "regression-bugs-tmp/hal7502.imp" if (((TYPE) == (REG))) goto L_00a4; #line 592 "regression-bugs-tmp/hal7502.imp" LOADTEMP(); #line 592 "regression-bugs-tmp/hal7502.imp" L_00a4:; // 593 Q = QBASE _imp_current_line = 593; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 593 "regression-bugs-tmp/hal7502.imp" Q = QBASE; // 594 ->GET _imp_current_line = 594; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 594 "regression-bugs-tmp/hal7502.imp" goto U_1002; // 595 // 596 ASS(-25): !STORE (TYPE1,VAL1 -> TYPE,VAL) _imp_current_line = 596; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 596 "regression-bugs-tmp/hal7502.imp" sw1_ASS_M_25:; // 597 %IF TYPE = REG %START _imp_current_line = 597; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 597 "regression-bugs-tmp/hal7502.imp" if (((TYPE) != (REG))) goto L_00a5; // 598 SWOP %AND LOAD REG(VAL1) %IF VAL1 # VAL _imp_current_line = 598; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 598 "regression-bugs-tmp/hal7502.imp" if (((VAL1) == (VAL))) goto L_00a6; #line 598 "regression-bugs-tmp/hal7502.imp" SWOP(); #line 598 "regression-bugs-tmp/hal7502.imp" LOADREG(VAL1); #line 598 "regression-bugs-tmp/hal7502.imp" L_00a6:; // 599 %finish %ELSE %START _imp_current_line = 599; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 599 "regression-bugs-tmp/hal7502.imp" goto L_00a7; #line 599 "regression-bugs-tmp/hal7502.imp" L_00a5:; // 600 ATYPE = -1 %IF ATYPE&MEMMASK # 0 _imp_current_line = 600; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 600 "regression-bugs-tmp/hal7502.imp" if (((((ATYPE) & (MEMMASK))) == (0))) goto L_00a8; #line 600 "regression-bugs-tmp/hal7502.imp" ATYPE = (-1); #line 600 "regression-bugs-tmp/hal7502.imp" L_00a8:; // 601 %IF VAL1 = ACC %AND ATYPE < 0 %START _imp_current_line = 601; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 601 "regression-bugs-tmp/hal7502.imp" if (((VAL1) != (ACC))) goto L_00a9; #line 601 "regression-bugs-tmp/hal7502.imp" if (((ATYPE) >= (0))) goto L_00a9; // 602 K = TYPE&15 _imp_current_line = 602; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 602 "regression-bugs-tmp/hal7502.imp" K = ((TYPE) & (15)); // 603 ATYPE = TYPE %AND AVAL = VAL %IF TYPE&XMASK = 0 %OR 1<= 0 %START _imp_current_line = 657; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 657 "regression-bugs-tmp/hal7502.imp" if (((K) < (0))) goto L_00bc; // 658 TERM = -1 %AND %RETURN %IF K < 10 _imp_current_line = 658; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 658 "regression-bugs-tmp/hal7502.imp" if (((K) >= (10))) goto L_00bd; #line 658 "regression-bugs-tmp/hal7502.imp" TERM = (-1); #line 658 "regression-bugs-tmp/hal7502.imp" return; #line 658 "regression-bugs-tmp/hal7502.imp" L_00bd:; // 659 K = SYM-'A' _imp_current_line = 659; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 659 "regression-bugs-tmp/hal7502.imp" K = (((int)(SYM)) - (65)); // 660 %RETURN %IF K >= 0 %AND K < 26 %AND TERM = 0 _imp_current_line = 660; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 660 "regression-bugs-tmp/hal7502.imp" if (((K) < (0))) goto L_00be; #line 660 "regression-bugs-tmp/hal7502.imp" if (((K) >= (26))) goto L_00be; #line 660 "regression-bugs-tmp/hal7502.imp" if (((TERM) != (0))) goto L_00be; #line 660 "regression-bugs-tmp/hal7502.imp" return; #line 660 "regression-bugs-tmp/hal7502.imp" L_00be:; // 661 %FINISH _imp_current_line = 661; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 661 "regression-bugs-tmp/hal7502.imp" L_00bc:; // 662 TERM = SYM _imp_current_line = 662; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 662 "regression-bugs-tmp/hal7502.imp" TERM = SYM; // 663 %END _imp_current_line = 663; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 663 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block CODESYM at level 3 // 664 %ROUTINE PACK TRIPLE _imp_current_line = 664; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 664 "regression-bugs-tmp/hal7502.imp" void PACKTRIPLE( void ) #line 664 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 665 ->T1 %IF TERM < 0 _imp_current_line = 665; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 665 "regression-bugs-tmp/hal7502.imp" if (((TERM) >= (0))) goto L_00bf; #line 665 "regression-bugs-tmp/hal7502.imp" goto U_1007; #line 665 "regression-bugs-tmp/hal7502.imp" L_00bf:; // 666 J = ((K<<5+K)<<1+K)<<4+K+1111; !K*1073+1111 _imp_current_line = 666; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 666 "regression-bugs-tmp/hal7502.imp" J = (((int)((((int)((((((int)((((((int)(((K) << (5)))) + (K))) << (1)))) + (K))) << (4)))) + (K)))) + (1111)); // 667 CODE SYM _imp_current_line = 667; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 667 "regression-bugs-tmp/hal7502.imp" CODESYM(); // 668 ->T2 %IF TERM # 0 _imp_current_line = 668; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 668 "regression-bugs-tmp/hal7502.imp" if (((TERM) == (0))) goto L_00c0; #line 668 "regression-bugs-tmp/hal7502.imp" goto U_1008; #line 668 "regression-bugs-tmp/hal7502.imp" L_00c0:; // 669 J = (K<<3+K)<<2+K+111+J; !J+K*37+111 _imp_current_line = 669; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 669 "regression-bugs-tmp/hal7502.imp" J = (((int)((((int)((((int)((((((int)(((K) << (3)))) + (K))) << (2)))) + (K)))) + (111)))) + (J)); // 670 CODE SYM _imp_current_line = 670; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 670 "regression-bugs-tmp/hal7502.imp" CODESYM(); // 671 ->T3 %IF TERM # 0 _imp_current_line = 671; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 671 "regression-bugs-tmp/hal7502.imp" if (((TERM) == (0))) goto L_00c1; #line 671 "regression-bugs-tmp/hal7502.imp" goto U_1009; #line 671 "regression-bugs-tmp/hal7502.imp" L_00c1:; // 672 J = J+K+11 _imp_current_line = 672; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 672 "regression-bugs-tmp/hal7502.imp" J = (((int)((((int)(J)) + (K)))) + (11)); // 673 CODE SYM _imp_current_line = 673; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 673 "regression-bugs-tmp/hal7502.imp" CODESYM(); // 674 %RETURN _imp_current_line = 674; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 674 "regression-bugs-tmp/hal7502.imp" return; // 675 T1: J = ((K<<1+K)<<1+K)<<4-K+1; !K*111+1 _imp_current_line = 675; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 675 "regression-bugs-tmp/hal7502.imp" U_1007:; _imp_current_line = 675; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 675 "regression-bugs-tmp/hal7502.imp" J = (((int)((((int)((((((int)((((((int)(((K) << (1)))) + (K))) << (1)))) + (K))) << (4)))) - (K)))) + (1)); // 676 CODE SYM _imp_current_line = 676; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 676 "regression-bugs-tmp/hal7502.imp" CODESYM(); // 677 T2: %RETURN %IF TERM > 0 _imp_current_line = 677; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 677 "regression-bugs-tmp/hal7502.imp" U_1008:; _imp_current_line = 677; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 677 "regression-bugs-tmp/hal7502.imp" if (((TERM) <= (0))) goto L_00c2; #line 677 "regression-bugs-tmp/hal7502.imp" return; #line 677 "regression-bugs-tmp/hal7502.imp" L_00c2:; // 678 J = (K<<2+K)<<1+K+1+J; !J+K*11+1 _imp_current_line = 678; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 678 "regression-bugs-tmp/hal7502.imp" J = (((int)((((int)((((int)((((((int)(((K) << (2)))) + (K))) << (1)))) + (K)))) + (1)))) + (J)); // 679 CODE SYM _imp_current_line = 679; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 679 "regression-bugs-tmp/hal7502.imp" CODESYM(); // 680 T3: %RETURN %IF TERM > 0 _imp_current_line = 680; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 680 "regression-bugs-tmp/hal7502.imp" U_1009:; _imp_current_line = 680; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 680 "regression-bugs-tmp/hal7502.imp" if (((TERM) <= (0))) goto L_00c3; #line 680 "regression-bugs-tmp/hal7502.imp" return; #line 680 "regression-bugs-tmp/hal7502.imp" L_00c3:; // 681 J = J+K+1 _imp_current_line = 681; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 681 "regression-bugs-tmp/hal7502.imp" J = (((int)((((int)(J)) + (K)))) + (1)); // 682 CODE SYM _imp_current_line = 682; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 682 "regression-bugs-tmp/hal7502.imp" CODESYM(); // 683 %END _imp_current_line = 683; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 683 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block PACKTRIPLE at level 3 // 684 K = SYM-'A' _imp_current_line = 684; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 684 "regression-bugs-tmp/hal7502.imp" K = (((int)(SYM)) - (65)); // 685 %FALSE %UNLESS K >= 0 %AND K < 26 _imp_current_line = 685; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 685 "regression-bugs-tmp/hal7502.imp" if (((K) < (0))) goto L_00c4; #line 685 "regression-bugs-tmp/hal7502.imp" if (((K) < (26))) goto L_00c5; #line 685 "regression-bugs-tmp/hal7502.imp" L_00c4:; #line 685 "regression-bugs-tmp/hal7502.imp" return 0; #line 685 "regression-bugs-tmp/hal7502.imp" L_00c5:; // 686 %FALSE %IF SYM = 'X' %AND CHAR(GETPOS)&128 # 0 _imp_current_line = 686; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 686 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (88))) goto L_00c6; #line 686 "regression-bugs-tmp/hal7502.imp" if (((((CHAR(GETPOS)) & (128))) == (0))) goto L_00c6; #line 686 "regression-bugs-tmp/hal7502.imp" return 0; #line 686 "regression-bugs-tmp/hal7502.imp" L_00c6:; // 687 TERM = 0 _imp_current_line = 687; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 687 "regression-bugs-tmp/hal7502.imp" TERM = 0; // 688 PACK TRIPLE _imp_current_line = 688; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 688 "regression-bugs-tmp/hal7502.imp" PACKTRIPLE(); // 689 TAG1 = J; J = 0 _imp_current_line = 689; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 689 "regression-bugs-tmp/hal7502.imp" TAG1 = J; _imp_current_line = 689; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 689 "regression-bugs-tmp/hal7502.imp" J = 0; // 690 PACK TRIPLE %IF TERM <= 0 _imp_current_line = 690; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 690 "regression-bugs-tmp/hal7502.imp" if (((TERM) > (0))) goto L_00c7; #line 690 "regression-bugs-tmp/hal7502.imp" PACKTRIPLE(); #line 690 "regression-bugs-tmp/hal7502.imp" L_00c7:; // 691 TAG2 = J _imp_current_line = 691; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 691 "regression-bugs-tmp/hal7502.imp" TAG2 = J; // 692 CODE SYM %WHILE TERM <= 0 _imp_current_line = 692; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 692 "regression-bugs-tmp/hal7502.imp" L_00c8:; #line 692 "regression-bugs-tmp/hal7502.imp" if (((TERM) > (0))) goto L_00c9; #line 692 "regression-bugs-tmp/hal7502.imp" CODESYM(); #line 692 "regression-bugs-tmp/hal7502.imp" goto L_00c8; #line 692 "regression-bugs-tmp/hal7502.imp" L_00c9:; // 693 GET SYM %IF TERM = ' ' _imp_current_line = 693; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 693 "regression-bugs-tmp/hal7502.imp" if (((TERM) != (32))) goto L_00cb; #line 693 "regression-bugs-tmp/hal7502.imp" GETSYM(); #line 693 "regression-bugs-tmp/hal7502.imp" L_00cb:; // 694 %TRUE _imp_current_line = 694; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 694 "regression-bugs-tmp/hal7502.imp" return 1; // 695 %END _imp_current_line = 695; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 695 "regression-bugs-tmp/hal7502.imp" _imp_endofblock: ; } // End of block TAG at level 2 // 696 // 697 %PREDICATE TAGIF _imp_current_line = 697; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 697 "regression-bugs-tmp/hal7502.imp" int /*Boolean*/ TAGIF( void ) #line 697 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 698 %FALSE %UNLESS SYM='I' %AND CHAR(GETPOS)='F' %AND CHAR(GETPOS+1)=' ' _imp_current_line = 698; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 698 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (73))) goto L_00ca; #line 698 "regression-bugs-tmp/hal7502.imp" if (((CHAR(GETPOS)) != (70))) goto L_00ca; #line 698 "regression-bugs-tmp/hal7502.imp" if (((CHAR((((int)(GETPOS)) + (1)))) == (32))) goto L_00cc; #line 698 "regression-bugs-tmp/hal7502.imp" L_00ca:; #line 698 "regression-bugs-tmp/hal7502.imp" return 0; #line 698 "regression-bugs-tmp/hal7502.imp" L_00cc:; // 699 GETPOS = GETPOS+2 _imp_current_line = 699; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 699 "regression-bugs-tmp/hal7502.imp" GETPOS = (((int)(GETPOS)) + (2)); // 700 GET SYM _imp_current_line = 700; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 700 "regression-bugs-tmp/hal7502.imp" GETSYM(); // 701 %TRUE _imp_current_line = 701; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 701 "regression-bugs-tmp/hal7502.imp" return 1; // 702 %END _imp_current_line = 702; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 702 "regression-bugs-tmp/hal7502.imp" _imp_endofblock: ; } // End of block TAGIF at level 2 // 703 // 704 %ROUTINE LOOKUP(%INTEGER CONTROL) _imp_current_line = 704; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 704 "regression-bugs-tmp/hal7502.imp" void LOOKUP( int CONTROL ) #line 704 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 705 !ALL DICT OPERATIONS LOCALISED HERE // 706 !CONTROL = 0 (LOOKUP ONLY), 1 (FORWARD OK), // 707 ! 2 (REDEF), 3 (DEF), // 708 ! 4 (MACPARM), 7 (LABEL) // 709 %INTEGER DP _imp_current_line = 709; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 709 "regression-bugs-tmp/hal7502.imp" int DP; // 710 DP = DEFMIN; DP = MP+5 %IF CONTROL = 4 _imp_current_line = 710; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 710 "regression-bugs-tmp/hal7502.imp" DP = DEFMIN; _imp_current_line = 710; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 710 "regression-bugs-tmp/hal7502.imp" if (((CONTROL) != (4))) goto L_00cd; #line 710 "regression-bugs-tmp/hal7502.imp" DP = (((int)(MP)) + (5)); #line 710 "regression-bugs-tmp/hal7502.imp" L_00cd:; // 711 %WHILE INTEGER(DP) # 0 %CYCLE _imp_current_line = 711; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 711 "regression-bugs-tmp/hal7502.imp" L_00ce:; #line 711 "regression-bugs-tmp/hal7502.imp" if (((*_imp_INTEGER(DP)) == (0))) goto L_00cf; // 712 ->YES %IF INTEGER(DP) = TAG1 %AND INTEGER(DP+1) = TAG2 _imp_current_line = 712; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 712 "regression-bugs-tmp/hal7502.imp" if (((*_imp_INTEGER(DP)) != (TAG1))) goto L_00d1; #line 712 "regression-bugs-tmp/hal7502.imp" if (((*_imp_INTEGER((((int)(DP)) + (1)))) != (TAG2))) goto L_00d1; #line 712 "regression-bugs-tmp/hal7502.imp" goto U_1007; #line 712 "regression-bugs-tmp/hal7502.imp" L_00d1:; // 713 DP = DP+4 _imp_current_line = 713; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 713 "regression-bugs-tmp/hal7502.imp" DP = (((int)(DP)) + (4)); // 714 %REPEAT _imp_current_line = 714; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 714 "regression-bugs-tmp/hal7502.imp" goto L_00ce; #line 714 "regression-bugs-tmp/hal7502.imp" L_00cf:; // 715 !!%OWNINTEGER P // 716 !! DP = DP-4 // 717 !!REP:DP = DP+4 // 718 !! %LAC* DP; %OPR 640;!SNA; %JMP NO // 719 !! %SAD TAG1; %OPR 512; %JMP REP // 720 !! %LAC DP; %TAD #1; %DAC P // 721 !! %LAC* P; %SAD TAG2; %JMP YES // 722 !! ->REP // 723 NO: _imp_current_line = 723; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 723 "regression-bugs-tmp/hal7502.imp" U_1008:; // 724 %RETURN %IF CONTROL&1 = 0; !NO CREATION _imp_current_line = 724; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 724 "regression-bugs-tmp/hal7502.imp" if (((((CONTROL) & (1))) != (0))) goto L_00d2; #line 724 "regression-bugs-tmp/hal7502.imp" return; #line 724 "regression-bugs-tmp/hal7502.imp" L_00d2:; // 725 NEW:DEFMIN = DEFMIN-4; DP = DEFMIN _imp_current_line = 725; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 725 "regression-bugs-tmp/hal7502.imp" U_1009:; _imp_current_line = 725; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 725 "regression-bugs-tmp/hal7502.imp" DEFMIN = (((int)(DEFMIN)) - (4)); _imp_current_line = 725; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 725 "regression-bugs-tmp/hal7502.imp" DP = DEFMIN; // 726 !!%MONITOR 21 %IF DP-QLIM <= 0 // 727 INTEGER(DP) = TAG1; INTEGER(DP+1) = TAG2 _imp_current_line = 727; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 727 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER(DP) = TAG1; _imp_current_line = 727; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 727 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER((((int)(DP)) + (1))) = TAG2; // 728 SET:INTEGER(DP+2) = TYPE; INTEGER(DP+3) = VAL _imp_current_line = 728; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 728 "regression-bugs-tmp/hal7502.imp" U_100a:; _imp_current_line = 728; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 728 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER((((int)(DP)) + (2))) = TYPE; _imp_current_line = 728; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 728 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER((((int)(DP)) + (3))) = VAL; // 729 %RETURN _imp_current_line = 729; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 729 "regression-bugs-tmp/hal7502.imp" return; // 730 YES:->NEW %IF CONTROL = 3 %AND DP-INTEGER(BP) >= 0 _imp_current_line = 730; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 730 "regression-bugs-tmp/hal7502.imp" U_1007:; _imp_current_line = 730; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 730 "regression-bugs-tmp/hal7502.imp" if (((CONTROL) != (3))) goto L_00d3; #line 730 "regression-bugs-tmp/hal7502.imp" if ((((((int)(DP)) - (*_imp_INTEGER(BP)))) < (0))) goto L_00d3; #line 730 "regression-bugs-tmp/hal7502.imp" goto U_1009; #line 730 "regression-bugs-tmp/hal7502.imp" L_00d3:; // 731 %IF CONTROL&2 = 0 %START; !NOT DEF CLASS _imp_current_line = 731; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 731 "regression-bugs-tmp/hal7502.imp" if (((((CONTROL) & (2))) != (0))) goto L_00d4; // 732 TYPE = INTEGER(DP+2); VAL = INTEGER(DP+3) _imp_current_line = 732; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 732 "regression-bugs-tmp/hal7502.imp" TYPE = *_imp_INTEGER((((int)(DP)) + (2))); _imp_current_line = 732; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 732 "regression-bugs-tmp/hal7502.imp" VAL = *_imp_INTEGER((((int)(DP)) + (3))); // 733 %RETURN %UNLESS TYPE&OPMASK = MACRO %AND CONTROL = 0 _imp_current_line = 733; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 733 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (OPMASK))) != (MACRO))) goto L_00d5; #line 733 "regression-bugs-tmp/hal7502.imp" if (((CONTROL) == (0))) goto L_00d6; #line 733 "regression-bugs-tmp/hal7502.imp" L_00d5:; #line 733 "regression-bugs-tmp/hal7502.imp" return; #line 733 "regression-bugs-tmp/hal7502.imp" L_00d6:; // 734 %IF TYPE&31#25 %THEN INTEGER(DP+2)=TYPE+1 %ELSE INTEGER(DP+2) = TYPE+7 _imp_current_line = 734; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 734 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (31))) == (25))) goto L_00d7; #line 734 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER((((int)(DP)) + (2))) = (((int)(TYPE)) + (1)); #line 734 "regression-bugs-tmp/hal7502.imp" goto L_00d8; #line 734 "regression-bugs-tmp/hal7502.imp" L_00d7:; #line 734 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER((((int)(DP)) + (2))) = (((int)(TYPE)) + (7)); #line 734 "regression-bugs-tmp/hal7502.imp" L_00d8:; // 735 %RETURN _imp_current_line = 735; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 735 "regression-bugs-tmp/hal7502.imp" return; // 736 %FINISH _imp_current_line = 736; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 736 "regression-bugs-tmp/hal7502.imp" L_00d4:; // 737 FAULT('D') %IF CONTROL = 3 _imp_current_line = 737; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 737 "regression-bugs-tmp/hal7502.imp" if (((CONTROL) != (3))) goto L_00d9; #line 737 "regression-bugs-tmp/hal7502.imp" FAULT(68); #line 737 "regression-bugs-tmp/hal7502.imp" L_00d9:; // 738 ->SET %IF CONTROL # 7 _imp_current_line = 738; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 738 "regression-bugs-tmp/hal7502.imp" if (((CONTROL) == (7))) goto L_00da; #line 738 "regression-bugs-tmp/hal7502.imp" goto U_100a; #line 738 "regression-bugs-tmp/hal7502.imp" L_00da:; // 739 %IF INTEGER(DP+2)&(OPMASK+FMASK) = FMASK %START _imp_current_line = 739; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 739 "regression-bugs-tmp/hal7502.imp" if (((((*_imp_INTEGER((((int)(DP)) + (2)))) & ((((int)(OPMASK)) + (FMASK))))) != (FMASK))) goto L_00db; // 740 VAL = INTEGER(DP+3) _imp_current_line = 740; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 740 "regression-bugs-tmp/hal7502.imp" VAL = *_imp_INTEGER((((int)(DP)) + (3))); // 741 %IF PASS = 0 %START _imp_current_line = 741; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 741 "regression-bugs-tmp/hal7502.imp" if (((PASS) != (0))) goto L_00dc; // 742 INTEGER(VAL) = LOC _imp_current_line = 742; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 742 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER(VAL) = LOC; // 743 %finish %ELSE %START _imp_current_line = 743; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 743 "regression-bugs-tmp/hal7502.imp" goto L_00dd; #line 743 "regression-bugs-tmp/hal7502.imp" L_00dc:; // 744 FAULT('P') %AND LOC=INTEGER(VAL) %IF INTEGER(VAL) # LOC _imp_current_line = 744; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 744 "regression-bugs-tmp/hal7502.imp" if (((*_imp_INTEGER(VAL)) == (LOC))) goto L_00de; #line 744 "regression-bugs-tmp/hal7502.imp" FAULT(80); #line 744 "regression-bugs-tmp/hal7502.imp" LOC = *_imp_INTEGER(VAL); #line 744 "regression-bugs-tmp/hal7502.imp" L_00de:; // 745 %FINISH _imp_current_line = 745; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 745 "regression-bugs-tmp/hal7502.imp" L_00dd:; // 746 VAL = LOC _imp_current_line = 746; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 746 "regression-bugs-tmp/hal7502.imp" VAL = LOC; // 747 %finish %ELSE %START _imp_current_line = 747; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 747 "regression-bugs-tmp/hal7502.imp" goto L_00df; #line 747 "regression-bugs-tmp/hal7502.imp" L_00db:; // 748 ->NEW %IF DP-INTEGER(BP) >= 0 _imp_current_line = 748; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 748 "regression-bugs-tmp/hal7502.imp" if ((((((int)(DP)) - (*_imp_INTEGER(BP)))) < (0))) goto L_00e0; #line 748 "regression-bugs-tmp/hal7502.imp" goto U_1009; #line 748 "regression-bugs-tmp/hal7502.imp" L_00e0:; // 749 FAULT('D') _imp_current_line = 749; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 749 "regression-bugs-tmp/hal7502.imp" FAULT(68); // 750 %FINISH _imp_current_line = 750; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 750 "regression-bugs-tmp/hal7502.imp" L_00df:; // 751 ->SET _imp_current_line = 751; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 751 "regression-bugs-tmp/hal7502.imp" goto U_100a; // 752 %END _imp_current_line = 752; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 752 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block LOOKUP at level 2 // 753 // 754 %ROUTINE QUEUE(%INTEGER K) _imp_current_line = 754; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 754 "regression-bugs-tmp/hal7502.imp" void QUEUE( int K ) #line 754 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 755 INTEGER(QLIM) = K _imp_current_line = 755; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 755 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER(QLIM) = K; // 756 QLIM = QLIM+1; !!%MONITOR 21 %IF QLIM = DEFMIN _imp_current_line = 756; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 756 "regression-bugs-tmp/hal7502.imp" QLIM = (((int)(QLIM)) + (1)); // 757 %END _imp_current_line = 757; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 757 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block QUEUE at level 2 // 758 // 759 %ROUTINE GET EXP _imp_current_line = 759; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 759 "regression-bugs-tmp/hal7502.imp" void GETEXP( void ) #line 759 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 760 %OWNINTEGER W=24717 _imp_current_line = 760; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 760 "regression-bugs-tmp/hal7502.imp" static int W = 24717; // 761 %INTEGER I,NBASE _imp_current_line = 761; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 761 "regression-bugs-tmp/hal7502.imp" int I; #line 761 "regression-bugs-tmp/hal7502.imp" int NBASE; // 762 // 763 NBASE = NP _imp_current_line = 763; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 763 "regression-bugs-tmp/hal7502.imp" NBASE = NP; // 764 ->E3 %IF PEND # 0 _imp_current_line = 764; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 764 "regression-bugs-tmp/hal7502.imp" if (((PEND) == (0))) goto L_00e1; #line 764 "regression-bugs-tmp/hal7502.imp" goto U_100a; #line 764 "regression-bugs-tmp/hal7502.imp" L_00e1:; // 765 E1: NEST(0) %WHILE S('(') _imp_current_line = 765; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 765 "regression-bugs-tmp/hal7502.imp" U_100b:; _imp_current_line = 765; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 765 "regression-bugs-tmp/hal7502.imp" L_00e2:; #line 765 "regression-bugs-tmp/hal7502.imp" if (S(40)) goto L_00e3; #line 765 "regression-bugs-tmp/hal7502.imp" NEST(0); #line 765 "regression-bugs-tmp/hal7502.imp" goto L_00e2; #line 765 "regression-bugs-tmp/hal7502.imp" L_00e3:; // 766 NEST(-20) %IF S('#') _imp_current_line = 766; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 766 "regression-bugs-tmp/hal7502.imp" if (S(35)) goto L_00e5; #line 766 "regression-bugs-tmp/hal7502.imp" NEST((-20)); #line 766 "regression-bugs-tmp/hal7502.imp" L_00e5:; // 767 %IF TAG %START _imp_current_line = 767; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 767 "regression-bugs-tmp/hal7502.imp" if (TAG()) goto L_00e6; // 768 E3: %IF TAG1 = W %START; !W _imp_current_line = 768; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 768 "regression-bugs-tmp/hal7502.imp" U_100a:; _imp_current_line = 768; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 768 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (W))) goto L_00e7; // 769 TYPE = 0; VAL = 0 _imp_current_line = 769; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 769 "regression-bugs-tmp/hal7502.imp" TYPE = 0; _imp_current_line = 769; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 769 "regression-bugs-tmp/hal7502.imp" VAL = 0; // 770 %finish %ELSE %START _imp_current_line = 770; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 770 "regression-bugs-tmp/hal7502.imp" goto L_00e8; #line 770 "regression-bugs-tmp/hal7502.imp" L_00e7:; // 771 %IF PEND >= 0 %START _imp_current_line = 771; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 771 "regression-bugs-tmp/hal7502.imp" if (((PEND) < (0))) goto L_00e9; // 772 TYPE = LOCTYPE+FMASK+UMASK; VAL = LABMIN-1 _imp_current_line = 772; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 772 "regression-bugs-tmp/hal7502.imp" TYPE = (((int)((((int)(LOCTYPE)) + (FMASK)))) + (UMASK)); _imp_current_line = 772; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 772 "regression-bugs-tmp/hal7502.imp" VAL = (((int)(LABMIN)) - (1)); // 773 LOOKUP(1) _imp_current_line = 773; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 773 "regression-bugs-tmp/hal7502.imp" LOOKUP(1); // 774 %IF TYPE&(OPMASK+FMASK) = FMASK %START _imp_current_line = 774; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 774 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & ((((int)(OPMASK)) + (FMASK))))) != (FMASK))) goto L_00ea; // 775 %IF VAL = LABMIN-1 %START _imp_current_line = 775; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 775 "regression-bugs-tmp/hal7502.imp" if (((VAL) != ((((int)(LABMIN)) - (1))))) goto L_00eb; // 776 LABMIN = VAL; !!%MONITOR 22 %IF LABMIN = ALMAX _imp_current_line = 776; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 776 "regression-bugs-tmp/hal7502.imp" LABMIN = VAL; // 777 %FINISH _imp_current_line = 777; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 777 "regression-bugs-tmp/hal7502.imp" L_00eb:; // 778 VAL = INTEGER(VAL) _imp_current_line = 778; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 778 "regression-bugs-tmp/hal7502.imp" VAL = *_imp_INTEGER(VAL); // 779 FAULT('U') %IF VAL = 0 _imp_current_line = 779; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 779 "regression-bugs-tmp/hal7502.imp" if (((VAL) != (0))) goto L_00ec; #line 779 "regression-bugs-tmp/hal7502.imp" FAULT(85); #line 779 "regression-bugs-tmp/hal7502.imp" L_00ec:; // 780 TYPE = TYPE-FMASK _imp_current_line = 780; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 780 "regression-bugs-tmp/hal7502.imp" TYPE = (((int)(TYPE)) - (FMASK)); // 781 %FINISH _imp_current_line = 781; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 781 "regression-bugs-tmp/hal7502.imp" L_00ea:; // 782 %FINISH _imp_current_line = 782; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 782 "regression-bugs-tmp/hal7502.imp" L_00e9:; // 783 %FINISH _imp_current_line = 783; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 783 "regression-bugs-tmp/hal7502.imp" L_00e8:; // 784 PEND = 0 _imp_current_line = 784; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 784 "regression-bugs-tmp/hal7502.imp" PEND = 0; // 785 %IF TYPE = REG %AND TERM = '(' %START _imp_current_line = 785; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 785 "regression-bugs-tmp/hal7502.imp" if (((TYPE) != (REG))) goto L_00ed; #line 785 "regression-bugs-tmp/hal7502.imp" if (((TERM) != (40))) goto L_00ed; // 786 TYPE = 0 %IF SAVE&1 = 0; VAL = VAL+SAVE; !? _imp_current_line = 786; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 786 "regression-bugs-tmp/hal7502.imp" if (((((SAVE) & (1))) != (0))) goto L_00ee; #line 786 "regression-bugs-tmp/hal7502.imp" TYPE = 0; #line 786 "regression-bugs-tmp/hal7502.imp" L_00ee:; _imp_current_line = 786; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 786 "regression-bugs-tmp/hal7502.imp" VAL = (((int)(VAL)) + (SAVE)); // 787 %FINISH _imp_current_line = 787; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 787 "regression-bugs-tmp/hal7502.imp" L_00ed:; // 788 %IF MODE # 0 %START _imp_current_line = 788; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 788 "regression-bugs-tmp/hal7502.imp" if (((MODE) == (0))) goto L_00ef; // 789 FAULT('I') %AND TYPE=0 %IF TYPE&OPMASK # 0 _imp_current_line = 789; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 789 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (OPMASK))) == (0))) goto L_00f0; #line 789 "regression-bugs-tmp/hal7502.imp" FAULT(73); #line 789 "regression-bugs-tmp/hal7502.imp" TYPE = 0; #line 789 "regression-bugs-tmp/hal7502.imp" L_00f0:; // 790 %IF TYPE®XMASK # 0 %START _imp_current_line = 790; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 790 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (REGXMASK))) == (0))) goto L_00f1; // 791 I = TYPE&15; I = VAL %IF I = 0 _imp_current_line = 791; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 791 "regression-bugs-tmp/hal7502.imp" I = ((TYPE) & (15)); _imp_current_line = 791; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 791 "regression-bugs-tmp/hal7502.imp" if (((I) != (0))) goto L_00f2; #line 791 "regression-bugs-tmp/hal7502.imp" I = VAL; #line 791 "regression-bugs-tmp/hal7502.imp" L_00f2:; // 792 DUSE = DUSE+1 %IF I = DREG _imp_current_line = 792; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 792 "regression-bugs-tmp/hal7502.imp" if (((I) != (DREG))) goto L_00f3; #line 792 "regression-bugs-tmp/hal7502.imp" DUSE = (((int)(DUSE)) + (1)); #line 792 "regression-bugs-tmp/hal7502.imp" L_00f3:; // 793 %FINISH _imp_current_line = 793; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 793 "regression-bugs-tmp/hal7502.imp" L_00f1:; // 794 %FINISH _imp_current_line = 794; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 794 "regression-bugs-tmp/hal7502.imp" L_00ef:; // 795 %IF TERM = '(' %START _imp_current_line = 795; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 795 "regression-bugs-tmp/hal7502.imp" if (((TERM) != (40))) goto L_00f4; // 796 GET SYM _imp_current_line = 796; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 796 "regression-bugs-tmp/hal7502.imp" GETSYM(); // 797 I = TYPE&31 _imp_current_line = 797; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 797 "regression-bugs-tmp/hal7502.imp" I = ((TYPE) & (31)); // 798 QUEUE(TYPE-I); QUEUE(VAL) _imp_current_line = 798; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 798 "regression-bugs-tmp/hal7502.imp" QUEUE((((int)(TYPE)) - (I))); _imp_current_line = 798; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 798 "regression-bugs-tmp/hal7502.imp" QUEUE(VAL); // 799 NEST(-21); NEST(0) _imp_current_line = 799; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 799 "regression-bugs-tmp/hal7502.imp" NEST((-21)); _imp_current_line = 799; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 799 "regression-bugs-tmp/hal7502.imp" NEST(0); // 800 %IF I # 0 %START _imp_current_line = 800; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 800 "regression-bugs-tmp/hal7502.imp" if (((I) == (0))) goto L_00f5; // 801 QUEUE(REG); QUEUE(I&15) _imp_current_line = 801; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 801 "regression-bugs-tmp/hal7502.imp" QUEUE(REG); _imp_current_line = 801; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 801 "regression-bugs-tmp/hal7502.imp" QUEUE(((I) & (15))); // 802 NEST(-1) _imp_current_line = 802; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 802 "regression-bugs-tmp/hal7502.imp" NEST((-1)); // 803 %FINISH _imp_current_line = 803; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 803 "regression-bugs-tmp/hal7502.imp" L_00f5:; // 804 ->E1 _imp_current_line = 804; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 804 "regression-bugs-tmp/hal7502.imp" goto U_100b; // 805 %FINISH _imp_current_line = 805; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 805 "regression-bugs-tmp/hal7502.imp" L_00f4:; // 806 %finish %ELSE %IF '0' <= SYM <= '9' %START _imp_current_line = 806; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 806 "regression-bugs-tmp/hal7502.imp" goto L_00f6; #line 806 "regression-bugs-tmp/hal7502.imp" L_00e6:; #line 806 "regression-bugs-tmp/hal7502.imp" if ((((48) > (SYM))) || (((SYM) > (57)))) goto L_00f7; // 807 TYPE = 0; VAL = SYM-'0' _imp_current_line = 807; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 807 "regression-bugs-tmp/hal7502.imp" TYPE = 0; _imp_current_line = 807; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 807 "regression-bugs-tmp/hal7502.imp" VAL = (((int)(SYM)) - (48)); // 808 %CYCLE _imp_current_line = 808; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 808 "regression-bugs-tmp/hal7502.imp" L_00f8:; // 809 SYM = CHAR(GETPOS)-'0' _imp_current_line = 809; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 809 "regression-bugs-tmp/hal7502.imp" SYM = (((int)(CHAR(GETPOS))) - (48)); // 810 %EXIT %UNLESS 0 <= SYM <= 9 _imp_current_line = 810; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 810 "regression-bugs-tmp/hal7502.imp" if ((((0) > (SYM))) || (((SYM) <= (9)))) goto L_00fc; #line 810 "regression-bugs-tmp/hal7502.imp" L_00fb:; #line 810 "regression-bugs-tmp/hal7502.imp" goto L_00f9; #line 810 "regression-bugs-tmp/hal7502.imp" L_00fc:; // 811 VAL = (VAL<<2+VAL)<<1+SYM _imp_current_line = 811; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 811 "regression-bugs-tmp/hal7502.imp" VAL = (((int)((((((int)(((VAL) << (2)))) + (VAL))) << (1)))) + (SYM)); // 812 GETPOS = GETPOS+1 _imp_current_line = 812; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 812 "regression-bugs-tmp/hal7502.imp" GETPOS = (((int)(GETPOS)) + (1)); // 813 %REPEAT _imp_current_line = 813; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 813 "regression-bugs-tmp/hal7502.imp" goto L_00f8; #line 813 "regression-bugs-tmp/hal7502.imp" L_00f9:; // 814 GET SYM _imp_current_line = 814; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 814 "regression-bugs-tmp/hal7502.imp" GETSYM(); // 815 %finish %ELSE %IF SYM = 'X' %START _imp_current_line = 815; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 815 "regression-bugs-tmp/hal7502.imp" goto L_00f6; #line 815 "regression-bugs-tmp/hal7502.imp" L_00f7:; #line 815 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (88))) goto L_00fd; // 816 TYPE = 0; VAL = 0 _imp_current_line = 816; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 816 "regression-bugs-tmp/hal7502.imp" TYPE = 0; _imp_current_line = 816; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 816 "regression-bugs-tmp/hal7502.imp" VAL = 0; // 817 %CYCLE _imp_current_line = 817; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 817 "regression-bugs-tmp/hal7502.imp" L_00fe:; // 818 SYM = CHAR(GETPOS)-128 _imp_current_line = 818; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 818 "regression-bugs-tmp/hal7502.imp" SYM = (((int)(CHAR(GETPOS))) - (128)); // 819 %EXIT %IF SYM < 0 _imp_current_line = 819; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 819 "regression-bugs-tmp/hal7502.imp" if (((SYM) >= (0))) goto L_0101; #line 819 "regression-bugs-tmp/hal7502.imp" goto L_00ff; #line 819 "regression-bugs-tmp/hal7502.imp" L_0101:; // 820 SYM = SYM-32 %IF SYM >= 96; !ENSURE UPPER-CASE _imp_current_line = 820; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 820 "regression-bugs-tmp/hal7502.imp" if (((SYM) < (96))) goto L_0102; #line 820 "regression-bugs-tmp/hal7502.imp" SYM = (((int)(SYM)) - (32)); #line 820 "regression-bugs-tmp/hal7502.imp" L_0102:; // 821 %IF '0' <= SYM <= '9' %OR 'A' <= SYM <= 'F' %START _imp_current_line = 821; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 821 "regression-bugs-tmp/hal7502.imp" if ((((48) > (SYM))) || (((SYM) <= (57)))) goto L_0104; #line 821 "regression-bugs-tmp/hal7502.imp" L_0103:; #line 821 "regression-bugs-tmp/hal7502.imp" if ((((65) > (SYM))) || (((SYM) > (70)))) goto L_0105; #line 821 "regression-bugs-tmp/hal7502.imp" L_0104:; // 822 VAL = VAL<<4+SYM-'0' _imp_current_line = 822; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 822 "regression-bugs-tmp/hal7502.imp" VAL = (((int)((((int)(((VAL) << (4)))) + (SYM)))) - (48)); // 823 VAL = VAL-7 %IF SYM >= 'A' _imp_current_line = 823; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 823 "regression-bugs-tmp/hal7502.imp" if (((SYM) < (65))) goto L_0106; #line 823 "regression-bugs-tmp/hal7502.imp" VAL = (((int)(VAL)) - (7)); #line 823 "regression-bugs-tmp/hal7502.imp" L_0106:; // 824 %finish %ELSE FAULT('H') _imp_current_line = 824; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 824 "regression-bugs-tmp/hal7502.imp" goto L_0107; #line 824 "regression-bugs-tmp/hal7502.imp" L_0105:; #line 824 "regression-bugs-tmp/hal7502.imp" FAULT(72); #line 824 "regression-bugs-tmp/hal7502.imp" L_0107:; // 825 GETPOS = GETPOS+1 _imp_current_line = 825; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 825 "regression-bugs-tmp/hal7502.imp" GETPOS = (((int)(GETPOS)) + (1)); // 826 %REPEAT _imp_current_line = 826; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 826 "regression-bugs-tmp/hal7502.imp" goto L_00fe; #line 826 "regression-bugs-tmp/hal7502.imp" L_00ff:; // 827 GET SYM _imp_current_line = 827; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 827 "regression-bugs-tmp/hal7502.imp" GETSYM(); // 828 %finish %ELSE %IF SYM&128 # 0 %START _imp_current_line = 828; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 828 "regression-bugs-tmp/hal7502.imp" goto L_00f6; #line 828 "regression-bugs-tmp/hal7502.imp" L_00fd:; #line 828 "regression-bugs-tmp/hal7502.imp" if (((((SYM) & (128))) == (0))) goto L_0108; // 829 TYPE = 0; VAL = SYM-128 _imp_current_line = 829; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 829 "regression-bugs-tmp/hal7502.imp" TYPE = 0; _imp_current_line = 829; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 829 "regression-bugs-tmp/hal7502.imp" VAL = (((int)(SYM)) - (128)); // 830 GET SYM _imp_current_line = 830; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 830 "regression-bugs-tmp/hal7502.imp" GETSYM(); // 831 %IF MODE >= 0 %AND SYM&128 # 0 %START _imp_current_line = 831; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 831 "regression-bugs-tmp/hal7502.imp" if (((MODE) < (0))) goto L_0109; #line 831 "regression-bugs-tmp/hal7502.imp" if (((((SYM) & (128))) == (0))) goto L_0109; // 832 VAL = VAL<<8+SYM-128; GET SYM _imp_current_line = 832; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 832 "regression-bugs-tmp/hal7502.imp" VAL = (((int)((((int)(((VAL) << (8)))) + (SYM)))) - (128)); _imp_current_line = 832; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 832 "regression-bugs-tmp/hal7502.imp" GETSYM(); // 833 %FINISH _imp_current_line = 833; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 833 "regression-bugs-tmp/hal7502.imp" L_0109:; // 834 %finish %ELSE %IF S('.') %START _imp_current_line = 834; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 834 "regression-bugs-tmp/hal7502.imp" goto L_00f6; #line 834 "regression-bugs-tmp/hal7502.imp" L_0108:; #line 834 "regression-bugs-tmp/hal7502.imp" if (S(46)) goto L_010a; // 835 ->ERR %IF %NOT TAG _imp_current_line = 835; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 835 "regression-bugs-tmp/hal7502.imp" if (TAG()) goto L_010b; #line 835 "regression-bugs-tmp/hal7502.imp" goto U_100c; #line 835 "regression-bugs-tmp/hal7502.imp" L_010b:; // 836 TYPE = 0; VAL = TAG1 _imp_current_line = 836; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 836 "regression-bugs-tmp/hal7502.imp" TYPE = 0; _imp_current_line = 836; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 836 "regression-bugs-tmp/hal7502.imp" VAL = TAG1; // 837 %finish %ELSE %IF S('*') %START _imp_current_line = 837; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 837 "regression-bugs-tmp/hal7502.imp" goto L_00f6; #line 837 "regression-bugs-tmp/hal7502.imp" L_010a:; #line 837 "regression-bugs-tmp/hal7502.imp" if (S(42)) goto L_010c; // 838 TYPE = LOCTYPE&63; VAL = LOC _imp_current_line = 838; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 838 "regression-bugs-tmp/hal7502.imp" TYPE = ((LOCTYPE) & (63)); _imp_current_line = 838; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 838 "regression-bugs-tmp/hal7502.imp" VAL = LOC; // 839 %IF SYM = 'L' %START; !FOR NOW _imp_current_line = 839; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 839 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (76))) goto L_010d; // 840 TYPE = 0; VAL = LIST %IF TAG _imp_current_line = 840; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 840 "regression-bugs-tmp/hal7502.imp" TYPE = 0; _imp_current_line = 840; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 840 "regression-bugs-tmp/hal7502.imp" if (TAG()) goto L_010e; #line 840 "regression-bugs-tmp/hal7502.imp" VAL = LIST; #line 840 "regression-bugs-tmp/hal7502.imp" L_010e:; // 841 %FINISH _imp_current_line = 841; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 841 "regression-bugs-tmp/hal7502.imp" L_010d:; // 842 %finish %ELSE %IF SYM = '-' %START _imp_current_line = 842; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 842 "regression-bugs-tmp/hal7502.imp" goto L_00f6; #line 842 "regression-bugs-tmp/hal7502.imp" L_010c:; #line 842 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (45))) goto L_010f; // 843 TYPE = 0; VAL = 0 _imp_current_line = 843; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 843 "regression-bugs-tmp/hal7502.imp" TYPE = 0; _imp_current_line = 843; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 843 "regression-bugs-tmp/hal7502.imp" VAL = 0; // 844 %finish %ELSE %IF SYM = '\' %START _imp_current_line = 844; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 844 "regression-bugs-tmp/hal7502.imp" goto L_00f6; #line 844 "regression-bugs-tmp/hal7502.imp" L_010f:; #line 844 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (92))) goto L_0110; // 845 TYPE = 0; VAL = \0 _imp_current_line = 845; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 845 "regression-bugs-tmp/hal7502.imp" TYPE = 0; _imp_current_line = 845; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 845 "regression-bugs-tmp/hal7502.imp" VAL = (~(0)); // 846 %finish %ELSE ->ERR _imp_current_line = 846; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 846 "regression-bugs-tmp/hal7502.imp" goto L_00f6; #line 846 "regression-bugs-tmp/hal7502.imp" L_0110:; #line 846 "regression-bugs-tmp/hal7502.imp" goto U_100c; #line 846 "regression-bugs-tmp/hal7502.imp" L_00f6:; // 847 QUEUE(TYPE); QUEUE(VAL) _imp_current_line = 847; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 847 "regression-bugs-tmp/hal7502.imp" QUEUE(TYPE); _imp_current_line = 847; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 847 "regression-bugs-tmp/hal7502.imp" QUEUE(VAL); // 848 // 849 %WHILE NP # NBASE %CYCLE _imp_current_line = 849; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 849 "regression-bugs-tmp/hal7502.imp" L_0111:; #line 849 "regression-bugs-tmp/hal7502.imp" if (((NP) == (NBASE))) goto L_0112; // 850 %IF INTEGER(NP) < 0 %START _imp_current_line = 850; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 850 "regression-bugs-tmp/hal7502.imp" if (((*_imp_INTEGER(NP)) >= (0))) goto L_0114; // 851 QUEUE(INTEGER(NP)) _imp_current_line = 851; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 851 "regression-bugs-tmp/hal7502.imp" QUEUE(*_imp_INTEGER(NP)); // 852 %finish %ELSE %START _imp_current_line = 852; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 852 "regression-bugs-tmp/hal7502.imp" goto L_0115; #line 852 "regression-bugs-tmp/hal7502.imp" L_0114:; // 853 %EXIT %IF %NOT S(')') _imp_current_line = 853; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 853 "regression-bugs-tmp/hal7502.imp" if (S(41)) goto L_0116; #line 853 "regression-bugs-tmp/hal7502.imp" goto L_0112; #line 853 "regression-bugs-tmp/hal7502.imp" L_0116:; // 854 %FINISH _imp_current_line = 854; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 854 "regression-bugs-tmp/hal7502.imp" L_0115:; // 855 NP = NP+1 _imp_current_line = 855; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 855 "regression-bugs-tmp/hal7502.imp" NP = (((int)(NP)) + (1)); // 856 %REPEAT _imp_current_line = 856; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 856 "regression-bugs-tmp/hal7502.imp" goto L_0111; #line 856 "regression-bugs-tmp/hal7502.imp" L_0112:; // 857 // 858 NEST(-1) %AND ->E1 %IF S('+') _imp_current_line = 858; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 858 "regression-bugs-tmp/hal7502.imp" if (S(43)) goto L_0117; #line 858 "regression-bugs-tmp/hal7502.imp" NEST((-1)); #line 858 "regression-bugs-tmp/hal7502.imp" goto U_100b; #line 858 "regression-bugs-tmp/hal7502.imp" L_0117:; // 859 NEST(-2) %AND ->E1 %IF S('-') _imp_current_line = 859; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 859 "regression-bugs-tmp/hal7502.imp" if (S(45)) goto L_0118; #line 859 "regression-bugs-tmp/hal7502.imp" NEST((-2)); #line 859 "regression-bugs-tmp/hal7502.imp" goto U_100b; #line 859 "regression-bugs-tmp/hal7502.imp" L_0118:; // 860 NEST(-3) %AND ->E1 %IF S('&') _imp_current_line = 860; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 860 "regression-bugs-tmp/hal7502.imp" if (S(38)) goto L_0119; #line 860 "regression-bugs-tmp/hal7502.imp" NEST((-3)); #line 860 "regression-bugs-tmp/hal7502.imp" goto U_100b; #line 860 "regression-bugs-tmp/hal7502.imp" L_0119:; // 861 NEST(-4) %AND ->E1 %IF S('!') _imp_current_line = 861; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 861 "regression-bugs-tmp/hal7502.imp" if (S(33)) goto L_011a; #line 861 "regression-bugs-tmp/hal7502.imp" NEST((-4)); #line 861 "regression-bugs-tmp/hal7502.imp" goto U_100b; #line 861 "regression-bugs-tmp/hal7502.imp" L_011a:; // 862 NEST(-5) %AND ->E1 %IF S('\') _imp_current_line = 862; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 862 "regression-bugs-tmp/hal7502.imp" if (S(92)) goto L_011b; #line 862 "regression-bugs-tmp/hal7502.imp" NEST((-5)); #line 862 "regression-bugs-tmp/hal7502.imp" goto U_100b; #line 862 "regression-bugs-tmp/hal7502.imp" L_011b:; // 863 NEST(-6) %AND ->E1 %IF SS('<') _imp_current_line = 863; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 863 "regression-bugs-tmp/hal7502.imp" if (SS(60)) goto L_011c; #line 863 "regression-bugs-tmp/hal7502.imp" NEST((-6)); #line 863 "regression-bugs-tmp/hal7502.imp" goto U_100b; #line 863 "regression-bugs-tmp/hal7502.imp" L_011c:; // 864 NEST(-7) %AND ->E1 %IF SS('>') _imp_current_line = 864; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 864 "regression-bugs-tmp/hal7502.imp" if (SS(62)) goto L_011d; #line 864 "regression-bugs-tmp/hal7502.imp" NEST((-7)); #line 864 "regression-bugs-tmp/hal7502.imp" goto U_100b; #line 864 "regression-bugs-tmp/hal7502.imp" L_011d:; // 865 NEST(-8) %AND ->E1 %IF S('_') _imp_current_line = 865; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 865 "regression-bugs-tmp/hal7502.imp" if (S(95)) goto L_011e; #line 865 "regression-bugs-tmp/hal7502.imp" NEST((-8)); #line 865 "regression-bugs-tmp/hal7502.imp" goto U_100b; #line 865 "regression-bugs-tmp/hal7502.imp" L_011e:; // 866 %RETURN %IF NP = NBASE _imp_current_line = 866; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 866 "regression-bugs-tmp/hal7502.imp" if (((NP) != (NBASE))) goto L_011f; #line 866 "regression-bugs-tmp/hal7502.imp" return; #line 866 "regression-bugs-tmp/hal7502.imp" L_011f:; // 867 ERR:NP = NBASE _imp_current_line = 867; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 867 "regression-bugs-tmp/hal7502.imp" U_100c:; _imp_current_line = 867; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 867 "regression-bugs-tmp/hal7502.imp" NP = NBASE; // 868 !!%MONITOR 19 // 869 %END _imp_current_line = 869; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 869 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block GETEXP at level 2 // 870 // 871 %ROUTINE GET COND _imp_current_line = 871; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 871 "regression-bugs-tmp/hal7502.imp" void GETCOND( void ) #line 871 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 872 %OWNINTEGER AND=1717, OR=16873 _imp_current_line = 872; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 872 "regression-bugs-tmp/hal7502.imp" static int AND = 1717; #line 872 "regression-bugs-tmp/hal7502.imp" static int OR = 16873; // 873 %INTEGER J,K _imp_current_line = 873; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 873 "regression-bugs-tmp/hal7502.imp" int J; #line 873 "regression-bugs-tmp/hal7502.imp" int K; // 874 TRANSF = QSTART; QSTART = QLIM _imp_current_line = 874; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 874 "regression-bugs-tmp/hal7502.imp" TRANSF = QSTART; _imp_current_line = 874; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 874 "regression-bugs-tmp/hal7502.imp" QSTART = QLIM; // 875 J = 0 _imp_current_line = 875; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 875 "regression-bugs-tmp/hal7502.imp" J = 0; // 876 %CYCLE _imp_current_line = 876; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 876 "regression-bugs-tmp/hal7502.imp" L_0120:; // 877 GET EXP _imp_current_line = 877; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 877 "regression-bugs-tmp/hal7502.imp" GETEXP(); // 878 %IF S('=') %START _imp_current_line = 878; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 878 "regression-bugs-tmp/hal7502.imp" if (S(61)) goto L_0123; // 879 K = 5 _imp_current_line = 879; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 879 "regression-bugs-tmp/hal7502.imp" K = 5; // 880 %finish %ELSE %IF S('#') %START _imp_current_line = 880; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 880 "regression-bugs-tmp/hal7502.imp" goto L_0124; #line 880 "regression-bugs-tmp/hal7502.imp" L_0123:; #line 880 "regression-bugs-tmp/hal7502.imp" if (S(35)) goto L_0125; // 881 K = 4 _imp_current_line = 881; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 881 "regression-bugs-tmp/hal7502.imp" K = 4; // 882 %finish %ELSE %IF S('<') %START _imp_current_line = 882; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 882 "regression-bugs-tmp/hal7502.imp" goto L_0124; #line 882 "regression-bugs-tmp/hal7502.imp" L_0125:; #line 882 "regression-bugs-tmp/hal7502.imp" if (S(60)) goto L_0126; // 883 K = 3; K = 7 %IF S('=') _imp_current_line = 883; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 883 "regression-bugs-tmp/hal7502.imp" K = 3; _imp_current_line = 883; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 883 "regression-bugs-tmp/hal7502.imp" if (S(61)) goto L_0127; #line 883 "regression-bugs-tmp/hal7502.imp" K = 7; #line 883 "regression-bugs-tmp/hal7502.imp" L_0127:; // 884 %finish %ELSE %IF S('>') %START _imp_current_line = 884; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 884 "regression-bugs-tmp/hal7502.imp" goto L_0124; #line 884 "regression-bugs-tmp/hal7502.imp" L_0126:; #line 884 "regression-bugs-tmp/hal7502.imp" if (S(62)) goto L_0128; // 885 K = 6; K = 2 %IF S('=') _imp_current_line = 885; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 885 "regression-bugs-tmp/hal7502.imp" K = 6; _imp_current_line = 885; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 885 "regression-bugs-tmp/hal7502.imp" if (S(61)) goto L_0129; #line 885 "regression-bugs-tmp/hal7502.imp" K = 2; #line 885 "regression-bugs-tmp/hal7502.imp" L_0129:; // 886 %finish %ELSE %START _imp_current_line = 886; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 886 "regression-bugs-tmp/hal7502.imp" goto L_0124; #line 886 "regression-bugs-tmp/hal7502.imp" L_0128:; // 887 QUEUE(-12) _imp_current_line = 887; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 887 "regression-bugs-tmp/hal7502.imp" QUEUE((-12)); // 888 %RETURN _imp_current_line = 888; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 888 "regression-bugs-tmp/hal7502.imp" return; // 889 %FINISH _imp_current_line = 889; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 889 "regression-bugs-tmp/hal7502.imp" L_0124:; // 890 GET EXP _imp_current_line = 890; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 890 "regression-bugs-tmp/hal7502.imp" GETEXP(); // 891 QUEUE(-2); !SUBTRACT _imp_current_line = 891; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 891 "regression-bugs-tmp/hal7502.imp" QUEUE((-2)); // 892 QUEUE(-11); QUEUE(K) _imp_current_line = 892; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 892 "regression-bugs-tmp/hal7502.imp" QUEUE((-11)); _imp_current_line = 892; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 892 "regression-bugs-tmp/hal7502.imp" QUEUE(K); // 893 %RETURN %IF %NOT TAG _imp_current_line = 893; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 893 "regression-bugs-tmp/hal7502.imp" if (TAG()) goto L_012a; #line 893 "regression-bugs-tmp/hal7502.imp" return; #line 893 "regression-bugs-tmp/hal7502.imp" L_012a:; // 894 %IF TAG1 = AND %AND TAG2 = 0 %START _imp_current_line = 894; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 894 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (AND))) goto L_012b; #line 894 "regression-bugs-tmp/hal7502.imp" if (((TAG2) != (0))) goto L_012b; // 895 !!%MONITOR 19 %IF J < 0 // 896 J = 1; QUEUE(-13) _imp_current_line = 896; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 896 "regression-bugs-tmp/hal7502.imp" J = 1; _imp_current_line = 896; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 896 "regression-bugs-tmp/hal7502.imp" QUEUE((-13)); // 897 %finish %ELSE %START _imp_current_line = 897; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 897 "regression-bugs-tmp/hal7502.imp" goto L_012c; #line 897 "regression-bugs-tmp/hal7502.imp" L_012b:; // 898 !!%MONITOR 19 %IF TAG1 # OR %OR J > 0 // 899 J = -1; QUEUE(-14) _imp_current_line = 899; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 899 "regression-bugs-tmp/hal7502.imp" J = (-1); _imp_current_line = 899; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 899 "regression-bugs-tmp/hal7502.imp" QUEUE((-14)); // 900 %FINISH _imp_current_line = 900; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 900 "regression-bugs-tmp/hal7502.imp" L_012c:; // 901 %REPEAT _imp_current_line = 901; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 901 "regression-bugs-tmp/hal7502.imp" goto L_0120; // 902 %END _imp_current_line = 902; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 902 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block GETCOND at level 2 // 903 // 904 %ROUTINE GET INST _imp_current_line = 904; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 904 "regression-bugs-tmp/hal7502.imp" void GETINST( void ) #line 904 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 905 %INTEGER I _imp_current_line = 905; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 905 "regression-bugs-tmp/hal7502.imp" int I; // 906 QUEUE(TYPE); QUEUE(VAL) _imp_current_line = 906; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 906 "regression-bugs-tmp/hal7502.imp" QUEUE(TYPE); _imp_current_line = 906; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 906 "regression-bugs-tmp/hal7502.imp" QUEUE(VAL); // 907 %RETURN %IF TERM # ' '; !NO OPERAND FOLLOWING => _imp_current_line = 907; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 907 "regression-bugs-tmp/hal7502.imp" if (((TERM) == (32))) goto L_0121; #line 907 "regression-bugs-tmp/hal7502.imp" return; #line 907 "regression-bugs-tmp/hal7502.imp" L_0121:; // 908 %CYCLE _imp_current_line = 908; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 908 "regression-bugs-tmp/hal7502.imp" L_012d:; // 909 GET EXP _imp_current_line = 909; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 909 "regression-bugs-tmp/hal7502.imp" GETEXP(); // 910 QUEUE(-22) _imp_current_line = 910; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 910 "regression-bugs-tmp/hal7502.imp" QUEUE((-22)); // 911 %RETURN %IF %NOT S(',') _imp_current_line = 911; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 911 "regression-bugs-tmp/hal7502.imp" if (S(44)) goto L_0130; #line 911 "regression-bugs-tmp/hal7502.imp" return; #line 911 "regression-bugs-tmp/hal7502.imp" L_0130:; // 912 %REPEAT _imp_current_line = 912; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 912 "regression-bugs-tmp/hal7502.imp" goto L_012d; // 913 %END _imp_current_line = 913; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 913 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block GETINST at level 2 // 914 // 915 %ROUTINE READ LINE _imp_current_line = 915; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 915 "regression-bugs-tmp/hal7502.imp" void READLINE( void ) #line 915 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 916 %INTEGER Q _imp_current_line = 916; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 916 "regression-bugs-tmp/hal7502.imp" int Q; // 917 PUTPOS = STARTPOS _imp_current_line = 917; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 917 "regression-bugs-tmp/hal7502.imp" PUTPOS = STARTPOS; // 918 %IF MP = 0 %START _imp_current_line = 918; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 918 "regression-bugs-tmp/hal7502.imp" if (((MP) != (0))) goto L_012e; // 919 Q = 0; PSEUDOLIM = 0 _imp_current_line = 919; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 919 "regression-bugs-tmp/hal7502.imp" Q = 0; _imp_current_line = 919; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 919 "regression-bugs-tmp/hal7502.imp" PSEUDOLIM = 0; // 920 %CYCLE _imp_current_line = 920; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 920 "regression-bugs-tmp/hal7502.imp" L_0131:; // 921 READ SYMBOL(SYM) _imp_current_line = 921; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 921 "regression-bugs-tmp/hal7502.imp" _imp_READSYMBOL(&SYM); // 922 READ SYMBOL(SYM) %AND Q=Q!!128 %IF SYM = '''' _imp_current_line = 922; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 922 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (39))) goto L_0134; #line 922 "regression-bugs-tmp/hal7502.imp" _imp_READSYMBOL(&SYM); #line 922 "regression-bugs-tmp/hal7502.imp" Q = ((Q) ^ (128)); #line 922 "regression-bugs-tmp/hal7502.imp" L_0134:; // 923 %EXIT %IF SYM = NL _imp_current_line = 923; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 923 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (10))) goto L_0135; #line 923 "regression-bugs-tmp/hal7502.imp" goto L_0132; #line 923 "regression-bugs-tmp/hal7502.imp" L_0135:; // 924 SYM = SYM-32 %IF SYM-Q >= 96; !LOWER-CASE -> UPPER-CASE _imp_current_line = 924; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 924 "regression-bugs-tmp/hal7502.imp" if ((((((int)(SYM)) - (Q))) < (96))) goto L_0136; #line 924 "regression-bugs-tmp/hal7502.imp" SYM = (((int)(SYM)) - (32)); #line 924 "regression-bugs-tmp/hal7502.imp" L_0136:; // 925 SYM = SYM+Q _imp_current_line = 925; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 925 "regression-bugs-tmp/hal7502.imp" SYM = (((int)(SYM)) + (Q)); // 926 %EXIT %IF SYM = '/' %AND PSEUDOLIM # 0 _imp_current_line = 926; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 926 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (47))) goto L_0137; #line 926 "regression-bugs-tmp/hal7502.imp" if (((PSEUDOLIM) == (0))) goto L_0137; #line 926 "regression-bugs-tmp/hal7502.imp" goto L_0132; #line 926 "regression-bugs-tmp/hal7502.imp" L_0137:; // 927 %IF SYM = ' ' %START _imp_current_line = 927; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 927 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (32))) goto L_0138; // 928 PSEUDOLIM = PUTPOS %IF PSEUDOLIM = 0 _imp_current_line = 928; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 928 "regression-bugs-tmp/hal7502.imp" if (((PSEUDOLIM) != (0))) goto L_0139; #line 928 "regression-bugs-tmp/hal7502.imp" PSEUDOLIM = PUTPOS; #line 928 "regression-bugs-tmp/hal7502.imp" L_0139:; // 929 %finish %ELSE PSEUDOLIM = 0 _imp_current_line = 929; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 929 "regression-bugs-tmp/hal7502.imp" goto L_013a; #line 929 "regression-bugs-tmp/hal7502.imp" L_0138:; #line 929 "regression-bugs-tmp/hal7502.imp" PSEUDOLIM = 0; #line 929 "regression-bugs-tmp/hal7502.imp" L_013a:; // 930 PUT CHAR(SYM) _imp_current_line = 930; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 930 "regression-bugs-tmp/hal7502.imp" PUTCHAR(SYM); // 931 %REPEAT _imp_current_line = 931; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 931 "regression-bugs-tmp/hal7502.imp" goto L_0131; #line 931 "regression-bugs-tmp/hal7502.imp" L_0132:; // 932 %IF PSEUDOLIM # 0 %START _imp_current_line = 932; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 932 "regression-bugs-tmp/hal7502.imp" if (((PSEUDOLIM) == (0))) goto L_013b; // 933 Q = PUTPOS; PUTPOS = PSEUDOLIM _imp_current_line = 933; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 933 "regression-bugs-tmp/hal7502.imp" Q = PUTPOS; _imp_current_line = 933; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 933 "regression-bugs-tmp/hal7502.imp" PUTPOS = PSEUDOLIM; // 934 PUT CHAR(NL) _imp_current_line = 934; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 934 "regression-bugs-tmp/hal7502.imp" PUTCHAR(10); // 935 PUTPOS = Q _imp_current_line = 935; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 935 "regression-bugs-tmp/hal7502.imp" PUTPOS = Q; // 936 %FINISH _imp_current_line = 936; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 936 "regression-bugs-tmp/hal7502.imp" L_013b:; // 937 %CYCLE _imp_current_line = 937; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 937 "regression-bugs-tmp/hal7502.imp" L_013c:; // 938 PUT CHAR(SYM) _imp_current_line = 938; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 938 "regression-bugs-tmp/hal7502.imp" PUTCHAR(SYM); // 939 %EXIT %IF SYM = NL _imp_current_line = 939; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 939 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (10))) goto L_013f; #line 939 "regression-bugs-tmp/hal7502.imp" goto L_013d; #line 939 "regression-bugs-tmp/hal7502.imp" L_013f:; // 940 READ SYMBOL(SYM) _imp_current_line = 940; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 940 "regression-bugs-tmp/hal7502.imp" _imp_READSYMBOL(&SYM); // 941 %REPEAT _imp_current_line = 941; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 941 "regression-bugs-tmp/hal7502.imp" goto L_013c; #line 941 "regression-bugs-tmp/hal7502.imp" L_013d:; // 942 PRINTPOS = STARTPOS _imp_current_line = 942; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 942 "regression-bugs-tmp/hal7502.imp" PRINTPOS = STARTPOS; // 943 %finish %ELSE %START _imp_current_line = 943; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 943 "regression-bugs-tmp/hal7502.imp" goto L_0140; #line 943 "regression-bugs-tmp/hal7502.imp" L_012e:; // 944 GETPOS = INTEGER(MP) _imp_current_line = 944; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 944 "regression-bugs-tmp/hal7502.imp" GETPOS = *_imp_INTEGER(MP); // 945 %IF CHAR(GETPOS) = 0 %START _imp_current_line = 945; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 945 "regression-bugs-tmp/hal7502.imp" if (((CHAR(GETPOS)) != (0))) goto L_0141; // 946 QBASE = MP _imp_current_line = 946; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 946 "regression-bugs-tmp/hal7502.imp" QBASE = MP; // 947 %IF INTEGER(MP+1)&16_8000 # 0 %START _imp_current_line = 947; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 947 "regression-bugs-tmp/hal7502.imp" if (((((*_imp_INTEGER((((int)(MP)) + (1)))) & (32768))) == (0))) goto L_0142; // 948 %WHILE INTEGER(NP)&16_8000 = 0 %CYCLE _imp_current_line = 948; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 948 "regression-bugs-tmp/hal7502.imp" L_0143:; #line 948 "regression-bugs-tmp/hal7502.imp" if (((((*_imp_INTEGER(NP)) & (32768))) != (0))) goto L_0144; // 949 FAULT('C'); NP = NP+2 _imp_current_line = 949; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 949 "regression-bugs-tmp/hal7502.imp" FAULT(67); _imp_current_line = 949; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 949 "regression-bugs-tmp/hal7502.imp" NP = (((int)(NP)) + (2)); // 950 %REPEAT _imp_current_line = 950; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 950 "regression-bugs-tmp/hal7502.imp" goto L_0143; #line 950 "regression-bugs-tmp/hal7502.imp" L_0144:; // 951 SET LAB(LOC) _imp_current_line = 951; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 951 "regression-bugs-tmp/hal7502.imp" SETLAB(LOC); // 952 %FINISH _imp_current_line = 952; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 952 "regression-bugs-tmp/hal7502.imp" L_0142:; // 953 GETPOS = INTEGER(MP+2) _imp_current_line = 953; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 953 "regression-bugs-tmp/hal7502.imp" GETPOS = *_imp_INTEGER((((int)(MP)) + (2))); // 954 STARTPOS = INTEGER(MP+3) _imp_current_line = 954; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 954 "regression-bugs-tmp/hal7502.imp" STARTPOS = *_imp_INTEGER((((int)(MP)) + (3))); // 955 MP = INTEGER(MP+4) _imp_current_line = 955; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 955 "regression-bugs-tmp/hal7502.imp" MP = *_imp_INTEGER((((int)(MP)) + (4))); // 956 PRINTPOS = 0 %IF LIST&2 # 0 _imp_current_line = 956; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 956 "regression-bugs-tmp/hal7502.imp" if (((((LIST) & (2))) == (0))) goto L_0146; #line 956 "regression-bugs-tmp/hal7502.imp" PRINTPOS = 0; #line 956 "regression-bugs-tmp/hal7502.imp" L_0146:; // 957 GET SYM; !TERMINATOR _imp_current_line = 957; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 957 "regression-bugs-tmp/hal7502.imp" GETSYM(); // 958 GET SYM %IF SYM = ';' _imp_current_line = 958; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 958 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (59))) goto L_0147; #line 958 "regression-bugs-tmp/hal7502.imp" GETSYM(); #line 958 "regression-bugs-tmp/hal7502.imp" L_0147:; // 959 %RETURN _imp_current_line = 959; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 959 "regression-bugs-tmp/hal7502.imp" return; // 960 %FINISH _imp_current_line = 960; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 960 "regression-bugs-tmp/hal7502.imp" L_0141:; // 961 PRINTPOS = STARTPOS %IF LIST&2 # 0 _imp_current_line = 961; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 961 "regression-bugs-tmp/hal7502.imp" if (((((LIST) & (2))) == (0))) goto L_0148; #line 961 "regression-bugs-tmp/hal7502.imp" PRINTPOS = STARTPOS; #line 961 "regression-bugs-tmp/hal7502.imp" L_0148:; // 962 %CYCLE _imp_current_line = 962; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 962 "regression-bugs-tmp/hal7502.imp" L_0149:; // 963 SYM = CHAR(GETPOS); GETPOS = GETPOS+1 _imp_current_line = 963; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 963 "regression-bugs-tmp/hal7502.imp" SYM = CHAR(GETPOS); _imp_current_line = 963; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 963 "regression-bugs-tmp/hal7502.imp" GETPOS = (((int)(GETPOS)) + (1)); // 964 %IF TAG %START _imp_current_line = 964; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 964 "regression-bugs-tmp/hal7502.imp" if (TAG()) goto L_014c; // 965 SYM=TERM %AND GETPOS=GETPOS-1 %IF TERM = ' ' _imp_current_line = 965; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 965 "regression-bugs-tmp/hal7502.imp" if (((TERM) != (32))) goto L_014d; #line 965 "regression-bugs-tmp/hal7502.imp" SYM = TERM; #line 965 "regression-bugs-tmp/hal7502.imp" GETPOS = (((int)(GETPOS)) - (1)); #line 965 "regression-bugs-tmp/hal7502.imp" L_014d:; // 966 TYPE = INTEGER(MP); VAL = GETPOS-1 _imp_current_line = 966; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 966 "regression-bugs-tmp/hal7502.imp" TYPE = *_imp_INTEGER(MP); _imp_current_line = 966; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 966 "regression-bugs-tmp/hal7502.imp" VAL = (((int)(GETPOS)) - (1)); // 967 LOOKUP(4) _imp_current_line = 967; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 967 "regression-bugs-tmp/hal7502.imp" LOOKUP(4); // 968 %WHILE TYPE # VAL %CYCLE _imp_current_line = 968; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 968 "regression-bugs-tmp/hal7502.imp" L_014e:; #line 968 "regression-bugs-tmp/hal7502.imp" if (((TYPE) == (VAL))) goto L_014f; // 969 PUT CHAR(CHAR(TYPE)) _imp_current_line = 969; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 969 "regression-bugs-tmp/hal7502.imp" PUTCHAR(CHAR(TYPE)); // 970 TYPE = TYPE+1 _imp_current_line = 970; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 970 "regression-bugs-tmp/hal7502.imp" TYPE = (((int)(TYPE)) + (1)); // 971 %REPEAT _imp_current_line = 971; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 971 "regression-bugs-tmp/hal7502.imp" goto L_014e; #line 971 "regression-bugs-tmp/hal7502.imp" L_014f:; // 972 %FINISH _imp_current_line = 972; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 972 "regression-bugs-tmp/hal7502.imp" L_014c:; // 973 %IF SYM = '?' %START _imp_current_line = 973; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 973 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (63))) goto L_0151; // 974 PUT CHAR(INTEGER(MP+1)>>5&31+'A') _imp_current_line = 974; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 974 "regression-bugs-tmp/hal7502.imp" PUTCHAR((((int)((((int)(((*(unsigned int *)(_imp_INTEGER((((int)(MP)) + (1))))) >> (5)))) & (31)))) + (65))); // 975 SYM = INTEGER(MP+1)&31+'A' _imp_current_line = 975; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 975 "regression-bugs-tmp/hal7502.imp" SYM = (((int)(((*_imp_INTEGER((((int)(MP)) + (1)))) & (31)))) + (65)); // 976 %FINISH _imp_current_line = 976; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 976 "regression-bugs-tmp/hal7502.imp" L_0151:; // 977 PUT CHAR(SYM) _imp_current_line = 977; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 977 "regression-bugs-tmp/hal7502.imp" PUTCHAR(SYM); // 978 INTEGER(MP) = GETPOS _imp_current_line = 978; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 978 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER(MP) = GETPOS; // 979 %EXIT %IF SYM = NL _imp_current_line = 979; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 979 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (10))) goto L_0152; #line 979 "regression-bugs-tmp/hal7502.imp" goto L_014a; #line 979 "regression-bugs-tmp/hal7502.imp" L_0152:; // 980 %REPEAT _imp_current_line = 980; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 980 "regression-bugs-tmp/hal7502.imp" goto L_0149; #line 980 "regression-bugs-tmp/hal7502.imp" L_014a:; // 981 %FINISH _imp_current_line = 981; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 981 "regression-bugs-tmp/hal7502.imp" L_0140:; // 982 QBASE = (PUTPOS+1)>>1 _imp_current_line = 982; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 982 "regression-bugs-tmp/hal7502.imp" QBASE = (((((((int)(PUTPOS)) + (1)))) >> (1))); // 983 GETPOS = STARTPOS; GET SYM _imp_current_line = 983; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 983 "regression-bugs-tmp/hal7502.imp" GETPOS = STARTPOS; _imp_current_line = 983; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 983 "regression-bugs-tmp/hal7502.imp" GETSYM(); // 984 %END _imp_current_line = 984; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 984 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block READLINE at level 2 // 985 // 986 %ROUTINE SCAN ARG _imp_current_line = 986; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 986 "regression-bugs-tmp/hal7502.imp" void SCANARG( void ) #line 986 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 987 ! SET TYPE,VAL TO START,LIM OF ARG IF NOT NULL // 988 %INTEGER I,J _imp_current_line = 988; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 988 "regression-bugs-tmp/hal7502.imp" int I; #line 988 "regression-bugs-tmp/hal7502.imp" int J; // 989 %RETURN %IF SYM='I' %AND CHAR(GETPOS)='F' %AND CHAR(GETPOS+1)=' ' _imp_current_line = 989; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 989 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (73))) goto L_0153; #line 989 "regression-bugs-tmp/hal7502.imp" if (((CHAR(GETPOS)) != (70))) goto L_0153; #line 989 "regression-bugs-tmp/hal7502.imp" if (((CHAR((((int)(GETPOS)) + (1)))) != (32))) goto L_0153; #line 989 "regression-bugs-tmp/hal7502.imp" return; #line 989 "regression-bugs-tmp/hal7502.imp" L_0153:; // 990 I = GETPOS-1; I = GETPOS %IF SYM = '[' _imp_current_line = 990; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 990 "regression-bugs-tmp/hal7502.imp" I = (((int)(GETPOS)) - (1)); _imp_current_line = 990; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 990 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (91))) goto L_0154; #line 990 "regression-bugs-tmp/hal7502.imp" I = GETPOS; #line 990 "regression-bugs-tmp/hal7502.imp" L_0154:; // 991 J = 0 _imp_current_line = 991; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 991 "regression-bugs-tmp/hal7502.imp" J = 0; // 992 %CYCLE _imp_current_line = 992; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 992 "regression-bugs-tmp/hal7502.imp" L_0155:; // 993 %EXIT %IF SYM = NL _imp_current_line = 993; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 993 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (10))) goto L_0158; #line 993 "regression-bugs-tmp/hal7502.imp" goto L_0156; #line 993 "regression-bugs-tmp/hal7502.imp" L_0158:; // 994 %EXIT %IF (SYM=' ' %OR SYM=',' %OR SYM=';') %AND J<=0 _imp_current_line = 994; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 994 "regression-bugs-tmp/hal7502.imp" if (((SYM) == (32))) goto L_014b; #line 994 "regression-bugs-tmp/hal7502.imp" if (((SYM) == (44))) goto L_014b; #line 994 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (59))) goto L_0159; #line 994 "regression-bugs-tmp/hal7502.imp" L_014b:; #line 994 "regression-bugs-tmp/hal7502.imp" if (((J) > (0))) goto L_0159; #line 994 "regression-bugs-tmp/hal7502.imp" goto L_0156; #line 994 "regression-bugs-tmp/hal7502.imp" L_0159:; // 995 J = J+1 %IF SYM = '[' _imp_current_line = 995; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 995 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (91))) goto L_015a; #line 995 "regression-bugs-tmp/hal7502.imp" J = (((int)(J)) + (1)); #line 995 "regression-bugs-tmp/hal7502.imp" L_015a:; // 996 %IF SYM = ']' %START _imp_current_line = 996; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 996 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (93))) goto L_015b; // 997 J = J-1; %EXIT %IF J = 0 _imp_current_line = 997; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 997 "regression-bugs-tmp/hal7502.imp" J = (((int)(J)) - (1)); _imp_current_line = 997; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 997 "regression-bugs-tmp/hal7502.imp" if (((J) != (0))) goto L_015c; #line 997 "regression-bugs-tmp/hal7502.imp" goto L_0156; #line 997 "regression-bugs-tmp/hal7502.imp" L_015c:; // 998 %FINISH _imp_current_line = 998; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 998 "regression-bugs-tmp/hal7502.imp" L_015b:; // 999 SYM = CHAR(GETPOS); GETPOS = GETPOS+1 _imp_current_line = 999; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 999 "regression-bugs-tmp/hal7502.imp" SYM = CHAR(GETPOS); _imp_current_line = 999; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 999 "regression-bugs-tmp/hal7502.imp" GETPOS = (((int)(GETPOS)) + (1)); // 1000 %REPEAT _imp_current_line = 1000; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1000 "regression-bugs-tmp/hal7502.imp" goto L_0155; #line 1000 "regression-bugs-tmp/hal7502.imp" L_0156:; // 1001 %IF GETPOS-1 # I %START _imp_current_line = 1001; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1001 "regression-bugs-tmp/hal7502.imp" if ((((((int)(GETPOS)) - (1))) == (I))) goto L_015d; // 1002 TYPE = I; VAL = GETPOS-1 _imp_current_line = 1002; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1002 "regression-bugs-tmp/hal7502.imp" TYPE = I; _imp_current_line = 1002; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1002 "regression-bugs-tmp/hal7502.imp" VAL = (((int)(GETPOS)) - (1)); // 1003 %FINISH _imp_current_line = 1003; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1003 "regression-bugs-tmp/hal7502.imp" L_015d:; // 1004 GET SYM %IF SYM = ']' _imp_current_line = 1004; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1004 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (93))) goto L_015e; #line 1004 "regression-bugs-tmp/hal7502.imp" GETSYM(); #line 1004 "regression-bugs-tmp/hal7502.imp" L_015e:; // 1005 %END _imp_current_line = 1005; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1005 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block SCANARG at level 2 // 1006 // 1007 %ROUTINE SET ACC _imp_current_line = 1007; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1007 "regression-bugs-tmp/hal7502.imp" void SETACC( void ) #line 1007 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 1008 %INTEGER I _imp_current_line = 1008; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1008 "regression-bugs-tmp/hal7502.imp" int I; // 1009 ACC = -1; ATYPE = -1; CREG = -1 _imp_current_line = 1009; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1009 "regression-bugs-tmp/hal7502.imp" ACC = (-1); _imp_current_line = 1009; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1009 "regression-bugs-tmp/hal7502.imp" ATYPE = (-1); _imp_current_line = 1009; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1009 "regression-bugs-tmp/hal7502.imp" CREG = (-1); // 1010 I = TEMPS _imp_current_line = 1010; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1010 "regression-bugs-tmp/hal7502.imp" I = TEMPS; // 1011 %RETURN %IF I = 0 _imp_current_line = 1011; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1011 "regression-bugs-tmp/hal7502.imp" if (((I) != (0))) goto L_015f; #line 1011 "regression-bugs-tmp/hal7502.imp" return; #line 1011 "regression-bugs-tmp/hal7502.imp" L_015f:; // 1012 %CYCLE _imp_current_line = 1012; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1012 "regression-bugs-tmp/hal7502.imp" L_0160:; // 1013 ACC = ACC+1 _imp_current_line = 1013; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1013 "regression-bugs-tmp/hal7502.imp" ACC = (((int)(ACC)) + (1)); // 1014 %RETURN %IF I&1 # 0 _imp_current_line = 1014; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1014 "regression-bugs-tmp/hal7502.imp" if (((((I) & (1))) == (0))) goto L_0163; #line 1014 "regression-bugs-tmp/hal7502.imp" return; #line 1014 "regression-bugs-tmp/hal7502.imp" L_0163:; // 1015 I = I>>1 _imp_current_line = 1015; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1015 "regression-bugs-tmp/hal7502.imp" I = (int)((((unsigned int)(I)) >> (1))); // 1016 %REPEAT _imp_current_line = 1016; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1016 "regression-bugs-tmp/hal7502.imp" goto L_0160; // 1017 %END _imp_current_line = 1017; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1017 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block SETACC at level 2 // 1018 // 1019 !MAIN PROGRAM // 1020 // 1021 !RADIX 36 CONSTANTS // 1022 %OWNINTEGER B=2184, IF=9991, ELS=5950, E=5403, FIN=6907, ISH=10490 _imp_current_line = 1022; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1022 "regression-bugs-tmp/hal7502.imp" static int B = 2184; #line 1022 "regression-bugs-tmp/hal7502.imp" static int IF = 9991; #line 1022 "regression-bugs-tmp/hal7502.imp" static int ELS = 5950; #line 1022 "regression-bugs-tmp/hal7502.imp" static int E = 5403; #line 1022 "regression-bugs-tmp/hal7502.imp" static int FIN = 6907; #line 1022 "regression-bugs-tmp/hal7502.imp" static int ISH = 10490; // 1023 %OWNINTEGER JUM=11642, P=17206, PS=17983, DEF=4605, END=6009 _imp_current_line = 1023; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1023 "regression-bugs-tmp/hal7502.imp" static int JUM = 11642; #line 1023 "regression-bugs-tmp/hal7502.imp" static int P = 17206; #line 1023 "regression-bugs-tmp/hal7502.imp" static int PS = 17983; #line 1023 "regression-bugs-tmp/hal7502.imp" static int DEF = 4605; #line 1023 "regression-bugs-tmp/hal7502.imp" static int END = 6009; // 1024 // 1025 %INTEGER I,J,K _imp_current_line = 1025; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1025 "regression-bugs-tmp/hal7502.imp" int I; #line 1025 "regression-bugs-tmp/hal7502.imp" int J; #line 1025 "regression-bugs-tmp/hal7502.imp" int K; // 1026 !!%FAULT 19 ->ERR; !RECOGNITION ERROR // 1027 !!%FAULT 9 ->BEND; !INPUT ENDED // 1028 // 1029 %CYCLE I = 1,1,SBOUND _imp_current_line = 1029; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1029 "regression-bugs-tmp/hal7502.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = SBOUND; I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, SBOUND"); I -= _increment; _control -= _increment; L_0164:; if (I == _final) goto L_0165; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 1030 STORE(I) = 0 _imp_current_line = 1030; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1030 "regression-bugs-tmp/hal7502.imp" STORE[(((int)(I)) - (1))] = 0; // 1031 %REPEAT _imp_current_line = 1031; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1031 "regression-bugs-tmp/hal7502.imp" goto L_0164; #line 1031 "regression-bugs-tmp/hal7502.imp" L_0165:; // 1032 CODEPOS = ADDR(STORE(1)) _imp_current_line = 1032; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1032 "regression-bugs-tmp/hal7502.imp" CODEPOS = _imp_ADDR(&STORE[0]); // 1033 MACLIM = (CODEPOS+20)<<1 _imp_current_line = 1033; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1033 "regression-bugs-tmp/hal7502.imp" MACLIM = (((((int)(CODEPOS)) + (20))) << (1)); // 1034 STORELIM = ADDR(STORE(SBOUND)) _imp_current_line = 1034; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1034 "regression-bugs-tmp/hal7502.imp" STORELIM = _imp_ADDR(&STORE[(((int)(SBOUND)) - (1))]); // 1035 NP = STORELIM _imp_current_line = 1035; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1035 "regression-bugs-tmp/hal7502.imp" NP = STORELIM; // 1036 LABLIM = NP-60 _imp_current_line = 1036; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1036 "regression-bugs-tmp/hal7502.imp" LABLIM = (((int)(NP)) - (60)); // 1037 BP = LABLIM _imp_current_line = 1037; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1037 "regression-bugs-tmp/hal7502.imp" BP = LABLIM; // 1038 DEFLIM = STORELIM-(SBOUND>>2) _imp_current_line = 1038; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1038 "regression-bugs-tmp/hal7502.imp" DEFLIM = ((STORELIM) - ((int)((int)((((unsigned int)(SBOUND)) >> (2)))))); // 1039 DEFMIN = DEFLIM _imp_current_line = 1039; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1039 "regression-bugs-tmp/hal7502.imp" DEFMIN = DEFLIM; // 1040 INTEGER(BP) = DEFLIM _imp_current_line = 1040; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1040 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER(BP) = DEFLIM; // 1041 SELECT INPUT(PRE) _imp_current_line = 1041; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1041 "regression-bugs-tmp/hal7502.imp" _imp_SELECTINPUT(PRE); // 1042 DO PASS: _imp_current_line = 1042; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1042 "regression-bugs-tmp/hal7502.imp" U_100d:; // 1043 PUT WORD(0) %AND CONTROL=16_20 %IF PASS > 0 _imp_current_line = 1043; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1043 "regression-bugs-tmp/hal7502.imp" if (((PASS) <= (0))) goto L_0167; #line 1043 "regression-bugs-tmp/hal7502.imp" PUTWORD(0); #line 1043 "regression-bugs-tmp/hal7502.imp" CONTROL = 32; #line 1043 "regression-bugs-tmp/hal7502.imp" L_0167:; // 1044 STARTPOS = MACLIM _imp_current_line = 1044; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1044 "regression-bugs-tmp/hal7502.imp" STARTPOS = MACLIM; // 1045 MP = 0 _imp_current_line = 1045; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1045 "regression-bugs-tmp/hal7502.imp" MP = 0; // 1046 ALMAX = DEFLIM _imp_current_line = 1046; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1046 "regression-bugs-tmp/hal7502.imp" ALMAX = DEFLIM; // 1047 LABMIN = LABLIM _imp_current_line = 1047; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1047 "regression-bugs-tmp/hal7502.imp" LABMIN = LABLIM; // 1048 ASSCOND = 1; SKIP = 0 _imp_current_line = 1048; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1048 "regression-bugs-tmp/hal7502.imp" ASSCOND = 1; _imp_current_line = 1048; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1048 "regression-bugs-tmp/hal7502.imp" SKIP = 0; // 1049 LOCTYPE = MEMMASK+RELMASK; LOC = 0 _imp_current_line = 1049; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1049 "regression-bugs-tmp/hal7502.imp" LOCTYPE = (((int)(MEMMASK)) + (RELMASK)); _imp_current_line = 1049; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1049 "regression-bugs-tmp/hal7502.imp" LOC = 0; // 1050 SET ACC _imp_current_line = 1050; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1050 "regression-bugs-tmp/hal7502.imp" SETACC(); // 1051 READ: FSYM = ' '; FAULTPOS = 0 _imp_current_line = 1051; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1051 "regression-bugs-tmp/hal7502.imp" U_100e:; _imp_current_line = 1051; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1051 "regression-bugs-tmp/hal7502.imp" FSYM = 32; _imp_current_line = 1051; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1051 "regression-bugs-tmp/hal7502.imp" FAULTPOS = 0; // 1052 READ LINE _imp_current_line = 1052; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1052 "regression-bugs-tmp/hal7502.imp" READLINE(); // 1053 NEXT: _imp_current_line = 1053; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1053 "regression-bugs-tmp/hal7502.imp" U_100f:; // 1054 DREG = -1 _imp_current_line = 1054; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1054 "regression-bugs-tmp/hal7502.imp" DREG = (-1); // 1055 MODE = 0 _imp_current_line = 1055; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1055 "regression-bugs-tmp/hal7502.imp" MODE = 0; // 1056 PEND = 0; COND = 0 _imp_current_line = 1056; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1056 "regression-bugs-tmp/hal7502.imp" PEND = 0; _imp_current_line = 1056; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1056 "regression-bugs-tmp/hal7502.imp" COND = 0; // 1057 QSTART = QBASE; QLIM = QSTART _imp_current_line = 1057; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1057 "regression-bugs-tmp/hal7502.imp" QSTART = QBASE; _imp_current_line = 1057; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1057 "regression-bugs-tmp/hal7502.imp" QLIM = QSTART; // 1058 FLAG = 0 _imp_current_line = 1058; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1058 "regression-bugs-tmp/hal7502.imp" FLAG = 0; // 1059 %IF S('$') %START _imp_current_line = 1059; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1059 "regression-bugs-tmp/hal7502.imp" if (S(36)) goto L_0168; // 1060 ->NEWPAGE %IF SYM = '/' _imp_current_line = 1060; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1060 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (47))) goto L_0169; #line 1060 "regression-bugs-tmp/hal7502.imp" goto U_1010; #line 1060 "regression-bugs-tmp/hal7502.imp" L_0169:; // 1061 ->ERR %IF %NOT TAG _imp_current_line = 1061; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1061 "regression-bugs-tmp/hal7502.imp" if (TAG()) goto L_016a; #line 1061 "regression-bugs-tmp/hal7502.imp" goto U_1011; #line 1061 "regression-bugs-tmp/hal7502.imp" L_016a:; // 1062 ->ASSIF %IF TAG1 = IF _imp_current_line = 1062; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1062 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (IF))) goto L_016b; #line 1062 "regression-bugs-tmp/hal7502.imp" goto U_1012; #line 1062 "regression-bugs-tmp/hal7502.imp" L_016b:; // 1063 ->ASSELSE %IF TAG1 = ELS _imp_current_line = 1063; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1063 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (ELS))) goto L_016c; #line 1063 "regression-bugs-tmp/hal7502.imp" goto U_1013; #line 1063 "regression-bugs-tmp/hal7502.imp" L_016c:; // 1064 ->ASSFIN %IF TAG1 = FIN _imp_current_line = 1064; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1064 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (FIN))) goto L_016d; #line 1064 "regression-bugs-tmp/hal7502.imp" goto U_1014; #line 1064 "regression-bugs-tmp/hal7502.imp" L_016d:; // 1065 ->LEND %IF SKIP # 0 _imp_current_line = 1065; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1065 "regression-bugs-tmp/hal7502.imp" if (((SKIP) == (0))) goto L_016e; #line 1065 "regression-bugs-tmp/hal7502.imp" goto U_1015; #line 1065 "regression-bugs-tmp/hal7502.imp" L_016e:; // 1066 ->DEFINE %IF TAG1 = DEF _imp_current_line = 1066; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1066 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (DEF))) goto L_016f; #line 1066 "regression-bugs-tmp/hal7502.imp" goto U_1000; #line 1066 "regression-bugs-tmp/hal7502.imp" L_016f:; // 1067 ->DEFINE %IF TAG1 = 19625; !RED _imp_current_line = 1067; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1067 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (19625))) goto L_0170; #line 1067 "regression-bugs-tmp/hal7502.imp" goto U_1000; #line 1067 "regression-bugs-tmp/hal7502.imp" L_0170:; // 1068 ->LISTC %IF TAG1 = 13350; !LIS _imp_current_line = 1068; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1068 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (13350))) goto L_0171; #line 1068 "regression-bugs-tmp/hal7502.imp" goto U_1016; #line 1068 "regression-bugs-tmp/hal7502.imp" L_0171:; // 1069 ->TEMP %IF TAG1 = 21780; !TEM _imp_current_line = 1069; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1069 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (21780))) goto L_0172; #line 1069 "regression-bugs-tmp/hal7502.imp" goto U_1001; #line 1069 "regression-bugs-tmp/hal7502.imp" L_0172:; // 1070 ->LOCC %IF TAG1 = 13556; !LOC _imp_current_line = 1070; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1070 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (13556))) goto L_0173; #line 1070 "regression-bugs-tmp/hal7502.imp" goto U_1002; #line 1070 "regression-bugs-tmp/hal7502.imp" L_0173:; // 1071 ->LOCC %IF TAG1 = 1917; !ASS _imp_current_line = 1071; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1071 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (1917))) goto L_0174; #line 1071 "regression-bugs-tmp/hal7502.imp" goto U_1002; #line 1071 "regression-bugs-tmp/hal7502.imp" L_0174:; // 1072 ->SAVC %IF TAG1 = 20568; !SAV _imp_current_line = 1072; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1072 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (20568))) goto L_0175; #line 1072 "regression-bugs-tmp/hal7502.imp" goto U_1017; #line 1072 "regression-bugs-tmp/hal7502.imp" L_0175:; // 1073 ->MACDEF %IF TAG1 = 14111; !MAC _imp_current_line = 1073; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1073 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (14111))) goto L_0176; #line 1073 "regression-bugs-tmp/hal7502.imp" goto U_1003; #line 1073 "regression-bugs-tmp/hal7502.imp" L_0176:; // 1074 ->BEGIN %IF TAG1 = 2460; !BEG _imp_current_line = 1074; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1074 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (2460))) goto L_0177; #line 1074 "regression-bugs-tmp/hal7502.imp" goto U_1004; #line 1074 "regression-bugs-tmp/hal7502.imp" L_0177:; // 1075 ->BEND %IF TAG1 = END _imp_current_line = 1075; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1075 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (END))) goto L_0178; #line 1075 "regression-bugs-tmp/hal7502.imp" goto U_1005; #line 1075 "regression-bugs-tmp/hal7502.imp" L_0178:; // 1076 FAULT('U') _imp_current_line = 1076; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1076 "regression-bugs-tmp/hal7502.imp" FAULT(85); // 1077 ->LEND _imp_current_line = 1077; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1077 "regression-bugs-tmp/hal7502.imp" goto U_1015; // 1078 %FINISH _imp_current_line = 1078; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1078 "regression-bugs-tmp/hal7502.imp" L_0168:; // 1079 ->LEND %IF SKIP # 0 %OR SYM = '/' _imp_current_line = 1079; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1079 "regression-bugs-tmp/hal7502.imp" if (((SKIP) != (0))) goto L_0166; #line 1079 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (47))) goto L_0179; #line 1079 "regression-bugs-tmp/hal7502.imp" L_0166:; #line 1079 "regression-bugs-tmp/hal7502.imp" goto U_1015; #line 1079 "regression-bugs-tmp/hal7502.imp" L_0179:; // 1080 %IF SYM = NL %START _imp_current_line = 1080; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1080 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (10))) goto L_017a; // 1081 ->LEND %IF LINES < 54 _imp_current_line = 1081; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1081 "regression-bugs-tmp/hal7502.imp" if (((LINES) >= (54))) goto L_017b; #line 1081 "regression-bugs-tmp/hal7502.imp" goto U_1015; #line 1081 "regression-bugs-tmp/hal7502.imp" L_017b:; // 1082 DO NEWLINE %WHILE LINES # 0 _imp_current_line = 1082; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1082 "regression-bugs-tmp/hal7502.imp" L_017c:; #line 1082 "regression-bugs-tmp/hal7502.imp" if (((LINES) == (0))) goto L_017d; #line 1082 "regression-bugs-tmp/hal7502.imp" DONEWLINE(); #line 1082 "regression-bugs-tmp/hal7502.imp" goto L_017c; #line 1082 "regression-bugs-tmp/hal7502.imp" L_017d:; // 1083 ->READ _imp_current_line = 1083; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1083 "regression-bugs-tmp/hal7502.imp" goto U_100e; // 1084 %FINISH _imp_current_line = 1084; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1084 "regression-bugs-tmp/hal7502.imp" L_017a:; // 1085 %IF TAG %START _imp_current_line = 1085; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1085 "regression-bugs-tmp/hal7502.imp" if (TAG()) goto L_017f; // 1086 ->LABDEF %IF TERM = ':' _imp_current_line = 1086; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1086 "regression-bugs-tmp/hal7502.imp" if (((TERM) != (58))) goto L_0180; #line 1086 "regression-bugs-tmp/hal7502.imp" goto U_1006; #line 1086 "regression-bugs-tmp/hal7502.imp" L_0180:; // 1087 MODE = 1 _imp_current_line = 1087; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1087 "regression-bugs-tmp/hal7502.imp" MODE = 1; // 1088 ->ASSIGN %IF TERM = '(' %OR SYM = '=' _imp_current_line = 1088; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1088 "regression-bugs-tmp/hal7502.imp" if (((TERM) == (40))) goto L_017e; #line 1088 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (61))) goto L_0181; #line 1088 "regression-bugs-tmp/hal7502.imp" L_017e:; #line 1088 "regression-bugs-tmp/hal7502.imp" goto U_1018; #line 1088 "regression-bugs-tmp/hal7502.imp" L_0181:; // 1089 ->JUMP %IF TAG1 = JUM %AND (TAG2=P %OR TAG2=PS) _imp_current_line = 1089; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1089 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (JUM))) goto L_0182; #line 1089 "regression-bugs-tmp/hal7502.imp" if (((TAG2) == (P))) goto L_0183; #line 1089 "regression-bugs-tmp/hal7502.imp" if (((TAG2) != (PS))) goto L_0182; #line 1089 "regression-bugs-tmp/hal7502.imp" L_0183:; #line 1089 "regression-bugs-tmp/hal7502.imp" goto U_1019; #line 1089 "regression-bugs-tmp/hal7502.imp" L_0182:; // 1090 ->IFC %IF TAG1 = IF _imp_current_line = 1090; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1090 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (IF))) goto L_0184; #line 1090 "regression-bugs-tmp/hal7502.imp" goto U_101a; #line 1090 "regression-bugs-tmp/hal7502.imp" L_0184:; // 1091 ->ELSE %IF TAG1 = ELS %AND TAG2 = E _imp_current_line = 1091; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1091 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (ELS))) goto L_0185; #line 1091 "regression-bugs-tmp/hal7502.imp" if (((TAG2) != (E))) goto L_0185; #line 1091 "regression-bugs-tmp/hal7502.imp" goto U_101b; #line 1091 "regression-bugs-tmp/hal7502.imp" L_0185:; // 1092 ->FINISH %IF TAG1 = FIN %AND TAG2 = ISH _imp_current_line = 1092; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1092 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (FIN))) goto L_0186; #line 1092 "regression-bugs-tmp/hal7502.imp" if (((TAG2) != (ISH))) goto L_0186; #line 1092 "regression-bugs-tmp/hal7502.imp" goto U_101c; #line 1092 "regression-bugs-tmp/hal7502.imp" L_0186:; // 1093 ->WHILE %IF TAG1 = 25106 %AND TAG2 = 13173 _imp_current_line = 1093; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1093 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (25106))) goto L_0187; #line 1093 "regression-bugs-tmp/hal7502.imp" if (((TAG2) != (13173))) goto L_0187; #line 1093 "regression-bugs-tmp/hal7502.imp" goto U_101d; #line 1093 "regression-bugs-tmp/hal7502.imp" L_0187:; // 1094 ->CYCLE %IF TAG1 = 4269 %AND TAG2 = 13173 _imp_current_line = 1094; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1094 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (4269))) goto L_0188; #line 1094 "regression-bugs-tmp/hal7502.imp" if (((TAG2) != (13173))) goto L_0188; #line 1094 "regression-bugs-tmp/hal7502.imp" goto U_101e; #line 1094 "regression-bugs-tmp/hal7502.imp" L_0188:; // 1095 ->REPEAT %IF TAG1 = 19637 %AND TAG2 = 5544 _imp_current_line = 1095; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1095 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (19637))) goto L_0189; #line 1095 "regression-bugs-tmp/hal7502.imp" if (((TAG2) != (5544))) goto L_0189; #line 1095 "regression-bugs-tmp/hal7502.imp" goto U_101f; #line 1095 "regression-bugs-tmp/hal7502.imp" L_0189:; // 1096 MODE=-2 %AND ->DATA %IF TAG1 = B _imp_current_line = 1096; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1096 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (B))) goto L_018a; #line 1096 "regression-bugs-tmp/hal7502.imp" MODE = (-2); #line 1096 "regression-bugs-tmp/hal7502.imp" goto U_1020; #line 1096 "regression-bugs-tmp/hal7502.imp" L_018a:; // 1097 TYPE = UMASK; LOOKUP(0) _imp_current_line = 1097; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1097 "regression-bugs-tmp/hal7502.imp" TYPE = UMASK; _imp_current_line = 1097; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1097 "regression-bugs-tmp/hal7502.imp" LOOKUP(0); // 1098 ->MACCALL %IF TYPE&OPMASK = MACRO _imp_current_line = 1098; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1098 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (OPMASK))) != (MACRO))) goto L_018b; #line 1098 "regression-bugs-tmp/hal7502.imp" goto U_1021; #line 1098 "regression-bugs-tmp/hal7502.imp" L_018b:; // 1099 ->MINST %IF TYPE&OPMASK # 0 _imp_current_line = 1099; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1099 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (OPMASK))) == (0))) goto L_018c; #line 1099 "regression-bugs-tmp/hal7502.imp" goto U_1022; #line 1099 "regression-bugs-tmp/hal7502.imp" L_018c:; // 1100 FAULT('U') %AND ->LEND %IF TYPE&UMASK # 0 _imp_current_line = 1100; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1100 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (UMASK))) == (0))) goto L_018d; #line 1100 "regression-bugs-tmp/hal7502.imp" FAULT(85); #line 1100 "regression-bugs-tmp/hal7502.imp" goto U_1015; #line 1100 "regression-bugs-tmp/hal7502.imp" L_018d:; // 1101 PEND = -1 _imp_current_line = 1101; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1101 "regression-bugs-tmp/hal7502.imp" PEND = (-1); // 1102 %FINISH _imp_current_line = 1102; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1102 "regression-bugs-tmp/hal7502.imp" L_017f:; // 1103 MODE = -1 _imp_current_line = 1103; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1103 "regression-bugs-tmp/hal7502.imp" MODE = (-1); // 1104 DATA: _imp_current_line = 1104; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1104 "regression-bugs-tmp/hal7502.imp" U_1020:; // 1105 %CYCLE _imp_current_line = 1105; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1105 "regression-bugs-tmp/hal7502.imp" L_018e:; // 1106 GET EXP; ASSEMBLE _imp_current_line = 1106; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1106 "regression-bugs-tmp/hal7502.imp" GETEXP(); _imp_current_line = 1106; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1106 "regression-bugs-tmp/hal7502.imp" ASSEMBLE(); // 1107 FAULT('I') %IF TYPE®XMASK # 0 _imp_current_line = 1107; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1107 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (REGXMASK))) == (0))) goto L_0191; #line 1107 "regression-bugs-tmp/hal7502.imp" FAULT(73); #line 1107 "regression-bugs-tmp/hal7502.imp" L_0191:; // 1108 I = 1 _imp_current_line = 1108; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1108 "regression-bugs-tmp/hal7502.imp" I = 1; // 1109 %IF S('$') %START _imp_current_line = 1109; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1109 "regression-bugs-tmp/hal7502.imp" if (S(36)) goto L_0192; // 1110 I = VAL %IF VAL < 1000 _imp_current_line = 1110; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1110 "regression-bugs-tmp/hal7502.imp" if (((VAL) >= (1000))) goto L_0193; #line 1110 "regression-bugs-tmp/hal7502.imp" I = VAL; #line 1110 "regression-bugs-tmp/hal7502.imp" L_0193:; // 1111 QLIM = QSTART _imp_current_line = 1111; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1111 "regression-bugs-tmp/hal7502.imp" QLIM = QSTART; // 1112 GET EXP; ASSEMBLE _imp_current_line = 1112; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1112 "regression-bugs-tmp/hal7502.imp" GETEXP(); _imp_current_line = 1112; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1112 "regression-bugs-tmp/hal7502.imp" ASSEMBLE(); // 1113 %FINISH _imp_current_line = 1113; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1113 "regression-bugs-tmp/hal7502.imp" L_0192:; // 1114 %WHILE I > 0 %CYCLE _imp_current_line = 1114; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1114 "regression-bugs-tmp/hal7502.imp" L_0194:; #line 1114 "regression-bugs-tmp/hal7502.imp" if (((I) <= (0))) goto L_0195; // 1115 %IF MODE # -1 %START _imp_current_line = 1115; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1115 "regression-bugs-tmp/hal7502.imp" if (((MODE) == ((-1)))) goto L_0197; // 1116 FAULT('T') %IF VAL&16_FF00 # 0 _imp_current_line = 1116; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1116 "regression-bugs-tmp/hal7502.imp" if (((((VAL) & (65280))) == (0))) goto L_0198; #line 1116 "regression-bugs-tmp/hal7502.imp" FAULT(84); #line 1116 "regression-bugs-tmp/hal7502.imp" L_0198:; // 1117 %IF MODE = -2 %START _imp_current_line = 1117; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1117 "regression-bugs-tmp/hal7502.imp" if (((MODE) != ((-2)))) goto L_0199; // 1118 J = VAL<<8; MODE = -3 _imp_current_line = 1118; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1118 "regression-bugs-tmp/hal7502.imp" J = ((VAL) << (8)); _imp_current_line = 1118; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1118 "regression-bugs-tmp/hal7502.imp" MODE = (-3); // 1119 %finish %ELSE %START _imp_current_line = 1119; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1119 "regression-bugs-tmp/hal7502.imp" goto L_019a; #line 1119 "regression-bugs-tmp/hal7502.imp" L_0199:; // 1120 VAL = VAL+J; MODE = -2 _imp_current_line = 1120; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1120 "regression-bugs-tmp/hal7502.imp" VAL = (((int)(VAL)) + (J)); _imp_current_line = 1120; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1120 "regression-bugs-tmp/hal7502.imp" MODE = (-2); // 1121 PLANT VAL _imp_current_line = 1121; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1121 "regression-bugs-tmp/hal7502.imp" PLANTVAL(); // 1122 %FINISH _imp_current_line = 1122; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1122 "regression-bugs-tmp/hal7502.imp" L_019a:; // 1123 %finish %ELSE %START _imp_current_line = 1123; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1123 "regression-bugs-tmp/hal7502.imp" goto L_019b; #line 1123 "regression-bugs-tmp/hal7502.imp" L_0197:; // 1124 PLANT VAL; VAL = VAL&255 _imp_current_line = 1124; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1124 "regression-bugs-tmp/hal7502.imp" PLANTVAL(); _imp_current_line = 1124; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1124 "regression-bugs-tmp/hal7502.imp" VAL = ((VAL) & (255)); // 1125 %FINISH _imp_current_line = 1125; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1125 "regression-bugs-tmp/hal7502.imp" L_019b:; // 1126 I = I-1 _imp_current_line = 1126; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1126 "regression-bugs-tmp/hal7502.imp" I = (((int)(I)) - (1)); // 1127 %REPEAT _imp_current_line = 1127; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1127 "regression-bugs-tmp/hal7502.imp" goto L_0194; #line 1127 "regression-bugs-tmp/hal7502.imp" L_0195:; // 1128 %EXIT %UNLESS S(',') %OR SYM&128 # 0 _imp_current_line = 1128; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1128 "regression-bugs-tmp/hal7502.imp" if (S(44)) goto L_019c; #line 1128 "regression-bugs-tmp/hal7502.imp" if (((((SYM) & (128))) != (0))) goto L_019c; #line 1128 "regression-bugs-tmp/hal7502.imp" goto L_018f; #line 1128 "regression-bugs-tmp/hal7502.imp" L_019c:; // 1129 %IF SYM = NL %START _imp_current_line = 1129; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1129 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (10))) goto L_019d; // 1130 PRINT LINE %IF PRINTPOS # 0; READ LINE _imp_current_line = 1130; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1130 "regression-bugs-tmp/hal7502.imp" if (((PRINTPOS) == (0))) goto L_019e; #line 1130 "regression-bugs-tmp/hal7502.imp" PRINTLINE(); #line 1130 "regression-bugs-tmp/hal7502.imp" L_019e:; _imp_current_line = 1130; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1130 "regression-bugs-tmp/hal7502.imp" READLINE(); // 1131 QSTART = QBASE _imp_current_line = 1131; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1131 "regression-bugs-tmp/hal7502.imp" QSTART = QBASE; // 1132 %FINISH _imp_current_line = 1132; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1132 "regression-bugs-tmp/hal7502.imp" L_019d:; // 1133 QLIM = QSTART _imp_current_line = 1133; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1133 "regression-bugs-tmp/hal7502.imp" QLIM = QSTART; // 1134 %REPEAT _imp_current_line = 1134; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1134 "regression-bugs-tmp/hal7502.imp" goto L_018e; #line 1134 "regression-bugs-tmp/hal7502.imp" L_018f:; // 1135 VAL=J %AND PLANT VAL %IF MODE = -3 _imp_current_line = 1135; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1135 "regression-bugs-tmp/hal7502.imp" if (((MODE) != ((-3)))) goto L_019f; #line 1135 "regression-bugs-tmp/hal7502.imp" VAL = J; #line 1135 "regression-bugs-tmp/hal7502.imp" PLANTVAL(); #line 1135 "regression-bugs-tmp/hal7502.imp" L_019f:; // 1136 ->SEND _imp_current_line = 1136; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1136 "regression-bugs-tmp/hal7502.imp" goto U_1023; // 1137 // 1138 LABDEF: _imp_current_line = 1138; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1138 "regression-bugs-tmp/hal7502.imp" U_1006:; // 1139 CREG = -1; ATYPE = -1 _imp_current_line = 1139; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1139 "regression-bugs-tmp/hal7502.imp" CREG = (-1); _imp_current_line = 1139; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1139 "regression-bugs-tmp/hal7502.imp" ATYPE = (-1); // 1140 GET SYM _imp_current_line = 1140; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1140 "regression-bugs-tmp/hal7502.imp" GETSYM(); // 1141 FAULT('C') %AND NP=STORELIM %IF NP # STORELIM _imp_current_line = 1141; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1141 "regression-bugs-tmp/hal7502.imp" if (((NP) == (STORELIM))) goto L_01a0; #line 1141 "regression-bugs-tmp/hal7502.imp" FAULT(67); #line 1141 "regression-bugs-tmp/hal7502.imp" NP = STORELIM; #line 1141 "regression-bugs-tmp/hal7502.imp" L_01a0:; // 1142 TYPE = LOCTYPE; VAL = LOC _imp_current_line = 1142; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1142 "regression-bugs-tmp/hal7502.imp" TYPE = LOCTYPE; _imp_current_line = 1142; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1142 "regression-bugs-tmp/hal7502.imp" VAL = LOC; // 1143 LOOKUP(7) _imp_current_line = 1143; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1143 "regression-bugs-tmp/hal7502.imp" LOOKUP(7); // 1144 ->NEXT _imp_current_line = 1144; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1144 "regression-bugs-tmp/hal7502.imp" goto U_100f; // 1145 // 1146 ASSIGN: _imp_current_line = 1146; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1146 "regression-bugs-tmp/hal7502.imp" U_1018:; // 1147 PEND = 1 _imp_current_line = 1147; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1147 "regression-bugs-tmp/hal7502.imp" PEND = 1; // 1148 GET EXP _imp_current_line = 1148; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1148 "regression-bugs-tmp/hal7502.imp" GETEXP(); // 1149 ->ERR %IF %NOT S('=') _imp_current_line = 1149; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1149 "regression-bugs-tmp/hal7502.imp" if (S(61)) goto L_01a1; #line 1149 "regression-bugs-tmp/hal7502.imp" goto U_1011; #line 1149 "regression-bugs-tmp/hal7502.imp" L_01a1:; // 1150 QUEUE(-25); !'STORE' _imp_current_line = 1150; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1150 "regression-bugs-tmp/hal7502.imp" QUEUE((-25)); // 1151 %IF INTEGER(QBASE) = REG %START _imp_current_line = 1151; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1151 "regression-bugs-tmp/hal7502.imp" if (((*_imp_INTEGER(QBASE)) != (REG))) goto L_01a2; // 1152 DREG = INTEGER(QBASE+1) _imp_current_line = 1152; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1152 "regression-bugs-tmp/hal7502.imp" DREG = *_imp_INTEGER((((int)(QBASE)) + (1))); // 1153 DUSE = 0 _imp_current_line = 1153; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1153 "regression-bugs-tmp/hal7502.imp" DUSE = 0; // 1154 %FINISH _imp_current_line = 1154; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1154 "regression-bugs-tmp/hal7502.imp" L_01a2:; // 1155 QSTART = QLIM; MODE = 2 _imp_current_line = 1155; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1155 "regression-bugs-tmp/hal7502.imp" QSTART = QLIM; _imp_current_line = 1155; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1155 "regression-bugs-tmp/hal7502.imp" MODE = 2; // 1156 GET EXP _imp_current_line = 1156; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1156 "regression-bugs-tmp/hal7502.imp" GETEXP(); // 1157 QUEUE(-24); !'LOAD' _imp_current_line = 1157; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1157 "regression-bugs-tmp/hal7502.imp" QUEUE((-24)); // 1158 // 1159 CONDQ: _imp_current_line = 1159; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1159 "regression-bugs-tmp/hal7502.imp" U_1024:; // 1160 %IF TAGIF %START _imp_current_line = 1160; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1160 "regression-bugs-tmp/hal7502.imp" if (TAGIF()) goto L_01a3; // 1161 MODE = MODE+4; DREG = DREG-16; !SCARIFY _imp_current_line = 1161; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1161 "regression-bugs-tmp/hal7502.imp" MODE = (((int)(MODE)) + (4)); _imp_current_line = 1161; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1161 "regression-bugs-tmp/hal7502.imp" DREG = (((int)(DREG)) - (16)); // 1162 GET COND; ASSEMBLE _imp_current_line = 1162; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1162 "regression-bugs-tmp/hal7502.imp" GETCOND(); _imp_current_line = 1162; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1162 "regression-bugs-tmp/hal7502.imp" ASSEMBLE(); // 1163 MODE = MODE-4; DREG = DREG+16; !RESTORE _imp_current_line = 1163; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1163 "regression-bugs-tmp/hal7502.imp" MODE = (((int)(MODE)) - (4)); _imp_current_line = 1163; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1163 "regression-bugs-tmp/hal7502.imp" DREG = (((int)(DREG)) + (16)); // 1164 QLIM = QSTART; QSTART = TRANSF _imp_current_line = 1164; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1164 "regression-bugs-tmp/hal7502.imp" QLIM = QSTART; _imp_current_line = 1164; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1164 "regression-bugs-tmp/hal7502.imp" QSTART = TRANSF; // 1165 %FINISH _imp_current_line = 1165; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1165 "regression-bugs-tmp/hal7502.imp" L_01a3:; // 1166 ASSEMBLE _imp_current_line = 1166; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1166 "regression-bugs-tmp/hal7502.imp" ASSEMBLE(); // 1167 ->SEND _imp_current_line = 1167; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1167 "regression-bugs-tmp/hal7502.imp" goto U_1023; // 1168 // 1169 JUMP: _imp_current_line = 1169; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1169 "regression-bugs-tmp/hal7502.imp" U_1019:; // 1170 FLAG = TAG2-P; !POSITIVE IF SHORT _imp_current_line = 1170; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1170 "regression-bugs-tmp/hal7502.imp" FLAG = (((int)(TAG2)) - (P)); // 1171 GET EXP _imp_current_line = 1171; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1171 "regression-bugs-tmp/hal7502.imp" GETEXP(); // 1172 QUEUE(-26); !'JUMP' _imp_current_line = 1172; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1172 "regression-bugs-tmp/hal7502.imp" QUEUE((-26)); // 1173 ->CONDQ _imp_current_line = 1173; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1173 "regression-bugs-tmp/hal7502.imp" goto U_1024; // 1174 // 1175 MINST: _imp_current_line = 1175; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1175 "regression-bugs-tmp/hal7502.imp" U_1022:; // 1176 MODE = -1 _imp_current_line = 1176; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1176 "regression-bugs-tmp/hal7502.imp" MODE = (-1); // 1177 GET INST _imp_current_line = 1177; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1177 "regression-bugs-tmp/hal7502.imp" GETINST(); // 1178 QUEUE(-23); !'PLANT' _imp_current_line = 1178; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1178 "regression-bugs-tmp/hal7502.imp" QUEUE((-23)); // 1179 ->CONDQ _imp_current_line = 1179; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1179 "regression-bugs-tmp/hal7502.imp" goto U_1024; // 1180 // 1181 MACCALL: _imp_current_line = 1181; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1181 "regression-bugs-tmp/hal7502.imp" U_1021:; // 1182 QUEUE(VAL); !DEFPOS _imp_current_line = 1182; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1182 "regression-bugs-tmp/hal7502.imp" QUEUE(VAL); // 1183 QUEUE(TYPE&1023); !JOKER _imp_current_line = 1183; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1183 "regression-bugs-tmp/hal7502.imp" QUEUE(((TYPE) & (1023))); // 1184 QUEUE(0); !(CALLPOS) _imp_current_line = 1184; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1184 "regression-bugs-tmp/hal7502.imp" QUEUE(0); // 1185 QUEUE(STARTPOS) _imp_current_line = 1185; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1185 "regression-bugs-tmp/hal7502.imp" QUEUE(STARTPOS); // 1186 QUEUE(MP) _imp_current_line = 1186; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1186 "regression-bugs-tmp/hal7502.imp" QUEUE(MP); // 1187 %CYCLE _imp_current_line = 1187; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1187 "regression-bugs-tmp/hal7502.imp" L_01a4:; // 1188 %EXIT %IF CHAR(INTEGER(QBASE)) = NL; !END OF MAC DEF _imp_current_line = 1188; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1188 "regression-bugs-tmp/hal7502.imp" if (((CHAR(*_imp_INTEGER(QBASE))) != (10))) goto L_01a7; #line 1188 "regression-bugs-tmp/hal7502.imp" goto L_01a5; #line 1188 "regression-bugs-tmp/hal7502.imp" L_01a7:; // 1189 I = GETPOS-1; !SAVE CALLPOS _imp_current_line = 1189; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1189 "regression-bugs-tmp/hal7502.imp" I = (((int)(GETPOS)) - (1)); // 1190 GETPOS = INTEGER(QBASE); GET SYM _imp_current_line = 1190; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1190 "regression-bugs-tmp/hal7502.imp" GETPOS = *_imp_INTEGER(QBASE); _imp_current_line = 1190; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1190 "regression-bugs-tmp/hal7502.imp" GETSYM(); // 1191 !!%MONITOR 24 %IF %NOT TAG // 1192 TYPE = 0; VAL = 0 _imp_current_line = 1192; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1192 "regression-bugs-tmp/hal7502.imp" TYPE = 0; _imp_current_line = 1192; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1192 "regression-bugs-tmp/hal7502.imp" VAL = 0; // 1193 SCAN ARG _imp_current_line = 1193; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1193 "regression-bugs-tmp/hal7502.imp" SCANARG(); // 1194 GET SYM %IF SYM = ',' _imp_current_line = 1194; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1194 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (44))) goto L_01a8; #line 1194 "regression-bugs-tmp/hal7502.imp" GETSYM(); #line 1194 "regression-bugs-tmp/hal7502.imp" L_01a8:; // 1195 INTEGER(QBASE) = GETPOS-1; !UPDATE DEFPOS _imp_current_line = 1195; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1195 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER(QBASE) = (((int)(GETPOS)) - (1)); // 1196 GETPOS = I; GET SYM; !RESTORE CALLPOS _imp_current_line = 1196; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1196 "regression-bugs-tmp/hal7502.imp" GETPOS = I; _imp_current_line = 1196; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1196 "regression-bugs-tmp/hal7502.imp" GETSYM(); // 1197 SCAN ARG _imp_current_line = 1197; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1197 "regression-bugs-tmp/hal7502.imp" SCANARG(); // 1198 GET SYM %IF SYM = ',' _imp_current_line = 1198; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1198 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (44))) goto L_01a9; #line 1198 "regression-bugs-tmp/hal7502.imp" GETSYM(); #line 1198 "regression-bugs-tmp/hal7502.imp" L_01a9:; // 1199 QUEUE(TAG1); QUEUE(TAG2) _imp_current_line = 1199; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1199 "regression-bugs-tmp/hal7502.imp" QUEUE(TAG1); _imp_current_line = 1199; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1199 "regression-bugs-tmp/hal7502.imp" QUEUE(TAG2); // 1200 QUEUE(TYPE); QUEUE(VAL) _imp_current_line = 1200; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1200 "regression-bugs-tmp/hal7502.imp" QUEUE(TYPE); _imp_current_line = 1200; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1200 "regression-bugs-tmp/hal7502.imp" QUEUE(VAL); // 1201 %REPEAT _imp_current_line = 1201; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1201 "regression-bugs-tmp/hal7502.imp" goto L_01a4; #line 1201 "regression-bugs-tmp/hal7502.imp" L_01a5:; // 1202 GET SYM %IF SYM = ' ' _imp_current_line = 1202; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1202 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (32))) goto L_01aa; #line 1202 "regression-bugs-tmp/hal7502.imp" GETSYM(); #line 1202 "regression-bugs-tmp/hal7502.imp" L_01aa:; // 1203 %IF TAGIF %START _imp_current_line = 1203; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1203 "regression-bugs-tmp/hal7502.imp" if (TAGIF()) goto L_01ab; // 1204 GET COND; QUEUE(-18); ASSEMBLE _imp_current_line = 1204; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1204 "regression-bugs-tmp/hal7502.imp" GETCOND(); _imp_current_line = 1204; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1204 "regression-bugs-tmp/hal7502.imp" QUEUE((-18)); _imp_current_line = 1204; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1204 "regression-bugs-tmp/hal7502.imp" ASSEMBLE(); // 1205 QLIM = QSTART _imp_current_line = 1205; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1205 "regression-bugs-tmp/hal7502.imp" QLIM = QSTART; // 1206 INTEGER(QBASE+1) = INTEGER(QBASE+1)+16_8000 _imp_current_line = 1206; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1206 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER((((int)(QBASE)) + (1))) = ((*(int *)(_imp_INTEGER((((int)(QBASE)) + (1))))) + (32768)); // 1207 %FINISH _imp_current_line = 1207; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1207 "regression-bugs-tmp/hal7502.imp" L_01ab:; // 1208 QUEUE(0) _imp_current_line = 1208; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1208 "regression-bugs-tmp/hal7502.imp" QUEUE(0); // 1209 MP = QBASE; STARTPOS = QLIM<<1 _imp_current_line = 1209; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1209 "regression-bugs-tmp/hal7502.imp" MP = QBASE; _imp_current_line = 1209; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1209 "regression-bugs-tmp/hal7502.imp" STARTPOS = ((QLIM) << (1)); // 1210 INTEGER(MP) = INTEGER(MP)+1 _imp_current_line = 1210; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1210 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER(MP) = ((*(int *)(_imp_INTEGER(MP))) + (1)); // 1211 INTEGER(MP+2) = GETPOS-1 _imp_current_line = 1211; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1211 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER((((int)(MP)) + (2))) = (((int)(GETPOS)) - (1)); // 1212 PRINT LINE %IF PRINTPOS # 0 %AND LIST&2 # 0 _imp_current_line = 1212; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1212 "regression-bugs-tmp/hal7502.imp" if (((PRINTPOS) == (0))) goto L_01ac; #line 1212 "regression-bugs-tmp/hal7502.imp" if (((((LIST) & (2))) == (0))) goto L_01ac; #line 1212 "regression-bugs-tmp/hal7502.imp" PRINTLINE(); #line 1212 "regression-bugs-tmp/hal7502.imp" L_01ac:; // 1213 ->READ _imp_current_line = 1213; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1213 "regression-bugs-tmp/hal7502.imp" goto U_100e; // 1214 // 1215 !CODING OF JUMPS: 1000 (SINGLE INST), 2000 (MAIN IF) // 1216 ! 4000 (ELSE), 6000 (IF AFTER ELSE) // 1217 // 1218 IFC: _imp_current_line = 1218; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1218 "regression-bugs-tmp/hal7502.imp" U_101a:; // 1219 GET COND; QUEUE(-15); ASSEMBLE _imp_current_line = 1219; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1219 "regression-bugs-tmp/hal7502.imp" GETCOND(); _imp_current_line = 1219; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1219 "regression-bugs-tmp/hal7502.imp" QUEUE((-15)); _imp_current_line = 1219; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1219 "regression-bugs-tmp/hal7502.imp" ASSEMBLE(); // 1220 ->SEND _imp_current_line = 1220; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1220 "regression-bugs-tmp/hal7502.imp" goto U_1023; // 1221 // 1222 ELSE: _imp_current_line = 1222; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1222 "regression-bugs-tmp/hal7502.imp" U_101b:; // 1223 ->CERR %IF INTEGER(NP)&16_2000 = 0 _imp_current_line = 1223; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1223 "regression-bugs-tmp/hal7502.imp" if (((((*_imp_INTEGER(NP)) & (8192))) != (0))) goto L_01ad; #line 1223 "regression-bugs-tmp/hal7502.imp" goto U_1025; #line 1223 "regression-bugs-tmp/hal7502.imp" L_01ad:; // 1224 QUEUE(0); QUEUE(0) _imp_current_line = 1224; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1224 "regression-bugs-tmp/hal7502.imp" QUEUE(0); _imp_current_line = 1224; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1224 "regression-bugs-tmp/hal7502.imp" QUEUE(0); // 1225 QUEUE(-16); ASSEMBLE _imp_current_line = 1225; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1225 "regression-bugs-tmp/hal7502.imp" QUEUE((-16)); _imp_current_line = 1225; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1225 "regression-bugs-tmp/hal7502.imp" ASSEMBLE(); // 1226 ATYPE = -1; CREG = -1 _imp_current_line = 1226; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1226 "regression-bugs-tmp/hal7502.imp" ATYPE = (-1); _imp_current_line = 1226; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1226 "regression-bugs-tmp/hal7502.imp" CREG = (-1); // 1227 %IF TAGIF %START _imp_current_line = 1227; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1227 "regression-bugs-tmp/hal7502.imp" if (TAGIF()) goto L_01ae; // 1228 GET COND; QUEUE(-17); ASSEMBLE _imp_current_line = 1228; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1228 "regression-bugs-tmp/hal7502.imp" GETCOND(); _imp_current_line = 1228; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1228 "regression-bugs-tmp/hal7502.imp" QUEUE((-17)); _imp_current_line = 1228; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1228 "regression-bugs-tmp/hal7502.imp" ASSEMBLE(); // 1229 %FINISH _imp_current_line = 1229; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1229 "regression-bugs-tmp/hal7502.imp" L_01ae:; // 1230 ->SEND _imp_current_line = 1230; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1230 "regression-bugs-tmp/hal7502.imp" goto U_1023; // 1231 // 1232 FINISH: _imp_current_line = 1232; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1232 "regression-bugs-tmp/hal7502.imp" U_101c:; // 1233 ->CERR %IF INTEGER(NP)&16_6000 = 0 _imp_current_line = 1233; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1233 "regression-bugs-tmp/hal7502.imp" if (((((*_imp_INTEGER(NP)) & (24576))) != (0))) goto L_01af; #line 1233 "regression-bugs-tmp/hal7502.imp" goto U_1025; #line 1233 "regression-bugs-tmp/hal7502.imp" L_01af:; // 1234 I = LOC _imp_current_line = 1234; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1234 "regression-bugs-tmp/hal7502.imp" I = LOC; // 1235 %WHILE INTEGER(NP)&16_4000 # 0 %CYCLE _imp_current_line = 1235; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1235 "regression-bugs-tmp/hal7502.imp" L_01b0:; #line 1235 "regression-bugs-tmp/hal7502.imp" if (((((*_imp_INTEGER(NP)) & (16384))) == (0))) goto L_01b1; // 1236 %IF INTEGER(NP)&16_2000 # 0 %START; !IF AFTER ELSE _imp_current_line = 1236; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1236 "regression-bugs-tmp/hal7502.imp" if (((((*_imp_INTEGER(NP)) & (8192))) == (0))) goto L_01b3; // 1237 SET LAB(I) _imp_current_line = 1237; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1237 "regression-bugs-tmp/hal7502.imp" SETLAB(I); // 1238 %finish %ELSE %START _imp_current_line = 1238; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1238 "regression-bugs-tmp/hal7502.imp" goto L_01b4; #line 1238 "regression-bugs-tmp/hal7502.imp" L_01b3:; // 1239 SET LAB(LOC) _imp_current_line = 1239; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1239 "regression-bugs-tmp/hal7502.imp" SETLAB(LOC); // 1240 I = VAL+1 _imp_current_line = 1240; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1240 "regression-bugs-tmp/hal7502.imp" I = (((int)(VAL)) + (1)); // 1241 %FINISH _imp_current_line = 1241; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1241 "regression-bugs-tmp/hal7502.imp" L_01b4:; // 1242 %REPEAT _imp_current_line = 1242; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1242 "regression-bugs-tmp/hal7502.imp" goto L_01b0; #line 1242 "regression-bugs-tmp/hal7502.imp" L_01b1:; // 1243 SET LAB(I) _imp_current_line = 1243; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1243 "regression-bugs-tmp/hal7502.imp" SETLAB(I); // 1244 ->SEND _imp_current_line = 1244; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1244 "regression-bugs-tmp/hal7502.imp" goto U_1023; // 1245 // 1246 WHILE: _imp_current_line = 1246; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1246 "regression-bugs-tmp/hal7502.imp" U_101d:; // 1247 I = LOC; ATYPE = -1; CREG = -1 _imp_current_line = 1247; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1247 "regression-bugs-tmp/hal7502.imp" I = LOC; _imp_current_line = 1247; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1247 "regression-bugs-tmp/hal7502.imp" ATYPE = (-1); _imp_current_line = 1247; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1247 "regression-bugs-tmp/hal7502.imp" CREG = (-1); // 1248 GET COND; QUEUE(-13); ASSEMBLE _imp_current_line = 1248; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1248 "regression-bugs-tmp/hal7502.imp" GETCOND(); _imp_current_line = 1248; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1248 "regression-bugs-tmp/hal7502.imp" QUEUE((-13)); _imp_current_line = 1248; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1248 "regression-bugs-tmp/hal7502.imp" ASSEMBLE(); // 1249 NEST(I); NEST(1) _imp_current_line = 1249; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1249 "regression-bugs-tmp/hal7502.imp" NEST(I); _imp_current_line = 1249; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1249 "regression-bugs-tmp/hal7502.imp" NEST(1); // 1250 ->SEND _imp_current_line = 1250; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1250 "regression-bugs-tmp/hal7502.imp" goto U_1023; // 1251 // 1252 CYCLE: _imp_current_line = 1252; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1252 "regression-bugs-tmp/hal7502.imp" U_101e:; // 1253 NEST(LOC); NEST(1) _imp_current_line = 1253; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1253 "regression-bugs-tmp/hal7502.imp" NEST(LOC); _imp_current_line = 1253; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1253 "regression-bugs-tmp/hal7502.imp" NEST(1); // 1254 ->SEND _imp_current_line = 1254; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1254 "regression-bugs-tmp/hal7502.imp" goto U_1023; // 1255 // 1256 REPEAT: _imp_current_line = 1256; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1256 "regression-bugs-tmp/hal7502.imp" U_101f:; // 1257 ->CERR %IF INTEGER(NP) # 1 _imp_current_line = 1257; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1257 "regression-bugs-tmp/hal7502.imp" if (((*_imp_INTEGER(NP)) == (1))) goto L_01b5; #line 1257 "regression-bugs-tmp/hal7502.imp" goto U_1025; #line 1257 "regression-bugs-tmp/hal7502.imp" L_01b5:; // 1258 QUEUE(LOCTYPE); QUEUE(INTEGER(NP+1)) _imp_current_line = 1258; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1258 "regression-bugs-tmp/hal7502.imp" QUEUE(LOCTYPE); _imp_current_line = 1258; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1258 "regression-bugs-tmp/hal7502.imp" QUEUE(*_imp_INTEGER((((int)(NP)) + (1)))); // 1259 NP = NP+2 _imp_current_line = 1259; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1259 "regression-bugs-tmp/hal7502.imp" NP = (((int)(NP)) + (2)); // 1260 QUEUE(-26); !'JUMP' _imp_current_line = 1260; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1260 "regression-bugs-tmp/hal7502.imp" QUEUE((-26)); // 1261 FLAG = -1 _imp_current_line = 1261; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1261 "regression-bugs-tmp/hal7502.imp" FLAG = (-1); // 1262 ->CONDQ _imp_current_line = 1262; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1262 "regression-bugs-tmp/hal7502.imp" goto U_1024; // 1263 // 1264 CERR: _imp_current_line = 1264; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1264 "regression-bugs-tmp/hal7502.imp" U_1025:; // 1265 FAULT('C') _imp_current_line = 1265; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1265 "regression-bugs-tmp/hal7502.imp" FAULT(67); // 1266 ->LEND _imp_current_line = 1266; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1266 "regression-bugs-tmp/hal7502.imp" goto U_1015; // 1267 // 1268 SEND: _imp_current_line = 1268; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1268 "regression-bugs-tmp/hal7502.imp" U_1023:; // 1269 SET LAB(LOC) %IF INTEGER(NP)&16_1000 # 0 _imp_current_line = 1269; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1269 "regression-bugs-tmp/hal7502.imp" if (((((*_imp_INTEGER(NP)) & (4096))) == (0))) goto L_01b6; #line 1269 "regression-bugs-tmp/hal7502.imp" SETLAB(LOC); #line 1269 "regression-bugs-tmp/hal7502.imp" L_01b6:; // 1270 ->LEND %IF SYM = NL _imp_current_line = 1270; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1270 "regression-bugs-tmp/hal7502.imp" if (((SYM) != (10))) goto L_01b7; #line 1270 "regression-bugs-tmp/hal7502.imp" goto U_1015; #line 1270 "regression-bugs-tmp/hal7502.imp" L_01b7:; // 1271 ->NEXT %IF S(';') _imp_current_line = 1271; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1271 "regression-bugs-tmp/hal7502.imp" if (S(59)) goto L_01b8; #line 1271 "regression-bugs-tmp/hal7502.imp" goto U_100f; #line 1271 "regression-bugs-tmp/hal7502.imp" L_01b8:; // 1272 // 1273 ERR:FSYM = 'F'; FAULTPOS = GETPOS-1 _imp_current_line = 1273; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1273 "regression-bugs-tmp/hal7502.imp" U_1011:; _imp_current_line = 1273; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1273 "regression-bugs-tmp/hal7502.imp" FSYM = 70; _imp_current_line = 1273; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1273 "regression-bugs-tmp/hal7502.imp" FAULTPOS = (((int)(GETPOS)) - (1)); // 1274 PRINTPOS = STARTPOS _imp_current_line = 1274; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1274 "regression-bugs-tmp/hal7502.imp" PRINTPOS = STARTPOS; // 1275 // 1276 LEND: _imp_current_line = 1276; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1276 "regression-bugs-tmp/hal7502.imp" U_1015:; // 1277 ->READ %IF SKIP # 0 %AND LIST&4 = 0 _imp_current_line = 1277; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1277 "regression-bugs-tmp/hal7502.imp" if (((SKIP) == (0))) goto L_01b9; #line 1277 "regression-bugs-tmp/hal7502.imp" if (((((LIST) & (4))) != (0))) goto L_01b9; #line 1277 "regression-bugs-tmp/hal7502.imp" goto U_100e; #line 1277 "regression-bugs-tmp/hal7502.imp" L_01b9:; // 1278 ->READ %IF FSYM = ' ' %AND CHARS = 0 %AND %C _imp_current_line = 1278; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1278 "regression-bugs-tmp/hal7502.imp" if (((FSYM) != (32))) goto L_01ba; #line 1278 "regression-bugs-tmp/hal7502.imp" if (((CHARS) != (0))) goto L_01ba; #line 1278 "regression-bugs-tmp/hal7502.imp" if (((PRINTPOS) == (0))) goto L_01b2; #line 1278 "regression-bugs-tmp/hal7502.imp" if (((MP) == (0))) goto L_01ba; #line 1278 "regression-bugs-tmp/hal7502.imp" if (((((LIST) & (2))) != (0))) goto L_01ba; #line 1278 "regression-bugs-tmp/hal7502.imp" L_01b2:; #line 1278 "regression-bugs-tmp/hal7502.imp" goto U_100e; #line 1278 "regression-bugs-tmp/hal7502.imp" L_01ba:; // 1279 (PRINTPOS = 0 %OR (MP#0 %AND LIST&2=0)) // 1280 PRINT LINE _imp_current_line = 1280; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1280 "regression-bugs-tmp/hal7502.imp" PRINTLINE(); // 1281 ->READ _imp_current_line = 1281; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1281 "regression-bugs-tmp/hal7502.imp" goto U_100e; // 1282 // 1283 ASSIF: _imp_current_line = 1283; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1283 "regression-bugs-tmp/hal7502.imp" U_1012:; // 1284 ASSCOND = ASSCOND<<1 _imp_current_line = 1284; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1284 "regression-bugs-tmp/hal7502.imp" ASSCOND = ((ASSCOND) << (1)); // 1285 ->LEND %IF SKIP # 0 _imp_current_line = 1285; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1285 "regression-bugs-tmp/hal7502.imp" if (((SKIP) == (0))) goto L_01bb; #line 1285 "regression-bugs-tmp/hal7502.imp" goto U_1015; #line 1285 "regression-bugs-tmp/hal7502.imp" L_01bb:; // 1286 A1: GET COND; ASSEMBLE _imp_current_line = 1286; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1286 "regression-bugs-tmp/hal7502.imp" U_1026:; _imp_current_line = 1286; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1286 "regression-bugs-tmp/hal7502.imp" GETCOND(); _imp_current_line = 1286; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1286 "regression-bugs-tmp/hal7502.imp" ASSEMBLE(); // 1287 SKIP = ASSCOND %IF COND # 0 _imp_current_line = 1287; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1287 "regression-bugs-tmp/hal7502.imp" if (((COND) == (0))) goto L_01bc; #line 1287 "regression-bugs-tmp/hal7502.imp" SKIP = ASSCOND; #line 1287 "regression-bugs-tmp/hal7502.imp" L_01bc:; // 1288 PRINT LINE %IF PRINTPOS # 0 _imp_current_line = 1288; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1288 "regression-bugs-tmp/hal7502.imp" if (((PRINTPOS) == (0))) goto L_01bd; #line 1288 "regression-bugs-tmp/hal7502.imp" PRINTLINE(); #line 1288 "regression-bugs-tmp/hal7502.imp" L_01bd:; // 1289 ->LEND _imp_current_line = 1289; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1289 "regression-bugs-tmp/hal7502.imp" goto U_1015; // 1290 // 1291 ASSELSE: _imp_current_line = 1291; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1291 "regression-bugs-tmp/hal7502.imp" U_1013:; // 1292 %IF SKIP = 0 %START _imp_current_line = 1292; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1292 "regression-bugs-tmp/hal7502.imp" if (((SKIP) != (0))) goto L_01be; // 1293 ->CERR %IF ASSCOND&1 # 0 _imp_current_line = 1293; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1293 "regression-bugs-tmp/hal7502.imp" if (((((ASSCOND) & (1))) == (0))) goto L_01bf; #line 1293 "regression-bugs-tmp/hal7502.imp" goto U_1025; #line 1293 "regression-bugs-tmp/hal7502.imp" L_01bf:; // 1294 SKIP = ASSCOND _imp_current_line = 1294; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1294 "regression-bugs-tmp/hal7502.imp" SKIP = ASSCOND; // 1295 %finish %ELSE %START _imp_current_line = 1295; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1295 "regression-bugs-tmp/hal7502.imp" goto L_01c0; #line 1295 "regression-bugs-tmp/hal7502.imp" L_01be:; // 1296 ->LEND %IF SKIP # ASSCOND _imp_current_line = 1296; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1296 "regression-bugs-tmp/hal7502.imp" if (((SKIP) == (ASSCOND))) goto L_01c1; #line 1296 "regression-bugs-tmp/hal7502.imp" goto U_1015; #line 1296 "regression-bugs-tmp/hal7502.imp" L_01c1:; // 1297 SKIP = 0 _imp_current_line = 1297; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1297 "regression-bugs-tmp/hal7502.imp" SKIP = 0; // 1298 ->A1 %IF TAGIF _imp_current_line = 1298; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1298 "regression-bugs-tmp/hal7502.imp" if (TAGIF()) goto L_01c2; #line 1298 "regression-bugs-tmp/hal7502.imp" goto U_1026; #line 1298 "regression-bugs-tmp/hal7502.imp" L_01c2:; // 1299 %FINISH _imp_current_line = 1299; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1299 "regression-bugs-tmp/hal7502.imp" L_01c0:; // 1300 ASSCOND = ASSCOND+1 _imp_current_line = 1300; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1300 "regression-bugs-tmp/hal7502.imp" ASSCOND = (((int)(ASSCOND)) + (1)); // 1301 ->LEND _imp_current_line = 1301; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1301 "regression-bugs-tmp/hal7502.imp" goto U_1015; // 1302 // 1303 ASSFIN: _imp_current_line = 1303; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1303 "regression-bugs-tmp/hal7502.imp" U_1014:; // 1304 ->CERR %IF ASSCOND = 1 _imp_current_line = 1304; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1304 "regression-bugs-tmp/hal7502.imp" if (((ASSCOND) != (1))) goto L_01c3; #line 1304 "regression-bugs-tmp/hal7502.imp" goto U_1025; #line 1304 "regression-bugs-tmp/hal7502.imp" L_01c3:; // 1305 ASSCOND = ASSCOND>>1 _imp_current_line = 1305; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1305 "regression-bugs-tmp/hal7502.imp" ASSCOND = (int)((((unsigned int)(ASSCOND)) >> (1))); // 1306 SKIP = 0 %IF SKIP>>1 = ASSCOND _imp_current_line = 1306; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1306 "regression-bugs-tmp/hal7502.imp" if ((((int)((((unsigned int)(SKIP)) >> (1)))) != (ASSCOND))) goto L_01c4; #line 1306 "regression-bugs-tmp/hal7502.imp" SKIP = 0; #line 1306 "regression-bugs-tmp/hal7502.imp" L_01c4:; // 1307 ->LEND _imp_current_line = 1307; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1307 "regression-bugs-tmp/hal7502.imp" goto U_1015; // 1308 // 1309 DEFINE: _imp_current_line = 1309; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1309 "regression-bugs-tmp/hal7502.imp" U_1000:; // 1310 FAULT('C') %IF NP # STORELIM _imp_current_line = 1310; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1310 "regression-bugs-tmp/hal7502.imp" if (((NP) == (STORELIM))) goto L_01c5; #line 1310 "regression-bugs-tmp/hal7502.imp" FAULT(67); #line 1310 "regression-bugs-tmp/hal7502.imp" L_01c5:; // 1311 I = TAG1 _imp_current_line = 1311; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1311 "regression-bugs-tmp/hal7502.imp" I = TAG1; // 1312 %CYCLE _imp_current_line = 1312; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1312 "regression-bugs-tmp/hal7502.imp" L_01c6:; // 1313 ->ERR %IF %NOT (TAG %AND S('=')) _imp_current_line = 1313; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1313 "regression-bugs-tmp/hal7502.imp" if (TAG()) goto L_0196; #line 1313 "regression-bugs-tmp/hal7502.imp" if (S(61)) goto L_01c9; #line 1313 "regression-bugs-tmp/hal7502.imp" L_0196:; #line 1313 "regression-bugs-tmp/hal7502.imp" goto U_1011; #line 1313 "regression-bugs-tmp/hal7502.imp" L_01c9:; // 1314 J = TAG1; K = TAG2 _imp_current_line = 1314; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1314 "regression-bugs-tmp/hal7502.imp" J = TAG1; _imp_current_line = 1314; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1314 "regression-bugs-tmp/hal7502.imp" K = TAG2; // 1315 %IF TAG %START _imp_current_line = 1315; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1315 "regression-bugs-tmp/hal7502.imp" if (TAG()) goto L_01ca; // 1316 TYPE = UMASK; LOOKUP(0) _imp_current_line = 1316; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1316 "regression-bugs-tmp/hal7502.imp" TYPE = UMASK; _imp_current_line = 1316; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1316 "regression-bugs-tmp/hal7502.imp" LOOKUP(0); // 1317 %IF TYPE&OPMASK # 0 %START _imp_current_line = 1317; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1317 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (OPMASK))) == (0))) goto L_01cb; // 1318 GET INST _imp_current_line = 1318; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1318 "regression-bugs-tmp/hal7502.imp" GETINST(); // 1319 %finish %ELSE %START _imp_current_line = 1319; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1319 "regression-bugs-tmp/hal7502.imp" goto L_01cc; #line 1319 "regression-bugs-tmp/hal7502.imp" L_01cb:; // 1320 PEND = -1; GET EXP _imp_current_line = 1320; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1320 "regression-bugs-tmp/hal7502.imp" PEND = (-1); _imp_current_line = 1320; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1320 "regression-bugs-tmp/hal7502.imp" GETEXP(); // 1321 %FINISH _imp_current_line = 1321; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1321 "regression-bugs-tmp/hal7502.imp" L_01cc:; // 1322 %finish %ELSE GET EXP _imp_current_line = 1322; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1322 "regression-bugs-tmp/hal7502.imp" goto L_01cd; #line 1322 "regression-bugs-tmp/hal7502.imp" L_01ca:; #line 1322 "regression-bugs-tmp/hal7502.imp" GETEXP(); #line 1322 "regression-bugs-tmp/hal7502.imp" L_01cd:; // 1323 ASSEMBLE _imp_current_line = 1323; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1323 "regression-bugs-tmp/hal7502.imp" ASSEMBLE(); // 1324 TAG1 = J; TAG2 = K _imp_current_line = 1324; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1324 "regression-bugs-tmp/hal7502.imp" TAG1 = J; _imp_current_line = 1324; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1324 "regression-bugs-tmp/hal7502.imp" TAG2 = K; // 1325 %IF I=DEF %THEN LOOKUP(3) %ELSE LOOKUP(2) _imp_current_line = 1325; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1325 "regression-bugs-tmp/hal7502.imp" if (((I) != (DEF))) goto L_01ce; #line 1325 "regression-bugs-tmp/hal7502.imp" LOOKUP(3); #line 1325 "regression-bugs-tmp/hal7502.imp" goto L_01cf; #line 1325 "regression-bugs-tmp/hal7502.imp" L_01ce:; #line 1325 "regression-bugs-tmp/hal7502.imp" LOOKUP(2); #line 1325 "regression-bugs-tmp/hal7502.imp" L_01cf:; // 1326 %EXIT %UNLESS S(',') _imp_current_line = 1326; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1326 "regression-bugs-tmp/hal7502.imp" if (S(44)) goto L_01d0; #line 1326 "regression-bugs-tmp/hal7502.imp" goto L_01c7; #line 1326 "regression-bugs-tmp/hal7502.imp" L_01d0:; // 1327 QLIM = QSTART _imp_current_line = 1327; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1327 "regression-bugs-tmp/hal7502.imp" QLIM = QSTART; // 1328 %REPEAT _imp_current_line = 1328; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1328 "regression-bugs-tmp/hal7502.imp" goto L_01c6; #line 1328 "regression-bugs-tmp/hal7502.imp" L_01c7:; // 1329 ->SEND _imp_current_line = 1329; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1329 "regression-bugs-tmp/hal7502.imp" goto U_1023; // 1330 // 1331 NEWPAGE: _imp_current_line = 1331; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1331 "regression-bugs-tmp/hal7502.imp" U_1010:; // 1332 DO NEWLINE %WHILE LINES # 0 _imp_current_line = 1332; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1332 "regression-bugs-tmp/hal7502.imp" L_01d1:; #line 1332 "regression-bugs-tmp/hal7502.imp" if (((LINES) == (0))) goto L_01d2; #line 1332 "regression-bugs-tmp/hal7502.imp" DONEWLINE(); #line 1332 "regression-bugs-tmp/hal7502.imp" goto L_01d1; #line 1332 "regression-bugs-tmp/hal7502.imp" L_01d2:; // 1333 ->LEND _imp_current_line = 1333; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1333 "regression-bugs-tmp/hal7502.imp" goto U_1015; // 1334 // 1335 LISTC: _imp_current_line = 1335; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1335 "regression-bugs-tmp/hal7502.imp" U_1016:; // 1336 GET EXP; ASSEMBLE _imp_current_line = 1336; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1336 "regression-bugs-tmp/hal7502.imp" GETEXP(); _imp_current_line = 1336; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1336 "regression-bugs-tmp/hal7502.imp" ASSEMBLE(); // 1337 LIST = VAL _imp_current_line = 1337; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1337 "regression-bugs-tmp/hal7502.imp" LIST = VAL; // 1338 ->SEND _imp_current_line = 1338; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1338 "regression-bugs-tmp/hal7502.imp" goto U_1023; // 1339 // 1340 TEMP: _imp_current_line = 1340; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1340 "regression-bugs-tmp/hal7502.imp" U_1001:; // 1341 I = 0 _imp_current_line = 1341; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1341 "regression-bugs-tmp/hal7502.imp" I = 0; // 1342 %IF SYM # NL %START _imp_current_line = 1342; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1342 "regression-bugs-tmp/hal7502.imp" if (((SYM) == (10))) goto L_01d4; // 1343 %CYCLE _imp_current_line = 1343; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1343 "regression-bugs-tmp/hal7502.imp" L_01d5:; // 1344 GET EXP _imp_current_line = 1344; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1344 "regression-bugs-tmp/hal7502.imp" GETEXP(); // 1345 FAULT('I') %IF TYPE # REG _imp_current_line = 1345; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1345 "regression-bugs-tmp/hal7502.imp" if (((TYPE) == (REG))) goto L_01d8; #line 1345 "regression-bugs-tmp/hal7502.imp" FAULT(73); #line 1345 "regression-bugs-tmp/hal7502.imp" L_01d8:; // 1346 I = I!1<SEND _imp_current_line = 1352; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1352 "regression-bugs-tmp/hal7502.imp" goto U_1023; // 1353 // 1354 LOCC: _imp_current_line = 1354; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1354 "regression-bugs-tmp/hal7502.imp" U_1002:; // 1355 I = TAG1 _imp_current_line = 1355; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1355 "regression-bugs-tmp/hal7502.imp" I = TAG1; // 1356 GET EXP; ASSEMBLE _imp_current_line = 1356; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1356 "regression-bugs-tmp/hal7502.imp" GETEXP(); _imp_current_line = 1356; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1356 "regression-bugs-tmp/hal7502.imp" ASSEMBLE(); // 1357 %IF TYPE&16_FF9F = 0 %START _imp_current_line = 1357; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1357 "regression-bugs-tmp/hal7502.imp" if (((((TYPE) & (65439))) != (0))) goto L_01da; // 1358 LOCTYPE = TYPE&RELMASK+MEMMASK; LOC = VAL _imp_current_line = 1358; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1358 "regression-bugs-tmp/hal7502.imp" LOCTYPE = (((int)(((TYPE) & (RELMASK)))) + (MEMMASK)); _imp_current_line = 1358; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1358 "regression-bugs-tmp/hal7502.imp" LOC = VAL; // 1359 PUT WORD(VAL-1) %AND CONTROL=16_30 %IF PASS > 0 _imp_current_line = 1359; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1359 "regression-bugs-tmp/hal7502.imp" if (((PASS) <= (0))) goto L_01db; #line 1359 "regression-bugs-tmp/hal7502.imp" PUTWORD((((int)(VAL)) - (1))); #line 1359 "regression-bugs-tmp/hal7502.imp" CONTROL = 48; #line 1359 "regression-bugs-tmp/hal7502.imp" L_01db:; // 1360 %finish %ELSE FAULT('I') _imp_current_line = 1360; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1360 "regression-bugs-tmp/hal7502.imp" goto L_01dc; #line 1360 "regression-bugs-tmp/hal7502.imp" L_01da:; #line 1360 "regression-bugs-tmp/hal7502.imp" FAULT(73); #line 1360 "regression-bugs-tmp/hal7502.imp" L_01dc:; // 1361 ->SEND _imp_current_line = 1361; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1361 "regression-bugs-tmp/hal7502.imp" goto U_1023; // 1362 // 1363 SAVC: _imp_current_line = 1363; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1363 "regression-bugs-tmp/hal7502.imp" U_1017:; // 1364 GET EXP; ASSEMBLE _imp_current_line = 1364; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1364 "regression-bugs-tmp/hal7502.imp" GETEXP(); _imp_current_line = 1364; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1364 "regression-bugs-tmp/hal7502.imp" ASSEMBLE(); // 1365 SAVE = VAL _imp_current_line = 1365; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1365 "regression-bugs-tmp/hal7502.imp" SAVE = VAL; // 1366 ->SEND _imp_current_line = 1366; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1366 "regression-bugs-tmp/hal7502.imp" goto U_1023; // 1367 // 1368 MACDEF: _imp_current_line = 1368; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1368 "regression-bugs-tmp/hal7502.imp" U_1003:; // 1369 ->CERR %IF MP # 0 _imp_current_line = 1369; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1369 "regression-bugs-tmp/hal7502.imp" if (((MP) == (0))) goto L_01dd; #line 1369 "regression-bugs-tmp/hal7502.imp" goto U_1025; #line 1369 "regression-bugs-tmp/hal7502.imp" L_01dd:; // 1370 ->ERR %IF %NOT TAG _imp_current_line = 1370; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1370 "regression-bugs-tmp/hal7502.imp" if (TAG()) goto L_01de; #line 1370 "regression-bugs-tmp/hal7502.imp" goto U_1011; #line 1370 "regression-bugs-tmp/hal7502.imp" L_01de:; // 1371 J = TAG1; K = TAG2 _imp_current_line = 1371; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1371 "regression-bugs-tmp/hal7502.imp" J = TAG1; _imp_current_line = 1371; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1371 "regression-bugs-tmp/hal7502.imp" K = TAG2; // 1372 I = GETPOS-1 _imp_current_line = 1372; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1372 "regression-bugs-tmp/hal7502.imp" I = (((int)(GETPOS)) - (1)); // 1373 %IF SYM # NL %START _imp_current_line = 1373; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1373 "regression-bugs-tmp/hal7502.imp" if (((SYM) == (10))) goto L_01df; // 1374 %CYCLE _imp_current_line = 1374; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1374 "regression-bugs-tmp/hal7502.imp" L_01e0:; // 1375 ->ERR %IF %NOT TAG _imp_current_line = 1375; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1375 "regression-bugs-tmp/hal7502.imp" if (TAG()) goto L_01e3; #line 1375 "regression-bugs-tmp/hal7502.imp" goto U_1011; #line 1375 "regression-bugs-tmp/hal7502.imp" L_01e3:; // 1376 SCAN ARG _imp_current_line = 1376; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1376 "regression-bugs-tmp/hal7502.imp" SCANARG(); // 1377 %EXIT %IF %NOT S(',') _imp_current_line = 1377; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1377 "regression-bugs-tmp/hal7502.imp" if (S(44)) goto L_01e4; #line 1377 "regression-bugs-tmp/hal7502.imp" goto L_01e1; #line 1377 "regression-bugs-tmp/hal7502.imp" L_01e4:; // 1378 %REPEAT _imp_current_line = 1378; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1378 "regression-bugs-tmp/hal7502.imp" goto L_01e0; #line 1378 "regression-bugs-tmp/hal7502.imp" L_01e1:; // 1379 %FINISH _imp_current_line = 1379; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1379 "regression-bugs-tmp/hal7502.imp" L_01df:; // 1380 ->ERR %IF SYM # NL _imp_current_line = 1380; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1380 "regression-bugs-tmp/hal7502.imp" if (((SYM) == (10))) goto L_01e5; #line 1380 "regression-bugs-tmp/hal7502.imp" goto U_1011; #line 1380 "regression-bugs-tmp/hal7502.imp" L_01e5:; // 1381 TAG1 = J; TAG2 = K _imp_current_line = 1381; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1381 "regression-bugs-tmp/hal7502.imp" TAG1 = J; _imp_current_line = 1381; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1381 "regression-bugs-tmp/hal7502.imp" TAG2 = K; // 1382 TYPE = MACRO; VAL = I _imp_current_line = 1382; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1382 "regression-bugs-tmp/hal7502.imp" TYPE = MACRO; _imp_current_line = 1382; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1382 "regression-bugs-tmp/hal7502.imp" VAL = I; // 1383 LOOKUP(3) _imp_current_line = 1383; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1383 "regression-bugs-tmp/hal7502.imp" LOOKUP(3); // 1384 %CYCLE _imp_current_line = 1384; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1384 "regression-bugs-tmp/hal7502.imp" L_01e6:; // 1385 PRINT LINE _imp_current_line = 1385; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1385 "regression-bugs-tmp/hal7502.imp" PRINTLINE(); // 1386 %EXIT %IF S('$') %AND TAG %AND TAG1 = END _imp_current_line = 1386; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1386 "regression-bugs-tmp/hal7502.imp" if (S(36)) goto L_01e9; #line 1386 "regression-bugs-tmp/hal7502.imp" if (TAG()) goto L_01e9; #line 1386 "regression-bugs-tmp/hal7502.imp" if (((TAG1) != (END))) goto L_01e9; #line 1386 "regression-bugs-tmp/hal7502.imp" goto L_01e7; #line 1386 "regression-bugs-tmp/hal7502.imp" L_01e9:; // 1387 STARTPOS = PUTPOS _imp_current_line = 1387; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1387 "regression-bugs-tmp/hal7502.imp" STARTPOS = PUTPOS; // 1388 STARTPOS = PSEUDOLIM+1 %IF PSEUDOLIM # 0 _imp_current_line = 1388; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1388 "regression-bugs-tmp/hal7502.imp" if (((PSEUDOLIM) == (0))) goto L_01ea; #line 1388 "regression-bugs-tmp/hal7502.imp" STARTPOS = (((int)(PSEUDOLIM)) + (1)); #line 1388 "regression-bugs-tmp/hal7502.imp" L_01ea:; // 1389 READ LINE _imp_current_line = 1389; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1389 "regression-bugs-tmp/hal7502.imp" READLINE(); // 1390 %REPEAT _imp_current_line = 1390; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1390 "regression-bugs-tmp/hal7502.imp" goto L_01e6; #line 1390 "regression-bugs-tmp/hal7502.imp" L_01e7:; // 1391 PUTPOS = STARTPOS; PUT CHAR(0) _imp_current_line = 1391; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1391 "regression-bugs-tmp/hal7502.imp" PUTPOS = STARTPOS; _imp_current_line = 1391; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1391 "regression-bugs-tmp/hal7502.imp" PUTCHAR(0); // 1392 STARTPOS = PUTPOS _imp_current_line = 1392; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1392 "regression-bugs-tmp/hal7502.imp" STARTPOS = PUTPOS; // 1393 MACLIM = STARTPOS _imp_current_line = 1393; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1393 "regression-bugs-tmp/hal7502.imp" MACLIM = STARTPOS; // 1394 ->LEND _imp_current_line = 1394; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1394 "regression-bugs-tmp/hal7502.imp" goto U_1015; // 1395 // 1396 %ROUTINE BNEST _imp_current_line = 1396; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1396 "regression-bugs-tmp/hal7502.imp" void BNEST( void ) #line 1396 "regression-bugs-tmp/hal7502.imp" { __label__ _imp_endofblock; // 1397 BP = BP+4; !!%MONITOR 23 %IF BP-NP >= 0 _imp_current_line = 1397; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1397 "regression-bugs-tmp/hal7502.imp" BP = (((int)(BP)) + (4)); // 1398 INTEGER(BP-3) = SAVE; INTEGER(BP-2) = TEMPS _imp_current_line = 1398; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1398 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER((((int)(BP)) - (3))) = SAVE; _imp_current_line = 1398; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1398 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER((((int)(BP)) - (2))) = TEMPS; // 1399 INTEGER(BP-1) = MACLIM; INTEGER(BP) = DEFMIN _imp_current_line = 1399; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1399 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER((((int)(BP)) - (1))) = MACLIM; _imp_current_line = 1399; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1399 "regression-bugs-tmp/hal7502.imp" *_imp_INTEGER(BP) = DEFMIN; // 1400 %END _imp_current_line = 1400; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1400 "regression-bugs-tmp/hal7502.imp" return; _imp_endofblock: ; } // End of block BNEST at level 2 // 1401 // 1402 BEGIN: _imp_current_line = 1402; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1402 "regression-bugs-tmp/hal7502.imp" U_1004:; // 1403 BNEST _imp_current_line = 1403; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1403 "regression-bugs-tmp/hal7502.imp" BNEST(); // 1404 ->NEWPAGE %IF SYM # NL _imp_current_line = 1404; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1404 "regression-bugs-tmp/hal7502.imp" if (((SYM) == (10))) goto L_01eb; #line 1404 "regression-bugs-tmp/hal7502.imp" goto U_1010; #line 1404 "regression-bugs-tmp/hal7502.imp" L_01eb:; // 1405 ->LEND _imp_current_line = 1405; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1405 "regression-bugs-tmp/hal7502.imp" goto U_1015; // 1406 // 1407 BEND: _imp_current_line = 1407; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1407 "regression-bugs-tmp/hal7502.imp" U_1005:; // 1408 FAULT('C') %IF NP # STORELIM %OR MP # 0 _imp_current_line = 1408; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1408 "regression-bugs-tmp/hal7502.imp" if (((NP) != (STORELIM))) goto L_01e8; #line 1408 "regression-bugs-tmp/hal7502.imp" if (((MP) == (0))) goto L_01ec; #line 1408 "regression-bugs-tmp/hal7502.imp" L_01e8:; #line 1408 "regression-bugs-tmp/hal7502.imp" FAULT(67); #line 1408 "regression-bugs-tmp/hal7502.imp" L_01ec:; // 1409 MP = 0; NP = STORELIM _imp_current_line = 1409; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1409 "regression-bugs-tmp/hal7502.imp" MP = 0; _imp_current_line = 1409; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1409 "regression-bugs-tmp/hal7502.imp" NP = STORELIM; // 1410 %IF BP # LABLIM %START _imp_current_line = 1410; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1410 "regression-bugs-tmp/hal7502.imp" if (((BP) == (LABLIM))) goto L_01ed; // 1411 SAVE = INTEGER(BP-3); TEMPS = INTEGER(BP-2) _imp_current_line = 1411; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1411 "regression-bugs-tmp/hal7502.imp" SAVE = *_imp_INTEGER((((int)(BP)) - (3))); _imp_current_line = 1411; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1411 "regression-bugs-tmp/hal7502.imp" TEMPS = *_imp_INTEGER((((int)(BP)) - (2))); // 1412 MACLIM = INTEGER(BP-1); STARTPOS = MACLIM _imp_current_line = 1412; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1412 "regression-bugs-tmp/hal7502.imp" MACLIM = *_imp_INTEGER((((int)(BP)) - (1))); _imp_current_line = 1412; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1412 "regression-bugs-tmp/hal7502.imp" STARTPOS = MACLIM; // 1413 DEFMIN = INTEGER(BP) _imp_current_line = 1413; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1413 "regression-bugs-tmp/hal7502.imp" DEFMIN = *_imp_INTEGER(BP); // 1414 SET ACC _imp_current_line = 1414; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1414 "regression-bugs-tmp/hal7502.imp" SETACC(); // 1415 BP = BP-4 _imp_current_line = 1415; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1415 "regression-bugs-tmp/hal7502.imp" BP = (((int)(BP)) - (4)); // 1416 ->LEND %IF BP # LABLIM _imp_current_line = 1416; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1416 "regression-bugs-tmp/hal7502.imp" if (((BP) == (LABLIM))) goto L_01ee; #line 1416 "regression-bugs-tmp/hal7502.imp" goto U_1015; #line 1416 "regression-bugs-tmp/hal7502.imp" L_01ee:; // 1417 %FINISH _imp_current_line = 1417; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1417 "regression-bugs-tmp/hal7502.imp" L_01ed:; // 1418 CLOSE INPUT; SELECT INPUT(MAIN) _imp_current_line = 1418; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1418 "regression-bugs-tmp/hal7502.imp" _imp_CLOSEINPUT(); _imp_current_line = 1418; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1418 "regression-bugs-tmp/hal7502.imp" _imp_SELECTINPUT(MAIN); // 1419 BNEST _imp_current_line = 1419; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1419 "regression-bugs-tmp/hal7502.imp" BNEST(); // 1420 LIST = 5 _imp_current_line = 1420; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1420 "regression-bugs-tmp/hal7502.imp" LIST = 5; // 1421 PASS = PASS+1 _imp_current_line = 1421; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1421 "regression-bugs-tmp/hal7502.imp" PASS = (((int)(PASS)) + (1)); // 1422 ->DO PASS %IF PASS # 2 _imp_current_line = 1422; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1422 "regression-bugs-tmp/hal7502.imp" if (((PASS) == (2))) goto L_01ef; #line 1422 "regression-bugs-tmp/hal7502.imp" goto U_100d; #line 1422 "regression-bugs-tmp/hal7502.imp" L_01ef:; // 1423 // 1424 PUT WORD(CHECK!!16_0100); CONTROL = 16_30 _imp_current_line = 1424; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1424 "regression-bugs-tmp/hal7502.imp" PUTWORD(((CHECK) ^ (256))); _imp_current_line = 1424; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1424 "regression-bugs-tmp/hal7502.imp" CONTROL = 48; // 1425 PUT WORD(16_0100) _imp_current_line = 1425; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1425 "regression-bugs-tmp/hal7502.imp" PUTWORD(256); // 1426 SELECT OUTPUT(BIN); PRINT CH(16_60); SELECT OUTPUT(LIS) _imp_current_line = 1426; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1426 "regression-bugs-tmp/hal7502.imp" _imp_SELECTOUTPUT(BIN); _imp_current_line = 1426; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1426 "regression-bugs-tmp/hal7502.imp" _imp_PRINTCH(96); _imp_current_line = 1426; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1426 "regression-bugs-tmp/hal7502.imp" _imp_SELECTOUTPUT(LIS); // 1427 FAULT('$') _imp_current_line = 1427; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1427 "regression-bugs-tmp/hal7502.imp" FAULT(36); // 1428 PRINT LOC; PRINT LINE _imp_current_line = 1428; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1428 "regression-bugs-tmp/hal7502.imp" PRINTLOC(); _imp_current_line = 1428; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1428 "regression-bugs-tmp/hal7502.imp" PRINTLINE(); // 1429 LINES = 60 %IF OUTDEV = 1 _imp_current_line = 1429; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1429 "regression-bugs-tmp/hal7502.imp" if (((_imp_OUTDEV()) != (1))) goto L_01f0; #line 1429 "regression-bugs-tmp/hal7502.imp" LINES = 60; #line 1429 "regression-bugs-tmp/hal7502.imp" L_01f0:; // 1430 DO NEWLINE %WHILE LINES # 0 _imp_current_line = 1430; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1430 "regression-bugs-tmp/hal7502.imp" L_01f1:; #line 1430 "regression-bugs-tmp/hal7502.imp" if (((LINES) == (0))) goto L_01f2; #line 1430 "regression-bugs-tmp/hal7502.imp" DONEWLINE(); #line 1430 "regression-bugs-tmp/hal7502.imp" goto L_01f1; #line 1430 "regression-bugs-tmp/hal7502.imp" L_01f2:; // 1431 // 1432 %ENDOFPROGRAM _imp_current_line = 1432; _imp_current_file = "regression-bugs-tmp/hal7502.imp"; #line 1432 "regression-bugs-tmp/hal7502.imp" return 0; _imp_endofblock: ; } // End of block _imp_main at level 1 #line 1432 "regression-bugs-tmp/hal7502.imp" // End of file