1 %BEGIN; !HAL-7502 2 ! INPUT/OUTPUT STREAMS O LINE 1 "regression-compile-tmp/hal7502.imp" H BEGIN _lev0id0 {lev=0 --> 1} 3 %OWNINTEGER MAIN=1, PRE=2; !INPUT O LINE 3 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000001 $ DEF MAIN p1=V_00ad a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x00000002 $ DEF PRE p1=V_00ae a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 4 %OWNINTEGER BIN=1, LIS=2; !OUTPUT 5 ! OPERAND TYPES O LINE 4 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000001 $ DEF BIN p1=V_00af a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x00000002 $ DEF LIS p1=V_00b0 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 6 %OWNINTEGER OPMASK=16_F000; !MACHINE INSTRUCTION OR MACRO O LINE 6 "regression-compile-tmp/hal7502.imp" N PUSHI #0x0000f000 $ DEF OPMASK p1=V_00b1 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 7 %OWNINTEGER MACRO=16_A000 O LINE 7 "regression-compile-tmp/hal7502.imp" N PUSHI #0x0000a000 $ DEF MACRO p1=V_00b2 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 8 %OWNINTEGER FMASK=16_0800; !FORWARD REF O LINE 8 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000800 $ DEF FMASK p1=V_00b3 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 9 %OWNINTEGER UMASK=16_0200; !UNDEF (FORWARD REF) O LINE 9 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000200 $ DEF UMASK p1=V_00b4 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 10 %OWNINTEGER REG=16_0080; !REGISTER O LINE 10 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000080 $ DEF REG p1=V_00b5 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 11 %OWNINTEGER MEMMASK=16_0040; !MEM REF O LINE 11 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000040 $ DEF MEMMASK p1=V_00b6 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 12 %OWNINTEGER RELMASK=16_0020; !RELOCATABLE O LINE 12 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000020 $ DEF RELMASK p1=V_00b7 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 13 %OWNINTEGER XMASK=16_0010; !INDEXED O LINE 13 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000010 $ DEF XMASK p1=V_00b8 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 14 %OWNINTEGER REGXMASK=16_0090; !=REG+XMASK O LINE 14 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000090 $ DEF REGXMASK p1=V_00b9 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 15 %OWNINTEGER RELUXMASK=16_0230; !=RELMASK+UMASK+XMASK 16 ! TEXT POINTERS (BYTE ADDRESSES) O LINE 15 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000230 $ DEF RELUXMASK p1=V_00ba a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 17 %OWNINTEGER CODEPOS; !(NOT ACTUALLY BYTE) O LINE 17 "regression-compile-tmp/hal7502.imp" $ DEF CODEPOS p1=V_00bb a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 18 %OWNINTEGER STARTPOS; !START OF CURRENT LINE O LINE 18 "regression-compile-tmp/hal7502.imp" $ DEF STARTPOS p1=V_00bc a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 19 %OWNINTEGER GETPOS; !INPUT POINTER (NEXT) O LINE 19 "regression-compile-tmp/hal7502.imp" $ DEF GETPOS p1=V_00bd a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 20 %OWNINTEGER PUTPOS O LINE 20 "regression-compile-tmp/hal7502.imp" $ DEF PUTPOS p1=V_00be a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 21 %OWNINTEGER PSEUDOLIM O LINE 21 "regression-compile-tmp/hal7502.imp" $ DEF PSEUDOLIM p1=V_00bf a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 22 %OWNINTEGER PRINTPOS; !START OF PRINT LINE O LINE 22 "regression-compile-tmp/hal7502.imp" $ DEF PRINTPOS p1=V_00c0 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 23 %OWNINTEGER FAULTPOS O LINE 23 "regression-compile-tmp/hal7502.imp" $ DEF FAULTPOS p1=V_00c1 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 24 %OWNINTEGER MACLIM; !MACRO DEF LIMIT 25 ! OTHER POINTERS (WORD ADDRESSES) O LINE 24 "regression-compile-tmp/hal7502.imp" $ DEF MACLIM p1=V_00c2 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 26 %OWNINTEGER MP; !MACRO-CALL PARAMETERS O LINE 26 "regression-compile-tmp/hal7502.imp" $ DEF MP p1=V_00c3 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 27 %OWNINTEGER QBASE,QSTART,QLIM,TRANSF; !OPERAND QUEUE O LINE 27 "regression-compile-tmp/hal7502.imp" $ DEF QBASE p1=V_00c4 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF QSTART p1=V_00c5 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF QLIM p1=V_00c6 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 $ DEF TRANSF p1=V_00c7 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 28 %OWNINTEGER DEFMIN; !TAG MIN (DOWN - RESET) O LINE 28 "regression-compile-tmp/hal7502.imp" $ DEF DEFMIN p1=V_00c8 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 29 %OWNINTEGER DEFLIM; !TAG LIM (FIXED) O LINE 29 "regression-compile-tmp/hal7502.imp" $ DEF DEFLIM p1=V_00c9 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 30 %OWNINTEGER ALMAX; !ASSEMBLER LAB MAX (UP - RESET) O LINE 30 "regression-compile-tmp/hal7502.imp" $ DEF ALMAX p1=V_00ca a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 31 %OWNINTEGER LABMIN; !USER LAB MIN (DOWN - RESET) O LINE 31 "regression-compile-tmp/hal7502.imp" $ DEF LABMIN p1=V_00cb a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 32 %OWNINTEGER LABLIM; !USER LAB LIM (FIXED) O LINE 32 "regression-compile-tmp/hal7502.imp" $ DEF LABLIM p1=V_00cc a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 33 %OWNINTEGER BP; !BLOCK POINTER (UP - DOWN) O LINE 33 "regression-compile-tmp/hal7502.imp" $ DEF BP p1=V_00cd a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 34 %OWNINTEGER NP; !NEST POINTER (DOWN - UP) O LINE 34 "regression-compile-tmp/hal7502.imp" $ DEF NP p1=V_00ce a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 35 %OWNINTEGER STORELIM; !(FIXED) 36 O LINE 35 "regression-compile-tmp/hal7502.imp" $ DEF STORELIM p1=V_00cf a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 37 %INTEGER SYM; !CURRENT SYMBOL O LINE 37 "regression-compile-tmp/hal7502.imp" $ DEF SYM p1=V_00d0 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 38 %INTEGER TERM; !TAG TERMINATOR O LINE 38 "regression-compile-tmp/hal7502.imp" $ DEF TERM p1=V_00d1 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 39 %INTEGER FSYM; !FAULT FLAG SYMBOL O LINE 39 "regression-compile-tmp/hal7502.imp" $ DEF FSYM p1=V_00d2 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 40 %OWNINTEGER CHARS=0; !PRINT CHAR COUNT O LINE 40 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000000 $ DEF CHARS p1=V_00d3 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 41 %OWNINTEGER LINES=0; !PRINT LINE COUNT O LINE 41 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000000 $ DEF LINES p1=V_00d4 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 42 %OWNINTEGER PASS=-1; !CURRENT PASS (-1,0,1) O LINE 42 "regression-compile-tmp/hal7502.imp" N PUSHI #0xffffffff $ DEF PASS p1=V_00d5 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 43 %OWNINTEGER LIST=-1; !LISTING CONTROL O LINE 43 "regression-compile-tmp/hal7502.imp" N PUSHI #0xffffffff $ DEF LIST p1=V_00d6 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 44 %INTEGER ASSCOND,SKIP; !ASSEMBLY CONDITIONS (BIT NEST) O LINE 44 "regression-compile-tmp/hal7502.imp" $ DEF ASSCOND p1=V_00d7 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF SKIP p1=V_00d8 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 45 %OWNINTEGER SAVE=1; !REG SAVE DISPLACEMENT O LINE 45 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000001 $ DEF SAVE p1=V_00d9 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 46 %OWNINTEGER TEMPS=12; !TEMPORARY REGISTER SET O LINE 46 "regression-compile-tmp/hal7502.imp" N PUSHI #0x0000000c $ DEF TEMPS p1=V_00da a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 47 %OWNINTEGER CONTROL=16_40; !OBJECT CODE CONTROL FIELD O LINE 47 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000040 $ DEF CONTROL p1=V_00db a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 48 %OWNINTEGER CHECK=0; !BINARY CHECKSUM O LINE 48 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000000 $ DEF CHECK p1=V_00dc a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 49 %INTEGER LOCTYPE,LOC; !LOCATION COUNTER O LINE 49 "regression-compile-tmp/hal7502.imp" $ DEF LOCTYPE p1=V_00dd a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF LOC p1=V_00de a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 50 %INTEGER ACC,ATYPE,AVAL; !MAIN TEMP REGISTER O LINE 50 "regression-compile-tmp/hal7502.imp" $ DEF ACC p1=V_00df a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF ATYPE p1=V_00e0 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF AVAL p1=V_00e1 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 51 %INTEGER CREG; !CONDITION CODE O LINE 51 "regression-compile-tmp/hal7502.imp" $ DEF CREG p1=V_00e2 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 52 %INTEGER COND; !CONDITION CODE MASK O LINE 52 "regression-compile-tmp/hal7502.imp" $ DEF COND p1=V_00e3 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 53 %INTEGER DREG,DUSE; !DESTINATION REGISTER O LINE 53 "regression-compile-tmp/hal7502.imp" $ DEF DREG p1=V_00e4 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF DUSE p1=V_00e5 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 54 %INTEGER TYPE,VAL; !CURRENT TYPE,VALUE O LINE 54 "regression-compile-tmp/hal7502.imp" $ DEF TYPE p1=V_00e6 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF VAL p1=V_00e7 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 55 %INTEGER TAG1,TAG2; !TAG (CHARS 1:3, 4:6) O LINE 55 "regression-compile-tmp/hal7502.imp" $ DEF TAG1 p1=V_00e8 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF TAG2 p1=V_00e9 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 56 %INTEGER MODE; !ASSEMBLY MODE O LINE 56 "regression-compile-tmp/hal7502.imp" $ DEF MODE p1=V_00ea a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 57 %INTEGER PEND; !TAG ALREADY RECOGNISED O LINE 57 "regression-compile-tmp/hal7502.imp" $ DEF PEND p1=V_00eb a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 58 %INTEGER FLAG; !JUMPS 59 60 O LINE 58 "regression-compile-tmp/hal7502.imp" $ DEF FLAG p1=V_00ec a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 61 %INTEGER SBOUND O LINE 61 "regression-compile-tmp/hal7502.imp" $ DEF SBOUND p1=V_00ed a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 62 SBOUND = FREESTORE-260; !ALLOW FOR INPUT BUFFER O LINE 62 "regression-compile-tmp/hal7502.imp" @ PUSH SBOUND @ PUSH FREESTORE E CALL N PUSHI #0x00000104 - SUB S ASSVAL 63 SBOUND = SBOUND-256 %IF OUTDEV = 2 O LINE 63 "regression-compile-tmp/hal7502.imp" @ PUSH OUTDEV E CALL N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH SBOUND @ PUSH SBOUND N PUSHI #0x00000100 - SUB S ASSVAL : LOCATE L_0004 64 SELECT OUTPUT(LIS) O LINE 64 "regression-compile-tmp/hal7502.imp" @ PUSH SELECTOUTPUT @ PUSH LIS p ASSPAR E CALL 65 SBOUND = SBOUND-256 %IF OUTDEV = 2 O LINE 65 "regression-compile-tmp/hal7502.imp" @ PUSH OUTDEV E CALL N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH SBOUND @ PUSH SBOUND N PUSHI #0x00000100 - SUB S ASSVAL : LOCATE L_0004 66 %INTEGERARRAY STORE(1:SBOUND) 67 O LINE 66 "regression-compile-tmp/hal7502.imp" $ DEF STORE p1=V_00ee a/tf=1b b/format=1 c/ostate=100 type=1 (integer) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 N PUSHI #0x00000001 @ PUSH SBOUND d DIM 0001 0001 68 %INTEGERFN CHAR(%INTEGER P) 69 !BYTE FETCH O LINE 68 "regression-compile-tmp/hal7502.imp" $ DEF CHAR (_lev0id0_CHAR) p1=V_00ef a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF P p1=V_00f0 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 70 %result = byteinteger(P) O LINE 70 "regression-compile-tmp/hal7502.imp" @ PUSH BYTEINTEGER @ PUSH P p ASSPAR E CALL V RESULT 71 %END 72 O LINE 71 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_CHAR {lev=2 --> 1} 73 %ROUTINE PUT CHAR(%INTEGER K) 74 !AT PUTPOS WITH POST-INCREMENT O LINE 73 "regression-compile-tmp/hal7502.imp" $ DEF PUTCHAR (_lev0id0_PUTCHAR) p1=V_00f0 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF K p1=V_00f1 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 75 byteinteger(putpos) = k O LINE 75 "regression-compile-tmp/hal7502.imp" @ PUSH BYTEINTEGER @ PUSH PUTPOS p ASSPAR E CALL @ PUSH K S ASSVAL 76 putpos = putpos + 1 O LINE 76 "regression-compile-tmp/hal7502.imp" @ PUSH PUTPOS @ PUSH PUTPOS N PUSHI #0x00000001 + ADD S ASSVAL 77 %END 78 O LINE 77 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_PUTCHAR {lev=2 --> 1} 79 %ROUTINE FAULT(%INTEGER K) 80 !RECORD (FIRST) FAULT 81 !NOT NECESSARILY CULPABLE IN PASS 0 O LINE 79 "regression-compile-tmp/hal7502.imp" $ DEF FAULT (_lev0id0_FAULT) p1=V_00f1 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF K p1=V_00f2 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 82 FSYM = K %IF FSYM = ' ' O LINE 82 "regression-compile-tmp/hal7502.imp" @ PUSH FSYM N PUSHI #0x00000020 ? JUMPIF # L_0004 @ PUSH FSYM @ PUSH K S ASSVAL : LOCATE L_0004 83 %END 84 O LINE 83 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_FAULT {lev=2 --> 1} 85 %ROUTINE PRINT(%INTEGER K) O LINE 85 "regression-compile-tmp/hal7502.imp" $ DEF PRINT (_lev0id0_PRINT) p1=V_00f2 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF K p1=V_00f3 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 86 INTEGER(CODEPOS+CHARS) = K O LINE 86 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH CODEPOS @ PUSH CHARS + ADD p ASSPAR E CALL @ PUSH K S ASSVAL 87 CHARS = CHARS+1 O LINE 87 "regression-compile-tmp/hal7502.imp" @ PUSH CHARS @ PUSH CHARS N PUSHI #0x00000001 + ADD S ASSVAL 88 %END 89 O LINE 88 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_PRINT {lev=2 --> 1} 90 %ROUTINE PRINT WORD(%INTEGER V) O LINE 90 "regression-compile-tmp/hal7502.imp" $ DEF PRINTWORD (_lev0id0_PRINTWORD) p1=V_00f3 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF V p1=V_00f4 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 91 %ROUTINE PRINT HIT(%INTEGER V) O LINE 91 "regression-compile-tmp/hal7502.imp" $ DEF PRINTHIT (_lev0id0_PRINTWORD_PRINTHIT) p1=V_00f5 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} $ DEF V p1=V_00f6 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=3} 92 V = V&15+'0'; V = V+7 %IF V > '9' O LINE 92 "regression-compile-tmp/hal7502.imp" @ PUSH V @ PUSH V N PUSHI #0x0000000f & AND N PUSHI #0x00000030 + ADD S ASSVAL O LINE 92 "regression-compile-tmp/hal7502.imp" @ PUSH V N PUSHI #0x00000039 ? JUMPIF <= L_0004 @ PUSH V @ PUSH V N PUSHI #0x00000007 + ADD S ASSVAL : LOCATE L_0004 93 PRINT(V) O LINE 93 "regression-compile-tmp/hal7502.imp" @ PUSH PRINT @ PUSH V p ASSPAR E CALL 94 %END O LINE 94 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_PRINTWORD_PRINTHIT {lev=3 --> 2} 95 %ROUTINE PRINT1(%INTEGER V) O LINE 95 "regression-compile-tmp/hal7502.imp" $ DEF PRINT1 (_lev0id0_PRINTWORD_PRINT1) p1=V_00f6 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} $ DEF V p1=V_00f7 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=3} 96 PRINT HIT(V>>4); PRINT HIT(V) O LINE 96 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTHIT @ PUSH V N PUSHI #0x00000004 ] RSH p ASSPAR E CALL O LINE 96 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTHIT @ PUSH V p ASSPAR E CALL 97 %END O LINE 97 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_PRINTWORD_PRINT1 {lev=3 --> 2} 98 PRINT1(V>>8); PRINT1(V) O LINE 98 "regression-compile-tmp/hal7502.imp" @ PUSH PRINT1 @ PUSH V N PUSHI #0x00000008 ] RSH p ASSPAR E CALL O LINE 98 "regression-compile-tmp/hal7502.imp" @ PUSH PRINT1 @ PUSH V p ASSPAR E CALL 99 %END 100 O LINE 99 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_PRINTWORD {lev=2 --> 1} 101 %ROUTINE PRINT LOC O LINE 101 "regression-compile-tmp/hal7502.imp" $ DEF PRINTLOC (_lev0id0_PRINTLOC) p1=V_00f4 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 102 PRINT WORD(LOC) O LINE 102 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTWORD @ PUSH LOC p ASSPAR E CALL 103 %IF LOCTYPE&RELMASK # 0 %THEN PRINT('''') %ELSE PRINT(' ') O LINE 103 "regression-compile-tmp/hal7502.imp" @ PUSH LOCTYPE @ PUSH RELMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH PRINT N PUSHI #0x00000027 p ASSPAR E CALL F GOTO L_0003 : LOCATE L_0004 @ PUSH PRINT N PUSHI #0x00000020 p ASSPAR E CALL : LOCATE L_0003 104 PRINT(' ') O LINE 104 "regression-compile-tmp/hal7502.imp" @ PUSH PRINT N PUSHI #0x00000020 p ASSPAR E CALL 105 %END 106 O LINE 105 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_PRINTLOC {lev=2 --> 1} 107 %ROUTINE DO NEWLINE O LINE 107 "regression-compile-tmp/hal7502.imp" $ DEF DONEWLINE (_lev0id0_DONEWLINE) p1=V_00f5 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 108 NEWLINE; LINES = LINES+1 O LINE 108 "regression-compile-tmp/hal7502.imp" @ PUSH NEWLINE E CALL O LINE 108 "regression-compile-tmp/hal7502.imp" @ PUSH LINES @ PUSH LINES N PUSHI #0x00000001 + ADD S ASSVAL 109 NEWLINES(2) %AND LINES = 0 %IF LINES = 61 O LINE 109 "regression-compile-tmp/hal7502.imp" @ PUSH LINES N PUSHI #0x0000003d ? JUMPIF # L_0004 @ PUSH NEWLINES N PUSHI #0x00000002 p ASSPAR E CALL @ PUSH LINES N PUSHI #0x00000000 S ASSVAL : LOCATE L_0004 110 %END 111 O LINE 110 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_DONEWLINE {lev=2 --> 1} 112 %ROUTINE PRINT LINE O LINE 112 "regression-compile-tmp/hal7502.imp" $ DEF PRINTLINE (_lev0id0_PRINTLINE) p1=V_00f6 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 113 %ROUTINE PRINTIT(%INTEGER SUB) O LINE 113 "regression-compile-tmp/hal7502.imp" $ DEF PRINTIT (_lev0id0_PRINTLINE_PRINTIT) p1=V_00f7 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} $ DEF SUB p1=V_00f8 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=3} 114 %OWNINTEGER MARKER=124; !VERTICAL BAR O LINE 114 "regression-compile-tmp/hal7502.imp" N PUSHI #0x0000007c $ DEF MARKER p1=V_00f9 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 115 %INTEGER P,Q,K O LINE 115 "regression-compile-tmp/hal7502.imp" $ DEF P p1=V_00fa a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF Q p1=V_00fb a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF K p1=V_00fc a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 116 %RETURN %IF CHARS = 0 %AND CHAR(PRINTPOS) = NL O LINE 116 "regression-compile-tmp/hal7502.imp" @ PUSH CHARS N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH CHAR @ PUSH PRINTPOS p ASSPAR E CALL N PUSHI #0x0000000a ? JUMPIF # L_0004 R RETURN : LOCATE L_0004 117 PRINT SYMBOL(FSYM); SPACE O LINE 117 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTSYMBOL @ PUSH FSYM p ASSPAR E CALL O LINE 117 "regression-compile-tmp/hal7502.imp" @ PUSH SPACE E CALL 118 P = CODEPOS; Q = P+CHARS O LINE 118 "regression-compile-tmp/hal7502.imp" @ PUSH P @ PUSH CODEPOS S ASSVAL O LINE 118 "regression-compile-tmp/hal7502.imp" @ PUSH Q @ PUSH P @ PUSH CHARS + ADD S ASSVAL 119 PRINT SYMBOL(INTEGER(P)) %AND P=P+1 %WHILE P # Q O LINE 119 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 @ PUSH P @ PUSH Q ? JUMPIF = L_0004 @ PUSH PRINTSYMBOL @ PUSH INTEGER @ PUSH P p ASSPAR E CALL p ASSPAR E CALL @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL B REPEAT L_0003 : LOCATE L_0004 120 %RETURN %IF PRINTPOS = 0 O LINE 120 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTPOS N PUSHI #0x00000000 ? JUMPIF # L_0004 R RETURN : LOCATE L_0004 121 SPACES(17-CHARS) O LINE 121 "regression-compile-tmp/hal7502.imp" @ PUSH SPACES N PUSHI #0x00000011 @ PUSH CHARS - SUB p ASSPAR E CALL 122 P = PRINTPOS; Q = 0 O LINE 122 "regression-compile-tmp/hal7502.imp" @ PUSH P @ PUSH PRINTPOS S ASSVAL O LINE 122 "regression-compile-tmp/hal7502.imp" @ PUSH Q N PUSHI #0x00000000 S ASSVAL 123 %CYCLE O LINE 123 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 124 PRINT SYMBOL(MARKER) %IF P = FAULTPOS O LINE 124 "regression-compile-tmp/hal7502.imp" @ PUSH P @ PUSH FAULTPOS ? JUMPIF # L_0007 @ PUSH PRINTSYMBOL @ PUSH MARKER p ASSPAR E CALL : LOCATE L_0007 125 K = CHAR(P); K = SUB %IF P = PSEUDOLIM O LINE 125 "regression-compile-tmp/hal7502.imp" @ PUSH K @ PUSH CHAR @ PUSH P p ASSPAR E CALL S ASSVAL O LINE 125 "regression-compile-tmp/hal7502.imp" @ PUSH P @ PUSH PSEUDOLIM ? JUMPIF # L_0007 @ PUSH K @ PUSH SUB S ASSVAL : LOCATE L_0007 126 PRINT SYMBOL('''') %IF (K!!Q)&128 # 0 O LINE 126 "regression-compile-tmp/hal7502.imp" @ PUSH K @ PUSH Q % XOR N PUSHI #0x00000080 & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH PRINTSYMBOL N PUSHI #0x00000027 p ASSPAR E CALL : LOCATE L_0007 127 %RETURN %IF K = NL O LINE 127 "regression-compile-tmp/hal7502.imp" @ PUSH K N PUSHI #0x0000000a ? JUMPIF # L_0007 R RETURN : LOCATE L_0007 128 PRINT SYMBOL(K&127) O LINE 128 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTSYMBOL @ PUSH K N PUSHI #0x0000007f & AND p ASSPAR E CALL 129 P = P+1; Q = K O LINE 129 "regression-compile-tmp/hal7502.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 129 "regression-compile-tmp/hal7502.imp" @ PUSH Q @ PUSH K S ASSVAL 130 %REPEAT O LINE 130 "regression-compile-tmp/hal7502.imp" B REPEAT L_0003 131 %END O LINE 131 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_PRINTLINE_PRINTIT {lev=3 --> 2} 132 %RETURN %IF PASS = 0 O LINE 132 "regression-compile-tmp/hal7502.imp" @ PUSH PASS N PUSHI #0x00000000 ? JUMPIF # L_0004 R RETURN : LOCATE L_0004 133 %UNLESS LIST < 0 %OR (PRINTPOS=0 %AND FSYM=' ' %AND LIST&1=0) %START O LINE 133 "regression-compile-tmp/hal7502.imp" @ PUSH LIST N PUSHI #0x00000000 ? JUMPIF < L_0004 @ PUSH PRINTPOS N PUSHI #0x00000000 ? JUMPIF # L_0005 @ PUSH FSYM N PUSHI #0x00000020 ? JUMPIF # L_0005 @ PUSH LIST N PUSHI #0x00000001 & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 : LOCATE L_0005 134 NEWLINES(3) %IF LINES = 0 O LINE 134 "regression-compile-tmp/hal7502.imp" @ PUSH LINES N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH NEWLINES N PUSHI #0x00000003 p ASSPAR E CALL : LOCATE L_0007 135 PRINTIT(' ') O LINE 135 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTIT N PUSHI #0x00000020 p ASSPAR E CALL 136 DO NEWLINE O LINE 136 "regression-compile-tmp/hal7502.imp" @ PUSH DONEWLINE E CALL 137 %FINISH O LINE 137 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 138 %IF FSYM # ' ' %AND OUTDEV # 1 %START O LINE 138 "regression-compile-tmp/hal7502.imp" @ PUSH FSYM N PUSHI #0x00000020 ? JUMPIF = L_0004 @ PUSH OUTDEV E CALL N PUSHI #0x00000001 ? JUMPIF = L_0004 139 SELECT OUTPUT(0) O LINE 139 "regression-compile-tmp/hal7502.imp" @ PUSH SELECTOUTPUT N PUSHI #0x00000000 p ASSPAR E CALL 140 PRINTPOS = STARTPOS %IF PRINTPOS = 0 O LINE 140 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTPOS N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH PRINTPOS @ PUSH STARTPOS S ASSVAL : LOCATE L_0007 141 PRINT LOC %IF CHARS = 0 O LINE 141 "regression-compile-tmp/hal7502.imp" @ PUSH CHARS N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH PRINTLOC E CALL : LOCATE L_0007 142 PRINTIT(NL) O LINE 142 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTIT N PUSHI #0x0000000a p ASSPAR E CALL 143 NEWLINE O LINE 143 "regression-compile-tmp/hal7502.imp" @ PUSH NEWLINE E CALL 144 SELECT OUTPUT(LIS) O LINE 144 "regression-compile-tmp/hal7502.imp" @ PUSH SELECTOUTPUT @ PUSH LIS p ASSPAR E CALL 145 %FINISH O LINE 145 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 146 FSYM = ' '; PRINTPOS = 0; CHARS = 0 O LINE 146 "regression-compile-tmp/hal7502.imp" @ PUSH FSYM N PUSHI #0x00000020 S ASSVAL O LINE 146 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTPOS N PUSHI #0x00000000 S ASSVAL O LINE 146 "regression-compile-tmp/hal7502.imp" @ PUSH CHARS N PUSHI #0x00000000 S ASSVAL 147 %END 148 O LINE 147 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_PRINTLINE {lev=2 --> 1} 149 %ROUTINE PUT WORD(%INTEGER V) O LINE 149 "regression-compile-tmp/hal7502.imp" $ DEF PUTWORD (_lev0id0_PUTWORD) p1=V_00f7 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF V p1=V_00f8 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 150 CHECK = CHECK!!V O LINE 150 "regression-compile-tmp/hal7502.imp" @ PUSH CHECK @ PUSH CHECK @ PUSH V % XOR S ASSVAL 151 SELECT OUTPUT(BIN) O LINE 151 "regression-compile-tmp/hal7502.imp" @ PUSH SELECTOUTPUT @ PUSH BIN p ASSPAR E CALL 152 PRINT CH(V>>12&15+CONTROL) O LINE 152 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTCH @ PUSH V N PUSHI #0x0000000c ] RSH N PUSHI #0x0000000f & AND @ PUSH CONTROL + ADD p ASSPAR E CALL 153 PRINT CH(V>>8&15+16_40) O LINE 153 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTCH @ PUSH V N PUSHI #0x00000008 ] RSH N PUSHI #0x0000000f & AND N PUSHI #0x00000040 + ADD p ASSPAR E CALL 154 PRINT CH(V>>4&15+16_40) O LINE 154 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTCH @ PUSH V N PUSHI #0x00000004 ] RSH N PUSHI #0x0000000f & AND N PUSHI #0x00000040 + ADD p ASSPAR E CALL 155 PRINT CH(V&15+16_40) O LINE 155 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTCH @ PUSH V N PUSHI #0x0000000f & AND N PUSHI #0x00000040 + ADD p ASSPAR E CALL 156 CONTROL = 16_50 O LINE 156 "regression-compile-tmp/hal7502.imp" @ PUSH CONTROL N PUSHI #0x00000050 S ASSVAL 157 SELECT OUTPUT(LIS) O LINE 157 "regression-compile-tmp/hal7502.imp" @ PUSH SELECTOUTPUT @ PUSH LIS p ASSPAR E CALL 158 %END 159 O LINE 158 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_PUTWORD {lev=2 --> 1} 160 %ROUTINE PLANT VAL O LINE 160 "regression-compile-tmp/hal7502.imp" $ DEF PLANTVAL (_lev0id0_PLANTVAL) p1=V_00f8 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 161 %IF PASS > 0 %START O LINE 161 "regression-compile-tmp/hal7502.imp" @ PUSH PASS N PUSHI #0x00000000 ? JUMPIF <= L_0004 162 %IF CHARS = 0 %START O LINE 162 "regression-compile-tmp/hal7502.imp" @ PUSH CHARS N PUSHI #0x00000000 ? JUMPIF # L_0007 163 %IF PRINTPOS#0 %THEN PRINT LOC %ELSE %START O LINE 163 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTPOS N PUSHI #0x00000000 ? JUMPIF = L_000a @ PUSH PRINTLOC E CALL F GOTO L_0009 : LOCATE L_000a 164 PRINT(' '); PRINT(' '); PRINT(' ') O LINE 164 "regression-compile-tmp/hal7502.imp" @ PUSH PRINT N PUSHI #0x00000020 p ASSPAR E CALL O LINE 164 "regression-compile-tmp/hal7502.imp" @ PUSH PRINT N PUSHI #0x00000020 p ASSPAR E CALL O LINE 164 "regression-compile-tmp/hal7502.imp" @ PUSH PRINT N PUSHI #0x00000020 p ASSPAR E CALL 165 PRINT(' '); PRINT(' '); PRINT(' ') O LINE 165 "regression-compile-tmp/hal7502.imp" @ PUSH PRINT N PUSHI #0x00000020 p ASSPAR E CALL O LINE 165 "regression-compile-tmp/hal7502.imp" @ PUSH PRINT N PUSHI #0x00000020 p ASSPAR E CALL O LINE 165 "regression-compile-tmp/hal7502.imp" @ PUSH PRINT N PUSHI #0x00000020 p ASSPAR E CALL 166 %FINISH O LINE 166 "regression-compile-tmp/hal7502.imp" : LOCATE L_0009 167 %FINISH O LINE 167 "regression-compile-tmp/hal7502.imp" : LOCATE L_0007 168 PRINT(' ') %IF CHARS = 10 O LINE 168 "regression-compile-tmp/hal7502.imp" @ PUSH CHARS N PUSHI #0x0000000a ? JUMPIF # L_0007 @ PUSH PRINT N PUSHI #0x00000020 p ASSPAR E CALL : LOCATE L_0007 169 PRINT WORD(VAL); PUT WORD(VAL) O LINE 169 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTWORD @ PUSH VAL p ASSPAR E CALL O LINE 169 "regression-compile-tmp/hal7502.imp" @ PUSH PUTWORD @ PUSH VAL p ASSPAR E CALL 170 PRINT('''') %IF TYPE&RELMASK # 0 O LINE 170 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH RELMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH PRINT N PUSHI #0x00000027 p ASSPAR E CALL : LOCATE L_0007 171 PRINT LINE %IF CHARS >= 15 O LINE 171 "regression-compile-tmp/hal7502.imp" @ PUSH CHARS N PUSHI #0x0000000f ? JUMPIF < L_0007 @ PUSH PRINTLINE E CALL : LOCATE L_0007 172 %FINISH O LINE 172 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 173 LOC = LOC+1 O LINE 173 "regression-compile-tmp/hal7502.imp" @ PUSH LOC @ PUSH LOC N PUSHI #0x00000001 + ADD S ASSVAL 174 %END 175 O LINE 174 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_PLANTVAL {lev=2 --> 1} 176 %ROUTINE PLANT(%INTEGER V) O LINE 176 "regression-compile-tmp/hal7502.imp" $ DEF PLANT (_lev0id0_PLANT) p1=V_00f9 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF V p1=V_00fa a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 177 %INTEGER THOLD,VHOLD O LINE 177 "regression-compile-tmp/hal7502.imp" $ DEF THOLD p1=V_00fb a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF VHOLD p1=V_00fc a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 178 THOLD = TYPE; VHOLD = VAL O LINE 178 "regression-compile-tmp/hal7502.imp" @ PUSH THOLD @ PUSH TYPE S ASSVAL O LINE 178 "regression-compile-tmp/hal7502.imp" @ PUSH VHOLD @ PUSH VAL S ASSVAL 179 TYPE = 0; VAL = V O LINE 179 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL O LINE 179 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH V S ASSVAL 180 PLANT VAL O LINE 180 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTVAL E CALL 181 TYPE = THOLD; VAL = THOLD O LINE 181 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH THOLD S ASSVAL O LINE 181 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH THOLD S ASSVAL 182 %END 183 O LINE 182 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_PLANT {lev=2 --> 1} 184 %ROUTINE NEST(%INTEGER K) O LINE 184 "regression-compile-tmp/hal7502.imp" $ DEF NEST (_lev0id0_NEST) p1=V_00fa a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF K p1=V_00fb a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 185 NP = NP-1; !!%MONITOR 23 %IF NP = BP O LINE 185 "regression-compile-tmp/hal7502.imp" @ PUSH NP @ PUSH NP N PUSHI #0x00000001 - SUB S ASSVAL 186 INTEGER(NP) = K O LINE 186 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH NP p ASSPAR E CALL @ PUSH K S ASSVAL 187 %END 188 O LINE 187 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_NEST {lev=2 --> 1} 189 %ROUTINE SET LAB(%INTEGER DEST) O LINE 189 "regression-compile-tmp/hal7502.imp" $ DEF SETLAB (_lev0id0_SETLAB) p1=V_00fb a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF DEST p1=V_00fc a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 190 %INTEGER P,Q O LINE 190 "regression-compile-tmp/hal7502.imp" $ DEF P p1=V_00fd a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF Q p1=V_00fe a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 191 Q = 0 O LINE 191 "regression-compile-tmp/hal7502.imp" @ PUSH Q N PUSHI #0x00000000 S ASSVAL 192 %CYCLE O LINE 192 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 193 TYPE = INTEGER(NP); P = TYPE&16_3FF+DEFLIM; !DEST SLOT O LINE 193 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH INTEGER @ PUSH NP p ASSPAR E CALL S ASSVAL O LINE 193 "regression-compile-tmp/hal7502.imp" @ PUSH P @ PUSH TYPE N PUSHI #0x000003ff & AND @ PUSH DEFLIM + ADD S ASSVAL 194 NP = NP+1 O LINE 194 "regression-compile-tmp/hal7502.imp" @ PUSH NP @ PUSH NP N PUSHI #0x00000001 + ADD S ASSVAL 195 VAL = INTEGER(NP); !LOC OF JUMP O LINE 195 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH INTEGER @ PUSH NP p ASSPAR E CALL S ASSVAL 196 NP = NP+1 O LINE 196 "regression-compile-tmp/hal7502.imp" @ PUSH NP @ PUSH NP N PUSHI #0x00000001 + ADD S ASSVAL 197 ATYPE = -1; CREG = -1 O LINE 197 "regression-compile-tmp/hal7502.imp" @ PUSH ATYPE N PUSHI #0x00000001 U NEGATE S ASSVAL O LINE 197 "regression-compile-tmp/hal7502.imp" @ PUSH CREG N PUSHI #0x00000001 U NEGATE S ASSVAL 198 FLAG = 0; O LINE 198 "regression-compile-tmp/hal7502.imp" @ PUSH FLAG N PUSHI #0x00000000 S ASSVAL 199 %IF TYPE&16_800 = 0 %START O LINE 199 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x00000800 & AND N PUSHI #0x00000000 ? JUMPIF # L_0007 200 FLAG = 1 %IF DEST-VAL+PASS <= 128 O LINE 200 "regression-compile-tmp/hal7502.imp" @ PUSH DEST @ PUSH VAL - SUB @ PUSH PASS + ADD N PUSHI #0x00000080 ? JUMPIF > L_000a @ PUSH FLAG N PUSHI #0x00000001 S ASSVAL : LOCATE L_000a 201 %finish %ELSE %IF TYPE&16_400 # 0 %START O LINE 201 "regression-compile-tmp/hal7502.imp" F GOTO L_0006 : LOCATE L_0007 @ PUSH TYPE N PUSHI #0x00000400 & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 202 FLAG = 2 %IF DEST-VAL+PASS+PASS = 1 O LINE 202 "regression-compile-tmp/hal7502.imp" @ PUSH DEST @ PUSH VAL - SUB @ PUSH PASS + ADD @ PUSH PASS + ADD N PUSHI #0x00000001 ? JUMPIF # L_000a @ PUSH FLAG N PUSHI #0x00000002 S ASSVAL : LOCATE L_000a 203 %FINISH O LINE 203 "regression-compile-tmp/hal7502.imp" : LOCATE L_0007 : LOCATE L_0006 204 %IF PASS = 0 %START O LINE 204 "regression-compile-tmp/hal7502.imp" @ PUSH PASS N PUSHI #0x00000000 ? JUMPIF # L_0007 205 DEST = DEST-FLAG; INTEGER(P) = DEST O LINE 205 "regression-compile-tmp/hal7502.imp" @ PUSH DEST @ PUSH DEST @ PUSH FLAG - SUB S ASSVAL O LINE 205 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH P p ASSPAR E CALL @ PUSH DEST S ASSVAL 206 %IF FLAG # 0 %START O LINE 206 "regression-compile-tmp/hal7502.imp" @ PUSH FLAG N PUSHI #0x00000000 ? JUMPIF = L_000a 207 LOC = LOC-FLAG O LINE 207 "regression-compile-tmp/hal7502.imp" @ PUSH LOC @ PUSH LOC @ PUSH FLAG - SUB S ASSVAL 208 %WHILE P # ALMAX %CYCLE O LINE 208 "regression-compile-tmp/hal7502.imp" : LOCATE L_000c @ PUSH P @ PUSH ALMAX ? JUMPIF = L_000d 209 P = P+1; INTEGER(P) = INTEGER(P)-FLAG O LINE 209 "regression-compile-tmp/hal7502.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 209 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH P p ASSPAR E CALL @ PUSH INTEGER @ PUSH P p ASSPAR E CALL @ PUSH FLAG - SUB S ASSVAL 210 %REPEAT O LINE 210 "regression-compile-tmp/hal7502.imp" B REPEAT L_000c : LOCATE L_000d 211 %FINISH O LINE 211 "regression-compile-tmp/hal7502.imp" : LOCATE L_000a 212 %finish %ELSE %START O LINE 212 "regression-compile-tmp/hal7502.imp" F GOTO L_0006 : LOCATE L_0007 213 FAULT('P') %IF INTEGER(P) # DEST O LINE 213 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH P p ASSPAR E CALL @ PUSH DEST ? JUMPIF = L_000a @ PUSH FAULT N PUSHI #0x00000050 p ASSPAR E CALL : LOCATE L_000a 214 %FINISH O LINE 214 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 215 %RETURN %IF INTEGER(NP)&16_1000 = 0 O LINE 215 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH NP p ASSPAR E CALL N PUSHI #0x00001000 & AND N PUSHI #0x00000000 ? JUMPIF # L_0007 R RETURN : LOCATE L_0007 216 %IF INTEGER(NP)&16_2000 # 0 %AND Q = 0 %START; !OR O LINE 216 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH NP p ASSPAR E CALL N PUSHI #0x00002000 & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH Q N PUSHI #0x00000000 ? JUMPIF # L_0007 217 DEST = VAL+1 O LINE 217 "regression-compile-tmp/hal7502.imp" @ PUSH DEST @ PUSH VAL N PUSHI #0x00000001 + ADD S ASSVAL 218 DEST = VAL+2-FLAG %UNLESS TYPE&16_C00 = 16_C00 O LINE 218 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x00000c00 & AND N PUSHI #0x00000c00 ? JUMPIF = L_000a @ PUSH DEST @ PUSH VAL N PUSHI #0x00000002 + ADD @ PUSH FLAG - SUB S ASSVAL : LOCATE L_000a 219 Q = 1 O LINE 219 "regression-compile-tmp/hal7502.imp" @ PUSH Q N PUSHI #0x00000001 S ASSVAL 220 %FINISH O LINE 220 "regression-compile-tmp/hal7502.imp" : LOCATE L_0007 221 %REPEAT O LINE 221 "regression-compile-tmp/hal7502.imp" B REPEAT L_0003 222 %END 223 O LINE 222 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_SETLAB {lev=2 --> 1} 224 %ROUTINE ASSEMBLE 225 ! 7502 OP-CODES O LINE 224 "regression-compile-tmp/hal7502.imp" $ DEF ASSEMBLE (_lev0id0_ASSEMBLE) p1=V_00fc a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 226 %OWNINTEGER ADD=16_F400, SUB=16_F500, AND=16_F100 O LINE 226 "regression-compile-tmp/hal7502.imp" N PUSHI #0x0000f400 $ DEF ADD p1=V_00fd a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x0000f500 $ DEF SUB p1=V_00fe a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x0000f100 $ DEF AND p1=V_00ff a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 227 %OWNINTEGER OR=16_F000, XOR=16_F700, COMP=16_F200 O LINE 227 "regression-compile-tmp/hal7502.imp" N PUSHI #0x0000f000 $ DEF OR p1=V_0100 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x0000f700 $ DEF XOR p1=V_0101 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x0000f200 $ DEF COMP p1=V_0102 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 228 %OWNINTEGER COPY=16_F300 O LINE 228 "regression-compile-tmp/hal7502.imp" N PUSHI #0x0000f300 $ DEF COPY p1=V_0103 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 229 %OWNINTEGER LOADI=16_6000, SKIDI=16_7000, ADDI=16_8000 O LINE 229 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00006000 $ DEF LOADI p1=V_0104 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x00007000 $ DEF SKIDI p1=V_0105 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x00008000 $ DEF ADDI p1=V_0106 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 230 %OWNINTEGER ANDI=16_9000 O LINE 230 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00009000 $ DEF ANDI p1=V_0107 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 231 %OWNINTEGER BOC=16_5800, BOCR=16_5000, JUM=16_4000 O LINE 231 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00005800 $ DEF BOC p1=V_0108 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x00005000 $ DEF BOCR p1=V_0109 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x00004000 $ DEF JUM p1=V_010a a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 232 %OWNINTEGER SKIP=16_4002, LOADC=16_20F2, ROT=16_3000 O LINE 232 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00004002 $ DEF SKIP p1=V_010b a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x000020f2 $ DEF LOADC p1=V_010c a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x00003000 $ DEF ROT p1=V_010d a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 233 %OWNINTEGER LOAD=16_2000, STORE=16_2008 234 O LINE 233 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00002000 $ DEF LOAD p1=V_010e a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x00002008 $ DEF STORE p1=V_010f a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 235 %INTEGER Q,NQ,OP,K,LITVAL,TYPE1,VAL1,FREE O LINE 235 "regression-compile-tmp/hal7502.imp" $ DEF Q p1=V_0110 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF NQ p1=V_0111 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF OP p1=V_0112 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF K p1=V_0113 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF LITVAL p1=V_0114 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF TYPE1 p1=V_0115 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF VAL1 p1=V_0116 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF FREE p1=V_0117 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 236 %SWITCH ASS(-30:-1) 237 O LINE 236 "regression-compile-tmp/hal7502.imp" N PUSHI #0xffffffe2 N PUSHI #0xffffffff b BOUNDS $ DEF ASS p1=V_0118 a/tf=6 b/format=0 c/ostate=0 type=0 () form=6 (switch) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 238 %ROUTINE COMBINE O LINE 238 "regression-compile-tmp/hal7502.imp" $ DEF COMBINE (_lev0id0_ASSEMBLE_COMBINE) p1=V_0119 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} } FINISH ) {lev=3} 239 %INTEGER I,J,K O LINE 239 "regression-compile-tmp/hal7502.imp" $ DEF I p1=V_011a a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_011b a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF K p1=V_011c a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 240 I = 11; K = 2048 O LINE 240 "regression-compile-tmp/hal7502.imp" @ PUSH I N PUSHI #0x0000000b S ASSVAL O LINE 240 "regression-compile-tmp/hal7502.imp" @ PUSH K N PUSHI #0x00000800 S ASSVAL 241 I=I-1 %AND K=K>>1 %WHILE K&TYPE1 = 0 %AND I # 0 O LINE 241 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 @ PUSH K @ PUSH TYPE1 & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH I N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH I @ PUSH I N PUSHI #0x00000001 - SUB S ASSVAL @ PUSH K @ PUSH K N PUSHI #0x00000001 ] RSH S ASSVAL B REPEAT L_0003 : LOCATE L_0004 242 J = K O LINE 242 "regression-compile-tmp/hal7502.imp" @ PUSH J @ PUSH K S ASSVAL 243 I =I-1 %AND J=J>>1 %WHILE J&VAL1 = 0 %AND I # 0 O LINE 243 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 @ PUSH J @ PUSH VAL1 & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH I N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH I @ PUSH I N PUSHI #0x00000001 - SUB S ASSVAL @ PUSH J @ PUSH J N PUSHI #0x00000001 ] RSH S ASSVAL B REPEAT L_0003 : LOCATE L_0004 244 VAL = VAL< 2} 249 %ROUTINE PLANT JUMP O LINE 249 "regression-compile-tmp/hal7502.imp" $ DEF PLANTJUMP (_lev0id0_ASSEMBLE_PLANTJUMP) p1=V_011a a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} } FINISH ) {lev=3} 250 %INTEGER I,V O LINE 250 "regression-compile-tmp/hal7502.imp" $ DEF I p1=V_011b a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF V p1=V_011c a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 251 I = VAL-LOC O LINE 251 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH VAL @ PUSH LOC - SUB S ASSVAL 252 %IF COND&6 = 0 %START O LINE 252 "regression-compile-tmp/hal7502.imp" @ PUSH COND N PUSHI #0x00000006 & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 253 %IF COND = 8 %START O LINE 253 "regression-compile-tmp/hal7502.imp" @ PUSH COND N PUSHI #0x00000008 ? JUMPIF # L_0007 254 %RETURN %IF I=1 O LINE 254 "regression-compile-tmp/hal7502.imp" @ PUSH I N PUSHI #0x00000001 ? JUMPIF # L_000a R RETURN : LOCATE L_000a 255 PLANT(SKIP) O LINE 255 "regression-compile-tmp/hal7502.imp" @ PUSH PLANT @ PUSH SKIP p ASSPAR E CALL 256 %FINISH O LINE 256 "regression-compile-tmp/hal7502.imp" : LOCATE L_0007 257 %finish %ELSE %START O LINE 257 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 258 FAULT('J') %AND I=0 %IF FLAG # 0 %AND |I| > 127 O LINE 258 "regression-compile-tmp/hal7502.imp" @ PUSH FLAG N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH I v MOD N PUSHI #0x0000007f ? JUMPIF <= L_0007 @ PUSH FAULT N PUSHI #0x0000004a p ASSPAR E CALL @ PUSH I N PUSHI #0x00000000 S ASSVAL : LOCATE L_0007 259 %IF |I| <= 127 %START O LINE 259 "regression-compile-tmp/hal7502.imp" @ PUSH I v MOD N PUSHI #0x0000007f ? JUMPIF > L_0007 260 %IF TYPE&UMASK = 0 %OR FLAG # 0 %START O LINE 260 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH UMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_000b @ PUSH FLAG N PUSHI #0x00000000 ? JUMPIF = L_000a : LOCATE L_000b 261 PLANT(BOC+(COND!!1)<<8+I&255) O LINE 261 "regression-compile-tmp/hal7502.imp" @ PUSH PLANT @ PUSH BOC @ PUSH COND N PUSHI #0x00000001 % XOR N PUSHI #0x00000008 [ LSH + ADD @ PUSH I N PUSHI #0x000000ff & AND + ADD p ASSPAR E CALL 262 %RETURN O LINE 262 "regression-compile-tmp/hal7502.imp" R RETURN 263 %FINISH O LINE 263 "regression-compile-tmp/hal7502.imp" : LOCATE L_000a 264 FAULT('S') %IF LIST >= 0 %AND LIST&8 # 0 O LINE 264 "regression-compile-tmp/hal7502.imp" @ PUSH LIST N PUSHI #0x00000000 ? JUMPIF < L_000a @ PUSH LIST N PUSHI #0x00000008 & AND N PUSHI #0x00000000 ? JUMPIF = L_000a @ PUSH FAULT N PUSHI #0x00000053 p ASSPAR E CALL : LOCATE L_000a 265 %FINISH O LINE 265 "regression-compile-tmp/hal7502.imp" : LOCATE L_0007 266 PLANT(BOC+COND<<8+2) O LINE 266 "regression-compile-tmp/hal7502.imp" @ PUSH PLANT @ PUSH BOC @ PUSH COND N PUSHI #0x00000008 [ LSH + ADD N PUSHI #0x00000002 + ADD p ASSPAR E CALL 267 %FINISH O LINE 267 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 268 PLANT(JUM+(VAL-LOC)&4095) O LINE 268 "regression-compile-tmp/hal7502.imp" @ PUSH PLANT @ PUSH JUM @ PUSH VAL @ PUSH LOC - SUB N PUSHI #0x00000fff & AND + ADD p ASSPAR E CALL 269 %END 270 O LINE 269 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_ASSEMBLE_PLANTJUMP {lev=3 --> 2} 271 %ROUTINE SET JUMP(%INTEGER CASE) O LINE 271 "regression-compile-tmp/hal7502.imp" $ DEF SETJUMP (_lev0id0_ASSEMBLE_SETJUMP) p1=V_011b a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} $ DEF CASE p1=V_011c a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=3} 272 %INTEGER THOLD,VHOLD,FHOLD O LINE 272 "regression-compile-tmp/hal7502.imp" $ DEF THOLD p1=V_011d a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF VHOLD p1=V_011e a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF FHOLD p1=V_011f a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 273 CASE = CASE+16_0800 %IF COND&6 = 0 O LINE 273 "regression-compile-tmp/hal7502.imp" @ PUSH COND N PUSHI #0x00000006 & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH CASE @ PUSH CASE N PUSHI #0x00000800 + ADD S ASSVAL : LOCATE L_0004 274 CASE = CASE+16_0400 %IF COND&1 # 0 O LINE 274 "regression-compile-tmp/hal7502.imp" @ PUSH COND N PUSHI #0x00000001 & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH CASE @ PUSH CASE N PUSHI #0x00000400 + ADD S ASSVAL : LOCATE L_0004 275 ALMAX = ALMAX+1; !!%MONITOR 22 %IF ALMAX = LABMIN O LINE 275 "regression-compile-tmp/hal7502.imp" @ PUSH ALMAX @ PUSH ALMAX N PUSHI #0x00000001 + ADD S ASSVAL 276 NEST(LOC); NEST(ALMAX-DEFLIM+CASE) O LINE 276 "regression-compile-tmp/hal7502.imp" @ PUSH NEST @ PUSH LOC p ASSPAR E CALL O LINE 276 "regression-compile-tmp/hal7502.imp" @ PUSH NEST @ PUSH ALMAX @ PUSH DEFLIM - SUB @ PUSH CASE + ADD p ASSPAR E CALL 277 THOLD = TYPE; VHOLD = VAL; FHOLD = FLAG O LINE 277 "regression-compile-tmp/hal7502.imp" @ PUSH THOLD @ PUSH TYPE S ASSVAL O LINE 277 "regression-compile-tmp/hal7502.imp" @ PUSH VHOLD @ PUSH VAL S ASSVAL O LINE 277 "regression-compile-tmp/hal7502.imp" @ PUSH FHOLD @ PUSH FLAG S ASSVAL 278 TYPE = LOCTYPE; VAL = INTEGER(ALMAX); FLAG = 0 O LINE 278 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH LOCTYPE S ASSVAL O LINE 278 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH INTEGER @ PUSH ALMAX p ASSPAR E CALL S ASSVAL O LINE 278 "regression-compile-tmp/hal7502.imp" @ PUSH FLAG N PUSHI #0x00000000 S ASSVAL 279 TYPE = TYPE+UMASK %IF PASS = 0 O LINE 279 "regression-compile-tmp/hal7502.imp" @ PUSH PASS N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH TYPE @ PUSH TYPE @ PUSH UMASK + ADD S ASSVAL : LOCATE L_0004 280 COND = COND!!1 O LINE 280 "regression-compile-tmp/hal7502.imp" @ PUSH COND @ PUSH COND N PUSHI #0x00000001 % XOR S ASSVAL 281 PLANT JUMP; COND = 0 O LINE 281 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTJUMP E CALL O LINE 281 "regression-compile-tmp/hal7502.imp" @ PUSH COND N PUSHI #0x00000000 S ASSVAL 282 TYPE = THOLD; VAL = VHOLD; FLAG = FHOLD O LINE 282 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH THOLD S ASSVAL O LINE 282 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH VHOLD S ASSVAL O LINE 282 "regression-compile-tmp/hal7502.imp" @ PUSH FLAG @ PUSH FHOLD S ASSVAL 283 %END 284 O LINE 283 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_ASSEMBLE_SETJUMP {lev=3 --> 2} 285 %ROUTINE PLANT INST(%INTEGER CODE) O LINE 285 "regression-compile-tmp/hal7502.imp" $ DEF PLANTINST (_lev0id0_ASSEMBLE_PLANTINST) p1=V_011c a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} $ DEF CODE p1=V_011d a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=3} 286 SET JUMP(16_1000) %IF COND # 0 O LINE 286 "regression-compile-tmp/hal7502.imp" @ PUSH COND N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH SETJUMP N PUSHI #0x00001000 p ASSPAR E CALL : LOCATE L_0004 287 PLANT(CODE) O LINE 287 "regression-compile-tmp/hal7502.imp" @ PUSH PLANT @ PUSH CODE p ASSPAR E CALL 288 %END 289 O LINE 288 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_ASSEMBLE_PLANTINST {lev=3 --> 2} 290 %ROUTINE RELEASE O LINE 290 "regression-compile-tmp/hal7502.imp" $ DEF RELEASE (_lev0id0_ASSEMBLE_RELEASE) p1=V_011d a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} } FINISH ) {lev=3} 291 %INTEGER I O LINE 291 "regression-compile-tmp/hal7502.imp" $ DEF I p1=V_011e a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 292 %RETURN %IF TYPE®XMASK = 0 O LINE 292 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH REGXMASK & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 R RETURN : LOCATE L_0004 293 I = TYPE&15; I = VAL %IF TYPE = REG O LINE 293 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH TYPE N PUSHI #0x0000000f & AND S ASSVAL O LINE 293 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH REG ? JUMPIF # L_0004 @ PUSH I @ PUSH VAL S ASSVAL : LOCATE L_0004 294 %IF I = DREG %START O LINE 294 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH DREG ? JUMPIF # L_0004 295 DUSE = DUSE-1 O LINE 295 "regression-compile-tmp/hal7502.imp" @ PUSH DUSE @ PUSH DUSE N PUSHI #0x00000001 - SUB S ASSVAL 296 %finish %ELSE %START O LINE 296 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 297 I = 1< 2} 302 %INTEGERFN TREG O LINE 302 "regression-compile-tmp/hal7502.imp" $ DEF TREG (_lev0id0_ASSEMBLE_TREG) p1=V_011e a/tf=18 b/format=1 c/ostate=10 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=0 indirect=1 unass=0 { START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} } FINISH ) {lev=3} 303 %INTEGER I,J O LINE 303 "regression-compile-tmp/hal7502.imp" $ DEF I p1=V_011f a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_0120 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 304 %IF DREG >= 0 %AND DUSE = 0 %START O LINE 304 "regression-compile-tmp/hal7502.imp" @ PUSH DREG N PUSHI #0x00000000 ? JUMPIF < L_0004 @ PUSH DUSE N PUSHI #0x00000000 ? JUMPIF # L_0004 305 DUSE = 1 O LINE 305 "regression-compile-tmp/hal7502.imp" @ PUSH DUSE N PUSHI #0x00000001 S ASSVAL 306 %RESULT = DREG O LINE 306 "regression-compile-tmp/hal7502.imp" @ PUSH DREG V RESULT 307 %FINISH O LINE 307 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 308 J = 1 O LINE 308 "regression-compile-tmp/hal7502.imp" @ PUSH J N PUSHI #0x00000001 S ASSVAL 309 %CYCLE I = 0,1,15 O LINE 309 "regression-compile-tmp/hal7502.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x0000000f N PUSHI #0x00000000 f FOR L_0003 310 ->OK %IF FREE&J # 0 %AND I # DREG O LINE 310 "regression-compile-tmp/hal7502.imp" @ PUSH FREE @ PUSH J & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH I @ PUSH DREG ? JUMPIF = L_0007 J JUMP L_0121 : LOCATE L_0007 311 J = J<<1 O LINE 311 "regression-compile-tmp/hal7502.imp" @ PUSH J @ PUSH J N PUSHI #0x00000001 [ LSH S ASSVAL 312 %REPEAT O LINE 312 "regression-compile-tmp/hal7502.imp" B REPEAT L_0003 : LOCATE L_0004 313 FAULT('R') O LINE 313 "regression-compile-tmp/hal7502.imp" @ PUSH FAULT N PUSHI #0x00000052 p ASSPAR E CALL 314 OK: FREE = FREE-J O LINE 314 "regression-compile-tmp/hal7502.imp" L LABEL L_0121 O LINE 314 "regression-compile-tmp/hal7502.imp" @ PUSH FREE @ PUSH FREE @ PUSH J - SUB S ASSVAL 315 %RESULT = I O LINE 315 "regression-compile-tmp/hal7502.imp" @ PUSH I V RESULT 316 %END 317 O LINE 316 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_ASSEMBLE_TREG {lev=3 --> 2} 318 %ROUTINE LOAD CONST(%INTEGER R) O LINE 318 "regression-compile-tmp/hal7502.imp" $ DEF LOADCONST (_lev0id0_ASSEMBLE_LOADCONST) p1=V_011f a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} $ DEF R p1=V_0120 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=3} 319 %INTEGER I,J O LINE 319 "regression-compile-tmp/hal7502.imp" $ DEF I p1=V_0121 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_0122 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 320 I = LOADI+R<<8 O LINE 320 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH LOADI @ PUSH R N PUSHI #0x00000008 [ LSH + ADD S ASSVAL 321 %IF VAL&(\255) = 0 %AND TYPE&UMASK = 0 %START O LINE 321 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x000000ff \ NOT & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH TYPE @ PUSH UMASK & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 322 PLANT INST(I+VAL) O LINE 322 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTINST @ PUSH I @ PUSH VAL + ADD p ASSPAR E CALL 323 %finish %ELSE %IF \VAL&(\255) = 0 %AND TYPE&UMASK = 0 %START O LINE 323 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 @ PUSH VAL \ NOT N PUSHI #0x000000ff \ NOT & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH TYPE @ PUSH UMASK & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 324 PLANT INST(I+(\VAL)) O LINE 324 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTINST @ PUSH I @ PUSH VAL \ NOT + ADD p ASSPAR E CALL 325 PLANT INST(COMP+R<<4+R) O LINE 325 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTINST @ PUSH COMP @ PUSH R N PUSHI #0x00000004 [ LSH + ADD @ PUSH R + ADD p ASSPAR E CALL 326 CREG = R O LINE 326 "regression-compile-tmp/hal7502.imp" @ PUSH CREG @ PUSH R S ASSVAL 327 %finish %ELSE %START 328 ! PLANT INST(LOADC+R<<8) 329 ! PLANT INST(SKIP) 330 ! PLANT VAL O LINE 327 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 331 J = VAL>>8&255 O LINE 331 "regression-compile-tmp/hal7502.imp" @ PUSH J @ PUSH VAL N PUSHI #0x00000008 ] RSH N PUSHI #0x000000ff & AND S ASSVAL 332 J = J+1 %IF VAL&128 # 0 O LINE 332 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x00000080 & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH J @ PUSH J N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0007 333 PLANT INST(I+J) O LINE 333 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTINST @ PUSH I @ PUSH J + ADD p ASSPAR E CALL 334 PLANT INST(ROT+R<<8+7<<4+R) O LINE 334 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTINST @ PUSH ROT @ PUSH R N PUSHI #0x00000008 [ LSH + ADD N PUSHI #0x00000007 N PUSHI #0x00000004 [ LSH + ADD @ PUSH R + ADD p ASSPAR E CALL 335 PLANT INST(ADDI+R<<8+VAL&255) %IF VAL&255 # 0 O LINE 335 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x000000ff & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH PLANTINST @ PUSH ADDI @ PUSH R N PUSHI #0x00000008 [ LSH + ADD @ PUSH VAL N PUSHI #0x000000ff & AND + ADD p ASSPAR E CALL : LOCATE L_0007 336 %FINISH O LINE 336 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 337 %END 338 O LINE 337 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_ASSEMBLE_LOADCONST {lev=3 --> 2} 339 %ROUTINE LOAD REG(%INTEGER R) O LINE 339 "regression-compile-tmp/hal7502.imp" $ DEF LOADREG (_lev0id0_ASSEMBLE_LOADREG) p1=V_0120 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} $ DEF R p1=V_0121 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=3} 340 %INTEGER OP O LINE 340 "regression-compile-tmp/hal7502.imp" $ DEF OP p1=V_0122 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 341 %IF ATYPE = TYPE %AND AVAL = VAL %START O LINE 341 "regression-compile-tmp/hal7502.imp" @ PUSH ATYPE @ PUSH TYPE ? JUMPIF # L_0004 @ PUSH AVAL @ PUSH VAL ? JUMPIF # L_0004 342 TYPE = REG; VAL = ACC O LINE 342 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH REG S ASSVAL O LINE 342 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH ACC S ASSVAL 343 %RETURN %IF R = ACC O LINE 343 "regression-compile-tmp/hal7502.imp" @ PUSH R @ PUSH ACC ? JUMPIF # L_0007 R RETURN : LOCATE L_0007 344 %FINISH O LINE 344 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 345 ATYPE = TYPE %AND AVAL = VAL %IF R = ACC O LINE 345 "regression-compile-tmp/hal7502.imp" @ PUSH R @ PUSH ACC ? JUMPIF # L_0004 @ PUSH ATYPE @ PUSH TYPE S ASSVAL @ PUSH AVAL @ PUSH VAL S ASSVAL : LOCATE L_0004 346 ATYPE = -1 %IF (ATYPE=REG %AND AVAL=R) O LINE 346 "regression-compile-tmp/hal7502.imp" @ PUSH ATYPE @ PUSH REG ? JUMPIF # L_0004 @ PUSH AVAL @ PUSH R ? JUMPIF # L_0004 @ PUSH ATYPE N PUSHI #0x00000001 U NEGATE S ASSVAL : LOCATE L_0004 347 ATYPE = -1 %IF ATYPE&XMASK # 0 %AND ATYPE&15 = R O LINE 347 "regression-compile-tmp/hal7502.imp" @ PUSH ATYPE @ PUSH XMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH ATYPE N PUSHI #0x0000000f & AND @ PUSH R ? JUMPIF # L_0004 @ PUSH ATYPE N PUSHI #0x00000001 U NEGATE S ASSVAL : LOCATE L_0004 348 %IF TYPE = REG %START O LINE 348 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH REG ? JUMPIF # L_0004 349 PLANT INST(COPY+R<<4+VAL) O LINE 349 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTINST @ PUSH COPY @ PUSH R N PUSHI #0x00000004 [ LSH + ADD @ PUSH VAL + ADD p ASSPAR E CALL 350 CREG = R O LINE 350 "regression-compile-tmp/hal7502.imp" @ PUSH CREG @ PUSH R S ASSVAL 351 %finish %ELSE %IF TYPE&XMASK = 0 %START O LINE 351 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 @ PUSH TYPE @ PUSH XMASK & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 352 LOAD CONST(R) O LINE 352 "regression-compile-tmp/hal7502.imp" @ PUSH LOADCONST @ PUSH R p ASSPAR E CALL 353 PLANT INST(LOAD+R<<8+R<<4) %IF TYPE&MEMMASK # 0 O LINE 353 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH MEMMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH PLANTINST @ PUSH LOAD @ PUSH R N PUSHI #0x00000008 [ LSH + ADD @ PUSH R N PUSHI #0x00000004 [ LSH + ADD p ASSPAR E CALL : LOCATE L_0007 354 %finish %ELSE %START O LINE 354 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 355 %IF VAL&(\3) # 0 %OR TYPE&MEMMASK = 0 %START O LINE 355 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x00000003 \ NOT & AND N PUSHI #0x00000000 ? JUMPIF # L_0008 @ PUSH TYPE @ PUSH MEMMASK & AND N PUSHI #0x00000000 ? JUMPIF # L_0007 : LOCATE L_0008 356 %IF TYPE&15 # R %START O LINE 356 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x0000000f & AND @ PUSH R ? JUMPIF = L_000a 357 %IF |VAL| <= 127 %START O LINE 357 "regression-compile-tmp/hal7502.imp" @ PUSH VAL v MOD N PUSHI #0x0000007f ? JUMPIF > L_000d 358 PLANT INST(COPY+R<<4+TYPE&15) O LINE 358 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTINST @ PUSH COPY @ PUSH R N PUSHI #0x00000004 [ LSH + ADD @ PUSH TYPE N PUSHI #0x0000000f & AND + ADD p ASSPAR E CALL 359 PLANT INST(ADDI+R<<8+VAL&255) %IF VAL # 0 O LINE 359 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x00000000 ? JUMPIF = L_0010 @ PUSH PLANTINST @ PUSH ADDI @ PUSH R N PUSHI #0x00000008 [ LSH + ADD @ PUSH VAL N PUSHI #0x000000ff & AND + ADD p ASSPAR E CALL : LOCATE L_0010 360 %finish %ELSE %START O LINE 360 "regression-compile-tmp/hal7502.imp" F GOTO L_000c : LOCATE L_000d 361 LOAD CONST(R) O LINE 361 "regression-compile-tmp/hal7502.imp" @ PUSH LOADCONST @ PUSH R p ASSPAR E CALL 362 PLANT INST(ADD+R<<4+TYPE&15) O LINE 362 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTINST @ PUSH ADD @ PUSH R N PUSHI #0x00000004 [ LSH + ADD @ PUSH TYPE N PUSHI #0x0000000f & AND + ADD p ASSPAR E CALL 363 %FINISH O LINE 363 "regression-compile-tmp/hal7502.imp" : LOCATE L_000c 364 CREG = R O LINE 364 "regression-compile-tmp/hal7502.imp" @ PUSH CREG @ PUSH R S ASSVAL 365 %finish %ELSE %START O LINE 365 "regression-compile-tmp/hal7502.imp" F GOTO L_0009 : LOCATE L_000a 366 %IF |VAL| <= 127 %START O LINE 366 "regression-compile-tmp/hal7502.imp" @ PUSH VAL v MOD N PUSHI #0x0000007f ? JUMPIF > L_000d 367 %IF VAL # 0 %START O LINE 367 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x00000000 ? JUMPIF = L_0010 368 PLANT INST(ADDI+R<<8+VAL&255) O LINE 368 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTINST @ PUSH ADDI @ PUSH R N PUSHI #0x00000008 [ LSH + ADD @ PUSH VAL N PUSHI #0x000000ff & AND + ADD p ASSPAR E CALL 369 CREG = R O LINE 369 "regression-compile-tmp/hal7502.imp" @ PUSH CREG @ PUSH R S ASSVAL 370 %FINISH O LINE 370 "regression-compile-tmp/hal7502.imp" : LOCATE L_0010 371 %finish %ELSE %START O LINE 371 "regression-compile-tmp/hal7502.imp" F GOTO L_000c : LOCATE L_000d 372 OP = TREG O LINE 372 "regression-compile-tmp/hal7502.imp" @ PUSH OP @ PUSH TREG E CALL S ASSVAL 373 LOAD CONST(OP) O LINE 373 "regression-compile-tmp/hal7502.imp" @ PUSH LOADCONST @ PUSH OP p ASSPAR E CALL 374 TYPE = REG; VAL = OP O LINE 374 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH REG S ASSVAL O LINE 374 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH OP S ASSVAL 375 RELEASE O LINE 375 "regression-compile-tmp/hal7502.imp" @ PUSH RELEASE E CALL 376 PLANT INST(ADD+R<<4+OP) O LINE 376 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTINST @ PUSH ADD @ PUSH R N PUSHI #0x00000004 [ LSH + ADD @ PUSH OP + ADD p ASSPAR E CALL 377 CREG = R O LINE 377 "regression-compile-tmp/hal7502.imp" @ PUSH CREG @ PUSH R S ASSVAL 378 %FINISH O LINE 378 "regression-compile-tmp/hal7502.imp" : LOCATE L_000c 379 %FINISH O LINE 379 "regression-compile-tmp/hal7502.imp" : LOCATE L_0009 380 TYPE = TYPE&MEMMASK+XMASK+R; VAL = 0 O LINE 380 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH TYPE @ PUSH MEMMASK & AND @ PUSH XMASK + ADD @ PUSH R + ADD S ASSVAL O LINE 380 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x00000000 S ASSVAL 381 %FINISH O LINE 381 "regression-compile-tmp/hal7502.imp" : LOCATE L_0007 382 %IF TYPE&MEMMASK # 0 %START O LINE 382 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH MEMMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 383 PLANT INST(LOAD+R<<8+(TYPE&15)<<4+VAL) O LINE 383 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTINST @ PUSH LOAD @ PUSH R N PUSHI #0x00000008 [ LSH + ADD @ PUSH TYPE N PUSHI #0x0000000f & AND N PUSHI #0x00000004 [ LSH + ADD @ PUSH VAL + ADD p ASSPAR E CALL 384 CREG = -1 385 ! %FINISH -- commenting out this line allows the program to compile O LINE 384 "regression-compile-tmp/hal7502.imp" @ PUSH CREG N PUSHI #0x00000001 U NEGATE S ASSVAL 386 %finish %ELSE %START O LINE 386 "regression-compile-tmp/hal7502.imp" F GOTO L_0006 : LOCATE L_0007 387 LOAD CONST(R) O LINE 387 "regression-compile-tmp/hal7502.imp" @ PUSH LOADCONST @ PUSH R p ASSPAR E CALL 388 PLANT INST(LOAD+R<<8+R<<4) O LINE 388 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTINST @ PUSH LOAD @ PUSH R N PUSHI #0x00000008 [ LSH + ADD @ PUSH R N PUSHI #0x00000004 [ LSH + ADD p ASSPAR E CALL 389 %FINISH O LINE 389 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 390 %FINISH O LINE 390 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 391 TYPE = REG; VAL = R O LINE 391 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH REG S ASSVAL O LINE 391 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH R S ASSVAL 392 %END 393 O LINE 392 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_ASSEMBLE_LOADREG {lev=3 --> 2} 394 %ROUTINE LOAD TEMP O LINE 394 "regression-compile-tmp/hal7502.imp" $ DEF LOADTEMP (_lev0id0_ASSEMBLE_LOADTEMP) p1=V_0121 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} } FINISH ) {lev=3} 395 RELEASE O LINE 395 "regression-compile-tmp/hal7502.imp" @ PUSH RELEASE E CALL 396 LOAD REG(TREG) O LINE 396 "regression-compile-tmp/hal7502.imp" @ PUSH LOADREG @ PUSH TREG E CALL p ASSPAR E CALL 397 %END 398 O LINE 397 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_ASSEMBLE_LOADTEMP {lev=3 --> 2} 399 %ROUTINE SWOP O LINE 399 "regression-compile-tmp/hal7502.imp" $ DEF SWOP (_lev0id0_ASSEMBLE_SWOP) p1=V_0122 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} } FINISH ) {lev=3} 400 %INTEGER K O LINE 400 "regression-compile-tmp/hal7502.imp" $ DEF K p1=V_0123 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 401 K = TYPE1; TYPE1 = TYPE; TYPE = K O LINE 401 "regression-compile-tmp/hal7502.imp" @ PUSH K @ PUSH TYPE1 S ASSVAL O LINE 401 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE1 @ PUSH TYPE S ASSVAL O LINE 401 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH K S ASSVAL 402 K = VAL1; VAL1 = VAL; VAL = K O LINE 402 "regression-compile-tmp/hal7502.imp" @ PUSH K @ PUSH VAL1 S ASSVAL O LINE 402 "regression-compile-tmp/hal7502.imp" @ PUSH VAL1 @ PUSH VAL S ASSVAL O LINE 402 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH K S ASSVAL 403 %END 404 O LINE 403 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_ASSEMBLE_SWOP {lev=3 --> 2} 405 Q = QSTART O LINE 405 "regression-compile-tmp/hal7502.imp" @ PUSH Q @ PUSH QSTART S ASSVAL 406 NEW:NQ = QSTART; FREE = TEMPS O LINE 406 "regression-compile-tmp/hal7502.imp" L LABEL L_0123 O LINE 406 "regression-compile-tmp/hal7502.imp" @ PUSH NQ @ PUSH QSTART S ASSVAL O LINE 406 "regression-compile-tmp/hal7502.imp" @ PUSH FREE @ PUSH TEMPS S ASSVAL 407 TYPE = INTEGER(Q); Q = Q+1 O LINE 407 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH INTEGER @ PUSH Q p ASSPAR E CALL S ASSVAL O LINE 407 "regression-compile-tmp/hal7502.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 408 VAL = INTEGER(Q); Q = Q+1 409 O LINE 408 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH INTEGER @ PUSH Q p ASSPAR E CALL S ASSVAL O LINE 408 "regression-compile-tmp/hal7502.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 410 GET:%CYCLE O LINE 410 "regression-compile-tmp/hal7502.imp" L LABEL L_0124 O LINE 410 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 411 %RETURN %IF Q = QLIM O LINE 411 "regression-compile-tmp/hal7502.imp" @ PUSH Q @ PUSH QLIM ? JUMPIF # L_0007 R RETURN : LOCATE L_0007 412 K = INTEGER(Q); Q = Q+1 O LINE 412 "regression-compile-tmp/hal7502.imp" @ PUSH K @ PUSH INTEGER @ PUSH Q p ASSPAR E CALL S ASSVAL O LINE 412 "regression-compile-tmp/hal7502.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 413 ->ASS(K) %IF K < 0 O LINE 413 "regression-compile-tmp/hal7502.imp" @ PUSH K N PUSHI #0x00000000 ? JUMPIF >= L_0007 @ PUSH K W SJUMP 280 : LOCATE L_0007 414 INTEGER(NQ) = TYPE1; INTEGER(NQ+1) = VAL1 O LINE 414 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH NQ p ASSPAR E CALL @ PUSH TYPE1 S ASSVAL O LINE 414 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH NQ N PUSHI #0x00000001 + ADD p ASSPAR E CALL @ PUSH VAL1 S ASSVAL 415 NQ = NQ+2 O LINE 415 "regression-compile-tmp/hal7502.imp" @ PUSH NQ @ PUSH NQ N PUSHI #0x00000002 + ADD S ASSVAL 416 TYPE1 = TYPE; VAL1 = VAL O LINE 416 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE1 @ PUSH TYPE S ASSVAL O LINE 416 "regression-compile-tmp/hal7502.imp" @ PUSH VAL1 @ PUSH VAL S ASSVAL 417 TYPE = K; VAL = INTEGER(Q); Q = Q+1 O LINE 417 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH K S ASSVAL O LINE 417 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH INTEGER @ PUSH Q p ASSPAR E CALL S ASSVAL O LINE 417 "regression-compile-tmp/hal7502.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 418 %REPEAT 419 O LINE 418 "regression-compile-tmp/hal7502.imp" B REPEAT L_0003 420 %PREDICATE TEMP O LINE 420 "regression-compile-tmp/hal7502.imp" $ DEF TEMP (_lev0id0_ASSEMBLE_TEMP) p1=V_0125 a/tf=a b/format=0 c/ostate=0 type=0 () form=10 (predicate) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} } FINISH ) {lev=3} 421 %FALSE %IF TYPE1 # REG O LINE 421 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE1 @ PUSH REG ? JUMPIF = L_0004 K FALSE : LOCATE L_0004 422 %IF VAL1 = DREG %START O LINE 422 "regression-compile-tmp/hal7502.imp" @ PUSH VAL1 @ PUSH DREG ? JUMPIF # L_0004 423 %FALSE %IF DUSE # 1 O LINE 423 "regression-compile-tmp/hal7502.imp" @ PUSH DUSE N PUSHI #0x00000001 ? JUMPIF = L_0007 K FALSE : LOCATE L_0007 424 %finish %ELSE %START O LINE 424 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 425 %FALSE %IF 1< 2} 430 NOP: K = 0; !NOT SYMMETRIC O LINE 430 "regression-compile-tmp/hal7502.imp" L LABEL L_0126 O LINE 430 "regression-compile-tmp/hal7502.imp" @ PUSH K N PUSHI #0x00000000 S ASSVAL 431 BOP:%IF MODE <= 0 %OR (TYPE = 0 %AND TYPE1 = 0) %START O LINE 431 "regression-compile-tmp/hal7502.imp" L LABEL L_0127 O LINE 431 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF <= L_0005 @ PUSH TYPE N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH TYPE1 N PUSHI #0x00000000 ? JUMPIF # L_0004 : LOCATE L_0005 432 FAULT('A') %IF TYPE # 0 O LINE 432 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH FAULT N PUSHI #0x00000041 p ASSPAR E CALL : LOCATE L_0007 433 TYPE = TYPE1; VAL = LITVAL O LINE 433 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH TYPE1 S ASSVAL O LINE 433 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH LITVAL S ASSVAL 434 %finish %ELSE %START O LINE 434 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 435 %IF %NOT TEMP %OR (TYPE=REG %AND VAL=DREG %AND DUSE=1 %AND K#0) %START O LINE 435 "regression-compile-tmp/hal7502.imp" @ PUSH TEMP E CALL k bf L_0008 @ PUSH TYPE @ PUSH REG ? JUMPIF # L_0007 @ PUSH VAL @ PUSH DREG ? JUMPIF # L_0007 @ PUSH DUSE N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH K N PUSHI #0x00000000 ? JUMPIF = L_0007 : LOCATE L_0008 436 SWOP O LINE 436 "regression-compile-tmp/hal7502.imp" @ PUSH SWOP E CALL 437 %IF K = 0 %OR %NOT TEMP %START O LINE 437 "regression-compile-tmp/hal7502.imp" @ PUSH K N PUSHI #0x00000000 ? JUMPIF = L_000b @ PUSH TEMP E CALL t bt L_000a : LOCATE L_000b 438 LOAD TEMP; SWOP O LINE 438 "regression-compile-tmp/hal7502.imp" @ PUSH LOADTEMP E CALL O LINE 438 "regression-compile-tmp/hal7502.imp" @ PUSH SWOP E CALL 439 %FINISH O LINE 439 "regression-compile-tmp/hal7502.imp" : LOCATE L_000a 440 %FINISH O LINE 440 "regression-compile-tmp/hal7502.imp" : LOCATE L_0007 441 %IF OP = AND %AND TYPE = 0 %AND VAL&(\255) = 0 %START O LINE 441 "regression-compile-tmp/hal7502.imp" @ PUSH OP @ PUSH AND ? JUMPIF # L_0007 @ PUSH TYPE N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH VAL N PUSHI #0x000000ff \ NOT & AND N PUSHI #0x00000000 ? JUMPIF # L_0007 442 PLANT INST(ANDI+VAL1<<8+VAL) O LINE 442 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTINST @ PUSH ANDI @ PUSH VAL1 N PUSHI #0x00000008 [ LSH + ADD @ PUSH VAL + ADD p ASSPAR E CALL 443 %finish %ELSE %START O LINE 443 "regression-compile-tmp/hal7502.imp" F GOTO L_0006 : LOCATE L_0007 444 LOAD TEMP %IF TYPE # REG O LINE 444 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH REG ? JUMPIF = L_000a @ PUSH LOADTEMP E CALL : LOCATE L_000a 445 RELEASE O LINE 445 "regression-compile-tmp/hal7502.imp" @ PUSH RELEASE E CALL 446 PLANT INST(OP+VAL1<<4+VAL) O LINE 446 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTINST @ PUSH OP @ PUSH VAL1 N PUSHI #0x00000004 [ LSH + ADD @ PUSH VAL + ADD p ASSPAR E CALL 447 %FINISH O LINE 447 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 448 TYPE = REG; VAL = VAL1 O LINE 448 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH REG S ASSVAL O LINE 448 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH VAL1 S ASSVAL 449 CREG = VAL O LINE 449 "regression-compile-tmp/hal7502.imp" @ PUSH CREG @ PUSH VAL S ASSVAL 450 ATYPE = -1 %IF ACC = VAL O LINE 450 "regression-compile-tmp/hal7502.imp" @ PUSH ACC @ PUSH VAL ? JUMPIF # L_0007 @ PUSH ATYPE N PUSHI #0x00000001 U NEGATE S ASSVAL : LOCATE L_0007 451 ATYPE = -1 %IF ATYPE&XMASK # 0 %AND ATYPE&15 = VAL O LINE 451 "regression-compile-tmp/hal7502.imp" @ PUSH ATYPE @ PUSH XMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH ATYPE N PUSHI #0x0000000f & AND @ PUSH VAL ? JUMPIF # L_0007 @ PUSH ATYPE N PUSHI #0x00000001 U NEGATE S ASSVAL : LOCATE L_0007 452 ATYPE = -1 %IF ATYPE = REG %AND AVAL = VAL O LINE 452 "regression-compile-tmp/hal7502.imp" @ PUSH ATYPE @ PUSH REG ? JUMPIF # L_0007 @ PUSH AVAL @ PUSH VAL ? JUMPIF # L_0007 @ PUSH ATYPE N PUSHI #0x00000001 U NEGATE S ASSVAL : LOCATE L_0007 453 %FINISH 454 O LINE 453 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 455 POP:NQ = NQ-2 O LINE 455 "regression-compile-tmp/hal7502.imp" L LABEL L_0128 O LINE 455 "regression-compile-tmp/hal7502.imp" @ PUSH NQ @ PUSH NQ N PUSHI #0x00000002 - SUB S ASSVAL 456 TYPE1 = INTEGER(NQ); VAL1 = INTEGER(NQ+1) O LINE 456 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE1 @ PUSH INTEGER @ PUSH NQ p ASSPAR E CALL S ASSVAL O LINE 456 "regression-compile-tmp/hal7502.imp" @ PUSH VAL1 @ PUSH INTEGER @ PUSH NQ N PUSHI #0x00000001 + ADD p ASSPAR E CALL S ASSVAL 457 ->GET 458 O LINE 457 "regression-compile-tmp/hal7502.imp" J JUMP L_0124 459 ASS(-2): O LINE 459 "regression-compile-tmp/hal7502.imp" N PUSHI #0xfffffffe _ SLABEL 280 460 OP = SUB O LINE 460 "regression-compile-tmp/hal7502.imp" @ PUSH OP @ PUSH SUB S ASSVAL 461 ->NOP %IF MODE > 0 %AND TYPE # 0 O LINE 461 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF <= L_0004 @ PUSH TYPE N PUSHI #0x00000000 ? JUMPIF = L_0004 J JUMP L_0126 : LOCATE L_0004 462 TYPE1 = 0 %AND TYPE = 0 %IF MODE <= 0 %AND TYPE1 = TYPE O LINE 462 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF > L_0004 @ PUSH TYPE1 @ PUSH TYPE ? JUMPIF # L_0004 @ PUSH TYPE1 N PUSHI #0x00000000 S ASSVAL @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL : LOCATE L_0004 463 VAL = -VAL O LINE 463 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH VAL U NEGATE S ASSVAL 464 ASS(-1): O LINE 464 "regression-compile-tmp/hal7502.imp" N PUSHI #0xffffffff _ SLABEL 280 465 OP = ADD; LITVAL = VAL1+VAL O LINE 465 "regression-compile-tmp/hal7502.imp" @ PUSH OP @ PUSH ADD S ASSVAL O LINE 465 "regression-compile-tmp/hal7502.imp" @ PUSH LITVAL @ PUSH VAL1 @ PUSH VAL + ADD S ASSVAL 466 ->BOP %UNLESS TYPE = 0 O LINE 466 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x00000000 ? JUMPIF = L_0004 J JUMP L_0127 : LOCATE L_0004 467 %IF TYPE1&MEMMASK # 0 %AND MODE > 0 %START O LINE 467 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE1 @ PUSH MEMMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF <= L_0004 468 SWOP; LOAD TEMP; SWOP O LINE 468 "regression-compile-tmp/hal7502.imp" @ PUSH SWOP E CALL O LINE 468 "regression-compile-tmp/hal7502.imp" @ PUSH LOADTEMP E CALL O LINE 468 "regression-compile-tmp/hal7502.imp" @ PUSH SWOP E CALL 469 %FINISH O LINE 469 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 470 %IF TYPE1 = REG %AND %NOT TYPE=VAL=0 %START O LINE 470 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE1 @ PUSH REG ? JUMPIF # L_0004 @ PUSH TYPE @ PUSH VAL " JUMPIFD # L_0005 N PUSHI #0x00000000 ? JUMPIF = L_0004 : LOCATE L_0005 471 TYPE1 = XMASK+VAL1; LITVAL = VAL O LINE 471 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE1 @ PUSH XMASK @ PUSH VAL1 + ADD S ASSVAL O LINE 471 "regression-compile-tmp/hal7502.imp" @ PUSH LITVAL @ PUSH VAL S ASSVAL 472 %FINISH O LINE 472 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 473 TYPE = TYPE1; VAL = LITVAL O LINE 473 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH TYPE1 S ASSVAL O LINE 473 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH LITVAL S ASSVAL 474 ->POP O LINE 474 "regression-compile-tmp/hal7502.imp" J JUMP L_0128 475 ASS(-6): O LINE 475 "regression-compile-tmp/hal7502.imp" N PUSHI #0xfffffffa _ SLABEL 280 476 LITVAL = VAL1<AS7 O LINE 478 "regression-compile-tmp/hal7502.imp" J JUMP L_0129 479 ASS(-7): O LINE 479 "regression-compile-tmp/hal7502.imp" N PUSHI #0xfffffff9 _ SLABEL 280 480 LITVAL = VAL1>>VAL; K = (16_FFFF)>>VAL O LINE 480 "regression-compile-tmp/hal7502.imp" @ PUSH LITVAL @ PUSH VAL1 @ PUSH VAL ] RSH S ASSVAL O LINE 480 "regression-compile-tmp/hal7502.imp" @ PUSH K N PUSHI #0x0000ffff @ PUSH VAL ] RSH S ASSVAL 481 AS7:K=0 %AND ->BOP %IF MODE <= 0 O LINE 481 "regression-compile-tmp/hal7502.imp" L LABEL L_0129 O LINE 481 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF > L_0004 @ PUSH K N PUSHI #0x00000000 S ASSVAL J JUMP L_0127 : LOCATE L_0004 482 FAULT('I') %IF TYPE # 0 %OR VAL&(\15) # 0 O LINE 482 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x00000000 ? JUMPIF # L_0005 @ PUSH VAL N PUSHI #0x0000000f \ NOT & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 : LOCATE L_0005 @ PUSH FAULT N PUSHI #0x00000049 p ASSPAR E CALL : LOCATE L_0004 483 %IF %NOT TEMP %START O LINE 483 "regression-compile-tmp/hal7502.imp" @ PUSH TEMP E CALL t bt L_0004 484 SWOP; LOAD TEMP; SWOP O LINE 484 "regression-compile-tmp/hal7502.imp" @ PUSH SWOP E CALL O LINE 484 "regression-compile-tmp/hal7502.imp" @ PUSH LOADTEMP E CALL O LINE 484 "regression-compile-tmp/hal7502.imp" @ PUSH SWOP E CALL 485 %FINISH O LINE 485 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 486 OP = ROT+VAL1<<8+VAL1 O LINE 486 "regression-compile-tmp/hal7502.imp" @ PUSH OP @ PUSH ROT @ PUSH VAL1 N PUSHI #0x00000008 [ LSH + ADD @ PUSH VAL1 + ADD S ASSVAL 487 PLANT INST(OP+16_0070) %IF VAL > 8 O LINE 487 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x00000008 ? JUMPIF <= L_0004 @ PUSH PLANTINST @ PUSH OP N PUSHI #0x00000070 + ADD p ASSPAR E CALL : LOCATE L_0004 488 PLANT INST(OP+(VAL-1)<<4) %IF VAL # 0 O LINE 488 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH PLANTINST @ PUSH OP @ PUSH VAL N PUSHI #0x00000001 - SUB N PUSHI #0x00000004 [ LSH + ADD p ASSPAR E CALL : LOCATE L_0004 489 TYPE = 0; VAL = K; K = -3 O LINE 489 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL O LINE 489 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH K S ASSVAL O LINE 489 "regression-compile-tmp/hal7502.imp" @ PUSH K N PUSHI #0x00000003 U NEGATE S ASSVAL 490 ASS(-3): O LINE 490 "regression-compile-tmp/hal7502.imp" N PUSHI #0xfffffffd _ SLABEL 280 491 OP = AND; LITVAL = VAL1&VAL O LINE 491 "regression-compile-tmp/hal7502.imp" @ PUSH OP @ PUSH AND S ASSVAL O LINE 491 "regression-compile-tmp/hal7502.imp" @ PUSH LITVAL @ PUSH VAL1 @ PUSH VAL & AND S ASSVAL 492 ->BOP O LINE 492 "regression-compile-tmp/hal7502.imp" J JUMP L_0127 493 ASS(-4): O LINE 493 "regression-compile-tmp/hal7502.imp" N PUSHI #0xfffffffc _ SLABEL 280 494 OP = OR; LITVAL = VAL1!VAL O LINE 494 "regression-compile-tmp/hal7502.imp" @ PUSH OP @ PUSH OR S ASSVAL O LINE 494 "regression-compile-tmp/hal7502.imp" @ PUSH LITVAL @ PUSH VAL1 @ PUSH VAL ! OR S ASSVAL 495 ->BOP O LINE 495 "regression-compile-tmp/hal7502.imp" J JUMP L_0127 496 ASS(-5): O LINE 496 "regression-compile-tmp/hal7502.imp" N PUSHI #0xfffffffb _ SLABEL 280 497 OP = XOR; LITVAL = VAL1!!VAL O LINE 497 "regression-compile-tmp/hal7502.imp" @ PUSH OP @ PUSH XOR S ASSVAL O LINE 497 "regression-compile-tmp/hal7502.imp" @ PUSH LITVAL @ PUSH VAL1 @ PUSH VAL % XOR S ASSVAL 498 ->BOP 499 O LINE 498 "regression-compile-tmp/hal7502.imp" J JUMP L_0127 500 ASS(-8): !TYPE_VAL O LINE 500 "regression-compile-tmp/hal7502.imp" N PUSHI #0xfffffff8 _ SLABEL 280 501 TYPE = VAL1 O LINE 501 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH VAL1 S ASSVAL 502 TYPE = 0 %IF TYPE&OPMASK = MACRO; !SAFETY O LINE 502 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH OPMASK & AND @ PUSH MACRO ? JUMPIF # L_0004 @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL : LOCATE L_0004 503 TYPE = 0 %IF TYPE&(OPMASK+FMASK) = FMASK O LINE 503 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH OPMASK @ PUSH FMASK + ADD & AND @ PUSH FMASK ? JUMPIF # L_0004 @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL : LOCATE L_0004 504 ->POP 505 O LINE 504 "regression-compile-tmp/hal7502.imp" J JUMP L_0128 506 ASS(-11): !COMPARE O LINE 506 "regression-compile-tmp/hal7502.imp" N PUSHI #0xfffffff5 _ SLABEL 280 507 K = INTEGER(Q); Q = Q+1 O LINE 507 "regression-compile-tmp/hal7502.imp" @ PUSH K @ PUSH INTEGER @ PUSH Q p ASSPAR E CALL S ASSVAL O LINE 507 "regression-compile-tmp/hal7502.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 508 %IF MODE <= 0 %START O LINE 508 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF > L_0004 509 LITVAL = 2_01011000 O LINE 509 "regression-compile-tmp/hal7502.imp" @ PUSH LITVAL N PUSHI #0x00000058 S ASSVAL 510 LITVAL = 2_01100100 %IF VAL < 0 O LINE 510 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x00000000 ? JUMPIF >= L_0007 @ PUSH LITVAL N PUSHI #0x00000064 S ASSVAL : LOCATE L_0007 511 LITVAL = 2_10101000 %IF VAL1 > VAL O LINE 511 "regression-compile-tmp/hal7502.imp" @ PUSH VAL1 @ PUSH VAL ? JUMPIF <= L_0007 @ PUSH LITVAL N PUSHI #0x000000a8 S ASSVAL : LOCATE L_0007 512 K = LITVAL>>K&1; O LINE 512 "regression-compile-tmp/hal7502.imp" @ PUSH K @ PUSH LITVAL @ PUSH K ] RSH N PUSHI #0x00000001 & AND S ASSVAL 513 %finish %ELSE %START O LINE 513 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 514 %UNLESS K&6=4 %AND -256= L_0008 N PUSHI #0x00000000 ? JUMPIF >= L_0008 @ PUSH TYPE @ PUSH XMASK & AND N PUSHI #0x00000000 ? JUMPIF # L_0007 : LOCATE L_0008 515 LOAD TEMP %IF TYPE # REG O LINE 515 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH REG ? JUMPIF = L_000a @ PUSH LOADTEMP E CALL : LOCATE L_000a 516 PLANT INST(COPY+VAL<<4+VAL) %IF CREG # VAL O LINE 516 "regression-compile-tmp/hal7502.imp" @ PUSH CREG @ PUSH VAL ? JUMPIF = L_000a @ PUSH PLANTINST @ PUSH COPY @ PUSH VAL N PUSHI #0x00000004 [ LSH + ADD @ PUSH VAL + ADD p ASSPAR E CALL : LOCATE L_000a 517 CREG = VAL O LINE 517 "regression-compile-tmp/hal7502.imp" @ PUSH CREG @ PUSH VAL S ASSVAL 518 %finish %ELSE %START O LINE 518 "regression-compile-tmp/hal7502.imp" F GOTO L_0006 : LOCATE L_0007 519 PLANT INST(SKIDI+(TYPE&15)<<8-VAL) O LINE 519 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTINST @ PUSH SKIDI @ PUSH TYPE N PUSHI #0x0000000f & AND N PUSHI #0x00000008 [ LSH + ADD @ PUSH VAL - SUB p ASSPAR E CALL 520 K = K+4; !8,9 O LINE 520 "regression-compile-tmp/hal7502.imp" @ PUSH K @ PUSH K N PUSHI #0x00000004 + ADD S ASSVAL 521 %FINISH O LINE 521 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 522 %FINISH O LINE 522 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 523 COND = K O LINE 523 "regression-compile-tmp/hal7502.imp" @ PUSH COND @ PUSH K S ASSVAL 524 ->GET 525 O LINE 524 "regression-compile-tmp/hal7502.imp" J JUMP L_0124 526 ASS(-12): !TEST CC O LINE 526 "regression-compile-tmp/hal7502.imp" N PUSHI #0xfffffff4 _ SLABEL 280 527 COND = VAL!!1 O LINE 527 "regression-compile-tmp/hal7502.imp" @ PUSH COND @ PUSH VAL N PUSHI #0x00000001 % XOR S ASSVAL 528 ->GET 529 O LINE 528 "regression-compile-tmp/hal7502.imp" J JUMP L_0124 530 ASS(-13): !AND O LINE 530 "regression-compile-tmp/hal7502.imp" N PUSHI #0xfffffff3 _ SLABEL 280 531 %IF MODE > 0 %START O LINE 531 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF <= L_0004 532 SET JUMP(16_1000) O LINE 532 "regression-compile-tmp/hal7502.imp" @ PUSH SETJUMP N PUSHI #0x00001000 p ASSPAR E CALL 533 %finish %ELSE %START O LINE 533 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 534 %RETURN %IF COND = 0 O LINE 534 "regression-compile-tmp/hal7502.imp" @ PUSH COND N PUSHI #0x00000000 ? JUMPIF # L_0007 R RETURN : LOCATE L_0007 535 %FINISH O LINE 535 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 536 %RETURN %IF Q = QLIM O LINE 536 "regression-compile-tmp/hal7502.imp" @ PUSH Q @ PUSH QLIM ? JUMPIF # L_0004 R RETURN : LOCATE L_0004 537 ->NEW 538 O LINE 537 "regression-compile-tmp/hal7502.imp" J JUMP L_0123 539 ASS(-14): !OR O LINE 539 "regression-compile-tmp/hal7502.imp" N PUSHI #0xfffffff2 _ SLABEL 280 540 %IF MODE > 0 %START O LINE 540 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF <= L_0004 541 COND = COND!!1 O LINE 541 "regression-compile-tmp/hal7502.imp" @ PUSH COND @ PUSH COND N PUSHI #0x00000001 % XOR S ASSVAL 542 SET JUMP(16_3000) O LINE 542 "regression-compile-tmp/hal7502.imp" @ PUSH SETJUMP N PUSHI #0x00003000 p ASSPAR E CALL 543 %finish %ELSE %START O LINE 543 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 544 %RETURN %IF COND # 0 O LINE 544 "regression-compile-tmp/hal7502.imp" @ PUSH COND N PUSHI #0x00000000 ? JUMPIF = L_0007 R RETURN : LOCATE L_0007 545 %FINISH O LINE 545 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 546 ->NEW 547 O LINE 546 "regression-compile-tmp/hal7502.imp" J JUMP L_0123 548 ASS(-15): !IF O LINE 548 "regression-compile-tmp/hal7502.imp" N PUSHI #0xfffffff1 _ SLABEL 280 549 SET JUMP(16_2000) O LINE 549 "regression-compile-tmp/hal7502.imp" @ PUSH SETJUMP N PUSHI #0x00002000 p ASSPAR E CALL 550 %RETURN 551 O LINE 550 "regression-compile-tmp/hal7502.imp" R RETURN 552 ASS(-16): !ELSE O LINE 552 "regression-compile-tmp/hal7502.imp" N PUSHI #0xfffffff0 _ SLABEL 280 553 COND = 1 O LINE 553 "regression-compile-tmp/hal7502.imp" @ PUSH COND N PUSHI #0x00000001 S ASSVAL 554 SET JUMP(16_4000) O LINE 554 "regression-compile-tmp/hal7502.imp" @ PUSH SETJUMP N PUSHI #0x00004000 p ASSPAR E CALL 555 %RETURN 556 O LINE 555 "regression-compile-tmp/hal7502.imp" R RETURN 557 ASS(-17): !IF AFTER ELSE O LINE 557 "regression-compile-tmp/hal7502.imp" N PUSHI #0xffffffef _ SLABEL 280 558 SET JUMP(16_6000) O LINE 558 "regression-compile-tmp/hal7502.imp" @ PUSH SETJUMP N PUSHI #0x00006000 p ASSPAR E CALL 559 %RETURN 560 O LINE 559 "regression-compile-tmp/hal7502.imp" R RETURN 561 ASS(-18): !MACCALL IF O LINE 561 "regression-compile-tmp/hal7502.imp" N PUSHI #0xffffffee _ SLABEL 280 562 SET JUMP(16_8000) O LINE 562 "regression-compile-tmp/hal7502.imp" @ PUSH SETJUMP N PUSHI #0x00008000 p ASSPAR E CALL 563 %RETURN 564 O LINE 563 "regression-compile-tmp/hal7502.imp" R RETURN 565 ASS(-20): !HASH O LINE 565 "regression-compile-tmp/hal7502.imp" N PUSHI #0xffffffec _ SLABEL 280 566 TYPE = TYPE&(UMASK+63) O LINE 566 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH TYPE @ PUSH UMASK N PUSHI #0x0000003f + ADD & AND S ASSVAL 567 ->GET 568 O LINE 567 "regression-compile-tmp/hal7502.imp" J JUMP L_0124 569 ASS(-21): !INDEX O LINE 569 "regression-compile-tmp/hal7502.imp" N PUSHI #0xffffffeb _ SLABEL 280 570 FAULT('I') %IF TYPE1®XMASK # 0 O LINE 570 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE1 @ PUSH REGXMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH FAULT N PUSHI #0x00000049 p ASSPAR E CALL : LOCATE L_0004 571 %IF TYPE&MEMMASK # 0 %START O LINE 571 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH MEMMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 572 %IF MODE > 0 %THEN LOAD TEMP %ELSE FAULT('A') O LINE 572 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF <= L_0007 @ PUSH LOADTEMP E CALL F GOTO L_0006 : LOCATE L_0007 @ PUSH FAULT N PUSHI #0x00000041 p ASSPAR E CALL : LOCATE L_0006 573 %FINISH O LINE 573 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 574 %IF TYPE = REG %START O LINE 574 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH REG ? JUMPIF # L_0004 575 TYPE = XMASK+VAL; VAL = 0 O LINE 575 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH XMASK @ PUSH VAL + ADD S ASSVAL O LINE 575 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x00000000 S ASSVAL 576 %FINISH O LINE 576 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 577 FAULT('I') %IF TYPE1&TYPE&RELMASK # 0 O LINE 577 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE1 @ PUSH TYPE & AND @ PUSH RELMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH FAULT N PUSHI #0x00000049 p ASSPAR E CALL : LOCATE L_0004 578 TYPE = TYPE1!TYPE!MEMMASK; VAL = VAL1+VAL O LINE 578 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH TYPE1 @ PUSH TYPE ! OR @ PUSH MEMMASK ! OR S ASSVAL O LINE 578 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH VAL1 @ PUSH VAL + ADD S ASSVAL 579 ->POP 580 O LINE 579 "regression-compile-tmp/hal7502.imp" J JUMP L_0128 581 ASS(-22): !MINST SEPARATOR O LINE 581 "regression-compile-tmp/hal7502.imp" N PUSHI #0xffffffea _ SLABEL 280 582 COMBINE O LINE 582 "regression-compile-tmp/hal7502.imp" @ PUSH COMBINE E CALL 583 ->POP 584 O LINE 583 "regression-compile-tmp/hal7502.imp" J JUMP L_0128 585 ASS(-23): !PLANT INST O LINE 585 "regression-compile-tmp/hal7502.imp" N PUSHI #0xffffffe9 _ SLABEL 280 586 MODE = 1 O LINE 586 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000001 S ASSVAL 587 PLANT INST(VAL) O LINE 587 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTINST @ PUSH VAL p ASSPAR E CALL 588 CREG = -1; ATYPE = -1 O LINE 588 "regression-compile-tmp/hal7502.imp" @ PUSH CREG N PUSHI #0x00000001 U NEGATE S ASSVAL O LINE 588 "regression-compile-tmp/hal7502.imp" @ PUSH ATYPE N PUSHI #0x00000001 U NEGATE S ASSVAL 589 %RETURN 590 O LINE 589 "regression-compile-tmp/hal7502.imp" R RETURN 591 ASS(-24): !LOAD O LINE 591 "regression-compile-tmp/hal7502.imp" N PUSHI #0xffffffe8 _ SLABEL 280 592 LOAD TEMP %IF TYPE # REG O LINE 592 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH REG ? JUMPIF = L_0004 @ PUSH LOADTEMP E CALL : LOCATE L_0004 593 Q = QBASE O LINE 593 "regression-compile-tmp/hal7502.imp" @ PUSH Q @ PUSH QBASE S ASSVAL 594 ->GET 595 O LINE 594 "regression-compile-tmp/hal7502.imp" J JUMP L_0124 596 ASS(-25): !STORE (TYPE1,VAL1 -> TYPE,VAL) O LINE 596 "regression-compile-tmp/hal7502.imp" N PUSHI #0xffffffe7 _ SLABEL 280 597 %IF TYPE = REG %START O LINE 597 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH REG ? JUMPIF # L_0004 598 SWOP %AND LOAD REG(VAL1) %IF VAL1 # VAL O LINE 598 "regression-compile-tmp/hal7502.imp" @ PUSH VAL1 @ PUSH VAL ? JUMPIF = L_0007 @ PUSH SWOP E CALL @ PUSH LOADREG @ PUSH VAL1 p ASSPAR E CALL : LOCATE L_0007 599 %finish %ELSE %START O LINE 599 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 600 ATYPE = -1 %IF ATYPE&MEMMASK # 0 O LINE 600 "regression-compile-tmp/hal7502.imp" @ PUSH ATYPE @ PUSH MEMMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH ATYPE N PUSHI #0x00000001 U NEGATE S ASSVAL : LOCATE L_0007 601 %IF VAL1 = ACC %AND ATYPE < 0 %START O LINE 601 "regression-compile-tmp/hal7502.imp" @ PUSH VAL1 @ PUSH ACC ? JUMPIF # L_0007 @ PUSH ATYPE N PUSHI #0x00000000 ? JUMPIF >= L_0007 602 K = TYPE&15 O LINE 602 "regression-compile-tmp/hal7502.imp" @ PUSH K @ PUSH TYPE N PUSHI #0x0000000f & AND S ASSVAL 603 ATYPE = TYPE %AND AVAL = VAL %IF TYPE&XMASK = 0 %OR 1< 1} 632 %ROUTINE GET SYM O LINE 632 "regression-compile-tmp/hal7502.imp" $ DEF GETSYM (_lev0id0_GETSYM) p1=V_00fd a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 633 %CYCLE O LINE 633 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 634 SYM = CHAR(GETPOS); GETPOS = GETPOS+1 O LINE 634 "regression-compile-tmp/hal7502.imp" @ PUSH SYM @ PUSH CHAR @ PUSH GETPOS p ASSPAR E CALL S ASSVAL O LINE 634 "regression-compile-tmp/hal7502.imp" @ PUSH GETPOS @ PUSH GETPOS N PUSHI #0x00000001 + ADD S ASSVAL 635 %RETURN %IF SYM # ' ' O LINE 635 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x00000020 ? JUMPIF = L_0007 R RETURN : LOCATE L_0007 636 %REPEAT O LINE 636 "regression-compile-tmp/hal7502.imp" B REPEAT L_0003 637 %END 638 O LINE 637 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_GETSYM {lev=2 --> 1} 639 %PREDICATE S(%INTEGER K) O LINE 639 "regression-compile-tmp/hal7502.imp" $ DEF S (_lev0id0_S) p1=V_00fe a/tf=a b/format=0 c/ostate=0 type=0 () form=10 (predicate) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF K p1=V_00ff a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 640 %FALSE %UNLESS K = SYM O LINE 640 "regression-compile-tmp/hal7502.imp" @ PUSH K @ PUSH SYM ? JUMPIF = L_0004 K FALSE : LOCATE L_0004 641 GET SYM O LINE 641 "regression-compile-tmp/hal7502.imp" @ PUSH GETSYM E CALL 642 %TRUE O LINE 642 "regression-compile-tmp/hal7502.imp" T TRUE 643 %END 644 O LINE 643 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_S {lev=2 --> 1} 645 %PREDICATE SS(%INTEGER K) O LINE 645 "regression-compile-tmp/hal7502.imp" $ DEF SS (_lev0id0_SS) p1=V_00ff a/tf=a b/format=0 c/ostate=0 type=0 () form=10 (predicate) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF K p1=V_0100 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 646 %FALSE %UNLESS K = SYM = CHAR(GETPOS) O LINE 646 "regression-compile-tmp/hal7502.imp" @ PUSH K @ PUSH SYM " JUMPIFD # L_0005 @ PUSH CHAR @ PUSH GETPOS p ASSPAR E CALL ? JUMPIF = L_0004 : LOCATE L_0005 K FALSE : LOCATE L_0004 647 GETPOS = GETPOS+1 O LINE 647 "regression-compile-tmp/hal7502.imp" @ PUSH GETPOS @ PUSH GETPOS N PUSHI #0x00000001 + ADD S ASSVAL 648 GET SYM O LINE 648 "regression-compile-tmp/hal7502.imp" @ PUSH GETSYM E CALL 649 %TRUE O LINE 649 "regression-compile-tmp/hal7502.imp" T TRUE 650 %END 651 O LINE 650 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_SS {lev=2 --> 1} 652 %PREDICATE TAG O LINE 652 "regression-compile-tmp/hal7502.imp" $ DEF TAG (_lev0id0_TAG) p1=V_0100 a/tf=a b/format=0 c/ostate=0 type=0 () form=10 (predicate) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 653 %INTEGER J,K O LINE 653 "regression-compile-tmp/hal7502.imp" $ DEF J p1=V_0101 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF K p1=V_0102 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 654 %ROUTINE CODE SYM O LINE 654 "regression-compile-tmp/hal7502.imp" $ DEF CODESYM (_lev0id0_TAG_CODESYM) p1=V_0103 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} } FINISH ) {lev=3} 655 SYM = CHAR(GETPOS); GETPOS = GETPOS+1 O LINE 655 "regression-compile-tmp/hal7502.imp" @ PUSH SYM @ PUSH CHAR @ PUSH GETPOS p ASSPAR E CALL S ASSVAL O LINE 655 "regression-compile-tmp/hal7502.imp" @ PUSH GETPOS @ PUSH GETPOS N PUSHI #0x00000001 + ADD S ASSVAL 656 K = SYM-'0' O LINE 656 "regression-compile-tmp/hal7502.imp" @ PUSH K @ PUSH SYM N PUSHI #0x00000030 - SUB S ASSVAL 657 %IF K >= 0 %START O LINE 657 "regression-compile-tmp/hal7502.imp" @ PUSH K N PUSHI #0x00000000 ? JUMPIF < L_0004 658 TERM = -1 %AND %RETURN %IF K < 10 O LINE 658 "regression-compile-tmp/hal7502.imp" @ PUSH K N PUSHI #0x0000000a ? JUMPIF >= L_0007 @ PUSH TERM N PUSHI #0x00000001 U NEGATE S ASSVAL R RETURN : LOCATE L_0007 659 K = SYM-'A' O LINE 659 "regression-compile-tmp/hal7502.imp" @ PUSH K @ PUSH SYM N PUSHI #0x00000041 - SUB S ASSVAL 660 %RETURN %IF K >= 0 %AND K < 26 %AND TERM = 0 O LINE 660 "regression-compile-tmp/hal7502.imp" @ PUSH K N PUSHI #0x00000000 ? JUMPIF < L_0007 @ PUSH K N PUSHI #0x0000001a ? JUMPIF >= L_0007 @ PUSH TERM N PUSHI #0x00000000 ? JUMPIF # L_0007 R RETURN : LOCATE L_0007 661 %FINISH O LINE 661 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 662 TERM = SYM O LINE 662 "regression-compile-tmp/hal7502.imp" @ PUSH TERM @ PUSH SYM S ASSVAL 663 %END O LINE 663 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_TAG_CODESYM {lev=3 --> 2} 664 %ROUTINE PACK TRIPLE O LINE 664 "regression-compile-tmp/hal7502.imp" $ DEF PACKTRIPLE (_lev0id0_TAG_PACKTRIPLE) p1=V_0104 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} } FINISH ) {lev=3} 665 ->T1 %IF TERM < 0 O LINE 665 "regression-compile-tmp/hal7502.imp" @ PUSH TERM N PUSHI #0x00000000 ? JUMPIF >= L_0004 J JUMP L_0105 : LOCATE L_0004 666 J = ((K<<5+K)<<1+K)<<4+K+1111; !K*1073+1111 O LINE 666 "regression-compile-tmp/hal7502.imp" @ PUSH J @ PUSH K N PUSHI #0x00000005 [ LSH @ PUSH K + ADD N PUSHI #0x00000001 [ LSH @ PUSH K + ADD N PUSHI #0x00000004 [ LSH @ PUSH K + ADD N PUSHI #0x00000457 + ADD S ASSVAL 667 CODE SYM O LINE 667 "regression-compile-tmp/hal7502.imp" @ PUSH CODESYM E CALL 668 ->T2 %IF TERM # 0 O LINE 668 "regression-compile-tmp/hal7502.imp" @ PUSH TERM N PUSHI #0x00000000 ? JUMPIF = L_0004 J JUMP L_0106 : LOCATE L_0004 669 J = (K<<3+K)<<2+K+111+J; !J+K*37+111 O LINE 669 "regression-compile-tmp/hal7502.imp" @ PUSH J @ PUSH K N PUSHI #0x00000003 [ LSH @ PUSH K + ADD N PUSHI #0x00000002 [ LSH @ PUSH K + ADD N PUSHI #0x0000006f + ADD @ PUSH J + ADD S ASSVAL 670 CODE SYM O LINE 670 "regression-compile-tmp/hal7502.imp" @ PUSH CODESYM E CALL 671 ->T3 %IF TERM # 0 O LINE 671 "regression-compile-tmp/hal7502.imp" @ PUSH TERM N PUSHI #0x00000000 ? JUMPIF = L_0004 J JUMP L_0107 : LOCATE L_0004 672 J = J+K+11 O LINE 672 "regression-compile-tmp/hal7502.imp" @ PUSH J @ PUSH J @ PUSH K + ADD N PUSHI #0x0000000b + ADD S ASSVAL 673 CODE SYM O LINE 673 "regression-compile-tmp/hal7502.imp" @ PUSH CODESYM E CALL 674 %RETURN O LINE 674 "regression-compile-tmp/hal7502.imp" R RETURN 675 T1: J = ((K<<1+K)<<1+K)<<4-K+1; !K*111+1 O LINE 675 "regression-compile-tmp/hal7502.imp" L LABEL L_0105 O LINE 675 "regression-compile-tmp/hal7502.imp" @ PUSH J @ PUSH K N PUSHI #0x00000001 [ LSH @ PUSH K + ADD N PUSHI #0x00000001 [ LSH @ PUSH K + ADD N PUSHI #0x00000004 [ LSH @ PUSH K - SUB N PUSHI #0x00000001 + ADD S ASSVAL 676 CODE SYM O LINE 676 "regression-compile-tmp/hal7502.imp" @ PUSH CODESYM E CALL 677 T2: %RETURN %IF TERM > 0 O LINE 677 "regression-compile-tmp/hal7502.imp" L LABEL L_0106 O LINE 677 "regression-compile-tmp/hal7502.imp" @ PUSH TERM N PUSHI #0x00000000 ? JUMPIF <= L_0004 R RETURN : LOCATE L_0004 678 J = (K<<2+K)<<1+K+1+J; !J+K*11+1 O LINE 678 "regression-compile-tmp/hal7502.imp" @ PUSH J @ PUSH K N PUSHI #0x00000002 [ LSH @ PUSH K + ADD N PUSHI #0x00000001 [ LSH @ PUSH K + ADD N PUSHI #0x00000001 + ADD @ PUSH J + ADD S ASSVAL 679 CODE SYM O LINE 679 "regression-compile-tmp/hal7502.imp" @ PUSH CODESYM E CALL 680 T3: %RETURN %IF TERM > 0 O LINE 680 "regression-compile-tmp/hal7502.imp" L LABEL L_0107 O LINE 680 "regression-compile-tmp/hal7502.imp" @ PUSH TERM N PUSHI #0x00000000 ? JUMPIF <= L_0004 R RETURN : LOCATE L_0004 681 J = J+K+1 O LINE 681 "regression-compile-tmp/hal7502.imp" @ PUSH J @ PUSH J @ PUSH K + ADD N PUSHI #0x00000001 + ADD S ASSVAL 682 CODE SYM O LINE 682 "regression-compile-tmp/hal7502.imp" @ PUSH CODESYM E CALL 683 %END O LINE 683 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_TAG_PACKTRIPLE {lev=3 --> 2} 684 K = SYM-'A' O LINE 684 "regression-compile-tmp/hal7502.imp" @ PUSH K @ PUSH SYM N PUSHI #0x00000041 - SUB S ASSVAL 685 %FALSE %UNLESS K >= 0 %AND K < 26 O LINE 685 "regression-compile-tmp/hal7502.imp" @ PUSH K N PUSHI #0x00000000 ? JUMPIF < L_0005 @ PUSH K N PUSHI #0x0000001a ? JUMPIF < L_0004 : LOCATE L_0005 K FALSE : LOCATE L_0004 686 %FALSE %IF SYM = 'X' %AND CHAR(GETPOS)&128 # 0 O LINE 686 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x00000058 ? JUMPIF # L_0004 @ PUSH CHAR @ PUSH GETPOS p ASSPAR E CALL N PUSHI #0x00000080 & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 K FALSE : LOCATE L_0004 687 TERM = 0 O LINE 687 "regression-compile-tmp/hal7502.imp" @ PUSH TERM N PUSHI #0x00000000 S ASSVAL 688 PACK TRIPLE O LINE 688 "regression-compile-tmp/hal7502.imp" @ PUSH PACKTRIPLE E CALL 689 TAG1 = J; J = 0 O LINE 689 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 @ PUSH J S ASSVAL O LINE 689 "regression-compile-tmp/hal7502.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 690 PACK TRIPLE %IF TERM <= 0 O LINE 690 "regression-compile-tmp/hal7502.imp" @ PUSH TERM N PUSHI #0x00000000 ? JUMPIF > L_0004 @ PUSH PACKTRIPLE E CALL : LOCATE L_0004 691 TAG2 = J O LINE 691 "regression-compile-tmp/hal7502.imp" @ PUSH TAG2 @ PUSH J S ASSVAL 692 CODE SYM %WHILE TERM <= 0 O LINE 692 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 @ PUSH TERM N PUSHI #0x00000000 ? JUMPIF > L_0004 @ PUSH CODESYM E CALL B REPEAT L_0003 : LOCATE L_0004 693 GET SYM %IF TERM = ' ' O LINE 693 "regression-compile-tmp/hal7502.imp" @ PUSH TERM N PUSHI #0x00000020 ? JUMPIF # L_0004 @ PUSH GETSYM E CALL : LOCATE L_0004 694 %TRUE O LINE 694 "regression-compile-tmp/hal7502.imp" T TRUE 695 %END 696 O LINE 695 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_TAG {lev=2 --> 1} 697 %PREDICATE TAGIF O LINE 697 "regression-compile-tmp/hal7502.imp" $ DEF TAGIF (_lev0id0_TAGIF) p1=V_0101 a/tf=a b/format=0 c/ostate=0 type=0 () form=10 (predicate) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 698 %FALSE %UNLESS SYM='I' %AND CHAR(GETPOS)='F' %AND CHAR(GETPOS+1)=' ' O LINE 698 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x00000049 ? JUMPIF # L_0005 @ PUSH CHAR @ PUSH GETPOS p ASSPAR E CALL N PUSHI #0x00000046 ? JUMPIF # L_0005 @ PUSH CHAR @ PUSH GETPOS N PUSHI #0x00000001 + ADD p ASSPAR E CALL N PUSHI #0x00000020 ? JUMPIF = L_0004 : LOCATE L_0005 K FALSE : LOCATE L_0004 699 GETPOS = GETPOS+2 O LINE 699 "regression-compile-tmp/hal7502.imp" @ PUSH GETPOS @ PUSH GETPOS N PUSHI #0x00000002 + ADD S ASSVAL 700 GET SYM O LINE 700 "regression-compile-tmp/hal7502.imp" @ PUSH GETSYM E CALL 701 %TRUE O LINE 701 "regression-compile-tmp/hal7502.imp" T TRUE 702 %END 703 O LINE 702 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_TAGIF {lev=2 --> 1} 704 %ROUTINE LOOKUP(%INTEGER CONTROL) 705 !ALL DICT OPERATIONS LOCALISED HERE 706 !CONTROL = 0 (LOOKUP ONLY), 1 (FORWARD OK), 707 ! 2 (REDEF), 3 (DEF), 708 ! 4 (MACPARM), 7 (LABEL) O LINE 704 "regression-compile-tmp/hal7502.imp" $ DEF LOOKUP (_lev0id0_LOOKUP) p1=V_0102 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF CONTROL p1=V_0103 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 709 %INTEGER DP O LINE 709 "regression-compile-tmp/hal7502.imp" $ DEF DP p1=V_0104 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 710 DP = DEFMIN; DP = MP+5 %IF CONTROL = 4 O LINE 710 "regression-compile-tmp/hal7502.imp" @ PUSH DP @ PUSH DEFMIN S ASSVAL O LINE 710 "regression-compile-tmp/hal7502.imp" @ PUSH CONTROL N PUSHI #0x00000004 ? JUMPIF # L_0004 @ PUSH DP @ PUSH MP N PUSHI #0x00000005 + ADD S ASSVAL : LOCATE L_0004 711 %WHILE INTEGER(DP) # 0 %CYCLE O LINE 711 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 @ PUSH INTEGER @ PUSH DP p ASSPAR E CALL N PUSHI #0x00000000 ? JUMPIF = L_0004 712 ->YES %IF INTEGER(DP) = TAG1 %AND INTEGER(DP+1) = TAG2 O LINE 712 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH DP p ASSPAR E CALL @ PUSH TAG1 ? JUMPIF # L_0007 @ PUSH INTEGER @ PUSH DP N PUSHI #0x00000001 + ADD p ASSPAR E CALL @ PUSH TAG2 ? JUMPIF # L_0007 J JUMP L_0105 : LOCATE L_0007 713 DP = DP+4 O LINE 713 "regression-compile-tmp/hal7502.imp" @ PUSH DP @ PUSH DP N PUSHI #0x00000004 + ADD S ASSVAL 714 %REPEAT 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 O LINE 714 "regression-compile-tmp/hal7502.imp" B REPEAT L_0003 : LOCATE L_0004 723 NO: O LINE 723 "regression-compile-tmp/hal7502.imp" L LABEL L_0106 724 %RETURN %IF CONTROL&1 = 0; !NO CREATION O LINE 724 "regression-compile-tmp/hal7502.imp" @ PUSH CONTROL N PUSHI #0x00000001 & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 R RETURN : LOCATE L_0004 725 NEW:DEFMIN = DEFMIN-4; DP = DEFMIN 726 !!%MONITOR 21 %IF DP-QLIM <= 0 O LINE 725 "regression-compile-tmp/hal7502.imp" L LABEL L_0107 O LINE 725 "regression-compile-tmp/hal7502.imp" @ PUSH DEFMIN @ PUSH DEFMIN N PUSHI #0x00000004 - SUB S ASSVAL O LINE 725 "regression-compile-tmp/hal7502.imp" @ PUSH DP @ PUSH DEFMIN S ASSVAL 727 INTEGER(DP) = TAG1; INTEGER(DP+1) = TAG2 O LINE 727 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH DP p ASSPAR E CALL @ PUSH TAG1 S ASSVAL O LINE 727 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH DP N PUSHI #0x00000001 + ADD p ASSPAR E CALL @ PUSH TAG2 S ASSVAL 728 SET:INTEGER(DP+2) = TYPE; INTEGER(DP+3) = VAL O LINE 728 "regression-compile-tmp/hal7502.imp" L LABEL L_0108 O LINE 728 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH DP N PUSHI #0x00000002 + ADD p ASSPAR E CALL @ PUSH TYPE S ASSVAL O LINE 728 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH DP N PUSHI #0x00000003 + ADD p ASSPAR E CALL @ PUSH VAL S ASSVAL 729 %RETURN O LINE 729 "regression-compile-tmp/hal7502.imp" R RETURN 730 YES:->NEW %IF CONTROL = 3 %AND DP-INTEGER(BP) >= 0 O LINE 730 "regression-compile-tmp/hal7502.imp" L LABEL L_0105 O LINE 730 "regression-compile-tmp/hal7502.imp" @ PUSH CONTROL N PUSHI #0x00000003 ? JUMPIF # L_0004 @ PUSH DP @ PUSH INTEGER @ PUSH BP p ASSPAR E CALL - SUB N PUSHI #0x00000000 ? JUMPIF < L_0004 J JUMP L_0107 : LOCATE L_0004 731 %IF CONTROL&2 = 0 %START; !NOT DEF CLASS O LINE 731 "regression-compile-tmp/hal7502.imp" @ PUSH CONTROL N PUSHI #0x00000002 & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 732 TYPE = INTEGER(DP+2); VAL = INTEGER(DP+3) O LINE 732 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH INTEGER @ PUSH DP N PUSHI #0x00000002 + ADD p ASSPAR E CALL S ASSVAL O LINE 732 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH INTEGER @ PUSH DP N PUSHI #0x00000003 + ADD p ASSPAR E CALL S ASSVAL 733 %RETURN %UNLESS TYPE&OPMASK = MACRO %AND CONTROL = 0 O LINE 733 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH OPMASK & AND @ PUSH MACRO ? JUMPIF # L_0008 @ PUSH CONTROL N PUSHI #0x00000000 ? JUMPIF = L_0007 : LOCATE L_0008 R RETURN : LOCATE L_0007 734 %IF TYPE&31#25 %THEN INTEGER(DP+2)=TYPE+1 %ELSE INTEGER(DP+2) = TYPE+7 O LINE 734 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x0000001f & AND N PUSHI #0x00000019 ? JUMPIF = L_0007 @ PUSH INTEGER @ PUSH DP N PUSHI #0x00000002 + ADD p ASSPAR E CALL @ PUSH TYPE N PUSHI #0x00000001 + ADD S ASSVAL F GOTO L_0006 : LOCATE L_0007 @ PUSH INTEGER @ PUSH DP N PUSHI #0x00000002 + ADD p ASSPAR E CALL @ PUSH TYPE N PUSHI #0x00000007 + ADD S ASSVAL : LOCATE L_0006 735 %RETURN O LINE 735 "regression-compile-tmp/hal7502.imp" R RETURN 736 %FINISH O LINE 736 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 737 FAULT('D') %IF CONTROL = 3 O LINE 737 "regression-compile-tmp/hal7502.imp" @ PUSH CONTROL N PUSHI #0x00000003 ? JUMPIF # L_0004 @ PUSH FAULT N PUSHI #0x00000044 p ASSPAR E CALL : LOCATE L_0004 738 ->SET %IF CONTROL # 7 O LINE 738 "regression-compile-tmp/hal7502.imp" @ PUSH CONTROL N PUSHI #0x00000007 ? JUMPIF = L_0004 J JUMP L_0108 : LOCATE L_0004 739 %IF INTEGER(DP+2)&(OPMASK+FMASK) = FMASK %START O LINE 739 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH DP N PUSHI #0x00000002 + ADD p ASSPAR E CALL @ PUSH OPMASK @ PUSH FMASK + ADD & AND @ PUSH FMASK ? JUMPIF # L_0004 740 VAL = INTEGER(DP+3) O LINE 740 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH INTEGER @ PUSH DP N PUSHI #0x00000003 + ADD p ASSPAR E CALL S ASSVAL 741 %IF PASS = 0 %START O LINE 741 "regression-compile-tmp/hal7502.imp" @ PUSH PASS N PUSHI #0x00000000 ? JUMPIF # L_0007 742 INTEGER(VAL) = LOC O LINE 742 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH VAL p ASSPAR E CALL @ PUSH LOC S ASSVAL 743 %finish %ELSE %START O LINE 743 "regression-compile-tmp/hal7502.imp" F GOTO L_0006 : LOCATE L_0007 744 FAULT('P') %AND LOC=INTEGER(VAL) %IF INTEGER(VAL) # LOC O LINE 744 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH VAL p ASSPAR E CALL @ PUSH LOC ? JUMPIF = L_000a @ PUSH FAULT N PUSHI #0x00000050 p ASSPAR E CALL @ PUSH LOC @ PUSH INTEGER @ PUSH VAL p ASSPAR E CALL S ASSVAL : LOCATE L_000a 745 %FINISH O LINE 745 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 746 VAL = LOC O LINE 746 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH LOC S ASSVAL 747 %finish %ELSE %START O LINE 747 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 748 ->NEW %IF DP-INTEGER(BP) >= 0 O LINE 748 "regression-compile-tmp/hal7502.imp" @ PUSH DP @ PUSH INTEGER @ PUSH BP p ASSPAR E CALL - SUB N PUSHI #0x00000000 ? JUMPIF < L_0007 J JUMP L_0107 : LOCATE L_0007 749 FAULT('D') O LINE 749 "regression-compile-tmp/hal7502.imp" @ PUSH FAULT N PUSHI #0x00000044 p ASSPAR E CALL 750 %FINISH O LINE 750 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 751 ->SET O LINE 751 "regression-compile-tmp/hal7502.imp" J JUMP L_0108 752 %END 753 O LINE 752 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_LOOKUP {lev=2 --> 1} 754 %ROUTINE QUEUE(%INTEGER K) O LINE 754 "regression-compile-tmp/hal7502.imp" $ DEF QUEUE (_lev0id0_QUEUE) p1=V_0103 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} $ DEF K p1=V_0104 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 } FINISH ) {lev=2} 755 INTEGER(QLIM) = K O LINE 755 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH QLIM p ASSPAR E CALL @ PUSH K S ASSVAL 756 QLIM = QLIM+1; !!%MONITOR 21 %IF QLIM = DEFMIN O LINE 756 "regression-compile-tmp/hal7502.imp" @ PUSH QLIM @ PUSH QLIM N PUSHI #0x00000001 + ADD S ASSVAL 757 %END 758 O LINE 757 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_QUEUE {lev=2 --> 1} 759 %ROUTINE GET EXP O LINE 759 "regression-compile-tmp/hal7502.imp" $ DEF GETEXP (_lev0id0_GETEXP) p1=V_0104 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 760 %OWNINTEGER W=24717 O LINE 760 "regression-compile-tmp/hal7502.imp" N PUSHI #0x0000608d $ DEF W p1=V_0105 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 761 %INTEGER I,NBASE 762 O LINE 761 "regression-compile-tmp/hal7502.imp" $ DEF I p1=V_0106 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF NBASE p1=V_0107 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 763 NBASE = NP O LINE 763 "regression-compile-tmp/hal7502.imp" @ PUSH NBASE @ PUSH NP S ASSVAL 764 ->E3 %IF PEND # 0 O LINE 764 "regression-compile-tmp/hal7502.imp" @ PUSH PEND N PUSHI #0x00000000 ? JUMPIF = L_0004 J JUMP L_0108 : LOCATE L_0004 765 E1: NEST(0) %WHILE S('(') O LINE 765 "regression-compile-tmp/hal7502.imp" L LABEL L_0109 O LINE 765 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 @ PUSH S N PUSHI #0x00000028 p ASSPAR E CALL k bf L_0004 @ PUSH NEST N PUSHI #0x00000000 p ASSPAR E CALL B REPEAT L_0003 : LOCATE L_0004 766 NEST(-20) %IF S('#') O LINE 766 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x00000023 p ASSPAR E CALL k bf L_0004 @ PUSH NEST N PUSHI #0x00000014 U NEGATE p ASSPAR E CALL : LOCATE L_0004 767 %IF TAG %START O LINE 767 "regression-compile-tmp/hal7502.imp" @ PUSH TAG E CALL k bf L_0004 768 E3: %IF TAG1 = W %START; !W O LINE 768 "regression-compile-tmp/hal7502.imp" L LABEL L_0108 O LINE 768 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 @ PUSH W ? JUMPIF # L_0007 769 TYPE = 0; VAL = 0 O LINE 769 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL O LINE 769 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x00000000 S ASSVAL 770 %finish %ELSE %START O LINE 770 "regression-compile-tmp/hal7502.imp" F GOTO L_0006 : LOCATE L_0007 771 %IF PEND >= 0 %START O LINE 771 "regression-compile-tmp/hal7502.imp" @ PUSH PEND N PUSHI #0x00000000 ? JUMPIF < L_000a 772 TYPE = LOCTYPE+FMASK+UMASK; VAL = LABMIN-1 O LINE 772 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH LOCTYPE @ PUSH FMASK + ADD @ PUSH UMASK + ADD S ASSVAL O LINE 772 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH LABMIN N PUSHI #0x00000001 - SUB S ASSVAL 773 LOOKUP(1) O LINE 773 "regression-compile-tmp/hal7502.imp" @ PUSH LOOKUP N PUSHI #0x00000001 p ASSPAR E CALL 774 %IF TYPE&(OPMASK+FMASK) = FMASK %START O LINE 774 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH OPMASK @ PUSH FMASK + ADD & AND @ PUSH FMASK ? JUMPIF # L_000d 775 %IF VAL = LABMIN-1 %START O LINE 775 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH LABMIN N PUSHI #0x00000001 - SUB ? JUMPIF # L_0010 776 LABMIN = VAL; !!%MONITOR 22 %IF LABMIN = ALMAX O LINE 776 "regression-compile-tmp/hal7502.imp" @ PUSH LABMIN @ PUSH VAL S ASSVAL 777 %FINISH O LINE 777 "regression-compile-tmp/hal7502.imp" : LOCATE L_0010 778 VAL = INTEGER(VAL) O LINE 778 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH INTEGER @ PUSH VAL p ASSPAR E CALL S ASSVAL 779 FAULT('U') %IF VAL = 0 O LINE 779 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x00000000 ? JUMPIF # L_0010 @ PUSH FAULT N PUSHI #0x00000055 p ASSPAR E CALL : LOCATE L_0010 780 TYPE = TYPE-FMASK O LINE 780 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH TYPE @ PUSH FMASK - SUB S ASSVAL 781 %FINISH O LINE 781 "regression-compile-tmp/hal7502.imp" : LOCATE L_000d 782 %FINISH O LINE 782 "regression-compile-tmp/hal7502.imp" : LOCATE L_000a 783 %FINISH O LINE 783 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 784 PEND = 0 O LINE 784 "regression-compile-tmp/hal7502.imp" @ PUSH PEND N PUSHI #0x00000000 S ASSVAL 785 %IF TYPE = REG %AND TERM = '(' %START O LINE 785 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH REG ? JUMPIF # L_0007 @ PUSH TERM N PUSHI #0x00000028 ? JUMPIF # L_0007 786 TYPE = 0 %IF SAVE&1 = 0; VAL = VAL+SAVE; !? O LINE 786 "regression-compile-tmp/hal7502.imp" @ PUSH SAVE N PUSHI #0x00000001 & AND N PUSHI #0x00000000 ? JUMPIF # L_000a @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL : LOCATE L_000a O LINE 786 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH VAL @ PUSH SAVE + ADD S ASSVAL 787 %FINISH O LINE 787 "regression-compile-tmp/hal7502.imp" : LOCATE L_0007 788 %IF MODE # 0 %START O LINE 788 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF = L_0007 789 FAULT('I') %AND TYPE=0 %IF TYPE&OPMASK # 0 O LINE 789 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH OPMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_000a @ PUSH FAULT N PUSHI #0x00000049 p ASSPAR E CALL @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL : LOCATE L_000a 790 %IF TYPE®XMASK # 0 %START O LINE 790 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH REGXMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_000a 791 I = TYPE&15; I = VAL %IF I = 0 O LINE 791 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH TYPE N PUSHI #0x0000000f & AND S ASSVAL O LINE 791 "regression-compile-tmp/hal7502.imp" @ PUSH I N PUSHI #0x00000000 ? JUMPIF # L_000d @ PUSH I @ PUSH VAL S ASSVAL : LOCATE L_000d 792 DUSE = DUSE+1 %IF I = DREG O LINE 792 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH DREG ? JUMPIF # L_000d @ PUSH DUSE @ PUSH DUSE N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_000d 793 %FINISH O LINE 793 "regression-compile-tmp/hal7502.imp" : LOCATE L_000a 794 %FINISH O LINE 794 "regression-compile-tmp/hal7502.imp" : LOCATE L_0007 795 %IF TERM = '(' %START O LINE 795 "regression-compile-tmp/hal7502.imp" @ PUSH TERM N PUSHI #0x00000028 ? JUMPIF # L_0007 796 GET SYM O LINE 796 "regression-compile-tmp/hal7502.imp" @ PUSH GETSYM E CALL 797 I = TYPE&31 O LINE 797 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH TYPE N PUSHI #0x0000001f & AND S ASSVAL 798 QUEUE(TYPE-I); QUEUE(VAL) O LINE 798 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH TYPE @ PUSH I - SUB p ASSPAR E CALL O LINE 798 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH VAL p ASSPAR E CALL 799 NEST(-21); NEST(0) O LINE 799 "regression-compile-tmp/hal7502.imp" @ PUSH NEST N PUSHI #0x00000015 U NEGATE p ASSPAR E CALL O LINE 799 "regression-compile-tmp/hal7502.imp" @ PUSH NEST N PUSHI #0x00000000 p ASSPAR E CALL 800 %IF I # 0 %START O LINE 800 "regression-compile-tmp/hal7502.imp" @ PUSH I N PUSHI #0x00000000 ? JUMPIF = L_000a 801 QUEUE(REG); QUEUE(I&15) O LINE 801 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH REG p ASSPAR E CALL O LINE 801 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH I N PUSHI #0x0000000f & AND p ASSPAR E CALL 802 NEST(-1) O LINE 802 "regression-compile-tmp/hal7502.imp" @ PUSH NEST N PUSHI #0x00000001 U NEGATE p ASSPAR E CALL 803 %FINISH O LINE 803 "regression-compile-tmp/hal7502.imp" : LOCATE L_000a 804 ->E1 O LINE 804 "regression-compile-tmp/hal7502.imp" J JUMP L_0109 805 %FINISH O LINE 805 "regression-compile-tmp/hal7502.imp" : LOCATE L_0007 806 %finish %ELSE %IF '0' <= SYM <= '9' %START O LINE 806 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 N PUSHI #0x00000030 @ PUSH SYM " JUMPIFD > L_0004 N PUSHI #0x00000039 ? JUMPIF > L_0004 807 TYPE = 0; VAL = SYM-'0' O LINE 807 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL O LINE 807 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH SYM N PUSHI #0x00000030 - SUB S ASSVAL 808 %CYCLE O LINE 808 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 809 SYM = CHAR(GETPOS)-'0' O LINE 809 "regression-compile-tmp/hal7502.imp" @ PUSH SYM @ PUSH CHAR @ PUSH GETPOS p ASSPAR E CALL N PUSHI #0x00000030 - SUB S ASSVAL 810 %EXIT %UNLESS 0 <= SYM <= 9 O LINE 810 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000000 @ PUSH SYM " JUMPIFD > L_000b N PUSHI #0x00000009 ? JUMPIF <= L_000a : LOCATE L_000b F GOTO L_0007 : LOCATE L_000a 811 VAL = (VAL<<2+VAL)<<1+SYM O LINE 811 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH VAL N PUSHI #0x00000002 [ LSH @ PUSH VAL + ADD N PUSHI #0x00000001 [ LSH @ PUSH SYM + ADD S ASSVAL 812 GETPOS = GETPOS+1 O LINE 812 "regression-compile-tmp/hal7502.imp" @ PUSH GETPOS @ PUSH GETPOS N PUSHI #0x00000001 + ADD S ASSVAL 813 %REPEAT O LINE 813 "regression-compile-tmp/hal7502.imp" B REPEAT L_0006 : LOCATE L_0007 814 GET SYM O LINE 814 "regression-compile-tmp/hal7502.imp" @ PUSH GETSYM E CALL 815 %finish %ELSE %IF SYM = 'X' %START O LINE 815 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 @ PUSH SYM N PUSHI #0x00000058 ? JUMPIF # L_0004 816 TYPE = 0; VAL = 0 O LINE 816 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL O LINE 816 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x00000000 S ASSVAL 817 %CYCLE O LINE 817 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 818 SYM = CHAR(GETPOS)-128 O LINE 818 "regression-compile-tmp/hal7502.imp" @ PUSH SYM @ PUSH CHAR @ PUSH GETPOS p ASSPAR E CALL N PUSHI #0x00000080 - SUB S ASSVAL 819 %EXIT %IF SYM < 0 O LINE 819 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x00000000 ? JUMPIF >= L_000a F GOTO L_0007 : LOCATE L_000a 820 SYM = SYM-32 %IF SYM >= 96; !ENSURE UPPER-CASE O LINE 820 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x00000060 ? JUMPIF < L_000a @ PUSH SYM @ PUSH SYM N PUSHI #0x00000020 - SUB S ASSVAL : LOCATE L_000a 821 %IF '0' <= SYM <= '9' %OR 'A' <= SYM <= 'F' %START O LINE 821 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000030 @ PUSH SYM " JUMPIFD > L_000c N PUSHI #0x00000039 ? JUMPIF <= L_000b : LOCATE L_000c N PUSHI #0x00000041 @ PUSH SYM " JUMPIFD > L_000a N PUSHI #0x00000046 ? JUMPIF > L_000a : LOCATE L_000b 822 VAL = VAL<<4+SYM-'0' O LINE 822 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH VAL N PUSHI #0x00000004 [ LSH @ PUSH SYM + ADD N PUSHI #0x00000030 - SUB S ASSVAL 823 VAL = VAL-7 %IF SYM >= 'A' O LINE 823 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x00000041 ? JUMPIF < L_000d @ PUSH VAL @ PUSH VAL N PUSHI #0x00000007 - SUB S ASSVAL : LOCATE L_000d 824 %finish %ELSE FAULT('H') O LINE 824 "regression-compile-tmp/hal7502.imp" F GOTO L_0009 : LOCATE L_000a @ PUSH FAULT N PUSHI #0x00000048 p ASSPAR E CALL : LOCATE L_0009 825 GETPOS = GETPOS+1 O LINE 825 "regression-compile-tmp/hal7502.imp" @ PUSH GETPOS @ PUSH GETPOS N PUSHI #0x00000001 + ADD S ASSVAL 826 %REPEAT O LINE 826 "regression-compile-tmp/hal7502.imp" B REPEAT L_0006 : LOCATE L_0007 827 GET SYM O LINE 827 "regression-compile-tmp/hal7502.imp" @ PUSH GETSYM E CALL 828 %finish %ELSE %IF SYM&128 # 0 %START O LINE 828 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 @ PUSH SYM N PUSHI #0x00000080 & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 829 TYPE = 0; VAL = SYM-128 O LINE 829 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL O LINE 829 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH SYM N PUSHI #0x00000080 - SUB S ASSVAL 830 GET SYM O LINE 830 "regression-compile-tmp/hal7502.imp" @ PUSH GETSYM E CALL 831 %IF MODE >= 0 %AND SYM&128 # 0 %START O LINE 831 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF < L_0007 @ PUSH SYM N PUSHI #0x00000080 & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 832 VAL = VAL<<8+SYM-128; GET SYM O LINE 832 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH VAL N PUSHI #0x00000008 [ LSH @ PUSH SYM + ADD N PUSHI #0x00000080 - SUB S ASSVAL O LINE 832 "regression-compile-tmp/hal7502.imp" @ PUSH GETSYM E CALL 833 %FINISH O LINE 833 "regression-compile-tmp/hal7502.imp" : LOCATE L_0007 834 %finish %ELSE %IF S('.') %START O LINE 834 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 @ PUSH S N PUSHI #0x0000002e p ASSPAR E CALL k bf L_0004 835 ->ERR %IF %NOT TAG O LINE 835 "regression-compile-tmp/hal7502.imp" @ PUSH TAG E CALL t bt L_0007 J JUMP L_010a : LOCATE L_0007 836 TYPE = 0; VAL = TAG1 O LINE 836 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL O LINE 836 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH TAG1 S ASSVAL 837 %finish %ELSE %IF S('*') %START O LINE 837 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 @ PUSH S N PUSHI #0x0000002a p ASSPAR E CALL k bf L_0004 838 TYPE = LOCTYPE&63; VAL = LOC O LINE 838 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH LOCTYPE N PUSHI #0x0000003f & AND S ASSVAL O LINE 838 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH LOC S ASSVAL 839 %IF SYM = 'L' %START; !FOR NOW O LINE 839 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000004c ? JUMPIF # L_0007 840 TYPE = 0; VAL = LIST %IF TAG O LINE 840 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL O LINE 840 "regression-compile-tmp/hal7502.imp" @ PUSH TAG E CALL k bf L_000a @ PUSH VAL @ PUSH LIST S ASSVAL : LOCATE L_000a 841 %FINISH O LINE 841 "regression-compile-tmp/hal7502.imp" : LOCATE L_0007 842 %finish %ELSE %IF SYM = '-' %START O LINE 842 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 @ PUSH SYM N PUSHI #0x0000002d ? JUMPIF # L_0004 843 TYPE = 0; VAL = 0 O LINE 843 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL O LINE 843 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x00000000 S ASSVAL 844 %finish %ELSE %IF SYM = '\' %START O LINE 844 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 @ PUSH SYM N PUSHI #0x0000005c ? JUMPIF # L_0004 845 TYPE = 0; VAL = \0 O LINE 845 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL O LINE 845 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x00000000 \ NOT S ASSVAL 846 %finish %ELSE ->ERR O LINE 846 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 J JUMP L_010a : LOCATE L_0003 847 QUEUE(TYPE); QUEUE(VAL) 848 O LINE 847 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH TYPE p ASSPAR E CALL O LINE 847 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH VAL p ASSPAR E CALL 849 %WHILE NP # NBASE %CYCLE O LINE 849 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 @ PUSH NP @ PUSH NBASE ? JUMPIF = L_0004 850 %IF INTEGER(NP) < 0 %START O LINE 850 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH NP p ASSPAR E CALL N PUSHI #0x00000000 ? JUMPIF >= L_0007 851 QUEUE(INTEGER(NP)) O LINE 851 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH INTEGER @ PUSH NP p ASSPAR E CALL p ASSPAR E CALL 852 %finish %ELSE %START O LINE 852 "regression-compile-tmp/hal7502.imp" F GOTO L_0006 : LOCATE L_0007 853 %EXIT %IF %NOT S(')') O LINE 853 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x00000029 p ASSPAR E CALL t bt L_000a F GOTO L_0004 : LOCATE L_000a 854 %FINISH O LINE 854 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 855 NP = NP+1 O LINE 855 "regression-compile-tmp/hal7502.imp" @ PUSH NP @ PUSH NP N PUSHI #0x00000001 + ADD S ASSVAL 856 %REPEAT 857 O LINE 856 "regression-compile-tmp/hal7502.imp" B REPEAT L_0003 : LOCATE L_0004 858 NEST(-1) %AND ->E1 %IF S('+') O LINE 858 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x0000002b p ASSPAR E CALL k bf L_0004 @ PUSH NEST N PUSHI #0x00000001 U NEGATE p ASSPAR E CALL J JUMP L_0109 : LOCATE L_0004 859 NEST(-2) %AND ->E1 %IF S('-') O LINE 859 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x0000002d p ASSPAR E CALL k bf L_0004 @ PUSH NEST N PUSHI #0x00000002 U NEGATE p ASSPAR E CALL J JUMP L_0109 : LOCATE L_0004 860 NEST(-3) %AND ->E1 %IF S('&') O LINE 860 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x00000026 p ASSPAR E CALL k bf L_0004 @ PUSH NEST N PUSHI #0x00000003 U NEGATE p ASSPAR E CALL J JUMP L_0109 : LOCATE L_0004 861 NEST(-4) %AND ->E1 %IF S('!') O LINE 861 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x00000021 p ASSPAR E CALL k bf L_0004 @ PUSH NEST N PUSHI #0x00000004 U NEGATE p ASSPAR E CALL J JUMP L_0109 : LOCATE L_0004 862 NEST(-5) %AND ->E1 %IF S('\') O LINE 862 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x0000005c p ASSPAR E CALL k bf L_0004 @ PUSH NEST N PUSHI #0x00000005 U NEGATE p ASSPAR E CALL J JUMP L_0109 : LOCATE L_0004 863 NEST(-6) %AND ->E1 %IF SS('<') O LINE 863 "regression-compile-tmp/hal7502.imp" @ PUSH SS N PUSHI #0x0000003c p ASSPAR E CALL k bf L_0004 @ PUSH NEST N PUSHI #0x00000006 U NEGATE p ASSPAR E CALL J JUMP L_0109 : LOCATE L_0004 864 NEST(-7) %AND ->E1 %IF SS('>') O LINE 864 "regression-compile-tmp/hal7502.imp" @ PUSH SS N PUSHI #0x0000003e p ASSPAR E CALL k bf L_0004 @ PUSH NEST N PUSHI #0x00000007 U NEGATE p ASSPAR E CALL J JUMP L_0109 : LOCATE L_0004 865 NEST(-8) %AND ->E1 %IF S('_') O LINE 865 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x0000005f p ASSPAR E CALL k bf L_0004 @ PUSH NEST N PUSHI #0x00000008 U NEGATE p ASSPAR E CALL J JUMP L_0109 : LOCATE L_0004 866 %RETURN %IF NP = NBASE O LINE 866 "regression-compile-tmp/hal7502.imp" @ PUSH NP @ PUSH NBASE ? JUMPIF # L_0004 R RETURN : LOCATE L_0004 867 ERR:NP = NBASE 868 !!%MONITOR 19 O LINE 867 "regression-compile-tmp/hal7502.imp" L LABEL L_010a O LINE 867 "regression-compile-tmp/hal7502.imp" @ PUSH NP @ PUSH NBASE S ASSVAL 869 %END 870 O LINE 869 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_GETEXP {lev=2 --> 1} 871 %ROUTINE GET COND O LINE 871 "regression-compile-tmp/hal7502.imp" $ DEF GETCOND (_lev0id0_GETCOND) p1=V_0105 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 872 %OWNINTEGER AND=1717, OR=16873 O LINE 872 "regression-compile-tmp/hal7502.imp" N PUSHI #0x000006b5 $ DEF AND p1=V_0106 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x000041e9 $ DEF OR p1=V_0107 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 873 %INTEGER J,K O LINE 873 "regression-compile-tmp/hal7502.imp" $ DEF J p1=V_0108 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF K p1=V_0109 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 874 TRANSF = QSTART; QSTART = QLIM O LINE 874 "regression-compile-tmp/hal7502.imp" @ PUSH TRANSF @ PUSH QSTART S ASSVAL O LINE 874 "regression-compile-tmp/hal7502.imp" @ PUSH QSTART @ PUSH QLIM S ASSVAL 875 J = 0 O LINE 875 "regression-compile-tmp/hal7502.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 876 %CYCLE O LINE 876 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 877 GET EXP O LINE 877 "regression-compile-tmp/hal7502.imp" @ PUSH GETEXP E CALL 878 %IF S('=') %START O LINE 878 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x0000003d p ASSPAR E CALL k bf L_0007 879 K = 5 O LINE 879 "regression-compile-tmp/hal7502.imp" @ PUSH K N PUSHI #0x00000005 S ASSVAL 880 %finish %ELSE %IF S('#') %START O LINE 880 "regression-compile-tmp/hal7502.imp" F GOTO L_0006 : LOCATE L_0007 @ PUSH S N PUSHI #0x00000023 p ASSPAR E CALL k bf L_0007 881 K = 4 O LINE 881 "regression-compile-tmp/hal7502.imp" @ PUSH K N PUSHI #0x00000004 S ASSVAL 882 %finish %ELSE %IF S('<') %START O LINE 882 "regression-compile-tmp/hal7502.imp" F GOTO L_0006 : LOCATE L_0007 @ PUSH S N PUSHI #0x0000003c p ASSPAR E CALL k bf L_0007 883 K = 3; K = 7 %IF S('=') O LINE 883 "regression-compile-tmp/hal7502.imp" @ PUSH K N PUSHI #0x00000003 S ASSVAL O LINE 883 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x0000003d p ASSPAR E CALL k bf L_000a @ PUSH K N PUSHI #0x00000007 S ASSVAL : LOCATE L_000a 884 %finish %ELSE %IF S('>') %START O LINE 884 "regression-compile-tmp/hal7502.imp" F GOTO L_0006 : LOCATE L_0007 @ PUSH S N PUSHI #0x0000003e p ASSPAR E CALL k bf L_0007 885 K = 6; K = 2 %IF S('=') O LINE 885 "regression-compile-tmp/hal7502.imp" @ PUSH K N PUSHI #0x00000006 S ASSVAL O LINE 885 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x0000003d p ASSPAR E CALL k bf L_000a @ PUSH K N PUSHI #0x00000002 S ASSVAL : LOCATE L_000a 886 %finish %ELSE %START O LINE 886 "regression-compile-tmp/hal7502.imp" F GOTO L_0006 : LOCATE L_0007 887 QUEUE(-12) O LINE 887 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x0000000c U NEGATE p ASSPAR E CALL 888 %RETURN O LINE 888 "regression-compile-tmp/hal7502.imp" R RETURN 889 %FINISH O LINE 889 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 890 GET EXP O LINE 890 "regression-compile-tmp/hal7502.imp" @ PUSH GETEXP E CALL 891 QUEUE(-2); !SUBTRACT O LINE 891 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x00000002 U NEGATE p ASSPAR E CALL 892 QUEUE(-11); QUEUE(K) O LINE 892 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x0000000b U NEGATE p ASSPAR E CALL O LINE 892 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH K p ASSPAR E CALL 893 %RETURN %IF %NOT TAG O LINE 893 "regression-compile-tmp/hal7502.imp" @ PUSH TAG E CALL t bt L_0007 R RETURN : LOCATE L_0007 894 %IF TAG1 = AND %AND TAG2 = 0 %START 895 !!%MONITOR 19 %IF J < 0 O LINE 894 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 @ PUSH AND ? JUMPIF # L_0007 @ PUSH TAG2 N PUSHI #0x00000000 ? JUMPIF # L_0007 896 J = 1; QUEUE(-13) O LINE 896 "regression-compile-tmp/hal7502.imp" @ PUSH J N PUSHI #0x00000001 S ASSVAL O LINE 896 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x0000000d U NEGATE p ASSPAR E CALL 897 %finish %ELSE %START 898 !!%MONITOR 19 %IF TAG1 # OR %OR J > 0 O LINE 897 "regression-compile-tmp/hal7502.imp" F GOTO L_0006 : LOCATE L_0007 899 J = -1; QUEUE(-14) O LINE 899 "regression-compile-tmp/hal7502.imp" @ PUSH J N PUSHI #0x00000001 U NEGATE S ASSVAL O LINE 899 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x0000000e U NEGATE p ASSPAR E CALL 900 %FINISH O LINE 900 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 901 %REPEAT O LINE 901 "regression-compile-tmp/hal7502.imp" B REPEAT L_0003 902 %END 903 O LINE 902 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_GETCOND {lev=2 --> 1} 904 %ROUTINE GET INST O LINE 904 "regression-compile-tmp/hal7502.imp" $ DEF GETINST (_lev0id0_GETINST) p1=V_0106 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 905 %INTEGER I O LINE 905 "regression-compile-tmp/hal7502.imp" $ DEF I p1=V_0107 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 906 QUEUE(TYPE); QUEUE(VAL) O LINE 906 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH TYPE p ASSPAR E CALL O LINE 906 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH VAL p ASSPAR E CALL 907 %RETURN %IF TERM # ' '; !NO OPERAND FOLLOWING => O LINE 907 "regression-compile-tmp/hal7502.imp" @ PUSH TERM N PUSHI #0x00000020 ? JUMPIF = L_0004 R RETURN : LOCATE L_0004 908 %CYCLE O LINE 908 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 909 GET EXP O LINE 909 "regression-compile-tmp/hal7502.imp" @ PUSH GETEXP E CALL 910 QUEUE(-22) O LINE 910 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x00000016 U NEGATE p ASSPAR E CALL 911 %RETURN %IF %NOT S(',') O LINE 911 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x0000002c p ASSPAR E CALL t bt L_0007 R RETURN : LOCATE L_0007 912 %REPEAT O LINE 912 "regression-compile-tmp/hal7502.imp" B REPEAT L_0003 913 %END 914 O LINE 913 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_GETINST {lev=2 --> 1} 915 %ROUTINE READ LINE O LINE 915 "regression-compile-tmp/hal7502.imp" $ DEF READLINE (_lev0id0_READLINE) p1=V_0107 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 916 %INTEGER Q O LINE 916 "regression-compile-tmp/hal7502.imp" $ DEF Q p1=V_0108 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 917 PUTPOS = STARTPOS O LINE 917 "regression-compile-tmp/hal7502.imp" @ PUSH PUTPOS @ PUSH STARTPOS S ASSVAL 918 %IF MP = 0 %START O LINE 918 "regression-compile-tmp/hal7502.imp" @ PUSH MP N PUSHI #0x00000000 ? JUMPIF # L_0004 919 Q = 0; PSEUDOLIM = 0 O LINE 919 "regression-compile-tmp/hal7502.imp" @ PUSH Q N PUSHI #0x00000000 S ASSVAL O LINE 919 "regression-compile-tmp/hal7502.imp" @ PUSH PSEUDOLIM N PUSHI #0x00000000 S ASSVAL 920 %CYCLE O LINE 920 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 921 READ SYMBOL(SYM) O LINE 921 "regression-compile-tmp/hal7502.imp" @ PUSH READSYMBOL @ PUSH SYM p ASSPAR E CALL 922 READ SYMBOL(SYM) %AND Q=Q!!128 %IF SYM = '''' O LINE 922 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x00000027 ? JUMPIF # L_000a @ PUSH READSYMBOL @ PUSH SYM p ASSPAR E CALL @ PUSH Q @ PUSH Q N PUSHI #0x00000080 % XOR S ASSVAL : LOCATE L_000a 923 %EXIT %IF SYM = NL O LINE 923 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000000a ? JUMPIF # L_000a F GOTO L_0007 : LOCATE L_000a 924 SYM = SYM-32 %IF SYM-Q >= 96; !LOWER-CASE -> UPPER-CASE O LINE 924 "regression-compile-tmp/hal7502.imp" @ PUSH SYM @ PUSH Q - SUB N PUSHI #0x00000060 ? JUMPIF < L_000a @ PUSH SYM @ PUSH SYM N PUSHI #0x00000020 - SUB S ASSVAL : LOCATE L_000a 925 SYM = SYM+Q O LINE 925 "regression-compile-tmp/hal7502.imp" @ PUSH SYM @ PUSH SYM @ PUSH Q + ADD S ASSVAL 926 %EXIT %IF SYM = '/' %AND PSEUDOLIM # 0 O LINE 926 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000002f ? JUMPIF # L_000a @ PUSH PSEUDOLIM N PUSHI #0x00000000 ? JUMPIF = L_000a F GOTO L_0007 : LOCATE L_000a 927 %IF SYM = ' ' %START O LINE 927 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x00000020 ? JUMPIF # L_000a 928 PSEUDOLIM = PUTPOS %IF PSEUDOLIM = 0 O LINE 928 "regression-compile-tmp/hal7502.imp" @ PUSH PSEUDOLIM N PUSHI #0x00000000 ? JUMPIF # L_000d @ PUSH PSEUDOLIM @ PUSH PUTPOS S ASSVAL : LOCATE L_000d 929 %finish %ELSE PSEUDOLIM = 0 O LINE 929 "regression-compile-tmp/hal7502.imp" F GOTO L_0009 : LOCATE L_000a @ PUSH PSEUDOLIM N PUSHI #0x00000000 S ASSVAL : LOCATE L_0009 930 PUT CHAR(SYM) O LINE 930 "regression-compile-tmp/hal7502.imp" @ PUSH PUTCHAR @ PUSH SYM p ASSPAR E CALL 931 %REPEAT O LINE 931 "regression-compile-tmp/hal7502.imp" B REPEAT L_0006 : LOCATE L_0007 932 %IF PSEUDOLIM # 0 %START O LINE 932 "regression-compile-tmp/hal7502.imp" @ PUSH PSEUDOLIM N PUSHI #0x00000000 ? JUMPIF = L_0007 933 Q = PUTPOS; PUTPOS = PSEUDOLIM O LINE 933 "regression-compile-tmp/hal7502.imp" @ PUSH Q @ PUSH PUTPOS S ASSVAL O LINE 933 "regression-compile-tmp/hal7502.imp" @ PUSH PUTPOS @ PUSH PSEUDOLIM S ASSVAL 934 PUT CHAR(NL) O LINE 934 "regression-compile-tmp/hal7502.imp" @ PUSH PUTCHAR N PUSHI #0x0000000a p ASSPAR E CALL 935 PUTPOS = Q O LINE 935 "regression-compile-tmp/hal7502.imp" @ PUSH PUTPOS @ PUSH Q S ASSVAL 936 %FINISH O LINE 936 "regression-compile-tmp/hal7502.imp" : LOCATE L_0007 937 %CYCLE O LINE 937 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 938 PUT CHAR(SYM) O LINE 938 "regression-compile-tmp/hal7502.imp" @ PUSH PUTCHAR @ PUSH SYM p ASSPAR E CALL 939 %EXIT %IF SYM = NL O LINE 939 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000000a ? JUMPIF # L_000a F GOTO L_0007 : LOCATE L_000a 940 READ SYMBOL(SYM) O LINE 940 "regression-compile-tmp/hal7502.imp" @ PUSH READSYMBOL @ PUSH SYM p ASSPAR E CALL 941 %REPEAT O LINE 941 "regression-compile-tmp/hal7502.imp" B REPEAT L_0006 : LOCATE L_0007 942 PRINTPOS = STARTPOS O LINE 942 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTPOS @ PUSH STARTPOS S ASSVAL 943 %finish %ELSE %START O LINE 943 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 944 GETPOS = INTEGER(MP) O LINE 944 "regression-compile-tmp/hal7502.imp" @ PUSH GETPOS @ PUSH INTEGER @ PUSH MP p ASSPAR E CALL S ASSVAL 945 %IF CHAR(GETPOS) = 0 %START O LINE 945 "regression-compile-tmp/hal7502.imp" @ PUSH CHAR @ PUSH GETPOS p ASSPAR E CALL N PUSHI #0x00000000 ? JUMPIF # L_0007 946 QBASE = MP O LINE 946 "regression-compile-tmp/hal7502.imp" @ PUSH QBASE @ PUSH MP S ASSVAL 947 %IF INTEGER(MP+1)&16_8000 # 0 %START O LINE 947 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH MP N PUSHI #0x00000001 + ADD p ASSPAR E CALL N PUSHI #0x00008000 & AND N PUSHI #0x00000000 ? JUMPIF = L_000a 948 %WHILE INTEGER(NP)&16_8000 = 0 %CYCLE O LINE 948 "regression-compile-tmp/hal7502.imp" : LOCATE L_000c @ PUSH INTEGER @ PUSH NP p ASSPAR E CALL N PUSHI #0x00008000 & AND N PUSHI #0x00000000 ? JUMPIF # L_000d 949 FAULT('C'); NP = NP+2 O LINE 949 "regression-compile-tmp/hal7502.imp" @ PUSH FAULT N PUSHI #0x00000043 p ASSPAR E CALL O LINE 949 "regression-compile-tmp/hal7502.imp" @ PUSH NP @ PUSH NP N PUSHI #0x00000002 + ADD S ASSVAL 950 %REPEAT O LINE 950 "regression-compile-tmp/hal7502.imp" B REPEAT L_000c : LOCATE L_000d 951 SET LAB(LOC) O LINE 951 "regression-compile-tmp/hal7502.imp" @ PUSH SETLAB @ PUSH LOC p ASSPAR E CALL 952 %FINISH O LINE 952 "regression-compile-tmp/hal7502.imp" : LOCATE L_000a 953 GETPOS = INTEGER(MP+2) O LINE 953 "regression-compile-tmp/hal7502.imp" @ PUSH GETPOS @ PUSH INTEGER @ PUSH MP N PUSHI #0x00000002 + ADD p ASSPAR E CALL S ASSVAL 954 STARTPOS = INTEGER(MP+3) O LINE 954 "regression-compile-tmp/hal7502.imp" @ PUSH STARTPOS @ PUSH INTEGER @ PUSH MP N PUSHI #0x00000003 + ADD p ASSPAR E CALL S ASSVAL 955 MP = INTEGER(MP+4) O LINE 955 "regression-compile-tmp/hal7502.imp" @ PUSH MP @ PUSH INTEGER @ PUSH MP N PUSHI #0x00000004 + ADD p ASSPAR E CALL S ASSVAL 956 PRINTPOS = 0 %IF LIST&2 # 0 O LINE 956 "regression-compile-tmp/hal7502.imp" @ PUSH LIST N PUSHI #0x00000002 & AND N PUSHI #0x00000000 ? JUMPIF = L_000a @ PUSH PRINTPOS N PUSHI #0x00000000 S ASSVAL : LOCATE L_000a 957 GET SYM; !TERMINATOR O LINE 957 "regression-compile-tmp/hal7502.imp" @ PUSH GETSYM E CALL 958 GET SYM %IF SYM = ';' O LINE 958 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000003b ? JUMPIF # L_000a @ PUSH GETSYM E CALL : LOCATE L_000a 959 %RETURN O LINE 959 "regression-compile-tmp/hal7502.imp" R RETURN 960 %FINISH O LINE 960 "regression-compile-tmp/hal7502.imp" : LOCATE L_0007 961 PRINTPOS = STARTPOS %IF LIST&2 # 0 O LINE 961 "regression-compile-tmp/hal7502.imp" @ PUSH LIST N PUSHI #0x00000002 & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH PRINTPOS @ PUSH STARTPOS S ASSVAL : LOCATE L_0007 962 %CYCLE O LINE 962 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 963 SYM = CHAR(GETPOS); GETPOS = GETPOS+1 O LINE 963 "regression-compile-tmp/hal7502.imp" @ PUSH SYM @ PUSH CHAR @ PUSH GETPOS p ASSPAR E CALL S ASSVAL O LINE 963 "regression-compile-tmp/hal7502.imp" @ PUSH GETPOS @ PUSH GETPOS N PUSHI #0x00000001 + ADD S ASSVAL 964 %IF TAG %START O LINE 964 "regression-compile-tmp/hal7502.imp" @ PUSH TAG E CALL k bf L_000a 965 SYM=TERM %AND GETPOS=GETPOS-1 %IF TERM = ' ' O LINE 965 "regression-compile-tmp/hal7502.imp" @ PUSH TERM N PUSHI #0x00000020 ? JUMPIF # L_000d @ PUSH SYM @ PUSH TERM S ASSVAL @ PUSH GETPOS @ PUSH GETPOS N PUSHI #0x00000001 - SUB S ASSVAL : LOCATE L_000d 966 TYPE = INTEGER(MP); VAL = GETPOS-1 O LINE 966 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH INTEGER @ PUSH MP p ASSPAR E CALL S ASSVAL O LINE 966 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH GETPOS N PUSHI #0x00000001 - SUB S ASSVAL 967 LOOKUP(4) O LINE 967 "regression-compile-tmp/hal7502.imp" @ PUSH LOOKUP N PUSHI #0x00000004 p ASSPAR E CALL 968 %WHILE TYPE # VAL %CYCLE O LINE 968 "regression-compile-tmp/hal7502.imp" : LOCATE L_000c @ PUSH TYPE @ PUSH VAL ? JUMPIF = L_000d 969 PUT CHAR(CHAR(TYPE)) O LINE 969 "regression-compile-tmp/hal7502.imp" @ PUSH PUTCHAR @ PUSH CHAR @ PUSH TYPE p ASSPAR E CALL p ASSPAR E CALL 970 TYPE = TYPE+1 O LINE 970 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH TYPE N PUSHI #0x00000001 + ADD S ASSVAL 971 %REPEAT O LINE 971 "regression-compile-tmp/hal7502.imp" B REPEAT L_000c : LOCATE L_000d 972 %FINISH O LINE 972 "regression-compile-tmp/hal7502.imp" : LOCATE L_000a 973 %IF SYM = '?' %START O LINE 973 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000003f ? JUMPIF # L_000a 974 PUT CHAR(INTEGER(MP+1)>>5&31+'A') O LINE 974 "regression-compile-tmp/hal7502.imp" @ PUSH PUTCHAR @ PUSH INTEGER @ PUSH MP N PUSHI #0x00000001 + ADD p ASSPAR E CALL N PUSHI #0x00000005 ] RSH N PUSHI #0x0000001f & AND N PUSHI #0x00000041 + ADD p ASSPAR E CALL 975 SYM = INTEGER(MP+1)&31+'A' O LINE 975 "regression-compile-tmp/hal7502.imp" @ PUSH SYM @ PUSH INTEGER @ PUSH MP N PUSHI #0x00000001 + ADD p ASSPAR E CALL N PUSHI #0x0000001f & AND N PUSHI #0x00000041 + ADD S ASSVAL 976 %FINISH O LINE 976 "regression-compile-tmp/hal7502.imp" : LOCATE L_000a 977 PUT CHAR(SYM) O LINE 977 "regression-compile-tmp/hal7502.imp" @ PUSH PUTCHAR @ PUSH SYM p ASSPAR E CALL 978 INTEGER(MP) = GETPOS O LINE 978 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH MP p ASSPAR E CALL @ PUSH GETPOS S ASSVAL 979 %EXIT %IF SYM = NL O LINE 979 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000000a ? JUMPIF # L_000a F GOTO L_0007 : LOCATE L_000a 980 %REPEAT O LINE 980 "regression-compile-tmp/hal7502.imp" B REPEAT L_0006 : LOCATE L_0007 981 %FINISH O LINE 981 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 982 QBASE = (PUTPOS+1)>>1 O LINE 982 "regression-compile-tmp/hal7502.imp" @ PUSH QBASE @ PUSH PUTPOS N PUSHI #0x00000001 + ADD N PUSHI #0x00000001 ] RSH S ASSVAL 983 GETPOS = STARTPOS; GET SYM O LINE 983 "regression-compile-tmp/hal7502.imp" @ PUSH GETPOS @ PUSH STARTPOS S ASSVAL O LINE 983 "regression-compile-tmp/hal7502.imp" @ PUSH GETSYM E CALL 984 %END 985 O LINE 984 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_READLINE {lev=2 --> 1} 986 %ROUTINE SCAN ARG 987 ! SET TYPE,VAL TO START,LIM OF ARG IF NOT NULL O LINE 986 "regression-compile-tmp/hal7502.imp" $ DEF SCANARG (_lev0id0_SCANARG) p1=V_0108 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 988 %INTEGER I,J O LINE 988 "regression-compile-tmp/hal7502.imp" $ DEF I p1=V_0109 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_010a a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 989 %RETURN %IF SYM='I' %AND CHAR(GETPOS)='F' %AND CHAR(GETPOS+1)=' ' O LINE 989 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x00000049 ? JUMPIF # L_0004 @ PUSH CHAR @ PUSH GETPOS p ASSPAR E CALL N PUSHI #0x00000046 ? JUMPIF # L_0004 @ PUSH CHAR @ PUSH GETPOS N PUSHI #0x00000001 + ADD p ASSPAR E CALL N PUSHI #0x00000020 ? JUMPIF # L_0004 R RETURN : LOCATE L_0004 990 I = GETPOS-1; I = GETPOS %IF SYM = '[' O LINE 990 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH GETPOS N PUSHI #0x00000001 - SUB S ASSVAL O LINE 990 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000005b ? JUMPIF # L_0004 @ PUSH I @ PUSH GETPOS S ASSVAL : LOCATE L_0004 991 J = 0 O LINE 991 "regression-compile-tmp/hal7502.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 992 %CYCLE O LINE 992 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 993 %EXIT %IF SYM = NL O LINE 993 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000000a ? JUMPIF # L_0007 F GOTO L_0004 : LOCATE L_0007 994 %EXIT %IF (SYM=' ' %OR SYM=',' %OR SYM=';') %AND J<=0 O LINE 994 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x00000020 ? JUMPIF = L_0008 @ PUSH SYM N PUSHI #0x0000002c ? JUMPIF = L_0008 @ PUSH SYM N PUSHI #0x0000003b ? JUMPIF # L_0007 : LOCATE L_0008 @ PUSH J N PUSHI #0x00000000 ? JUMPIF > L_0007 F GOTO L_0004 : LOCATE L_0007 995 J = J+1 %IF SYM = '[' O LINE 995 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000005b ? JUMPIF # L_0007 @ PUSH J @ PUSH J N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0007 996 %IF SYM = ']' %START O LINE 996 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000005d ? JUMPIF # L_0007 997 J = J-1; %EXIT %IF J = 0 O LINE 997 "regression-compile-tmp/hal7502.imp" @ PUSH J @ PUSH J N PUSHI #0x00000001 - SUB S ASSVAL O LINE 997 "regression-compile-tmp/hal7502.imp" @ PUSH J N PUSHI #0x00000000 ? JUMPIF # L_000a F GOTO L_0004 : LOCATE L_000a 998 %FINISH O LINE 998 "regression-compile-tmp/hal7502.imp" : LOCATE L_0007 999 SYM = CHAR(GETPOS); GETPOS = GETPOS+1 O LINE 999 "regression-compile-tmp/hal7502.imp" @ PUSH SYM @ PUSH CHAR @ PUSH GETPOS p ASSPAR E CALL S ASSVAL O LINE 999 "regression-compile-tmp/hal7502.imp" @ PUSH GETPOS @ PUSH GETPOS N PUSHI #0x00000001 + ADD S ASSVAL 1000 %REPEAT O LINE 1000 "regression-compile-tmp/hal7502.imp" B REPEAT L_0003 : LOCATE L_0004 1001 %IF GETPOS-1 # I %START O LINE 1001 "regression-compile-tmp/hal7502.imp" @ PUSH GETPOS N PUSHI #0x00000001 - SUB @ PUSH I ? JUMPIF = L_0004 1002 TYPE = I; VAL = GETPOS-1 O LINE 1002 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH I S ASSVAL O LINE 1002 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH GETPOS N PUSHI #0x00000001 - SUB S ASSVAL 1003 %FINISH O LINE 1003 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 1004 GET SYM %IF SYM = ']' O LINE 1004 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000005d ? JUMPIF # L_0004 @ PUSH GETSYM E CALL : LOCATE L_0004 1005 %END 1006 O LINE 1005 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_SCANARG {lev=2 --> 1} 1007 %ROUTINE SET ACC O LINE 1007 "regression-compile-tmp/hal7502.imp" $ DEF SETACC (_lev0id0_SETACC) p1=V_0109 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 1008 %INTEGER I O LINE 1008 "regression-compile-tmp/hal7502.imp" $ DEF I p1=V_010a a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1009 ACC = -1; ATYPE = -1; CREG = -1 O LINE 1009 "regression-compile-tmp/hal7502.imp" @ PUSH ACC N PUSHI #0x00000001 U NEGATE S ASSVAL O LINE 1009 "regression-compile-tmp/hal7502.imp" @ PUSH ATYPE N PUSHI #0x00000001 U NEGATE S ASSVAL O LINE 1009 "regression-compile-tmp/hal7502.imp" @ PUSH CREG N PUSHI #0x00000001 U NEGATE S ASSVAL 1010 I = TEMPS O LINE 1010 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH TEMPS S ASSVAL 1011 %RETURN %IF I = 0 O LINE 1011 "regression-compile-tmp/hal7502.imp" @ PUSH I N PUSHI #0x00000000 ? JUMPIF # L_0004 R RETURN : LOCATE L_0004 1012 %CYCLE O LINE 1012 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 1013 ACC = ACC+1 O LINE 1013 "regression-compile-tmp/hal7502.imp" @ PUSH ACC @ PUSH ACC N PUSHI #0x00000001 + ADD S ASSVAL 1014 %RETURN %IF I&1 # 0 O LINE 1014 "regression-compile-tmp/hal7502.imp" @ PUSH I N PUSHI #0x00000001 & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 R RETURN : LOCATE L_0007 1015 I = I>>1 O LINE 1015 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH I N PUSHI #0x00000001 ] RSH S ASSVAL 1016 %REPEAT O LINE 1016 "regression-compile-tmp/hal7502.imp" B REPEAT L_0003 1017 %END 1018 1019 !MAIN PROGRAM 1020 1021 !RADIX 36 CONSTANTS O LINE 1017 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_SETACC {lev=2 --> 1} 1022 %OWNINTEGER B=2184, IF=9991, ELS=5950, E=5403, FIN=6907, ISH=10490 O LINE 1022 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00000888 $ DEF B p1=V_010a a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x00002707 $ DEF IF p1=V_010b a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x0000173e $ DEF ELS p1=V_010c a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x0000151b $ DEF E p1=V_010d a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x00001afb $ DEF FIN p1=V_010e a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x000028fa $ DEF ISH p1=V_010f a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 1023 %OWNINTEGER JUM=11642, P=17206, PS=17983, DEF=4605, END=6009 1024 O LINE 1023 "regression-compile-tmp/hal7502.imp" N PUSHI #0x00002d7a $ DEF JUM p1=V_0110 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x00004336 $ DEF P p1=V_0111 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x0000463f $ DEF PS p1=V_0112 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x000011fd $ DEF DEF p1=V_0113 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 N PUSHI #0x00001779 $ DEF END p1=V_0114 a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 1025 %INTEGER I,J,K 1026 !!%FAULT 19 ->ERR; !RECOGNITION ERROR 1027 !!%FAULT 9 ->BEND; !INPUT ENDED 1028 O LINE 1025 "regression-compile-tmp/hal7502.imp" $ DEF I p1=V_0115 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF J p1=V_0116 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF K p1=V_0117 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1029 %CYCLE I = 1,1,SBOUND O LINE 1029 "regression-compile-tmp/hal7502.imp" @ PUSH I N PUSHI #0x00000001 @ PUSH SBOUND N PUSHI #0x00000001 f FOR L_0003 1030 STORE(I) = 0 O LINE 1030 "regression-compile-tmp/hal7502.imp" @ PUSH STORE @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL 1031 %REPEAT O LINE 1031 "regression-compile-tmp/hal7502.imp" B REPEAT L_0003 : LOCATE L_0004 1032 CODEPOS = ADDR(STORE(1)) O LINE 1032 "regression-compile-tmp/hal7502.imp" @ PUSH CODEPOS @ PUSH ADDR @ PUSH STORE N PUSHI #0x00000001 a ACCESS p ASSPAR E CALL S ASSVAL 1033 MACLIM = (CODEPOS+20)<<1 O LINE 1033 "regression-compile-tmp/hal7502.imp" @ PUSH MACLIM @ PUSH CODEPOS N PUSHI #0x00000014 + ADD N PUSHI #0x00000001 [ LSH S ASSVAL 1034 STORELIM = ADDR(STORE(SBOUND)) O LINE 1034 "regression-compile-tmp/hal7502.imp" @ PUSH STORELIM @ PUSH ADDR @ PUSH STORE @ PUSH SBOUND a ACCESS p ASSPAR E CALL S ASSVAL 1035 NP = STORELIM O LINE 1035 "regression-compile-tmp/hal7502.imp" @ PUSH NP @ PUSH STORELIM S ASSVAL 1036 LABLIM = NP-60 O LINE 1036 "regression-compile-tmp/hal7502.imp" @ PUSH LABLIM @ PUSH NP N PUSHI #0x0000003c - SUB S ASSVAL 1037 BP = LABLIM O LINE 1037 "regression-compile-tmp/hal7502.imp" @ PUSH BP @ PUSH LABLIM S ASSVAL 1038 DEFLIM = STORELIM-(SBOUND>>2) O LINE 1038 "regression-compile-tmp/hal7502.imp" @ PUSH DEFLIM @ PUSH STORELIM @ PUSH SBOUND N PUSHI #0x00000002 ] RSH - SUB S ASSVAL 1039 DEFMIN = DEFLIM O LINE 1039 "regression-compile-tmp/hal7502.imp" @ PUSH DEFMIN @ PUSH DEFLIM S ASSVAL 1040 INTEGER(BP) = DEFLIM O LINE 1040 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH BP p ASSPAR E CALL @ PUSH DEFLIM S ASSVAL 1041 SELECT INPUT(PRE) O LINE 1041 "regression-compile-tmp/hal7502.imp" @ PUSH SELECTINPUT @ PUSH PRE p ASSPAR E CALL 1042 DO PASS: O LINE 1042 "regression-compile-tmp/hal7502.imp" L LABEL L_0118 1043 PUT WORD(0) %AND CONTROL=16_20 %IF PASS > 0 O LINE 1043 "regression-compile-tmp/hal7502.imp" @ PUSH PASS N PUSHI #0x00000000 ? JUMPIF <= L_0004 @ PUSH PUTWORD N PUSHI #0x00000000 p ASSPAR E CALL @ PUSH CONTROL N PUSHI #0x00000020 S ASSVAL : LOCATE L_0004 1044 STARTPOS = MACLIM O LINE 1044 "regression-compile-tmp/hal7502.imp" @ PUSH STARTPOS @ PUSH MACLIM S ASSVAL 1045 MP = 0 O LINE 1045 "regression-compile-tmp/hal7502.imp" @ PUSH MP N PUSHI #0x00000000 S ASSVAL 1046 ALMAX = DEFLIM O LINE 1046 "regression-compile-tmp/hal7502.imp" @ PUSH ALMAX @ PUSH DEFLIM S ASSVAL 1047 LABMIN = LABLIM O LINE 1047 "regression-compile-tmp/hal7502.imp" @ PUSH LABMIN @ PUSH LABLIM S ASSVAL 1048 ASSCOND = 1; SKIP = 0 O LINE 1048 "regression-compile-tmp/hal7502.imp" @ PUSH ASSCOND N PUSHI #0x00000001 S ASSVAL O LINE 1048 "regression-compile-tmp/hal7502.imp" @ PUSH SKIP N PUSHI #0x00000000 S ASSVAL 1049 LOCTYPE = MEMMASK+RELMASK; LOC = 0 O LINE 1049 "regression-compile-tmp/hal7502.imp" @ PUSH LOCTYPE @ PUSH MEMMASK @ PUSH RELMASK + ADD S ASSVAL O LINE 1049 "regression-compile-tmp/hal7502.imp" @ PUSH LOC N PUSHI #0x00000000 S ASSVAL 1050 SET ACC O LINE 1050 "regression-compile-tmp/hal7502.imp" @ PUSH SETACC E CALL 1051 READ: FSYM = ' '; FAULTPOS = 0 O LINE 1051 "regression-compile-tmp/hal7502.imp" L LABEL L_0119 O LINE 1051 "regression-compile-tmp/hal7502.imp" @ PUSH FSYM N PUSHI #0x00000020 S ASSVAL O LINE 1051 "regression-compile-tmp/hal7502.imp" @ PUSH FAULTPOS N PUSHI #0x00000000 S ASSVAL 1052 READ LINE O LINE 1052 "regression-compile-tmp/hal7502.imp" @ PUSH READLINE E CALL 1053 NEXT: O LINE 1053 "regression-compile-tmp/hal7502.imp" L LABEL L_011a 1054 DREG = -1 O LINE 1054 "regression-compile-tmp/hal7502.imp" @ PUSH DREG N PUSHI #0x00000001 U NEGATE S ASSVAL 1055 MODE = 0 O LINE 1055 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000000 S ASSVAL 1056 PEND = 0; COND = 0 O LINE 1056 "regression-compile-tmp/hal7502.imp" @ PUSH PEND N PUSHI #0x00000000 S ASSVAL O LINE 1056 "regression-compile-tmp/hal7502.imp" @ PUSH COND N PUSHI #0x00000000 S ASSVAL 1057 QSTART = QBASE; QLIM = QSTART O LINE 1057 "regression-compile-tmp/hal7502.imp" @ PUSH QSTART @ PUSH QBASE S ASSVAL O LINE 1057 "regression-compile-tmp/hal7502.imp" @ PUSH QLIM @ PUSH QSTART S ASSVAL 1058 FLAG = 0 O LINE 1058 "regression-compile-tmp/hal7502.imp" @ PUSH FLAG N PUSHI #0x00000000 S ASSVAL 1059 %IF S('$') %START O LINE 1059 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x00000024 p ASSPAR E CALL k bf L_0004 1060 ->NEWPAGE %IF SYM = '/' O LINE 1060 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000002f ? JUMPIF # L_0007 J JUMP L_011b : LOCATE L_0007 1061 ->ERR %IF %NOT TAG O LINE 1061 "regression-compile-tmp/hal7502.imp" @ PUSH TAG E CALL t bt L_0007 J JUMP L_011c : LOCATE L_0007 1062 ->ASSIF %IF TAG1 = IF O LINE 1062 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 @ PUSH IF ? JUMPIF # L_0007 J JUMP L_011d : LOCATE L_0007 1063 ->ASSELSE %IF TAG1 = ELS O LINE 1063 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 @ PUSH ELS ? JUMPIF # L_0007 J JUMP L_011e : LOCATE L_0007 1064 ->ASSFIN %IF TAG1 = FIN O LINE 1064 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 @ PUSH FIN ? JUMPIF # L_0007 J JUMP L_011f : LOCATE L_0007 1065 ->LEND %IF SKIP # 0 O LINE 1065 "regression-compile-tmp/hal7502.imp" @ PUSH SKIP N PUSHI #0x00000000 ? JUMPIF = L_0007 J JUMP L_0120 : LOCATE L_0007 1066 ->DEFINE %IF TAG1 = DEF O LINE 1066 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 @ PUSH DEF ? JUMPIF # L_0007 J JUMP L_0121 : LOCATE L_0007 1067 ->DEFINE %IF TAG1 = 19625; !RED O LINE 1067 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 N PUSHI #0x00004ca9 ? JUMPIF # L_0007 J JUMP L_0121 : LOCATE L_0007 1068 ->LISTC %IF TAG1 = 13350; !LIS O LINE 1068 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 N PUSHI #0x00003426 ? JUMPIF # L_0007 J JUMP L_0122 : LOCATE L_0007 1069 ->TEMP %IF TAG1 = 21780; !TEM O LINE 1069 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 N PUSHI #0x00005514 ? JUMPIF # L_0007 J JUMP L_0123 : LOCATE L_0007 1070 ->LOCC %IF TAG1 = 13556; !LOC O LINE 1070 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 N PUSHI #0x000034f4 ? JUMPIF # L_0007 J JUMP L_0124 : LOCATE L_0007 1071 ->LOCC %IF TAG1 = 1917; !ASS O LINE 1071 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 N PUSHI #0x0000077d ? JUMPIF # L_0007 J JUMP L_0124 : LOCATE L_0007 1072 ->SAVC %IF TAG1 = 20568; !SAV O LINE 1072 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 N PUSHI #0x00005058 ? JUMPIF # L_0007 J JUMP L_0125 : LOCATE L_0007 1073 ->MACDEF %IF TAG1 = 14111; !MAC O LINE 1073 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 N PUSHI #0x0000371f ? JUMPIF # L_0007 J JUMP L_0126 : LOCATE L_0007 1074 ->BEGIN %IF TAG1 = 2460; !BEG O LINE 1074 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 N PUSHI #0x0000099c ? JUMPIF # L_0007 J JUMP L_0127 : LOCATE L_0007 1075 ->BEND %IF TAG1 = END O LINE 1075 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 @ PUSH END ? JUMPIF # L_0007 J JUMP L_0128 : LOCATE L_0007 1076 FAULT('U') O LINE 1076 "regression-compile-tmp/hal7502.imp" @ PUSH FAULT N PUSHI #0x00000055 p ASSPAR E CALL 1077 ->LEND O LINE 1077 "regression-compile-tmp/hal7502.imp" J JUMP L_0120 1078 %FINISH O LINE 1078 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 1079 ->LEND %IF SKIP # 0 %OR SYM = '/' O LINE 1079 "regression-compile-tmp/hal7502.imp" @ PUSH SKIP N PUSHI #0x00000000 ? JUMPIF # L_0005 @ PUSH SYM N PUSHI #0x0000002f ? JUMPIF # L_0004 : LOCATE L_0005 J JUMP L_0120 : LOCATE L_0004 1080 %IF SYM = NL %START O LINE 1080 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000000a ? JUMPIF # L_0004 1081 ->LEND %IF LINES < 54 O LINE 1081 "regression-compile-tmp/hal7502.imp" @ PUSH LINES N PUSHI #0x00000036 ? JUMPIF >= L_0007 J JUMP L_0120 : LOCATE L_0007 1082 DO NEWLINE %WHILE LINES # 0 O LINE 1082 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 @ PUSH LINES N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH DONEWLINE E CALL B REPEAT L_0006 : LOCATE L_0007 1083 ->READ O LINE 1083 "regression-compile-tmp/hal7502.imp" J JUMP L_0119 1084 %FINISH O LINE 1084 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 1085 %IF TAG %START O LINE 1085 "regression-compile-tmp/hal7502.imp" @ PUSH TAG E CALL k bf L_0004 1086 ->LABDEF %IF TERM = ':' O LINE 1086 "regression-compile-tmp/hal7502.imp" @ PUSH TERM N PUSHI #0x0000003a ? JUMPIF # L_0007 J JUMP L_0129 : LOCATE L_0007 1087 MODE = 1 O LINE 1087 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000001 S ASSVAL 1088 ->ASSIGN %IF TERM = '(' %OR SYM = '=' O LINE 1088 "regression-compile-tmp/hal7502.imp" @ PUSH TERM N PUSHI #0x00000028 ? JUMPIF = L_0008 @ PUSH SYM N PUSHI #0x0000003d ? JUMPIF # L_0007 : LOCATE L_0008 J JUMP L_012a : LOCATE L_0007 1089 ->JUMP %IF TAG1 = JUM %AND (TAG2=P %OR TAG2=PS) O LINE 1089 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 @ PUSH JUM ? JUMPIF # L_0007 @ PUSH TAG2 @ PUSH P ? JUMPIF = L_0008 @ PUSH TAG2 @ PUSH PS ? JUMPIF # L_0007 : LOCATE L_0008 J JUMP L_012b : LOCATE L_0007 1090 ->IFC %IF TAG1 = IF O LINE 1090 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 @ PUSH IF ? JUMPIF # L_0007 J JUMP L_012c : LOCATE L_0007 1091 ->ELSE %IF TAG1 = ELS %AND TAG2 = E O LINE 1091 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 @ PUSH ELS ? JUMPIF # L_0007 @ PUSH TAG2 @ PUSH E ? JUMPIF # L_0007 J JUMP L_012d : LOCATE L_0007 1092 ->FINISH %IF TAG1 = FIN %AND TAG2 = ISH O LINE 1092 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 @ PUSH FIN ? JUMPIF # L_0007 @ PUSH TAG2 @ PUSH ISH ? JUMPIF # L_0007 J JUMP L_012e : LOCATE L_0007 1093 ->WHILE %IF TAG1 = 25106 %AND TAG2 = 13173 O LINE 1093 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 N PUSHI #0x00006212 ? JUMPIF # L_0007 @ PUSH TAG2 N PUSHI #0x00003375 ? JUMPIF # L_0007 J JUMP L_012f : LOCATE L_0007 1094 ->CYCLE %IF TAG1 = 4269 %AND TAG2 = 13173 O LINE 1094 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 N PUSHI #0x000010ad ? JUMPIF # L_0007 @ PUSH TAG2 N PUSHI #0x00003375 ? JUMPIF # L_0007 J JUMP L_0130 : LOCATE L_0007 1095 ->REPEAT %IF TAG1 = 19637 %AND TAG2 = 5544 O LINE 1095 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 N PUSHI #0x00004cb5 ? JUMPIF # L_0007 @ PUSH TAG2 N PUSHI #0x000015a8 ? JUMPIF # L_0007 J JUMP L_0131 : LOCATE L_0007 1096 MODE=-2 %AND ->DATA %IF TAG1 = B O LINE 1096 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 @ PUSH B ? JUMPIF # L_0007 @ PUSH MODE N PUSHI #0x00000002 U NEGATE S ASSVAL J JUMP L_0132 : LOCATE L_0007 1097 TYPE = UMASK; LOOKUP(0) O LINE 1097 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH UMASK S ASSVAL O LINE 1097 "regression-compile-tmp/hal7502.imp" @ PUSH LOOKUP N PUSHI #0x00000000 p ASSPAR E CALL 1098 ->MACCALL %IF TYPE&OPMASK = MACRO O LINE 1098 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH OPMASK & AND @ PUSH MACRO ? JUMPIF # L_0007 J JUMP L_0133 : LOCATE L_0007 1099 ->MINST %IF TYPE&OPMASK # 0 O LINE 1099 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH OPMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 J JUMP L_0134 : LOCATE L_0007 1100 FAULT('U') %AND ->LEND %IF TYPE&UMASK # 0 O LINE 1100 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH UMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH FAULT N PUSHI #0x00000055 p ASSPAR E CALL J JUMP L_0120 : LOCATE L_0007 1101 PEND = -1 O LINE 1101 "regression-compile-tmp/hal7502.imp" @ PUSH PEND N PUSHI #0x00000001 U NEGATE S ASSVAL 1102 %FINISH O LINE 1102 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 1103 MODE = -1 O LINE 1103 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000001 U NEGATE S ASSVAL 1104 DATA: O LINE 1104 "regression-compile-tmp/hal7502.imp" L LABEL L_0132 1105 %CYCLE O LINE 1105 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 1106 GET EXP; ASSEMBLE O LINE 1106 "regression-compile-tmp/hal7502.imp" @ PUSH GETEXP E CALL O LINE 1106 "regression-compile-tmp/hal7502.imp" @ PUSH ASSEMBLE E CALL 1107 FAULT('I') %IF TYPE®XMASK # 0 O LINE 1107 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH REGXMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH FAULT N PUSHI #0x00000049 p ASSPAR E CALL : LOCATE L_0007 1108 I = 1 O LINE 1108 "regression-compile-tmp/hal7502.imp" @ PUSH I N PUSHI #0x00000001 S ASSVAL 1109 %IF S('$') %START O LINE 1109 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x00000024 p ASSPAR E CALL k bf L_0007 1110 I = VAL %IF VAL < 1000 O LINE 1110 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x000003e8 ? JUMPIF >= L_000a @ PUSH I @ PUSH VAL S ASSVAL : LOCATE L_000a 1111 QLIM = QSTART O LINE 1111 "regression-compile-tmp/hal7502.imp" @ PUSH QLIM @ PUSH QSTART S ASSVAL 1112 GET EXP; ASSEMBLE O LINE 1112 "regression-compile-tmp/hal7502.imp" @ PUSH GETEXP E CALL O LINE 1112 "regression-compile-tmp/hal7502.imp" @ PUSH ASSEMBLE E CALL 1113 %FINISH O LINE 1113 "regression-compile-tmp/hal7502.imp" : LOCATE L_0007 1114 %WHILE I > 0 %CYCLE O LINE 1114 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 @ PUSH I N PUSHI #0x00000000 ? JUMPIF <= L_0007 1115 %IF MODE # -1 %START O LINE 1115 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000001 U NEGATE ? JUMPIF = L_000a 1116 FAULT('T') %IF VAL&16_FF00 # 0 O LINE 1116 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x0000ff00 & AND N PUSHI #0x00000000 ? JUMPIF = L_000d @ PUSH FAULT N PUSHI #0x00000054 p ASSPAR E CALL : LOCATE L_000d 1117 %IF MODE = -2 %START O LINE 1117 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000002 U NEGATE ? JUMPIF # L_000d 1118 J = VAL<<8; MODE = -3 O LINE 1118 "regression-compile-tmp/hal7502.imp" @ PUSH J @ PUSH VAL N PUSHI #0x00000008 [ LSH S ASSVAL O LINE 1118 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000003 U NEGATE S ASSVAL 1119 %finish %ELSE %START O LINE 1119 "regression-compile-tmp/hal7502.imp" F GOTO L_000c : LOCATE L_000d 1120 VAL = VAL+J; MODE = -2 O LINE 1120 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH VAL @ PUSH J + ADD S ASSVAL O LINE 1120 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000002 U NEGATE S ASSVAL 1121 PLANT VAL O LINE 1121 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTVAL E CALL 1122 %FINISH O LINE 1122 "regression-compile-tmp/hal7502.imp" : LOCATE L_000c 1123 %finish %ELSE %START O LINE 1123 "regression-compile-tmp/hal7502.imp" F GOTO L_0009 : LOCATE L_000a 1124 PLANT VAL; VAL = VAL&255 O LINE 1124 "regression-compile-tmp/hal7502.imp" @ PUSH PLANTVAL E CALL O LINE 1124 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH VAL N PUSHI #0x000000ff & AND S ASSVAL 1125 %FINISH O LINE 1125 "regression-compile-tmp/hal7502.imp" : LOCATE L_0009 1126 I = I-1 O LINE 1126 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH I N PUSHI #0x00000001 - SUB S ASSVAL 1127 %REPEAT O LINE 1127 "regression-compile-tmp/hal7502.imp" B REPEAT L_0006 : LOCATE L_0007 1128 %EXIT %UNLESS S(',') %OR SYM&128 # 0 O LINE 1128 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x0000002c p ASSPAR E CALL t bt L_0007 @ PUSH SYM N PUSHI #0x00000080 & AND N PUSHI #0x00000000 ? JUMPIF # L_0007 F GOTO L_0004 : LOCATE L_0007 1129 %IF SYM = NL %START O LINE 1129 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000000a ? JUMPIF # L_0007 1130 PRINT LINE %IF PRINTPOS # 0; READ LINE O LINE 1130 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTPOS N PUSHI #0x00000000 ? JUMPIF = L_000a @ PUSH PRINTLINE E CALL : LOCATE L_000a O LINE 1130 "regression-compile-tmp/hal7502.imp" @ PUSH READLINE E CALL 1131 QSTART = QBASE O LINE 1131 "regression-compile-tmp/hal7502.imp" @ PUSH QSTART @ PUSH QBASE S ASSVAL 1132 %FINISH O LINE 1132 "regression-compile-tmp/hal7502.imp" : LOCATE L_0007 1133 QLIM = QSTART O LINE 1133 "regression-compile-tmp/hal7502.imp" @ PUSH QLIM @ PUSH QSTART S ASSVAL 1134 %REPEAT O LINE 1134 "regression-compile-tmp/hal7502.imp" B REPEAT L_0003 : LOCATE L_0004 1135 VAL=J %AND PLANT VAL %IF MODE = -3 O LINE 1135 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000003 U NEGATE ? JUMPIF # L_0004 @ PUSH VAL @ PUSH J S ASSVAL @ PUSH PLANTVAL E CALL : LOCATE L_0004 1136 ->SEND 1137 O LINE 1136 "regression-compile-tmp/hal7502.imp" J JUMP L_0135 1138 LABDEF: O LINE 1138 "regression-compile-tmp/hal7502.imp" L LABEL L_0129 1139 CREG = -1; ATYPE = -1 O LINE 1139 "regression-compile-tmp/hal7502.imp" @ PUSH CREG N PUSHI #0x00000001 U NEGATE S ASSVAL O LINE 1139 "regression-compile-tmp/hal7502.imp" @ PUSH ATYPE N PUSHI #0x00000001 U NEGATE S ASSVAL 1140 GET SYM O LINE 1140 "regression-compile-tmp/hal7502.imp" @ PUSH GETSYM E CALL 1141 FAULT('C') %AND NP=STORELIM %IF NP # STORELIM O LINE 1141 "regression-compile-tmp/hal7502.imp" @ PUSH NP @ PUSH STORELIM ? JUMPIF = L_0004 @ PUSH FAULT N PUSHI #0x00000043 p ASSPAR E CALL @ PUSH NP @ PUSH STORELIM S ASSVAL : LOCATE L_0004 1142 TYPE = LOCTYPE; VAL = LOC O LINE 1142 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH LOCTYPE S ASSVAL O LINE 1142 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH LOC S ASSVAL 1143 LOOKUP(7) O LINE 1143 "regression-compile-tmp/hal7502.imp" @ PUSH LOOKUP N PUSHI #0x00000007 p ASSPAR E CALL 1144 ->NEXT 1145 O LINE 1144 "regression-compile-tmp/hal7502.imp" J JUMP L_011a 1146 ASSIGN: O LINE 1146 "regression-compile-tmp/hal7502.imp" L LABEL L_012a 1147 PEND = 1 O LINE 1147 "regression-compile-tmp/hal7502.imp" @ PUSH PEND N PUSHI #0x00000001 S ASSVAL 1148 GET EXP O LINE 1148 "regression-compile-tmp/hal7502.imp" @ PUSH GETEXP E CALL 1149 ->ERR %IF %NOT S('=') O LINE 1149 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x0000003d p ASSPAR E CALL t bt L_0004 J JUMP L_011c : LOCATE L_0004 1150 QUEUE(-25); !'STORE' O LINE 1150 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x00000019 U NEGATE p ASSPAR E CALL 1151 %IF INTEGER(QBASE) = REG %START O LINE 1151 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH QBASE p ASSPAR E CALL @ PUSH REG ? JUMPIF # L_0004 1152 DREG = INTEGER(QBASE+1) O LINE 1152 "regression-compile-tmp/hal7502.imp" @ PUSH DREG @ PUSH INTEGER @ PUSH QBASE N PUSHI #0x00000001 + ADD p ASSPAR E CALL S ASSVAL 1153 DUSE = 0 O LINE 1153 "regression-compile-tmp/hal7502.imp" @ PUSH DUSE N PUSHI #0x00000000 S ASSVAL 1154 %FINISH O LINE 1154 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 1155 QSTART = QLIM; MODE = 2 O LINE 1155 "regression-compile-tmp/hal7502.imp" @ PUSH QSTART @ PUSH QLIM S ASSVAL O LINE 1155 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000002 S ASSVAL 1156 GET EXP O LINE 1156 "regression-compile-tmp/hal7502.imp" @ PUSH GETEXP E CALL 1157 QUEUE(-24); !'LOAD' 1158 O LINE 1157 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x00000018 U NEGATE p ASSPAR E CALL 1159 CONDQ: O LINE 1159 "regression-compile-tmp/hal7502.imp" L LABEL L_0136 1160 %IF TAGIF %START O LINE 1160 "regression-compile-tmp/hal7502.imp" @ PUSH TAGIF E CALL k bf L_0004 1161 MODE = MODE+4; DREG = DREG-16; !SCARIFY O LINE 1161 "regression-compile-tmp/hal7502.imp" @ PUSH MODE @ PUSH MODE N PUSHI #0x00000004 + ADD S ASSVAL O LINE 1161 "regression-compile-tmp/hal7502.imp" @ PUSH DREG @ PUSH DREG N PUSHI #0x00000010 - SUB S ASSVAL 1162 GET COND; ASSEMBLE O LINE 1162 "regression-compile-tmp/hal7502.imp" @ PUSH GETCOND E CALL O LINE 1162 "regression-compile-tmp/hal7502.imp" @ PUSH ASSEMBLE E CALL 1163 MODE = MODE-4; DREG = DREG+16; !RESTORE O LINE 1163 "regression-compile-tmp/hal7502.imp" @ PUSH MODE @ PUSH MODE N PUSHI #0x00000004 - SUB S ASSVAL O LINE 1163 "regression-compile-tmp/hal7502.imp" @ PUSH DREG @ PUSH DREG N PUSHI #0x00000010 + ADD S ASSVAL 1164 QLIM = QSTART; QSTART = TRANSF O LINE 1164 "regression-compile-tmp/hal7502.imp" @ PUSH QLIM @ PUSH QSTART S ASSVAL O LINE 1164 "regression-compile-tmp/hal7502.imp" @ PUSH QSTART @ PUSH TRANSF S ASSVAL 1165 %FINISH O LINE 1165 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 1166 ASSEMBLE O LINE 1166 "regression-compile-tmp/hal7502.imp" @ PUSH ASSEMBLE E CALL 1167 ->SEND 1168 O LINE 1167 "regression-compile-tmp/hal7502.imp" J JUMP L_0135 1169 JUMP: O LINE 1169 "regression-compile-tmp/hal7502.imp" L LABEL L_012b 1170 FLAG = TAG2-P; !POSITIVE IF SHORT O LINE 1170 "regression-compile-tmp/hal7502.imp" @ PUSH FLAG @ PUSH TAG2 @ PUSH P - SUB S ASSVAL 1171 GET EXP O LINE 1171 "regression-compile-tmp/hal7502.imp" @ PUSH GETEXP E CALL 1172 QUEUE(-26); !'JUMP' O LINE 1172 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x0000001a U NEGATE p ASSPAR E CALL 1173 ->CONDQ 1174 O LINE 1173 "regression-compile-tmp/hal7502.imp" J JUMP L_0136 1175 MINST: O LINE 1175 "regression-compile-tmp/hal7502.imp" L LABEL L_0134 1176 MODE = -1 O LINE 1176 "regression-compile-tmp/hal7502.imp" @ PUSH MODE N PUSHI #0x00000001 U NEGATE S ASSVAL 1177 GET INST O LINE 1177 "regression-compile-tmp/hal7502.imp" @ PUSH GETINST E CALL 1178 QUEUE(-23); !'PLANT' O LINE 1178 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x00000017 U NEGATE p ASSPAR E CALL 1179 ->CONDQ 1180 O LINE 1179 "regression-compile-tmp/hal7502.imp" J JUMP L_0136 1181 MACCALL: O LINE 1181 "regression-compile-tmp/hal7502.imp" L LABEL L_0133 1182 QUEUE(VAL); !DEFPOS O LINE 1182 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH VAL p ASSPAR E CALL 1183 QUEUE(TYPE&1023); !JOKER O LINE 1183 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH TYPE N PUSHI #0x000003ff & AND p ASSPAR E CALL 1184 QUEUE(0); !(CALLPOS) O LINE 1184 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x00000000 p ASSPAR E CALL 1185 QUEUE(STARTPOS) O LINE 1185 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH STARTPOS p ASSPAR E CALL 1186 QUEUE(MP) O LINE 1186 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH MP p ASSPAR E CALL 1187 %CYCLE O LINE 1187 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 1188 %EXIT %IF CHAR(INTEGER(QBASE)) = NL; !END OF MAC DEF O LINE 1188 "regression-compile-tmp/hal7502.imp" @ PUSH CHAR @ PUSH INTEGER @ PUSH QBASE p ASSPAR E CALL p ASSPAR E CALL N PUSHI #0x0000000a ? JUMPIF # L_0007 F GOTO L_0004 : LOCATE L_0007 1189 I = GETPOS-1; !SAVE CALLPOS O LINE 1189 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH GETPOS N PUSHI #0x00000001 - SUB S ASSVAL 1190 GETPOS = INTEGER(QBASE); GET SYM 1191 !!%MONITOR 24 %IF %NOT TAG O LINE 1190 "regression-compile-tmp/hal7502.imp" @ PUSH GETPOS @ PUSH INTEGER @ PUSH QBASE p ASSPAR E CALL S ASSVAL O LINE 1190 "regression-compile-tmp/hal7502.imp" @ PUSH GETSYM E CALL 1192 TYPE = 0; VAL = 0 O LINE 1192 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL O LINE 1192 "regression-compile-tmp/hal7502.imp" @ PUSH VAL N PUSHI #0x00000000 S ASSVAL 1193 SCAN ARG O LINE 1193 "regression-compile-tmp/hal7502.imp" @ PUSH SCANARG E CALL 1194 GET SYM %IF SYM = ',' O LINE 1194 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000002c ? JUMPIF # L_0007 @ PUSH GETSYM E CALL : LOCATE L_0007 1195 INTEGER(QBASE) = GETPOS-1; !UPDATE DEFPOS O LINE 1195 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH QBASE p ASSPAR E CALL @ PUSH GETPOS N PUSHI #0x00000001 - SUB S ASSVAL 1196 GETPOS = I; GET SYM; !RESTORE CALLPOS O LINE 1196 "regression-compile-tmp/hal7502.imp" @ PUSH GETPOS @ PUSH I S ASSVAL O LINE 1196 "regression-compile-tmp/hal7502.imp" @ PUSH GETSYM E CALL 1197 SCAN ARG O LINE 1197 "regression-compile-tmp/hal7502.imp" @ PUSH SCANARG E CALL 1198 GET SYM %IF SYM = ',' O LINE 1198 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000002c ? JUMPIF # L_0007 @ PUSH GETSYM E CALL : LOCATE L_0007 1199 QUEUE(TAG1); QUEUE(TAG2) O LINE 1199 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH TAG1 p ASSPAR E CALL O LINE 1199 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH TAG2 p ASSPAR E CALL 1200 QUEUE(TYPE); QUEUE(VAL) O LINE 1200 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH TYPE p ASSPAR E CALL O LINE 1200 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH VAL p ASSPAR E CALL 1201 %REPEAT O LINE 1201 "regression-compile-tmp/hal7502.imp" B REPEAT L_0003 : LOCATE L_0004 1202 GET SYM %IF SYM = ' ' O LINE 1202 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x00000020 ? JUMPIF # L_0004 @ PUSH GETSYM E CALL : LOCATE L_0004 1203 %IF TAGIF %START O LINE 1203 "regression-compile-tmp/hal7502.imp" @ PUSH TAGIF E CALL k bf L_0004 1204 GET COND; QUEUE(-18); ASSEMBLE O LINE 1204 "regression-compile-tmp/hal7502.imp" @ PUSH GETCOND E CALL O LINE 1204 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x00000012 U NEGATE p ASSPAR E CALL O LINE 1204 "regression-compile-tmp/hal7502.imp" @ PUSH ASSEMBLE E CALL 1205 QLIM = QSTART O LINE 1205 "regression-compile-tmp/hal7502.imp" @ PUSH QLIM @ PUSH QSTART S ASSVAL 1206 INTEGER(QBASE+1) = INTEGER(QBASE+1)+16_8000 O LINE 1206 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH QBASE N PUSHI #0x00000001 + ADD p ASSPAR E CALL @ PUSH INTEGER @ PUSH QBASE N PUSHI #0x00000001 + ADD p ASSPAR E CALL N PUSHI #0x00008000 + ADD S ASSVAL 1207 %FINISH O LINE 1207 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 1208 QUEUE(0) O LINE 1208 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x00000000 p ASSPAR E CALL 1209 MP = QBASE; STARTPOS = QLIM<<1 O LINE 1209 "regression-compile-tmp/hal7502.imp" @ PUSH MP @ PUSH QBASE S ASSVAL O LINE 1209 "regression-compile-tmp/hal7502.imp" @ PUSH STARTPOS @ PUSH QLIM N PUSHI #0x00000001 [ LSH S ASSVAL 1210 INTEGER(MP) = INTEGER(MP)+1 O LINE 1210 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH MP p ASSPAR E CALL @ PUSH INTEGER @ PUSH MP p ASSPAR E CALL N PUSHI #0x00000001 + ADD S ASSVAL 1211 INTEGER(MP+2) = GETPOS-1 O LINE 1211 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH MP N PUSHI #0x00000002 + ADD p ASSPAR E CALL @ PUSH GETPOS N PUSHI #0x00000001 - SUB S ASSVAL 1212 PRINT LINE %IF PRINTPOS # 0 %AND LIST&2 # 0 O LINE 1212 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTPOS N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH LIST N PUSHI #0x00000002 & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH PRINTLINE E CALL : LOCATE L_0004 1213 ->READ 1214 1215 !CODING OF JUMPS: 1000 (SINGLE INST), 2000 (MAIN IF) 1216 ! 4000 (ELSE), 6000 (IF AFTER ELSE) 1217 O LINE 1213 "regression-compile-tmp/hal7502.imp" J JUMP L_0119 1218 IFC: O LINE 1218 "regression-compile-tmp/hal7502.imp" L LABEL L_012c 1219 GET COND; QUEUE(-15); ASSEMBLE O LINE 1219 "regression-compile-tmp/hal7502.imp" @ PUSH GETCOND E CALL O LINE 1219 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x0000000f U NEGATE p ASSPAR E CALL O LINE 1219 "regression-compile-tmp/hal7502.imp" @ PUSH ASSEMBLE E CALL 1220 ->SEND 1221 O LINE 1220 "regression-compile-tmp/hal7502.imp" J JUMP L_0135 1222 ELSE: O LINE 1222 "regression-compile-tmp/hal7502.imp" L LABEL L_012d 1223 ->CERR %IF INTEGER(NP)&16_2000 = 0 O LINE 1223 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH NP p ASSPAR E CALL N PUSHI #0x00002000 & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 J JUMP L_0137 : LOCATE L_0004 1224 QUEUE(0); QUEUE(0) O LINE 1224 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x00000000 p ASSPAR E CALL O LINE 1224 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x00000000 p ASSPAR E CALL 1225 QUEUE(-16); ASSEMBLE O LINE 1225 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x00000010 U NEGATE p ASSPAR E CALL O LINE 1225 "regression-compile-tmp/hal7502.imp" @ PUSH ASSEMBLE E CALL 1226 ATYPE = -1; CREG = -1 O LINE 1226 "regression-compile-tmp/hal7502.imp" @ PUSH ATYPE N PUSHI #0x00000001 U NEGATE S ASSVAL O LINE 1226 "regression-compile-tmp/hal7502.imp" @ PUSH CREG N PUSHI #0x00000001 U NEGATE S ASSVAL 1227 %IF TAGIF %START O LINE 1227 "regression-compile-tmp/hal7502.imp" @ PUSH TAGIF E CALL k bf L_0004 1228 GET COND; QUEUE(-17); ASSEMBLE O LINE 1228 "regression-compile-tmp/hal7502.imp" @ PUSH GETCOND E CALL O LINE 1228 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x00000011 U NEGATE p ASSPAR E CALL O LINE 1228 "regression-compile-tmp/hal7502.imp" @ PUSH ASSEMBLE E CALL 1229 %FINISH O LINE 1229 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 1230 ->SEND 1231 O LINE 1230 "regression-compile-tmp/hal7502.imp" J JUMP L_0135 1232 FINISH: O LINE 1232 "regression-compile-tmp/hal7502.imp" L LABEL L_012e 1233 ->CERR %IF INTEGER(NP)&16_6000 = 0 O LINE 1233 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH NP p ASSPAR E CALL N PUSHI #0x00006000 & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 J JUMP L_0137 : LOCATE L_0004 1234 I = LOC O LINE 1234 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH LOC S ASSVAL 1235 %WHILE INTEGER(NP)&16_4000 # 0 %CYCLE O LINE 1235 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 @ PUSH INTEGER @ PUSH NP p ASSPAR E CALL N PUSHI #0x00004000 & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 1236 %IF INTEGER(NP)&16_2000 # 0 %START; !IF AFTER ELSE O LINE 1236 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH NP p ASSPAR E CALL N PUSHI #0x00002000 & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 1237 SET LAB(I) O LINE 1237 "regression-compile-tmp/hal7502.imp" @ PUSH SETLAB @ PUSH I p ASSPAR E CALL 1238 %finish %ELSE %START O LINE 1238 "regression-compile-tmp/hal7502.imp" F GOTO L_0006 : LOCATE L_0007 1239 SET LAB(LOC) O LINE 1239 "regression-compile-tmp/hal7502.imp" @ PUSH SETLAB @ PUSH LOC p ASSPAR E CALL 1240 I = VAL+1 O LINE 1240 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH VAL N PUSHI #0x00000001 + ADD S ASSVAL 1241 %FINISH O LINE 1241 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 1242 %REPEAT O LINE 1242 "regression-compile-tmp/hal7502.imp" B REPEAT L_0003 : LOCATE L_0004 1243 SET LAB(I) O LINE 1243 "regression-compile-tmp/hal7502.imp" @ PUSH SETLAB @ PUSH I p ASSPAR E CALL 1244 ->SEND 1245 O LINE 1244 "regression-compile-tmp/hal7502.imp" J JUMP L_0135 1246 WHILE: O LINE 1246 "regression-compile-tmp/hal7502.imp" L LABEL L_012f 1247 I = LOC; ATYPE = -1; CREG = -1 O LINE 1247 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH LOC S ASSVAL O LINE 1247 "regression-compile-tmp/hal7502.imp" @ PUSH ATYPE N PUSHI #0x00000001 U NEGATE S ASSVAL O LINE 1247 "regression-compile-tmp/hal7502.imp" @ PUSH CREG N PUSHI #0x00000001 U NEGATE S ASSVAL 1248 GET COND; QUEUE(-13); ASSEMBLE O LINE 1248 "regression-compile-tmp/hal7502.imp" @ PUSH GETCOND E CALL O LINE 1248 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x0000000d U NEGATE p ASSPAR E CALL O LINE 1248 "regression-compile-tmp/hal7502.imp" @ PUSH ASSEMBLE E CALL 1249 NEST(I); NEST(1) O LINE 1249 "regression-compile-tmp/hal7502.imp" @ PUSH NEST @ PUSH I p ASSPAR E CALL O LINE 1249 "regression-compile-tmp/hal7502.imp" @ PUSH NEST N PUSHI #0x00000001 p ASSPAR E CALL 1250 ->SEND 1251 O LINE 1250 "regression-compile-tmp/hal7502.imp" J JUMP L_0135 1252 CYCLE: O LINE 1252 "regression-compile-tmp/hal7502.imp" L LABEL L_0130 1253 NEST(LOC); NEST(1) O LINE 1253 "regression-compile-tmp/hal7502.imp" @ PUSH NEST @ PUSH LOC p ASSPAR E CALL O LINE 1253 "regression-compile-tmp/hal7502.imp" @ PUSH NEST N PUSHI #0x00000001 p ASSPAR E CALL 1254 ->SEND 1255 O LINE 1254 "regression-compile-tmp/hal7502.imp" J JUMP L_0135 1256 REPEAT: O LINE 1256 "regression-compile-tmp/hal7502.imp" L LABEL L_0131 1257 ->CERR %IF INTEGER(NP) # 1 O LINE 1257 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH NP p ASSPAR E CALL N PUSHI #0x00000001 ? JUMPIF = L_0004 J JUMP L_0137 : LOCATE L_0004 1258 QUEUE(LOCTYPE); QUEUE(INTEGER(NP+1)) O LINE 1258 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH LOCTYPE p ASSPAR E CALL O LINE 1258 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE @ PUSH INTEGER @ PUSH NP N PUSHI #0x00000001 + ADD p ASSPAR E CALL p ASSPAR E CALL 1259 NP = NP+2 O LINE 1259 "regression-compile-tmp/hal7502.imp" @ PUSH NP @ PUSH NP N PUSHI #0x00000002 + ADD S ASSVAL 1260 QUEUE(-26); !'JUMP' O LINE 1260 "regression-compile-tmp/hal7502.imp" @ PUSH QUEUE N PUSHI #0x0000001a U NEGATE p ASSPAR E CALL 1261 FLAG = -1 O LINE 1261 "regression-compile-tmp/hal7502.imp" @ PUSH FLAG N PUSHI #0x00000001 U NEGATE S ASSVAL 1262 ->CONDQ 1263 O LINE 1262 "regression-compile-tmp/hal7502.imp" J JUMP L_0136 1264 CERR: O LINE 1264 "regression-compile-tmp/hal7502.imp" L LABEL L_0137 1265 FAULT('C') O LINE 1265 "regression-compile-tmp/hal7502.imp" @ PUSH FAULT N PUSHI #0x00000043 p ASSPAR E CALL 1266 ->LEND 1267 O LINE 1266 "regression-compile-tmp/hal7502.imp" J JUMP L_0120 1268 SEND: O LINE 1268 "regression-compile-tmp/hal7502.imp" L LABEL L_0135 1269 SET LAB(LOC) %IF INTEGER(NP)&16_1000 # 0 O LINE 1269 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH NP p ASSPAR E CALL N PUSHI #0x00001000 & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH SETLAB @ PUSH LOC p ASSPAR E CALL : LOCATE L_0004 1270 ->LEND %IF SYM = NL O LINE 1270 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000000a ? JUMPIF # L_0004 J JUMP L_0120 : LOCATE L_0004 1271 ->NEXT %IF S(';') 1272 O LINE 1271 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x0000003b p ASSPAR E CALL k bf L_0004 J JUMP L_011a : LOCATE L_0004 1273 ERR:FSYM = 'F'; FAULTPOS = GETPOS-1 O LINE 1273 "regression-compile-tmp/hal7502.imp" L LABEL L_011c O LINE 1273 "regression-compile-tmp/hal7502.imp" @ PUSH FSYM N PUSHI #0x00000046 S ASSVAL O LINE 1273 "regression-compile-tmp/hal7502.imp" @ PUSH FAULTPOS @ PUSH GETPOS N PUSHI #0x00000001 - SUB S ASSVAL 1274 PRINTPOS = STARTPOS 1275 O LINE 1274 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTPOS @ PUSH STARTPOS S ASSVAL 1276 LEND: O LINE 1276 "regression-compile-tmp/hal7502.imp" L LABEL L_0120 1277 ->READ %IF SKIP # 0 %AND LIST&4 = 0 O LINE 1277 "regression-compile-tmp/hal7502.imp" @ PUSH SKIP N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH LIST N PUSHI #0x00000004 & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 J JUMP L_0119 : LOCATE L_0004 1278 ->READ %IF FSYM = ' ' %AND CHARS = 0 %AND %C 1279 (PRINTPOS = 0 %OR (MP#0 %AND LIST&2=0)) O LINE 1278 "regression-compile-tmp/hal7502.imp" @ PUSH FSYM N PUSHI #0x00000020 ? JUMPIF # L_0004 @ PUSH CHARS N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH PRINTPOS N PUSHI #0x00000000 ? JUMPIF = L_0005 @ PUSH MP N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH LIST N PUSHI #0x00000002 & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 : LOCATE L_0005 J JUMP L_0119 : LOCATE L_0004 1280 PRINT LINE O LINE 1280 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTLINE E CALL 1281 ->READ 1282 O LINE 1281 "regression-compile-tmp/hal7502.imp" J JUMP L_0119 1283 ASSIF: O LINE 1283 "regression-compile-tmp/hal7502.imp" L LABEL L_011d 1284 ASSCOND = ASSCOND<<1 O LINE 1284 "regression-compile-tmp/hal7502.imp" @ PUSH ASSCOND @ PUSH ASSCOND N PUSHI #0x00000001 [ LSH S ASSVAL 1285 ->LEND %IF SKIP # 0 O LINE 1285 "regression-compile-tmp/hal7502.imp" @ PUSH SKIP N PUSHI #0x00000000 ? JUMPIF = L_0004 J JUMP L_0120 : LOCATE L_0004 1286 A1: GET COND; ASSEMBLE O LINE 1286 "regression-compile-tmp/hal7502.imp" L LABEL L_0138 O LINE 1286 "regression-compile-tmp/hal7502.imp" @ PUSH GETCOND E CALL O LINE 1286 "regression-compile-tmp/hal7502.imp" @ PUSH ASSEMBLE E CALL 1287 SKIP = ASSCOND %IF COND # 0 O LINE 1287 "regression-compile-tmp/hal7502.imp" @ PUSH COND N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH SKIP @ PUSH ASSCOND S ASSVAL : LOCATE L_0004 1288 PRINT LINE %IF PRINTPOS # 0 O LINE 1288 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTPOS N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH PRINTLINE E CALL : LOCATE L_0004 1289 ->LEND 1290 O LINE 1289 "regression-compile-tmp/hal7502.imp" J JUMP L_0120 1291 ASSELSE: O LINE 1291 "regression-compile-tmp/hal7502.imp" L LABEL L_011e 1292 %IF SKIP = 0 %START O LINE 1292 "regression-compile-tmp/hal7502.imp" @ PUSH SKIP N PUSHI #0x00000000 ? JUMPIF # L_0004 1293 ->CERR %IF ASSCOND&1 # 0 O LINE 1293 "regression-compile-tmp/hal7502.imp" @ PUSH ASSCOND N PUSHI #0x00000001 & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 J JUMP L_0137 : LOCATE L_0007 1294 SKIP = ASSCOND O LINE 1294 "regression-compile-tmp/hal7502.imp" @ PUSH SKIP @ PUSH ASSCOND S ASSVAL 1295 %finish %ELSE %START O LINE 1295 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 1296 ->LEND %IF SKIP # ASSCOND O LINE 1296 "regression-compile-tmp/hal7502.imp" @ PUSH SKIP @ PUSH ASSCOND ? JUMPIF = L_0007 J JUMP L_0120 : LOCATE L_0007 1297 SKIP = 0 O LINE 1297 "regression-compile-tmp/hal7502.imp" @ PUSH SKIP N PUSHI #0x00000000 S ASSVAL 1298 ->A1 %IF TAGIF O LINE 1298 "regression-compile-tmp/hal7502.imp" @ PUSH TAGIF E CALL k bf L_0007 J JUMP L_0138 : LOCATE L_0007 1299 %FINISH O LINE 1299 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 1300 ASSCOND = ASSCOND+1 O LINE 1300 "regression-compile-tmp/hal7502.imp" @ PUSH ASSCOND @ PUSH ASSCOND N PUSHI #0x00000001 + ADD S ASSVAL 1301 ->LEND 1302 O LINE 1301 "regression-compile-tmp/hal7502.imp" J JUMP L_0120 1303 ASSFIN: O LINE 1303 "regression-compile-tmp/hal7502.imp" L LABEL L_011f 1304 ->CERR %IF ASSCOND = 1 O LINE 1304 "regression-compile-tmp/hal7502.imp" @ PUSH ASSCOND N PUSHI #0x00000001 ? JUMPIF # L_0004 J JUMP L_0137 : LOCATE L_0004 1305 ASSCOND = ASSCOND>>1 O LINE 1305 "regression-compile-tmp/hal7502.imp" @ PUSH ASSCOND @ PUSH ASSCOND N PUSHI #0x00000001 ] RSH S ASSVAL 1306 SKIP = 0 %IF SKIP>>1 = ASSCOND O LINE 1306 "regression-compile-tmp/hal7502.imp" @ PUSH SKIP N PUSHI #0x00000001 ] RSH @ PUSH ASSCOND ? JUMPIF # L_0004 @ PUSH SKIP N PUSHI #0x00000000 S ASSVAL : LOCATE L_0004 1307 ->LEND 1308 O LINE 1307 "regression-compile-tmp/hal7502.imp" J JUMP L_0120 1309 DEFINE: O LINE 1309 "regression-compile-tmp/hal7502.imp" L LABEL L_0121 1310 FAULT('C') %IF NP # STORELIM O LINE 1310 "regression-compile-tmp/hal7502.imp" @ PUSH NP @ PUSH STORELIM ? JUMPIF = L_0004 @ PUSH FAULT N PUSHI #0x00000043 p ASSPAR E CALL : LOCATE L_0004 1311 I = TAG1 O LINE 1311 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH TAG1 S ASSVAL 1312 %CYCLE O LINE 1312 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 1313 ->ERR %IF %NOT (TAG %AND S('=')) O LINE 1313 "regression-compile-tmp/hal7502.imp" @ PUSH TAG E CALL k bf L_0008 @ PUSH S N PUSHI #0x0000003d p ASSPAR E CALL t bt L_0007 : LOCATE L_0008 J JUMP L_011c : LOCATE L_0007 1314 J = TAG1; K = TAG2 O LINE 1314 "regression-compile-tmp/hal7502.imp" @ PUSH J @ PUSH TAG1 S ASSVAL O LINE 1314 "regression-compile-tmp/hal7502.imp" @ PUSH K @ PUSH TAG2 S ASSVAL 1315 %IF TAG %START O LINE 1315 "regression-compile-tmp/hal7502.imp" @ PUSH TAG E CALL k bf L_0007 1316 TYPE = UMASK; LOOKUP(0) O LINE 1316 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH UMASK S ASSVAL O LINE 1316 "regression-compile-tmp/hal7502.imp" @ PUSH LOOKUP N PUSHI #0x00000000 p ASSPAR E CALL 1317 %IF TYPE&OPMASK # 0 %START O LINE 1317 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH OPMASK & AND N PUSHI #0x00000000 ? JUMPIF = L_000a 1318 GET INST O LINE 1318 "regression-compile-tmp/hal7502.imp" @ PUSH GETINST E CALL 1319 %finish %ELSE %START O LINE 1319 "regression-compile-tmp/hal7502.imp" F GOTO L_0009 : LOCATE L_000a 1320 PEND = -1; GET EXP O LINE 1320 "regression-compile-tmp/hal7502.imp" @ PUSH PEND N PUSHI #0x00000001 U NEGATE S ASSVAL O LINE 1320 "regression-compile-tmp/hal7502.imp" @ PUSH GETEXP E CALL 1321 %FINISH O LINE 1321 "regression-compile-tmp/hal7502.imp" : LOCATE L_0009 1322 %finish %ELSE GET EXP O LINE 1322 "regression-compile-tmp/hal7502.imp" F GOTO L_0006 : LOCATE L_0007 @ PUSH GETEXP E CALL : LOCATE L_0006 1323 ASSEMBLE O LINE 1323 "regression-compile-tmp/hal7502.imp" @ PUSH ASSEMBLE E CALL 1324 TAG1 = J; TAG2 = K O LINE 1324 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 @ PUSH J S ASSVAL O LINE 1324 "regression-compile-tmp/hal7502.imp" @ PUSH TAG2 @ PUSH K S ASSVAL 1325 %IF I=DEF %THEN LOOKUP(3) %ELSE LOOKUP(2) O LINE 1325 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH DEF ? JUMPIF # L_0007 @ PUSH LOOKUP N PUSHI #0x00000003 p ASSPAR E CALL F GOTO L_0006 : LOCATE L_0007 @ PUSH LOOKUP N PUSHI #0x00000002 p ASSPAR E CALL : LOCATE L_0006 1326 %EXIT %UNLESS S(',') O LINE 1326 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x0000002c p ASSPAR E CALL t bt L_0007 F GOTO L_0004 : LOCATE L_0007 1327 QLIM = QSTART O LINE 1327 "regression-compile-tmp/hal7502.imp" @ PUSH QLIM @ PUSH QSTART S ASSVAL 1328 %REPEAT O LINE 1328 "regression-compile-tmp/hal7502.imp" B REPEAT L_0003 : LOCATE L_0004 1329 ->SEND 1330 O LINE 1329 "regression-compile-tmp/hal7502.imp" J JUMP L_0135 1331 NEWPAGE: O LINE 1331 "regression-compile-tmp/hal7502.imp" L LABEL L_011b 1332 DO NEWLINE %WHILE LINES # 0 O LINE 1332 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 @ PUSH LINES N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH DONEWLINE E CALL B REPEAT L_0003 : LOCATE L_0004 1333 ->LEND 1334 O LINE 1333 "regression-compile-tmp/hal7502.imp" J JUMP L_0120 1335 LISTC: O LINE 1335 "regression-compile-tmp/hal7502.imp" L LABEL L_0122 1336 GET EXP; ASSEMBLE O LINE 1336 "regression-compile-tmp/hal7502.imp" @ PUSH GETEXP E CALL O LINE 1336 "regression-compile-tmp/hal7502.imp" @ PUSH ASSEMBLE E CALL 1337 LIST = VAL O LINE 1337 "regression-compile-tmp/hal7502.imp" @ PUSH LIST @ PUSH VAL S ASSVAL 1338 ->SEND 1339 O LINE 1338 "regression-compile-tmp/hal7502.imp" J JUMP L_0135 1340 TEMP: O LINE 1340 "regression-compile-tmp/hal7502.imp" L LABEL L_0123 1341 I = 0 O LINE 1341 "regression-compile-tmp/hal7502.imp" @ PUSH I N PUSHI #0x00000000 S ASSVAL 1342 %IF SYM # NL %START O LINE 1342 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000000a ? JUMPIF = L_0004 1343 %CYCLE O LINE 1343 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 1344 GET EXP O LINE 1344 "regression-compile-tmp/hal7502.imp" @ PUSH GETEXP E CALL 1345 FAULT('I') %IF TYPE # REG O LINE 1345 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH REG ? JUMPIF = L_000a @ PUSH FAULT N PUSHI #0x00000049 p ASSPAR E CALL : LOCATE L_000a 1346 I = I!1<SEND 1353 O LINE 1352 "regression-compile-tmp/hal7502.imp" J JUMP L_0135 1354 LOCC: O LINE 1354 "regression-compile-tmp/hal7502.imp" L LABEL L_0124 1355 I = TAG1 O LINE 1355 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH TAG1 S ASSVAL 1356 GET EXP; ASSEMBLE O LINE 1356 "regression-compile-tmp/hal7502.imp" @ PUSH GETEXP E CALL O LINE 1356 "regression-compile-tmp/hal7502.imp" @ PUSH ASSEMBLE E CALL 1357 %IF TYPE&16_FF9F = 0 %START O LINE 1357 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE N PUSHI #0x0000ff9f & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 1358 LOCTYPE = TYPE&RELMASK+MEMMASK; LOC = VAL O LINE 1358 "regression-compile-tmp/hal7502.imp" @ PUSH LOCTYPE @ PUSH TYPE @ PUSH RELMASK & AND @ PUSH MEMMASK + ADD S ASSVAL O LINE 1358 "regression-compile-tmp/hal7502.imp" @ PUSH LOC @ PUSH VAL S ASSVAL 1359 PUT WORD(VAL-1) %AND CONTROL=16_30 %IF PASS > 0 O LINE 1359 "regression-compile-tmp/hal7502.imp" @ PUSH PASS N PUSHI #0x00000000 ? JUMPIF <= L_0007 @ PUSH PUTWORD @ PUSH VAL N PUSHI #0x00000001 - SUB p ASSPAR E CALL @ PUSH CONTROL N PUSHI #0x00000030 S ASSVAL : LOCATE L_0007 1360 %finish %ELSE FAULT('I') O LINE 1360 "regression-compile-tmp/hal7502.imp" F GOTO L_0003 : LOCATE L_0004 @ PUSH FAULT N PUSHI #0x00000049 p ASSPAR E CALL : LOCATE L_0003 1361 ->SEND 1362 O LINE 1361 "regression-compile-tmp/hal7502.imp" J JUMP L_0135 1363 SAVC: O LINE 1363 "regression-compile-tmp/hal7502.imp" L LABEL L_0125 1364 GET EXP; ASSEMBLE O LINE 1364 "regression-compile-tmp/hal7502.imp" @ PUSH GETEXP E CALL O LINE 1364 "regression-compile-tmp/hal7502.imp" @ PUSH ASSEMBLE E CALL 1365 SAVE = VAL O LINE 1365 "regression-compile-tmp/hal7502.imp" @ PUSH SAVE @ PUSH VAL S ASSVAL 1366 ->SEND 1367 O LINE 1366 "regression-compile-tmp/hal7502.imp" J JUMP L_0135 1368 MACDEF: O LINE 1368 "regression-compile-tmp/hal7502.imp" L LABEL L_0126 1369 ->CERR %IF MP # 0 O LINE 1369 "regression-compile-tmp/hal7502.imp" @ PUSH MP N PUSHI #0x00000000 ? JUMPIF = L_0004 J JUMP L_0137 : LOCATE L_0004 1370 ->ERR %IF %NOT TAG O LINE 1370 "regression-compile-tmp/hal7502.imp" @ PUSH TAG E CALL t bt L_0004 J JUMP L_011c : LOCATE L_0004 1371 J = TAG1; K = TAG2 O LINE 1371 "regression-compile-tmp/hal7502.imp" @ PUSH J @ PUSH TAG1 S ASSVAL O LINE 1371 "regression-compile-tmp/hal7502.imp" @ PUSH K @ PUSH TAG2 S ASSVAL 1372 I = GETPOS-1 O LINE 1372 "regression-compile-tmp/hal7502.imp" @ PUSH I @ PUSH GETPOS N PUSHI #0x00000001 - SUB S ASSVAL 1373 %IF SYM # NL %START O LINE 1373 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000000a ? JUMPIF = L_0004 1374 %CYCLE O LINE 1374 "regression-compile-tmp/hal7502.imp" : LOCATE L_0006 1375 ->ERR %IF %NOT TAG O LINE 1375 "regression-compile-tmp/hal7502.imp" @ PUSH TAG E CALL t bt L_000a J JUMP L_011c : LOCATE L_000a 1376 SCAN ARG O LINE 1376 "regression-compile-tmp/hal7502.imp" @ PUSH SCANARG E CALL 1377 %EXIT %IF %NOT S(',') O LINE 1377 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x0000002c p ASSPAR E CALL t bt L_000a F GOTO L_0007 : LOCATE L_000a 1378 %REPEAT O LINE 1378 "regression-compile-tmp/hal7502.imp" B REPEAT L_0006 : LOCATE L_0007 1379 %FINISH O LINE 1379 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 1380 ->ERR %IF SYM # NL O LINE 1380 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000000a ? JUMPIF = L_0004 J JUMP L_011c : LOCATE L_0004 1381 TAG1 = J; TAG2 = K O LINE 1381 "regression-compile-tmp/hal7502.imp" @ PUSH TAG1 @ PUSH J S ASSVAL O LINE 1381 "regression-compile-tmp/hal7502.imp" @ PUSH TAG2 @ PUSH K S ASSVAL 1382 TYPE = MACRO; VAL = I O LINE 1382 "regression-compile-tmp/hal7502.imp" @ PUSH TYPE @ PUSH MACRO S ASSVAL O LINE 1382 "regression-compile-tmp/hal7502.imp" @ PUSH VAL @ PUSH I S ASSVAL 1383 LOOKUP(3) O LINE 1383 "regression-compile-tmp/hal7502.imp" @ PUSH LOOKUP N PUSHI #0x00000003 p ASSPAR E CALL 1384 %CYCLE O LINE 1384 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 1385 PRINT LINE O LINE 1385 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTLINE E CALL 1386 %EXIT %IF S('$') %AND TAG %AND TAG1 = END O LINE 1386 "regression-compile-tmp/hal7502.imp" @ PUSH S N PUSHI #0x00000024 p ASSPAR E CALL k bf L_0007 @ PUSH TAG E CALL k bf L_0007 @ PUSH TAG1 @ PUSH END ? JUMPIF # L_0007 F GOTO L_0004 : LOCATE L_0007 1387 STARTPOS = PUTPOS O LINE 1387 "regression-compile-tmp/hal7502.imp" @ PUSH STARTPOS @ PUSH PUTPOS S ASSVAL 1388 STARTPOS = PSEUDOLIM+1 %IF PSEUDOLIM # 0 O LINE 1388 "regression-compile-tmp/hal7502.imp" @ PUSH PSEUDOLIM N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH STARTPOS @ PUSH PSEUDOLIM N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0007 1389 READ LINE O LINE 1389 "regression-compile-tmp/hal7502.imp" @ PUSH READLINE E CALL 1390 %REPEAT O LINE 1390 "regression-compile-tmp/hal7502.imp" B REPEAT L_0003 : LOCATE L_0004 1391 PUTPOS = STARTPOS; PUT CHAR(0) O LINE 1391 "regression-compile-tmp/hal7502.imp" @ PUSH PUTPOS @ PUSH STARTPOS S ASSVAL O LINE 1391 "regression-compile-tmp/hal7502.imp" @ PUSH PUTCHAR N PUSHI #0x00000000 p ASSPAR E CALL 1392 STARTPOS = PUTPOS O LINE 1392 "regression-compile-tmp/hal7502.imp" @ PUSH STARTPOS @ PUSH PUTPOS S ASSVAL 1393 MACLIM = STARTPOS O LINE 1393 "regression-compile-tmp/hal7502.imp" @ PUSH MACLIM @ PUSH STARTPOS S ASSVAL 1394 ->LEND 1395 O LINE 1394 "regression-compile-tmp/hal7502.imp" J JUMP L_0120 1396 %ROUTINE BNEST O LINE 1396 "regression-compile-tmp/hal7502.imp" $ DEF BNEST (_lev0id0_BNEST) p1=V_0139 a/tf=7 b/format=0 c/ostate=0 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 { START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} } FINISH ) {lev=2} 1397 BP = BP+4; !!%MONITOR 23 %IF BP-NP >= 0 O LINE 1397 "regression-compile-tmp/hal7502.imp" @ PUSH BP @ PUSH BP N PUSHI #0x00000004 + ADD S ASSVAL 1398 INTEGER(BP-3) = SAVE; INTEGER(BP-2) = TEMPS O LINE 1398 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH BP N PUSHI #0x00000003 - SUB p ASSPAR E CALL @ PUSH SAVE S ASSVAL O LINE 1398 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH BP N PUSHI #0x00000002 - SUB p ASSPAR E CALL @ PUSH TEMPS S ASSVAL 1399 INTEGER(BP-1) = MACLIM; INTEGER(BP) = DEFMIN O LINE 1399 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH BP N PUSHI #0x00000001 - SUB p ASSPAR E CALL @ PUSH MACLIM S ASSVAL O LINE 1399 "regression-compile-tmp/hal7502.imp" @ PUSH INTEGER @ PUSH BP p ASSPAR E CALL @ PUSH DEFMIN S ASSVAL 1400 %END 1401 O LINE 1400 "regression-compile-tmp/hal7502.imp" ; END _lev0id0_BNEST {lev=2 --> 1} 1402 BEGIN: O LINE 1402 "regression-compile-tmp/hal7502.imp" L LABEL L_0127 1403 BNEST O LINE 1403 "regression-compile-tmp/hal7502.imp" @ PUSH BNEST E CALL 1404 ->NEWPAGE %IF SYM # NL O LINE 1404 "regression-compile-tmp/hal7502.imp" @ PUSH SYM N PUSHI #0x0000000a ? JUMPIF = L_0004 J JUMP L_011b : LOCATE L_0004 1405 ->LEND 1406 O LINE 1405 "regression-compile-tmp/hal7502.imp" J JUMP L_0120 1407 BEND: O LINE 1407 "regression-compile-tmp/hal7502.imp" L LABEL L_0128 1408 FAULT('C') %IF NP # STORELIM %OR MP # 0 O LINE 1408 "regression-compile-tmp/hal7502.imp" @ PUSH NP @ PUSH STORELIM ? JUMPIF # L_0005 @ PUSH MP N PUSHI #0x00000000 ? JUMPIF = L_0004 : LOCATE L_0005 @ PUSH FAULT N PUSHI #0x00000043 p ASSPAR E CALL : LOCATE L_0004 1409 MP = 0; NP = STORELIM O LINE 1409 "regression-compile-tmp/hal7502.imp" @ PUSH MP N PUSHI #0x00000000 S ASSVAL O LINE 1409 "regression-compile-tmp/hal7502.imp" @ PUSH NP @ PUSH STORELIM S ASSVAL 1410 %IF BP # LABLIM %START O LINE 1410 "regression-compile-tmp/hal7502.imp" @ PUSH BP @ PUSH LABLIM ? JUMPIF = L_0004 1411 SAVE = INTEGER(BP-3); TEMPS = INTEGER(BP-2) O LINE 1411 "regression-compile-tmp/hal7502.imp" @ PUSH SAVE @ PUSH INTEGER @ PUSH BP N PUSHI #0x00000003 - SUB p ASSPAR E CALL S ASSVAL O LINE 1411 "regression-compile-tmp/hal7502.imp" @ PUSH TEMPS @ PUSH INTEGER @ PUSH BP N PUSHI #0x00000002 - SUB p ASSPAR E CALL S ASSVAL 1412 MACLIM = INTEGER(BP-1); STARTPOS = MACLIM O LINE 1412 "regression-compile-tmp/hal7502.imp" @ PUSH MACLIM @ PUSH INTEGER @ PUSH BP N PUSHI #0x00000001 - SUB p ASSPAR E CALL S ASSVAL O LINE 1412 "regression-compile-tmp/hal7502.imp" @ PUSH STARTPOS @ PUSH MACLIM S ASSVAL 1413 DEFMIN = INTEGER(BP) O LINE 1413 "regression-compile-tmp/hal7502.imp" @ PUSH DEFMIN @ PUSH INTEGER @ PUSH BP p ASSPAR E CALL S ASSVAL 1414 SET ACC O LINE 1414 "regression-compile-tmp/hal7502.imp" @ PUSH SETACC E CALL 1415 BP = BP-4 O LINE 1415 "regression-compile-tmp/hal7502.imp" @ PUSH BP @ PUSH BP N PUSHI #0x00000004 - SUB S ASSVAL 1416 ->LEND %IF BP # LABLIM O LINE 1416 "regression-compile-tmp/hal7502.imp" @ PUSH BP @ PUSH LABLIM ? JUMPIF = L_0007 J JUMP L_0120 : LOCATE L_0007 1417 %FINISH O LINE 1417 "regression-compile-tmp/hal7502.imp" : LOCATE L_0004 1418 CLOSE INPUT; SELECT INPUT(MAIN) O LINE 1418 "regression-compile-tmp/hal7502.imp" @ PUSH CLOSEINPUT E CALL O LINE 1418 "regression-compile-tmp/hal7502.imp" @ PUSH SELECTINPUT @ PUSH MAIN p ASSPAR E CALL 1419 BNEST O LINE 1419 "regression-compile-tmp/hal7502.imp" @ PUSH BNEST E CALL 1420 LIST = 5 O LINE 1420 "regression-compile-tmp/hal7502.imp" @ PUSH LIST N PUSHI #0x00000005 S ASSVAL 1421 PASS = PASS+1 O LINE 1421 "regression-compile-tmp/hal7502.imp" @ PUSH PASS @ PUSH PASS N PUSHI #0x00000001 + ADD S ASSVAL 1422 ->DO PASS %IF PASS # 2 1423 O LINE 1422 "regression-compile-tmp/hal7502.imp" @ PUSH PASS N PUSHI #0x00000002 ? JUMPIF = L_0004 J JUMP L_0118 : LOCATE L_0004 1424 PUT WORD(CHECK!!16_0100); CONTROL = 16_30 O LINE 1424 "regression-compile-tmp/hal7502.imp" @ PUSH PUTWORD @ PUSH CHECK N PUSHI #0x00000100 % XOR p ASSPAR E CALL O LINE 1424 "regression-compile-tmp/hal7502.imp" @ PUSH CONTROL N PUSHI #0x00000030 S ASSVAL 1425 PUT WORD(16_0100) O LINE 1425 "regression-compile-tmp/hal7502.imp" @ PUSH PUTWORD N PUSHI #0x00000100 p ASSPAR E CALL 1426 SELECT OUTPUT(BIN); PRINT CH(16_60); SELECT OUTPUT(LIS) O LINE 1426 "regression-compile-tmp/hal7502.imp" @ PUSH SELECTOUTPUT @ PUSH BIN p ASSPAR E CALL O LINE 1426 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTCH N PUSHI #0x00000060 p ASSPAR E CALL O LINE 1426 "regression-compile-tmp/hal7502.imp" @ PUSH SELECTOUTPUT @ PUSH LIS p ASSPAR E CALL 1427 FAULT('$') O LINE 1427 "regression-compile-tmp/hal7502.imp" @ PUSH FAULT N PUSHI #0x00000024 p ASSPAR E CALL 1428 PRINT LOC; PRINT LINE O LINE 1428 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTLOC E CALL O LINE 1428 "regression-compile-tmp/hal7502.imp" @ PUSH PRINTLINE E CALL 1429 LINES = 60 %IF OUTDEV = 1 O LINE 1429 "regression-compile-tmp/hal7502.imp" @ PUSH OUTDEV E CALL N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH LINES N PUSHI #0x0000003c S ASSVAL : LOCATE L_0004 1430 DO NEWLINE %WHILE LINES # 0 1431 O LINE 1430 "regression-compile-tmp/hal7502.imp" : LOCATE L_0003 @ PUSH LINES N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH DONEWLINE E CALL B REPEAT L_0003 : LOCATE L_0004 1432 %ENDOFPROGRAM O LINE 1432 "regression-compile-tmp/hal7502.imp" ; END _lev0id0 {lev=1 --> 0} ; END {lev=0 --> -1}