1 ! Missing COMREG, IOCP, CONSOURCE, LPUT, CPUTIME, NCODE 2 3 {%MAINEP ICL9CEZIMP 4 {%TRUSTEDPROGRAM 5 %BEGIN 6 !%string(127)%fn ITOS(%integer v,p) 7 ! %integer vv,q,pos 8 ! %byteintegerarray store(0:127) 9 ! 10 ! vv = v; vv = -vv %if vv > 0 11 ! pos = 127 12 ! %while vv <= -10 %cycle 13 ! q = vv//10 14 ! store(pos) = q*10-vv+'0'; pos = pos-1 15 ! vv = q 16 ! %repeat 17 ! store(pos) = '0'-vv 18 ! %if p <= 0 %start 19 ! p = 128+p 20 ! %else 21 ! p = 128-p 22 ! p = pos %if p > pos 23 ! p = p-1 24 ! %finish 25 ! pos = pos-1 %and store(pos) = '-' %if v < 0 26 ! %while pos > p %and pos > 1 %cycle 27 ! pos = pos-1; store(pos) = ' ' 28 ! %repeat 29 ! pos = pos-1; store(pos) = 127-pos 30 ! %result = string(addr(store(pos))) 31 !%end 32 33 !%integermap LONGINTEGER(%integer Addr) 34 ! %result == INTEGER(Addr) 35 !%end 36 !%routine pprofile 37 !%end 38 !%routine print ch(%integer I) 39 ! print symbol(I) 40 !%end 41 !%routine newpage 42 ! print ch(12) 43 !%end 44 !%integerfn IMOD(%integer I) 45 ! %result = |I| 46 !%end 47 !%realfn MOD(%real R) 48 ! %result = |R| 49 !%end 50 !%realfn FRACPT(%real r) 51 ! %result = r-INTPT(r) 52 !%end LINE 5 "regression-compile-tmp/nrimp10s-77.imp" BEGIN _lev0id0 {lev=0 --> 1} 53 %CONSTINTEGER RELEASE=10 LINE 53 "regression-compile-tmp/nrimp10s-77.imp" 54 %CONSTINTEGER YES=1,NO=0 LINE 54 "regression-compile-tmp/nrimp10s-77.imp" 55 %CONSTINTEGER USE IMP=YES LINE 55 "regression-compile-tmp/nrimp10s-77.imp" 56 %CONSTINTEGER VMEB=NO LINE 56 "regression-compile-tmp/nrimp10s-77.imp" 57 %CONSTSTRING(9) LADATE="28 Jan 81"; ! LAST ALTERED LINE 57 "regression-compile-tmp/nrimp10s-77.imp" PUSHS "28 Jan 81" DEF LADATE p1=V_0082 a/tf=31 b/format=9 c/ostate=12 type=3 (string) form=1 (simple) special=0 () linkage=2 (constant) spec=0 indirect=1 unass=0 INIT 1 58 %INTEGER I, J, K 59 ! PRODUCED BY OLDPS FROM NRIMPPS8 ON 16/12/80 LINE 58 "regression-compile-tmp/nrimp10s-77.imp" DEF I p1=V_0083 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_0084 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_0085 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 60 %CONSTBYTEINTEGERARRAY CLETT(0: 500)= 1, 61 43, 1, 45, 1, 40, 1, 41, 1, 44, 2, 201, 198, 6, 213, 62 206, 204, 197, 211, 211, 5, 215, 200, 201, 204, 197, 5, 213, 206, 63 212, 201, 204, 3, 198, 207, 210, 1, 61, 4, 210, 197, 193, 204, 64 7, 201, 206, 212, 197, 199, 197, 210, 8, 204, 207, 206, 199, 210, 65 197, 193, 204, 4, 204, 207, 206, 199, 11, 194, 217, 212, 197, 201, 66 206, 212, 197, 199, 197, 210, 6, 211, 212, 210, 201, 206, 199, 11, 67 200, 193, 204, 198, 201, 206, 212, 197, 199, 197, 210, 7, 210, 207, 68 213, 212, 201, 206, 197, 2, 198, 206, 3, 205, 193, 208, 8, 198, 69 213, 206, 195, 212, 201, 207, 206, 6, 210, 197, 195, 207, 210, 196, 70 4, 206, 193, 205, 197, 5, 193, 210, 210, 193, 217, 9, 193, 210, 71 210, 193, 217, 206, 193, 205, 197, 9, 207, 198, 208, 210, 207, 199, 72 210, 193, 205, 6, 207, 198, 198, 201, 204, 197, 6, 207, 198, 204, 73 201, 211, 212, 6, 198, 207, 210, 205, 193, 212, 4, 211, 208, 197, 74 195, 3, 206, 207, 212, 3, 193, 206, 196, 2, 207, 210, 1, 58, 75 6, 206, 207, 210, 205, 193, 204, 3, 207, 215, 206, 8, 197, 216, 76 212, 197, 210, 206, 193, 204, 9, 197, 216, 212, 210, 201, 206, 211, 77 201, 195, 8, 195, 207, 206, 211, 212, 193, 206, 212, 5, 195, 207, 78 206, 211, 212, 5, 197, 214, 197, 206, 212, 5, 211, 212, 193, 210, 79 212, 9, 212, 200, 197, 206, 211, 212, 193, 210, 212, 4, 212, 200, 80 197, 206, 9, 197, 204, 211, 197, 211, 212, 193, 210, 212, 4, 197, 81 204, 211, 197, 1, 95, 6, 211, 217, 211, 212, 197, 205, 7, 196, 82 217, 206, 193, 205, 201, 195, 2, 42, 61, 1, 42, 4, 80, 85, 83 84, 95, 5, 67, 78, 79, 80, 95, 2, 204, 61, 1, 60, 1, 84 62, 4, 40, 196, 210, 43, 2, 196, 210, 1, 194, 3, 212, 207, 85 211, 3, 204, 206, 194, 3, 216, 206, 194, 2, 208, 195, 3, 195, 86 212, 194, 2, 45, 62, 6, 210, 197, 212, 213, 210, 206, 6, 210, 87 197, 211, 213, 204, 212, 7, 205, 207, 206, 201, 212, 207, 210, 4, 88 211, 212, 207, 208, 6, 211, 201, 199, 206, 193, 204, 4, 197, 216, 89 201, 212, 8, 195, 207, 206, 212, 201, 206, 213, 197, 6, 198, 201, 90 206, 201, 211, 200, 5, 195, 217, 195, 204, 197, 6, 210, 197, 208, 91 197, 193, 212, 3, 197, 206, 196, 5, 210, 197, 193, 204, 211, 5, 92 194, 197, 199, 201, 206, 2, 207, 206, 6, 211, 215, 201, 212, 195, 93 200, 4, 204, 201, 211, 212, 7, 211, 208, 197, 195, 201, 193, 204, 94 14, 212, 210, 213, 211, 212, 197, 196, 208, 210, 207, 199, 210, 193, 95 205, 6, 205, 193, 201, 206, 197, 208, 7, 195, 207, 206, 212, 210, 96 207, 204, 7, 201, 206, 195, 204, 213, 196, 197; 97 98 99 100 LINE 60 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSHI #0x000001f4 BOUNDS DEF CLETT p1=V_0086 a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000001 INIT 1 PUSHI #0x0000002b INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x0000002d INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000028 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000029 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x0000002c INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000c6 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000000d5 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x000000d7 INIT 1 PUSHI #0x000000c8 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x000000d5 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x000000c6 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x0000003d INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0x0000000b INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0x000000d9 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0x0000000b INIT 1 PUSHI #0x000000c8 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x000000c6 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000d5 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x000000c6 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000d0 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x000000c6 INIT 1 PUSHI #0x000000d5 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000c4 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000d9 INIT 1 PUSHI #0x00000009 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000d9 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x00000009 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000c6 INIT 1 PUSHI #0x000000d0 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000c6 INIT 1 PUSHI #0x000000c6 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000c6 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000000c6 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d0 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c4 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x0000003a INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000d7 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000d8 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x00000009 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000d8 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000d6 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x00000009 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c8 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c8 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x00000009 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x0000005f INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d9 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x000000c4 INIT 1 PUSHI #0x000000d9 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x0000002a INIT 1 PUSHI #0x0000003d INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x0000002a INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000055 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x0000005f INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x0000005f INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x0000003d INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x0000003c INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x0000003e INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000028 INIT 1 PUSHI #0x000000c4 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x0000002b INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x000000c4 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x000000d8 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x000000d0 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x0000002d INIT 1 PUSHI #0x0000003e INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000d5 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d5 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000d0 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000d8 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000d5 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000000c6 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000c8 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000d9 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000d0 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c4 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d7 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000c8 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d0 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x0000000e INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000d5 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000c4 INIT 1 PUSHI #0x000000d0 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000000cd INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000d0 INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000cf INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000ce INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x000000d5 INIT 1 PUSHI #0x000000c4 INIT 1 PUSHI #0x000000c5 INIT 1 101 {%CONST}%ownINTEGERARRAY SYMBOL(1300: 2213)= 1307, 102 1303, 0, 1305, 2, 1307, 1000, 1319, 1312, 1001, 1357, 103 1824, 1315, 1003, 1020, 1319, 4, 1336, 6, 1329, 1323, 104 1001, 1014, 1325, 1003, 1329, 4, 1329, 6, 1336, 1336, 105 1010, 1028, 1319, 1011, 1350, 1343, 1343, 1010, 1028, 1307, 106 1011, 1343, 1350, 1348, 1026, 1307, 999, 1350, 1000, 1357, 107 1355, 1026, 1319, 999, 1357, 1000, 1365, 1363, 4, 1336, 108 1365, 6, 1365, 1000, 1372, 1370, 8, 1336, 999, 1372, 109 1000, 1377, 1375, 10, 1377, 13, 1401, 1384, 20, 1010, 110 1542, 1562, 1011, 1390, 26, 1010, 1542, 1562, 1011, 1401, 111 32, 1010, 1001, 36, 1336, 8, 1336, 8, 1336, 1011, 112 1408, 1406, 8, 1001, 999, 1408, 1000, 1415, 1411, 38, 113 1413, 43, 1415, 51, 1430, 1418, 43, 1420, 38, 1423, 114 60, 1408, 1425, 65, 1428, 77, 1925, 1430, 84, 1437, 115 1433, 96, 1437, 1031, 1415, 1437, 1444, 1440, 104, 1442, 116 107, 1444, 111, 1466, 1450, 1415, 1476, 1001, 1401, 1456, 117 120, 1466, 127, 1001, 1401, 1462, 1430, 1471, 1001, 1401, 118 1483, 1466, 127, 1001, 1401, 1471, 1469, 132, 1471, 1000, 119 1476, 1474, 127, 1476, 1000, 1483, 1479, 138, 1481, 127, 120 1483, 1000, 1493, 1491, 4, 1010, 1444, 1011, 1493, 6, 121 1493, 1000, 1502, 1500, 1030, 1010, 1444, 1011, 999, 1502, 122 1000, 1513, 1506, 148, 1016, 1508, 158, 1511, 165, 1018, 123 1513, 1016, 1518, 1516, 172, 1518, 1000, 1542, 1526, 172, 124 1001, 4, 1876, 1869, 6, 1535, 179, 1010, 1001, 1818, 125 1011, 4, 1001, 6, 1542, 1010, 1615, 1011, 4, 1001, 126 6, 1556, 1548, 1336, 1032, 1336, 1556, 1553, 4, 1542, 127 1562, 6, 1556, 184, 1542, 1562, 1560, 1037, 1336, 1562, 128 1000, 1573, 1567, 188, 1542, 1573, 1571, 192, 1542, 1580, 129 1573, 1000, 1580, 1578, 188, 1542, 999, 1580, 1000, 1587, 130 1585, 192, 1542, 999, 1587, 1000, 1595, 1591, 1033, 1336, 131 1593, 195, 1595, 1000, 1601, 1599, 179, 1008, 1601, 1015, 132 1606, 1604, 60, 1606, 197, 1615, 1613, 8, 1336, 195, 133 1336, 1606, 1615, 1000, 1624, 1620, 1476, 1001, 1401, 1624, 134 132, 1513, 1624, 1630, 1630, 1001, 1401, 1832, 1630, 1636, 135 1634, 8, 1624, 1636, 1000, 1652, 1646, 1476, 1010, 1001, 136 1401, 1840, 1011, 1652, 1006, 1652, 132, 1513, 1001, 1832, 137 1701, 1663, 1661, 8, 1010, 1001, 1401, 1840, 1011, 1652, 138 1663, 1000, 1674, 1666, 204, 1668, 208, 1670, 217, 1672, 139 227, 1674, 236, 1701, 1678, 1415, 1636, 1689, 120, 1476, 140 1010, 1001, 1401, 1011, 4, 1001, 6, 1006, 1701, 120, 141 132, 1513, 1010, 1001, 1832, 1011, 4, 1001, 6, 1006, 142 1711, 1709, 36, 1028, 1319, 1350, 1722, 1711, 1711, 1000, 143 1722, 1720, 8, 1012, 1028, 1319, 1350, 1722, 999, 1722, 144 1000, 1731, 1729, 4, 1028, 1319, 1350, 6, 1731, 1000, 145 1738, 1736, 8, 1009, 999, 1738, 1000, 1743, 1741, 242, 146 1743, 1000, 1749, 1747, 8, 1336, 1749, 1000, 1762, 1760, 147 8, 1001, 1401, 4, 1336, 195, 1336, 6, 999, 1762, 148 1000, 1769, 1767, 26, 1542, 1562, 1769, 1000, 1782, 1772, 149 1019, 1774, 1006, 1779, 1372, 1542, 1562, 1006, 1782, 1377, 150 1006, 1795, 1786, 248, 1034, 1789, 254, 1034, 1795, 264, 151 1010, 2060, 1011, 1801, 1801, 1799, 188, 2060, 1801, 1000, 152 1818, 1805, 269, 1034, 1813, 279, 1372, 1010, 1542, 1562, 153 1011, 1782, 1816, 279, 2060, 1818, 1000, 1824, 1822, 284, 154 1001, 1824, 1000, 1832, 1830, 284, 1001, 1357, 1824, 1832, 155 1000, 1840, 1840, 4, 1336, 195, 1336, 1606, 6, 1848, 156 1846, 36, 1028, 1319, 1350, 1848, 1000, 1858, 1852, 286, 157 1013, 1854, 208, 1856, 293, 1858, 1000, 1869, 1867, 1001, 158 36, 1336, 8, 1336, 8, 1336, 1869, 1000, 1876, 1874, 159 8, 1876, 999, 1876, 1000, 1916, 1882, 1415, 1476, 1001, 160 1401, 1889, 1415, 132, 1001, 1401, 1832, 1916, 1895, 120, 161 1466, 127, 1001, 1401, 1904, 120, 1010, 1001, 1401, 1011, 162 4, 1001, 6, 1916, 120, 132, 1010, 1001, 1401, 1832, 163 1916, 1011, 4, 1001, 6, 1925, 1923, 8, 1001, 1401, 164 1832, 999, 1925, 1000, 1932, 1930, 4, 1009, 6, 1932, 165 1000, 1950, 1936, 301, 1001, 1939, 304, 1001, 1942, 306, 166 1002, 1945, 1022, 1950, 1950, 311, 1009, 8, 1009, 1964, 167 1954, 1023, 1964, 1959, 1024, 317, 2003, 2008, 1964, 1025, 168 1005, 8, 1987, 1987, 1969, 320, 1001, 322, 1971, 2036, 169 1976, 4, 2036, 2025, 6, 1980, 324, 2036, 6, 1985, 170 4, 329, 2025, 6, 1987, 332, 2003, 1992, 320, 1001, 171 322, 1994, 2036, 1999, 4, 329, 2025, 6, 2003, 324, 172 1005, 6, 2008, 2006, 329, 2008, 1005, 2016, 2014, 8, 173 1005, 8, 1005, 2016, 1000, 2025, 2020, 0, 1005, 2023, 174 2, 1005, 2025, 1000, 2031, 2029, 0, 332, 2031, 1000, 175 2036, 2034, 36, 2036, 1000, 2051, 2041, 2031, 1300, 1003, 176 2044, 1001, 2016, 2049, 4, 2051, 2016, 6, 2051, 334, 177 2060, 2054, 338, 2056, 342, 2058, 346, 2060, 349, 2093, 178 2069, 1010, 1001, 1357, 1824, 1011, 1587, 1795, 2073, 353, 179 1001, 1357, 2075, 356, 2079, 363, 1033, 1336, 2082, 370, 180 1795, 2084, 378, 2089, 383, 1738, 1009, 1743, 2091, 390, 181 2093, 395, 2214, 2100, 1027, 1010, 2060, 1011, 1769, 2102, 182 1007, 2110, 1372, 1010, 1542, 1562, 1011, 1782, 1006, 2115, 183 404, 1035, 1801, 1006, 2120, 411, 1029, 1858, 1006, 2125, 184 417, 1036, 1762, 1006, 2130, 1377, 411, 1029, 1006, 2136, 185 1031, 1008, 1415, 1615, 1006, 2140, 424, 1502, 1006, 2144, 186 120, 1518, 1006, 2153, 1010, 1848, 1430, 1011, 1595, 1001, 187 1483, 1006, 2156, 1663, 1674, 2160, 428, 1601, 1006, 2164, 188 434, 1015, 1006, 2173, 440, 1021, 1738, 1009, 1731, 248, 189 1034, 1006, 2184, 443, 1001, 1401, 4, 1336, 195, 1336, 190 6, 1749, 1006, 2188, 450, 1006, 1017, 2193, 455, 127, 191 1001, 1006, 2197, 304, 1932, 1006, 2200, 463, 1006, 2204, 192 478, 1001, 1006, 2208, 485, 1003, 1006, 2212, 493, 1003, 193 1038, 2214, 1006; 194 LINE 101 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000514 PUSHI #0x000008a5 BOUNDS DEF SYMBOL p1=V_0087 a/tf=1b b/format=1 c/ostate=121 type=1 (integer) form=11 (array) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 PUSHI #0x0000051b INIT 1 PUSHI #0x00000517 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000519 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x0000051b INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x00000527 INIT 1 PUSHI #0x00000520 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x0000054d INIT 1 PUSHI #0x00000720 INIT 1 PUSHI #0x00000523 INIT 1 PUSHI #0x000003eb INIT 1 PUSHI #0x000003fc INIT 1 PUSHI #0x00000527 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000531 INIT 1 PUSHI #0x0000052b INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x000003f6 INIT 1 PUSHI #0x0000052d INIT 1 PUSHI #0x000003eb INIT 1 PUSHI #0x00000531 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000531 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x00000404 INIT 1 PUSHI #0x00000527 INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x00000546 INIT 1 PUSHI #0x0000053f INIT 1 PUSHI #0x0000053f INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x00000404 INIT 1 PUSHI #0x0000051b INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x0000053f INIT 1 PUSHI #0x00000546 INIT 1 PUSHI #0x00000544 INIT 1 PUSHI #0x00000402 INIT 1 PUSHI #0x0000051b INIT 1 PUSHI #0x000003e7 INIT 1 PUSHI #0x00000546 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x0000054d INIT 1 PUSHI #0x0000054b INIT 1 PUSHI #0x00000402 INIT 1 PUSHI #0x00000527 INIT 1 PUSHI #0x000003e7 INIT 1 PUSHI #0x0000054d INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x00000555 INIT 1 PUSHI #0x00000553 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x00000555 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000555 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x0000055c INIT 1 PUSHI #0x0000055a INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x000003e7 INIT 1 PUSHI #0x0000055c INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x00000561 INIT 1 PUSHI #0x0000055f INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x00000561 INIT 1 PUSHI #0x0000000d INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x00000568 INIT 1 PUSHI #0x00000014 INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x00000606 INIT 1 PUSHI #0x0000061a INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x0000056e INIT 1 PUSHI #0x0000001a INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x00000606 INIT 1 PUSHI #0x0000061a INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x00000020 INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000024 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x00000580 INIT 1 PUSHI #0x0000057e INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x000003e7 INIT 1 PUSHI #0x00000580 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x00000587 INIT 1 PUSHI #0x00000583 INIT 1 PUSHI #0x00000026 INIT 1 PUSHI #0x00000585 INIT 1 PUSHI #0x0000002b INIT 1 PUSHI #0x00000587 INIT 1 PUSHI #0x00000033 INIT 1 PUSHI #0x00000596 INIT 1 PUSHI #0x0000058a INIT 1 PUSHI #0x0000002b INIT 1 PUSHI #0x0000058c INIT 1 PUSHI #0x00000026 INIT 1 PUSHI #0x0000058f INIT 1 PUSHI #0x0000003c INIT 1 PUSHI #0x00000580 INIT 1 PUSHI #0x00000591 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000594 INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x00000785 INIT 1 PUSHI #0x00000596 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x0000059d INIT 1 PUSHI #0x00000599 INIT 1 PUSHI #0x00000060 INIT 1 PUSHI #0x0000059d INIT 1 PUSHI #0x00000407 INIT 1 PUSHI #0x00000587 INIT 1 PUSHI #0x0000059d INIT 1 PUSHI #0x000005a4 INIT 1 PUSHI #0x000005a0 INIT 1 PUSHI #0x00000068 INIT 1 PUSHI #0x000005a2 INIT 1 PUSHI #0x0000006b INIT 1 PUSHI #0x000005a4 INIT 1 PUSHI #0x0000006f INIT 1 PUSHI #0x000005ba INIT 1 PUSHI #0x000005aa INIT 1 PUSHI #0x00000587 INIT 1 PUSHI #0x000005c4 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x000005b0 INIT 1 PUSHI #0x00000078 INIT 1 PUSHI #0x000005ba INIT 1 PUSHI #0x0000007f INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x000005b6 INIT 1 PUSHI #0x00000596 INIT 1 PUSHI #0x000005bf INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x000005cb INIT 1 PUSHI #0x000005ba INIT 1 PUSHI #0x0000007f INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x000005bf INIT 1 PUSHI #0x000005bd INIT 1 PUSHI #0x00000084 INIT 1 PUSHI #0x000005bf INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x000005c4 INIT 1 PUSHI #0x000005c2 INIT 1 PUSHI #0x0000007f INIT 1 PUSHI #0x000005c4 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x000005cb INIT 1 PUSHI #0x000005c7 INIT 1 PUSHI #0x0000008a INIT 1 PUSHI #0x000005c9 INIT 1 PUSHI #0x0000007f INIT 1 PUSHI #0x000005cb INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x000005d5 INIT 1 PUSHI #0x000005d3 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x000005a4 INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x000005d5 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000005d5 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x000005de INIT 1 PUSHI #0x000005dc INIT 1 PUSHI #0x00000406 INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x000005a4 INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x000003e7 INIT 1 PUSHI #0x000005de INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x000005e9 INIT 1 PUSHI #0x000005e2 INIT 1 PUSHI #0x00000094 INIT 1 PUSHI #0x000003f8 INIT 1 PUSHI #0x000005e4 INIT 1 PUSHI #0x0000009e INIT 1 PUSHI #0x000005e7 INIT 1 PUSHI #0x000000a5 INIT 1 PUSHI #0x000003fa INIT 1 PUSHI #0x000005e9 INIT 1 PUSHI #0x000003f8 INIT 1 PUSHI #0x000005ee INIT 1 PUSHI #0x000005ec INIT 1 PUSHI #0x000000ac INIT 1 PUSHI #0x000005ee INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x00000606 INIT 1 PUSHI #0x000005f6 INIT 1 PUSHI #0x000000ac INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000754 INIT 1 PUSHI #0x0000074d INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000005ff INIT 1 PUSHI #0x000000b3 INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x0000071a INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000606 INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x0000064f INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000614 INIT 1 PUSHI #0x0000060c INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x00000408 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x00000614 INIT 1 PUSHI #0x00000611 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000606 INIT 1 PUSHI #0x0000061a INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000614 INIT 1 PUSHI #0x000000b8 INIT 1 PUSHI #0x00000606 INIT 1 PUSHI #0x0000061a INIT 1 PUSHI #0x00000618 INIT 1 PUSHI #0x0000040d INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x0000061a INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x00000625 INIT 1 PUSHI #0x0000061f INIT 1 PUSHI #0x000000bc INIT 1 PUSHI #0x00000606 INIT 1 PUSHI #0x00000625 INIT 1 PUSHI #0x00000623 INIT 1 PUSHI #0x000000c0 INIT 1 PUSHI #0x00000606 INIT 1 PUSHI #0x0000062c INIT 1 PUSHI #0x00000625 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x0000062c INIT 1 PUSHI #0x0000062a INIT 1 PUSHI #0x000000bc INIT 1 PUSHI #0x00000606 INIT 1 PUSHI #0x000003e7 INIT 1 PUSHI #0x0000062c INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x00000633 INIT 1 PUSHI #0x00000631 INIT 1 PUSHI #0x000000c0 INIT 1 PUSHI #0x00000606 INIT 1 PUSHI #0x000003e7 INIT 1 PUSHI #0x00000633 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x0000063b INIT 1 PUSHI #0x00000637 INIT 1 PUSHI #0x00000409 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x00000639 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x0000063b INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x00000641 INIT 1 PUSHI #0x0000063f INIT 1 PUSHI #0x000000b3 INIT 1 PUSHI #0x000003f0 INIT 1 PUSHI #0x00000641 INIT 1 PUSHI #0x000003f7 INIT 1 PUSHI #0x00000646 INIT 1 PUSHI #0x00000644 INIT 1 PUSHI #0x0000003c INIT 1 PUSHI #0x00000646 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x0000064f INIT 1 PUSHI #0x0000064d INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x00000646 INIT 1 PUSHI #0x0000064f INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x00000658 INIT 1 PUSHI #0x00000654 INIT 1 PUSHI #0x000005c4 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x00000658 INIT 1 PUSHI #0x00000084 INIT 1 PUSHI #0x000005e9 INIT 1 PUSHI #0x00000658 INIT 1 PUSHI #0x0000065e INIT 1 PUSHI #0x0000065e INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x00000728 INIT 1 PUSHI #0x0000065e INIT 1 PUSHI #0x00000664 INIT 1 PUSHI #0x00000662 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000658 INIT 1 PUSHI #0x00000664 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x00000674 INIT 1 PUSHI #0x0000066e INIT 1 PUSHI #0x000005c4 INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x00000730 INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x00000674 INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x00000674 INIT 1 PUSHI #0x00000084 INIT 1 PUSHI #0x000005e9 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000728 INIT 1 PUSHI #0x000006a5 INIT 1 PUSHI #0x0000067f INIT 1 PUSHI #0x0000067d INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x00000730 INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x00000674 INIT 1 PUSHI #0x0000067f INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x0000068a INIT 1 PUSHI #0x00000682 INIT 1 PUSHI #0x000000cc INIT 1 PUSHI #0x00000684 INIT 1 PUSHI #0x000000d0 INIT 1 PUSHI #0x00000686 INIT 1 PUSHI #0x000000d9 INIT 1 PUSHI #0x00000688 INIT 1 PUSHI #0x000000e3 INIT 1 PUSHI #0x0000068a INIT 1 PUSHI #0x000000ec INIT 1 PUSHI #0x000006a5 INIT 1 PUSHI #0x0000068e INIT 1 PUSHI #0x00000587 INIT 1 PUSHI #0x00000664 INIT 1 PUSHI #0x00000699 INIT 1 PUSHI #0x00000078 INIT 1 PUSHI #0x000005c4 INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x000006a5 INIT 1 PUSHI #0x00000078 INIT 1 PUSHI #0x00000084 INIT 1 PUSHI #0x000005e9 INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000728 INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x000006af INIT 1 PUSHI #0x000006ad INIT 1 PUSHI #0x00000024 INIT 1 PUSHI #0x00000404 INIT 1 PUSHI #0x00000527 INIT 1 PUSHI #0x00000546 INIT 1 PUSHI #0x000006ba INIT 1 PUSHI #0x000006af INIT 1 PUSHI #0x000006af INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x000006ba INIT 1 PUSHI #0x000006b8 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x000003f4 INIT 1 PUSHI #0x00000404 INIT 1 PUSHI #0x00000527 INIT 1 PUSHI #0x00000546 INIT 1 PUSHI #0x000006ba INIT 1 PUSHI #0x000003e7 INIT 1 PUSHI #0x000006ba INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x000006c3 INIT 1 PUSHI #0x000006c1 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000404 INIT 1 PUSHI #0x00000527 INIT 1 PUSHI #0x00000546 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000006c3 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x000006ca INIT 1 PUSHI #0x000006c8 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x000003f1 INIT 1 PUSHI #0x000003e7 INIT 1 PUSHI #0x000006ca INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x000006cf INIT 1 PUSHI #0x000006cd INIT 1 PUSHI #0x000000f2 INIT 1 PUSHI #0x000006cf INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x000006d5 INIT 1 PUSHI #0x000006d3 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x000006d5 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x000006e2 INIT 1 PUSHI #0x000006e0 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000003e7 INIT 1 PUSHI #0x000006e2 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x000006e9 INIT 1 PUSHI #0x000006e7 INIT 1 PUSHI #0x0000001a INIT 1 PUSHI #0x00000606 INIT 1 PUSHI #0x0000061a INIT 1 PUSHI #0x000006e9 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x000006f6 INIT 1 PUSHI #0x000006ec INIT 1 PUSHI #0x000003fb INIT 1 PUSHI #0x000006ee INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x000006f3 INIT 1 PUSHI #0x0000055c INIT 1 PUSHI #0x00000606 INIT 1 PUSHI #0x0000061a INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x000006f6 INIT 1 PUSHI #0x00000561 INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x00000703 INIT 1 PUSHI #0x000006fa INIT 1 PUSHI #0x000000f8 INIT 1 PUSHI #0x0000040a INIT 1 PUSHI #0x000006fd INIT 1 PUSHI #0x000000fe INIT 1 PUSHI #0x0000040a INIT 1 PUSHI #0x00000703 INIT 1 PUSHI #0x00000108 INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x0000080c INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x00000709 INIT 1 PUSHI #0x00000709 INIT 1 PUSHI #0x00000707 INIT 1 PUSHI #0x000000bc INIT 1 PUSHI #0x0000080c INIT 1 PUSHI #0x00000709 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x0000071a INIT 1 PUSHI #0x0000070d INIT 1 PUSHI #0x0000010d INIT 1 PUSHI #0x0000040a INIT 1 PUSHI #0x00000715 INIT 1 PUSHI #0x00000117 INIT 1 PUSHI #0x0000055c INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x00000606 INIT 1 PUSHI #0x0000061a INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x000006f6 INIT 1 PUSHI #0x00000718 INIT 1 PUSHI #0x00000117 INIT 1 PUSHI #0x0000080c INIT 1 PUSHI #0x0000071a INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x00000720 INIT 1 PUSHI #0x0000071e INIT 1 PUSHI #0x0000011c INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000720 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x00000728 INIT 1 PUSHI #0x00000726 INIT 1 PUSHI #0x0000011c INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x0000054d INIT 1 PUSHI #0x00000720 INIT 1 PUSHI #0x00000728 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x00000730 INIT 1 PUSHI #0x00000730 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x00000646 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000738 INIT 1 PUSHI #0x00000736 INIT 1 PUSHI #0x00000024 INIT 1 PUSHI #0x00000404 INIT 1 PUSHI #0x00000527 INIT 1 PUSHI #0x00000546 INIT 1 PUSHI #0x00000738 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x00000742 INIT 1 PUSHI #0x0000073c INIT 1 PUSHI #0x0000011e INIT 1 PUSHI #0x000003f5 INIT 1 PUSHI #0x0000073e INIT 1 PUSHI #0x000000d0 INIT 1 PUSHI #0x00000740 INIT 1 PUSHI #0x00000125 INIT 1 PUSHI #0x00000742 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x0000074d INIT 1 PUSHI #0x0000074b INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000024 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x0000074d INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x00000754 INIT 1 PUSHI #0x00000752 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000754 INIT 1 PUSHI #0x000003e7 INIT 1 PUSHI #0x00000754 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x0000077c INIT 1 PUSHI #0x0000075a INIT 1 PUSHI #0x00000587 INIT 1 PUSHI #0x000005c4 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x00000761 INIT 1 PUSHI #0x00000587 INIT 1 PUSHI #0x00000084 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x00000728 INIT 1 PUSHI #0x0000077c INIT 1 PUSHI #0x00000767 INIT 1 PUSHI #0x00000078 INIT 1 PUSHI #0x000005ba INIT 1 PUSHI #0x0000007f INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x00000770 INIT 1 PUSHI #0x00000078 INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x0000077c INIT 1 PUSHI #0x00000078 INIT 1 PUSHI #0x00000084 INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x00000728 INIT 1 PUSHI #0x0000077c INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000785 INIT 1 PUSHI #0x00000783 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x00000728 INIT 1 PUSHI #0x000003e7 INIT 1 PUSHI #0x00000785 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x0000078c INIT 1 PUSHI #0x0000078a INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000003f1 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x0000078c INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x0000079e INIT 1 PUSHI #0x00000790 INIT 1 PUSHI #0x0000012d INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000793 INIT 1 PUSHI #0x00000130 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000796 INIT 1 PUSHI #0x00000132 INIT 1 PUSHI #0x000003ea INIT 1 PUSHI #0x00000799 INIT 1 PUSHI #0x000003fe INIT 1 PUSHI #0x0000079e INIT 1 PUSHI #0x0000079e INIT 1 PUSHI #0x00000137 INIT 1 PUSHI #0x000003f1 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x000003f1 INIT 1 PUSHI #0x000007ac INIT 1 PUSHI #0x000007a2 INIT 1 PUSHI #0x000003ff INIT 1 PUSHI #0x000007ac INIT 1 PUSHI #0x000007a7 INIT 1 PUSHI #0x00000400 INIT 1 PUSHI #0x0000013d INIT 1 PUSHI #0x000007d3 INIT 1 PUSHI #0x000007d8 INIT 1 PUSHI #0x000007ac INIT 1 PUSHI #0x00000401 INIT 1 PUSHI #0x000003ed INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x000007c3 INIT 1 PUSHI #0x000007c3 INIT 1 PUSHI #0x000007b1 INIT 1 PUSHI #0x00000140 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000142 INIT 1 PUSHI #0x000007b3 INIT 1 PUSHI #0x000007f4 INIT 1 PUSHI #0x000007b8 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x000007f4 INIT 1 PUSHI #0x000007e9 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000007bc INIT 1 PUSHI #0x00000144 INIT 1 PUSHI #0x000007f4 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000007c1 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000149 INIT 1 PUSHI #0x000007e9 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000007c3 INIT 1 PUSHI #0x0000014c INIT 1 PUSHI #0x000007d3 INIT 1 PUSHI #0x000007c8 INIT 1 PUSHI #0x00000140 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000142 INIT 1 PUSHI #0x000007ca INIT 1 PUSHI #0x000007f4 INIT 1 PUSHI #0x000007cf INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000149 INIT 1 PUSHI #0x000007e9 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000007d3 INIT 1 PUSHI #0x00000144 INIT 1 PUSHI #0x000003ed INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000007d8 INIT 1 PUSHI #0x000007d6 INIT 1 PUSHI #0x00000149 INIT 1 PUSHI #0x000007d8 INIT 1 PUSHI #0x000003ed INIT 1 PUSHI #0x000007e0 INIT 1 PUSHI #0x000007de INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x000003ed INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x000003ed INIT 1 PUSHI #0x000007e0 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x000007e9 INIT 1 PUSHI #0x000007e4 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x000003ed INIT 1 PUSHI #0x000007e7 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x000003ed INIT 1 PUSHI #0x000007e9 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x000007ef INIT 1 PUSHI #0x000007ed INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000014c INIT 1 PUSHI #0x000007ef INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x000007f4 INIT 1 PUSHI #0x000007f2 INIT 1 PUSHI #0x00000024 INIT 1 PUSHI #0x000007f4 INIT 1 PUSHI #0x000003e8 INIT 1 PUSHI #0x00000803 INIT 1 PUSHI #0x000007f9 INIT 1 PUSHI #0x000007ef INIT 1 PUSHI #0x00000514 INIT 1 PUSHI #0x000003eb INIT 1 PUSHI #0x000007fc INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x000007e0 INIT 1 PUSHI #0x00000801 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000803 INIT 1 PUSHI #0x000007e0 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000803 INIT 1 PUSHI #0x0000014e INIT 1 PUSHI #0x0000080c INIT 1 PUSHI #0x00000806 INIT 1 PUSHI #0x00000152 INIT 1 PUSHI #0x00000808 INIT 1 PUSHI #0x00000156 INIT 1 PUSHI #0x0000080a INIT 1 PUSHI #0x0000015a INIT 1 PUSHI #0x0000080c INIT 1 PUSHI #0x0000015d INIT 1 PUSHI #0x0000082d INIT 1 PUSHI #0x00000815 INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x0000054d INIT 1 PUSHI #0x00000720 INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x00000633 INIT 1 PUSHI #0x00000703 INIT 1 PUSHI #0x00000819 INIT 1 PUSHI #0x00000161 INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x0000054d INIT 1 PUSHI #0x0000081b INIT 1 PUSHI #0x00000164 INIT 1 PUSHI #0x0000081f INIT 1 PUSHI #0x0000016b INIT 1 PUSHI #0x00000409 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x00000822 INIT 1 PUSHI #0x00000172 INIT 1 PUSHI #0x00000703 INIT 1 PUSHI #0x00000824 INIT 1 PUSHI #0x0000017a INIT 1 PUSHI #0x00000829 INIT 1 PUSHI #0x0000017f INIT 1 PUSHI #0x000006ca INIT 1 PUSHI #0x000003f1 INIT 1 PUSHI #0x000006cf INIT 1 PUSHI #0x0000082b INIT 1 PUSHI #0x00000186 INIT 1 PUSHI #0x0000082d INIT 1 PUSHI #0x0000018b INIT 1 PUSHI #0x000008a6 INIT 1 PUSHI #0x00000834 INIT 1 PUSHI #0x00000403 INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x0000080c INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x000006e9 INIT 1 PUSHI #0x00000836 INIT 1 PUSHI #0x000003ef INIT 1 PUSHI #0x0000083e INIT 1 PUSHI #0x0000055c INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x00000606 INIT 1 PUSHI #0x0000061a INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x000006f6 INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x00000843 INIT 1 PUSHI #0x00000194 INIT 1 PUSHI #0x0000040b INIT 1 PUSHI #0x00000709 INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x00000848 INIT 1 PUSHI #0x0000019b INIT 1 PUSHI #0x00000405 INIT 1 PUSHI #0x00000742 INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x0000084d INIT 1 PUSHI #0x000001a1 INIT 1 PUSHI #0x0000040c INIT 1 PUSHI #0x000006e2 INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x00000852 INIT 1 PUSHI #0x00000561 INIT 1 PUSHI #0x0000019b INIT 1 PUSHI #0x00000405 INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x00000858 INIT 1 PUSHI #0x00000407 INIT 1 PUSHI #0x000003f0 INIT 1 PUSHI #0x00000587 INIT 1 PUSHI #0x0000064f INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x0000085c INIT 1 PUSHI #0x000001a8 INIT 1 PUSHI #0x000005de INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x00000860 INIT 1 PUSHI #0x00000078 INIT 1 PUSHI #0x000005ee INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x00000869 INIT 1 PUSHI #0x000003f2 INIT 1 PUSHI #0x00000738 INIT 1 PUSHI #0x00000596 INIT 1 PUSHI #0x000003f3 INIT 1 PUSHI #0x0000063b INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x000005cb INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x0000086c INIT 1 PUSHI #0x0000067f INIT 1 PUSHI #0x0000068a INIT 1 PUSHI #0x00000870 INIT 1 PUSHI #0x000001ac INIT 1 PUSHI #0x00000641 INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x00000874 INIT 1 PUSHI #0x000001b2 INIT 1 PUSHI #0x000003f7 INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x0000087d INIT 1 PUSHI #0x000001b8 INIT 1 PUSHI #0x000003fd INIT 1 PUSHI #0x000006ca INIT 1 PUSHI #0x000003f1 INIT 1 PUSHI #0x000006c3 INIT 1 PUSHI #0x000000f8 INIT 1 PUSHI #0x0000040a INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x00000888 INIT 1 PUSHI #0x000001bb INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x00000579 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x00000538 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x000006d5 INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x0000088c INIT 1 PUSHI #0x000001c2 INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x000003f9 INIT 1 PUSHI #0x00000891 INIT 1 PUSHI #0x000001c7 INIT 1 PUSHI #0x0000007f INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x00000895 INIT 1 PUSHI #0x00000130 INIT 1 PUSHI #0x0000078c INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x00000898 INIT 1 PUSHI #0x000001cf INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x0000089c INIT 1 PUSHI #0x000001de INIT 1 PUSHI #0x000003e9 INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x000008a0 INIT 1 PUSHI #0x000001e5 INIT 1 PUSHI #0x000003eb INIT 1 PUSHI #0x000003ee INIT 1 PUSHI #0x000008a4 INIT 1 PUSHI #0x000001ed INIT 1 PUSHI #0x000003eb INIT 1 PUSHI #0x0000040e INIT 1 PUSHI #0x000008a6 INIT 1 PUSHI #0x000003ee INIT 1 195 %CONSTINTEGER SS= 2093 196 197 ! LINE 195 "regression-compile-tmp/nrimp10s-77.imp" 198 %CONST %BYTE %INTEGER %ARRAY I TO E TAB(0 : 127) = {%C 199 16_40,16_40,16_40,16_40,16_40,16_40,16_40,16_40, 200 16_40,16_40,16_15,16_40,16_0C,16_40,16_40,16_40, 201 16_40,16_40,16_40,16_40,16_40,16_40,16_40,16_40, 202 16_40,16_40,16_40,16_40,16_40,16_40,16_40,16_40, 203 16_40,16_4F,16_7F,16_7B,16_5B,16_6C,16_50,16_7D, 204 16_4D,16_5D,16_5C,16_4E,16_6B,16_60,16_4B,16_61, 205 16_F0,16_F1,16_F2,16_F3,16_F4,16_F5,16_F6,16_F7, 206 16_F8,16_F9,16_7A,16_5E,16_4C,16_7E,16_6E,16_6F, 207 16_7C,16_C1,16_C2,16_C3,16_C4,16_C5,16_C6,16_C7, 208 16_C8,16_C9,16_D1,16_D2,16_D3,16_D4,16_D5,16_D6, 209 16_D7,16_D8,16_D9,16_E2,16_E3,16_E4,16_E5,16_E6, 210 16_E7,16_E8,16_E9,16_4A,16_5F,16_5A,16_6A,16_6D, 211 16_7C,16_81,16_82,16_83,16_84,16_85,16_86,16_87, 212 16_88,16_89,16_91,16_92,16_93,16_94,16_95,16_96, 213 16_97,16_98,16_99,16_A2,16_A3,16_A4,16_A5,16_A6, 214 16_A7,16_A8,16_A9,16_C0,16_40,16_D0,16_40,16_40 LINE 198 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSHI #0x0000007f BOUNDS DEF ITOETAB p1=V_0088 a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000015 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x0000000c INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x0000007f INIT 1 PUSHI #0x0000007b INIT 1 PUSHI #0x0000005b INIT 1 PUSHI #0x0000006c INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x0000007d INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x0000005d INIT 1 PUSHI #0x0000005c INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x0000006b INIT 1 PUSHI #0x00000060 INIT 1 PUSHI #0x0000004b INIT 1 PUSHI #0x00000061 INIT 1 PUSHI #0x000000f0 INIT 1 PUSHI #0x000000f1 INIT 1 PUSHI #0x000000f2 INIT 1 PUSHI #0x000000f3 INIT 1 PUSHI #0x000000f4 INIT 1 PUSHI #0x000000f5 INIT 1 PUSHI #0x000000f6 INIT 1 PUSHI #0x000000f7 INIT 1 PUSHI #0x000000f8 INIT 1 PUSHI #0x000000f9 INIT 1 PUSHI #0x0000007a INIT 1 PUSHI #0x0000005e INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000007e INIT 1 PUSHI #0x0000006e INIT 1 PUSHI #0x0000006f INIT 1 PUSHI #0x0000007c INIT 1 PUSHI #0x000000c1 INIT 1 PUSHI #0x000000c2 INIT 1 PUSHI #0x000000c3 INIT 1 PUSHI #0x000000c4 INIT 1 PUSHI #0x000000c5 INIT 1 PUSHI #0x000000c6 INIT 1 PUSHI #0x000000c7 INIT 1 PUSHI #0x000000c8 INIT 1 PUSHI #0x000000c9 INIT 1 PUSHI #0x000000d1 INIT 1 PUSHI #0x000000d2 INIT 1 PUSHI #0x000000d3 INIT 1 PUSHI #0x000000d4 INIT 1 PUSHI #0x000000d5 INIT 1 PUSHI #0x000000d6 INIT 1 PUSHI #0x000000d7 INIT 1 PUSHI #0x000000d8 INIT 1 PUSHI #0x000000d9 INIT 1 PUSHI #0x000000e2 INIT 1 PUSHI #0x000000e3 INIT 1 PUSHI #0x000000e4 INIT 1 PUSHI #0x000000e5 INIT 1 PUSHI #0x000000e6 INIT 1 PUSHI #0x000000e7 INIT 1 PUSHI #0x000000e8 INIT 1 PUSHI #0x000000e9 INIT 1 PUSHI #0x0000004a INIT 1 PUSHI #0x0000005f INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0x0000006a INIT 1 PUSHI #0x0000006d INIT 1 PUSHI #0x0000007c INIT 1 PUSHI #0x00000081 INIT 1 PUSHI #0x00000082 INIT 1 PUSHI #0x00000083 INIT 1 PUSHI #0x00000084 INIT 1 PUSHI #0x00000085 INIT 1 PUSHI #0x00000086 INIT 1 PUSHI #0x00000087 INIT 1 PUSHI #0x00000088 INIT 1 PUSHI #0x00000089 INIT 1 PUSHI #0x00000091 INIT 1 PUSHI #0x00000092 INIT 1 PUSHI #0x00000093 INIT 1 PUSHI #0x00000094 INIT 1 PUSHI #0x00000095 INIT 1 PUSHI #0x00000096 INIT 1 PUSHI #0x00000097 INIT 1 PUSHI #0x00000098 INIT 1 PUSHI #0x00000099 INIT 1 PUSHI #0x000000a2 INIT 1 PUSHI #0x000000a3 INIT 1 PUSHI #0x000000a4 INIT 1 PUSHI #0x000000a5 INIT 1 PUSHI #0x000000a6 INIT 1 PUSHI #0x000000a7 INIT 1 PUSHI #0x000000a8 INIT 1 PUSHI #0x000000a9 INIT 1 PUSHI #0x000000c0 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x000000d0 INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000040 INIT 1 215 %CONSTINTEGERARRAY OPC(0:126)=0, 216 M' JCC',M' JAT',M' JAF',0(4), 217 M' VAL',M' CYD',M'INCA',M'MODD',M'PRCL',M' J',M' JLK',M'CALL', 218 M' ADB',M' SBB',M'DEBJ',M' CPB',M' SIG',M' MYB',M' VMY',M'CPIB', 219 M' LCT',M'MPSR',M'CPSR',M'STCT',M'EXIT',M'ESEX',M' OUT',M' ACT', 220 M' SL',M'SLSS',M'SLSD',M'SLSQ',M' ST',M'STUH',M'STXN',M'IDLE', 221 M' SLD',M' SLB',M'TDEC',M'INCT',M' STD',M' STB',M'STLN',M'STSF', 222 M' L',M' LSS',M' LSD',M' LSQ',M'RRTC',M' LUH',M'RALN',M' ASF', 223 M'LDRL',M' LDA',M'LDTB',M' LDB',M' LD',M' LB',M' LLN',M' LXN', 224 M' TCH',M'ANDS',M' ORS',M'NEQS',M'EXPA',M' AND',M' OR',M' NEQ', 225 M' PK',M' INS',M'SUPK',M' EXP',M'COMA',M' DDV',M'DRDV',M'DMDV', 226 M'SWEQ',M'SWNE',M' CPS',M' TTR',M' FLT',M' IDV',M'IRDV',M'IMDV', 227 M' MVL',M' MV',M'CHOV',M' COM',M' FIX',M' RDV',M'RRDV',M'RDVD', 228 M' UAD',M' USB',M'URSB',M' UCP',M' USH',M' ROT',M' SHS',M' SHZ', 229 M' DAD',M' DSB',M'DRSB',M' DCP',M' DSH',M' DMY',M'DMYD',M'CBIN', 230 M' IAD',M' ISB',M'IRSB',M' ICP',M' ISH',M' IMY',M'IMYD',M'CDEC', 231 M' RAD',M' RSB',M'RRSB',M' RCP',M' RSC',M' RMY',M'RMYD'; LINE 215 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSHI #0x0000007e BOUNDS DEF OPC p1=V_0089 a/tf=1b b/format=1 c/ostate=112 type=1 (integer) form=11 (array) special=0 () linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000000 INIT 1 PUSHI #0x204a4343 INIT 1 PUSHI #0x204a4154 INIT 1 PUSHI #0x204a4146 INIT 1 PUSHI #0x00000000 INIT 4 PUSHI #0x2056414c INIT 1 PUSHI #0x20435944 INIT 1 PUSHI #0x494e4341 INIT 1 PUSHI #0x4d4f4444 INIT 1 PUSHI #0x5052434c INIT 1 PUSHI #0x2020204a INIT 1 PUSHI #0x204a4c4b INIT 1 PUSHI #0x43414c4c INIT 1 PUSHI #0x20414442 INIT 1 PUSHI #0x20534242 INIT 1 PUSHI #0x4445424a INIT 1 PUSHI #0x20435042 INIT 1 PUSHI #0x20534947 INIT 1 PUSHI #0x204d5942 INIT 1 PUSHI #0x20564d59 INIT 1 PUSHI #0x43504942 INIT 1 PUSHI #0x204c4354 INIT 1 PUSHI #0x4d505352 INIT 1 PUSHI #0x43505352 INIT 1 PUSHI #0x53544354 INIT 1 PUSHI #0x45584954 INIT 1 PUSHI #0x45534558 INIT 1 PUSHI #0x204f5554 INIT 1 PUSHI #0x20414354 INIT 1 PUSHI #0x2020534c INIT 1 PUSHI #0x534c5353 INIT 1 PUSHI #0x534c5344 INIT 1 PUSHI #0x534c5351 INIT 1 PUSHI #0x20205354 INIT 1 PUSHI #0x53545548 INIT 1 PUSHI #0x5354584e INIT 1 PUSHI #0x49444c45 INIT 1 PUSHI #0x20534c44 INIT 1 PUSHI #0x20534c42 INIT 1 PUSHI #0x54444543 INIT 1 PUSHI #0x494e4354 INIT 1 PUSHI #0x20535444 INIT 1 PUSHI #0x20535442 INIT 1 PUSHI #0x53544c4e INIT 1 PUSHI #0x53545346 INIT 1 PUSHI #0x2020204c INIT 1 PUSHI #0x204c5353 INIT 1 PUSHI #0x204c5344 INIT 1 PUSHI #0x204c5351 INIT 1 PUSHI #0x52525443 INIT 1 PUSHI #0x204c5548 INIT 1 PUSHI #0x52414c4e INIT 1 PUSHI #0x20415346 INIT 1 PUSHI #0x4c44524c INIT 1 PUSHI #0x204c4441 INIT 1 PUSHI #0x4c445442 INIT 1 PUSHI #0x204c4442 INIT 1 PUSHI #0x20204c44 INIT 1 PUSHI #0x20204c42 INIT 1 PUSHI #0x204c4c4e INIT 1 PUSHI #0x204c584e INIT 1 PUSHI #0x20544348 INIT 1 PUSHI #0x414e4453 INIT 1 PUSHI #0x204f5253 INIT 1 PUSHI #0x4e455153 INIT 1 PUSHI #0x45585041 INIT 1 PUSHI #0x20414e44 INIT 1 PUSHI #0x20204f52 INIT 1 PUSHI #0x204e4551 INIT 1 PUSHI #0x2020504b INIT 1 PUSHI #0x20494e53 INIT 1 PUSHI #0x5355504b INIT 1 PUSHI #0x20455850 INIT 1 PUSHI #0x434f4d41 INIT 1 PUSHI #0x20444456 INIT 1 PUSHI #0x44524456 INIT 1 PUSHI #0x444d4456 INIT 1 PUSHI #0x53574551 INIT 1 PUSHI #0x53574e45 INIT 1 PUSHI #0x20435053 INIT 1 PUSHI #0x20545452 INIT 1 PUSHI #0x20464c54 INIT 1 PUSHI #0x20494456 INIT 1 PUSHI #0x49524456 INIT 1 PUSHI #0x494d4456 INIT 1 PUSHI #0x204d564c INIT 1 PUSHI #0x20204d56 INIT 1 PUSHI #0x43484f56 INIT 1 PUSHI #0x20434f4d INIT 1 PUSHI #0x20464958 INIT 1 PUSHI #0x20524456 INIT 1 PUSHI #0x52524456 INIT 1 PUSHI #0x52445644 INIT 1 PUSHI #0x20554144 INIT 1 PUSHI #0x20555342 INIT 1 PUSHI #0x55525342 INIT 1 PUSHI #0x20554350 INIT 1 PUSHI #0x20555348 INIT 1 PUSHI #0x20524f54 INIT 1 PUSHI #0x20534853 INIT 1 PUSHI #0x2053485a INIT 1 PUSHI #0x20444144 INIT 1 PUSHI #0x20445342 INIT 1 PUSHI #0x44525342 INIT 1 PUSHI #0x20444350 INIT 1 PUSHI #0x20445348 INIT 1 PUSHI #0x20444d59 INIT 1 PUSHI #0x444d5944 INIT 1 PUSHI #0x4342494e INIT 1 PUSHI #0x20494144 INIT 1 PUSHI #0x20495342 INIT 1 PUSHI #0x49525342 INIT 1 PUSHI #0x20494350 INIT 1 PUSHI #0x20495348 INIT 1 PUSHI #0x20494d59 INIT 1 PUSHI #0x494d5944 INIT 1 PUSHI #0x43444543 INIT 1 PUSHI #0x20524144 INIT 1 PUSHI #0x20525342 INIT 1 PUSHI #0x52525342 INIT 1 PUSHI #0x20524350 INIT 1 PUSHI #0x20525343 INIT 1 PUSHI #0x20524d59 INIT 1 PUSHI #0x524d5944 INIT 1 232 %CONSTBYTEINTEGERARRAY ONE CASE(0 : 127) = {%C 233 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13,14,15, 234 16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31, 235 32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47, 236 48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63, 237 64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79, 238 80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95, 239 96,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79, 240 80,81,82,83,84,85,86,87,88,89,90,123,124,125,126,127; LINE 232 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSHI #0x0000007f BOUNDS DEF ONECASE p1=V_008a a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000000 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000009 INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000000b INIT 1 PUSHI #0x0000000c INIT 1 PUSHI #0x0000000d INIT 1 PUSHI #0x0000000e INIT 1 PUSHI #0x0000000f INIT 1 PUSHI #0x00000010 INIT 1 PUSHI #0x00000011 INIT 1 PUSHI #0x00000012 INIT 1 PUSHI #0x00000013 INIT 1 PUSHI #0x00000014 INIT 1 PUSHI #0x00000015 INIT 1 PUSHI #0x00000016 INIT 1 PUSHI #0x00000017 INIT 1 PUSHI #0x00000018 INIT 1 PUSHI #0x00000019 INIT 1 PUSHI #0x0000001a INIT 1 PUSHI #0x0000001b INIT 1 PUSHI #0x0000001c INIT 1 PUSHI #0x0000001d INIT 1 PUSHI #0x0000001e INIT 1 PUSHI #0x0000001f INIT 1 PUSHI #0x00000020 INIT 1 PUSHI #0x00000021 INIT 1 PUSHI #0x00000022 INIT 1 PUSHI #0x00000023 INIT 1 PUSHI #0x00000024 INIT 1 PUSHI #0x00000025 INIT 1 PUSHI #0x00000026 INIT 1 PUSHI #0x00000027 INIT 1 PUSHI #0x00000028 INIT 1 PUSHI #0x00000029 INIT 1 PUSHI #0x0000002a INIT 1 PUSHI #0x0000002b INIT 1 PUSHI #0x0000002c INIT 1 PUSHI #0x0000002d INIT 1 PUSHI #0x0000002e INIT 1 PUSHI #0x0000002f INIT 1 PUSHI #0x00000030 INIT 1 PUSHI #0x00000031 INIT 1 PUSHI #0x00000032 INIT 1 PUSHI #0x00000033 INIT 1 PUSHI #0x00000034 INIT 1 PUSHI #0x00000035 INIT 1 PUSHI #0x00000036 INIT 1 PUSHI #0x00000037 INIT 1 PUSHI #0x00000038 INIT 1 PUSHI #0x00000039 INIT 1 PUSHI #0x0000003a INIT 1 PUSHI #0x0000003b INIT 1 PUSHI #0x0000003c INIT 1 PUSHI #0x0000003d INIT 1 PUSHI #0x0000003e INIT 1 PUSHI #0x0000003f INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000042 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000046 INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000048 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004a INIT 1 PUSHI #0x0000004b INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000051 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000055 INIT 1 PUSHI #0x00000056 INIT 1 PUSHI #0x00000057 INIT 1 PUSHI #0x00000058 INIT 1 PUSHI #0x00000059 INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0x0000005b INIT 1 PUSHI #0x0000005c INIT 1 PUSHI #0x0000005d INIT 1 PUSHI #0x0000005e INIT 1 PUSHI #0x0000005f INIT 1 PUSHI #0x00000060 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000042 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000046 INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000048 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004a INIT 1 PUSHI #0x0000004b INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000051 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000055 INIT 1 PUSHI #0x00000056 INIT 1 PUSHI #0x00000057 INIT 1 PUSHI #0x00000058 INIT 1 PUSHI #0x00000059 INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0x0000007b INIT 1 PUSHI #0x0000007c INIT 1 PUSHI #0x0000007d INIT 1 PUSHI #0x0000007e INIT 1 PUSHI #0x0000007f INIT 1 241 %CONSTINTEGERARRAY TSNAME (0:62)=16_1000(8), 242 16_1001,16_1000(5),16_1001,16_1062,16_1001(2),16_1062, 243 16_1000(2),16_52,16_51,16_62,16_1062(7), 244 16_1000,16_31,16_51,16_1062(2),16_31,16_1000, 245 16_51,16_62,16_1000(2),16_35,16_1000,16_1035, 246 16_31,16_35,16_1035,16_33,0,16_1000,16_31,16_52,16_51, 247 16_61,16_72,16_61,16_72,16_51,16_62,16_1051,16_41, 248 16_1000; 249 ! LINE 241 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSHI #0x0000003e BOUNDS DEF TSNAME p1=V_008b a/tf=1b b/format=1 c/ostate=112 type=1 (integer) form=11 (array) special=0 () linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00001000 INIT 8 PUSHI #0x00001001 INIT 1 PUSHI #0x00001000 INIT 5 PUSHI #0x00001001 INIT 1 PUSHI #0x00001062 INIT 1 PUSHI #0x00001001 INIT 2 PUSHI #0x00001062 INIT 1 PUSHI #0x00001000 INIT 2 PUSHI #0x00000052 INIT 1 PUSHI #0x00000051 INIT 1 PUSHI #0x00000062 INIT 1 PUSHI #0x00001062 INIT 7 PUSHI #0x00001000 INIT 1 PUSHI #0x00000031 INIT 1 PUSHI #0x00000051 INIT 1 PUSHI #0x00001062 INIT 2 PUSHI #0x00000031 INIT 1 PUSHI #0x00001000 INIT 1 PUSHI #0x00000051 INIT 1 PUSHI #0x00000062 INIT 1 PUSHI #0x00001000 INIT 2 PUSHI #0x00000035 INIT 1 PUSHI #0x00001000 INIT 1 PUSHI #0x00001035 INIT 1 PUSHI #0x00000031 INIT 1 PUSHI #0x00000035 INIT 1 PUSHI #0x00001035 INIT 1 PUSHI #0x00000033 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00001000 INIT 1 PUSHI #0x00000031 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000051 INIT 1 PUSHI #0x00000061 INIT 1 PUSHI #0x00000072 INIT 1 PUSHI #0x00000061 INIT 1 PUSHI #0x00000072 INIT 1 PUSHI #0x00000051 INIT 1 PUSHI #0x00000062 INIT 1 PUSHI #0x00001051 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00001000 INIT 1 250 %OWNINTEGERARRAY FIXED GLA(0:11)=0, 251 16_50000000,0(2),-1,0,0(6); LINE 250 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSHI #0x0000000b BOUNDS DEF FIXEDGLA p1=V_008c a/tf=1b b/format=1 c/ostate=121 type=1 (integer) form=11 (array) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 PUSHI #0x00000000 INIT 1 PUSHI #0x50000000 INIT 1 PUSHI #0x00000000 INIT 2 PUSHI #0xffffffff INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000000 INIT 6 252 %CONSTBYTEINTEGERARRAY BYTES(0:7)=0(3),1,2,4,8,16; LINE 252 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSHI #0x00000007 BOUNDS DEF BYTES p1=V_008d a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000000 INIT 3 PUSHI #0x00000001 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000010 INIT 1 253 %CONSTBYTEINTEGERARRAY TRTAB(0:255)=0(48), 254 1(10),0(7),2(26),0(6),2(26),0(5),0(128) LINE 253 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSHI #0x000000ff BOUNDS DEF TRTAB p1=V_008e a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000000 INIT 48 PUSHI #0x00000001 INIT 10 PUSHI #0x00000000 INIT 7 PUSHI #0x00000002 INIT 26 PUSHI #0x00000000 INIT 6 PUSHI #0x00000002 INIT 26 PUSHI #0x00000000 INIT 5 PUSHI #0x00000000 INIT 128 255 %CONSTINTEGER MAXLEVELS=31,CONCOP=13,FIXEDGLALEN=48 LINE 255 "regression-compile-tmp/nrimp10s-77.imp" 256 %CONSTINTEGER JOBBERBIT=16_40000000; ! SET IN JOBBER MODE LINE 256 "regression-compile-tmp/nrimp10s-77.imp" 257 %CONSTINTEGER CEBIT=1; ! SET IN COMPILER ENVIRONMENT LINE 257 "regression-compile-tmp/nrimp10s-77.imp" 258 %CONSTINTEGER MAXDICT=16_100; ! SET FOR MAX OF EVERYTHING 259 ! 260 ! THE PRINCIPAL OPCODES ARE HERE DEFINED AS THEIR MNEMONICS(AMENDED) 261 ! LINE 258 "regression-compile-tmp/nrimp10s-77.imp" 262 %CONSTINTEGER LB=16_7A,SLB=16_52,STB=16_5A,ADB=16_20,CPB=16_26, {%C 263 MYB=16_2A,SBB=16_22,CPIB=16_2E,OUT=16_3C,CPSR=16_34 LINE 262 "regression-compile-tmp/nrimp10s-77.imp" 264 %CONSTINTEGER LD=16_78,LDA=16_72,INCA=16_14,STD=16_58,LDB=16_76, {%C 265 LDTB=16_74,LDRL=16_70,CYD=16_12,MODD=16_16,SLD=16_50 LINE 264 "regression-compile-tmp/nrimp10s-77.imp" 266 %CONSTINTEGER STLN=16_5C,ASF=16_6E,ST=16_48,RALN=16_6C,LXN=16_7E,{%C 267 LLN=16_7C,LSS=16_62,SLSS=16_42,MPSR=16_32,STSF=16_5E,{%C 268 LUH=16_6A,STUH=16_4A,LSD=16_64,SLSD=16_44,PRCL=16_18, {%C 269 LSQ=16_66,SLSQ=16_46,STXN=16_4C,LCT=16_30,STCT=16_36 LINE 266 "regression-compile-tmp/nrimp10s-77.imp" 270 %CONSTINTEGER JUNC=16_1A,JLK=16_1C,CALL=16_1E,EXIT=16_38,JCC=2, {%C 271 JAT=4,JAF=6,DEBJ=16_24 LINE 270 "regression-compile-tmp/nrimp10s-77.imp" 272 %CONSTINTEGER IAD=16_E0,ICP=16_E6,USH=16_C8,ISB=16_E2,IRSB=16_E4,{%C 273 OR=16_8C,UCP=16_C6,IMY=16_EA,IMDV=16_AE,AND=16_8A, {%C 274 ISH=16_E8,IMYD=16_EC,IDV=16_AA LINE 272 "regression-compile-tmp/nrimp10s-77.imp" 275 %CONSTINTEGER RAD=16_F0,RSB=16_F2,RRSB=16_F4,FLT=16_A8,RRDV=16_BC, {%C 276 RSC=16_F8,FIX=16_B8,RDV=16_BA,RDDV=16_BE,RMYD=16_FC, {%C 277 RMY=16_FA 278 ! LINE 275 "regression-compile-tmp/nrimp10s-77.imp" 279 %CONSTINTEGER MVL=16_B0,MV=16_B2,SWEQ=16_A0,SWNE=16_A2,CPS=16_A4 280 ! 281 ! DEFINE SOME MNEMONICS FOR THE VISIBLE REGISTERS (XCEPT LNB) 282 ! LINE 279 "regression-compile-tmp/nrimp10s-77.imp" 283 %CONSTINTEGER ACCR=0,DR=1,LNB=2,XNB=3,PC=4,CTB=5,TOS=6,BREG=7 LINE 283 "regression-compile-tmp/nrimp10s-77.imp" 284 %CONSTBYTEINTEGERARRAY LDCODE(0:7)=0,16_78,16_7C,16_7E,0,48,0,16_7A; 285 ! LINE 284 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSHI #0x00000007 BOUNDS DEF LDCODE p1=V_008f a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000000 INIT 1 PUSHI #0x00000078 INIT 1 PUSHI #0x0000007c INIT 1 PUSHI #0x0000007e INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000030 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x0000007a INIT 1 286 %CONSTSTRING(8)MDEP="S#NDIAG" LINE 286 "regression-compile-tmp/nrimp10s-77.imp" PUSHS "S#NDIAG" DEF MDEP p1=V_0090 a/tf=31 b/format=8 c/ostate=12 type=3 (string) form=1 (simple) special=0 () linkage=2 (constant) spec=0 indirect=1 unass=0 INIT 1 287 %CONSTSTRING(8)IOCPEP="S#IOCP"; ! EP FOR IOCP LINE 287 "regression-compile-tmp/nrimp10s-77.imp" PUSHS "S#IOCP" DEF IOCPEP p1=V_0091 a/tf=31 b/format=8 c/ostate=12 type=3 (string) form=1 (simple) special=0 () linkage=2 (constant) spec=0 indirect=1 unass=0 INIT 1 288 %CONSTSTRING(11)AUXSTEP="ICL9CEAUXST";! DATA REF FOR INDIRECT AUX ST LINE 288 "regression-compile-tmp/nrimp10s-77.imp" PUSHS "ICL9CEAUXST" DEF AUXSTEP p1=V_0092 a/tf=31 b/format=b c/ostate=12 type=3 (string) form=1 (simple) special=0 () linkage=2 (constant) spec=0 indirect=1 unass=0 INIT 1 289 %CONSTINTEGER SNPT=16_1006; ! SPECIALNAME PTYPE LINE 289 "regression-compile-tmp/nrimp10s-77.imp" 290 %CONSTINTEGER COMMALT=2,ENDALT=9,UNASSPAT=16_81818181,DECALT=8 291 ! LINE 290 "regression-compile-tmp/nrimp10s-77.imp" 292 %INTEGER DICTBASE, CONSTPTR, CONSTBTM, DFHEAD, CONSTHOLE, WKFILEAD, {%C 293 WKFILEK, DUMMYFORMAT, P1SIZE, LEVELINF, IOCPDISP, PARMBITS1, {%C 294 PARMBITS2,PARMLET 295 ! LINE 292 "regression-compile-tmp/nrimp10s-77.imp" DEF DICTBASE p1=V_0093 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 CONSTPTR p1=V_0094 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 CONSTBTM p1=V_0095 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 DFHEAD p1=V_0096 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 CONSTHOLE p1=V_0097 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 WKFILEAD p1=V_0098 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 WKFILEK p1=V_0099 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 DUMMYFORMAT p1=V_009a 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 P1SIZE p1=V_009b 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 LEVELINF p1=V_009c 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 IOCPDISP p1=V_009d 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 PARMBITS1 p1=V_009e 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 PARMBITS2 p1=V_009f 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 PARMLET p1=V_00a0 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 296 %INTEGER ASL, NNAMES, ARSIZE, CABUF, PPCURR, CONSTLIMIT, OLDLINE, {%C 297 LINE, LENGTH, NEXTP, SNUM, RLEVEL, NMAX, USTPTR, PLABEL,{%C 298 LEVEL, CA, LASTNAME, CDCOUNT, ASL CUR BTM, PARMDYNAMIC 299 ! LINE 296 "regression-compile-tmp/nrimp10s-77.imp" DEF ASL p1=V_00a1 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 NNAMES p1=V_00a2 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 ARSIZE p1=V_00a3 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 CABUF p1=V_00a4 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 PPCURR p1=V_00a5 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 CONSTLIMIT p1=V_00a6 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 OLDLINE p1=V_00a7 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 LINE p1=V_00a8 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 LENGTH p1=V_00a9 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 NEXTP p1=V_00aa 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 SNUM p1=V_00ab 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 RLEVEL p1=V_00ac 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 NMAX p1=V_00ad 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 USTPTR p1=V_00ae 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 PLABEL p1=V_00af 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 LEVEL p1=V_00b0 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 CA p1=V_00b1 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 LASTNAME p1=V_00b2 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 CDCOUNT p1=V_00b3 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 ASLCURBTM p1=V_00b4 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 PARMDYNAMIC p1=V_00b5 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 300 %INTEGER FAULTY, HIT, INHCODE, IMPS, TTOPUT, LIST, PARMDIAG, {%C 301 WARNFLAG, PARMTRACE, PARMLINE, PARMOPT, CTYPE, DCOMP, {%C 302 CPRMODE, PARMCHK, PARMARR, ALLLONG, PARMDBUG,{%C 303 COMPILER, LAST INST, SMAP, STACK, AUXST, PARMY, BFFLAG 304 ! LINE 300 "regression-compile-tmp/nrimp10s-77.imp" DEF FAULTY p1=V_00b6 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 HIT p1=V_00b7 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 INHCODE p1=V_00b8 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 IMPS p1=V_00b9 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 TTOPUT p1=V_00ba 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 LIST p1=V_00bb 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 PARMDIAG p1=V_00bc 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 WARNFLAG p1=V_00bd 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 PARMTRACE p1=V_00be 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 PARMLINE p1=V_00bf 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 PARMOPT p1=V_00c0 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 CTYPE p1=V_00c1 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 DCOMP p1=V_00c2 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 CPRMODE p1=V_00c3 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 PARMCHK p1=V_00c4 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 PARMARR p1=V_00c5 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 ALLLONG p1=V_00c6 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 PARMDBUG p1=V_00c7 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 COMPILER p1=V_00c8 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 LASTINST p1=V_00c9 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 SMAP p1=V_00ca 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 STACK p1=V_00cb 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 AUXST p1=V_00cc 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 PARMY p1=V_00cd 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 BFFLAG p1=V_00ce 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 305 %INTEGER RBASE, N, FREE FORMAT, PARMPROF, EXITLAB, CONTLAB, {%C 306 Q, R, S, NEST, FNAME, LDPTR, GLACA, GLACABUF, {%C 307 GLACURR, CREFHEAD, SSTL, QMAX, STMTS, LASTAT, {%C 308 FILE ADDR, FILE PTR, FILE END, FILE SIZE, LASTEND, {%C 309 BIMSTR,STLIMIT,STRLINK,RECTB,ASL WARN,IHEAD 310 ! LINE 305 "regression-compile-tmp/nrimp10s-77.imp" DEF RBASE p1=V_00cf 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 N 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 DEF FREEFORMAT 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 DEF PARMPROF 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 DEF EXITLAB p1=V_00d3 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 CONTLAB p1=V_00d4 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_00d5 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 R p1=V_00d6 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 S 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 NEST 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 DEF FNAME p1=V_00d9 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 LDPTR p1=V_00da 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 GLACA p1=V_00db 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 GLACABUF p1=V_00dc 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 GLACURR 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 CREFHEAD 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 DEF SSTL 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 QMAX 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 STMTS 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 DEF LASTAT 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 DEF FILEADDR 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 DEF FILEPTR 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 FILEEND 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 DEF FILESIZE 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 LASTEND 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 DEF BIMSTR 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 STLIMIT 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 DEF STRLINK 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 DEF RECTB 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 DEF ASLWARN 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 DEF IHEAD 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 311 %INTEGER MAX ULAB, SFLABEL LINE 311 "regression-compile-tmp/nrimp10s-77.imp" DEF MAXULAB p1=V_00ee 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 SFLABEL p1=V_00ef 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 312 %LONGREAL CVALUE, IMAX, CTIME LINE 312 "regression-compile-tmp/nrimp10s-77.imp" DEF CVALUE p1=V_00f0 a/tf=21 b/format=4 c/ostate=0 type=2 (real) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF IMAX p1=V_00f1 a/tf=21 b/format=4 c/ostate=0 type=2 (real) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF CTIME p1=V_00f2 a/tf=21 b/format=4 c/ostate=0 type=2 (real) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 313 %STRING(31)MAINEP LINE 313 "regression-compile-tmp/nrimp10s-77.imp" DEF MAINEP p1=V_00f3 a/tf=31 b/format=1f c/ostate=0 type=3 (string) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 314 %RECORDFORMAT LISTF(%INTEGER S1,S2,S3,LINK) LINE 314 "regression-compile-tmp/nrimp10s-77.imp" DEF LISTF p1=V_00f4 a/tf=44 b/format=f4 c/ostate=0 type=4 (record) form=4 (record-format) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( RECORDFORMAT DEF S1 p1=V_0000 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 S2 p1=V_0000 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 S3 p1=V_0000 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 LINK p1=V_0000 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 ) 315 %INTEGER LOGEPDISP,EXPEPDISP 316 ! LINE 315 "regression-compile-tmp/nrimp10s-77.imp" DEF LOGEPDISP p1=V_00f5 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 EXPEPDISP 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 317 %SYSTEMINTEGERMAPSPEC COMREG(%INTEGER N) LINE 317 "regression-compile-tmp/nrimp10s-77.imp" DEF COMREG (_lev0id0_COMREG) p1=V_00f7 a/tf=19 b/format=1 c/ostate=2c type=1 (integer) form=9 (map) special=0 () linkage=4 (system) spec=1 indirect=0 unass=1 START ( FORMAL PARAMETERS {lev=1 --> 2, nested=0 --> 1} DEF N 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=1} 318 %BEGIN LINE 318 "regression-compile-tmp/nrimp10s-77.imp" BEGIN _lev0id0_lev1id1 {lev=1 --> 2} 319 FILE ADDR=COMREG(46); ! SOURCE FILE IF CLEAN LINE 319 "regression-compile-tmp/nrimp10s-77.imp" PUSH FILEADDR PUSH COMREG PUSHI #0x0000002e ASSPAR CALL ASSVAL 320 PARMBITS1=COMREG(27) LINE 320 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMBITS1 PUSH COMREG PUSHI #0x0000001b ASSPAR CALL ASSVAL 321 PARMBITS2=COMREG(28) LINE 321 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMBITS2 PUSH COMREG PUSHI #0x0000001c ASSPAR CALL ASSVAL 322 WKFILEAD=COMREG(14) 323 {WKFILEK=INTEGER(WKFILEAD+8)>>10 LINE 322 "regression-compile-tmp/nrimp10s-77.imp" PUSH WKFILEAD PUSH COMREG PUSHI #0x0000000e ASSPAR CALL ASSVAL 324 wkfilek = 128 LINE 324 "regression-compile-tmp/nrimp10s-77.imp" PUSH WKFILEK PUSHI #0x00000080 ASSVAL 325 %IF FILE ADDR<=0 %THEN FILESIZE=64000 %AND FILE ADDR=0 %ELSESTART LINE 325 "regression-compile-tmp/nrimp10s-77.imp" PUSH FILEADDR PUSHI #0x00000000 JUMPIF > L_0004 PUSH FILESIZE PUSHI #0x0000fa00 ASSVAL PUSH FILEADDR PUSHI #0x00000000 ASSVAL GOTO L_0003 LOCATE L_0004 326 FILE PTR=FILE ADDR+INTEGER(FILE ADDR+4) LINE 326 "regression-compile-tmp/nrimp10s-77.imp" PUSH FILEPTR PUSH FILEADDR PUSH INTEGER PUSH FILEADDR PUSHI #0x00000004 ADD ASSPAR CALL ADD ASSVAL 327 FILE END=FILE ADDR+INTEGER(FILE ADDR) LINE 327 "regression-compile-tmp/nrimp10s-77.imp" PUSH FILEEND PUSH FILEADDR PUSH INTEGER PUSH FILEADDR ASSPAR CALL ADD ASSVAL 328 FILE SIZE=INTEGER(FILE ADDR) LINE 328 "regression-compile-tmp/nrimp10s-77.imp" PUSH FILESIZE PUSH INTEGER PUSH FILEADDR ASSPAR CALL ASSVAL 329 %FINISH LINE 329 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 330 NNAMES=255 LINE 330 "regression-compile-tmp/nrimp10s-77.imp" PUSH NNAMES PUSHI #0x000000ff ASSVAL 331 %IF FILESIZE>10000 %THEN NNAMES=511 LINE 331 "regression-compile-tmp/nrimp10s-77.imp" PUSH FILESIZE PUSHI #0x00002710 JUMPIF <= L_0004 PUSH NNAMES PUSHI #0x000001ff ASSVAL LOCATE L_0004 332 %IF PARMBITS1&JOBBER BIT=0 %START LINE 332 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMBITS1 PUSHI #0x40000000 AND PUSHI #0x00000000 JUMPIF # L_0004 333 %IF FILESIZE>32000 %THEN NNAMES=1023 LINE 333 "regression-compile-tmp/nrimp10s-77.imp" PUSH FILESIZE PUSHI #0x00007d00 JUMPIF <= L_0007 PUSH NNAMES PUSHI #0x000003ff ASSVAL LOCATE L_0007 334 %IF FILESIZE>256*1024 %OR PARMBITS2&MAXDICT#0 %OR WKFILEK>512 %THEN NNAMES=2047 LINE 334 "regression-compile-tmp/nrimp10s-77.imp" PUSH FILESIZE PUSHI #0x00000100 PUSHI #0x00000400 MUL JUMPIF > L_0008 PUSH PARMBITS2 PUSHI #0x00000100 AND PUSHI #0x00000000 JUMPIF # L_0008 PUSH WKFILEK PUSHI #0x00000200 JUMPIF <= L_0007 LOCATE L_0008 PUSH NNAMES PUSHI #0x000007ff ASSVAL LOCATE L_0007 335 %FINISH LINE 335 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 336 ASL=3*NNAMES LINE 336 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASL PUSHI #0x00000003 PUSH NNAMES MUL ASSVAL 337 ASL=4095 %IF ASL>4095 %AND PARMBITS2&MAXDICT=0;! STAY WITHIN 128K AUXSTACK LINE 337 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASL PUSHI #0x00000fff JUMPIF <= L_0004 PUSH PARMBITS2 PUSHI #0x00000100 AND PUSHI #0x00000000 JUMPIF # L_0004 PUSH ASL PUSHI #0x00000fff ASSVAL LOCATE L_0004 338 ARSIZE=WKFILEK*768-300 339 {%END ... extra block level enables dynamic array bound declarations ... 340 {%BYTEINTEGERARRAYFORMAT AF(0:ARSIZE) 341 {%BYTEINTEGERARRAYNAME A LINE 338 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARSIZE PUSH WKFILEK PUSHI #0x00000300 MUL PUSHI #0x0000012c SUB ASSVAL 342 %byteintegerarray A(0:WKFILEK*1024) LINE 342 "regression-compile-tmp/nrimp10s-77.imp" DEF A p1=V_00f8 a/tf=1b b/format=2 c/ostate=100 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0 PUSHI #0x00000000 PUSH WKFILEK PUSHI #0x00000400 MUL DIM 0001 0001 343 %RECORD(LISTF)%ARRAY ASLIST(0:ASL){(LISTF) LINE 343 "regression-compile-tmp/nrimp10s-77.imp" DEF ASLIST p1=V_00f9 a/tf=4b b/format=f4 c/ostate=100 type=4 (record) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 PUSHI #0x00000000 PUSH ASL DIM 0001 0001 344 %INTEGERARRAY WORD, TAGS(0:NNAMES) LINE 344 "regression-compile-tmp/nrimp10s-77.imp" DEF WORD p1=V_00fa 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 DEF TAGS p1=V_00fb 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 PUSHI #0x00000000 PUSH NNAMES DIM 0001 0002 345 %INTEGERARRAY DVHEADS(0:12) LINE 345 "regression-compile-tmp/nrimp10s-77.imp" DEF DVHEADS p1=V_00fc 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 PUSHI #0x00000000 PUSHI #0x0000000c DIM 0001 0001 346 %INTEGERFNSPEC FROMAR4(%INTEGER PTR) LINE 346 "regression-compile-tmp/nrimp10s-77.imp" DEF FROMAR4 (_lev0id0_lev1id1_FROMAR4) p1=V_00fd a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF PTR 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 FINISH ) {lev=2} 347 %INTEGERFNSPEC FROMAR2(%INTEGER PTR) LINE 347 "regression-compile-tmp/nrimp10s-77.imp" DEF FROMAR2 (_lev0id0_lev1id1_FROMAR2) p1=V_00fe a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF PTR 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} 348 %ROUTINESPEC TOAR8(%INTEGER PTR, %LONGREAL VALUE) LINE 348 "regression-compile-tmp/nrimp10s-77.imp" DEF TOAR8 (_lev0id0_lev1id1_TOAR8) p1=V_00ff a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF PTR 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 DEF VALUE p1=V_0101 a/tf=21 b/format=4 c/ostate=0 type=2 (real) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=2} 349 %ROUTINESPEC TOAR4(%INTEGER PTR, VALUE) LINE 349 "regression-compile-tmp/nrimp10s-77.imp" DEF TOAR4 (_lev0id0_lev1id1_TOAR4) p1=V_0100 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF PTR 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 VALUE 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 FINISH ) {lev=2} 350 %ROUTINESPEC TOAR2(%INTEGER PTR,VALUE) LINE 350 "regression-compile-tmp/nrimp10s-77.imp" DEF TOAR2 (_lev0id0_lev1id1_TOAR2) p1=V_0101 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF PTR 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 DEF VALUE 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} 351 %ROUTINESPEC WARN(%INTEGER N,V) LINE 351 "regression-compile-tmp/nrimp10s-77.imp" DEF WARN (_lev0id0_lev1id1_WARN) p1=V_0102 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF N 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 DEF V 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} 352 %ROUTINESPEC FAULT2(%INTEGER N,VAL,IDEN) LINE 352 "regression-compile-tmp/nrimp10s-77.imp" DEF FAULT2 (_lev0id0_lev1id1_FAULT2) p1=V_0103 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF N 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 DEF VAL p1=V_0105 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 IDEN 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 FINISH ) {lev=2} 353 %ROUTINESPEC FAULT(%INTEGER N, VALUE) LINE 353 "regression-compile-tmp/nrimp10s-77.imp" DEF FAULT (_lev0id0_lev1id1_FAULT) p1=V_0104 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF N p1=V_0105 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 VALUE 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 FINISH ) {lev=2} 354 %STRING(255)%FNSPEC PRINTNAME(%INTEGER N) LINE 354 "regression-compile-tmp/nrimp10s-77.imp" DEF PRINTNAME (_lev0id0_lev1id1_PRINTNAME) p1=V_0105 a/tf=38 b/format=ff c/ostate=18 type=3 (string) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF N 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 FINISH ) {lev=2} 355 %INTEGERFNSPEC MORE SPACE 356 !%INTEGERFNSPEC NEWCELL LINE 355 "regression-compile-tmp/nrimp10s-77.imp" DEF MORESPACE (_lev0id0_lev1id1_MORESPACE) p1=V_0106 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} FINISH ) {lev=2} 357 %ROUTINESPEC INSERTATEND(%INTEGERNAME S, %INTEGER A, B, C) LINE 357 "regression-compile-tmp/nrimp10s-77.imp" DEF INSERTATEND (_lev0id0_lev1id1_INSERTATEND) p1=V_0107 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF S p1=V_0108 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF A 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 B 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 DEF C p1=V_010b 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} 358 %ROUTINESPEC FROM12(%INTEGER CELL, %INTEGERNAME S1, S2) LINE 358 "regression-compile-tmp/nrimp10s-77.imp" DEF FROM12 (_lev0id0_lev1id1_FROM12) p1=V_0108 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF CELL 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 S1 p1=V_010a a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF S2 p1=V_010b a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=2} 359 %ROUTINESPEC FROM123(%INTEGER CELL, %INTEGERNAME S1, S2, S3) LINE 359 "regression-compile-tmp/nrimp10s-77.imp" DEF FROM123 (_lev0id0_lev1id1_FROM123) p1=V_0109 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF CELL 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 DEF S1 p1=V_010b a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF S2 p1=V_010c a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF S3 p1=V_010d a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=2} 360 %ROUTINESPEC POP(%INTEGERNAME C, P, Q, R) LINE 360 "regression-compile-tmp/nrimp10s-77.imp" DEF POP (_lev0id0_lev1id1_POP) p1=V_010a a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF C p1=V_010b a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF P p1=V_010c a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF Q p1=V_010d a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF R p1=V_010e a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=2} 361 %ROUTINESPEC PUSH(%INTEGERNAME C, %INTEGER S1, S2, S3) LINE 361 "regression-compile-tmp/nrimp10s-77.imp" DEF PUSH (_lev0id0_lev1id1_PUSH) p1=V_010b a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF C p1=V_010c a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF S1 p1=V_010d 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 S2 p1=V_010e 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 S3 p1=V_010f 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} 362 %INTEGERFNSPEC FIND(%INTEGER LAB, LIST) LINE 362 "regression-compile-tmp/nrimp10s-77.imp" DEF FIND (_lev0id0_lev1id1_FIND) p1=V_010c a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF LAB p1=V_010d 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 LIST p1=V_010e 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} 363 %ROUTINESPEC MLINK(%INTEGERNAME CELL) LINE 363 "regression-compile-tmp/nrimp10s-77.imp" DEF MLINK (_lev0id0_lev1id1_MLINK) p1=V_010d a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF CELL p1=V_010e a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=2} 364 %ROUTINESPEC REPLACE1(%INTEGER CELL, S1) LINE 364 "regression-compile-tmp/nrimp10s-77.imp" DEF REPLACE1 (_lev0id0_lev1id1_REPLACE1) p1=V_010e a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF CELL p1=V_010f 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 S1 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 FINISH ) {lev=2} 365 %ROUTINESPEC REPLACE2(%INTEGER CELL, S2) LINE 365 "regression-compile-tmp/nrimp10s-77.imp" DEF REPLACE2 (_lev0id0_lev1id1_REPLACE2) p1=V_010f a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF CELL 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 S2 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 FINISH ) {lev=2} 366 %ROUTINESPEC REPLACE3(%INTEGER CELL,S3) LINE 366 "regression-compile-tmp/nrimp10s-77.imp" DEF REPLACE3 (_lev0id0_lev1id1_REPLACE3) p1=V_0110 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF CELL 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 S3 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 FINISH ) {lev=2} 367 %ROUTINESPEC REPLACE123(%INTEGER CELL,A1,A2,S3) LINE 367 "regression-compile-tmp/nrimp10s-77.imp" DEF REPLACE123 (_lev0id0_lev1id1_REPLACE123) p1=V_0111 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF CELL 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 A1 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 A2 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 S3 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 FINISH ) {lev=2} 368 %INTEGERFNSPEC FROM2(%INTEGER CELL) LINE 368 "regression-compile-tmp/nrimp10s-77.imp" DEF FROM2 (_lev0id0_lev1id1_FROM2) p1=V_0112 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF CELL 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 FINISH ) {lev=2} 369 %INTEGERFNSPEC FROM1(%INTEGER CELL) LINE 369 "regression-compile-tmp/nrimp10s-77.imp" DEF FROM1 (_lev0id0_lev1id1_FROM1) p1=V_0113 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF CELL 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 FINISH ) {lev=2} 370 %INTEGERFNSPEC FROM3(%INTEGER CELL) LINE 370 "regression-compile-tmp/nrimp10s-77.imp" DEF FROM3 (_lev0id0_lev1id1_FROM3) p1=V_0114 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF CELL 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 FINISH ) {lev=2} 371 %ROUTINESPEC BINSERT(%INTEGERNAME T,B,%INTEGER S1,S2,S3) LINE 371 "regression-compile-tmp/nrimp10s-77.imp" DEF BINSERT (_lev0id0_lev1id1_BINSERT) p1=V_0115 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF T p1=V_0116 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF B p1=V_0117 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF S1 p1=V_0118 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 S2 p1=V_0119 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 S3 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 FINISH ) {lev=2} 372 %ROUTINESPEC CLEARLIST(%INTEGERNAME HEAD) LINE 372 "regression-compile-tmp/nrimp10s-77.imp" DEF CLEARLIST (_lev0id0_lev1id1_CLEARLIST) p1=V_0116 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF HEAD p1=V_0117 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=2} 373 %STRING(255)%FNSPEC MESSAGE(%INTEGER N) LINE 373 "regression-compile-tmp/nrimp10s-77.imp" DEF MESSAGE (_lev0id0_lev1id1_MESSAGE) p1=V_0117 a/tf=38 b/format=ff c/ostate=18 type=3 (string) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF N p1=V_0118 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} 374 %SYSTEMROUTINESPEC LPUT(%INTEGER A, B, C, D) LINE 374 "regression-compile-tmp/nrimp10s-77.imp" DEF LPUT (_lev0id0_lev1id1_LPUT) p1=V_0118 a/tf=7 b/format=0 c/ostate=2c type=0 () form=7 (routine) special=0 () linkage=4 (system) spec=1 indirect=0 unass=1 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF A p1=V_0119 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 B 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 C 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 D 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=2} 375 %SYSTEMLONGREALFNSPEC CPUTIME 376 !*DELSTART LINE 375 "regression-compile-tmp/nrimp10s-77.imp" DEF CPUTIME (_lev0id0_lev1id1_CPUTIME) p1=V_0119 a/tf=28 b/format=4 c/ostate=3c type=2 (real) form=8 (function) special=0 () linkage=4 (system) spec=1 indirect=1 unass=1 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} FINISH ) {lev=2} 377 %SYSTEMROUTINESPEC NCODE(%INTEGER START, FINISH, CA) LINE 377 "regression-compile-tmp/nrimp10s-77.imp" DEF NCODE (_lev0id0_lev1id1_NCODE) p1=V_011a a/tf=7 b/format=0 c/ostate=2c type=0 () form=7 (routine) special=0 () linkage=4 (system) spec=1 indirect=0 unass=1 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF START 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 FINISH 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 DEF CA 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=2} 378 %ROUTINESPEC PRINTLIST(%INTEGER HEAD) LINE 378 "regression-compile-tmp/nrimp10s-77.imp" DEF PRINTLIST (_lev0id0_lev1id1_PRINTLIST) p1=V_011b a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF HEAD 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=2} 379 %ROUTINESPEC PRHEX(%INTEGER VALUE,PLACES) LINE 379 "regression-compile-tmp/nrimp10s-77.imp" DEF PRHEX (_lev0id0_lev1id1_PRHEX) p1=V_011c a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF VALUE 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 PLACES 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 FINISH ) {lev=2} 380 %ROUTINESPEC CHECK ASL 381 !*DELEND LINE 380 "regression-compile-tmp/nrimp10s-77.imp" DEF CHECKASL (_lev0id0_lev1id1_CHECKASL) p1=V_011d a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} FINISH ) {lev=2} 382 %IF VMEB=NO %THEN %START LINE 382 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSHI #0x00000000 JUMPIF # L_0004 383 %SYSTEMROUTINESPEC CONSOURCE(%STRING(31)FILE,%INTEGERNAME AD) LINE 383 "regression-compile-tmp/nrimp10s-77.imp" DEF CONSOURCE (_lev0id0_lev1id1_CONSOURCE) p1=V_011e a/tf=7 b/format=0 c/ostate=2c type=0 () form=7 (routine) special=0 () linkage=4 (system) spec=1 indirect=0 unass=1 START ( FORMAL PARAMETERS {lev=2 --> 3, nested=0 --> 1} DEF FILE p1=V_011f a/tf=31 b/format=1f c/ostate=0 type=3 (string) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF AD p1=V_0120 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=2} 384 %FINISH 385 ! START OF COMPILATION 386 {A==ARRAY(WKFILE AD+256*WKFILEK, AF) LINE 384 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 387 %BEGIN 388 !*********************************************************************** 389 !* THIS BLOCK INITIALISE THE COMPILER SCALARS AND ARRAYS * 390 !* WAS ORIGINALLY ROUTINE 'INITIALISE'. * 391 !* THE INITIALISATION OF THE CONSTANT LISTS WITH THE VALUES * 392 !* IN PERM MAY BE OMITTED IN BATCH OR CUT-DOWN VERSIONS. * 393 !*********************************************************************** LINE 387 "regression-compile-tmp/nrimp10s-77.imp" BEGIN _lev0id0_lev1id1_lev2id2 {lev=2 --> 3} 394 %ROUTINESPEC READ LINE(%INTEGER MODE,CHAR) LINE 394 "regression-compile-tmp/nrimp10s-77.imp" DEF READLINE (_lev0id0_lev1id1_lev2id2_READLINE) p1=V_011f a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF MODE 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 DEF CHAR 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} 395 %INTEGERFNSPEC COMPARE(%INTEGER P) LINE 395 "regression-compile-tmp/nrimp10s-77.imp" DEF COMPARE (_lev0id0_lev1id1_lev2id2_COMPARE) p1=V_0120 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF P 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} 396 %ROUTINESPEC PNAME(%INTEGER MODE) LINE 396 "regression-compile-tmp/nrimp10s-77.imp" DEF PNAME (_lev0id0_lev1id1_lev2id2_PNAME) p1=V_0121 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF MODE 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 FINISH ) {lev=3} 397 %ROUTINESPEC CONST(%INTEGER MODE) LINE 397 "regression-compile-tmp/nrimp10s-77.imp" DEF CONST (_lev0id0_lev1id1_lev2id2_CONST) p1=V_0122 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF MODE 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 FINISH ) {lev=3} 398 %ROUTINESPEC TEXTTEXT(%INTEGER EBCDIC) LINE 398 "regression-compile-tmp/nrimp10s-77.imp" DEF TEXTTEXT (_lev0id0_lev1id1_lev2id2_TEXTTEXT) p1=V_0123 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF EBCDIC p1=V_0124 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} 399 %INTEGER CCSIZE,DSIZE,NEXT,ATLINE1,STARSTART LINE 399 "regression-compile-tmp/nrimp10s-77.imp" DEF CCSIZE p1=V_0124 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 DSIZE p1=V_0125 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 NEXT p1=V_0126 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 ATLINE1 p1=V_0127 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 STARSTART p1=V_0128 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 400 CCSIZE=1000; DSIZE=7*NNAMES LINE 400 "regression-compile-tmp/nrimp10s-77.imp" PUSH CCSIZE PUSHI #0x000003e8 ASSVAL LINE 400 "regression-compile-tmp/nrimp10s-77.imp" PUSH DSIZE PUSHI #0x00000007 PUSH NNAMES MUL ASSVAL 401 %INTEGERARRAY DISPLAY,SFS(0:MAXLEVELS) LINE 401 "regression-compile-tmp/nrimp10s-77.imp" DEF DISPLAY p1=V_0129 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 DEF SFS p1=V_012a 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 PUSHI #0x00000000 PUSHI #0x0000001f DIM 0001 0002 402 %BYTEINTEGERARRAY TLINE(-60:161),CC(0:CCSIZE),LETT(0:DSIZE+20) LINE 402 "regression-compile-tmp/nrimp10s-77.imp" DEF TLINE p1=V_012b a/tf=1b b/format=2 c/ostate=100 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0 PUSHI #0x0000003c NEGATE PUSHI #0x000000a1 DIM 0001 0001 DEF CC p1=V_012c a/tf=1b b/format=2 c/ostate=100 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0 PUSHI #0x00000000 PUSH CCSIZE DIM 0001 0001 DEF LETT p1=V_012d a/tf=1b b/format=2 c/ostate=100 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0 PUSHI #0x00000000 PUSH DSIZE PUSHI #0x00000014 ADD DIM 0001 0001 403 %LONGINTEGER ATL0,ASYM0 LINE 403 "regression-compile-tmp/nrimp10s-77.imp" DEF ATL0 p1=V_012e a/tf=11 b/format=4 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF ASYM0 p1=V_012f a/tf=11 b/format=4 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 404 %CONSTBYTEINTEGERARRAY ILETT(0: 500)= 11, 405 'S','E','L','E','C','T','I','N','P','U','T', 12,'S','E','L','E', 406 'C','T','O','U','T','P','U','T', 7,'N','E','W','L','I','N','E', 407 5,'S','P','A','C','E', 10,'S','K','I','P','S','Y','M','B','O', 408 'L', 10,'R','E','A','D','S','T','R','I','N','G', 8,'N','E','W', 409 'L','I','N','E','S', 6,'S','P','A','C','E','S', 10,'N','E','X', 410 'T','S','Y','M','B','O','L', 11,'P','R','I','N','T','S','Y','M', 411 'B','O','L', 10,'R','E','A','D','S','Y','M','B','O','L', 4,'R', 412 'E','A','D', 5,'W','R','I','T','E', 7,'N','E','W','P','A','G', 413 'E', 4,'A','D','D','R', 6,'A','R','C','S','I','N', 3,'I','N', 414 'T', 5,'I','N','T','P','T', 6,'F','R','A','C','P','T', 5,'P', 415 'R','I','N','T', 7,'P','R','I','N','T','F','L', 4,'R','E','A', 416 'L', 7,'I','N','T','E','G','E','R', 3,'M','O','D', 6,'A','R', 417 'C','C','O','S', 4,'S','Q','R','T', 3,'L','O','G', 3,'S','I', 418 'N', 3,'C','O','S', 3,'T','A','N', 3,'E','X','P', 11,'C','L', 419 'O','S','E','S','T','R','E','A','M', 11,'B','Y','T','E','I','N', 420 'T','E','G','E','R', 8,'E','V','E','N','T','I','N','F', 421 6,'R','A','D','I','U','S', 6,'A','R','C','T','A','N', 422 6,'L','E','N','G','T','H', 11,'P','R','I','N','T','S','T','R', 423 'I','N','G', 2,'N','L', 8,'L','O','N','G','R','E','A','L', 7, 424 'P','R','I','N','T','C','H', 6,'R','E','A','D','C','H', 6,'S', 425 'T','R','I','N','G', 8,'R','E','A','D','I','T','E','M', 8,'N', 426 'E','X','T','I','T','E','M', 6,'C','H','A','R','N','O', 8,'T', 427 'O','S','T','R','I','N','G', 10,'F','R','O','M','S','T','R','I', 428 'N','G', 6,'R','E','C','O','R','D', 5,'A','R','R','A','Y', 10, 429 'S','E','T','M','A','R','G','I','N','S',4,'I','M','O','D',2,'P', 430 'I',9,'E','V','E','N','T','L','I','N','E',11,'L','O','N','G', 431 'I','N','T','E','G','E','R',12,'L','O','N','G','L','O','N','G', 432 'R','E','A','L',9,'L','E','N','G','T','H','E','N','I', 433 9,'L','E','N','G','T','H','E','N','R', 434 8,'S','H','O','R','T','E','N','I', 435 8,'S','H','O','R','T','E','N','R', 436 6,'N','E','X','T','C','H', 437 11,'H','A','L','F','I','N','T','E','G','E','R', 438 8,'P','P','R','O','F','I','L','E',255; LINE 404 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSHI #0x000001f4 BOUNDS DEF ILETT p1=V_0130 a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x0000000b INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000055 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x0000000c INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000055 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000055 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000057 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x0000004b INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000059 INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x00000042 INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000057 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000058 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000059 INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x00000042 INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000000b INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000059 INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x00000042 INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000059 INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x00000042 INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x00000057 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000057 INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000046 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000046 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000051 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000003 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000058 INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x0000000b INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x0000000b INIT 1 PUSHI #0x00000042 INIT 1 PUSHI #0x00000059 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000056 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000046 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x00000055 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000048 INIT 1 PUSHI #0x0000000b INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00000007 INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000048 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000048 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000058 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000048 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x00000046 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000005 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000059 INIT 1 PUSHI #0x0000000a INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000004 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000002 INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x00000009 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000056 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x0000000b INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x0000000c INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00000009 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000048 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x00000009 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000048 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000048 INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000048 INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000006 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000058 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000048 INIT 1 PUSHI #0x0000000b INIT 1 PUSHI #0x00000048 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00000046 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000008 INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000046 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x000000ff INIT 1 439 IMAX=(-1)>>1;PLABEL=24999 LINE 439 "regression-compile-tmp/nrimp10s-77.imp" PUSH IMAX PUSHI #0x00000001 NEGATE PUSHI #0x00000001 RSH ASSVAL LINE 439 "regression-compile-tmp/nrimp10s-77.imp" PUSH PLABEL PUSHI #0x000061a7 ASSVAL 440 LETT(0)=0 LINE 440 "regression-compile-tmp/nrimp10s-77.imp" PUSH LETT PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL 441 ATLINE1=ADDR(TLINE(1)) LINE 441 "regression-compile-tmp/nrimp10s-77.imp" PUSH ATLINE1 PUSH ADDR PUSH TLINE PUSHI #0x00000001 ACCESS ASSPAR CALL ASSVAL 442 INTEGER(ADDR(ATL0)+4)=ATLINE1-1 LINE 442 "regression-compile-tmp/nrimp10s-77.imp" PUSH INTEGER PUSH ADDR PUSH ATL0 ASSPAR CALL PUSHI #0x00000004 ADD ASSPAR CALL PUSH ATLINE1 PUSHI #0x00000001 SUB ASSVAL 443 INTEGER(ADDR(ATL0))=16_18000100 LINE 443 "regression-compile-tmp/nrimp10s-77.imp" PUSH INTEGER PUSH ADDR PUSH ATL0 ASSPAR CALL ASSPAR CALL PUSHI #0x18000100 ASSVAL 444 INTEGER(ADDR(ASYM0))=16_28000C00 LINE 444 "regression-compile-tmp/nrimp10s-77.imp" PUSH INTEGER PUSH ADDR PUSH ASYM0 ASSPAR CALL ASSPAR CALL PUSHI #0x28000c00 ASSVAL 445 INTEGER(ADDR(ASYM0)+4)=ADDR(SYMBOL(1300))-4*1300 LINE 445 "regression-compile-tmp/nrimp10s-77.imp" PUSH INTEGER PUSH ADDR PUSH ASYM0 ASSPAR CALL PUSHI #0x00000004 ADD ASSPAR CALL PUSH ADDR PUSH SYMBOL PUSHI #0x00000514 ACCESS ASSPAR CALL PUSHI #0x00000004 PUSHI #0x00000514 MUL SUB ASSVAL 446 N=12; LINE 446 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSHI #0x0000000c ASSVAL 447 MAX ULAB=NNAMES+16384; ! LARGEST VALID USER LABEL LINE 447 "regression-compile-tmp/nrimp10s-77.imp" PUSH MAXULAB PUSH NNAMES PUSHI #0x00004000 ADD ASSVAL 448 GLACURR=0; GLACA=FIXEDGLALEN; GLACABUF=GLACA LINE 448 "regression-compile-tmp/nrimp10s-77.imp" PUSH GLACURR PUSHI #0x00000000 ASSVAL LINE 448 "regression-compile-tmp/nrimp10s-77.imp" PUSH GLACA PUSHI #0x00000030 ASSVAL LINE 448 "regression-compile-tmp/nrimp10s-77.imp" PUSH GLACABUF PUSH GLACA ASSVAL 449 PARMOPT=1 ; PARMARR=1; LAST INST=0 LINE 449 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMOPT PUSHI #0x00000001 ASSVAL LINE 449 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMARR PUSHI #0x00000001 ASSVAL LINE 449 "regression-compile-tmp/nrimp10s-77.imp" PUSH LASTINST PUSHI #0x00000000 ASSVAL 450 PARMLINE=1; PARMTRACE=1; PARMDIAG=1 LINE 450 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMLINE PUSHI #0x00000001 ASSVAL LINE 450 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMTRACE PUSHI #0x00000001 ASSVAL LINE 450 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMDIAG PUSHI #0x00000001 ASSVAL 451 LIST=1; SFLABEL=20999; PARMCHK=1 LINE 451 "regression-compile-tmp/nrimp10s-77.imp" PUSH LIST PUSHI #0x00000001 ASSVAL LINE 451 "regression-compile-tmp/nrimp10s-77.imp" PUSH SFLABEL PUSHI #0x00005207 ASSVAL LINE 451 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMCHK PUSHI #0x00000001 ASSVAL 452 EXITLAB=0; CONTLAB=0 LINE 452 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXITLAB PUSHI #0x00000000 ASSVAL LINE 452 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONTLAB PUSHI #0x00000000 ASSVAL 453 CABUF=0; PPCURR=0; OLDLINE=0; COMPILER=0 LINE 453 "regression-compile-tmp/nrimp10s-77.imp" PUSH CABUF PUSHI #0x00000000 ASSVAL LINE 453 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPCURR PUSHI #0x00000000 ASSVAL LINE 453 "regression-compile-tmp/nrimp10s-77.imp" PUSH OLDLINE PUSHI #0x00000000 ASSVAL LINE 453 "regression-compile-tmp/nrimp10s-77.imp" PUSH COMPILER PUSHI #0x00000000 ASSVAL 454 RLEVEL=0; NMAX=0; USTPTR=0 LINE 454 "regression-compile-tmp/nrimp10s-77.imp" PUSH RLEVEL PUSHI #0x00000000 ASSVAL LINE 454 "regression-compile-tmp/nrimp10s-77.imp" PUSH NMAX PUSHI #0x00000000 ASSVAL LINE 454 "regression-compile-tmp/nrimp10s-77.imp" PUSH USTPTR PUSHI #0x00000000 ASSVAL 455 LEVEL=0; CA=0; LASTAT=0 LINE 455 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x00000000 ASSVAL LINE 455 "regression-compile-tmp/nrimp10s-77.imp" PUSH CA PUSHI #0x00000000 ASSVAL LINE 455 "regression-compile-tmp/nrimp10s-77.imp" PUSH LASTAT PUSHI #0x00000000 ASSVAL 456 FAULTY=0; WARNFLAG=0; ALLLONG=0; INHCODE=0 LINE 456 "regression-compile-tmp/nrimp10s-77.imp" PUSH FAULTY PUSHI #0x00000000 ASSVAL LINE 456 "regression-compile-tmp/nrimp10s-77.imp" PUSH WARNFLAG PUSHI #0x00000000 ASSVAL LINE 456 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALLLONG PUSHI #0x00000000 ASSVAL LINE 456 "regression-compile-tmp/nrimp10s-77.imp" PUSH INHCODE PUSHI #0x00000000 ASSVAL 457 DCOMP=0; BFFLAG=0; CPRMODE=0 LINE 457 "regression-compile-tmp/nrimp10s-77.imp" PUSH DCOMP PUSHI #0x00000000 ASSVAL LINE 457 "regression-compile-tmp/nrimp10s-77.imp" PUSH BFFLAG PUSHI #0x00000000 ASSVAL LINE 457 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPRMODE PUSHI #0x00000000 ASSVAL 458 NEXT=1; LDPTR=0 LINE 458 "regression-compile-tmp/nrimp10s-77.imp" PUSH NEXT PUSHI #0x00000001 ASSVAL LINE 458 "regression-compile-tmp/nrimp10s-77.imp" PUSH LDPTR PUSHI #0x00000000 ASSVAL 459 IOCPDISP=0; CREFHEAD=0; AUXST=0 LINE 459 "regression-compile-tmp/nrimp10s-77.imp" PUSH IOCPDISP PUSHI #0x00000000 ASSVAL LINE 459 "regression-compile-tmp/nrimp10s-77.imp" PUSH CREFHEAD PUSHI #0x00000000 ASSVAL LINE 459 "regression-compile-tmp/nrimp10s-77.imp" PUSH AUXST PUSHI #0x00000000 ASSVAL 460 RBASE=10; LOGEPDISP=0; EXPEPDISP=0; STRLINK=0 LINE 460 "regression-compile-tmp/nrimp10s-77.imp" PUSH RBASE PUSHI #0x0000000a ASSVAL LINE 460 "regression-compile-tmp/nrimp10s-77.imp" PUSH LOGEPDISP PUSHI #0x00000000 ASSVAL LINE 460 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXPEPDISP PUSHI #0x00000000 ASSVAL LINE 460 "regression-compile-tmp/nrimp10s-77.imp" PUSH STRLINK PUSHI #0x00000000 ASSVAL 461 RECTB=0; IHEAD=0 LINE 461 "regression-compile-tmp/nrimp10s-77.imp" PUSH RECTB PUSHI #0x00000000 ASSVAL LINE 461 "regression-compile-tmp/nrimp10s-77.imp" PUSH IHEAD PUSHI #0x00000000 ASSVAL 462 SSTL=0; STMTS=1; SNUM=0; LEVELINF=0 LINE 462 "regression-compile-tmp/nrimp10s-77.imp" PUSH SSTL PUSHI #0x00000000 ASSVAL LINE 462 "regression-compile-tmp/nrimp10s-77.imp" PUSH STMTS PUSHI #0x00000001 ASSVAL LINE 462 "regression-compile-tmp/nrimp10s-77.imp" PUSH SNUM PUSHI #0x00000000 ASSVAL LINE 462 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVELINF PUSHI #0x00000000 ASSVAL 463 CDCOUNT=0 LINE 463 "regression-compile-tmp/nrimp10s-77.imp" PUSH CDCOUNT PUSHI #0x00000000 ASSVAL 464 BIMSTR=0 LINE 464 "regression-compile-tmp/nrimp10s-77.imp" PUSH BIMSTR PUSHI #0x00000000 ASSVAL 465 LOGEPDISP=0; EXPEPDISP=0 LINE 465 "regression-compile-tmp/nrimp10s-77.imp" PUSH LOGEPDISP PUSHI #0x00000000 ASSVAL LINE 465 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXPEPDISP PUSHI #0x00000000 ASSVAL 466 MAINEP="S#GO"; ! DEFAULT MAIN ENTRY LINE 466 "regression-compile-tmp/nrimp10s-77.imp" PUSH MAINEP PUSHS "S#GO" ASSVAL 467 DICTBASE=ADDR(LETT(0)) 468 ! 469 ! OPEN OBJECT FILE HERE BEFORE MORE PAGES OF COMPILER CODE 470 ! ARE PAGED IN AND SUB-SYSTEM PAGES MOVE OUT 471 ! LINE 467 "regression-compile-tmp/nrimp10s-77.imp" PUSH DICTBASE PUSH ADDR PUSH LETT PUSHI #0x00000000 ACCESS ASSPAR CALL ASSVAL 472 LPUT(0,0,0,0) LINE 472 "regression-compile-tmp/nrimp10s-77.imp" PUSH LPUT PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL 473 CTIME=CPUTIME LINE 473 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTIME PUSH CPUTIME CALL ASSVAL 474 I=COMREG(27) LINE 474 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH COMREG PUSHI #0x0000001b ASSPAR CALL ASSVAL 475 STLIMIT=16_1F000 LINE 475 "regression-compile-tmp/nrimp10s-77.imp" PUSH STLIMIT PUSHI #0x0001f000 ASSVAL 476 %IF I>>24&1#0 %THEN STLIMIT=COMREG(48)-4096 LINE 476 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000018 RSH PUSHI #0x00000001 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH STLIMIT PUSH COMREG PUSHI #0x00000030 ASSPAR CALL PUSHI #0x00001000 SUB ASSVAL LOCATE L_0004 477 %IF I&2=2 %THEN LIST=0 LINE 477 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000002 AND PUSHI #0x00000002 JUMPIF # L_0004 PUSH LIST PUSHI #0x00000000 ASSVAL LOCATE L_0004 478 %IF I&4=4 %THEN PARMDIAG=0 LINE 478 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000004 AND PUSHI #0x00000004 JUMPIF # L_0004 PUSH PARMDIAG PUSHI #0x00000000 ASSVAL LOCATE L_0004 479 %IF I&16_800000#0 %THEN PARMLINE=0 LINE 479 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00800000 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH PARMLINE PUSHI #0x00000000 ASSVAL LOCATE L_0004 480 %IF I&16=16 %THEN PARMCHK=0 LINE 480 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000010 AND PUSHI #0x00000010 JUMPIF # L_0004 PUSH PARMCHK PUSHI #0x00000000 ASSVAL LOCATE L_0004 481 %IF I&32=32 %THEN PARMARR=0 LINE 481 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000020 AND PUSHI #0x00000020 JUMPIF # L_0004 PUSH PARMARR PUSHI #0x00000000 ASSVAL LOCATE L_0004 482 PARMPROF=(I>>15&1)!(I>>7&1); ! USE MAP OR PROFILE BIT PRO TEM LINE 482 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMPROF PUSH I PUSHI #0x0000000f RSH PUSHI #0x00000001 AND PUSH I PUSHI #0x00000007 RSH PUSHI #0x00000001 AND OR ASSVAL 483 PARMDYNAMIC=I>>20&1 LINE 483 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMDYNAMIC PUSH I PUSHI #0x00000014 RSH PUSHI #0x00000001 AND ASSVAL 484 PARMLET=I>>13&1 LINE 484 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMLET PUSH I PUSHI #0x0000000d RSH PUSHI #0x00000001 AND ASSVAL 485 DCOMP=I>>14&1; ! PARM CODE OR D LINE 485 "regression-compile-tmp/nrimp10s-77.imp" PUSH DCOMP PUSH I PUSHI #0x0000000e RSH PUSHI #0x00000001 AND ASSVAL 486 PARMDBUG=I>>18&1 LINE 486 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMDBUG PUSH I PUSHI #0x00000012 RSH PUSHI #0x00000001 AND ASSVAL 487 %IF I&64=64 %THEN PARMTRACE=0 %AND PARMDIAG=0 LINE 487 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000040 AND PUSHI #0x00000040 JUMPIF # L_0004 PUSH PARMTRACE PUSHI #0x00000000 ASSVAL PUSH PARMDIAG PUSHI #0x00000000 ASSVAL LOCATE L_0004 488 FREE FORMAT=I&16_80000 LINE 488 "regression-compile-tmp/nrimp10s-77.imp" PUSH FREEFORMAT PUSH I PUSHI #0x00080000 AND ASSVAL 489 STACK=I>>3&1 LINE 489 "regression-compile-tmp/nrimp10s-77.imp" PUSH STACK PUSH I PUSHI #0x00000003 RSH PUSHI #0x00000001 AND ASSVAL 490 SMAP=I>>26&1; ! USE PARMZ BIT FOR DUMPING WKFILE LINE 490 "regression-compile-tmp/nrimp10s-77.imp" PUSH SMAP PUSH I PUSHI #0x0000001a RSH PUSHI #0x00000001 AND ASSVAL 491 TTOPUT=COMREG(40) LINE 491 "regression-compile-tmp/nrimp10s-77.imp" PUSH TTOPUT PUSH COMREG PUSHI #0x00000028 ASSPAR CALL ASSVAL 492 %IF I&(1<<16)#0 %THEN %START LINE 492 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSHI #0x00000010 LSH AND PUSHI #0x00000000 JUMPIF = L_0004 493 PARMARR=0; PARMOPT=0 LINE 493 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMARR PUSHI #0x00000000 ASSVAL LINE 493 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMOPT PUSHI #0x00000000 ASSVAL 494 PARMLINE=0; PARMCHK=0; PARMDIAG=0 LINE 494 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMLINE PUSHI #0x00000000 ASSVAL LINE 494 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMCHK PUSHI #0x00000000 ASSVAL LINE 494 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMDIAG PUSHI #0x00000000 ASSVAL 495 %FINISH LINE 495 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 496 PARMTRACE=PARMTRACE!PARMOPT; ! ALLOW NOTRACE ONLY WITH OPT LINE 496 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMTRACE PUSH PARMTRACE PUSH PARMOPT OR ASSVAL 497 IMPS=I>>23&1; ! BIT SET IF IMPS REQUESTED LINE 497 "regression-compile-tmp/nrimp10s-77.imp" PUSH IMPS PUSH I PUSHI #0x00000017 RSH PUSHI #0x00000001 AND ASSVAL 498 IMPS=1; ! FOR TESTING LINE 498 "regression-compile-tmp/nrimp10s-77.imp" PUSH IMPS PUSHI #0x00000001 ASSVAL 499 NEWLINES(3); SPACES(14) LINE 499 "regression-compile-tmp/nrimp10s-77.imp" PUSH NEWLINES PUSHI #0x00000003 ASSPAR CALL LINE 499 "regression-compile-tmp/nrimp10s-77.imp" PUSH SPACES PUSHI #0x0000000e ASSPAR CALL 500 PRINTSTRING("ERCC. Imp") LINE 500 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTSTRING PUSHS "ERCC. Imp" ASSPAR CALL 501 %IF IMPS#0 %THEN PRINTSYMBOL('s') LINE 501 "regression-compile-tmp/nrimp10s-77.imp" PUSH IMPS PUSHI #0x00000000 JUMPIF = L_0004 PUSH PRINTSYMBOL PUSHI #0x00000073 ASSPAR CALL LOCATE L_0004 502 PRINTSTRING(" Compiler Release") LINE 502 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTSTRING PUSHS " Compiler Release" ASSPAR CALL 503 WRITE(RELEASE,1) LINE 503 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSHI #0x0000000a ASSPAR PUSHI #0x00000001 ASSPAR CALL 504 PRINTSTRING(" Version ".LADATE) LINE 504 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTSTRING PUSHS " Version " PUSH LADATE CONCAT ASSPAR CALL 505 NEWLINES(3) LINE 505 "regression-compile-tmp/nrimp10s-77.imp" PUSH NEWLINES PUSHI #0x00000003 ASSPAR CALL 506 WRITE(NNAMES,5); WRITE(ASL,5) LINE 506 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSH NNAMES ASSPAR PUSHI #0x00000005 ASSPAR CALL LINE 506 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSH ASL ASSPAR PUSHI #0x00000005 ASSPAR CALL 507 NEWLINE LINE 507 "regression-compile-tmp/nrimp10s-77.imp" PUSH NEWLINE CALL 508 ASL WARN=0 LINE 508 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASLWARN PUSHI #0x00000000 ASSVAL 509 ASL CUR BTM=ASL-240 LINE 509 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASLCURBTM PUSH ASL PUSHI #0x000000f0 SUB ASSVAL 510 CONST LIMIT=4*ASL CUR BTM-8 LINE 510 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTLIMIT PUSHI #0x00000004 PUSH ASLCURBTM MUL PUSHI #0x00000008 SUB ASSVAL 511 %CYCLE I=ASL CUR BTM,1,ASL-1 LINE 511 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSH ASL PUSHI #0x00000001 SUB PUSH ASLCURBTM FOR L_0003 512 ASLIST(I+1)_LINK=I LINE 512 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASLIST PUSH I PUSHI #0x00000001 ADD ACCESS SELECT 4 PUSH I ASSVAL 513 %REPEAT LINE 513 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 514 ASLIST(ASL CUR BTM)_LINK=0 LINE 514 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASLIST PUSH ASLCURBTM ACCESS SELECT 4 PUSHI #0x00000000 ASSVAL 515 ASLIST(0)_S1=-1 LINE 515 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASLIST PUSHI #0x00000000 ACCESS SELECT 1 PUSHI #0x00000001 NEGATE ASSVAL 516 ASLIST(0)_S2=-1 LINE 516 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASLIST PUSHI #0x00000000 ACCESS SELECT 2 PUSHI #0x00000001 NEGATE ASSVAL 517 ASLIST(0)_S3=-1 LINE 517 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASLIST PUSHI #0x00000000 ACCESS SELECT 3 PUSHI #0x00000001 NEGATE ASSVAL 518 ASLIST(0)_LINK=0 LINE 518 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASLIST PUSHI #0x00000000 ACCESS SELECT 4 PUSHI #0x00000000 ASSVAL 519 %CYCLE I=0,1,NNAMES LINE 519 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSH NNAMES PUSHI #0x00000000 FOR L_0003 520 WORD(I)=0; TAGS(I)=0; LINE 520 "regression-compile-tmp/nrimp10s-77.imp" PUSH WORD PUSH I ACCESS PUSHI #0x00000000 ASSVAL LINE 520 "regression-compile-tmp/nrimp10s-77.imp" PUSH TAGS PUSH I ACCESS PUSHI #0x00000000 ASSVAL 521 %REPEAT LINE 521 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 522 %CYCLE I=0,1,12 LINE 522 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSHI #0x0000000c PUSHI #0x00000000 FOR L_0003 523 DVHEADS(I)=0 LINE 523 "regression-compile-tmp/nrimp10s-77.imp" PUSH DVHEADS PUSH I ACCESS PUSHI #0x00000000 ASSVAL 524 %REPEAT 525 ! 526 ! NOW DECLARE THE SPECIAL NAMES WHICH ARE IN ARRAY ILETT. 527 ! LINE 524 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 528 K=0; NEXT=1 LINE 528 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSHI #0x00000000 ASSVAL LINE 528 "regression-compile-tmp/nrimp10s-77.imp" PUSH NEXT PUSHI #0x00000001 ASSVAL 529 I=ILETT(0) LINE 529 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH ILETT PUSHI #0x00000000 ACCESS ASSVAL 530 %WHILE I<255 %CYCLE LINE 530 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH I PUSHI #0x000000ff JUMPIF >= L_0004 531 %CYCLE J=I,-1,1 LINE 531 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000001 NEGATE PUSHI #0x00000001 PUSH I FOR L_0006 532 CC(J)=ILETT(K+J) LINE 532 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH J ACCESS PUSH ILETT PUSH K PUSH J ADD ACCESS ASSVAL 533 %REPEAT LINE 533 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0006 LOCATE L_0007 534 CC(I+1)=';' LINE 534 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH I PUSHI #0x00000001 ADD ACCESS PUSHI #0x0000003b ASSVAL 535 R=2; Q=1; PNAME(1) LINE 535 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSHI #0x00000002 ASSVAL LINE 535 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSHI #0x00000001 ASSVAL LINE 535 "regression-compile-tmp/nrimp10s-77.imp" PUSH PNAME PUSHI #0x00000001 ASSPAR CALL 536 PUSH(TAGS(LASTNAME),SNPT<<16!16_8000,0,SNUM<<16) LINE 536 "regression-compile-tmp/nrimp10s-77.imp" PUSH PUSH PUSH TAGS PUSH LASTNAME ACCESS ASSPAR PUSHI #0x00001006 PUSHI #0x00000010 LSH PUSHI #0x00008000 OR ASSPAR PUSHI #0x00000000 ASSPAR PUSH SNUM PUSHI #0x00000010 LSH ASSPAR CALL 537 SNUM=SNUM+1 LINE 537 "regression-compile-tmp/nrimp10s-77.imp" PUSH SNUM PUSH SNUM PUSHI #0x00000001 ADD ASSVAL 538 K=K+I+1; I=ILETT(K) LINE 538 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH K PUSH I ADD PUSHI #0x00000001 ADD ASSVAL LINE 538 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH ILETT PUSH K ACCESS ASSVAL 539 %REPEAT 540 ! LINE 539 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 541 COMREG(24)=16; ! RETURN CODE LINE 541 "regression-compile-tmp/nrimp10s-77.imp" PUSH COMREG PUSHI #0x00000018 ASSPAR CALL PUSHI #0x00000010 ASSVAL 542 DUMMY FORMAT=0; ! DUMMY RECORD FORMAT LINE 542 "regression-compile-tmp/nrimp10s-77.imp" PUSH DUMMYFORMAT PUSHI #0x00000000 ASSVAL 543 DFHEAD=0 LINE 543 "regression-compile-tmp/nrimp10s-77.imp" PUSH DFHEAD PUSHI #0x00000000 ASSVAL 544 PUSH(DFHEAD,0,0,0) LINE 544 "regression-compile-tmp/nrimp10s-77.imp" PUSH PUSH PUSH DFHEAD ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL 545 PUSH(DUMMY FORMAT,0,0,DFHEAD); ! FOR BETTER ERROR RECOVERY LINE 545 "regression-compile-tmp/nrimp10s-77.imp" PUSH PUSH PUSH DUMMYFORMAT ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSH DFHEAD ASSPAR CALL 546 LINE=0; LENGTH=0; Q=1 LINE 546 "regression-compile-tmp/nrimp10s-77.imp" PUSH LINE PUSHI #0x00000000 ASSVAL LINE 546 "regression-compile-tmp/nrimp10s-77.imp" PUSH LENGTH PUSHI #0x00000000 ASSVAL LINE 546 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSHI #0x00000001 ASSVAL 547 R=1; LEVEL=1 LINE 547 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSHI #0x00000001 ASSVAL LINE 547 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x00000001 ASSVAL 548 %CYCLE LINE 548 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 549 %IF Q>=LENGTH %THEN QMAX=1 %AND READ LINE(0,0) LINE 549 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH LENGTH JUMPIF < L_0007 PUSH QMAX PUSHI #0x00000001 ASSVAL PUSH READLINE PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0007 550 WARNFLAG=0 LINE 550 "regression-compile-tmp/nrimp10s-77.imp" PUSH WARNFLAG PUSHI #0x00000000 ASSVAL 551 STARSTART=R LINE 551 "regression-compile-tmp/nrimp10s-77.imp" PUSH STARSTART PUSH R ASSVAL 552 R=R+3 LINE 552 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000003 ADD ASSVAL 553 OLDLINE=LINE LINE 553 "regression-compile-tmp/nrimp10s-77.imp" PUSH OLDLINE PUSH LINE ASSVAL 554 A(R)=LINE>>8 LINE 554 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R ACCESS PUSH LINE PUSHI #0x00000008 RSH ASSVAL 555 A(R+1)=LINE&255 LINE 555 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R PUSHI #0x00000001 ADD ACCESS PUSH LINE PUSHI #0x000000ff AND ASSVAL 556 R=R+2 LINE 556 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000002 ADD ASSVAL 557 %IF COMPARE(SS)=0 %THEN %START LINE 557 "regression-compile-tmp/nrimp10s-77.imp" PUSH COMPARE PUSHI #0x0000082d ASSPAR CALL PUSHI #0x00000000 JUMPIF # L_0007 558 FAULT(100,ADDR(CC(0))) LINE 558 "regression-compile-tmp/nrimp10s-77.imp" PUSH FAULT PUSHI #0x00000064 ASSPAR PUSH ADDR PUSH CC PUSHI #0x00000000 ACCESS ASSPAR CALL ASSPAR CALL 559 R=STARSTART LINE 559 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH STARSTART ASSVAL 560 %FINISH %ELSE %START LINE 560 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 561 FAULT(102, 0) %IF R>ARSIZE LINE 561 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH ARSIZE JUMPIF <= L_000a PUSH FAULT PUSHI #0x00000066 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_000a 562 %IF A(STARSTART+5)=COMMALT %THEN R=STARSTART %ELSE %START LINE 562 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH STARSTART PUSHI #0x00000005 ADD ACCESS PUSHI #0x00000002 JUMPIF # L_000a PUSH R PUSH STARSTART ASSVAL GOTO L_0009 LOCATE L_000a 563 I=R-STARSTART LINE 563 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH R PUSH STARSTART SUB ASSVAL 564 A(STARSTART)=I>>16 LINE 564 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH STARSTART ACCESS PUSH I PUSHI #0x00000010 RSH ASSVAL 565 A(STARSTART+1)=I>>8&255 LINE 565 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH STARSTART PUSHI #0x00000001 ADD ACCESS PUSH I PUSHI #0x00000008 RSH PUSHI #0x000000ff AND ASSVAL 566 A(STARSTART+2)=I&255 LINE 566 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH STARSTART PUSHI #0x00000002 ADD ACCESS PUSH I PUSHI #0x000000ff AND ASSVAL 567 %IF A(STARSTART+5)=DECALT %AND LEVEL>1 %THEN %START LINE 567 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH STARSTART PUSHI #0x00000005 ADD ACCESS PUSHI #0x00000008 JUMPIF # L_000d PUSH LEVEL PUSHI #0x00000001 JUMPIF <= L_000d 568 %IF SFS(LEVEL)=0 %THEN %START LINE 568 "regression-compile-tmp/nrimp10s-77.imp" PUSH SFS PUSH LEVEL ACCESS PUSHI #0x00000000 JUMPIF # L_0010 569 TO AR4(DISPLAY(LEVEL),STARSTART) LINE 569 "regression-compile-tmp/nrimp10s-77.imp" PUSH TOAR4 PUSH DISPLAY PUSH LEVEL ACCESS ASSPAR PUSH STARSTART ASSPAR CALL 570 DISPLAY(LEVEL)=STARSTART+6 LINE 570 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISPLAY PUSH LEVEL ACCESS PUSH STARSTART PUSHI #0x00000006 ADD ASSVAL 571 %FINISH %ELSE A(STARSTART+6)=128;! FLAG AS UNLINKED LINE 571 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_000f LOCATE L_0010 PUSH A PUSH STARSTART PUSHI #0x00000006 ADD ACCESS PUSHI #0x00000080 ASSVAL LOCATE L_000f 572 %FINISH 573 !*DELSTART LINE 572 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000d 574 %IF SMAP#0 %THEN %START LINE 574 "regression-compile-tmp/nrimp10s-77.imp" PUSH SMAP PUSHI #0x00000000 JUMPIF = L_000d 575 NEWLINE; WRITE(LINE, 5) LINE 575 "regression-compile-tmp/nrimp10s-77.imp" PUSH NEWLINE CALL LINE 575 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSH LINE ASSPAR PUSHI #0x00000005 ASSPAR CALL 576 WRITE(STARSTART,5); NEWLINE; J=0 LINE 576 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSH STARSTART ASSPAR PUSHI #0x00000005 ASSPAR CALL LINE 576 "regression-compile-tmp/nrimp10s-77.imp" PUSH NEWLINE CALL LINE 576 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000000 ASSVAL 577 %CYCLE I=STARSTART, 1, R-1 LINE 577 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSH R PUSHI #0x00000001 SUB PUSH STARSTART FOR L_000f 578 WRITE(A(I), 5) LINE 578 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSH A PUSH I ACCESS ASSPAR PUSHI #0x00000005 ASSPAR CALL 579 J=J+1 LINE 579 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH J PUSHI #0x00000001 ADD ASSVAL 580 %IF J>=20 %THEN NEWLINE %AND J=0 LINE 580 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000014 JUMPIF < L_0013 PUSH NEWLINE CALL PUSH J PUSHI #0x00000000 ASSVAL LOCATE L_0013 581 %REPEAT LINE 581 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_000f LOCATE L_0010 582 NEWLINE LINE 582 "regression-compile-tmp/nrimp10s-77.imp" PUSH NEWLINE CALL 583 %FINISH 584 !*DELEND LINE 583 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000d 585 %EXIT %IF A(STARSTART+5)=ENDALT %AND 1<=A(STARSTART+6)<=2;! ENDOF PROG OR FILE LINE 585 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH STARSTART PUSHI #0x00000005 ADD ACCESS PUSHI #0x00000009 JUMPIF # L_000d PUSHI #0x00000001 PUSH A PUSH STARSTART PUSHI #0x00000006 ADD ACCESS JUMPIFD > L_000d PUSHI #0x00000002 JUMPIF > L_000d GOTO L_0004 LOCATE L_000d 586 %IF LEVEL=0 %THEN FAULT(14, 0) %AND %EXIT LINE 586 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x00000000 JUMPIF # L_000d PUSH FAULT PUSHI #0x0000000e ASSPAR PUSHI #0x00000000 ASSPAR CALL GOTO L_0004 LOCATE L_000d 587 %FINISH LINE 587 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 588 %FINISH LINE 588 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 589 %REPEAT LINE 589 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 590 TO AR8(R,0); R=R+8 LINE 590 "regression-compile-tmp/nrimp10s-77.imp" PUSH TOAR8 PUSH R ASSPAR PUSHI #0x00000000 ASSPAR CALL LINE 590 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000008 ADD ASSVAL 591 %IF R+NEXT>ARSIZE %THEN FAULT(102,0) LINE 591 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH NEXT ADD PUSH ARSIZE JUMPIF <= L_0004 PUSH FAULT PUSHI #0x00000066 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 592 P1SIZE=R 593 ! %IF USE IMP=YES %THEN %START LINE 592 "regression-compile-tmp/nrimp10s-77.imp" PUSH P1SIZE PUSH R ASSVAL 594 %CYCLE I=0,1,NEXT LINE 594 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSH NEXT PUSHI #0x00000000 FOR L_0003 595 A(R+I)=LETT(I) LINE 595 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R PUSH I ADD ACCESS PUSH LETT PUSH I ACCESS ASSVAL 596 %REPEAT 597 ! %FINISH %ELSE %START 598 ! *LDTB_16_18000000 599 ! *LDB_NEXT 600 ! *LDA_LETT+4 601 ! *CYD_0 602 ! *LDA_A+4 603 ! *INCA_R 604 ! *MV_%L=%DR 605 ! %FINISH LINE 596 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 606 DICTBASE=ADDR(A(R)) LINE 606 "regression-compile-tmp/nrimp10s-77.imp" PUSH DICTBASE PUSH ADDR PUSH A PUSH R ACCESS ASSPAR CALL ASSVAL 607 R=R+NEXT+1 LINE 607 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSH NEXT ADD PUSHI #0x00000001 ADD ASSVAL 608 ->BEND LINE 608 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0131 609 %ROUTINE READ LINE(%INTEGER MODE,CHAR) LINE 609 "regression-compile-tmp/nrimp10s-77.imp" DEF READLINE (_lev0id0_lev1id1_lev2id2_READLINE) 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=4 --> 5, nested=0 --> 1} DEF MODE p1=V_0132 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 CHAR p1=V_0133 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=4} 610 %ROUTINESPEC GET LINE LINE 610 "regression-compile-tmp/nrimp10s-77.imp" DEF GETLINE (_lev0id0_lev1id1_lev2id2_READLINE_GETLINE) p1=V_0134 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 611 %INTEGER DEL, LL, LP LINE 611 "regression-compile-tmp/nrimp10s-77.imp" DEF DEL p1=V_0135 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 LL p1=V_0136 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 LP p1=V_0137 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 612 LL=0; LP=0; Q=1 LINE 612 "regression-compile-tmp/nrimp10s-77.imp" PUSH LL PUSHI #0x00000000 ASSVAL LINE 612 "regression-compile-tmp/nrimp10s-77.imp" PUSH LP PUSHI #0x00000000 ASSVAL LINE 612 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSHI #0x00000001 ASSVAL 613 LENGTH=0; DEL=0 LINE 613 "regression-compile-tmp/nrimp10s-77.imp" PUSH LENGTH PUSHI #0x00000000 ASSVAL LINE 613 "regression-compile-tmp/nrimp10s-77.imp" PUSH DEL PUSHI #0x00000000 ASSVAL 614 NEXT: 615 ! %IF USE IMP=YES %THEN %START LINE 614 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0138 616 LP=LP+1 LINE 616 "regression-compile-tmp/nrimp10s-77.imp" PUSH LP PUSH LP PUSHI #0x00000001 ADD ASSVAL 617 %IF LP>LL %THEN GET LINE %AND LP=1 LINE 617 "regression-compile-tmp/nrimp10s-77.imp" PUSH LP PUSH LL JUMPIF <= L_0004 PUSH GETLINE CALL PUSH LP PUSHI #0x00000001 ASSVAL LOCATE L_0004 618 I=TLINE(LP) LINE 618 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH TLINE PUSH LP ACCESS ASSVAL 619 %IF MODE=0 %THEN %START LINE 619 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000000 JUMPIF # L_0004 620 %IF I='%' %THEN DEL=128 %AND ->NEXT LINE 620 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000025 JUMPIF # L_0007 PUSH DEL PUSHI #0x00000080 ASSVAL JUMP L_0138 LOCATE L_0007 621 I=ONE CASE(I) LINE 621 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH ONECASE PUSH I ACCESS ASSVAL 622 %IF 'A'<=I<='Z' %THEN I=I!DEL %ELSE %START LINE 622 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000041 PUSH I JUMPIFD > L_0007 PUSHI #0x0000005a JUMPIF > L_0007 PUSH I PUSH I PUSH DEL OR ASSVAL GOTO L_0006 LOCATE L_0007 623 DEL=0 LINE 623 "regression-compile-tmp/nrimp10s-77.imp" PUSH DEL PUSHI #0x00000000 ASSVAL 624 ->NEXT %IF I=' ' LINE 624 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000020 JUMPIF # L_000a JUMP L_0138 LOCATE L_000a 625 %FINISH LINE 625 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 626 LENGTH=LENGTH+1 LINE 626 "regression-compile-tmp/nrimp10s-77.imp" PUSH LENGTH PUSH LENGTH PUSHI #0x00000001 ADD ASSVAL 627 CC(LENGTH)=I LINE 627 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH LENGTH ACCESS PUSH I ASSVAL 628 %IF I='''' %OR I=34 %THEN MODE=1 %AND CHAR=I LINE 628 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000027 JUMPIF = L_0008 PUSH I PUSHI #0x00000022 JUMPIF # L_0007 LOCATE L_0008 PUSH MODE PUSHI #0x00000001 ASSVAL PUSH CHAR PUSH I ASSVAL LOCATE L_0007 629 %FINISH %ELSE %START LINE 629 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 630 LENGTH=LENGTH+1 LINE 630 "regression-compile-tmp/nrimp10s-77.imp" PUSH LENGTH PUSH LENGTH PUSHI #0x00000001 ADD ASSVAL 631 CC(LENGTH)=I LINE 631 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH LENGTH ACCESS PUSH I ASSVAL 632 %IF I=CHAR %THEN MODE=0 LINE 632 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CHAR JUMPIF # L_0007 PUSH MODE PUSHI #0x00000000 ASSVAL LOCATE L_0007 633 %FINISH LINE 633 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 634 ->NEXT %UNLESS I=NL 635 ! %FINISH %ELSE %START 636 ! *LB_LP 637 ! *ADB_1 638 ! *CPB_LL 639 ! *JCC_12, 640 ! GET LINE 641 ! *LB_1 642 !RLL1: 643 ! *STB_LP 644 ! *LB_(ATL0+%B) 645 ! *LSS_MODE 646 ! *JAF_4, 647 ! *CPB_37; !'%' 648 ! *JCC_7, 649 ! *L_128 650 ! *ST_DEL 651 ! *J_ 652 !RLL3: 653 ! *LSS_(ONE CASE+%B); ! LOWER CASE TO UPPER 654 ! *ICP_65; !'A' 655 ! *JCC_4, 656 ! *ICP_90; !'Z' 657 ! *JCC_2, 658 ! *OR_DEL 659 ! *J_ 660 !RLL4: 661 ! *LB_0 662 ! *STB_DEL 663 ! *ICP_32; !' ' 664 ! *JCC_8, 665 !RLL5: 666 ! *LB_LENGTH 667 ! *ADB_1 668 ! *STB_LENGTH 669 ! *ST_(CC+%B) 670 ! *ICP_39; !'''' 671 ! *JCC_8, 672 ! *ICP_34; !'"' 673 ! *JCC_7, 674 !RLL6: 675 ! *ST_CHAR 676 ! *LB_1 677 ! *STB_MODE 678 !RLL7: 679 ! *ICP_10 680 ! *JCC_7, 681 ! *J_ 682 !RLL2: 683 ! *LSS_%B 684 ! *LB_LENGTH 685 ! *ADB_1 686 ! *STB_LENGTH 687 ! *ST_(CC+%B) 688 ! *ICP_CHAR 689 ! *JCC_7, 690 ! *LB_0 691 ! *STB_MODE 692 !RLL9: 693 ! *ICP_10 694 ! *JCC_7, 695 !RLL8: 696 ! %FINISH LINE 634 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000000a JUMPIF = L_0004 JUMP L_0138 LOCATE L_0004 697 %IF CC(LENGTH-1)='C'+128 %THEN LENGTH=LENGTH-2 %AND ->NEXT LINE 697 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH LENGTH PUSHI #0x00000001 SUB ACCESS PUSHI #0x00000043 PUSHI #0x00000080 ADD JUMPIF # L_0004 PUSH LENGTH PUSH LENGTH PUSHI #0x00000002 SUB ASSVAL JUMP L_0138 LOCATE L_0004 698 FAULT(101,0) %IF LENGTH>CCSIZE LINE 698 "regression-compile-tmp/nrimp10s-77.imp" PUSH LENGTH PUSH CCSIZE JUMPIF <= L_0004 PUSH FAULT PUSHI #0x00000065 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 699 %RETURN LINE 699 "regression-compile-tmp/nrimp10s-77.imp" RETURN 700 %ROUTINE GET LINE LINE 700 "regression-compile-tmp/nrimp10s-77.imp" DEF GETLINE (_lev0id0_lev1id1_lev2id2_READLINE_GETLINE) p1=V_0134 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=5 --> 6, nested=0 --> 1} FINISH ) {lev=5} 701 %SYSTEMROUTINESPEC IOCP(%INTEGER A,B) LINE 701 "regression-compile-tmp/nrimp10s-77.imp" DEF IOCP (_lev0id0_lev1id1_lev2id2_READLINE_GETLINE_IOCP) p1=V_0139 a/tf=7 b/format=0 c/ostate=2c type=0 () form=7 (routine) special=0 () linkage=4 (system) spec=1 indirect=0 unass=1 START ( FORMAL PARAMETERS {lev=5 --> 6, nested=0 --> 1} DEF A p1=V_013a 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 B p1=V_013b 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=5} 702 %CONSTBYTEINTEGERARRAY ITOI(0:255)={%C 703 32(10),10,32(14),25,26,32(5), 704 32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47, 705 48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63, 706 64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79, 707 80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95, 708 96,97,98,99,100,101,102,103,104,105,106,107,108,109, 709 110,111,112,113,114,115,116,117,118,119, 710 120,121,122,123,124,125,126,32, 711 26(5),10,26(10), 712 26(16), 713 26(14),92,38, 714 26(11),35,26(4), 715 26(16), 716 26(9),35,26(5),94, 717 26(32); LINE 702 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSHI #0x000000ff BOUNDS DEF ITOI p1=V_013a a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000020 INIT 10 PUSHI #0x0000000a INIT 1 PUSHI #0x00000020 INIT 14 PUSHI #0x00000019 INIT 1 PUSHI #0x0000001a INIT 1 PUSHI #0x00000020 INIT 5 PUSHI #0x00000020 INIT 1 PUSHI #0x00000021 INIT 1 PUSHI #0x00000022 INIT 1 PUSHI #0x00000023 INIT 1 PUSHI #0x00000024 INIT 1 PUSHI #0x00000025 INIT 1 PUSHI #0x00000026 INIT 1 PUSHI #0x00000027 INIT 1 PUSHI #0x00000028 INIT 1 PUSHI #0x00000029 INIT 1 PUSHI #0x0000002a INIT 1 PUSHI #0x0000002b INIT 1 PUSHI #0x0000002c INIT 1 PUSHI #0x0000002d INIT 1 PUSHI #0x0000002e INIT 1 PUSHI #0x0000002f INIT 1 PUSHI #0x00000030 INIT 1 PUSHI #0x00000031 INIT 1 PUSHI #0x00000032 INIT 1 PUSHI #0x00000033 INIT 1 PUSHI #0x00000034 INIT 1 PUSHI #0x00000035 INIT 1 PUSHI #0x00000036 INIT 1 PUSHI #0x00000037 INIT 1 PUSHI #0x00000038 INIT 1 PUSHI #0x00000039 INIT 1 PUSHI #0x0000003a INIT 1 PUSHI #0x0000003b INIT 1 PUSHI #0x0000003c INIT 1 PUSHI #0x0000003d INIT 1 PUSHI #0x0000003e INIT 1 PUSHI #0x0000003f INIT 1 PUSHI #0x00000040 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000042 INIT 1 PUSHI #0x00000043 INIT 1 PUSHI #0x00000044 INIT 1 PUSHI #0x00000045 INIT 1 PUSHI #0x00000046 INIT 1 PUSHI #0x00000047 INIT 1 PUSHI #0x00000048 INIT 1 PUSHI #0x00000049 INIT 1 PUSHI #0x0000004a INIT 1 PUSHI #0x0000004b INIT 1 PUSHI #0x0000004c INIT 1 PUSHI #0x0000004d INIT 1 PUSHI #0x0000004e INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x00000050 INIT 1 PUSHI #0x00000051 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000053 INIT 1 PUSHI #0x00000054 INIT 1 PUSHI #0x00000055 INIT 1 PUSHI #0x00000056 INIT 1 PUSHI #0x00000057 INIT 1 PUSHI #0x00000058 INIT 1 PUSHI #0x00000059 INIT 1 PUSHI #0x0000005a INIT 1 PUSHI #0x0000005b INIT 1 PUSHI #0x0000005c INIT 1 PUSHI #0x0000005d INIT 1 PUSHI #0x0000005e INIT 1 PUSHI #0x0000005f INIT 1 PUSHI #0x00000060 INIT 1 PUSHI #0x00000061 INIT 1 PUSHI #0x00000062 INIT 1 PUSHI #0x00000063 INIT 1 PUSHI #0x00000064 INIT 1 PUSHI #0x00000065 INIT 1 PUSHI #0x00000066 INIT 1 PUSHI #0x00000067 INIT 1 PUSHI #0x00000068 INIT 1 PUSHI #0x00000069 INIT 1 PUSHI #0x0000006a INIT 1 PUSHI #0x0000006b INIT 1 PUSHI #0x0000006c INIT 1 PUSHI #0x0000006d INIT 1 PUSHI #0x0000006e INIT 1 PUSHI #0x0000006f INIT 1 PUSHI #0x00000070 INIT 1 PUSHI #0x00000071 INIT 1 PUSHI #0x00000072 INIT 1 PUSHI #0x00000073 INIT 1 PUSHI #0x00000074 INIT 1 PUSHI #0x00000075 INIT 1 PUSHI #0x00000076 INIT 1 PUSHI #0x00000077 INIT 1 PUSHI #0x00000078 INIT 1 PUSHI #0x00000079 INIT 1 PUSHI #0x0000007a INIT 1 PUSHI #0x0000007b INIT 1 PUSHI #0x0000007c INIT 1 PUSHI #0x0000007d INIT 1 PUSHI #0x0000007e INIT 1 PUSHI #0x00000020 INIT 1 PUSHI #0x0000001a INIT 5 PUSHI #0x0000000a INIT 1 PUSHI #0x0000001a INIT 10 PUSHI #0x0000001a INIT 16 PUSHI #0x0000001a INIT 14 PUSHI #0x0000005c INIT 1 PUSHI #0x00000026 INIT 1 PUSHI #0x0000001a INIT 11 PUSHI #0x00000023 INIT 1 PUSHI #0x0000001a INIT 4 PUSHI #0x0000001a INIT 16 PUSHI #0x0000001a INIT 9 PUSHI #0x00000023 INIT 1 PUSHI #0x0000001a INIT 5 PUSHI #0x0000005e INIT 1 PUSHI #0x0000001a INIT 32 718 %INTEGER K LINE 718 "regression-compile-tmp/nrimp10s-77.imp" DEF K p1=V_013b 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 719 LL=0 LINE 719 "regression-compile-tmp/nrimp10s-77.imp" PUSH LL PUSHI #0x00000000 ASSVAL 720 %IF FILE ADDR=0 %THEN %START; ! SOURCE NOT A 'CLEAN' FILE LINE 720 "regression-compile-tmp/nrimp10s-77.imp" PUSH FILEADDR PUSHI #0x00000000 JUMPIF # L_0004 721 {%UNTIL K=NL} %CYCLE LINE 721 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 722 READ SYMBOL(K) LINE 722 "regression-compile-tmp/nrimp10s-77.imp" PUSH READSYMBOL PUSH K ASSPAR CALL 723 TLINE(LL+1)=ITOI(K) LINE 723 "regression-compile-tmp/nrimp10s-77.imp" PUSH TLINE PUSH LL PUSHI #0x00000001 ADD ACCESS PUSH ITOI PUSH K ACCESS ASSVAL 724 LL=LL+1 LINE 724 "regression-compile-tmp/nrimp10s-77.imp" PUSH LL PUSH LL PUSHI #0x00000001 ADD ASSVAL 725 %REPEAT %UNTIL K=NL LINE 725 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSHI #0x0000000a JUMPIF = L_0007 REPEAT L_0006 LOCATE L_0007 726 %FINISH %ELSE %START LINE 726 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 727 %IF FILEPTR>=FILE END %START LINE 727 "regression-compile-tmp/nrimp10s-77.imp" PUSH FILEPTR PUSH FILEEND JUMPIF < L_0007 728 %IF IHEAD#0 %THEN POP(IHEAD,FILEADDR,FILEPTR,FILEEND) %AND GETLINE %AND %RETURN LINE 728 "regression-compile-tmp/nrimp10s-77.imp" PUSH IHEAD PUSHI #0x00000000 JUMPIF = L_000a PUSH POP PUSH IHEAD ASSPAR PUSH FILEADDR ASSPAR PUSH FILEPTR ASSPAR PUSH FILEEND ASSPAR CALL PUSH GETLINE CALL RETURN LOCATE L_000a 729 %SIGNAL %EVENT 9,1 LINE 729 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 EVENT 0009 730 %FINISH 731 ! %IF USE IMP=NO %THEN %START 732 ! *LDA_FILEPTR 733 ! *LB_FILEEND 734 ! *SBB_FILEPTR 735 ! *ADB_16_18000000 736 ! *LDTB_%B 737 ! *SWNE_%L=%DR,0,10 738 ! *JCC_8, 739 ! *CYD_0 740 ! *STUH_%B 741 ! *IAD_1 742 ! *ST_%B 743 ! *ISB_FILEPTR 744 ! *ST_LL 745 ! *LDA_FILEPTR 746 ! *STB_FILEPTR 747 ! *LDB_LL 748 ! *CYD_0 749 ! *LDA_ATLINE1 750 ! *MV_%L=%DR,0,0 751 ! *LDA_ATLINE1; *LDTB_16_18000000 752 ! *LDB_LL 753 ! *LSS_ITOI+4; *LUH_16_180000FF 754 ! *TTR_%L=%DR 755 ! ->OLIST 756 ! %FINISH LINE 730 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 757 IMP: LINE 757 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_013c 758 {%UNTIL K=NL %OR K=0} %CYCLE LINE 758 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 759 K=BYTE INTEGER(FILEPTR); ! NEXT CHAR FROM SORCE FILE LINE 759 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH BYTEINTEGER PUSH FILEPTR ASSPAR CALL ASSVAL 760 FILE PTR=FILE PTR+1 LINE 760 "regression-compile-tmp/nrimp10s-77.imp" PUSH FILEPTR PUSH FILEPTR PUSHI #0x00000001 ADD ASSVAL 761 TLINE(LL+1)=ITOI(K) LINE 761 "regression-compile-tmp/nrimp10s-77.imp" PUSH TLINE PUSH LL PUSHI #0x00000001 ADD ACCESS PUSH ITOI PUSH K ACCESS ASSVAL 762 LL=LL+1 LINE 762 "regression-compile-tmp/nrimp10s-77.imp" PUSH LL PUSH LL PUSHI #0x00000001 ADD ASSVAL 763 %REPEAT %UNTIL K=NL %OR K=0 LINE 763 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSHI #0x0000000a JUMPIF = L_0007 PUSH K PUSHI #0x00000000 JUMPIF = L_0007 REPEAT L_0006 LOCATE L_0007 764 OLIST: LINE 764 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_013d 765 %FINISH 766 ! %IF MODE=0 %AND LL=1 %THEN GET LINE %AND %RETURN 767 ! LINE=LINE+1 %UNLESS MODE=0 %AND LENGTH>0 LINE 765 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 768 LINE=LINE+1; ! COUNT ALL LINES LINE 768 "regression-compile-tmp/nrimp10s-77.imp" PUSH LINE PUSH LINE PUSHI #0x00000001 ADD ASSVAL 769 %IF LIST#0 %THEN %START LINE 769 "regression-compile-tmp/nrimp10s-77.imp" PUSH LIST PUSHI #0x00000000 JUMPIF = L_0004 770 %IF MODE=0 %AND LENGTH>0 %THEN PRINTSTRING(" C") %ELSE WRITE(LINE, 5) 771 ! SPACES(8) LINE 770 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000000 JUMPIF # L_0007 PUSH LENGTH PUSHI #0x00000000 JUMPIF <= L_0007 PUSH PRINTSTRING PUSHS " C" ASSPAR CALL GOTO L_0006 LOCATE L_0007 PUSH WRITE PUSH LINE ASSPAR PUSHI #0x00000005 ASSPAR CALL LOCATE L_0006 772 %CYCLE K=-7,1,0 LINE 772 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSHI #0x00000001 PUSHI #0x00000000 PUSHI #0x00000007 NEGATE FOR L_0006 773 TLINE(K)=' ' LINE 773 "regression-compile-tmp/nrimp10s-77.imp" PUSH TLINE PUSH K ACCESS PUSHI #0x00000020 ASSVAL 774 %REPEAT LINE 774 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0006 LOCATE L_0007 775 %IF MODE#0 %THEN TLINE(-7)=M'"' LINE 775 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000000 JUMPIF = L_0007 PUSH TLINE PUSHI #0x00000007 NEGATE ACCESS PUSHI #0x00000022 ASSVAL LOCATE L_0007 776 TLINE(-8)=LL+8 LINE 776 "regression-compile-tmp/nrimp10s-77.imp" PUSH TLINE PUSHI #0x00000008 NEGATE ACCESS PUSH LL PUSHI #0x00000008 ADD ASSVAL 777 IOCP(15,ADDR(TLINE(-8))) LINE 777 "regression-compile-tmp/nrimp10s-77.imp" PUSH IOCP PUSHI #0x0000000f ASSPAR PUSH ADDR PUSH TLINE PUSHI #0x00000008 NEGATE ACCESS ASSPAR CALL ASSPAR CALL 778 %FINISH LINE 778 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 779 %IF FREE FORMAT=0 %AND LL>73 %THEN TLINE(73)=10 %AND LL=73 LINE 779 "regression-compile-tmp/nrimp10s-77.imp" PUSH FREEFORMAT PUSHI #0x00000000 JUMPIF # L_0004 PUSH LL PUSHI #0x00000049 JUMPIF <= L_0004 PUSH TLINE PUSHI #0x00000049 ACCESS PUSHI #0x0000000a ASSVAL PUSH LL PUSHI #0x00000049 ASSVAL LOCATE L_0004 780 %END LINE 780 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id2_READLINE_GETLINE {lev=5 --> 4} 781 %END LINE 781 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id2_READLINE {lev=4 --> 3} 782 %INTEGERFN COMPARE(%INTEGER P) LINE 782 "regression-compile-tmp/nrimp10s-77.imp" DEF COMPARE (_lev0id0_lev1id1_lev2id2_COMPARE) p1=V_0120 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=4 --> 5, nested=0 --> 1} DEF P p1=V_0132 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=4} 783 %INTEGER I, J, ITEM, RA, RL, RP, RQ, RR, RS, MARKER, SSL, ALT, PP LINE 783 "regression-compile-tmp/nrimp10s-77.imp" DEF I p1=V_0133 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_0134 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 ITEM p1=V_0135 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 RA p1=V_0136 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 RL p1=V_0137 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 RP p1=V_0138 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 RQ p1=V_0139 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 RR p1=V_013a 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 RS p1=V_013b 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 MARKER p1=V_013c 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 SSL p1=V_013d 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 ALT p1=V_013e 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 PP p1=V_013f 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 784 %OWNINTEGER SAVECOMP; ! FOR CHECKING DSIDED CONDS LINE 784 "regression-compile-tmp/nrimp10s-77.imp" DEF SAVECOMP p1=V_0140 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 INIT 1 785 %SWITCH BIP(999:1038) 786 ! %IF USE IMP=YES %THEN %START LINE 785 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003e7 PUSHI #0x0000040e BOUNDS DEF BIP p1=V_0141 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 787 RP=SYMBOL(P) LINE 787 "regression-compile-tmp/nrimp10s-77.imp" PUSH RP PUSH SYMBOL PUSH P ACCESS ASSVAL 788 RL=LEVEL LINE 788 "regression-compile-tmp/nrimp10s-77.imp" PUSH RL PUSH LEVEL ASSVAL 789 P=P+1 LINE 789 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 790 PP=P; ! ROUTINE REALLY STARTS HERE 791 ! %FINISH %ELSE %START 792 ! *LB_P 793 ! *JLK_2 794 ! *EXIT_-64 795 !SUBENTRY: 796 ! *LSS_(ASYM0+%B) 797 ! *LUH_LEVEL 798 ! *ST_RL 799 ! *ADB_1 800 ! *STB_P 801 ! *STB_PP 802 ! %FINISH LINE 790 "regression-compile-tmp/nrimp10s-77.imp" PUSH PP PUSH P ASSVAL 803 COMM: 804 ! %IF USE IMP=YES %THEN %START LINE 803 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0142 805 RQ=Q; ! RESET VALUES OF LINE&AR PTRS LINE 805 "regression-compile-tmp/nrimp10s-77.imp" PUSH RQ PUSH Q ASSVAL 806 RR=R LINE 806 "regression-compile-tmp/nrimp10s-77.imp" PUSH RR PUSH R ASSVAL 807 SSL=STRLINK; ! SAVE STRING LINK LINE 807 "regression-compile-tmp/nrimp10s-77.imp" PUSH SSL PUSH STRLINK ASSVAL 808 ALT=1; ! FIRST ALTERNATIVE TO BE TRIED LINE 808 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSHI #0x00000001 ASSVAL 809 RA=SYMBOL(P); ! RA TO NEXT PHRASE ALTERNATIVE LINE 809 "regression-compile-tmp/nrimp10s-77.imp" PUSH RA PUSH SYMBOL PUSH P ACCESS ASSVAL 810 RS=P 811 ! %FINISH %ELSE %START 812 ! *LSD_Q 813 ! *ST_RQ 814 ! *LSS_1 815 ! *LUH_STRLINK 816 ! *ST_SSL 817 ! *LB_P 818 ! *LSS_(ASYM0+%B) 819 ! *ST_RA 820 ! *STB_RS 821 ! %FINISH LINE 810 "regression-compile-tmp/nrimp10s-77.imp" PUSH RS PUSH P ASSVAL 822 UPR: R=R+1 LINE 822 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0143 LINE 822 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000001 ADD ASSVAL 823 SUCC: ! SUCCESS ON TO NEXT ITEM 824 ! %IF USE IMP=YES %THEN %START LINE 823 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0144 825 RS=RS+1; ! RS=NEXT ALTERNATIVE MEANS THAT 826 ! THIS ALT HAS BEEN COMPLETED SO 827 ! EXIT WITH HIT=1 LINE 825 "regression-compile-tmp/nrimp10s-77.imp" PUSH RS PUSH RS PUSHI #0x00000001 ADD ASSVAL 828 %IF RS=RA %THEN ->FINI LINE 828 "regression-compile-tmp/nrimp10s-77.imp" PUSH RS PUSH RA JUMPIF # L_0004 JUMP L_0145 LOCATE L_0004 829 ITEM=SYMBOL(RS); ! NEXT BRICK IN THE CURRENT ALT LINE 829 "regression-compile-tmp/nrimp10s-77.imp" PUSH ITEM PUSH SYMBOL PUSH RS ACCESS ASSVAL 830 %IF ITEM<999 %THEN ->LIT 831 ! %FINISH %ELSE %START 832 ! *LB_RS 833 ! *ADB_1 834 ! *CPB_RA 835 ! *JCC_8, 836 ! *STB_RS 837 ! *LB_(ASYM0+%B) 838 ! *CPB_999 839 ! *JCC_4, 840 ! *STB_ITEM 841 ! %FINISH LINE 830 "regression-compile-tmp/nrimp10s-77.imp" PUSH ITEM PUSHI #0x000003e7 JUMPIF >= L_0004 JUMP L_0146 LOCATE L_0004 842 %IF ITEM<1300 %THEN ->BIP(ITEM) 843 ! BRICK IS A PHRASE TYPE 844 ! %IF USE IMP=YES %THEN %START LINE 842 "regression-compile-tmp/nrimp10s-77.imp" PUSH ITEM PUSHI #0x00000514 JUMPIF >= L_0004 PUSH ITEM SJUMP 321 LOCATE L_0004 845 %IF COMPARE(ITEM)=0 %THEN ->FAIL 846 ! %FINISH %ELSE %START 847 ! *LSD_RA 848 ! *SLSQ_RP 849 ! *SLSQ_MARKER 850 ! *ST_%TOS 851 ! *LB_ITEM 852 ! *JLK_ 853 ! *ST_%B; ! RESULT=0 FOR FAIL 854 ! *LSQ_%TOS; *ST_MARKER 855 ! *LSQ_%TOS; *ST_RP 856 ! *LSD_%TOS; *ST_RA 857 ! *JAT_12, 858 ! %FINISH LINE 845 "regression-compile-tmp/nrimp10s-77.imp" PUSH COMPARE PUSH ITEM ASSPAR CALL PUSHI #0x00000000 JUMPIF # L_0004 JUMP L_0147 LOCATE L_0004 859 ->SUCC LINE 859 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 860 LIT: ! BRICK IS LITERAL 861 ! %IF USE IMP=YES %THEN %START LINE 860 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0146 862 I=CC(Q); ! OBTAIN CURRENT CHARACTER LINE 862 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 863 ->FAIL %UNLESS I=CLETT(ITEM+1) LINE 863 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CLETT PUSH ITEM PUSHI #0x00000001 ADD ACCESS JUMPIF = L_0004 JUMP L_0147 LOCATE L_0004 864 Q=Q+1 LINE 864 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL 865 K=CLETT(ITEM)+ITEM LINE 865 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH CLETT PUSH ITEM ACCESS PUSH ITEM ADD ASSVAL 866 ITEM=ITEM+2 LINE 866 "regression-compile-tmp/nrimp10s-77.imp" PUSH ITEM PUSH ITEM PUSHI #0x00000002 ADD ASSVAL 867 %WHILE ITEM<=K %CYCLE LINE 867 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH ITEM PUSH K JUMPIF > L_0004 868 ->FAIL %UNLESS CC(Q)=CLETT(ITEM) LINE 868 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH Q ACCESS PUSH CLETT PUSH ITEM ACCESS JUMPIF = L_0007 JUMP L_0147 LOCATE L_0007 869 Q=Q+1 LINE 869 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL 870 ITEM=ITEM+1 LINE 870 "regression-compile-tmp/nrimp10s-77.imp" PUSH ITEM PUSH ITEM PUSHI #0x00000001 ADD ASSVAL 871 %REPEAT; ! CHECK IT WITH LITERAL DICT ENTRY 872 ! %FINISH %ELSE %START 873 ! *LDB_(CLETT+%B) 874 ! *INCA_%B 875 ! *INCA_1 876 ! *LSS_Q 877 ! *IAD_CC+4 878 ! *LUH_CC 879 ! *CPS_%L=%DR,0,0 880 ! *JCC_7, 881 ! *STUH_%B 882 ! *ISB_CC+4 883 ! *ST_Q 884 ! %FINISH LINE 871 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 885 ->SUCC; ! MATCHED SUCCESSFULLY LINE 885 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 886 FAIL: ! FAILURE - NOTE POSITION REACHD 887 ! %IF USE IMP=YES %THEN %START LINE 886 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0147 888 %IF RA=RP %THEN ->TFAIL; ! TOTAL FAILURE NO ALT TO TRY LINE 888 "regression-compile-tmp/nrimp10s-77.imp" PUSH RA PUSH RP JUMPIF # L_0004 JUMP L_0148 LOCATE L_0004 889 QMAX=Q %IF Q>QMAX LINE 889 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH QMAX JUMPIF <= L_0004 PUSH QMAX PUSH Q ASSVAL LOCATE L_0004 890 Q=RQ; ! RESET LINE AND A.R. POINTERS LINE 890 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH RQ ASSVAL 891 R=RR+1; ! AVOID GOING VIA UPR: LINE 891 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH RR PUSHI #0x00000001 ADD ASSVAL 892 STRLINK=SSL LINE 892 "regression-compile-tmp/nrimp10s-77.imp" PUSH STRLINK PUSH SSL ASSVAL 893 ALT=ALT+1; ! MOVE TO NEXT ALT OF PHRASE LINE 893 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSH ALT PUSHI #0x00000001 ADD ASSVAL 894 RS=RA LINE 894 "regression-compile-tmp/nrimp10s-77.imp" PUSH RS PUSH RA ASSVAL 895 RA=SYMBOL(RA) 896 ! %FINISH %ELSE %START 897 ! *LB_RA 898 ! *CPB_RP 899 ! *JCC_8, 900 ! *LSS_Q 901 ! *ICP_QMAX 902 ! *JCC_12, 903 ! *ST_QMAX 904 !CPL1: *LSD_RQ 905 ! *IAD_1 906 ! *ST_Q 907 ! *L_SSL 908 ! *STUH_STRLINK 909 ! *IAD_1 910 ! *ST_ALT 911 ! *STB_RS 912 ! *L_(ASYM0+%B) 913 ! *ST_RA 914 ! %FINISH LINE 895 "regression-compile-tmp/nrimp10s-77.imp" PUSH RA PUSH SYMBOL PUSH RA ACCESS ASSVAL 915 ->SUCC LINE 915 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 916 TFAIL: LINE 916 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0148 917 LEVEL=RL 918 ! %IF USE IMP=YES %THEN %START LINE 917 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSH RL ASSVAL 919 %RESULT=0 920 ! %FINISH %ELSE %START 921 ! *LSS_0; *J_%TOS 922 ! %FINISH LINE 919 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 RESULT 923 BIP(999): ! REPEATED PHRASE LINE 923 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003e7 SLABEL 321 924 A(RR)=ALT; P=PP LINE 924 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH RR ACCESS PUSH ALT ASSVAL LINE 924 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH PP ASSVAL 925 ->COMM LINE 925 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0142 926 BIP(1000):FINI: ! NULL ALWAYS LAST & OK LINE 926 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003e8 SLABEL 321 LINE 926 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0145 927 A(RR)=ALT 928 ! %IF USE IMP=YES %THEN %START LINE 927 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH RR ACCESS PUSH ALT ASSVAL 929 %RESULT=1 930 ! %FINISH %ELSE %START 931 ! *LSS_1; *J_%TOS 932 ! %FINISH LINE 929 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 RESULT 933 BIP(1001): ! PHRASE NAME LINE 933 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003e9 SLABEL 321 934 BIP(1004): ! PHRASE OLDNAME LINE 934 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003ec SLABEL 321 935 I=CC(Q); ! OBTAIN CURRENT CHARACTER LINE 935 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 936 ->FAIL %UNLESS TRTAB(I)=2 LINE 936 "regression-compile-tmp/nrimp10s-77.imp" PUSH TRTAB PUSH I ACCESS PUSHI #0x00000002 JUMPIF = L_0004 JUMP L_0147 LOCATE L_0004 937 PNAME(ITEM-1004) LINE 937 "regression-compile-tmp/nrimp10s-77.imp" PUSH PNAME PUSH ITEM PUSHI #0x000003ec SUB ASSPAR CALL 938 ->SUCC %IF HIT=1; ->FAIL LINE 938 "regression-compile-tmp/nrimp10s-77.imp" PUSH HIT PUSHI #0x00000001 JUMPIF # L_0004 JUMP L_0144 LOCATE L_0004 LINE 938 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0147 939 BIP(1002): ! PHRASE INTEGER CONSTANT LINE 939 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003ea SLABEL 321 940 BIP(1003): ! PHRASE CONST LINE 940 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003eb SLABEL 321 941 CONST(ITEM-1003) LINE 941 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONST PUSH ITEM PUSHI #0x000003eb SUB ASSPAR CALL 942 ->FAIL %IF HIT=0 LINE 942 "regression-compile-tmp/nrimp10s-77.imp" PUSH HIT PUSHI #0x00000000 JUMPIF # L_0004 JUMP L_0147 LOCATE L_0004 943 ->SUCC LINE 943 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 944 BIP(1005): ! PHRASE N LINE 944 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003ed SLABEL 321 945 I=CC(Q); ! OBTAIN CURRENT CHARACTER LINE 945 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 946 ->FAIL %UNLESS '0'<=I<='9' LINE 946 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000030 PUSH I JUMPIFD > L_0005 PUSHI #0x00000039 JUMPIF <= L_0004 LOCATE L_0005 JUMP L_0147 LOCATE L_0004 947 S=0 LINE 947 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSHI #0x00000000 ASSVAL 948 %WHILE '0'<=I<='9' %CYCLE LINE 948 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSHI #0x00000030 PUSH I JUMPIFD > L_0004 PUSHI #0x00000039 JUMPIF > L_0004 949 S=10*S+I&15 LINE 949 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSHI #0x0000000a PUSH S MUL PUSH I PUSHI #0x0000000f AND ADD ASSVAL 950 Q=Q+1; I=CC(Q) LINE 950 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 950 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 951 %REPEAT LINE 951 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 952 TOAR2(R,S) LINE 952 "regression-compile-tmp/nrimp10s-77.imp" PUSH TOAR2 PUSH R ASSPAR PUSH S ASSPAR CALL 953 R=R+2; ->SUCC LINE 953 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000002 ADD ASSVAL LINE 953 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 954 BIP(1006): ! PHRASE S=SEPARATOR LINE 954 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003ee SLABEL 321 955 I=CC(Q); ! OBTAIN CURRENT CHARACTER LINE 955 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 956 ->SUCC %IF I=NL LINE 956 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000000a JUMPIF # L_0004 JUMP L_0144 LOCATE L_0004 957 ->FAIL %UNLESS I=';' LINE 957 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000003b JUMPIF = L_0004 JUMP L_0147 LOCATE L_0004 958 Q=Q+1; ->SUCC LINE 958 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 958 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 959 BIP(1007): 960 ! PHRASE COMMENT TEXT LINE 959 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003ef SLABEL 321 961 I=CC(Q); ! OBTAIN CURRENT CHARACTER LINE 961 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 962 J=I LINE 962 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH I ASSVAL 963 ->TX %IF I=';' %OR I=NL LINE 963 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000003b JUMPIF = L_0005 PUSH I PUSHI #0x0000000a JUMPIF # L_0004 LOCATE L_0005 JUMP L_0149 LOCATE L_0004 964 ->FAIL %UNLESS I='!' %OR I='|' %OR (I='C'+128 %AND CC(Q+1)='O'+128 %AND CC(Q+2)=CC(Q+3)='M'+128 %AND CC(Q+4)='E'+128 %AND CC(Q+5)='N'+128 %AND CC(Q+6)='T'+128) LINE 964 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000021 JUMPIF = L_0004 PUSH I PUSHI #0x0000007c JUMPIF = L_0004 PUSH I PUSHI #0x00000043 PUSHI #0x00000080 ADD JUMPIF # L_0005 PUSH CC PUSH Q PUSHI #0x00000001 ADD ACCESS PUSHI #0x0000004f PUSHI #0x00000080 ADD JUMPIF # L_0005 PUSH CC PUSH Q PUSHI #0x00000002 ADD ACCESS PUSH CC PUSH Q PUSHI #0x00000003 ADD ACCESS JUMPIFD # L_0005 PUSHI #0x0000004d PUSHI #0x00000080 ADD JUMPIF # L_0005 PUSH CC PUSH Q PUSHI #0x00000004 ADD ACCESS PUSHI #0x00000045 PUSHI #0x00000080 ADD JUMPIF # L_0005 PUSH CC PUSH Q PUSHI #0x00000005 ADD ACCESS PUSHI #0x0000004e PUSHI #0x00000080 ADD JUMPIF # L_0005 PUSH CC PUSH Q PUSHI #0x00000006 ADD ACCESS PUSHI #0x00000054 PUSHI #0x00000080 ADD JUMPIF = L_0004 LOCATE L_0005 JUMP L_0147 LOCATE L_0004 965 Q=Q+1+6*(I>>7); J=CC(Q) LINE 965 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD PUSHI #0x00000006 PUSH I PUSHI #0x00000007 RSH MUL ADD ASSVAL LINE 965 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH CC PUSH Q ACCESS ASSVAL 966 %CYCLE LINE 966 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 967 %EXIT %IF J=NL %OR J=';' LINE 967 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x0000000a JUMPIF = L_0008 PUSH J PUSHI #0x0000003b JUMPIF # L_0007 LOCATE L_0008 GOTO L_0004 LOCATE L_0007 968 Q=Q+1; J=CC(Q) LINE 968 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 968 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH CC PUSH Q ACCESS ASSVAL 969 %REPEAT LINE 969 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 970 TX: Q=Q+1 %IF J=';' LINE 970 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0149 LINE 970 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x0000003b JUMPIF # L_0004 PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LOCATE L_0004 971 ->SUCC LINE 971 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 972 BIP(1008): ! PHRASE BIGHOLE LINE 972 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003f0 SLABEL 321 973 TO AR4(R,0) LINE 973 "regression-compile-tmp/nrimp10s-77.imp" PUSH TOAR4 PUSH R ASSPAR PUSHI #0x00000000 ASSPAR CALL 974 R=R+4; ->SUCC LINE 974 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000004 ADD ASSVAL LINE 974 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 975 BIP(1009): ! PHRASE N255 LINE 975 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003f1 SLABEL 321 976 I=CC(Q); ! OBTAIN CURRENT CHARACTER LINE 976 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 977 ->FAIL %UNLESS '0'<=I<='9' LINE 977 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000030 PUSH I JUMPIFD > L_0005 PUSHI #0x00000039 JUMPIF <= L_0004 LOCATE L_0005 JUMP L_0147 LOCATE L_0004 978 S=0 LINE 978 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSHI #0x00000000 ASSVAL 979 %WHILE '0'<=I<='9' %CYCLE LINE 979 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSHI #0x00000030 PUSH I JUMPIFD > L_0004 PUSHI #0x00000039 JUMPIF > L_0004 980 S=10*S+I&15 LINE 980 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSHI #0x0000000a PUSH S MUL PUSH I PUSHI #0x0000000f AND ADD ASSVAL 981 Q=Q+1; I=CC(Q) LINE 981 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 981 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 982 %REPEAT LINE 982 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 983 ->FAIL %UNLESS 0<=S<=255 LINE 983 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSH S JUMPIFD > L_0005 PUSHI #0x000000ff JUMPIF <= L_0004 LOCATE L_0005 JUMP L_0147 LOCATE L_0004 984 A(R)=S; ->UPR LINE 984 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R ACCESS PUSH S ASSVAL LINE 984 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0143 985 BIP(1010): ! PHRASE HOLE LINE 985 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003f2 SLABEL 321 986 MARKER=R; R=R+2; ->SUCC LINE 986 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKER PUSH R ASSVAL LINE 986 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000002 ADD ASSVAL LINE 986 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 987 BIP(1011): ! PHRASE MARK LINE 987 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003f3 SLABEL 321 988 I=R-MARKER LINE 988 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH R PUSH MARKER SUB ASSVAL 989 A(MARKER+1)<-I LINE 989 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH MARKER PUSHI #0x00000001 ADD ACCESS PUSH I JAM 990 A(MARKER)<-I>>8 LINE 990 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH MARKER ACCESS PUSH I PUSHI #0x00000008 RSH JAM 991 ->SUCC LINE 991 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 992 BIP(1012): ! PHRASE READLINE? LINE 992 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003f4 SLABEL 321 993 I=CC(Q); ! OBTAIN CURRENT CHARACTER LINE 993 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 994 %WHILE I=NL %%CYCLE LINE 994 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH I PUSHI #0x0000000a JUMPIF # L_0004 995 READLINE(0,0) LINE 995 "regression-compile-tmp/nrimp10s-77.imp" PUSH READLINE PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL 996 RQ=1 LINE 996 "regression-compile-tmp/nrimp10s-77.imp" PUSH RQ PUSHI #0x00000001 ASSVAL 997 I=CC(Q) LINE 997 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 998 %REPEAT LINE 998 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 999 FAULT(102,0) %IF R>ARSIZE LINE 999 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH ARSIZE JUMPIF <= L_0004 PUSH FAULT PUSHI #0x00000066 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 1000 ->SUCC LINE 1000 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1001 BIP(1013): ! PHRASE CHECKIMPS LINE 1001 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003f5 SLABEL 321 1002 ->FAIL %UNLESS IMPS=1; ->SUCC LINE 1002 "regression-compile-tmp/nrimp10s-77.imp" PUSH IMPS PUSHI #0x00000001 JUMPIF = L_0004 JUMP L_0147 LOCATE L_0004 LINE 1002 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1003 BIP(1014): ! PHRASE DUMMY APP LINE 1003 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003f6 SLABEL 321 1004 A(R)=2; A(R+1)=2 LINE 1004 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R ACCESS PUSHI #0x00000002 ASSVAL LINE 1004 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000002 ASSVAL 1005 R=R+2; ->SUCC LINE 1005 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000002 ADD ASSVAL LINE 1005 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1006 BIP(1015): ! PHRASE DOWN=NEW TEXT LEVEL LINE 1006 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003f7 SLABEL 321 1007 LEVEL=LEVEL+1 LINE 1007 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSH LEVEL PUSHI #0x00000001 ADD ASSVAL 1008 TO AR4(R,0) LINE 1008 "regression-compile-tmp/nrimp10s-77.imp" PUSH TOAR4 PUSH R ASSPAR PUSHI #0x00000000 ASSPAR CALL 1009 DISPLAY(LEVEL)=R LINE 1009 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISPLAY PUSH LEVEL ACCESS PUSH R ASSVAL 1010 SFS(LEVEL)=0 LINE 1010 "regression-compile-tmp/nrimp10s-77.imp" PUSH SFS PUSH LEVEL ACCESS PUSHI #0x00000000 ASSVAL 1011 R=R+4 LINE 1011 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000004 ADD ASSVAL 1012 ->SUCC LINE 1012 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1013 BIP(1016): ! PHRASE UP 1 TEXTUAL LEVEL LINE 1013 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003f8 SLABEL 321 1014 DISPLAY(LEVEL)=0 LINE 1014 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISPLAY PUSH LEVEL ACCESS PUSHI #0x00000000 ASSVAL 1015 %WHILE SFS(LEVEL)#0 %CYCLE LINE 1015 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH SFS PUSH LEVEL ACCESS PUSHI #0x00000000 JUMPIF = L_0004 1016 POP(SFS(LEVEL),I,J,K) LINE 1016 "regression-compile-tmp/nrimp10s-77.imp" PUSH POP PUSH SFS PUSH LEVEL ACCESS ASSPAR PUSH I ASSPAR PUSH J ASSPAR PUSH K ASSPAR CALL 1017 %IF I=1 %THEN FAULT2(53,K,0); ! FINISH MISSING LINE 1017 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 JUMPIF # L_0007 PUSH FAULT2 PUSHI #0x00000035 ASSPAR PUSH K ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0007 1018 %IF I=2 %THEN FAULT2(13,K,0); ! %REPEAT MISSING LINE 1018 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000002 JUMPIF # L_0007 PUSH FAULT2 PUSHI #0x0000000d ASSPAR PUSH K ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0007 1019 %REPEAT LINE 1019 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1020 LEVEL=LEVEL-1 LINE 1020 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSH LEVEL PUSHI #0x00000001 SUB ASSVAL 1021 ->SUCC LINE 1021 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1022 BIP(1017): ! PHRASE LISTON LINE 1022 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003f9 SLABEL 321 1023 LIST=1; ->SUCC LINE 1023 "regression-compile-tmp/nrimp10s-77.imp" PUSH LIST PUSHI #0x00000001 ASSVAL LINE 1023 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1024 BIP(1018): ! PHRASE LISTOFF LINE 1024 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003fa SLABEL 321 1025 LIST=0; ->SUCC LINE 1025 "regression-compile-tmp/nrimp10s-77.imp" PUSH LIST PUSHI #0x00000000 ASSVAL LINE 1025 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1026 BIP(1019): ! PHRASE COLON FOR LABEL LINE 1026 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003fb SLABEL 321 1027 ->FAIL %UNLESS CC(Q-1)=':' LINE 1027 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH Q PUSHI #0x00000001 SUB ACCESS PUSHI #0x0000003a JUMPIF = L_0004 JUMP L_0147 LOCATE L_0004 1028 ->SUCC LINE 1028 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1029 BIP(1020): ! PHRASE NOTE CONST LINE 1029 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003fc SLABEL 321 1030 %IF CTYPE=5 %THEN TOAR4(S-4,STRLINK) %AND STRLINK=S-4 LINE 1030 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTYPE PUSHI #0x00000005 JUMPIF # L_0004 PUSH TOAR4 PUSH S PUSHI #0x00000004 SUB ASSPAR PUSH STRLINK ASSPAR CALL PUSH STRLINK PUSH S PUSHI #0x00000004 SUB ASSVAL LOCATE L_0004 1031 ->SUCC LINE 1031 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1032 BIP(1021): ! TRACE FOR ON CONDITIONS LINE 1032 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003fd SLABEL 321 1033 PARMTRACE=1; ->SUCC LINE 1033 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMTRACE PUSHI #0x00000001 ASSVAL LINE 1033 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1034 BIP(1022): ! SET MNEMONIC LINE 1034 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003fe SLABEL 321 1035 I=CC(Q); ! OBTAIN CURRENT CHARACTER LINE 1035 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1036 S=M' ' LINE 1036 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSHI #0x20202020 ASSVAL 1037 %WHILE 'A'<=I<='Z' %CYCLE LINE 1037 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSHI #0x00000041 PUSH I JUMPIFD > L_0004 PUSHI #0x0000005a JUMPIF > L_0004 1038 S=S<<8!I; Q=Q+1; I=CC(Q) LINE 1038 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSH S PUSHI #0x00000008 LSH PUSH I OR ASSVAL LINE 1038 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 1038 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1039 %REPEAT LINE 1039 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1040 ->FAIL %UNLESS I='_' %AND S#M' ' LINE 1040 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000005f JUMPIF # L_0005 PUSH S PUSHI #0x20202020 JUMPIF # L_0004 LOCATE L_0005 JUMP L_0147 LOCATE L_0004 1041 Q=Q+1; ->SUCC LINE 1041 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 1041 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1042 BIP(1023): ! PRIMARY FORMAT MNEMOINC LINE 1042 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x000003ff SLABEL 321 1043 %CYCLE I=7,1,126 LINE 1043 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSHI #0x0000007e PUSHI #0x00000007 FOR L_0003 1044 ->PFND %IF OPC(I)=S LINE 1044 "regression-compile-tmp/nrimp10s-77.imp" PUSH OPC PUSH I ACCESS PUSH S JUMPIF # L_0007 JUMP L_014a LOCATE L_0007 1045 %REPEAT LINE 1045 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1046 ->FAIL LINE 1046 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0147 1047 PFND: LINE 1047 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_014a 1048 ->FAIL %IF 8<=I>>3<=11 %AND I&7<=3 LINE 1048 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000008 PUSH I PUSHI #0x00000003 RSH JUMPIFD > L_0004 PUSHI #0x0000000b JUMPIF > L_0004 PUSH I PUSHI #0x00000007 AND PUSHI #0x00000003 JUMPIF > L_0004 JUMP L_0147 LOCATE L_0004 1049 A(R)=2*I; ->UPR LINE 1049 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R ACCESS PUSHI #0x00000002 PUSH I MUL ASSVAL LINE 1049 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0143 1050 BIP(1024): ! SECONDARY FORMAT MNEMONIC LINE 1050 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000400 SLABEL 321 1051 %CYCLE I=64,8,88 LINE 1051 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000008 PUSHI #0x00000058 PUSHI #0x00000040 FOR L_0003 1052 %CYCLE J=0,1,3 LINE 1052 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000001 PUSHI #0x00000003 PUSHI #0x00000000 FOR L_0006 1053 ->SFND %IF OPC(I+J)=S LINE 1053 "regression-compile-tmp/nrimp10s-77.imp" PUSH OPC PUSH I PUSH J ADD ACCESS PUSH S JUMPIF # L_000a JUMP L_014b LOCATE L_000a 1054 %REPEAT LINE 1054 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0006 LOCATE L_0007 1055 %REPEAT LINE 1055 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1056 ->FAIL LINE 1056 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0147 1057 SFND: A(R)=2*(I+J); ->UPR LINE 1057 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_014b LINE 1057 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R ACCESS PUSHI #0x00000002 PUSH I PUSH J ADD MUL ASSVAL LINE 1057 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0143 1058 BIP(1025): ! TERTIARY FORMAT MNEMONIC LINE 1058 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000401 SLABEL 321 1059 %CYCLE I=3,-1,1 LINE 1059 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 NEGATE PUSHI #0x00000001 PUSHI #0x00000003 FOR L_0003 1060 %IF OPC(I)=S %THEN A(R)=2*I %AND ->UPR LINE 1060 "regression-compile-tmp/nrimp10s-77.imp" PUSH OPC PUSH I ACCESS PUSH S JUMPIF # L_0007 PUSH A PUSH R ACCESS PUSHI #0x00000002 PUSH I MUL ASSVAL JUMP L_0143 LOCATE L_0007 1061 %REPEAT; ->FAIL LINE 1061 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 LINE 1061 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0147 1062 BIP(1026): ! P(OP)=+,-,&,****,**,*,!!,!, 1063 ! //,/,>>,<<,.,\\,\; LINE 1062 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000402 SLABEL 321 1064 I=CC(Q); ! OBTAIN CURRENT CHARACTER LINE 1064 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1065 ->FAIL %UNLESS 32>((I-32)&31)&16_4237000A#0 LINE 1065 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000020 PUSH I JUMPIFD >= L_0005 PUSHI #0x0000007f JUMPIF >= L_0005 PUSHI #0x80000000 PUSH I PUSHI #0x00000020 SUB PUSHI #0x0000001f AND RSH PUSHI #0x4237000a AND PUSHI #0x00000000 JUMPIF # L_0004 LOCATE L_0005 JUMP L_0147 LOCATE L_0004 1066 Q=Q+1 LINE 1066 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL 1067 %IF I='+' %THEN A(R)=1 %AND ->UPR LINE 1067 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000002b JUMPIF # L_0004 PUSH A PUSH R ACCESS PUSHI #0x00000001 ASSVAL JUMP L_0143 LOCATE L_0004 1068 %IF I='-' %THEN A(R)=2 %AND ->UPR LINE 1068 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000002d JUMPIF # L_0004 PUSH A PUSH R ACCESS PUSHI #0x00000002 ASSVAL JUMP L_0143 LOCATE L_0004 1069 %IF I='&' %THEN A(R)=3 %AND ->UPR LINE 1069 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000026 JUMPIF # L_0004 PUSH A PUSH R ACCESS PUSHI #0x00000003 ASSVAL JUMP L_0143 LOCATE L_0004 1070 J=CC(Q) LINE 1070 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH CC PUSH Q ACCESS ASSVAL 1071 %IF I='*' %THEN %START LINE 1071 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000002a JUMPIF # L_0004 1072 %IF J#I %THEN A(R)=6 %AND ->UPR LINE 1072 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH I JUMPIF = L_0007 PUSH A PUSH R ACCESS PUSHI #0x00000006 ASSVAL JUMP L_0143 LOCATE L_0007 1073 %IF CC(Q+1)=I=CC(Q+2) %THEN A(R)=4 %AND Q=Q+3 %AND ->UPR LINE 1073 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH Q PUSHI #0x00000001 ADD ACCESS PUSH I JUMPIFD # L_0007 PUSH CC PUSH Q PUSHI #0x00000002 ADD ACCESS JUMPIF # L_0007 PUSH A PUSH R ACCESS PUSHI #0x00000004 ASSVAL PUSH Q PUSH Q PUSHI #0x00000003 ADD ASSVAL JUMP L_0143 LOCATE L_0007 1074 A(R)=5; Q=Q+1; ->UPR LINE 1074 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R ACCESS PUSHI #0x00000005 ASSVAL LINE 1074 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 1074 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0143 1075 %FINISH LINE 1075 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1076 %IF I='/' %THEN %START LINE 1076 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000002f JUMPIF # L_0004 1077 %IF J#I %THEN A(R)=10 %AND ->UPR LINE 1077 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH I JUMPIF = L_0007 PUSH A PUSH R ACCESS PUSHI #0x0000000a ASSVAL JUMP L_0143 LOCATE L_0007 1078 A(R)=9; Q=Q+1; ->UPR LINE 1078 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R ACCESS PUSHI #0x00000009 ASSVAL LINE 1078 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 1078 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0143 1079 %FINISH LINE 1079 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1080 %IF I='!' %THEN %START LINE 1080 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000021 JUMPIF # L_0004 1081 %IF J#I %THEN A(R)=8 %AND ->UPR LINE 1081 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH I JUMPIF = L_0007 PUSH A PUSH R ACCESS PUSHI #0x00000008 ASSVAL JUMP L_0143 LOCATE L_0007 1082 A(R)=7; Q=Q+1; ->UPR LINE 1082 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R ACCESS PUSHI #0x00000007 ASSVAL LINE 1082 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 1082 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0143 1083 %FINISH LINE 1083 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1084 %IF I='.' %THEN A(R)=13 %AND ->UPR LINE 1084 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000002e JUMPIF # L_0004 PUSH A PUSH R ACCESS PUSHI #0x0000000d ASSVAL JUMP L_0143 LOCATE L_0004 1085 %IF I=J='<' %THEN A(R)=12 %AND Q=Q+1 %AND ->UPR LINE 1085 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH J JUMPIFD # L_0004 PUSHI #0x0000003c JUMPIF # L_0004 PUSH A PUSH R ACCESS PUSHI #0x0000000c ASSVAL PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL JUMP L_0143 LOCATE L_0004 1086 %IF I=J='>' %THEN A(R)=11 %AND Q=Q+1 %AND ->UPR LINE 1086 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH J JUMPIFD # L_0004 PUSHI #0x0000003e JUMPIF # L_0004 PUSH A PUSH R ACCESS PUSHI #0x0000000b ASSVAL PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL JUMP L_0143 LOCATE L_0004 1087 %IF I='\' %THEN %START LINE 1087 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000005c JUMPIF # L_0004 1088 %IF J#I %THEN A(R)=15 %AND ->UPR LINE 1088 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH I JUMPIF = L_0007 PUSH A PUSH R ACCESS PUSHI #0x0000000f ASSVAL JUMP L_0143 LOCATE L_0007 1089 Q=Q+1; A(R)=14; ->UPR LINE 1089 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 1089 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R ACCESS PUSHI #0x0000000e ASSVAL LINE 1089 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0143 1090 %FINISH LINE 1090 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1091 ->FAIL LINE 1091 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0147 1092 BIP(1027): ! PHRASE CHECK UI LINE 1092 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000403 SLABEL 321 1093 I=CC(Q); ! OBTAIN CURRENT CHARACTER LINE 1093 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1094 ->SUCC %IF TRTAB(I)=2 %OR I='-' LINE 1094 "regression-compile-tmp/nrimp10s-77.imp" PUSH TRTAB PUSH I ACCESS PUSHI #0x00000002 JUMPIF = L_0005 PUSH I PUSHI #0x0000002d JUMPIF # L_0004 LOCATE L_0005 JUMP L_0144 LOCATE L_0004 1095 ->SUCC %IF 16_80000000>>(I&31)&16_14043000#0 LINE 1095 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x80000000 PUSH I PUSHI #0x0000001f AND RSH PUSHI #0x14043000 AND PUSHI #0x00000000 JUMPIF = L_0004 JUMP L_0144 LOCATE L_0004 1096 ->FAIL LINE 1096 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0147 1097 BIP(1028): ! P(+')=+,-,\,0 LINE 1097 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000404 SLABEL 321 1098 I=CC(Q); ! OBTAIN CURRENT CHARACTER LINE 1098 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1099 %IF I='\' %OR I=16_7E %THEN A(R)=3 %AND Q=Q+1 %AND ->UPR LINE 1099 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000005c JUMPIF = L_0005 PUSH I PUSHI #0x0000007e JUMPIF # L_0004 LOCATE L_0005 PUSH A PUSH R ACCESS PUSHI #0x00000003 ASSVAL PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL JUMP L_0143 LOCATE L_0004 1100 %IF I='-' %THEN A(R)=2 %AND Q=Q+1 %AND ->UPR LINE 1100 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000002d JUMPIF # L_0004 PUSH A PUSH R ACCESS PUSHI #0x00000002 ASSVAL PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL JUMP L_0143 LOCATE L_0004 1101 %IF I='+' %THEN A(R)=1 %AND Q=Q+1 %AND ->UPR LINE 1101 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000002b JUMPIF # L_0004 PUSH A PUSH R ACCESS PUSHI #0x00000001 ASSVAL PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL JUMP L_0143 LOCATE L_0004 1102 A(R)=4; ->UPR LINE 1102 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R ACCESS PUSHI #0x00000004 ASSVAL LINE 1102 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0143 1103 BIP(1029): ! PHRASE NOTE CYCLE LINE 1103 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000405 SLABEL 321 1104 TOAR4(R,0) LINE 1104 "regression-compile-tmp/nrimp10s-77.imp" PUSH TOAR4 PUSH R ASSPAR PUSHI #0x00000000 ASSPAR CALL 1105 PUSH(SFS(LEVEL),2,R,LINE) LINE 1105 "regression-compile-tmp/nrimp10s-77.imp" PUSH PUSH PUSH SFS PUSH LEVEL ACCESS ASSPAR PUSHI #0x00000002 ASSPAR PUSH R ASSPAR PUSH LINE ASSPAR CALL 1106 R=R+4 LINE 1106 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000004 ADD ASSVAL 1107 ->SUCC LINE 1107 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1108 BIP(1030): ! P(,')=',',0 1109 ! 1110 ! THIS IS VERY AWKWARD AS IT MEANS IT IS VERY TO HARD TO FIND 1111 ! THE END OF A PARAMETER LIST WITHOUT CHURNING. BY MAKING THIS A BIP 1112 ! WE CAN PEEP AHEAD FOR ')' AND FAIL HERE. 1113 ! LINE 1108 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000406 SLABEL 321 1114 I=CC(Q); ! OBTAIN CURRENT CHARACTER LINE 1114 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1115 %IF I=')' %THEN ->FAIL LINE 1115 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000029 JUMPIF # L_0004 JUMP L_0147 LOCATE L_0004 1116 %IF I=',' %THEN Q=Q+1 LINE 1116 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000002c JUMPIF # L_0004 PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LOCATE L_0004 1117 ->SUCC LINE 1117 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1118 BIP(1031): ! PHRASE CHECKTYPE IE ENSURE 1119 ! FIRST LETTER IS(B,H,I,L,R,S) & 1120 ! 3RD LETTER IS (A,L,N,R,T) LINE 1118 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000407 SLABEL 321 1121 I=CC(Q); ! OBTAIN CURRENT CHARACTER LINE 1121 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1122 ->FAIL %UNLESS I>128 %AND 16_80000000>>(I&31)&16_20C83000#0 %AND 16_80000000>>(CC(Q+2)&31)&16_400A2800#0 LINE 1122 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000080 JUMPIF <= L_0005 PUSHI #0x80000000 PUSH I PUSHI #0x0000001f AND RSH PUSHI #0x20c83000 AND PUSHI #0x00000000 JUMPIF = L_0005 PUSHI #0x80000000 PUSH CC PUSH Q PUSHI #0x00000002 ADD ACCESS PUSHI #0x0000001f AND RSH PUSHI #0x400a2800 AND PUSHI #0x00000000 JUMPIF # L_0004 LOCATE L_0005 JUMP L_0147 LOCATE L_0004 1123 ->SUCC LINE 1123 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1124 BIP(1032): ! PHRASE COMP1 LINE 1124 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000408 SLABEL 321 1125 BIP(1037): ! PHRASE COMP2(IS 2ND HALF OF DSIDED) LINE 1125 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x0000040d SLABEL 321 1126 I=CC(Q); ! OBTAIN CURRENT CHARACTER LINE 1126 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1127 ->FAIL %UNLESS 32>(I&31)&16_1004000E#0 1128 ! '='=1,'>='=2,'>'=3 1129 ! '#' OR '\='=4,'<='=5,'<'=6 1130 ! 7UNUSED,'->'=8,'=='=9 1131 ! '##' OR '\==' =10 LINE 1127 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000020 PUSH I JUMPIFD >= L_0005 PUSHI #0x0000005c JUMPIF > L_0005 PUSHI #0x80000000 PUSH I PUSHI #0x0000001f AND RSH PUSHI #0x1004000e AND PUSHI #0x00000000 JUMPIF # L_0004 LOCATE L_0005 JUMP L_0147 LOCATE L_0004 1132 %IF I='=' %THEN %START LINE 1132 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000003d JUMPIF # L_0004 1133 %IF CC(Q+1)=I %THEN J=9 %AND ->JOIN1 LINE 1133 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH Q PUSHI #0x00000001 ADD ACCESS PUSH I JUMPIF # L_0007 PUSH J PUSHI #0x00000009 ASSVAL JUMP L_014c LOCATE L_0007 1134 J=1; ->JOIN LINE 1134 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000001 ASSVAL LINE 1134 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_014d 1135 %FINISH LINE 1135 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1136 %IF I='#' %THEN %START LINE 1136 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000023 JUMPIF # L_0004 1137 %IF CC(Q+1)=I %THEN J=10 %AND ->JOIN1 LINE 1137 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH Q PUSHI #0x00000001 ADD ACCESS PUSH I JUMPIF # L_0007 PUSH J PUSHI #0x0000000a ASSVAL JUMP L_014c LOCATE L_0007 1138 J=4; ->JOIN LINE 1138 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000004 ASSVAL LINE 1138 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_014d 1139 %FINISH LINE 1139 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1140 %IF I='\' %AND CC(Q+1)='=' %THEN %START LINE 1140 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000005c JUMPIF # L_0004 PUSH CC PUSH Q PUSHI #0x00000001 ADD ACCESS PUSHI #0x0000003d JUMPIF # L_0004 1141 Q=Q+1 LINE 1141 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL 1142 %IF CC(Q+1)='=' %THEN J=10 %AND ->JOIN1 LINE 1142 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH Q PUSHI #0x00000001 ADD ACCESS PUSHI #0x0000003d JUMPIF # L_0007 PUSH J PUSHI #0x0000000a ASSVAL JUMP L_014c LOCATE L_0007 1143 J=4; ->JOIN LINE 1143 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000004 ASSVAL LINE 1143 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_014d 1144 %FINISH LINE 1144 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1145 %IF I='>' %THEN %START LINE 1145 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000003e JUMPIF # L_0004 1146 %IF CC(Q+1)='=' %THEN J=2 %AND ->JOIN1 LINE 1146 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH Q PUSHI #0x00000001 ADD ACCESS PUSHI #0x0000003d JUMPIF # L_0007 PUSH J PUSHI #0x00000002 ASSVAL JUMP L_014c LOCATE L_0007 1147 J=3; ->JOIN LINE 1147 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000003 ASSVAL LINE 1147 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_014d 1148 %FINISH LINE 1148 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1149 %IF I='<' %THEN %START LINE 1149 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000003c JUMPIF # L_0004 1150 %IF CC(Q+1)='=' %THEN J=5 %AND ->JOIN1 LINE 1150 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH Q PUSHI #0x00000001 ADD ACCESS PUSHI #0x0000003d JUMPIF # L_0007 PUSH J PUSHI #0x00000005 ASSVAL JUMP L_014c LOCATE L_0007 1151 J=6; ->JOIN LINE 1151 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000006 ASSVAL LINE 1151 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_014d 1152 %FINISH LINE 1152 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1153 %IF I='-' %AND CC(Q+1)='>' %THEN J=8 %AND ->JOIN1 LINE 1153 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000002d JUMPIF # L_0004 PUSH CC PUSH Q PUSHI #0x00000001 ADD ACCESS PUSHI #0x0000003e JUMPIF # L_0004 PUSH J PUSHI #0x00000008 ASSVAL JUMP L_014c LOCATE L_0004 1154 ->FAIL LINE 1154 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0147 1155 JOIN1:Q=Q+1 LINE 1155 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_014c LINE 1155 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL 1156 JOIN: Q=Q+1 LINE 1156 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_014d LINE 1156 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL 1157 A(R)=J LINE 1157 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R ACCESS PUSH J ASSVAL 1158 %IF ITEM=1032 %THEN SAVECOMP=J %AND ->UPR 1159 ! SAVE J TO CHECK DSIDED LINE 1158 "regression-compile-tmp/nrimp10s-77.imp" PUSH ITEM PUSHI #0x00000408 JUMPIF # L_0004 PUSH SAVECOMP PUSH J ASSVAL JUMP L_0143 LOCATE L_0004 1160 %IF SAVECOMP>6 %OR J>6 %THEN Q=Q-1 %AND ->FAIL;! ILLEGAL DSIDED LINE 1160 "regression-compile-tmp/nrimp10s-77.imp" PUSH SAVECOMP PUSHI #0x00000006 JUMPIF > L_0005 PUSH J PUSHI #0x00000006 JUMPIF <= L_0004 LOCATE L_0005 PUSH Q PUSH Q PUSHI #0x00000001 SUB ASSVAL JUMP L_0147 LOCATE L_0004 1161 ->UPR; ! NB OWNS WONT WORK IF 1162 ! COND EXPRS ALLOWED AS THE 1163 ! CAN BE NESTED! LINE 1161 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0143 1164 BIP(1033): ! P(ASSOP)- ==,=,<-,-> LINE 1164 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000409 SLABEL 321 1165 I=CC(Q); ! OBTAIN CURRENT CHARACTER LINE 1165 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1166 %IF I='=' %THEN %START LINE 1166 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000003d JUMPIF # L_0004 1167 %IF CC(Q+1)='=' %THEN A(R)=1 %AND Q=Q+2 %AND ->UPR LINE 1167 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH Q PUSHI #0x00000001 ADD ACCESS PUSHI #0x0000003d JUMPIF # L_0007 PUSH A PUSH R ACCESS PUSHI #0x00000001 ASSVAL PUSH Q PUSH Q PUSHI #0x00000002 ADD ASSVAL JUMP L_0143 LOCATE L_0007 1168 A(R)=2; Q=Q+1; ->UPR LINE 1168 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R ACCESS PUSHI #0x00000002 ASSVAL LINE 1168 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 1168 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0143 1169 %FINISH LINE 1169 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1170 %IF I='<' %AND CC(Q+1)='-' %THEN A(R)=3 %AND Q=Q+2 %AND ->UPR LINE 1170 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000003c JUMPIF # L_0004 PUSH CC PUSH Q PUSHI #0x00000001 ADD ACCESS PUSHI #0x0000002d JUMPIF # L_0004 PUSH A PUSH R ACCESS PUSHI #0x00000003 ASSVAL PUSH Q PUSH Q PUSHI #0x00000002 ADD ASSVAL JUMP L_0143 LOCATE L_0004 1171 %IF I='-' %AND CC(Q+1)='>' %THEN A(R)=4 %AND Q=Q+2 %AND ->UPR LINE 1171 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000002d JUMPIF # L_0004 PUSH CC PUSH Q PUSHI #0x00000001 ADD ACCESS PUSHI #0x0000003e JUMPIF # L_0004 PUSH A PUSH R ACCESS PUSHI #0x00000004 ASSVAL PUSH Q PUSH Q PUSHI #0x00000002 ADD ASSVAL JUMP L_0143 LOCATE L_0004 1172 ->FAIL LINE 1172 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0147 1173 BIP(1034): ! NOTE START LINE 1173 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x0000040a SLABEL 321 1174 TOAR4(R,0); ! HOLE FOR FORWARD PTR LINE 1174 "regression-compile-tmp/nrimp10s-77.imp" PUSH TOAR4 PUSH R ASSPAR PUSHI #0x00000000 ASSPAR CALL 1175 PUSH(SFS(LEVEL),1,R,LINE) LINE 1175 "regression-compile-tmp/nrimp10s-77.imp" PUSH PUSH PUSH SFS PUSH LEVEL ACCESS ASSPAR PUSHI #0x00000001 ASSPAR PUSH R ASSPAR PUSH LINE ASSPAR CALL 1176 R=R+4 LINE 1176 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000004 ADD ASSVAL 1177 ->SUCC LINE 1177 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1178 BIP(1035): ! NOTE FINISH LINE 1178 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x0000040b SLABEL 321 1179 %IF SFS(LEVEL)=0 %THEN FAULT2(51,0,0) %AND ->SUCC LINE 1179 "regression-compile-tmp/nrimp10s-77.imp" PUSH SFS PUSH LEVEL ACCESS PUSHI #0x00000000 JUMPIF # L_0004 PUSH FAULT2 PUSHI #0x00000033 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL JUMP L_0144 LOCATE L_0004 1180 POP(SFS(LEVEL),I,J,K) LINE 1180 "regression-compile-tmp/nrimp10s-77.imp" PUSH POP PUSH SFS PUSH LEVEL ACCESS ASSPAR PUSH I ASSPAR PUSH J ASSPAR PUSH K ASSPAR CALL 1181 %IF I=2 %THEN FAULT2(59,K,0) LINE 1181 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000002 JUMPIF # L_0004 PUSH FAULT2 PUSHI #0x0000003b ASSPAR PUSH K ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 1182 TOAR4(J,STARSTART) LINE 1182 "regression-compile-tmp/nrimp10s-77.imp" PUSH TOAR4 PUSH J ASSPAR PUSH STARSTART ASSPAR CALL 1183 ->SUCC LINE 1183 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1184 BIP(1036): ! NOTE REPEAT LINE 1184 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x0000040c SLABEL 321 1185 %IF SFS(LEVEL)=0 %THEN FAULT2(1,0,0) %AND ->SUCC LINE 1185 "regression-compile-tmp/nrimp10s-77.imp" PUSH SFS PUSH LEVEL ACCESS PUSHI #0x00000000 JUMPIF # L_0004 PUSH FAULT2 PUSHI #0x00000001 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL JUMP L_0144 LOCATE L_0004 1186 POP(SFS(LEVEL),I,J,K) LINE 1186 "regression-compile-tmp/nrimp10s-77.imp" PUSH POP PUSH SFS PUSH LEVEL ACCESS ASSPAR PUSH I ASSPAR PUSH J ASSPAR PUSH K ASSPAR CALL 1187 %IF I=1 %THEN FAULT2(52,K,0); ! START INSTEAD OF CYCLE LINE 1187 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 JUMPIF # L_0004 PUSH FAULT2 PUSHI #0x00000034 ASSPAR PUSH K ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 1188 TOAR4(J,STARSTART) LINE 1188 "regression-compile-tmp/nrimp10s-77.imp" PUSH TOAR4 PUSH J ASSPAR PUSH STARSTART ASSPAR CALL 1189 ->SUCC LINE 1189 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1190 BIP(1038): ! INCLUDE "FILE" LINE 1190 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x0000040e SLABEL 321 1191 ->FAIL %IF VMEB=YES LINE 1191 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSHI #0x00000001 JUMPIF # L_0004 JUMP L_0147 LOCATE L_0004 1192 I=CC(Q) LINE 1192 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1193 ->FAIL %UNLESS I=NL %OR I=';' LINE 1193 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000000a JUMPIF = L_0004 PUSH I PUSHI #0x0000003b JUMPIF = L_0004 JUMP L_0147 LOCATE L_0004 1194 Q=Q+1 %IF I=';' LINE 1194 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000003b JUMPIF # L_0004 PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LOCATE L_0004 1195 ->FAIL %UNLESS CTYPE=5 LINE 1195 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTYPE PUSHI #0x00000005 JUMPIF = L_0004 JUMP L_0147 LOCATE L_0004 1196 PUSH(IHEAD,FILEADDR,FILEPTR,FILEEND) LINE 1196 "regression-compile-tmp/nrimp10s-77.imp" PUSH PUSH PUSH IHEAD ASSPAR PUSH FILEADDR ASSPAR PUSH FILEPTR ASSPAR PUSH FILEEND ASSPAR CALL 1197 CONSOURCE(STRING(ADDR(A(S))),FILEADDR);! DEPARTS IF FAILS LINE 1197 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSOURCE PUSH STRING PUSH ADDR PUSH A PUSH S ACCESS ASSPAR CALL ASSPAR CALL ASSPAR PUSH FILEADDR ASSPAR CALL 1198 FILEPTR=FILEADDR+INTEGER(FILEADDR+4) LINE 1198 "regression-compile-tmp/nrimp10s-77.imp" PUSH FILEPTR PUSH FILEADDR PUSH INTEGER PUSH FILEADDR PUSHI #0x00000004 ADD ASSPAR CALL ADD ASSVAL 1199 FILEEND=FILEADDR+INTEGER(FILEADDR) LINE 1199 "regression-compile-tmp/nrimp10s-77.imp" PUSH FILEEND PUSH FILEADDR PUSH INTEGER PUSH FILEADDR ASSPAR CALL ADD ASSVAL 1200 ->SUCC LINE 1200 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_0144 1201 %END; !OF ROUTINE 'COMPARE' LINE 1201 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id2_COMPARE {lev=4 --> 3} 1202 %ROUTINE PNAME(%INTEGER MODE) 1203 !*********************************************************************** 1204 !* MODE=0 FOR OLD NAME(ALREADY IN DICT), MODE=1 FOR NEW NAME * 1205 !*********************************************************************** LINE 1202 "regression-compile-tmp/nrimp10s-77.imp" DEF PNAME (_lev0id0_lev1id1_lev2id2_PNAME) 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=4 --> 5, nested=0 --> 1} DEF MODE p1=V_0132 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=4} 1206 %CONSTINTEGERARRAY HASH(0:7)=71,47,97,79,29,37,53,59; LINE 1206 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSHI #0x00000007 BOUNDS DEF HASH p1=V_0133 a/tf=1b b/format=1 c/ostate=112 type=1 (integer) form=11 (array) special=0 () linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000047 INIT 1 PUSHI #0x0000002f INIT 1 PUSHI #0x00000061 INIT 1 PUSHI #0x0000004f INIT 1 PUSHI #0x0000001d INIT 1 PUSHI #0x00000025 INIT 1 PUSHI #0x00000035 INIT 1 PUSHI #0x0000003b INIT 1 1207 %INTEGER JJ, KK, LL, FQ, FS, T, S, I LINE 1207 "regression-compile-tmp/nrimp10s-77.imp" DEF JJ p1=V_0134 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 KK p1=V_0135 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 LL p1=V_0136 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 FQ p1=V_0137 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 FS p1=V_0138 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 T p1=V_0139 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 S p1=V_013a 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 I p1=V_013b 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 1208 %LONGINTEGER DRDES,ACCDES LINE 1208 "regression-compile-tmp/nrimp10s-77.imp" DEF DRDES p1=V_013c a/tf=11 b/format=4 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF ACCDES p1=V_013d a/tf=11 b/format=4 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1209 HIT=0; FQ=Q; FS=CC(Q) LINE 1209 "regression-compile-tmp/nrimp10s-77.imp" PUSH HIT PUSHI #0x00000000 ASSVAL LINE 1209 "regression-compile-tmp/nrimp10s-77.imp" PUSH FQ PUSH Q ASSVAL LINE 1209 "regression-compile-tmp/nrimp10s-77.imp" PUSH FS PUSH CC PUSH Q ACCESS ASSVAL 1210 %RETURN %UNLESS TRTAB(FS)=2 %AND M'"'#CC(Q+1)#M'''' 1211 ! 1ST CHAR MUST BE LETTER LINE 1210 "regression-compile-tmp/nrimp10s-77.imp" PUSH TRTAB PUSH FS ACCESS PUSHI #0x00000002 JUMPIF # L_0005 PUSHI #0x00000022 PUSH CC PUSH Q PUSHI #0x00000001 ADD ACCESS JUMPIFD = L_0005 PUSHI #0x00000027 JUMPIF # L_0004 LOCATE L_0005 RETURN LOCATE L_0004 1212 T=1 LINE 1212 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSHI #0x00000001 ASSVAL 1213 LETT(NEXT+1)=FS; JJ=71*FS 1214 ! %IF USE IMP=YES %THEN %START LINE 1213 "regression-compile-tmp/nrimp10s-77.imp" PUSH LETT PUSH NEXT PUSHI #0x00000001 ADD ACCESS PUSH FS ASSVAL LINE 1213 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSHI #0x00000047 PUSH FS MUL ASSVAL 1215 %CYCLE LINE 1215 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 1216 Q=Q+1 LINE 1216 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL 1217 I=CC(Q) LINE 1217 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1218 %EXIT %IF TRTAB(I)=0 LINE 1218 "regression-compile-tmp/nrimp10s-77.imp" PUSH TRTAB PUSH I ACCESS PUSHI #0x00000000 JUMPIF # L_0007 GOTO L_0004 LOCATE L_0007 1219 JJ=JJ+HASH(T) %IF T<=7 LINE 1219 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSHI #0x00000007 JUMPIF > L_0007 PUSH JJ PUSH JJ PUSH HASH PUSH T ACCESS ADD ASSVAL LOCATE L_0007 1220 T=T+1 LINE 1220 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSH T PUSHI #0x00000001 ADD ASSVAL 1221 LETT(NEXT+T)=I LINE 1221 "regression-compile-tmp/nrimp10s-77.imp" PUSH LETT PUSH NEXT PUSH T ADD ACCESS PUSH I ASSVAL 1222 %REPEAT 1223 ! %FINISH %ELSE %START 1224 !CYC: 1225 ! *LB_Q 1226 ! *ADB_1 1227 ! *STB_Q 1228 ! *LB_(CC+%B) 1229 ! *LSS_(TRTAB+%B) 1230 ! *JAT_4, 1231 ! *STB_I 1232 ! *LSS_%B; ! I TO ACC 1233 ! *LB_T 1234 ! *CPB_7 1235 ! *JCC_2, 1236 ! *IMY_(HASH+%B) 1237 ! *IAD_JJ 1238 ! *ST_JJ 1239 !SKIP: 1240 ! *ADB_1 1241 ! *STB_T 1242 ! *LSS_I 1243 ! *ADB_NEXT 1244 ! *ST_(LETT+%B) 1245 ! *J_ 1246 !EXIT: 1247 ! %FINISH LINE 1222 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1248 LETT(NEXT)=T; ! INSERT LENGTH LINE 1248 "regression-compile-tmp/nrimp10s-77.imp" PUSH LETT PUSH NEXT ACCESS PUSH T ASSVAL 1249 S=T+1 LINE 1249 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSH T PUSHI #0x00000001 ADD ASSVAL 1250 FAULT(103,0) %IF NEXT+S>DSIZE;!DICTIONARY OVERFLOW LINE 1250 "regression-compile-tmp/nrimp10s-77.imp" PUSH NEXT PUSH S ADD PUSH DSIZE JUMPIF <= L_0004 PUSH FAULT PUSHI #0x00000067 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 1251 JJ=(JJ+113*T)&NNAMES 1252 ! %IF USE IMP=YES %THEN %START LINE 1251 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSH JJ PUSHI #0x00000071 PUSH T MUL ADD PUSH NNAMES AND ASSVAL 1253 %CYCLE KK=JJ, 1, NNAMES LINE 1253 "regression-compile-tmp/nrimp10s-77.imp" PUSH KK PUSHI #0x00000001 PUSH NNAMES PUSH JJ FOR L_0003 1254 LL=WORD(KK) LINE 1254 "regression-compile-tmp/nrimp10s-77.imp" PUSH LL PUSH WORD PUSH KK ACCESS ASSVAL 1255 ->HOLE %IF LL=0; ! NAME NOT KNOWN LINE 1255 "regression-compile-tmp/nrimp10s-77.imp" PUSH LL PUSHI #0x00000000 JUMPIF # L_0007 JUMP L_013e LOCATE L_0007 1256 ->FND %IF STRING(ADDR(LETT(NEXT)))=STRING(ADDR(LETT(LL))) LINE 1256 "regression-compile-tmp/nrimp10s-77.imp" PUSH STRING PUSH ADDR PUSH LETT PUSH NEXT ACCESS ASSPAR CALL ASSPAR CALL PUSH STRING PUSH ADDR PUSH LETT PUSH LL ACCESS ASSPAR CALL ASSPAR CALL JUMPIF # L_0007 JUMP L_013f LOCATE L_0007 1257 %REPEAT LINE 1257 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1258 %CYCLE KK=0,1,JJ LINE 1258 "regression-compile-tmp/nrimp10s-77.imp" PUSH KK PUSHI #0x00000001 PUSH JJ PUSHI #0x00000000 FOR L_0003 1259 LL=WORD(KK) LINE 1259 "regression-compile-tmp/nrimp10s-77.imp" PUSH LL PUSH WORD PUSH KK ACCESS ASSVAL 1260 ->HOLE %IF LL=0; ! NAME NOT KNOWN LINE 1260 "regression-compile-tmp/nrimp10s-77.imp" PUSH LL PUSHI #0x00000000 JUMPIF # L_0007 JUMP L_013e LOCATE L_0007 1261 ->FND %IF STRING(ADDR(LETT(NEXT)))=STRING(ADDR(LETT(LL))) LINE 1261 "regression-compile-tmp/nrimp10s-77.imp" PUSH STRING PUSH ADDR PUSH LETT PUSH NEXT ACCESS ASSPAR CALL ASSPAR CALL PUSH STRING PUSH ADDR PUSH LETT PUSH LL ACCESS ASSPAR CALL ASSPAR CALL JUMPIF # L_0007 JUMP L_013f LOCATE L_0007 1262 %REPEAT 1263 ! %FINISH %ELSE %START 1264 ! *LDTB_16_18000000 1265 ! *LDB_S 1266 ! *LDA_LETT+4 1267 ! *STD_DRDES 1268 ! *INCA_NEXT 1269 ! *STD_ACCDES 1270 ! *LB_JJ 1271 !CYC1: 1272 ! *STB_KK 1273 ! *LB_(WORD+%B) 1274 ! *JAT_12, 1275 ! *LSD_ACCDES 1276 ! *LD_DRDES 1277 ! *INCA_%B 1278 ! *CPS_%L=%DR 1279 ! *JCC_8, 1280 ! *LB_KK 1281 ! *CPIB_NNAMES 1282 ! *JCC_7, 1283 ! *LB_0 1284 !CYC2: 1285 ! *STB_KK 1286 ! *LB_(WORD+%B) 1287 ! *JAT_12, 1288 ! *LSD_ACCDES 1289 ! *LD_DRDES 1290 ! *INCA_%B 1291 ! *CPS_%L=%DR 1292 ! *JCC_8, 1293 ! *LB_KK 1294 ! *CPIB_JJ 1295 ! *JCC_7, 1296 ! %FINISH LINE 1262 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1297 FAULT(104, 0); ! TOO MANY NAMES LINE 1297 "regression-compile-tmp/nrimp10s-77.imp" PUSH FAULT PUSHI #0x00000068 ASSPAR PUSHI #0x00000000 ASSPAR CALL 1298 HOLE: %IF MODE=0 %THEN Q=FQ %AND %RETURN LINE 1298 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_013e LINE 1298 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000000 JUMPIF # L_0004 PUSH Q PUSH FQ ASSVAL RETURN LOCATE L_0004 1299 WORD(KK)=NEXT; NEXT=NEXT+S LINE 1299 "regression-compile-tmp/nrimp10s-77.imp" PUSH WORD PUSH KK ACCESS PUSH NEXT ASSVAL LINE 1299 "regression-compile-tmp/nrimp10s-77.imp" PUSH NEXT PUSH NEXT PUSH S ADD ASSVAL 1300 FND: LASTAT=FQ; HIT=1; LASTNAME=KK LINE 1300 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_013f LINE 1300 "regression-compile-tmp/nrimp10s-77.imp" PUSH LASTAT PUSH FQ ASSVAL LINE 1300 "regression-compile-tmp/nrimp10s-77.imp" PUSH HIT PUSHI #0x00000001 ASSVAL LINE 1300 "regression-compile-tmp/nrimp10s-77.imp" PUSH LASTNAME PUSH KK ASSVAL 1301 A(R+1)<-LASTNAME LINE 1301 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R PUSHI #0x00000001 ADD ACCESS PUSH LASTNAME JAM 1302 A(R)=LASTNAME>>8; R=R+2 LINE 1302 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R ACCESS PUSH LASTNAME PUSHI #0x00000008 RSH ASSVAL LINE 1302 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000002 ADD ASSVAL 1303 LASTEND=Q LINE 1303 "regression-compile-tmp/nrimp10s-77.imp" PUSH LASTEND PUSH Q ASSVAL 1304 %END 1305 1306 LINE 1304 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id2_PNAME {lev=4 --> 3} 1307 %ROUTINE CONST(%INTEGER MODE) 1308 !*********************************************************************** 1309 !* SYNTAX CHECK AND EVALUATE ALL THE FORMS OF IMP CONSTANT * 1310 !* MODE=0 FOR INTEGER CONSTANTS #0 FOR ANY SORT OF CONSTANT * 1311 !*********************************************************************** LINE 1307 "regression-compile-tmp/nrimp10s-77.imp" DEF CONST (_lev0id0_lev1id1_lev2id2_CONST) 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=4 --> 5, nested=0 --> 1} DEF MODE p1=V_0132 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=4} 1312 %INTEGER Z, DOTSEEN, EBCDIC, FS, CPREC, RR, S, T, SS LINE 1312 "regression-compile-tmp/nrimp10s-77.imp" DEF Z p1=V_0133 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 DOTSEEN p1=V_0134 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 EBCDIC p1=V_0135 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 FS p1=V_0136 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 CPREC p1=V_0137 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 RR p1=V_0138 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 S p1=V_0139 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 T p1=V_013a 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 SS p1=V_013b 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 1313 {%LONG}%LONGREAL X,CVALUE,DUMMY LINE 1313 "regression-compile-tmp/nrimp10s-77.imp" DEF X p1=V_013c a/tf=21 b/format=4 c/ostate=0 type=2 (real) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF CVALUE p1=V_013d a/tf=21 b/format=4 c/ostate=0 type=2 (real) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF DUMMY p1=V_013e a/tf=21 b/format=4 c/ostate=0 type=2 (real) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1314 %CONST{%LONG}%LONGREAL TEN=10.0 {R'41A00000000000000000000000000000' LINE 1314 "regression-compile-tmp/nrimp10s-77.imp" PUSHR code=0 len=4 "10.0" DEF TEN p1=V_013f a/tf=21 b/format=4 c/ostate=12 type=2 (real) form=1 (simple) special=0 () linkage=2 (constant) spec=0 indirect=1 unass=0 INIT 1 1315 CPREC=5; RR=R; R=R+1 LINE 1315 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPREC PUSHI #0x00000005 ASSVAL LINE 1315 "regression-compile-tmp/nrimp10s-77.imp" PUSH RR PUSH R ASSVAL LINE 1315 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000001 ADD ASSVAL 1316 DOTSEEN=0; HIT=0 LINE 1316 "regression-compile-tmp/nrimp10s-77.imp" PUSH DOTSEEN PUSHI #0x00000000 ASSVAL LINE 1316 "regression-compile-tmp/nrimp10s-77.imp" PUSH HIT PUSHI #0x00000000 ASSVAL 1317 CVALUE=0; DUMMY=0; FS=CC(Q) LINE 1317 "regression-compile-tmp/nrimp10s-77.imp" PUSH CVALUE PUSHI #0x00000000 ASSVAL LINE 1317 "regression-compile-tmp/nrimp10s-77.imp" PUSH DUMMY PUSHI #0x00000000 ASSVAL LINE 1317 "regression-compile-tmp/nrimp10s-77.imp" PUSH FS PUSH CC PUSH Q ACCESS ASSVAL 1318 S=0; ->N %IF M'0'<=FS<=M'9' LINE 1318 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSHI #0x00000000 ASSVAL LINE 1318 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000030 PUSH FS JUMPIFD > L_0004 PUSHI #0x00000039 JUMPIF > L_0004 JUMP L_0140 LOCATE L_0004 1319 ->DOT %IF FS='.' %AND MODE=0 %AND '0'<=CC(Q+1)<='9' 1320 ! 1 DIDT MIN LINE 1319 "regression-compile-tmp/nrimp10s-77.imp" PUSH FS PUSHI #0x0000002e JUMPIF # L_0004 PUSH MODE PUSHI #0x00000000 JUMPIF # L_0004 PUSHI #0x00000030 PUSH CC PUSH Q PUSHI #0x00000001 ADD ACCESS JUMPIFD > L_0004 PUSHI #0x00000039 JUMPIF > L_0004 JUMP L_0141 LOCATE L_0004 1321 CTYPE=1; EBCDIC=0 LINE 1321 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTYPE PUSHI #0x00000001 ASSVAL LINE 1321 "regression-compile-tmp/nrimp10s-77.imp" PUSH EBCDIC PUSHI #0x00000000 ASSVAL 1322 ->QUOTE %IF FS=M'''' LINE 1322 "regression-compile-tmp/nrimp10s-77.imp" PUSH FS PUSHI #0x00000027 JUMPIF # L_0004 JUMP L_0142 LOCATE L_0004 1323 ->STR2 %IF FS=34 LINE 1323 "regression-compile-tmp/nrimp10s-77.imp" PUSH FS PUSHI #0x00000022 JUMPIF # L_0004 JUMP L_0143 LOCATE L_0004 1324 ->NOTQUOTE %UNLESS CC(Q+1)=M''''; Q=Q+2 LINE 1324 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH Q PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000027 JUMPIF = L_0004 JUMP L_0144 LOCATE L_0004 LINE 1324 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000002 ADD ASSVAL 1325 ->HEX %IF FS='X' LINE 1325 "regression-compile-tmp/nrimp10s-77.imp" PUSH FS PUSHI #0x00000058 JUMPIF # L_0004 JUMP L_0145 LOCATE L_0004 1326 ->MULT %IF FS='M' LINE 1326 "regression-compile-tmp/nrimp10s-77.imp" PUSH FS PUSHI #0x0000004d JUMPIF # L_0004 JUMP L_0146 LOCATE L_0004 1327 ->BIN %IF FS=M'B' LINE 1327 "regression-compile-tmp/nrimp10s-77.imp" PUSH FS PUSHI #0x00000042 JUMPIF # L_0004 JUMP L_0147 LOCATE L_0004 1328 ->RHEX %IF FS='R' %AND MODE=0 LINE 1328 "regression-compile-tmp/nrimp10s-77.imp" PUSH FS PUSHI #0x00000052 JUMPIF # L_0004 PUSH MODE PUSHI #0x00000000 JUMPIF # L_0004 JUMP L_0148 LOCATE L_0004 1329 ->OCT %IF FS='K' LINE 1329 "regression-compile-tmp/nrimp10s-77.imp" PUSH FS PUSHI #0x0000004b JUMPIF # L_0004 JUMP L_0149 LOCATE L_0004 1330 %IF FS='C' %THEN EBCDIC=1 %AND ->MULT LINE 1330 "regression-compile-tmp/nrimp10s-77.imp" PUSH FS PUSHI #0x00000043 JUMPIF # L_0004 PUSH EBCDIC PUSHI #0x00000001 ASSVAL JUMP L_0146 LOCATE L_0004 1331 %IF FS='D' %AND MODE=0 %THEN %START LINE 1331 "regression-compile-tmp/nrimp10s-77.imp" PUSH FS PUSHI #0x00000044 JUMPIF # L_0004 PUSH MODE PUSHI #0x00000000 JUMPIF # L_0004 1332 CPREC=7 LINE 1332 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPREC PUSHI #0x00000007 ASSVAL 1333 %IF M'0'<=CC(Q)<=M'9' %THEN ->N LINE 1333 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000030 PUSH CC PUSH Q ACCESS JUMPIFD > L_0007 PUSHI #0x00000039 JUMPIF > L_0007 JUMP L_0140 LOCATE L_0007 1334 %IF CC(Q)='.' %THEN ->DOT LINE 1334 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH Q ACCESS PUSHI #0x0000002e JUMPIF # L_0007 JUMP L_0141 LOCATE L_0007 1335 %FINISH LINE 1335 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1336 Q=Q-2; %RETURN LINE 1336 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000002 SUB ASSVAL LINE 1336 "regression-compile-tmp/nrimp10s-77.imp" RETURN 1337 QUOTE: ! SINGLE CH BETWEEN QUOTES LINE 1337 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0142 1338 %IF CC(Q+2)=M'''' %THEN %START LINE 1338 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH Q PUSHI #0x00000002 ADD ACCESS PUSHI #0x00000027 JUMPIF # L_0004 1339 S=CC(Q+1) LINE 1339 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSH CC PUSH Q PUSHI #0x00000001 ADD ACCESS ASSVAL 1340 Q=Q+3 LINE 1340 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000003 ADD ASSVAL 1341 %IF S#M'''' %THEN ->IEND LINE 1341 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSHI #0x00000027 JUMPIF = L_0007 JUMP L_014a LOCATE L_0007 1342 %IF CC(Q)=M'''' %THEN Q=Q+1 %AND ->IEND LINE 1342 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH Q ACCESS PUSHI #0x00000027 JUMPIF # L_0007 PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL JUMP L_014a LOCATE L_0007 1343 %FINISH LINE 1343 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1344 %RETURN; ! NOT VALID LINE 1344 "regression-compile-tmp/nrimp10s-77.imp" RETURN 1345 NOTQUOTE: ! CHECK FOR E"...." LINE 1345 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0144 1346 %RETURN %UNLESS FS='E' %AND CC(Q+1)=M'"' LINE 1346 "regression-compile-tmp/nrimp10s-77.imp" PUSH FS PUSHI #0x00000045 JUMPIF # L_0005 PUSH CC PUSH Q PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000022 JUMPIF = L_0004 LOCATE L_0005 RETURN LOCATE L_0004 1347 EBCDIC=1; Q=Q+1 LINE 1347 "regression-compile-tmp/nrimp10s-77.imp" PUSH EBCDIC PUSHI #0x00000001 ASSVAL LINE 1347 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL 1348 STR2: ! DOUBLE QUOTED STRING LINE 1348 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0143 1349 A(RR)=16_35; TEXTTEXT(EBCDIC) LINE 1349 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH RR ACCESS PUSHI #0x00000035 ASSVAL LINE 1349 "regression-compile-tmp/nrimp10s-77.imp" PUSH TEXTTEXT PUSH EBCDIC ASSPAR CALL 1350 CTYPE=5; %RETURN LINE 1350 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTYPE PUSHI #0x00000005 ASSVAL LINE 1350 "regression-compile-tmp/nrimp10s-77.imp" RETURN 1351 HEX: T=0; ! HEX CONSTANTS LINE 1351 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0145 LINE 1351 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSHI #0x00000000 ASSVAL 1352 %CYCLE LINE 1352 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 1353 I=CC(Q); Q=Q+1 LINE 1353 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL LINE 1353 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL 1354 %EXIT %IF I=M'''' LINE 1354 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000027 JUMPIF # L_0007 GOTO L_0004 LOCATE L_0007 1355 T=T+1 LINE 1355 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSH T PUSHI #0x00000001 ADD ASSVAL 1356 %RETURN %UNLESS ('0'<=I<='9' %OR 'A'<=I<='F') %AND T<17 LINE 1356 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000030 PUSH I JUMPIFD > L_000a PUSHI #0x00000039 JUMPIF <= L_0009 LOCATE L_000a PUSHI #0x00000041 PUSH I JUMPIFD > L_0008 PUSHI #0x00000046 JUMPIF > L_0008 LOCATE L_0009 PUSH T PUSHI #0x00000011 JUMPIF < L_0007 LOCATE L_0008 RETURN LOCATE L_0007 1357 %IF T=9 %THEN SS=S %AND S=0 LINE 1357 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSHI #0x00000009 JUMPIF # L_0007 PUSH SS PUSH S ASSVAL PUSH S PUSHI #0x00000000 ASSVAL LOCATE L_0007 1358 S=S<<4+I&15+9*I>>6 LINE 1358 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSH S PUSHI #0x00000004 LSH PUSH I PUSHI #0x0000000f AND ADD PUSHI #0x00000009 PUSH I PUSHI #0x00000006 RSH MUL ADD ASSVAL 1359 %REPEAT LINE 1359 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1360 %IF T>8 %START LINE 1360 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSHI #0x00000008 JUMPIF <= L_0004 1361 Z=4*(T-8) LINE 1361 "regression-compile-tmp/nrimp10s-77.imp" PUSH Z PUSHI #0x00000004 PUSH T PUSHI #0x00000008 SUB MUL ASSVAL 1362 S=S!(SS<>(32-Z); CPREC=6 LINE 1363 "regression-compile-tmp/nrimp10s-77.imp" PUSH SS PUSH SS PUSHI #0x00000020 PUSH Z SUB RSH ASSVAL LINE 1363 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPREC PUSHI #0x00000006 ASSVAL 1364 %FINISH LINE 1364 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1365 IEND: %IF CPREC=6 %THEN TOAR4(R,SS) %AND R=R+4 LINE 1365 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_014a LINE 1365 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPREC PUSHI #0x00000006 JUMPIF # L_0004 PUSH TOAR4 PUSH R ASSPAR PUSH SS ASSPAR CALL PUSH R PUSH R PUSHI #0x00000004 ADD ASSVAL LOCATE L_0004 1366 %IF CPREC=5 %AND 0<=S<=16_7FFF %START LINE 1366 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPREC PUSHI #0x00000005 JUMPIF # L_0004 PUSHI #0x00000000 PUSH S JUMPIFD > L_0004 PUSHI #0x00007fff JUMPIF > L_0004 1367 CPREC=4; TOAR2(R,S); R=R+2 LINE 1367 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPREC PUSHI #0x00000004 ASSVAL LINE 1367 "regression-compile-tmp/nrimp10s-77.imp" PUSH TOAR2 PUSH R ASSPAR PUSH S ASSPAR CALL LINE 1367 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000002 ADD ASSVAL 1368 %FINISH %ELSE TOAR4(R,S) %AND R=R+4 LINE 1368 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 PUSH TOAR4 PUSH R ASSPAR PUSH S ASSPAR CALL PUSH R PUSH R PUSHI #0x00000004 ADD ASSVAL LOCATE L_0003 1369 HIT=1 %UNLESS MODE#0 %AND CPREC=6 LINE 1369 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000000 JUMPIF = L_0005 PUSH CPREC PUSHI #0x00000006 JUMPIF = L_0004 LOCATE L_0005 PUSH HIT PUSHI #0x00000001 ASSVAL LOCATE L_0004 1370 A(RR)=CPREC<<4!CTYPE LINE 1370 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH RR ACCESS PUSH CPREC PUSHI #0x00000004 LSH PUSH CTYPE OR ASSVAL 1371 %RETURN LINE 1371 "regression-compile-tmp/nrimp10s-77.imp" RETURN 1372 RHEX: ! REAL HEX CONSTANTS LINE 1372 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0148 1373 T=0 LINE 1373 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSHI #0x00000000 ASSVAL 1374 %CYCLE LINE 1374 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 1375 I=CC(Q); Q=Q+1 LINE 1375 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL LINE 1375 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL 1376 %IF T&7=0 %AND T#0 %START LINE 1376 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSHI #0x00000007 AND PUSHI #0x00000000 JUMPIF # L_0007 PUSH T PUSHI #0x00000000 JUMPIF = L_0007 1377 TOAR4(R,S); R=R+4; S=0 LINE 1377 "regression-compile-tmp/nrimp10s-77.imp" PUSH TOAR4 PUSH R ASSPAR PUSH S ASSPAR CALL LINE 1377 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000004 ADD ASSVAL LINE 1377 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSHI #0x00000000 ASSVAL 1378 %FINISH LINE 1378 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 1379 %EXIT %IF I=M''''; T=T+1 LINE 1379 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000027 JUMPIF # L_0007 GOTO L_0004 LOCATE L_0007 LINE 1379 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSH T PUSHI #0x00000001 ADD ASSVAL 1380 %RETURN %UNLESS '0'<=I<='9' %OR 'A'<=I<='F' LINE 1380 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000030 PUSH I JUMPIFD > L_0008 PUSHI #0x00000039 JUMPIF <= L_0007 LOCATE L_0008 PUSHI #0x00000041 PUSH I JUMPIFD > L_0008 PUSHI #0x00000046 JUMPIF <= L_0007 LOCATE L_0008 RETURN LOCATE L_0007 1381 S=S<<4+I&15+9*I>>6 LINE 1381 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSH S PUSHI #0x00000004 LSH PUSH I PUSHI #0x0000000f AND ADD PUSHI #0x00000009 PUSH I PUSHI #0x00000006 RSH MUL ADD ASSVAL 1382 %REPEAT LINE 1382 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1383 %RETURN %UNLESS T=8 %OR T=16 %OR T=32 LINE 1383 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSHI #0x00000008 JUMPIF = L_0004 PUSH T PUSHI #0x00000010 JUMPIF = L_0004 PUSH T PUSHI #0x00000020 JUMPIF = L_0004 RETURN LOCATE L_0004 1384 %IF T=32 %THEN CPREC=7 %ELSE CPREC=4+T//8 LINE 1384 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSHI #0x00000020 JUMPIF # L_0004 PUSH CPREC PUSHI #0x00000007 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH CPREC PUSHI #0x00000004 PUSH T PUSHI #0x00000008 QUOT ADD ASSVAL LOCATE L_0003 1385 A(RR)=CPREC<<4!2 LINE 1385 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH RR ACCESS PUSH CPREC PUSHI #0x00000004 LSH PUSHI #0x00000002 OR ASSVAL 1386 HIT=1; %RETURN LINE 1386 "regression-compile-tmp/nrimp10s-77.imp" PUSH HIT PUSHI #0x00000001 ASSVAL LINE 1386 "regression-compile-tmp/nrimp10s-77.imp" RETURN 1387 OCT: ! OCTAL CONSTANTS LINE 1387 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0149 1388 T=0 LINE 1388 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSHI #0x00000000 ASSVAL 1389 %CYCLE LINE 1389 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 1390 I=CC(Q); Q=Q+1; T=T+1 LINE 1390 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL LINE 1390 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 1390 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSH T PUSHI #0x00000001 ADD ASSVAL 1391 %EXIT %IF I=M'''' LINE 1391 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000027 JUMPIF # L_0007 GOTO L_0004 LOCATE L_0007 1392 %RETURN %UNLESS '0'<=I<='7' %AND T<12 LINE 1392 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000030 PUSH I JUMPIFD > L_0008 PUSHI #0x00000037 JUMPIF > L_0008 PUSH T PUSHI #0x0000000c JUMPIF < L_0007 LOCATE L_0008 RETURN LOCATE L_0007 1393 S=S<<3!(I&7) LINE 1393 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSH S PUSHI #0x00000003 LSH PUSH I PUSHI #0x00000007 AND OR ASSVAL 1394 %REPEAT LINE 1394 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1395 ->IEND LINE 1395 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_014a 1396 MULT: T=0; ! MULTIPLE CONSTANTS LINE 1396 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0146 LINE 1396 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSHI #0x00000000 ASSVAL 1397 %CYCLE LINE 1397 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 1398 I=CC(Q); Q=Q+1; T=T+1 LINE 1398 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL LINE 1398 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 1398 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSH T PUSHI #0x00000001 ADD ASSVAL 1399 %IF I=M'''' %THEN %START LINE 1399 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000027 JUMPIF # L_0007 1400 %IF CC(Q)#M'''' %THEN %EXIT %ELSE Q=Q+1 LINE 1400 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH Q ACCESS PUSHI #0x00000027 JUMPIF = L_000a GOTO L_0004 LOCATE L_000a PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL 1401 %FINISH LINE 1401 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 1402 %RETURN %IF T>=5 LINE 1402 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSHI #0x00000005 JUMPIF < L_0007 RETURN LOCATE L_0007 1403 %IF EBCDIC#0 %THEN I=ITOETAB(I) LINE 1403 "regression-compile-tmp/nrimp10s-77.imp" PUSH EBCDIC PUSHI #0x00000000 JUMPIF = L_0007 PUSH I PUSH ITOETAB PUSH I ACCESS ASSVAL LOCATE L_0007 1404 S=S<<8!I LINE 1404 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSH S PUSHI #0x00000008 LSH PUSH I OR ASSVAL 1405 %REPEAT LINE 1405 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1406 ->IEND LINE 1406 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_014a 1407 BIN: T=0; ! BINARY CONST LINE 1407 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0147 LINE 1407 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSHI #0x00000000 ASSVAL 1408 %CYCLE LINE 1408 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 1409 I=CC(Q); Q=Q+1; T=T+1 LINE 1409 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL LINE 1409 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 1409 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSH T PUSHI #0x00000001 ADD ASSVAL 1410 %EXIT %IF I=M'''' LINE 1410 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000027 JUMPIF # L_0007 GOTO L_0004 LOCATE L_0007 1411 %RETURN %UNLESS '0'<=I<='1' %AND T<33 LINE 1411 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000030 PUSH I JUMPIFD > L_0008 PUSHI #0x00000031 JUMPIF > L_0008 PUSH T PUSHI #0x00000021 JUMPIF < L_0007 LOCATE L_0008 RETURN LOCATE L_0007 1412 S=S<<1!I&1 LINE 1412 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSH S PUSHI #0x00000001 LSH PUSH I PUSHI #0x00000001 AND OR ASSVAL 1413 %REPEAT LINE 1413 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1414 ->IEND LINE 1414 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_014a 1415 N: ! CONSTANT STARTS WITH DIGIT LINE 1415 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0140 1416 I=CC(Q) LINE 1416 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1417 {%UNTIL IM'9'} %CYCLE LINE 1417 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 1418 CVALUE=TEN*CVALUE+(I&15) LINE 1418 "regression-compile-tmp/nrimp10s-77.imp" PUSH CVALUE PUSH TEN PUSH CVALUE MUL PUSH I PUSHI #0x0000000f AND ADD ASSVAL 1419 Q=Q+1; I=CC(Q); ! ONTO NEXT CHAR LINE 1419 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 1419 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1420 %REPEAT %UNTIL IM'9' LINE 1420 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000030 JUMPIF < L_0004 PUSH I PUSHI #0x00000039 JUMPIF > L_0004 REPEAT L_0003 LOCATE L_0004 1421 ->ALPHA %UNLESS MODE=0 %AND I='.' LINE 1421 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000000 JUMPIF # L_0005 PUSH I PUSHI #0x0000002e JUMPIF = L_0004 LOCATE L_0005 JUMP L_014b LOCATE L_0004 1422 DOT: Q=Q+1; X=TEN; I=CC(Q) LINE 1422 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0141 LINE 1422 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 1422 "regression-compile-tmp/nrimp10s-77.imp" PUSH X PUSH TEN ASSVAL LINE 1422 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1423 DOTSEEN=1; ! CONSTANT HAS DECIMAL POINT LINE 1423 "regression-compile-tmp/nrimp10s-77.imp" PUSH DOTSEEN PUSHI #0x00000001 ASSVAL 1424 %WHILE M'0'<=I<=M'9' %CYCLE LINE 1424 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSHI #0x00000030 PUSH I JUMPIFD > L_0004 PUSHI #0x00000039 JUMPIF > L_0004 1425 CVALUE=CVALUE+(I&15)/X LINE 1425 "regression-compile-tmp/nrimp10s-77.imp" PUSH CVALUE PUSH CVALUE PUSH I PUSHI #0x0000000f AND PUSH X DIVIDE ADD ASSVAL 1426 X=TEN*X; Q=Q+1; I=CC(Q) LINE 1426 "regression-compile-tmp/nrimp10s-77.imp" PUSH X PUSH TEN PUSH X MUL ASSVAL LINE 1426 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 1426 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1427 %REPEAT LINE 1427 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1428 ALPHA: ! TEST FOR EXPONENT LINE 1428 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_014b 1429 %IF MODE=0 %AND CC(Q)='@' %THEN %START LINE 1429 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000000 JUMPIF # L_0004 PUSH CC PUSH Q ACCESS PUSHI #0x00000040 JUMPIF # L_0004 1430 Q=Q+1; X=CVALUE LINE 1430 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LINE 1430 "regression-compile-tmp/nrimp10s-77.imp" PUSH X PUSH CVALUE ASSVAL 1431 Z=1; I=CC(Q) LINE 1431 "regression-compile-tmp/nrimp10s-77.imp" PUSH Z PUSHI #0x00000001 ASSVAL LINE 1431 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1432 %IF I='-' %THEN Z=-1 LINE 1432 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000002d JUMPIF # L_0007 PUSH Z PUSHI #0x00000001 NEGATE ASSVAL LOCATE L_0007 1433 %IF I='+' %OR I='-' %THEN Q=Q+1 LINE 1433 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000002b JUMPIF = L_0008 PUSH I PUSHI #0x0000002d JUMPIF # L_0007 LOCATE L_0008 PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LOCATE L_0007 1434 CONST(2) LINE 1434 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONST PUSHI #0x00000002 ASSPAR CALL 1435 %IF HIT=0 %THEN %RETURN LINE 1435 "regression-compile-tmp/nrimp10s-77.imp" PUSH HIT PUSHI #0x00000000 JUMPIF # L_0007 RETURN LOCATE L_0007 1436 HIT=0 LINE 1436 "regression-compile-tmp/nrimp10s-77.imp" PUSH HIT PUSHI #0x00000000 ASSVAL 1437 R=RR+1 LINE 1437 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH RR PUSHI #0x00000001 ADD ASSVAL 1438 %IF A(R)>>4#4 %THEN %RETURN; ! EXPONENT MUST BE HALFINTEGER LINE 1438 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R ACCESS PUSHI #0x00000004 RSH PUSHI #0x00000004 JUMPIF = L_0007 RETURN LOCATE L_0007 1439 S=FROM AR2(R+1)*Z LINE 1439 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSH FROMAR2 PUSH R PUSHI #0x00000001 ADD ASSPAR CALL PUSH Z MUL ASSVAL 1440 %IF S=-99 %THEN CVALUE=0 %ELSE %START 1441 ! %IF USE IMP=NO %THEN %START 1442 ! *MPSR_16_8080; ! MASK OUT REAL OVERFLOW 1443 ! %FINISH LINE 1440 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSHI #0x00000063 NEGATE JUMPIF # L_0007 PUSH CVALUE PUSHI #0x00000000 ASSVAL GOTO L_0006 LOCATE L_0007 1444 %WHILE S>0 %CYCLE LINE 1444 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 PUSH S PUSHI #0x00000000 JUMPIF <= L_000a 1445 S=S-1 LINE 1445 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSH S PUSHI #0x00000001 SUB ASSVAL 1446 CVALUE=CVALUE*TEN 1447 ! %IF USE IMP=NO %THEN %START 1448 ! *JAT_15, 1449 ! %FINISH LINE 1446 "regression-compile-tmp/nrimp10s-77.imp" PUSH CVALUE PUSH CVALUE PUSH TEN MUL ASSVAL 1450 %REPEAT LINE 1450 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0009 LOCATE L_000a 1451 %WHILE S<0 %AND CVALUE#0 %CYCLE LINE 1451 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 PUSH S PUSHI #0x00000000 JUMPIF >= L_000a PUSH CVALUE PUSHI #0x00000000 JUMPIF = L_000a 1452 S=S+1 LINE 1452 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSH S PUSHI #0x00000001 ADD ASSVAL 1453 CVALUE=CVALUE/TEN LINE 1453 "regression-compile-tmp/nrimp10s-77.imp" PUSH CVALUE PUSH CVALUE PUSH TEN DIVIDE ASSVAL 1454 %REPEAT LINE 1454 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0009 LOCATE L_000a 1455 %FINISH LINE 1455 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 1456 %FINISH 1457 ! SEE IF IT IS INTEGER LINE 1456 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1458 %IF FS='D' %THEN %START LINE 1458 "regression-compile-tmp/nrimp10s-77.imp" PUSH FS PUSHI #0x00000044 JUMPIF # L_0004 1459 I=CC(Q) LINE 1459 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1460 %IF I='''' %THEN Q=Q+1 %ELSE %RETURN LINE 1460 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000027 JUMPIF # L_0007 PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL GOTO L_0006 LOCATE L_0007 RETURN LOCATE L_0006 1461 DOTSEEN=1; ! ENSURE NOT TAKEN AS INTEGER LINE 1461 "regression-compile-tmp/nrimp10s-77.imp" PUSH DOTSEEN PUSHI #0x00000001 ASSVAL 1462 %FINISH LINE 1462 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1463 %IF DOTSEEN=1 %OR CVALUE>IMAX %OR FRACPT(CVALUE)#0 %THEN CTYPE=2 %ELSE CTYPE=1 %AND S=INT(CVALUE) LINE 1463 "regression-compile-tmp/nrimp10s-77.imp" PUSH DOTSEEN PUSHI #0x00000001 JUMPIF = L_0005 PUSH CVALUE PUSH IMAX JUMPIF > L_0005 PUSH FRACPT PUSH CVALUE ASSPAR CALL PUSHI #0x00000000 JUMPIF = L_0004 LOCATE L_0005 PUSH CTYPE PUSHI #0x00000002 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH CTYPE PUSHI #0x00000001 ASSVAL PUSH S PUSH INT PUSH CVALUE ASSPAR CALL ASSVAL LOCATE L_0003 1464 %IF CTYPE=1 %THEN ->IEND LINE 1464 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTYPE PUSHI #0x00000001 JUMPIF # L_0004 JUMP L_014a LOCATE L_0004 1465 %IF CPREC=5 %THEN CPREC=6; ! NO 32 BIT REAL CONSTS LINE 1465 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPREC PUSHI #0x00000005 JUMPIF # L_0004 PUSH CPREC PUSHI #0x00000006 ASSVAL LOCATE L_0004 1466 %IF CPREC=6 %THEN %START 1467 ! %IF USE IMP=NO %THEN %START; ! SOFTWARE ROUND IN MC CODE ONLY 1468 ! *LSD_CVALUE 1469 ! *AND_16_FF00000000000000 1470 ! *SLSD_CVALUE+8 1471 ! *AND_16_0080000000000000 1472 ! *LUH_%TOS 1473 ! *RAD_CVALUE 1474 ! *ST_CVALUE 1475 ! %FINISH LINE 1466 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPREC PUSHI #0x00000006 JUMPIF # L_0004 1476 %FINISH LINE 1476 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1477 TOAR8(R,CVALUE); R=R+8 LINE 1477 "regression-compile-tmp/nrimp10s-77.imp" PUSH TOAR8 PUSH R ASSPAR PUSH CVALUE ASSPAR CALL LINE 1477 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000008 ADD ASSVAL 1478 %IF CPREC=7 %THEN TOAR8(R,LONGREAL(ADDR(CVALUE)+8)) %AND R=R+8 LINE 1478 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPREC PUSHI #0x00000007 JUMPIF # L_0004 PUSH TOAR8 PUSH R ASSPAR PUSH LONGREAL PUSH ADDR PUSH CVALUE ASSPAR CALL PUSHI #0x00000008 ADD ASSPAR CALL ASSPAR CALL PUSH R PUSH R PUSHI #0x00000008 ADD ASSVAL LOCATE L_0004 1479 A(RR)=CPREC<<4+CTYPE LINE 1479 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH RR ACCESS PUSH CPREC PUSHI #0x00000004 LSH PUSH CTYPE ADD ASSVAL 1480 HIT=1 LINE 1480 "regression-compile-tmp/nrimp10s-77.imp" PUSH HIT PUSHI #0x00000001 ASSVAL 1481 FAIL: %END LINE 1481 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_014c LINE 1481 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id2_CONST {lev=4 --> 3} 1482 %ROUTINE TEXTTEXT(%INTEGER EBCDIC) 1483 !*********************************************************************** 1484 !* PROCESSES TEXT BETWEEN DOUBLE QUOTES AND STORES IN ISO OR EBCDIC * 1485 !*********************************************************************** LINE 1482 "regression-compile-tmp/nrimp10s-77.imp" DEF TEXTTEXT (_lev0id0_lev1id1_lev2id2_TEXTTEXT) p1=V_0123 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=4 --> 5, nested=0 --> 1} DEF EBCDIC p1=V_0132 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=4} 1486 %INTEGER J, II LINE 1486 "regression-compile-tmp/nrimp10s-77.imp" DEF J p1=V_0133 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 II p1=V_0134 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 1487 %CONSTINTEGER QU='"' LINE 1487 "regression-compile-tmp/nrimp10s-77.imp" 1488 I=CC(Q) LINE 1488 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1489 S=R+4; R=R+5; HIT=0 LINE 1489 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSH R PUSHI #0x00000004 ADD ASSVAL LINE 1489 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000005 ADD ASSVAL LINE 1489 "regression-compile-tmp/nrimp10s-77.imp" PUSH HIT PUSHI #0x00000000 ASSVAL 1490 %RETURN %UNLESS I=QU; ! FAIL UNLESS INITIAL QUOTE LINE 1490 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000022 JUMPIF = L_0004 RETURN LOCATE L_0004 1491 Q=Q+1 LINE 1491 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL 1492 %CYCLE LINE 1492 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 1493 I=CC(Q) LINE 1493 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH CC PUSH Q ACCESS ASSVAL 1494 %IF EBCDIC#0 %THEN II=ITOETAB(I) %ELSE II=I LINE 1494 "regression-compile-tmp/nrimp10s-77.imp" PUSH EBCDIC PUSHI #0x00000000 JUMPIF = L_0007 PUSH II PUSH ITOETAB PUSH I ACCESS ASSVAL GOTO L_0006 LOCATE L_0007 PUSH II PUSH I ASSVAL LOCATE L_0006 1495 A(R)=II; R=R+1 LINE 1495 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH R ACCESS PUSH II ASSVAL LINE 1495 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000001 ADD ASSVAL 1496 %IF I=QU %THEN %START LINE 1496 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000022 JUMPIF # L_0007 1497 Q=Q+1 LINE 1497 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL 1498 %IF CC(Q)#QU %THEN %EXIT LINE 1498 "regression-compile-tmp/nrimp10s-77.imp" PUSH CC PUSH Q ACCESS PUSHI #0x00000022 JUMPIF = L_000a GOTO L_0004 LOCATE L_000a 1499 %FINISH LINE 1499 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 1500 %IF I=10 %THEN READLINE(1,QU) %ELSE Q=Q+1 LINE 1500 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x0000000a JUMPIF # L_0007 PUSH READLINE PUSHI #0x00000001 ASSPAR PUSHI #0x00000022 ASSPAR CALL GOTO L_0006 LOCATE L_0007 PUSH Q PUSH Q PUSHI #0x00000001 ADD ASSVAL LOCATE L_0006 1501 FAULT(106,0) %IF R-S>256 LINE 1501 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH S SUB PUSHI #0x00000100 JUMPIF <= L_0007 PUSH FAULT PUSHI #0x0000006a ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0007 1502 %REPEAT LINE 1502 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1503 R=R-1; J=R-S-1 LINE 1503 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000001 SUB ASSVAL LINE 1503 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH R PUSH S SUB PUSHI #0x00000001 SUB ASSVAL 1504 A(S)=J; HIT=1 LINE 1504 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH S ACCESS PUSH J ASSVAL LINE 1504 "regression-compile-tmp/nrimp10s-77.imp" PUSH HIT PUSHI #0x00000001 ASSVAL 1505 %END LINE 1505 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id2_TEXTTEXT {lev=4 --> 3} 1506 BEND:%END; ! OF BLOCK CONTAINING PASS 1 LINE 1506 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0131 LINE 1506 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id2 {lev=3 --> 2} 1507 %IF LEVEL>1 %THEN FAULT(15, 0) LINE 1507 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x00000001 JUMPIF <= L_0004 PUSH FAULT PUSHI #0x0000000f ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 1508 I=0 LINE 1508 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000000 ASSVAL 1509 NEWLINE LINE 1509 "regression-compile-tmp/nrimp10s-77.imp" PUSH NEWLINE CALL 1510 %IF FAULTY=0 %THEN %START LINE 1510 "regression-compile-tmp/nrimp10s-77.imp" PUSH FAULTY PUSHI #0x00000000 JUMPIF # L_0004 1511 WRITE(LINE, 5) LINE 1511 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSH LINE ASSPAR PUSHI #0x00000005 ASSPAR CALL 1512 PRINT STRING(" LINES ANALYSED IN") LINE 1512 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTSTRING PUSHS " LINES ANALYSED IN" ASSPAR CALL 1513 WRITE(INT(1000*(CPUTIME-CTIME)),5) LINE 1513 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSH INT PUSHI #0x000003e8 PUSH CPUTIME CALL PUSH CTIME SUB MUL ASSPAR CALL ASSPAR PUSHI #0x00000005 ASSPAR CALL 1514 PRINT STRING(" MSECS - SIZE=") LINE 1514 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTSTRING PUSHS " MSECS - SIZE=" ASSPAR CALL 1515 WRITE(P1SIZE, 5) LINE 1515 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSH P1SIZE ASSPAR PUSHI #0x00000005 ASSPAR CALL 1516 %IF LINE>90 %AND LIST#0 %THEN NEWPAGE %ELSE NEWLINE LINE 1516 "regression-compile-tmp/nrimp10s-77.imp" PUSH LINE PUSHI #0x0000005a JUMPIF <= L_0007 PUSH LIST PUSHI #0x00000000 JUMPIF = L_0007 PUSH NEWPAGE CALL GOTO L_0006 LOCATE L_0007 PUSH NEWLINE CALL LOCATE L_0006 1517 %FINISH %ELSE %START LINE 1517 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 1518 PRINTSTRING("CODE GENERATION NOT ATTEMPTED 1519 ") LINE 1518 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTSTRING PUSHS "CODE GENERATION NOT ATTEMPTED\n" ASSPAR CALL 1520 COMREG(24)=8 LINE 1520 "regression-compile-tmp/nrimp10s-77.imp" PUSH COMREG PUSHI #0x00000018 ASSPAR CALL PUSHI #0x00000008 ASSVAL 1521 COMREG(47)=FAULTY LINE 1521 "regression-compile-tmp/nrimp10s-77.imp" PUSH COMREG PUSHI #0x0000002f ASSPAR CALL PUSH FAULTY ASSVAL 1522 %STOP LINE 1522 "regression-compile-tmp/nrimp10s-77.imp" STOP 1523 %FINISH LINE 1523 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 1524 %BEGIN 1525 !*********************************************************************** 1526 !* SECOND OR CODE GENERATING PASS * 1527 !*********************************************************************** LINE 1524 "regression-compile-tmp/nrimp10s-77.imp" BEGIN _lev0id0_lev1id1_lev2id3 {lev=2 --> 3} 1528 %INTEGERARRAY REGISTER, GRUSE, GRAT, GRINF1, GRINF2, OLINK(0:7) LINE 1528 "regression-compile-tmp/nrimp10s-77.imp" DEF REGISTER p1=V_011f 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 DEF GRUSE p1=V_0120 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 DEF GRAT p1=V_0121 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 DEF GRINF1 p1=V_0122 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 DEF GRINF2 p1=V_0123 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 DEF OLINK p1=V_0124 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 PUSHI #0x00000000 PUSHI #0x00000007 DIM 0001 0006 1529 %BYTEINTEGERARRAY CODE, GLABUF(0:268) LINE 1529 "regression-compile-tmp/nrimp10s-77.imp" DEF CODE p1=V_0125 a/tf=1b b/format=2 c/ostate=100 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0 DEF GLABUF p1=V_0126 a/tf=1b b/format=2 c/ostate=100 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0 PUSHI #0x00000000 PUSHI #0x0000010c DIM 0001 0002 1530 %INTEGERARRAY PLABS, DESADS, PLINK(0:31) LINE 1530 "regression-compile-tmp/nrimp10s-77.imp" DEF PLABS p1=V_0127 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 DEF DESADS p1=V_0128 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 DEF PLINK p1=V_0129 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 PUSHI #0x00000000 PUSHI #0x0000001f DIM 0001 0003 1531 %INTEGERARRAY SET, STACKBASE, RAL, FLAG, L, M, NMDECS, ONWORD, ONINF,{%C 1532 JUMP, LABEL, JROUND, DIAGINF, DISPLAY, {%C 1533 AUXSBASE, NAMES (0:MAXLEVELS) LINE 1531 "regression-compile-tmp/nrimp10s-77.imp" DEF SET p1=V_012a 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 DEF STACKBASE p1=V_012b 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 DEF RAL p1=V_012c 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 DEF FLAG p1=V_012d 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 DEF L p1=V_012e 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 DEF M p1=V_012f 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 DEF NMDECS p1=V_0130 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 DEF ONWORD p1=V_0131 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 DEF ONINF p1=V_0132 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 DEF JUMP p1=V_0133 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 DEF LABEL p1=V_0134 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 DEF JROUND p1=V_0135 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 DEF DIAGINF p1=V_0136 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 DEF DISPLAY p1=V_0137 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 DEF AUXSBASE p1=V_0138 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 DEF NAMES p1=V_0139 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 PUSHI #0x00000000 PUSHI #0x0000001f DIM 0001 0010 1534 %INTEGERARRAY AVL WSP(0:4,0:MAXLEVELS) LINE 1534 "regression-compile-tmp/nrimp10s-77.imp" DEF AVLWSP p1=V_013a 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 PUSHI #0x00000000 PUSHI #0x00000004 PUSHI #0x00000000 PUSHI #0x0000001f DIM 0002 0001 1535 %recordformat rcf(%integerarray val(0:12* 2047 {NNAMES})) { unfortunately we can't have a dynamically-sized array in a record. Largest possible is 2047. LINE 1535 "regression-compile-tmp/nrimp10s-77.imp" DEF RCF p1=V_013b a/tf=44 b/format=13b c/ostate=0 type=4 (record) form=4 (record-format) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( RECORDFORMAT DEF VAL p1=V_0000 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 PUSHI #0x00000000 PUSHI #0x00005ff4 DIM 0001 0001 FINISH ) 1536 %record (rcf) %name CTABLE 1537 {%INTEGERARRAYFORMAT CF(0:12*NNAMES) - Imp77 doesn't support ARRAY() mapping. 1538 {%INTEGERARRAY(1)%NAME CTABLE LINE 1536 "regression-compile-tmp/nrimp10s-77.imp" DEF CTABLE p1=V_013c a/tf=42 b/format=13b c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1539 %ROUTINESPEC CNOP(%INTEGER I, J) LINE 1539 "regression-compile-tmp/nrimp10s-77.imp" DEF CNOP (_lev0id0_lev1id1_lev2id3_CNOP) p1=V_013d a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF I p1=V_013e 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_013f 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} 1540 %ROUTINESPEC PCLOD(%INTEGER FROM, TO) LINE 1540 "regression-compile-tmp/nrimp10s-77.imp" DEF PCLOD (_lev0id0_lev1id1_lev2id3_PCLOD) p1=V_013e a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF FROM p1=V_013f 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 TO p1=V_0140 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} 1541 %ROUTINESPEC PCONST(%INTEGER X) LINE 1541 "regression-compile-tmp/nrimp10s-77.imp" DEF PCONST (_lev0id0_lev1id1_lev2id3_PCONST) p1=V_013f a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF X p1=V_0140 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} 1542 %ROUTINESPEC PSF1(%INTEGER OPCODE,K,N) LINE 1542 "regression-compile-tmp/nrimp10s-77.imp" DEF PSF1 (_lev0id0_lev1id1_lev2id3_PSF1) p1=V_0140 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF OPCODE p1=V_0141 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_0142 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 N p1=V_0143 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} 1543 %ROUTINESPEC PF1(%INTEGER OPCODE,KP,KPP,N) LINE 1543 "regression-compile-tmp/nrimp10s-77.imp" DEF PF1 (_lev0id0_lev1id1_lev2id3_PF1) p1=V_0141 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF OPCODE p1=V_0142 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 KP p1=V_0143 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 KPP p1=V_0144 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 N p1=V_0145 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} 1544 %ROUTINESPEC PSORLF1(%INTEGER OPCODE,KP,KPP,N) LINE 1544 "regression-compile-tmp/nrimp10s-77.imp" DEF PSORLF1 (_lev0id0_lev1id1_lev2id3_PSORLF1) p1=V_0142 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF OPCODE p1=V_0143 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 KP p1=V_0144 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 KPP p1=V_0145 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 N p1=V_0146 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} 1545 %ROUTINESPEC PF2(%INTEGER OPCODE,H,Q,N,MASK,FILLER) LINE 1545 "regression-compile-tmp/nrimp10s-77.imp" DEF PF2 (_lev0id0_lev1id1_lev2id3_PF2) p1=V_0143 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF OPCODE p1=V_0144 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 H p1=V_0145 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_0146 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 N p1=V_0147 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 MASK p1=V_0148 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 FILLER p1=V_0149 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} 1546 %ROUTINESPEC PF3(%INTEGER OPCODE,MASK,KPPP,N) LINE 1546 "regression-compile-tmp/nrimp10s-77.imp" DEF PF3 (_lev0id0_lev1id1_lev2id3_PF3) p1=V_0144 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF OPCODE p1=V_0145 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 MASK p1=V_0146 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 KPPP p1=V_0147 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 N p1=V_0148 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} 1547 %ROUTINESPEC NOTE CREF(%INTEGER CA,VAL) LINE 1547 "regression-compile-tmp/nrimp10s-77.imp" DEF NOTECREF (_lev0id0_lev1id1_lev2id3_NOTECREF) p1=V_0145 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF CA p1=V_0146 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_0147 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} 1548 %INTEGERFNSPEC PARAM DES(%INTEGER PREC) LINE 1548 "regression-compile-tmp/nrimp10s-77.imp" DEF PARAMDES (_lev0id0_lev1id1_lev2id3_PARAMDES) p1=V_0146 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF PREC p1=V_0147 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} 1549 %INTEGERFNSPEC MAPDES(%INTEGER PREC) LINE 1549 "regression-compile-tmp/nrimp10s-77.imp" DEF MAPDES (_lev0id0_lev1id1_lev2id3_MAPDES) p1=V_0147 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF PREC p1=V_0148 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} 1550 %INTEGERFNSPEC SPECIAL CONSTS(%INTEGER WHICH) LINE 1550 "regression-compile-tmp/nrimp10s-77.imp" DEF SPECIALCONSTS (_lev0id0_lev1id1_lev2id3_SPECIALCONSTS) p1=V_0148 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF WHICH p1=V_0149 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} 1551 %ROUTINESPEC STORE CONST(%INTEGERNAME D,%INTEGER L,AD) LINE 1551 "regression-compile-tmp/nrimp10s-77.imp" DEF STORECONST (_lev0id0_lev1id1_lev2id3_STORECONST) p1=V_0149 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF D p1=V_014a a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF L p1=V_014b 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 AD p1=V_014c 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} 1552 %ROUTINESPEC DUMP CONSTS LINE 1552 "regression-compile-tmp/nrimp10s-77.imp" DEF DUMPCONSTS (_lev0id0_lev1id1_lev2id3_DUMPCONSTS) p1=V_014a a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} FINISH ) {lev=3} 1553 %ROUTINESPEC PLANT(%INTEGER VALUE) LINE 1553 "regression-compile-tmp/nrimp10s-77.imp" DEF PLANT (_lev0id0_lev1id1_lev2id3_PLANT) p1=V_014b a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF VALUE p1=V_014c 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} 1554 %ROUTINESPEC PLUG(%INTEGER I, J, K, BYTES) LINE 1554 "regression-compile-tmp/nrimp10s-77.imp" DEF PLUG (_lev0id0_lev1id1_lev2id3_PLUG) p1=V_014c a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF I p1=V_014d 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_014e 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_014f 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 BYTES p1=V_0150 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} 1555 %ROUTINESPEC CODEOUT LINE 1555 "regression-compile-tmp/nrimp10s-77.imp" DEF CODEOUT (_lev0id0_lev1id1_lev2id3_CODEOUT) p1=V_014d a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} FINISH ) {lev=3} 1556 %ROUTINESPEC PROLOGUE LINE 1556 "regression-compile-tmp/nrimp10s-77.imp" DEF PROLOGUE (_lev0id0_lev1id1_lev2id3_PROLOGUE) p1=V_014e a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} FINISH ) {lev=3} 1557 %ROUTINESPEC EPILOGUE LINE 1557 "regression-compile-tmp/nrimp10s-77.imp" DEF EPILOGUE (_lev0id0_lev1id1_lev2id3_EPILOGUE) p1=V_014f a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} FINISH ) {lev=3} 1558 %ROUTINESPEC COMPILE A STMNT LINE 1558 "regression-compile-tmp/nrimp10s-77.imp" DEF COMPILEASTMNT (_lev0id0_lev1id1_lev2id3_COMPILEASTMNT) p1=V_0150 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} FINISH ) {lev=3} 1559 %ROUTINESPEC CSS(%INTEGER P) LINE 1559 "regression-compile-tmp/nrimp10s-77.imp" DEF CSS (_lev0id0_lev1id1_lev2id3_CSS) p1=V_0151 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} DEF P p1=V_0152 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} 1560 %ROUTINESPEC LOAD DATA LINE 1560 "regression-compile-tmp/nrimp10s-77.imp" DEF LOADDATA (_lev0id0_lev1id1_lev2id3_LOADDATA) p1=V_0152 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} FINISH ) {lev=3} 1561 %ROUTINESPEC ABORT 1562 !*DELSTART LINE 1561 "regression-compile-tmp/nrimp10s-77.imp" DEF ABORT (_lev0id0_lev1id1_lev2id3_ABORT) p1=V_0153 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} FINISH ) {lev=3} 1563 %ROUTINESPEC PRINT USE 1564 !*DELEND LINE 1563 "regression-compile-tmp/nrimp10s-77.imp" DEF PRINTUSE (_lev0id0_lev1id1_lev2id3_PRINTUSE) p1=V_0154 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=3 --> 4, nested=0 --> 1} FINISH ) {lev=3} 1565 %CYCLE I=0,1,7 LINE 1565 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSHI #0x00000007 PUSHI #0x00000000 FOR L_0003 1566 REGISTER(I)=0; GRUSE(I)=0; GRINF1(I)=0; GRAT(I)=0 LINE 1566 "regression-compile-tmp/nrimp10s-77.imp" PUSH REGISTER PUSH I ACCESS PUSHI #0x00000000 ASSVAL LINE 1566 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSH I ACCESS PUSHI #0x00000000 ASSVAL LINE 1566 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRINF1 PUSH I ACCESS PUSHI #0x00000000 ASSVAL LINE 1566 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRAT PUSH I ACCESS PUSHI #0x00000000 ASSVAL 1567 GRINF2(I)=0 LINE 1567 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRINF2 PUSH I ACCESS PUSHI #0x00000000 ASSVAL 1568 %REPEAT LINE 1568 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1569 %CYCLE I=0, 1, MAXLEVELS LINE 1569 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSHI #0x0000001f PUSHI #0x00000000 FOR L_0003 1570 SET(I)=0; STACKBASE(I)=0; RAL(I)=0 LINE 1570 "regression-compile-tmp/nrimp10s-77.imp" PUSH SET PUSH I ACCESS PUSHI #0x00000000 ASSVAL LINE 1570 "regression-compile-tmp/nrimp10s-77.imp" PUSH STACKBASE PUSH I ACCESS PUSHI #0x00000000 ASSVAL LINE 1570 "regression-compile-tmp/nrimp10s-77.imp" PUSH RAL PUSH I ACCESS PUSHI #0x00000000 ASSVAL 1571 JUMP(I)=0; JROUND(I)=0 LINE 1571 "regression-compile-tmp/nrimp10s-77.imp" PUSH JUMP PUSH I ACCESS PUSHI #0x00000000 ASSVAL LINE 1571 "regression-compile-tmp/nrimp10s-77.imp" PUSH JROUND PUSH I ACCESS PUSHI #0x00000000 ASSVAL 1572 LABEL(I)=0; FLAG(I)=0 LINE 1572 "regression-compile-tmp/nrimp10s-77.imp" PUSH LABEL PUSH I ACCESS PUSHI #0x00000000 ASSVAL LINE 1572 "regression-compile-tmp/nrimp10s-77.imp" PUSH FLAG PUSH I ACCESS PUSHI #0x00000000 ASSVAL 1573 L(I)=0; M(I)=0; DIAGINF(I)=0 LINE 1573 "regression-compile-tmp/nrimp10s-77.imp" PUSH L PUSH I ACCESS PUSHI #0x00000000 ASSVAL LINE 1573 "regression-compile-tmp/nrimp10s-77.imp" PUSH M PUSH I ACCESS PUSHI #0x00000000 ASSVAL LINE 1573 "regression-compile-tmp/nrimp10s-77.imp" PUSH DIAGINF PUSH I ACCESS PUSHI #0x00000000 ASSVAL 1574 DISPLAY(I)=0; ONWORD(I)=0; ONINF(I)=0 LINE 1574 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISPLAY PUSH I ACCESS PUSHI #0x00000000 ASSVAL LINE 1574 "regression-compile-tmp/nrimp10s-77.imp" PUSH ONWORD PUSH I ACCESS PUSHI #0x00000000 ASSVAL LINE 1574 "regression-compile-tmp/nrimp10s-77.imp" PUSH ONINF PUSH I ACCESS PUSHI #0x00000000 ASSVAL 1575 NAMES(I)=-1 LINE 1575 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAMES PUSH I ACCESS PUSHI #0x00000001 NEGATE ASSVAL 1576 %CYCLE J=0,1,4 LINE 1576 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000001 PUSHI #0x00000004 PUSHI #0x00000000 FOR L_0006 1577 AVL WSP(J,I)=0 LINE 1577 "regression-compile-tmp/nrimp10s-77.imp" PUSH AVLWSP PUSH J INDEX PUSH I ACCESS PUSHI #0x00000000 ASSVAL 1578 %REPEAT LINE 1578 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0006 LOCATE L_0007 1579 %REPEAT 1580 {CTABLE==ARRAY(ADDR(ASLIST(1)),CF) LINE 1579 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1581 CTABLE==RECORD(ADDR(ASLIST(1))) LINE 1581 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTABLE PUSH RECORD PUSH ADDR PUSH ASLIST PUSHI #0x00000001 ACCESS ASSPAR CALL ASSPAR CALL ASSREF 1582 CONST HOLE=0 LINE 1582 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTHOLE PUSHI #0x00000000 ASSVAL 1583 PROLOGUE LINE 1583 "regression-compile-tmp/nrimp10s-77.imp" PUSH PROLOGUE CALL 1584 LINE=0 LINE 1584 "regression-compile-tmp/nrimp10s-77.imp" PUSH LINE PUSHI #0x00000000 ASSVAL 1585 NEXTP=1; LEVEL=1; STMTS=0 LINE 1585 "regression-compile-tmp/nrimp10s-77.imp" PUSH NEXTP PUSHI #0x00000001 ASSVAL LINE 1585 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x00000001 ASSVAL LINE 1585 "regression-compile-tmp/nrimp10s-77.imp" PUSH STMTS PUSHI #0x00000000 ASSVAL 1586 RLEVEL=0; RBASE=0 LINE 1586 "regression-compile-tmp/nrimp10s-77.imp" PUSH RLEVEL PUSHI #0x00000000 ASSVAL LINE 1586 "regression-compile-tmp/nrimp10s-77.imp" PUSH RBASE PUSHI #0x00000000 ASSVAL 1587 %WHILE A(NEXTP+3)!A(NEXTP+4)#0 %CYCLE LINE 1587 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH A PUSH NEXTP PUSHI #0x00000003 ADD ACCESS PUSH A PUSH NEXTP PUSHI #0x00000004 ADD ACCESS OR PUSHI #0x00000000 JUMPIF = L_0004 1588 COMPILE A STMNT LINE 1588 "regression-compile-tmp/nrimp10s-77.imp" PUSH COMPILEASTMNT CALL 1589 %REPEAT LINE 1589 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1590 LINE=99999 LINE 1590 "regression-compile-tmp/nrimp10s-77.imp" PUSH LINE PUSHI #0x0001869f ASSVAL 1591 EPILOGUE LINE 1591 "regression-compile-tmp/nrimp10s-77.imp" PUSH EPILOGUE CALL 1592 LOAD DATA LINE 1592 "regression-compile-tmp/nrimp10s-77.imp" PUSH LOADDATA CALL 1593 %STOP LINE 1593 "regression-compile-tmp/nrimp10s-77.imp" STOP 1594 %ROUTINE COMPILE A STMNT LINE 1594 "regression-compile-tmp/nrimp10s-77.imp" DEF COMPILEASTMNT (_lev0id0_lev1id1_lev2id3_COMPILEASTMNT) p1=V_0150 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=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 1595 %INTEGER I 1596 !*DELSTART LINE 1595 "regression-compile-tmp/nrimp10s-77.imp" DEF I p1=V_0155 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 1597 %IF DCOMP#0 %AND CA>CABUF %THEN CODEOUT %AND PRINTUSE 1598 !*DELEND LINE 1597 "regression-compile-tmp/nrimp10s-77.imp" PUSH DCOMP PUSHI #0x00000000 JUMPIF = L_0004 PUSH CA PUSH CABUF JUMPIF <= L_0004 PUSH CODEOUT CALL PUSH PRINTUSE CALL LOCATE L_0004 1599 I=NEXTP LINE 1599 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH NEXTP ASSVAL 1600 NEXTP=NEXTP+A(NEXTP)<<16+A(NEXTP+1)<<8+A(NEXTP+2) LINE 1600 "regression-compile-tmp/nrimp10s-77.imp" PUSH NEXTP PUSH NEXTP PUSH A PUSH NEXTP ACCESS PUSHI #0x00000010 LSH ADD PUSH A PUSH NEXTP PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000008 LSH ADD PUSH A PUSH NEXTP PUSHI #0x00000002 ADD ACCESS ADD ASSVAL 1601 LINE=A(I+3)<<8+A(I+4) LINE 1601 "regression-compile-tmp/nrimp10s-77.imp" PUSH LINE PUSH A PUSH I PUSHI #0x00000003 ADD ACCESS PUSHI #0x00000008 LSH PUSH A PUSH I PUSHI #0x00000004 ADD ACCESS ADD ASSVAL 1602 STMTS=STMTS+1 LINE 1602 "regression-compile-tmp/nrimp10s-77.imp" PUSH STMTS PUSH STMTS PUSHI #0x00000001 ADD ASSVAL 1603 CSS(I+5) 1604 ! CHECK ASL %IF LINE&7=0 LINE 1603 "regression-compile-tmp/nrimp10s-77.imp" PUSH CSS PUSH I PUSHI #0x00000005 ADD ASSPAR CALL 1605 %END LINE 1605 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_COMPILEASTMNT {lev=4 --> 3} 1606 %ROUTINE LOAD DATA 1607 !*********************************************************************** 1608 !* PASS INFORMATION TO LPUT TO ENABLE IT TO GENERATE THE * 1609 !* LOADER DATA AND COMPLETE THE PROGRAM FILE. * 1610 !*********************************************************************** LINE 1606 "regression-compile-tmp/nrimp10s-77.imp" DEF LOADDATA (_lev0id0_lev1id1_lev2id3_LOADDATA) p1=V_0152 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=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 1611 %INTEGER LANGFLAG,PARMS LINE 1611 "regression-compile-tmp/nrimp10s-77.imp" DEF LANGFLAG p1=V_0155 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 PARMS p1=V_0156 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 1612 GLACA=(GLACA+7)&(-8) LINE 1612 "regression-compile-tmp/nrimp10s-77.imp" PUSH GLACA PUSH GLACA PUSHI #0x00000007 ADD PUSHI #0x00000008 NEGATE AND ASSVAL 1613 USTPTR=(USTPTR+7)&(-8) LINE 1613 "regression-compile-tmp/nrimp10s-77.imp" PUSH USTPTR PUSH USTPTR PUSHI #0x00000007 ADD PUSHI #0x00000008 NEGATE AND ASSVAL 1614 CODE OUT LINE 1614 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODEOUT CALL 1615 CNOP(0, 8) LINE 1615 "regression-compile-tmp/nrimp10s-77.imp" PUSH CNOP PUSHI #0x00000000 ASSPAR PUSHI #0x00000008 ASSPAR CALL 1616 DUMP CONSTS LINE 1616 "regression-compile-tmp/nrimp10s-77.imp" PUSH DUMPCONSTS CALL 1617 %IF PARMTRACE=0 %THEN LANGFLAG=6 %ELSE LANGFLAG=1 LINE 1617 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMTRACE PUSHI #0x00000000 JUMPIF # L_0004 PUSH LANGFLAG PUSHI #0x00000006 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH LANGFLAG PUSHI #0x00000001 ASSVAL LOCATE L_0003 1618 LANGFLAG=LANGFLAG<<24 LINE 1618 "regression-compile-tmp/nrimp10s-77.imp" PUSH LANGFLAG PUSH LANGFLAG PUSHI #0x00000018 LSH ASSVAL 1619 PARMS=(PARMDIAG<<1!PARMLINE)<<1!PARMTRACE LINE 1619 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMS PUSH PARMDIAG PUSHI #0x00000001 LSH PUSH PARMLINE OR PUSHI #0x00000001 LSH PUSH PARMTRACE OR ASSVAL 1620 FIXED GLA(4)=LANGFLAG!1<<16!(CPRMODE&1)<<8!PARMS;! LANG RLSE & MAINPROG LINE 1620 "regression-compile-tmp/nrimp10s-77.imp" PUSH FIXEDGLA PUSHI #0x00000004 ACCESS PUSH LANGFLAG PUSHI #0x00000001 PUSHI #0x00000010 LSH OR PUSH CPRMODE PUSHI #0x00000001 AND PUSHI #0x00000008 LSH OR PUSH PARMS OR ASSVAL 1621 I=GLACA-GLACABUF LINE 1621 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH GLACA PUSH GLACABUF SUB ASSVAL 1622 %IF INHCODE=0 %THEN %START LINE 1622 "regression-compile-tmp/nrimp10s-77.imp" PUSH INHCODE PUSHI #0x00000000 JUMPIF # L_0004 1623 LPUT(2, I, GLACABUF, ADDR(GLABUF(0))) %UNLESS I=0 1624 ! BACK OF GLAP LINE 1623 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000000 JUMPIF = L_0007 PUSH LPUT PUSHI #0x00000002 ASSPAR PUSH I ASSPAR PUSH GLACABUF ASSPAR PUSH ADDR PUSH GLABUF PUSHI #0x00000000 ACCESS ASSPAR CALL ASSPAR CALL LOCATE L_0007 1625 LPUT(2, FIXEDGLALEN, 0, ADDR(FIXED GLA(0)));! FRONT OF GLAP LINE 1625 "regression-compile-tmp/nrimp10s-77.imp" PUSH LPUT PUSHI #0x00000002 ASSPAR PUSHI #0x00000030 ASSPAR PUSHI #0x00000000 ASSPAR PUSH ADDR PUSH FIXEDGLA PUSHI #0x00000000 ACCESS ASSPAR CALL ASSPAR CALL 1626 LPUT(19,2,8,5); ! RELOCATE GLA ST ADDRESS LINE 1626 "regression-compile-tmp/nrimp10s-77.imp" PUSH LPUT PUSHI #0x00000013 ASSPAR PUSHI #0x00000002 ASSPAR PUSHI #0x00000008 ASSPAR PUSHI #0x00000005 ASSPAR CALL 1627 LPUT(19,2,12,4); ! RELOCATE CODE ST ADDRESS LINE 1627 "regression-compile-tmp/nrimp10s-77.imp" PUSH LPUT PUSHI #0x00000013 ASSPAR PUSHI #0x00000002 ASSPAR PUSHI #0x0000000c ASSPAR PUSHI #0x00000004 ASSPAR CALL 1628 I=16_E2E2E2E2 LINE 1628 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0xe2e2e2e2 ASSVAL 1629 LPUT(4, 4, SSTL, ADDR(I)) 1630 ! LINE 1629 "regression-compile-tmp/nrimp10s-77.imp" PUSH LPUT PUSHI #0x00000004 ASSPAR PUSHI #0x00000004 ASSPAR PUSH SSTL ASSPAR PUSH ADDR PUSH I ASSPAR CALL ASSPAR CALL 1631 %FINISH LINE 1631 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1632 SSTL=(SSTL+11)&(-8) LINE 1632 "regression-compile-tmp/nrimp10s-77.imp" PUSH SSTL PUSH SSTL PUSHI #0x0000000b ADD PUSHI #0x00000008 NEGATE AND ASSVAL 1633 PRINTSTRING(" 1634 CODE") LINE 1633 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTSTRING PUSHS "\nCODE" ASSPAR CALL 1635 WRITE(CA, 6); PRINTSTRING(" BYTES GLAP") LINE 1635 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSH CA ASSPAR PUSHI #0x00000006 ASSPAR CALL LINE 1635 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTSTRING PUSHS " BYTES GLAP" ASSPAR CALL 1636 WRITE(GLACA, 3); PRINTSTRING("+") LINE 1636 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSH GLACA ASSPAR PUSHI #0x00000003 ASSPAR CALL LINE 1636 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTSTRING PUSHS "+" ASSPAR CALL 1637 WRITE(USTPTR, 1); PRINTSTRING(" BYTES DIAG TABLES") LINE 1637 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSH USTPTR ASSPAR PUSHI #0x00000001 ASSPAR CALL LINE 1637 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTSTRING PUSHS " BYTES DIAG TABLES" ASSPAR CALL 1638 WRITE(SSTL, 3); PRINTSTRING(" BYTES 1639 TOTAL") LINE 1638 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSH SSTL ASSPAR PUSHI #0x00000003 ASSPAR CALL LINE 1638 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTSTRING PUSHS " BYTES\nTOTAL" ASSPAR CALL 1640 REGISTER(0)=CA; REGISTER(1)=GLACA LINE 1640 "regression-compile-tmp/nrimp10s-77.imp" PUSH REGISTER PUSHI #0x00000000 ACCESS PUSH CA ASSVAL LINE 1640 "regression-compile-tmp/nrimp10s-77.imp" PUSH REGISTER PUSHI #0x00000001 ACCESS PUSH GLACA ASSVAL 1641 REGISTER(2)=0 LINE 1641 "regression-compile-tmp/nrimp10s-77.imp" PUSH REGISTER PUSHI #0x00000002 ACCESS PUSHI #0x00000000 ASSVAL 1642 REGISTER(3)=SSTL LINE 1642 "regression-compile-tmp/nrimp10s-77.imp" PUSH REGISTER PUSHI #0x00000003 ACCESS PUSH SSTL ASSVAL 1643 REGISTER(4)=USTPTR LINE 1643 "regression-compile-tmp/nrimp10s-77.imp" PUSH REGISTER PUSHI #0x00000004 ACCESS PUSH USTPTR ASSVAL 1644 K=CA+GLACA+SSTL+USTPTR; REGISTER(5)=K LINE 1644 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH CA PUSH GLACA ADD PUSH SSTL ADD PUSH USTPTR ADD ASSVAL LINE 1644 "regression-compile-tmp/nrimp10s-77.imp" PUSH REGISTER PUSHI #0x00000005 ACCESS PUSH K ASSVAL 1645 WRITE(K, 5); PRINTSTRING(" BYTES") LINE 1645 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSH K ASSPAR PUSHI #0x00000005 ASSPAR CALL LINE 1645 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTSTRING PUSHS " BYTES" ASSPAR CALL 1646 NEWLINE; PRINT CH(13); ! MARKER FOR COMP TO PRINT 1647 !SUMMARY LINE 1646 "regression-compile-tmp/nrimp10s-77.imp" PUSH NEWLINE CALL LINE 1646 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTCH PUSHI #0x0000000d ASSPAR CALL 1648 %IF FAULTY=0 %THEN %START LINE 1648 "regression-compile-tmp/nrimp10s-77.imp" PUSH FAULTY PUSHI #0x00000000 JUMPIF # L_0004 1649 WRITE(STMTS, 7); PRINTSTRING(" STATEMENTS COMPILED IN") LINE 1649 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSH STMTS ASSPAR PUSHI #0x00000007 ASSPAR CALL LINE 1649 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTSTRING PUSHS " STATEMENTS COMPILED IN" ASSPAR CALL 1650 WRITE(INT(1000*(CPUTIME-CTIME)),5) LINE 1650 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSH INT PUSHI #0x000003e8 PUSH CPUTIME CALL PUSH CTIME SUB MUL ASSPAR CALL ASSPAR PUSHI #0x00000005 ASSPAR CALL 1651 PRINTSTRING(" MSECS") LINE 1651 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTSTRING PUSHS " MSECS" ASSPAR CALL 1652 COMREG(47)=STMTS; ! NO OF STMTS FOR COMPER LINE 1652 "regression-compile-tmp/nrimp10s-77.imp" PUSH COMREG PUSHI #0x0000002f ASSPAR CALL PUSH STMTS ASSVAL 1653 %FINISH %ELSE %START LINE 1653 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 1654 PRINTSTRING("PROGRAM CONTAINS"); WRITE(FAULTY, 2) LINE 1654 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTSTRING PUSHS "PROGRAM CONTAINS" ASSPAR CALL LINE 1654 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSH FAULTY ASSPAR PUSHI #0x00000002 ASSPAR CALL 1655 PRINTSTRING(" FAULT"); PRINTSYMBOL('S') %IF FAULTY>1 LINE 1655 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTSTRING PUSHS " FAULT" ASSPAR CALL LINE 1655 "regression-compile-tmp/nrimp10s-77.imp" PUSH FAULTY PUSHI #0x00000001 JUMPIF <= L_0007 PUSH PRINTSYMBOL PUSHI #0x00000053 ASSPAR CALL LOCATE L_0007 1656 COMREG(47)=FAULTY; ! NO OF FAULTS FOR COMPER LINE 1656 "regression-compile-tmp/nrimp10s-77.imp" PUSH COMREG PUSHI #0x0000002f ASSPAR CALL PUSH FAULTY ASSVAL 1657 %FINISH LINE 1657 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 1658 NEWLINES(2) LINE 1658 "regression-compile-tmp/nrimp10s-77.imp" PUSH NEWLINES PUSHI #0x00000002 ASSPAR CALL 1659 NEWLINE LINE 1659 "regression-compile-tmp/nrimp10s-77.imp" PUSH NEWLINE CALL 1660 I=0; I=8 %IF FAULTY#0 LINE 1660 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000000 ASSVAL LINE 1660 "regression-compile-tmp/nrimp10s-77.imp" PUSH FAULTY PUSHI #0x00000000 JUMPIF = L_0004 PUSH I PUSHI #0x00000008 ASSVAL LOCATE L_0004 1661 COMREG(24)=I LINE 1661 "regression-compile-tmp/nrimp10s-77.imp" PUSH COMREG PUSHI #0x00000018 ASSPAR CALL PUSH I ASSVAL 1662 %IF INHCODE=0 %THEN LPUT(7, 24, 0, ADDR(REGISTER(0))) 1663 ! SUMMARY INFO..REGISTER AS BUF 1664 ! PPROFILE LINE 1662 "regression-compile-tmp/nrimp10s-77.imp" PUSH INHCODE PUSHI #0x00000000 JUMPIF # L_0004 PUSH LPUT PUSHI #0x00000007 ASSPAR PUSHI #0x00000018 ASSPAR PUSHI #0x00000000 ASSPAR PUSH ADDR PUSH REGISTER PUSHI #0x00000000 ACCESS ASSPAR CALL ASSPAR CALL LOCATE L_0004 1665 %STOP LINE 1665 "regression-compile-tmp/nrimp10s-77.imp" STOP 1666 %END 1667 ! 1668 !*********************************************************************** 1669 !* IMP CODE PLANTING ROUTINES * 1670 !* CODE AND GLAP ARE PUT INTO THE BUFFERS 'CODE,GLABUF(0:268)' * 1671 !* BY A NUMBER OF TRIVIAL ROUTINES.LPUT IS CALLED TO ADD THE * 1672 !* BUFFER TO THE OUTPUT FILE. THE BUFFERS ARE BASICALLY 0:255 * 1673 !* WITH A 12-BYTE MARGIN TO MINIMISE THE NUMBER OF TESTS FOR * 1674 !* THE BUFFER FULL CONDITION * 1675 !* * 1676 !* PPCURR(GLACURR) IS THE BUFFER POINTER * 1677 !* CA(GLACA) IS THE RELATIVE ADDRESS OF THE NEXT BYTE * 1678 !* CABUF(GLACABUF) IS CA(GLACA) FOR START OF BUFFER * 1679 !*********************************************************************** 1680 !*DELSTART LINE 1666 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_LOADDATA {lev=4 --> 3} 1681 %ROUTINE RECODE(%INTEGER S,F,AD) LINE 1681 "regression-compile-tmp/nrimp10s-77.imp" DEF RECODE (_lev0id0_lev1id1_lev2id3_RECODE) p1=V_0155 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=4 --> 5, nested=0 --> 1} DEF S p1=V_0156 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 F p1=V_0157 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 AD p1=V_0158 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=4} 1682 %IF S#F %START LINE 1682 "regression-compile-tmp/nrimp10s-77.imp" PUSH S PUSH F JUMPIF = L_0004 1683 PRINTSTRING(" LINE 1683 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRINTSTRING PUSHS "\nCODE FOR LINE" ASSPAR CALL 1684 CODE FOR LINE"); WRITE(LINE,5) LINE 1684 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRITE PUSH LINE ASSPAR PUSHI #0x00000005 ASSPAR CALL 1685 NCODE(S,F,AD) LINE 1685 "regression-compile-tmp/nrimp10s-77.imp" PUSH NCODE PUSH S ASSPAR PUSH F ASSPAR PUSH AD ASSPAR CALL 1686 %FINISH LINE 1686 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1687 %END 1688 !*DELEND LINE 1687 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_RECODE {lev=4 --> 3} 1689 %ROUTINE CODEOUT LINE 1689 "regression-compile-tmp/nrimp10s-77.imp" DEF CODEOUT (_lev0id0_lev1id1_lev2id3_CODEOUT) p1=V_014d 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=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 1690 %IF PPCURR>0 %THEN %START 1691 !*DELSTART LINE 1690 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPCURR PUSHI #0x00000000 JUMPIF <= L_0004 1692 RECODE(ADDR(CODE(0)), ADDR(CODE(PPCURR)), CABUF) %IF DCOMP#0 1693 !*DELEND LINE 1692 "regression-compile-tmp/nrimp10s-77.imp" PUSH DCOMP PUSHI #0x00000000 JUMPIF = L_0007 PUSH RECODE PUSH ADDR PUSH CODE PUSHI #0x00000000 ACCESS ASSPAR CALL ASSPAR PUSH ADDR PUSH CODE PUSH PPCURR ACCESS ASSPAR CALL ASSPAR PUSH CABUF ASSPAR CALL LOCATE L_0007 1694 LPUT(1, PPCURR, CABUF, ADDR(CODE(0))) %IF INHCODE=0 LINE 1694 "regression-compile-tmp/nrimp10s-77.imp" PUSH INHCODE PUSHI #0x00000000 JUMPIF # L_0007 PUSH LPUT PUSHI #0x00000001 ASSPAR PUSH PPCURR ASSPAR PUSH CABUF ASSPAR PUSH ADDR PUSH CODE PUSHI #0x00000000 ACCESS ASSPAR CALL ASSPAR CALL LOCATE L_0007 1695 PPCURR=0; CABUF=CA LINE 1695 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPCURR PUSHI #0x00000000 ASSVAL LINE 1695 "regression-compile-tmp/nrimp10s-77.imp" PUSH CABUF PUSH CA ASSVAL 1696 %FINISH LINE 1696 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1697 %END LINE 1697 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CODEOUT {lev=4 --> 3} 1698 %ROUTINE PLANT(%INTEGER HALFWORD) 1699 !*********************************************************************** 1700 !* ADD A HALF WORD OF BINARY TO THE BUFFER * 1701 !*********************************************************************** 1702 ! %IF USE IMP=YES %THEN %START LINE 1698 "regression-compile-tmp/nrimp10s-77.imp" DEF PLANT (_lev0id0_lev1id1_lev2id3_PLANT) p1=V_014b 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=4 --> 5, nested=0 --> 1} DEF HALFWORD p1=V_0156 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=4} 1703 CODE(PPCURR)<-HALFWORD>>8 LINE 1703 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSH PPCURR ACCESS PUSH HALFWORD PUSHI #0x00000008 RSH JAM 1704 CODE(PPCURR+1)<-HALFWORD LINE 1704 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSH PPCURR PUSHI #0x00000001 ADD ACCESS PUSH HALFWORD JAM 1705 PPCURR=PPCURR+2 1706 ! %FINISH %ELSE %START 1707 ! *LDA_CODE+4 1708 ! *LDTB_16_58000002 1709 ! *LB_PPCURR 1710 ! *LSS_HALFWORD 1711 ! *ST_(%DR+%B) 1712 ! *ADB_2 1713 ! *STB_PPCURR 1714 ! %FINISH LINE 1705 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPCURR PUSH PPCURR PUSHI #0x00000002 ADD ASSVAL 1715 CA=CA+2 LINE 1715 "regression-compile-tmp/nrimp10s-77.imp" PUSH CA PUSH CA PUSHI #0x00000002 ADD ASSVAL 1716 CODEOUT %IF PPCURR>=256 LINE 1716 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPCURR PUSHI #0x00000100 JUMPIF < L_0004 PUSH CODEOUT CALL LOCATE L_0004 1717 %END LINE 1717 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_PLANT {lev=4 --> 3} 1718 %ROUTINE PCONST(%INTEGER WORD) 1719 !*********************************************************************** 1720 !* ADD A WORD OF BINARY TO THE BUFFER * 1721 !*********************************************************************** LINE 1718 "regression-compile-tmp/nrimp10s-77.imp" DEF PCONST (_lev0id0_lev1id1_lev2id3_PCONST) p1=V_013f 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=4 --> 5, nested=0 --> 1} DEF WORD p1=V_0156 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=4} 1722 %INTEGER I 1723 ! %IF USE IMP=YES %THEN %START LINE 1722 "regression-compile-tmp/nrimp10s-77.imp" DEF I p1=V_0157 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 1724 %CYCLE I=24,-8,0 LINE 1724 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000008 NEGATE PUSHI #0x00000000 PUSHI #0x00000018 FOR L_0003 1725 CODE(PPCURR)=WORD>>I&255 LINE 1725 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSH PPCURR ACCESS PUSH WORD PUSH I RSH PUSHI #0x000000ff AND ASSVAL 1726 PPCURR=PPCURR+1 LINE 1726 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPCURR PUSH PPCURR PUSHI #0x00000001 ADD ASSVAL 1727 %REPEAT 1728 ! %FINISH %ELSE %START 1729 ! *LDA_CODE+4 1730 ! *LDTB_16_58000004 1731 ! *LSS_WORD 1732 ! *LB_PPCURR 1733 ! *ST_(%DR+%B) 1734 ! *ADB_4 1735 ! *STB_PPCURR 1736 ! %FINISH LINE 1727 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1737 CA=CA+4 LINE 1737 "regression-compile-tmp/nrimp10s-77.imp" PUSH CA PUSH CA PUSHI #0x00000004 ADD ASSVAL 1738 CODE OUT %IF PPCURR>=256 LINE 1738 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPCURR PUSHI #0x00000100 JUMPIF < L_0004 PUSH CODEOUT CALL LOCATE L_0004 1739 %END LINE 1739 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_PCONST {lev=4 --> 3} 1740 %ROUTINE PSF1(%INTEGER OPCODE,K,N) 1741 !*********************************************************************** 1742 !* PLANT THE HALFWORD FORMS OF PRIMARY FORMAT NR INSTRNS * 1743 !* IF N IS TOO LARGE FOR THE SHORT FORM PF1 IS CALLED TO PLANT * 1744 !* THE CORRESPONDING LONG FORM * 1745 !*********************************************************************** LINE 1740 "regression-compile-tmp/nrimp10s-77.imp" DEF PSF1 (_lev0id0_lev1id1_lev2id3_PSF1) p1=V_0140 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=4 --> 5, nested=0 --> 1} DEF OPCODE p1=V_0156 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_0157 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 N p1=V_0158 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=4} 1746 %INTEGER KPP 1747 ! ABORT %UNLESS 0<=K<=2 %AND OPCODE&1=0 LINE 1746 "regression-compile-tmp/nrimp10s-77.imp" DEF KPP p1=V_0159 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 1748 %IF (K=0 %AND -64<=N<=63) %OR (K#0 %AND 0<=N<=511) %START LINE 1748 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSHI #0x00000000 JUMPIF # L_0006 PUSHI #0x00000040 NEGATE PUSH N JUMPIFD > L_0006 PUSHI #0x0000003f JUMPIF <= L_0005 LOCATE L_0006 PUSH K PUSHI #0x00000000 JUMPIF = L_0004 PUSHI #0x00000000 PUSH N JUMPIFD > L_0004 PUSHI #0x000001ff JUMPIF > L_0004 LOCATE L_0005 1749 %IF K#0 %THEN N=N//4 1750 ! %IF USE IMP=YES %THEN %START LINE 1749 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSHI #0x00000000 JUMPIF = L_0007 PUSH N PUSH N PUSHI #0x00000004 QUOT ASSVAL LOCATE L_0007 1751 CODE(PPCURR)=OPCODE!K>>1 LINE 1751 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSH PPCURR ACCESS PUSH OPCODE PUSH K PUSHI #0x00000001 RSH OR ASSVAL 1752 CODE(PPCURR+1)=(K&1)<<7!N&127 LINE 1752 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSH PPCURR PUSHI #0x00000001 ADD ACCESS PUSH K PUSHI #0x00000001 AND PUSHI #0x00000007 LSH PUSH N PUSHI #0x0000007f AND OR ASSVAL 1753 PPCURR=PPCURR+2 1754 ! %FINISH %ELSE %START 1755 ! *LSS_OPCODE 1756 ! *USH_1 1757 ! *OR_K 1758 ! *USH_7 1759 ! *SLSS_N 1760 ! *AND_127 1761 ! *LB_PPCURR 1762 ! *OR_%TOS 1763 ! *LDA_CODE+4 1764 ! *LDTB_16_58000002 1765 ! *ST_(%DR+%B) 1766 ! *ADB_2 1767 ! *STB_PPCURR 1768 ! %FINISH LINE 1753 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPCURR PUSH PPCURR PUSHI #0x00000002 ADD ASSVAL 1769 CA=CA+2 LINE 1769 "regression-compile-tmp/nrimp10s-77.imp" PUSH CA PUSH CA PUSHI #0x00000002 ADD ASSVAL 1770 CODEOUT %IF PPCURR>=256 LINE 1770 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPCURR PUSHI #0x00000100 JUMPIF < L_0007 PUSH CODEOUT CALL LOCATE L_0007 1771 %FINISH %ELSE %START LINE 1771 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 1772 %IF K=0 %THEN KPP=0 %ELSE KPP=2 LINE 1772 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSHI #0x00000000 JUMPIF # L_0007 PUSH KPP PUSHI #0x00000000 ASSVAL GOTO L_0006 LOCATE L_0007 PUSH KPP PUSHI #0x00000002 ASSVAL LOCATE L_0006 1773 PF1(OPCODE,K>>1<<1,KPP,N) LINE 1773 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSH OPCODE ASSPAR PUSH K PUSHI #0x00000001 RSH PUSHI #0x00000001 LSH ASSPAR PUSH KPP ASSPAR PUSH N ASSPAR CALL 1774 %FINISH LINE 1774 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 1775 %END LINE 1775 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_PSF1 {lev=4 --> 3} 1776 %ROUTINE PF1(%INTEGER OPCODE,KP,KPP,N) 1777 !*********************************************************************** 1778 !* PLANT THE NORMAL FORMS OF PRIMARY FORMAT INSTRNS(IE THOSE * 1779 !* WHICH DO NOT DEPEND ON THE SIZE OF N) * 1780 !*********************************************************************** LINE 1776 "regression-compile-tmp/nrimp10s-77.imp" DEF PF1 (_lev0id0_lev1id1_lev2id3_PF1) p1=V_0141 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=4 --> 5, nested=0 --> 1} DEF OPCODE p1=V_0156 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 KP p1=V_0157 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 KPP p1=V_0158 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 N p1=V_0159 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=4} 1781 %INTEGER INC 1782 ! ABORT %UNLESS 0<=KP<=3 %AND 0<=KPP<=7 %AND OPCODE&1=0 LINE 1781 "regression-compile-tmp/nrimp10s-77.imp" DEF INC p1=V_015a 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 1783 INC=2 LINE 1783 "regression-compile-tmp/nrimp10s-77.imp" PUSH INC PUSHI #0x00000002 ASSVAL 1784 %IF KPP=PC %THEN %START LINE 1784 "regression-compile-tmp/nrimp10s-77.imp" PUSH KPP PUSHI #0x00000004 JUMPIF # L_0004 1785 %IF N<0 %THEN N=N&16_7FFFFFFF %AND NOTE CREF(CA,N) LINE 1785 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSHI #0x00000000 JUMPIF >= L_0007 PUSH N PUSH N PUSHI #0x7fffffff AND ASSVAL PUSH NOTECREF PUSH CA ASSPAR PUSH N ASSPAR CALL LOCATE L_0007 1786 N=(N-CA)//2 LINE 1786 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSH CA SUB PUSHI #0x00000002 QUOT ASSVAL 1787 %FINISH LINE 1787 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1788 %IF (1<>16&3) LINE 1791 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSH PPCURR PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000080 PUSH KP PUSHI #0x00000005 LSH OR PUSH KPP PUSHI #0x00000002 LSH OR PUSH N PUSHI #0x00000010 RSH PUSHI #0x00000003 AND OR ASSVAL 1792 CODE(PPCURR+2)=N>>8&255 LINE 1792 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSH PPCURR PUSHI #0x00000002 ADD ACCESS PUSH N PUSHI #0x00000008 RSH PUSHI #0x000000ff AND ASSVAL 1793 CODE(PPCURR+3)=N&255 1794 ! %FINISH %ELSE %START 1795 ! *LSS_OPCODE 1796 ! *USH_1 1797 ! *OR_3 1798 ! *USH_2 1799 ! *OR_KP 1800 ! *USH_3 1801 ! *OR_KPP 1802 ! *USH_18 1803 ! *SLSS_N 1804 ! *AND_16_3FFFF 1805 ! *OR_%TOS 1806 ! *LDTB_16_58000004 1807 ! *LDA_CODE+4 1808 ! *LB_PPCURR 1809 ! *ST_(%DR+%B) 1810 ! %FINISH LINE 1793 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSH PPCURR PUSHI #0x00000003 ADD ACCESS PUSH N PUSHI #0x000000ff AND ASSVAL 1811 %IF KPP<=5 %THEN INC=4 LINE 1811 "regression-compile-tmp/nrimp10s-77.imp" PUSH KPP PUSHI #0x00000005 JUMPIF > L_0004 PUSH INC PUSHI #0x00000004 ASSVAL LOCATE L_0004 1812 PPCURR=PPCURR+INC LINE 1812 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPCURR PUSH PPCURR PUSH INC ADD ASSVAL 1813 CA=CA+INC LINE 1813 "regression-compile-tmp/nrimp10s-77.imp" PUSH CA PUSH CA PUSH INC ADD ASSVAL 1814 CODEOUT %IF PPCURR>=256 LINE 1814 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPCURR PUSHI #0x00000100 JUMPIF < L_0004 PUSH CODEOUT CALL LOCATE L_0004 1815 %END LINE 1815 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_PF1 {lev=4 --> 3} 1816 %ROUTINE PSORLF1(%INTEGER OPCODE,KP,KPP,N) 1817 !*********************************************************************** 1818 !* AS PF1 BUT CUT VALID FORMS TO SHORT FORM * 1819 !*********************************************************************** LINE 1816 "regression-compile-tmp/nrimp10s-77.imp" DEF PSORLF1 (_lev0id0_lev1id1_lev2id3_PSORLF1) p1=V_0142 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=4 --> 5, nested=0 --> 1} DEF OPCODE p1=V_0156 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 KP p1=V_0157 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 KPP p1=V_0158 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 N p1=V_0159 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=4} 1820 %INTEGER INC LINE 1820 "regression-compile-tmp/nrimp10s-77.imp" DEF INC p1=V_015a 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 1821 INC=2 LINE 1821 "regression-compile-tmp/nrimp10s-77.imp" PUSH INC PUSHI #0x00000002 ASSVAL 1822 %IF (KPP=0=KP %AND -64<=N<=63) %OR (KPP=LNB %AND KP&1=0 %AND 0<=N<=511) %START LINE 1822 "regression-compile-tmp/nrimp10s-77.imp" PUSH KPP PUSHI #0x00000000 JUMPIFD # L_0006 PUSH KP JUMPIF # L_0006 PUSHI #0x00000040 NEGATE PUSH N JUMPIFD > L_0006 PUSHI #0x0000003f JUMPIF <= L_0005 LOCATE L_0006 PUSH KPP PUSHI #0x00000002 JUMPIF # L_0004 PUSH KP PUSHI #0x00000001 AND PUSHI #0x00000000 JUMPIF # L_0004 PUSHI #0x00000000 PUSH N JUMPIFD > L_0004 PUSHI #0x000001ff JUMPIF > L_0004 LOCATE L_0005 1823 %IF KPP=LNB %THEN KP=1+KP>>1 LINE 1823 "regression-compile-tmp/nrimp10s-77.imp" PUSH KPP PUSHI #0x00000002 JUMPIF # L_0007 PUSH KP PUSHI #0x00000001 PUSH KP PUSHI #0x00000001 RSH ADD ASSVAL LOCATE L_0007 1824 %IF KP#0 %THEN N=N//4 1825 ! %IF USE IMP=YES %THEN %START LINE 1824 "regression-compile-tmp/nrimp10s-77.imp" PUSH KP PUSHI #0x00000000 JUMPIF = L_0007 PUSH N PUSH N PUSHI #0x00000004 QUOT ASSVAL LOCATE L_0007 1826 CODE(PPCURR)=OPCODE!KP>>1 LINE 1826 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSH PPCURR ACCESS PUSH OPCODE PUSH KP PUSHI #0x00000001 RSH OR ASSVAL 1827 CODE(PPCURR+1)=(KP&1)<<7!(N&127) 1828 ! %FINISH %ELSE %START 1829 ! *LSS_OPCODE 1830 ! *USH_1 1831 ! *OR_KP 1832 ! *USH_7 1833 ! *SLSS_N 1834 ! *AND_127 1835 ! *LB_PPCURR 1836 ! *OR_%TOS 1837 ! *LDA_CODE+4 1838 ! *LDTB_16_58000002 1839 ! *ST_(%DR+%B) 1840 ! %FINISH LINE 1827 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSH PPCURR PUSHI #0x00000001 ADD ACCESS PUSH KP PUSHI #0x00000001 AND PUSHI #0x00000007 LSH PUSH N PUSHI #0x0000007f AND OR ASSVAL 1841 %FINISH %ELSE %START LINE 1841 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 1842 %IF KPP=PC %THEN %START LINE 1842 "regression-compile-tmp/nrimp10s-77.imp" PUSH KPP PUSHI #0x00000004 JUMPIF # L_0007 1843 %IF N<0 %THEN N=N&16_7FFFFFFF %AND NOTE CREF(CA,N) LINE 1843 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSHI #0x00000000 JUMPIF >= L_000a PUSH N PUSH N PUSHI #0x7fffffff AND ASSVAL PUSH NOTECREF PUSH CA ASSPAR PUSH N ASSPAR CALL LOCATE L_000a 1844 N=(N-CA)//2 LINE 1844 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSH CA SUB PUSHI #0x00000002 QUOT ASSVAL 1845 %FINISH LINE 1845 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 1846 %IF (1<>16&3) LINE 1849 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSH PPCURR PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000004 PUSH KP OR PUSHI #0x00000003 LSH PUSH KPP OR PUSHI #0x00000002 LSH PUSH N PUSHI #0x00000010 RSH PUSHI #0x00000003 AND OR ASSVAL 1850 CODE(PPCURR+2)=N>>8&255 LINE 1850 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSH PPCURR PUSHI #0x00000002 ADD ACCESS PUSH N PUSHI #0x00000008 RSH PUSHI #0x000000ff AND ASSVAL 1851 CODE(PPCURR+3)=N&255 1852 ! %FINISH %ELSE %START 1853 ! *LSS_OPCODE 1854 ! *USH_1 1855 ! *OR_3 1856 ! *USH_2 1857 ! *OR_KP 1858 ! *USH_3 1859 ! *OR_KPP 1860 ! *USH_18 1861 ! *SLSS_N 1862 ! *AND_16_3FFFF 1863 ! *OR_%TOS 1864 ! *LDTB_16_58000004 1865 ! *LDA_CODE+4 1866 ! *LB_PPCURR 1867 ! *ST_(%DR+%B) 1868 ! %FINISH LINE 1851 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSH PPCURR PUSHI #0x00000003 ADD ACCESS PUSH N PUSHI #0x000000ff AND ASSVAL 1869 %IF KPP<=5 %THEN INC=4 LINE 1869 "regression-compile-tmp/nrimp10s-77.imp" PUSH KPP PUSHI #0x00000005 JUMPIF > L_0007 PUSH INC PUSHI #0x00000004 ASSVAL LOCATE L_0007 1870 %FINISH LINE 1870 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 1871 CA=CA+INC; PPCURR=PPCURR+INC LINE 1871 "regression-compile-tmp/nrimp10s-77.imp" PUSH CA PUSH CA PUSH INC ADD ASSVAL LINE 1871 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPCURR PUSH PPCURR PUSH INC ADD ASSVAL 1872 CODEOUT %IF PPCURR>=256 LINE 1872 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPCURR PUSHI #0x00000100 JUMPIF < L_0004 PUSH CODEOUT CALL LOCATE L_0004 1873 %END LINE 1873 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_PSORLF1 {lev=4 --> 3} 1874 %ROUTINE PF2(%INTEGER OPCODE,H,Q,N,MASK,FILLER) 1875 !*********************************************************************** 1876 !* PLANT SECONDARY(STORE TO STORE) FORMAT INSTRNS * 1877 !* THESE MAY BE 16 OR 32 BIT DEPENDING ON Q * 1878 !*********************************************************************** 1879 ! ABORT %UNLESS 0<=H<=1 %AND 0<=Q<=1 %AND 0<=N<=127 %AND OPCODE&1=0 LINE 1874 "regression-compile-tmp/nrimp10s-77.imp" DEF PF2 (_lev0id0_lev1id1_lev2id3_PF2) p1=V_0143 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=4 --> 5, nested=0 --> 1} DEF OPCODE p1=V_0156 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 H p1=V_0157 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_0158 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 N p1=V_0159 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 MASK p1=V_015a 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 FILLER p1=V_015b 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=4} 1880 PLANT(OPCODE<<8!H<<8!Q<<7!N) LINE 1880 "regression-compile-tmp/nrimp10s-77.imp" PUSH PLANT PUSH OPCODE PUSHI #0x00000008 LSH PUSH H PUSHI #0x00000008 LSH OR PUSH Q PUSHI #0x00000007 LSH OR PUSH N OR ASSPAR CALL 1881 %IF Q#0 %THEN PLANT(MASK<<8!FILLER) LINE 1881 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSHI #0x00000000 JUMPIF = L_0004 PUSH PLANT PUSH MASK PUSHI #0x00000008 LSH PUSH FILLER OR ASSPAR CALL LOCATE L_0004 1882 %END LINE 1882 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_PF2 {lev=4 --> 3} 1883 %ROUTINE PF3(%INTEGER OPCODE,MASK,KPPP,N) 1884 !*********************************************************************** 1885 !* PLANT THE TERTIARY(JUMP) FORMAT INSTRUCTIONS * 1886 !*********************************************************************** 1887 ! ABORT %UNLESS 0<=MASK<=15 %AND 0<=KPPP<=7 %AND OPCODE&1=0 LINE 1883 "regression-compile-tmp/nrimp10s-77.imp" DEF PF3 (_lev0id0_lev1id1_lev2id3_PF3) p1=V_0144 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=4 --> 5, nested=0 --> 1} DEF OPCODE p1=V_0156 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 MASK p1=V_0157 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 KPPP p1=V_0158 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 N p1=V_0159 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=4} 1888 %IF KPPP=PC %THEN %START LINE 1888 "regression-compile-tmp/nrimp10s-77.imp" PUSH KPPP PUSHI #0x00000004 JUMPIF # L_0004 1889 %IF N<0 %THEN N=N&16_7FFFFFFF %AND NOTE CREF(CA,N) LINE 1889 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSHI #0x00000000 JUMPIF >= L_0007 PUSH N PUSH N PUSHI #0x7fffffff AND ASSVAL PUSH NOTECREF PUSH CA ASSPAR PUSH N ASSPAR CALL LOCATE L_0007 1890 N=(N-CA)//2 LINE 1890 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSH CA SUB PUSHI #0x00000002 QUOT ASSVAL 1891 %FINISH LINE 1891 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1892 CODE(PPCURR)=OPCODE!MASK>>3&1 LINE 1892 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSH PPCURR ACCESS PUSH OPCODE PUSH MASK PUSHI #0x00000003 RSH PUSHI #0x00000001 AND OR ASSVAL 1893 CODE(PPCURR+1)=(MASK&7)<<5!KPPP<<2!(N>>16&3) LINE 1893 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSH PPCURR PUSHI #0x00000001 ADD ACCESS PUSH MASK PUSHI #0x00000007 AND PUSHI #0x00000005 LSH PUSH KPPP PUSHI #0x00000002 LSH OR PUSH N PUSHI #0x00000010 RSH PUSHI #0x00000003 AND OR ASSVAL 1894 PPCURR=PPCURR+2 LINE 1894 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPCURR PUSH PPCURR PUSHI #0x00000002 ADD ASSVAL 1895 CA=CA+2 LINE 1895 "regression-compile-tmp/nrimp10s-77.imp" PUSH CA PUSH CA PUSHI #0x00000002 ADD ASSVAL 1896 %IF KPPP<=5 %THEN %START LINE 1896 "regression-compile-tmp/nrimp10s-77.imp" PUSH KPPP PUSHI #0x00000005 JUMPIF > L_0004 1897 CODE(PPCURR)=N>>8&255 LINE 1897 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSH PPCURR ACCESS PUSH N PUSHI #0x00000008 RSH PUSHI #0x000000ff AND ASSVAL 1898 CODE(PPCURR+1)=N&255 LINE 1898 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSH PPCURR PUSHI #0x00000001 ADD ACCESS PUSH N PUSHI #0x000000ff AND ASSVAL 1899 PPCURR=PPCURR+2; CA=CA+2 LINE 1899 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPCURR PUSH PPCURR PUSHI #0x00000002 ADD ASSVAL LINE 1899 "regression-compile-tmp/nrimp10s-77.imp" PUSH CA PUSH CA PUSHI #0x00000002 ADD ASSVAL 1900 %FINISH LINE 1900 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1901 CODEOUT %IF PPCURR>=256 LINE 1901 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPCURR PUSHI #0x00000100 JUMPIF < L_0004 PUSH CODEOUT CALL LOCATE L_0004 1902 %END LINE 1902 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_PF3 {lev=4 --> 3} 1903 %ROUTINE NOTE CREF(%INTEGER CA,N) 1904 !*********************************************************************** 1905 !* NOTE THAT A (PC+N) INSTRUCTION HAS N RELATIVE TO CONST TABLE * 1906 !* NOT REATIVE TO CODE. REMEMBER THE ADDRESS OF THE INSTRUCTION * 1907 !* SO THAT AN LPUT(18) CORRECTION CAN BE MADE AT END OF COMPILATION * 1908 !*********************************************************************** LINE 1903 "regression-compile-tmp/nrimp10s-77.imp" DEF NOTECREF (_lev0id0_lev1id1_lev2id3_NOTECREF) p1=V_0145 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=4 --> 5, nested=0 --> 1} DEF CA p1=V_0156 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 N p1=V_0157 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=4} 1909 %RECORD(LISTF)%NAME CELL {(LISTF) LINE 1909 "regression-compile-tmp/nrimp10s-77.imp" DEF CELL p1=V_0158 a/tf=42 b/format=f4 c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1910 CELL==ASLIST(CREFHEAD) LINE 1910 "regression-compile-tmp/nrimp10s-77.imp" PUSH CELL PUSH ASLIST PUSH CREFHEAD ACCESS ASSREF 1911 %IF CREFHEAD=0 %OR CELL_S3#0 %THEN PUSH(CREFHEAD,CA,0,0) %AND %RETURN LINE 1911 "regression-compile-tmp/nrimp10s-77.imp" PUSH CREFHEAD PUSHI #0x00000000 JUMPIF = L_0005 PUSH CELL SELECT 3 PUSHI #0x00000000 JUMPIF = L_0004 LOCATE L_0005 PUSH PUSH PUSH CREFHEAD ASSPAR PUSH CA ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL RETURN LOCATE L_0004 1912 %IF CELL_S2=0 %THEN CELL_S2=CA %ELSE CELL_S3=CA LINE 1912 "regression-compile-tmp/nrimp10s-77.imp" PUSH CELL SELECT 2 PUSHI #0x00000000 JUMPIF # L_0004 PUSH CELL SELECT 2 PUSH CA ASSVAL GOTO L_0003 LOCATE L_0004 PUSH CELL SELECT 3 PUSH CA ASSVAL LOCATE L_0003 1913 %END LINE 1913 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_NOTECREF {lev=4 --> 3} 1914 %ROUTINE PCLOD(%INTEGER FROM, TO) 1915 !*********************************************************************** 1916 !* PLANT A SERIES OF INTRUNS FROM ARRAY FIXED CODE * 1917 !*********************************************************************** LINE 1914 "regression-compile-tmp/nrimp10s-77.imp" DEF PCLOD (_lev0id0_lev1id1_lev2id3_PCLOD) p1=V_013e 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=4 --> 5, nested=0 --> 1} DEF FROM p1=V_0156 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 TO p1=V_0157 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=4} 1918 %INTEGER I 1919 !%CONSTINTEGERARRAY FIXED CODE(0:127) 1920 ! %CYCLE I=FROM, 1, TO 1921 ! PCONST(FIXED CODE(I)) 1922 ! %REPEAT LINE 1918 "regression-compile-tmp/nrimp10s-77.imp" DEF I p1=V_0158 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 1923 %END LINE 1923 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_PCLOD {lev=4 --> 3} 1924 %ROUTINE CNOP(%INTEGER I, J) LINE 1924 "regression-compile-tmp/nrimp10s-77.imp" DEF CNOP (_lev0id0_lev1id1_lev2id3_CNOP) p1=V_013d 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=4 --> 5, nested=0 --> 1} DEF I p1=V_0156 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_0157 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=4} 1925 PSF1(JUNC,0,1) %WHILE CA&(J-1)#I LINE 1925 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH CA PUSH J PUSHI #0x00000001 SUB AND PUSH I JUMPIF = L_0004 PUSH PSF1 PUSHI #0x0000001a ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000001 ASSPAR CALL REPEAT L_0003 LOCATE L_0004 1926 %END LINE 1926 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CNOP {lev=4 --> 3} 1927 %ROUTINE PGLA(%INTEGER BDRY, L, INF ADR) LINE 1927 "regression-compile-tmp/nrimp10s-77.imp" DEF PGLA (_lev0id0_lev1id1_lev2id3_PGLA) p1=V_0156 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=4 --> 5, nested=0 --> 1} DEF BDRY p1=V_0157 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 L p1=V_0158 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 INFADR p1=V_0159 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=4} 1928 %INTEGER I, J LINE 1928 "regression-compile-tmp/nrimp10s-77.imp" DEF I p1=V_015a 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_015b 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 1929 J=GLACA; GLACA=(J+BDRY-1)&(-BDRY) LINE 1929 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH GLACA ASSVAL LINE 1929 "regression-compile-tmp/nrimp10s-77.imp" PUSH GLACA PUSH J PUSH BDRY ADD PUSHI #0x00000001 SUB PUSH BDRY NEGATE AND ASSVAL 1930 GLACURR=GLACURR+GLACA-J; ! COMPLETE THE ROUNDING LINE 1930 "regression-compile-tmp/nrimp10s-77.imp" PUSH GLACURR PUSH GLACURR PUSH GLACA ADD PUSH J SUB ASSVAL 1931 %IF L+GLACURR>256 %THEN %START LINE 1931 "regression-compile-tmp/nrimp10s-77.imp" PUSH L PUSH GLACURR ADD PUSHI #0x00000100 JUMPIF <= L_0004 1932 %IF INHCODE=0 %THEN LPUT(2, GLACURR, GLACABUF, ADDR(GLABUF(0))) LINE 1932 "regression-compile-tmp/nrimp10s-77.imp" PUSH INHCODE PUSHI #0x00000000 JUMPIF # L_0007 PUSH LPUT PUSHI #0x00000002 ASSPAR PUSH GLACURR ASSPAR PUSH GLACABUF ASSPAR PUSH ADDR PUSH GLABUF PUSHI #0x00000000 ACCESS ASSPAR CALL ASSPAR CALL LOCATE L_0007 1933 GLACURR=0; GLACABUF=GLACA LINE 1933 "regression-compile-tmp/nrimp10s-77.imp" PUSH GLACURR PUSHI #0x00000000 ASSVAL LINE 1933 "regression-compile-tmp/nrimp10s-77.imp" PUSH GLACABUF PUSH GLACA ASSVAL 1934 %FINISH LINE 1934 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 1935 %CYCLE I=0,1,L-1 LINE 1935 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSH L PUSHI #0x00000001 SUB PUSHI #0x00000000 FOR L_0003 1936 GLABUF(GLACURR+I)=BYTE INTEGER(I+INF ADR) LINE 1936 "regression-compile-tmp/nrimp10s-77.imp" PUSH GLABUF PUSH GLACURR PUSH I ADD ACCESS PUSH BYTEINTEGER PUSH I PUSH INFADR ADD ASSPAR CALL ASSVAL 1937 %REPEAT LINE 1937 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 1938 GLACA=GLACA+L; GLACURR=GLACURR+L LINE 1938 "regression-compile-tmp/nrimp10s-77.imp" PUSH GLACA PUSH GLACA PUSH L ADD ASSVAL LINE 1938 "regression-compile-tmp/nrimp10s-77.imp" PUSH GLACURR PUSH GLACURR PUSH L ADD ASSVAL 1939 %END LINE 1939 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_PGLA {lev=4 --> 3} 1940 %ROUTINE PLUG(%INTEGER AREA, AT, VALUE, BYTES) 1941 !*********************************************************************** 1942 !* WRITE UP TO ONE WORD INTO OBJECT FILE OUT OF SEQUENCE * 1943 !*********************************************************************** LINE 1940 "regression-compile-tmp/nrimp10s-77.imp" DEF PLUG (_lev0id0_lev1id1_lev2id3_PLUG) p1=V_014c 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=4 --> 5, nested=0 --> 1} DEF AREA p1=V_0157 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 AT p1=V_0158 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 VALUE p1=V_0159 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 BYTES p1=V_015a 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=4} 1944 %INTEGERNAME WCABUF LINE 1944 "regression-compile-tmp/nrimp10s-77.imp" DEF WCABUF p1=V_015b a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1945 %INTEGER I, RELAD, BUFAD LINE 1945 "regression-compile-tmp/nrimp10s-77.imp" DEF I p1=V_015c 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 RELAD p1=V_015d 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 BUFAD p1=V_015e 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 1946 WCABUF==CABUF; BUFAD=ADDR(CODE(0)) LINE 1946 "regression-compile-tmp/nrimp10s-77.imp" PUSH WCABUF PUSH CABUF ASSREF LINE 1946 "regression-compile-tmp/nrimp10s-77.imp" PUSH BUFAD PUSH ADDR PUSH CODE PUSHI #0x00000000 ACCESS ASSPAR CALL ASSVAL 1947 %IF AREA=2 %THEN WCABUF==GLACABUF %AND BUFAD=ADDR(GLABUF(0)) LINE 1947 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000002 JUMPIF # L_0004 PUSH WCABUF PUSH GLACABUF ASSREF PUSH BUFAD PUSH ADDR PUSH GLABUF PUSHI #0x00000000 ACCESS ASSPAR CALL ASSVAL LOCATE L_0004 1948 RELAD=AT-WCABUF LINE 1948 "regression-compile-tmp/nrimp10s-77.imp" PUSH RELAD PUSH AT PUSH WCABUF SUB ASSVAL 1949 %IF 0<=RELAD<=256 %AND AREA<=3 %THEN %START LINE 1949 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSH RELAD JUMPIFD > L_0004 PUSHI #0x00000100 JUMPIF > L_0004 PUSH AREA PUSHI #0x00000003 JUMPIF > L_0004 1950 %CYCLE I=0,1,BYTES-1 LINE 1950 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSH BYTES PUSHI #0x00000001 SUB PUSHI #0x00000000 FOR L_0006 1951 BYTEINTEGER(RELAD+BUFAD+I)<-VALUE>>((BYTES-1-I)<<3) LINE 1951 "regression-compile-tmp/nrimp10s-77.imp" PUSH BYTEINTEGER PUSH RELAD PUSH BUFAD ADD PUSH I ADD ASSPAR CALL PUSH VALUE PUSH BYTES PUSHI #0x00000001 SUB PUSH I SUB PUSHI #0x00000003 LSH RSH JAM 1952 %REPEAT LINE 1952 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0006 LOCATE L_0007 1953 %FINISH %ELSE %START LINE 1953 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 1954 %IF RELAD=-2 %THEN CODEOUT LINE 1954 "regression-compile-tmp/nrimp10s-77.imp" PUSH RELAD PUSHI #0x00000002 NEGATE JUMPIF # L_0007 PUSH CODEOUT CALL LOCATE L_0007 1955 %IF INHCODE=0 %THEN LPUT(AREA,BYTES,AT,ADDR(VALUE)+4-BYTES) 1956 !*DELSTART LINE 1955 "regression-compile-tmp/nrimp10s-77.imp" PUSH INHCODE PUSHI #0x00000000 JUMPIF # L_0007 PUSH LPUT PUSH AREA ASSPAR PUSH BYTES ASSPAR PUSH AT ASSPAR PUSH ADDR PUSH VALUE ASSPAR CALL PUSHI #0x00000004 ADD PUSH BYTES SUB ASSPAR CALL LOCATE L_0007 1957 NCODE(ADDR(VALUE)+4-BYTES,ADDR(VALUE)+4,AT) %IF DCOMP=1=AREA 1958 !*DELEND LINE 1957 "regression-compile-tmp/nrimp10s-77.imp" PUSH DCOMP PUSHI #0x00000001 JUMPIFD # L_0007 PUSH AREA JUMPIF # L_0007 PUSH NCODE PUSH ADDR PUSH VALUE ASSPAR CALL PUSHI #0x00000004 ADD PUSH BYTES SUB ASSPAR PUSH ADDR PUSH VALUE ASSPAR CALL PUSHI #0x00000004 ADD ASSPAR PUSH AT ASSPAR CALL LOCATE L_0007 1959 %FINISH LINE 1959 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 1960 %END 1961 LINE 1960 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_PLUG {lev=4 --> 3} 1962 %INTEGERFN PARAM DES(%INTEGER PREC) 1963 !*********************************************************************** 1964 !* SET UP BNDED L=1 DESRIPTOR FOR PASSING VARIABLE BY REFERENCE * 1965 !* ONLY THE TOP HALF IS SET UP * 1966 !*********************************************************************** LINE 1962 "regression-compile-tmp/nrimp10s-77.imp" DEF PARAMDES (_lev0id0_lev1id1_lev2id3_PARAMDES) p1=V_0146 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=4 --> 5, nested=0 --> 1} DEF PREC p1=V_0157 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=4} 1967 %INTEGER K,DES LINE 1967 "regression-compile-tmp/nrimp10s-77.imp" DEF K p1=V_0158 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 DES p1=V_0159 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 1968 K=DESADS(PREC) LINE 1968 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH DESADS PUSH PREC ACCESS ASSVAL 1969 %RESULT=K %UNLESS K=0 LINE 1969 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSHI #0x00000000 JUMPIF = L_0004 PUSH K RESULT LOCATE L_0004 1970 %IF PREC=4 %THEN DES=16_58000002 %ELSE DES=PREC<<27!1 LINE 1970 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000004 JUMPIF # L_0004 PUSH DES PUSHI #0x58000002 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH DES PUSH PREC PUSHI #0x0000001b LSH PUSHI #0x00000001 OR ASSVAL LOCATE L_0003 1971 STORE CONST (K,4,ADDR(DES)) LINE 1971 "regression-compile-tmp/nrimp10s-77.imp" PUSH STORECONST PUSH K ASSPAR PUSHI #0x00000004 ASSPAR PUSH ADDR PUSH DES ASSPAR CALL ASSPAR CALL 1972 DESADS(PREC)=K LINE 1972 "regression-compile-tmp/nrimp10s-77.imp" PUSH DESADS PUSH PREC ACCESS PUSH K ASSVAL 1973 %RESULT=K LINE 1973 "regression-compile-tmp/nrimp10s-77.imp" PUSH K RESULT 1974 %END LINE 1974 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_PARAMDES {lev=4 --> 3} 1975 %INTEGERFN MAPDES(%INTEGER PREC) 1976 !*********************************************************************** 1977 !* SET UP 8BIT ZERO ADDRESS UNSCALED BCI DESCRTR FOR MAPPING * 1978 !*********************************************************************** LINE 1975 "regression-compile-tmp/nrimp10s-77.imp" DEF MAPDES (_lev0id0_lev1id1_lev2id3_MAPDES) p1=V_0147 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=4 --> 5, nested=0 --> 1} DEF PREC p1=V_0157 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=4} 1979 %INTEGER K,DES0,DES1 LINE 1979 "regression-compile-tmp/nrimp10s-77.imp" DEF K p1=V_0158 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 DES0 p1=V_0159 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 DES1 p1=V_015a 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 1980 K=DESADS(PREC+8) LINE 1980 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH DESADS PUSH PREC PUSHI #0x00000008 ADD ACCESS ASSVAL 1981 %RESULT=K %UNLESS K=0 LINE 1981 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSHI #0x00000000 JUMPIF = L_0004 PUSH K RESULT LOCATE L_0004 1982 %IF PREC=4 %THEN DES0=16_58000002 %ELSE DES0=16_03000000!PREC<<27 LINE 1982 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000004 JUMPIF # L_0004 PUSH DES0 PUSHI #0x58000002 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH DES0 PUSHI #0x03000000 PUSH PREC PUSHI #0x0000001b LSH OR ASSVAL LOCATE L_0003 1983 DES1=0; STORE CONST(K,8,ADDR(DES0)) LINE 1983 "regression-compile-tmp/nrimp10s-77.imp" PUSH DES1 PUSHI #0x00000000 ASSVAL LINE 1983 "regression-compile-tmp/nrimp10s-77.imp" PUSH STORECONST PUSH K ASSPAR PUSHI #0x00000008 ASSPAR PUSH ADDR PUSH DES0 ASSPAR CALL ASSPAR CALL 1984 DESADS(PREC+8)=K LINE 1984 "regression-compile-tmp/nrimp10s-77.imp" PUSH DESADS PUSH PREC PUSHI #0x00000008 ADD ACCESS PUSH K ASSVAL 1985 %RESULT=K LINE 1985 "regression-compile-tmp/nrimp10s-77.imp" PUSH K RESULT 1986 %END LINE 1986 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_MAPDES {lev=4 --> 3} 1987 %INTEGERFN SPECIAL CONSTS(%INTEGER WHICH) 1988 !*********************************************************************** 1989 !* PUTS CERTAIN SPECIAL CONSTANTS INTO THE CONSTANT TABLE ON * 1990 !* DEMAND AND REMEMBERS THEIR POSN TO AVOID SEARCHONG * 1991 !*********************************************************************** LINE 1987 "regression-compile-tmp/nrimp10s-77.imp" DEF SPECIALCONSTS (_lev0id0_lev1id1_lev2id3_SPECIALCONSTS) p1=V_0148 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=4 --> 5, nested=0 --> 1} DEF WHICH p1=V_0157 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=4} 1992 {%CONST}%ownINTEGERARRAY SCS(0:5) = 16_40800000,0, 1993 16_41100000,0, 1994 1,0; LINE 1992 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSHI #0x00000005 BOUNDS DEF SCS p1=V_0158 a/tf=1b b/format=1 c/ostate=121 type=1 (integer) form=11 (array) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 PUSHI #0x40800000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x41100000 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000001 INIT 1 PUSHI #0x00000000 INIT 1 1995 %INTEGER K LINE 1995 "regression-compile-tmp/nrimp10s-77.imp" DEF K p1=V_0159 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 1996 K=DESADS(WHICH+16) LINE 1996 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH DESADS PUSH WHICH PUSHI #0x00000010 ADD ACCESS ASSVAL 1997 %RESULT=K %UNLESS K=0 LINE 1997 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSHI #0x00000000 JUMPIF = L_0004 PUSH K RESULT LOCATE L_0004 1998 STORE CONST(K,8,ADDR(SCS(2*WHICH))) LINE 1998 "regression-compile-tmp/nrimp10s-77.imp" PUSH STORECONST PUSH K ASSPAR PUSHI #0x00000008 ASSPAR PUSH ADDR PUSH SCS PUSHI #0x00000002 PUSH WHICH MUL ACCESS ASSPAR CALL ASSPAR CALL 1999 DESADS(WHICH+16)=K LINE 1999 "regression-compile-tmp/nrimp10s-77.imp" PUSH DESADS PUSH WHICH PUSHI #0x00000010 ADD ACCESS PUSH K ASSVAL 2000 %RESULT=K LINE 2000 "regression-compile-tmp/nrimp10s-77.imp" PUSH K RESULT 2001 %END LINE 2001 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_SPECIALCONSTS {lev=4 --> 3} 2002 %ROUTINE STORE CONST(%INTEGERNAME D, %INTEGER L, AD) 2003 !*********************************************************************** 2004 !* PUT THE CONSTANT VAL OF LENGTH 'L' INTO THE CONSTANT TABLE * 2005 !* A CHECK IS MADE TO SEE IF THE CONSTANT HAS ALREADY * 2006 !* BEEN INSERTED IN WHICH CASE THE OLD COPY IS REUSED * 2007 !*********************************************************************** LINE 2002 "regression-compile-tmp/nrimp10s-77.imp" DEF STORECONST (_lev0id0_lev1id1_lev2id3_STORECONST) p1=V_0149 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=4 --> 5, nested=0 --> 1} DEF D p1=V_0157 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF L p1=V_0158 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 AD p1=V_0159 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=4} 2008 %INTEGER I, J, K, C1, C2, C3, C4, LP LINE 2008 "regression-compile-tmp/nrimp10s-77.imp" DEF I p1=V_015a 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_015b 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_015c 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 C1 p1=V_015d 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 C2 p1=V_015e 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 C3 p1=V_015f 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 C4 p1=V_0160 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 LP p1=V_0161 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 2009 LP=L//4; C2=0; C3=0; C4=0 LINE 2009 "regression-compile-tmp/nrimp10s-77.imp" PUSH LP PUSH L PUSHI #0x00000004 QUOT ASSVAL LINE 2009 "regression-compile-tmp/nrimp10s-77.imp" PUSH C2 PUSHI #0x00000000 ASSVAL LINE 2009 "regression-compile-tmp/nrimp10s-77.imp" PUSH C3 PUSHI #0x00000000 ASSVAL LINE 2009 "regression-compile-tmp/nrimp10s-77.imp" PUSH C4 PUSHI #0x00000000 ASSVAL 2010 %CYCLE I=0,1,L-1 LINE 2010 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSH L PUSHI #0x00000001 SUB PUSHI #0x00000000 FOR L_0003 2011 BYTEINTEGER(ADDR(C1)+I)=BYTEINTEGER(AD+I) LINE 2011 "regression-compile-tmp/nrimp10s-77.imp" PUSH BYTEINTEGER PUSH ADDR PUSH C1 ASSPAR CALL PUSH I ADD ASSPAR CALL PUSH BYTEINTEGER PUSH AD PUSH I ADD ASSPAR CALL ASSVAL 2012 %REPEAT LINE 2012 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 2013 %IF PARMOPT#0 %THEN ->SKIP LINE 2013 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMOPT PUSHI #0x00000000 JUMPIF = L_0004 JUMP L_0162 LOCATE L_0004 2014 K=CONST BTM; ! AFTER STRINGS IN CTABLE LINE 2014 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH CONSTBTM ASSVAL 2015 %IF L=4 %THEN %START 2016 ! %IF USE IMP=YES %THEN %START LINE 2015 "regression-compile-tmp/nrimp10s-77.imp" PUSH L PUSHI #0x00000004 JUMPIF # L_0004 2017 %WHILE K= L_0007 2018 %IF CTABLE_val(K)=C1 %AND CONSTHOLE#K %THEN D=4*K!16_80000000 %AND %RETURN LINE 2018 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTABLE SELECT 1 PUSH K ACCESS PUSH C1 JUMPIF # L_000a PUSH CONSTHOLE PUSH K JUMPIF = L_000a PUSH D PUSHI #0x00000004 PUSH K MUL PUSHI #0x80000000 OR ASSVAL RETURN LOCATE L_000a 2019 K=K+1 LINE 2019 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH K PUSHI #0x00000001 ADD ASSVAL 2020 %REPEAT 2021 ! %FINISH %ELSE %START 2022 ! *LD_CTABLE 2023 ! *LB_K 2024 ! *SBB_1 2025 ! *LSS_C1 2026 !AGN1: 2027 ! *ADB_1 2028 ! *CPB_CONSTPTR 2029 ! *JCC_10, 2030 ! *ICP_(%DR+%B) 2031 ! *JCC_7, 2032 ! *CPB_CONSTHOLE 2033 ! *JCC_8, 2034 ! *LSS_%B 2035 ! *IMY_4 2036 ! *OR_16_80000000 2037 ! *ST_(D) 2038 ! *EXIT_-64 2039 ! %FINISH LINE 2020 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0006 LOCATE L_0007 2040 %FINISH %ELSE %START LINE 2040 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 2041 J=CONSTPTR-LP LINE 2041 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH CONSTPTR PUSH LP SUB ASSVAL 2042 %WHILE K<=J %CYCLE LINE 2042 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 PUSH K PUSH J JUMPIF > L_0007 2043 %IF CTABLE_val(K)=C1 %AND CTABLE_val(K+1)=C2 %AND (CONSTHOLE=K+LP) %START LINE 2043 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTABLE SELECT 1 PUSH K ACCESS PUSH C1 JUMPIF # L_000a PUSH CTABLE SELECT 1 PUSH K PUSHI #0x00000001 ADD ACCESS PUSH C2 JUMPIF # L_000a PUSH CONSTHOLE PUSH K JUMPIF < L_000b PUSH CONSTHOLE PUSH K PUSH LP ADD JUMPIF < L_000a LOCATE L_000b 2044 %IF L=8 %OR (CTABLE_val(K+2)=C3 %AND CTABLE_val(K+3)=C4) %THEN D=4*K!16_80000000 %AND %RETURN LINE 2044 "regression-compile-tmp/nrimp10s-77.imp" PUSH L PUSHI #0x00000008 JUMPIF = L_000e PUSH CTABLE SELECT 1 PUSH K PUSHI #0x00000002 ADD ACCESS PUSH C3 JUMPIF # L_000d PUSH CTABLE SELECT 1 PUSH K PUSHI #0x00000003 ADD ACCESS PUSH C4 JUMPIF # L_000d LOCATE L_000e PUSH D PUSHI #0x00000004 PUSH K MUL PUSHI #0x80000000 OR ASSVAL RETURN LOCATE L_000d 2045 %FINISH LINE 2045 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000a 2046 K=K+2 LINE 2046 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH K PUSHI #0x00000002 ADD ASSVAL 2047 %REPEAT LINE 2047 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0006 LOCATE L_0007 2048 %FINISH LINE 2048 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 2049 SKIP: LINE 2049 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_0162 2050 %IF L=4 %AND CONSTHOLE#0 %START LINE 2050 "regression-compile-tmp/nrimp10s-77.imp" PUSH L PUSHI #0x00000004 JUMPIF # L_0004 PUSH CONSTHOLE PUSHI #0x00000000 JUMPIF = L_0004 2051 CTABLE_val(CONSTHOLE)=C1 LINE 2051 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTABLE SELECT 1 PUSH CONSTHOLE ACCESS PUSH C1 ASSVAL 2052 D=4*CONSTHOLE!16_80000000 LINE 2052 "regression-compile-tmp/nrimp10s-77.imp" PUSH D PUSHI #0x00000004 PUSH CONSTHOLE MUL PUSHI #0x80000000 OR ASSVAL 2053 CONSTHOLE=0 LINE 2053 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTHOLE PUSHI #0x00000000 ASSVAL 2054 %RETURN LINE 2054 "regression-compile-tmp/nrimp10s-77.imp" RETURN 2055 %FINISH LINE 2055 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 2056 %IF L>4 %AND CONST PTR&1#0 %THEN CONSTHOLE=CONST PTR %AND CONSTPTR=CONST PTR+1 LINE 2056 "regression-compile-tmp/nrimp10s-77.imp" PUSH L PUSHI #0x00000004 JUMPIF <= L_0004 PUSH CONSTPTR PUSHI #0x00000001 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH CONSTHOLE PUSH CONSTPTR ASSVAL PUSH CONSTPTR PUSH CONSTPTR PUSHI #0x00000001 ADD ASSVAL LOCATE L_0004 2057 D=4*CONST PTR!16_80000000 LINE 2057 "regression-compile-tmp/nrimp10s-77.imp" PUSH D PUSHI #0x00000004 PUSH CONSTPTR MUL PUSHI #0x80000000 OR ASSVAL 2058 CTABLE_val(CONSTPTR)=C1 LINE 2058 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTABLE SELECT 1 PUSH CONSTPTR ACCESS PUSH C1 ASSVAL 2059 CTABLE_val(CONSTPTR+1)=C2 LINE 2059 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTABLE SELECT 1 PUSH CONSTPTR PUSHI #0x00000001 ADD ACCESS PUSH C2 ASSVAL 2060 %IF L=16 %THEN CTABLE_val(CONSTPTR+2)=C3 %AND CTABLE_val(CONSTPTR+3)=C4 LINE 2060 "regression-compile-tmp/nrimp10s-77.imp" PUSH L PUSHI #0x00000010 JUMPIF # L_0004 PUSH CTABLE SELECT 1 PUSH CONSTPTR PUSHI #0x00000002 ADD ACCESS PUSH C3 ASSVAL PUSH CTABLE SELECT 1 PUSH CONSTPTR PUSHI #0x00000003 ADD ACCESS PUSH C4 ASSVAL LOCATE L_0004 2061 CONST PTR=CONST PTR+LP LINE 2061 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTPTR PUSH CONSTPTR PUSH LP ADD ASSVAL 2062 %IF CONST PTR>CONST LIMIT %THEN FAULT(107,0) LINE 2062 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTPTR PUSH CONSTLIMIT JUMPIF <= L_0004 PUSH FAULT PUSHI #0x0000006b ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2063 %END LINE 2063 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_STORECONST {lev=4 --> 3} 2064 %ROUTINE GET ENV(%INTEGERNAME HEAD) 2065 !*********************************************************************** 2066 !* SAVE A COPY OF THE REGISTER STATE FOR FUTURE REFERENCE * 2067 !*********************************************************************** LINE 2064 "regression-compile-tmp/nrimp10s-77.imp" DEF GETENV (_lev0id0_lev1id1_lev2id3_GETENV) p1=V_0157 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=4 --> 5, nested=0 --> 1} DEF HEAD p1=V_0158 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2068 %INTEGER I, USE LINE 2068 "regression-compile-tmp/nrimp10s-77.imp" DEF I p1=V_0159 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 USE p1=V_015a 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 2069 %CYCLE I=0, 1, 7 LINE 2069 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSHI #0x00000007 PUSHI #0x00000000 FOR L_0003 2070 USE=GRUSE(I)&16_FF; ! MAIN USE ONLY LINE 2070 "regression-compile-tmp/nrimp10s-77.imp" PUSH USE PUSH GRUSE PUSH I ACCESS PUSHI #0x000000ff AND ASSVAL 2071 PUSH(HEAD, GRINF1(I), GRAT(I), I<<8!USE) %IF USE#0 LINE 2071 "regression-compile-tmp/nrimp10s-77.imp" PUSH USE PUSHI #0x00000000 JUMPIF = L_0007 PUSH PUSH PUSH HEAD ASSPAR PUSH GRINF1 PUSH I ACCESS ASSPAR PUSH GRAT PUSH I ACCESS ASSPAR PUSH I PUSHI #0x00000008 LSH PUSH USE OR ASSPAR CALL LOCATE L_0007 2072 %REPEAT LINE 2072 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 2073 %END LINE 2073 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_GETENV {lev=4 --> 3} 2074 %ROUTINE RESTORE(%INTEGER HEAD) 2075 !*********************************************************************** 2076 !* RESET THE REGISTERS TO ENVIRONMENT IN LIST HEADED BY 'HEAD' * 2077 !*********************************************************************** LINE 2074 "regression-compile-tmp/nrimp10s-77.imp" DEF RESTORE (_lev0id0_lev1id1_lev2id3_RESTORE) p1=V_0158 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=4 --> 5, nested=0 --> 1} DEF HEAD p1=V_0159 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=4} 2078 %INTEGER I, R, USE, INF, AT LINE 2078 "regression-compile-tmp/nrimp10s-77.imp" DEF I p1=V_015a 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 R p1=V_015b 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 USE p1=V_015c 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 INF p1=V_015d 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 AT p1=V_015e 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 2079 %CYCLE I=0, 1, 7 LINE 2079 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSHI #0x00000007 PUSHI #0x00000000 FOR L_0003 2080 %IF REGISTER(I)>=0 %THEN GRUSE(I)=0 %AND GRINF1(I)=0 LINE 2080 "regression-compile-tmp/nrimp10s-77.imp" PUSH REGISTER PUSH I ACCESS PUSHI #0x00000000 JUMPIF < L_0007 PUSH GRUSE PUSH I ACCESS PUSHI #0x00000000 ASSVAL PUSH GRINF1 PUSH I ACCESS PUSHI #0x00000000 ASSVAL LOCATE L_0007 2081 %REPEAT LINE 2081 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 2082 %WHILE HEAD#0 %CYCLE LINE 2082 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH HEAD PUSHI #0x00000000 JUMPIF = L_0004 2083 POP(HEAD, INF, AT, I) LINE 2083 "regression-compile-tmp/nrimp10s-77.imp" PUSH POP PUSH HEAD ASSPAR PUSH INF ASSPAR PUSH AT ASSPAR PUSH I ASSPAR CALL 2084 R=I>>8; USE=I&255 LINE 2084 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH I PUSHI #0x00000008 RSH ASSVAL LINE 2084 "regression-compile-tmp/nrimp10s-77.imp" PUSH USE PUSH I PUSHI #0x000000ff AND ASSVAL 2085 %IF REGISTER(R)>=0 %THEN GRUSE(R)=USE %AND GRINF1(R)=INF LINE 2085 "regression-compile-tmp/nrimp10s-77.imp" PUSH REGISTER PUSH R ACCESS PUSHI #0x00000000 JUMPIF < L_0007 PUSH GRUSE PUSH R ACCESS PUSH USE ASSVAL PUSH GRINF1 PUSH R ACCESS PUSH INF ASSVAL LOCATE L_0007 2086 GRAT(R)=AT LINE 2086 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRAT PUSH R ACCESS PUSH AT ASSVAL 2087 %REPEAT LINE 2087 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 2088 %END LINE 2088 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_RESTORE {lev=4 --> 3} 2089 %ROUTINE RELOCATE(%INTEGER GLARAD,VALUE,AREA) 2090 !*********************************************************************** 2091 !* PLANTS A WORD IN THE GLA (IF GLARAD<0) AND ARRANGES TO * 2092 !* RELOCATE IT RELATIVE TO AN AREA(CODE=1,GLA=2,CST=4,GST=5 * 2093 !* IF THE RELOCATION IS RELATIVE TO SYMBOL TABLES THE WORD * 2094 !* CAN NOT BE RELOCATED TILL SIZE OF THE CODE(OR GLA) IS KNOWN * 2095 !*********************************************************************** LINE 2089 "regression-compile-tmp/nrimp10s-77.imp" DEF RELOCATE (_lev0id0_lev1id1_lev2id3_RELOCATE) p1=V_0159 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=4 --> 5, nested=0 --> 1} DEF GLARAD p1=V_015a 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 VALUE p1=V_015b 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 AREA p1=V_015c 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=4} 2096 %IF GLARAD<0 %THEN PGLA(4,4,ADDR(VALUE)) %AND GLARAD=GLACA-4 LINE 2096 "regression-compile-tmp/nrimp10s-77.imp" PUSH GLARAD PUSHI #0x00000000 JUMPIF >= L_0004 PUSH PGLA PUSHI #0x00000004 ASSPAR PUSHI #0x00000004 ASSPAR PUSH ADDR PUSH VALUE ASSPAR CALL ASSPAR CALL PUSH GLARAD PUSH GLACA PUSHI #0x00000004 SUB ASSVAL LOCATE L_0004 2097 LPUT(19,2,GLARAD,AREA) LINE 2097 "regression-compile-tmp/nrimp10s-77.imp" PUSH LPUT PUSHI #0x00000013 ASSPAR PUSHI #0x00000002 ASSPAR PUSH GLARAD ASSPAR PUSH AREA ASSPAR CALL 2098 %END LINE 2098 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_RELOCATE {lev=4 --> 3} 2099 %ROUTINE GXREF(%STRING(31) NAME,%INTEGER MODE,XTRA,AT) 2100 !*********************************************************************** 2101 !* ASK LPUT TO ARRANGE FOR A DOUBLE WORD AT 'AT' IN THE GLA * 2102 !* TO CONTAIN A DESCRIPTOR FOR NAME 'NAME'. * 2103 !* MODE=0 STATIC CODE XREF * 2104 !* MODE=1 DYNAMIC CODE XREF * 2105 !* MODE=2 DATA XREF XTRA=MINIMIUM LENGTH * 2106 !*********************************************************************** LINE 2099 "regression-compile-tmp/nrimp10s-77.imp" DEF GXREF (_lev0id0_lev1id1_lev2id3_GXREF) p1=V_015a 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=4 --> 5, nested=0 --> 1} DEF NAME p1=V_015b a/tf=31 b/format=1f c/ostate=0 type=3 (string) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF MODE p1=V_015c 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 XTRA p1=V_015d 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 AT p1=V_015e 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=4} 2107 %INTEGER LPUTNO LINE 2107 "regression-compile-tmp/nrimp10s-77.imp" DEF LPUTNO p1=V_015f 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 2108 %IF MODE=2 %THEN LPUTNO=15 %ELSE LPUTNO=MODE+12 LINE 2108 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000002 JUMPIF # L_0004 PUSH LPUTNO PUSHI #0x0000000f ASSVAL GOTO L_0003 LOCATE L_0004 PUSH LPUTNO PUSH MODE PUSHI #0x0000000c ADD ASSVAL LOCATE L_0003 2109 LPUT(LPUTNO,XTRA,AT,ADDR(NAME)) LINE 2109 "regression-compile-tmp/nrimp10s-77.imp" PUSH LPUT PUSH LPUTNO ASSPAR PUSH XTRA ASSPAR PUSH AT ASSPAR PUSH ADDR PUSH NAME ASSPAR CALL ASSPAR CALL 2110 %END LINE 2110 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_GXREF {lev=4 --> 3} 2111 %ROUTINE CXREF(%STRING(255) NAME,%INTEGER MODE,XTRA,%INTEGERNAME AT) 2112 !*********************************************************************** 2113 !* CREATE A ZEROED AREA IN THE GLA AND CALL GXREF TO GET * 2114 !* IT FILLED AT LOAD TIME WITH INFORMATION ON AN EXTERNAL OBJECT * 2115 !* PARAMETERS ARE AS FOR GXREF. * 2116 !*********************************************************************** LINE 2111 "regression-compile-tmp/nrimp10s-77.imp" DEF CXREF (_lev0id0_lev1id1_lev2id3_CXREF) p1=V_015b 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=4 --> 5, nested=0 --> 1} DEF NAME p1=V_015c a/tf=31 b/format=ff c/ostate=0 type=3 (string) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF MODE p1=V_015d 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 XTRA p1=V_015e 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 AT p1=V_015f a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2117 %INTEGER Z1,Z2 LINE 2117 "regression-compile-tmp/nrimp10s-77.imp" DEF Z1 p1=V_0160 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 Z2 p1=V_0161 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 2118 Z1=0; Z2=0 LINE 2118 "regression-compile-tmp/nrimp10s-77.imp" PUSH Z1 PUSHI #0x00000000 ASSVAL LINE 2118 "regression-compile-tmp/nrimp10s-77.imp" PUSH Z2 PUSHI #0x00000000 ASSVAL 2119 PGLA(8,8,ADDR(Z1)); ! 2 ZERO WORDS LINE 2119 "regression-compile-tmp/nrimp10s-77.imp" PUSH PGLA PUSHI #0x00000008 ASSPAR PUSHI #0x00000008 ASSPAR PUSH ADDR PUSH Z1 ASSPAR CALL ASSPAR CALL 2120 AT=GLACA-8 LINE 2120 "regression-compile-tmp/nrimp10s-77.imp" PUSH AT PUSH GLACA PUSHI #0x00000008 SUB ASSVAL 2121 GXREF(NAME,MODE,XTRA,AT) LINE 2121 "regression-compile-tmp/nrimp10s-77.imp" PUSH GXREF PUSH NAME ASSPAR PUSH MODE ASSPAR PUSH XTRA ASSPAR PUSH AT ASSPAR CALL 2122 %END LINE 2122 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CXREF {lev=4 --> 3} 2123 %ROUTINE CODEDES(%INTEGERNAME AT) 2124 !*********************************************************************** 2125 !* PUT A CODE DESCRIPTOR INTO THE PLT FOR USE BY DEFINE EP * 2126 !*********************************************************************** LINE 2123 "regression-compile-tmp/nrimp10s-77.imp" DEF CODEDES (_lev0id0_lev1id1_lev2id3_CODEDES) p1=V_015c 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=4 --> 5, nested=0 --> 1} DEF AT p1=V_015d a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2127 %INTEGER DESC1,DESC2 LINE 2127 "regression-compile-tmp/nrimp10s-77.imp" DEF DESC1 p1=V_015e 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 DESC2 p1=V_015f 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 2128 DESC1=16_E1000000; DESC2=0 LINE 2128 "regression-compile-tmp/nrimp10s-77.imp" PUSH DESC1 PUSHI #0xe1000000 ASSVAL LINE 2128 "regression-compile-tmp/nrimp10s-77.imp" PUSH DESC2 PUSHI #0x00000000 ASSVAL 2129 %IF CDCOUNT=0 %THEN FIXED GLA(0)=DESC1 %AND AT=0 %ELSE PGLA(8,8,ADDR(DESC1)) %AND AT=GLACA-8 LINE 2129 "regression-compile-tmp/nrimp10s-77.imp" PUSH CDCOUNT PUSHI #0x00000000 JUMPIF # L_0004 PUSH FIXEDGLA PUSHI #0x00000000 ACCESS PUSH DESC1 ASSVAL PUSH AT PUSHI #0x00000000 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH PGLA PUSHI #0x00000008 ASSPAR PUSHI #0x00000008 ASSPAR PUSH ADDR PUSH DESC1 ASSPAR CALL ASSPAR CALL PUSH AT PUSH GLACA PUSHI #0x00000008 SUB ASSVAL LOCATE L_0003 2130 CDCOUNT=CDCOUNT+1 LINE 2130 "regression-compile-tmp/nrimp10s-77.imp" PUSH CDCOUNT PUSH CDCOUNT PUSHI #0x00000001 ADD ASSVAL 2131 %END LINE 2131 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CODEDES {lev=4 --> 3} 2132 %ROUTINE DEFINE EP(%STRING(255)NAME, %INTEGER ADR,AT,MAIN) 2133 !*********************************************************************** 2134 !* AN EP CONSISTS OF A CODE DESCRIPTOR IN THE GLA(PLT) OF * 2135 !* FILE CONTAINING THE EP. LPUT IS TOLD ABOUT THIS AND THE LOADER* 2136 !* ARRANGES TO PUT A DESCRIPTOR-DESCRIPTOR TO THE CODE-DESC * 2137 !* IN THE GLA OF ANY FILE REFERENCES THIS EP. THIS FIRST WORD * 2138 !* OF ICLS PLT IS THE MAIN EP AND WE MIMIC THIS AS FAR AS POSS * 2139 !*********************************************************************** LINE 2132 "regression-compile-tmp/nrimp10s-77.imp" DEF DEFINEEP (_lev0id0_lev1id1_lev2id3_DEFINEEP) p1=V_015d 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=4 --> 5, nested=0 --> 1} DEF NAME p1=V_015e a/tf=31 b/format=ff c/ostate=0 type=3 (string) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF ADR p1=V_015f 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 AT p1=V_0160 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 MAIN p1=V_0161 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=4} 2140 %IF AT=0 %THEN FIXED GLA(1)=ADR %ELSE PLUG(2,AT+4,ADR,4) LINE 2140 "regression-compile-tmp/nrimp10s-77.imp" PUSH AT PUSHI #0x00000000 JUMPIF # L_0004 PUSH FIXEDGLA PUSHI #0x00000001 ACCESS PUSH ADR ASSVAL GOTO L_0003 LOCATE L_0004 PUSH PLUG PUSHI #0x00000002 ASSPAR PUSH AT PUSHI #0x00000004 ADD ASSPAR PUSH ADR ASSPAR PUSHI #0x00000004 ASSPAR CALL LOCATE L_0003 2141 RELOCATE(AT+4,ADR,1) LINE 2141 "regression-compile-tmp/nrimp10s-77.imp" PUSH RELOCATE PUSH AT PUSHI #0x00000004 ADD ASSPAR PUSH ADR ASSPAR PUSHI #0x00000001 ASSPAR CALL 2142 LPUT(11,MAIN<<31!2,AT,ADDR(NAME)) %IF NAME#"" LINE 2142 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAME PUSHS "" JUMPIF = L_0004 PUSH LPUT PUSHI #0x0000000b ASSPAR PUSH MAIN PUSHI #0x0000001f LSH PUSHI #0x00000002 OR ASSPAR PUSH AT ASSPAR PUSH ADDR PUSH NAME ASSPAR CALL ASSPAR CALL LOCATE L_0004 2143 %END LINE 2143 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_DEFINEEP {lev=4 --> 3} 2144 %ROUTINE PROLOGUE 2145 !*********************************************************************** 2146 !* GENERATES THE SUBROUTINE THAT ALWAYS ARE REQUIRED ONTO THE * 2147 !* FRONT OF THE OBJECT PROGRAM WHERE THEY ARE DIRECTLY ADDRESABLE* 2148 !*********************************************************************** LINE 2144 "regression-compile-tmp/nrimp10s-77.imp" DEF PROLOGUE (_lev0id0_lev1id1_lev2id3_PROLOGUE) p1=V_014e 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=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2149 %INTEGERFNSPEC STRINGIN(%INTEGER POS) LINE 2149 "regression-compile-tmp/nrimp10s-77.imp" DEF STRINGIN (_lev0id0_lev1id1_lev2id3_PROLOGUE_STRINGIN) p1=V_015e a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF POS p1=V_015f 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=4} 2150 %ROUTINESPEC ERR EXIT(%INTEGER A, B, C) LINE 2150 "regression-compile-tmp/nrimp10s-77.imp" DEF ERREXIT (_lev0id0_lev1id1_lev2id3_PROLOGUE_ERREXIT) p1=V_015f a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF A p1=V_0160 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 B p1=V_0161 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 C p1=V_0162 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=4} 2151 %INTEGER I, K, L, STCA LINE 2151 "regression-compile-tmp/nrimp10s-77.imp" DEF I p1=V_0160 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_0161 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 L p1=V_0162 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 STCA p1=V_0163 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 2152 I=16_C2C2C2C2 LINE 2152 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0xc2c2c2c2 ASSVAL 2153 LPUT(4,4,0,ADDR(I)) LINE 2153 "regression-compile-tmp/nrimp10s-77.imp" PUSH LPUT PUSHI #0x00000004 ASSPAR PUSHI #0x00000004 ASSPAR PUSHI #0x00000000 ASSPAR PUSH ADDR PUSH I ASSPAR CALL ASSPAR CALL 2154 SSTL=4 LINE 2154 "regression-compile-tmp/nrimp10s-77.imp" PUSH SSTL PUSHI #0x00000004 ASSVAL 2155 %CYCLE I=0, 1, 31 LINE 2155 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSHI #0x0000001f PUSHI #0x00000000 FOR L_0003 2156 PLABS(I)=0; PLINK(I)=0 LINE 2156 "regression-compile-tmp/nrimp10s-77.imp" PUSH PLABS PUSH I ACCESS PUSHI #0x00000000 ASSVAL LINE 2156 "regression-compile-tmp/nrimp10s-77.imp" PUSH PLINK PUSH I ACCESS PUSHI #0x00000000 ASSVAL 2157 DESADS(I)=0 LINE 2157 "regression-compile-tmp/nrimp10s-77.imp" PUSH DESADS PUSH I ACCESS PUSHI #0x00000000 ASSVAL 2158 %REPEAT 2159 ! 2160 ! GENERATE THE FIXED-FLOAT CONSTANTS THAT MAY BE NEEDED 2161 ! LINE 2158 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 2162 PLABS(1)=CA LINE 2162 "regression-compile-tmp/nrimp10s-77.imp" PUSH PLABS PUSHI #0x00000001 ACCESS PUSH CA ASSVAL 2163 %CYCLE I=0, 1, 1 LINE 2163 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSHI #0x00000001 PUSHI #0x00000000 FOR L_0003 2164 PCONST(UNASSPAT) LINE 2164 "regression-compile-tmp/nrimp10s-77.imp" PUSH PCONST PUSHI #0x81818181 ASSPAR CALL 2165 %REPEAT 2166 ! 2167 ! GENERATE THE RUN TIME ERROR ROUTINE :- 2168 ! MDIAGS FOR NR IS %ROUTINE MDIAGS(%INT PC,LNB,ERROR,XTRA) 2169 ! PC IS A DUMMY (SEG FIELD ONLY USED) EXCEPT AFTER CONTINGENCY 2170 ! ON ENTRY TO THIS SUBROUTINE ERROR & XTRA ARE IN ACC AS 64 BIT INTEGER 2171 ! ENTRY HAS BEEN BY JLK SO RETURN ADDRESS STACKED 2172 ! 2173 !RTF PRCL 4 TO PLANT PARAMS 2174 ! JLK +1 STACK DUMMY PC 2175 ! STLN TOS LNB AS SECOND PARAMETER 2176 ! ST TOS ERROR NO AS THIRD PARAM 2177 ! LXN (LNB+4) POINTER TO GLA 2178 ! RALN 9 TO STORED LNB 2179 ! CALL ((XNB+10)) VIA XREF=DESCRIPTOR-DESCRIPTOR 2180 ! J TOS BACK AFTER A MONITOR 2181 ! LINE 2165 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 2182 PLABS(2)=CA LINE 2182 "regression-compile-tmp/nrimp10s-77.imp" PUSH PLABS PUSHI #0x00000002 ACCESS PUSH CA ASSVAL 2183 PSF1(PRCL,0,4) LINE 2183 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000018 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR CALL 2184 PSF1(JLK,0,1) LINE 2184 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000001c ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000001 ASSPAR CALL 2185 PF1(STLN,0,TOS,0) LINE 2185 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000005c ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2186 PF1(ST,0,TOS,0) LINE 2186 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2187 PSF1(LXN,1,16) LINE 2187 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000007e ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x00000010 ASSPAR CALL 2188 PSF1(RALN,0,9) LINE 2188 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000006c ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000009 ASSPAR CALL 2189 PF1(CALL,2,XNB,40) LINE 2189 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000001e ASSPAR PUSHI #0x00000002 ASSPAR PUSHI #0x00000003 ASSPAR PUSHI #0x00000028 ASSPAR CALL 2190 PF1(JUNC,0,TOS,0) 2191 ! 2192 ! SUBROUTINE TO CALL DEBUG ROUTINE(S#IMPMON) LINE NO IN ACC 2193 ! 2194 ! PRCL 4 2195 ! ST TOS 2196 ! LXN (LNB+4) 2197 ! RALN 6 2198 ! CALL ((XNB+IMPMONEPDISP)) 2199 ! JUNC TOS 2200 ! LINE 2190 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000001a ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2201 %IF PARMDBUG#0 %THEN %START LINE 2201 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMDBUG PUSHI #0x00000000 JUMPIF = L_0004 2202 PLABS(3)=CA LINE 2202 "regression-compile-tmp/nrimp10s-77.imp" PUSH PLABS PUSHI #0x00000003 ACCESS PUSH CA ASSVAL 2203 CXREF("S#IMPMON",PARMDYNAMIC,2,K) LINE 2203 "regression-compile-tmp/nrimp10s-77.imp" PUSH CXREF PUSHS "S#IMPMON" ASSPAR PUSH PARMDYNAMIC ASSPAR PUSHI #0x00000002 ASSPAR PUSH K ASSPAR CALL 2204 PSF1(PRCL,0,4) LINE 2204 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000018 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR CALL 2205 PF1(ST,0,TOS,0) LINE 2205 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2206 PSF1(LXN,1,16) LINE 2206 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000007e ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x00000010 ASSPAR CALL 2207 PSF1(RALN,0,6) LINE 2207 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000006c ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR CALL 2208 PF1(CALL,2,XNB,K) LINE 2208 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000001e ASSPAR PUSHI #0x00000002 ASSPAR PUSHI #0x00000003 ASSPAR PUSH K ASSPAR CALL 2209 PF1(JUNC,0,TOS,0) LINE 2209 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000001a ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2210 %FINISH 2211 ! 2212 ! SUBROUTINE TO ADVANCE STACK FRONT BY B WORDS AND FILL WITH UNASSIGNED 2213 ! 2214 ! JAT 12,*+13 B IS ZERO 2215 ! LSS TOS 2216 ! STSF TOS 2217 ! LDTB STRING DECRIPTOR SET UP DESCRIPTOR FOR MVL 2218 ! LDA TOS 2219 ! ASF B ADVANCE BY B WORDS 2220 ! MYB 4 CHANGE B TO BYTES 2221 ! LDB B AND MOVE TO BOUND FIELD 2222 ! MVL L=DR AND FILL WITH X80S 2223 ! ST TOS 2224 ! J TOS RETURN 2225 ! LINE 2210 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 2226 %IF PARMCHK=1 %THEN %START; ! ONLY REQUIRED WITH CHKING LINE 2226 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMCHK PUSHI #0x00000001 JUMPIF # L_0004 2227 CNOP(0,4); K=CA LINE 2227 "regression-compile-tmp/nrimp10s-77.imp" PUSH CNOP PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR CALL LINE 2227 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH CA ASSVAL 2228 PCONST(16_58000000) LINE 2228 "regression-compile-tmp/nrimp10s-77.imp" PUSH PCONST PUSHI #0x58000000 ASSPAR CALL 2229 PLABS(4)=CA LINE 2229 "regression-compile-tmp/nrimp10s-77.imp" PUSH PLABS PUSHI #0x00000004 ACCESS PUSH CA ASSVAL 2230 PF3(JAT,12,0,13) LINE 2230 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF3 PUSHI #0x00000004 ASSPAR PUSHI #0x0000000c ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x0000000d ASSPAR CALL 2231 PF1(LSS,0,TOS,0) LINE 2231 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2232 PF1(STSF,0,TOS,0) LINE 2232 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000005e ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2233 PF1(LDTB,0,PC,K) LINE 2233 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000074 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR PUSH K ASSPAR CALL 2234 PF1(LDA,0,TOS,0) LINE 2234 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000072 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2235 PF1(ASF,0,BREG,0) LINE 2235 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000006e ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000007 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2236 PSF1(MYB,0,4) LINE 2236 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000002a ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR CALL 2237 PF1(LDB,0,BREG,0) LINE 2237 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000076 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000007 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2238 PF2(MVL,1,1,0,0,UNASSPAT&255) LINE 2238 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF2 PUSHI #0x000000b0 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x81818181 PUSHI #0x000000ff AND ASSPAR CALL 2239 PF1(ST,0,TOS,0) LINE 2239 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2240 PF1(JUNC,0,TOS,0) LINE 2240 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000001a ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2241 %FINISH 2242 ! 2243 ! SOME ERROR ROUTINES 2244 ! LINE 2241 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 2245 ERR EXIT(5, 16_801, 0) %IF PARMOPT#0; ! UNASSIGNED VARIABLE LINE 2245 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMOPT PUSHI #0x00000000 JUMPIF = L_0004 PUSH ERREXIT PUSHI #0x00000005 ASSPAR PUSHI #0x00000801 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2246 ERR EXIT(6, 16_504, 0); ! SWITCH LABEL UNSET LINE 2246 "regression-compile-tmp/nrimp10s-77.imp" PUSH ERREXIT PUSHI #0x00000006 ASSPAR PUSHI #0x00000504 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2247 ERR EXIT(7, 16_505, 1); ! ILLEGEAL EXPONENTIATION LINE 2247 "regression-compile-tmp/nrimp10s-77.imp" PUSH ERREXIT PUSHI #0x00000007 ASSPAR PUSHI #0x00000505 ASSPAR PUSHI #0x00000001 ASSPAR CALL 2248 ERR EXIT(8,16_201, 0) %IF PARMOPT#0; ! EXCESS BLOCKS LINE 2248 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMOPT PUSHI #0x00000000 JUMPIF = L_0004 PUSH ERREXIT PUSHI #0x00000008 ASSPAR PUSHI #0x00000201 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2249 ERR EXIT(9, 16_601, 0); ! CAPACITY EXCEEDED LINE 2249 "regression-compile-tmp/nrimp10s-77.imp" PUSH ERREXIT PUSHI #0x00000009 ASSPAR PUSHI #0x00000601 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2250 ERR EXIT(10,21, 0) ; ! NO RESULT LINE 2250 "regression-compile-tmp/nrimp10s-77.imp" PUSH ERREXIT PUSHI #0x0000000a ASSPAR PUSHI #0x00000015 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2251 ERR EXIT(11,16_501, 0) %IF PARMOPT#0; ! CYCLE NOT VALID LINE 2251 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMOPT PUSHI #0x00000000 JUMPIF = L_0004 PUSH ERREXIT PUSHI #0x0000000b ASSPAR PUSHI #0x00000501 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2252 ERR EXIT(12,16_701,0); ! RES FAILS LINE 2252 "regression-compile-tmp/nrimp10s-77.imp" PUSH ERREXIT PUSHI #0x0000000c ASSPAR PUSHI #0x00000701 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2253 ERR EXIT(13,36,0) %IF PARMOPT#0; ! WRONG NO OF PARAMS 2254 ! 2255 ! PUT THE STRINGS ONTO THE FRONT OF CONSTANT AREA 2256 ! LINE 2253 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMOPT PUSHI #0x00000000 JUMPIF = L_0004 PUSH ERREXIT PUSHI #0x0000000d ASSPAR PUSHI #0x00000024 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2257 CTABLE_val(0)=16_18000001 LINE 2257 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTABLE SELECT 1 PUSHI #0x00000000 ACCESS PUSHI #0x18000001 ASSVAL 2258 CTABLE_val(1)=4 LINE 2258 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTABLE SELECT 1 PUSHI #0x00000001 ACCESS PUSHI #0x00000004 ASSVAL 2259 STCA=8; L=ADDR(CTABLE_val(0)) LINE 2259 "regression-compile-tmp/nrimp10s-77.imp" PUSH STCA PUSHI #0x00000008 ASSVAL LINE 2259 "regression-compile-tmp/nrimp10s-77.imp" PUSH L PUSH ADDR PUSH CTABLE SELECT 1 PUSHI #0x00000000 ACCESS ASSPAR CALL ASSVAL 2260 CONST PTR=2; ! IN CASE NO STRINGS LINE 2260 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTPTR PUSHI #0x00000002 ASSVAL 2261 %WHILE STRLINK#0 %CYCLE LINE 2261 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH STRLINK PUSHI #0x00000000 JUMPIF = L_0004 2262 I=STRLINK; STRLINK=FROM AR4(I) LINE 2262 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH STRLINK ASSVAL LINE 2262 "regression-compile-tmp/nrimp10s-77.imp" PUSH STRLINK PUSH FROMAR4 PUSH I ASSPAR CALL ASSVAL 2263 TO AR4(I,STRINGIN(I+4)); ! CHANGE LINK TO STRING ADDR LINE 2263 "regression-compile-tmp/nrimp10s-77.imp" PUSH TOAR4 PUSH I ASSPAR PUSH STRINGIN PUSH I PUSHI #0x00000004 ADD ASSPAR CALL ASSPAR CALL 2264 %REPEAT LINE 2264 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 2265 STRLINK=16_80000000 LINE 2265 "regression-compile-tmp/nrimp10s-77.imp" PUSH STRLINK PUSHI #0x80000000 ASSVAL 2266 CONST BTM=CONST PTR LINE 2266 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTBTM PUSH CONSTPTR ASSVAL 2267 %IF PARMOPT#0 %THEN CTABLE_val(CONST PTR)=M'IDIA' %AND CONST PTR=CONST PTR+1 LINE 2267 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMOPT PUSHI #0x00000000 JUMPIF = L_0004 PUSH CTABLE SELECT 1 PUSH CONSTPTR ACCESS PUSHI #0x49444941 ASSVAL PUSH CONSTPTR PUSH CONSTPTR PUSHI #0x00000001 ADD ASSVAL LOCATE L_0004 2268 GXREF(MDEP,PARMDYNAMIC,2,40) LINE 2268 "regression-compile-tmp/nrimp10s-77.imp" PUSH GXREF PUSH MDEP ASSPAR PUSH PARMDYNAMIC ASSPAR PUSHI #0x00000002 ASSPAR PUSHI #0x00000028 ASSPAR CALL 2269 %IF PARMPROF#0 %THEN %START; ! ALLOCATE PROFILE COUNT AREA LINE 2269 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMPROF PUSHI #0x00000000 JUMPIF = L_0004 2270 I=16_38000001+LINE LINE 2270 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x38000001 PUSH LINE ADD ASSVAL 2271 K=8 LINE 2271 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSHI #0x00000008 ASSVAL 2272 PARMPROF=GLACA LINE 2272 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMPROF PUSH GLACA ASSVAL 2273 PGLA(4,8,ADDR(I)) LINE 2273 "regression-compile-tmp/nrimp10s-77.imp" PUSH PGLA PUSHI #0x00000004 ASSPAR PUSHI #0x00000008 ASSPAR PUSH ADDR PUSH I ASSPAR CALL ASSPAR CALL 2274 K=0 LINE 2274 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSHI #0x00000000 ASSVAL 2275 %CYCLE I=0,1,LINE LINE 2275 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSH LINE PUSHI #0x00000000 FOR L_0006 2276 PGLA(4,4,ADDR(K)) LINE 2276 "regression-compile-tmp/nrimp10s-77.imp" PUSH PGLA PUSHI #0x00000004 ASSPAR PUSHI #0x00000004 ASSPAR PUSH ADDR PUSH K ASSPAR CALL ASSPAR CALL 2277 %REPEAT LINE 2277 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0006 LOCATE L_0007 2278 LINE=0 LINE 2278 "regression-compile-tmp/nrimp10s-77.imp" PUSH LINE PUSHI #0x00000000 ASSVAL 2279 %FINISH LINE 2279 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 2280 LEVEL=1 LINE 2280 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x00000001 ASSVAL 2281 %CYCLE I=0,1,31 LINE 2281 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSHI #0x0000001f PUSHI #0x00000000 FOR L_0003 2282 %IF PLINK(I)#0 %THEN CLEAR LIST(PLINK(I)) LINE 2282 "regression-compile-tmp/nrimp10s-77.imp" PUSH PLINK PUSH I ACCESS PUSHI #0x00000000 JUMPIF = L_0007 PUSH CLEARLIST PUSH PLINK PUSH I ACCESS ASSPAR CALL LOCATE L_0007 2283 %REPEAT LINE 2283 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 2284 %RETURN LINE 2284 "regression-compile-tmp/nrimp10s-77.imp" RETURN 2285 %INTEGERFN STRINGIN(%INTEGER POS) 2286 !*********************************************************************** 2287 !* PUT A STRING INTO THE CONSTANT AREA CHECKING FOR DUPLICATES * 2288 !*********************************************************************** LINE 2285 "regression-compile-tmp/nrimp10s-77.imp" DEF STRINGIN (_lev0id0_lev1id1_lev2id3_PROLOGUE_STRINGIN) p1=V_015e 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=5 --> 6, nested=0 --> 1} DEF POS p1=V_0164 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=5} 2289 %INTEGER J,K,IND,HD LINE 2289 "regression-compile-tmp/nrimp10s-77.imp" DEF J p1=V_0165 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_0166 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 IND p1=V_0167 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 HD p1=V_0168 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 2290 %RECORD(LISTF)%NAME CELL{(LISTF) LINE 2290 "regression-compile-tmp/nrimp10s-77.imp" DEF CELL p1=V_0169 a/tf=42 b/format=f4 c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2291 K=A(POS) LINE 2291 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH A PUSH POS ACCESS ASSVAL 2292 %IF K=0 %THEN %RESULT=0 LINE 2292 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSHI #0x00000000 JUMPIF # L_0004 PUSHI #0x00000000 RESULT LOCATE L_0004 2293 IND=K&31; HD=PLINK(IND) LINE 2293 "regression-compile-tmp/nrimp10s-77.imp" PUSH IND PUSH K PUSHI #0x0000001f AND ASSVAL LINE 2293 "regression-compile-tmp/nrimp10s-77.imp" PUSH HD PUSH PLINK PUSH IND ACCESS ASSVAL 2294 %WHILE HD#0 %CYCLE LINE 2294 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH HD PUSHI #0x00000000 JUMPIF = L_0004 2295 CELL==ASLIST(HD) LINE 2295 "regression-compile-tmp/nrimp10s-77.imp" PUSH CELL PUSH ASLIST PUSH HD ACCESS ASSREF 2296 %IF CELL_S1=K %AND STRING(L+CELL_S2)=STRING(ADDR(A(POS))) %THEN %RESULT=CELL_S2-4 LINE 2296 "regression-compile-tmp/nrimp10s-77.imp" PUSH CELL SELECT 1 PUSH K JUMPIF # L_0007 PUSH STRING PUSH L PUSH CELL SELECT 2 ADD ASSPAR CALL PUSH STRING PUSH ADDR PUSH A PUSH POS ACCESS ASSPAR CALL ASSPAR CALL JUMPIF # L_0007 PUSH CELL SELECT 2 PUSHI #0x00000004 SUB RESULT LOCATE L_0007 2297 HD=CELL_LINK LINE 2297 "regression-compile-tmp/nrimp10s-77.imp" PUSH HD PUSH CELL SELECT 4 ASSVAL 2298 %REPEAT LINE 2298 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 2299 HD=STCA LINE 2299 "regression-compile-tmp/nrimp10s-77.imp" PUSH HD PUSH STCA ASSVAL 2300 BYTEINTEGER(L+STCA)=K; STCA=STCA+1 LINE 2300 "regression-compile-tmp/nrimp10s-77.imp" PUSH BYTEINTEGER PUSH L PUSH STCA ADD ASSPAR CALL PUSH K ASSVAL LINE 2300 "regression-compile-tmp/nrimp10s-77.imp" PUSH STCA PUSH STCA PUSHI #0x00000001 ADD ASSVAL 2301 %CYCLE J=POS+1,1,POS+K LINE 2301 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000001 PUSH POS PUSH K ADD PUSH POS PUSHI #0x00000001 ADD FOR L_0003 2302 BYTE INTEGER(L+STCA)=A(J) LINE 2302 "regression-compile-tmp/nrimp10s-77.imp" PUSH BYTEINTEGER PUSH L PUSH STCA ADD ASSPAR CALL PUSH A PUSH J ACCESS ASSVAL 2303 STCA=STCA+1 LINE 2303 "regression-compile-tmp/nrimp10s-77.imp" PUSH STCA PUSH STCA PUSHI #0x00000001 ADD ASSVAL 2304 %REPEAT LINE 2304 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 2305 CONST PTR=((STCA+7)&(-8))>>2 LINE 2305 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTPTR PUSH STCA PUSHI #0x00000007 ADD PUSHI #0x00000008 NEGATE AND PUSHI #0x00000002 RSH ASSVAL 2306 PUSH(PLINK(IND),K,HD,0) LINE 2306 "regression-compile-tmp/nrimp10s-77.imp" PUSH PUSH PUSH PLINK PUSH IND ACCESS ASSPAR PUSH K ASSPAR PUSH HD ASSPAR PUSHI #0x00000000 ASSPAR CALL 2307 %RESULT=HD-4 LINE 2307 "regression-compile-tmp/nrimp10s-77.imp" PUSH HD PUSHI #0x00000004 SUB RESULT 2308 %END LINE 2308 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_PROLOGUE_STRINGIN {lev=5 --> 4} 2309 %ROUTINE ERR EXIT(%INTEGER LAB, ERRNO, MODE) 2310 !*********************************************************************** 2311 !* MODE=0 FOR DUMMY(ZERO) XTRA - MODE=1 XTRA IN BREG * 2312 !*********************************************************************** LINE 2309 "regression-compile-tmp/nrimp10s-77.imp" DEF ERREXIT (_lev0id0_lev1id1_lev2id3_PROLOGUE_ERREXIT) p1=V_015f 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=5 --> 6, nested=0 --> 1} DEF LAB p1=V_0164 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 ERRNO p1=V_0165 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 MODE p1=V_0166 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=5} 2313 PLABS(LAB)=CA LINE 2313 "regression-compile-tmp/nrimp10s-77.imp" PUSH PLABS PUSH LAB ACCESS PUSH CA ASSVAL 2314 %IF MODE=0 %THEN PSF1(LSS,0,0) %ELSE PF1(LSS,0,BREG,0) LINE 2314 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000000 JUMPIF # L_0004 PUSH PSF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL GOTO L_0003 LOCATE L_0004 PUSH PF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000007 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0003 2315 PSF1(LUH,0,ERRNO) LINE 2315 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000006a ASSPAR PUSHI #0x00000000 ASSPAR PUSH ERRNO ASSPAR CALL 2316 PSF1(JLK,0,(PLABS(2)-CA)//2) LINE 2316 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000001c ASSPAR PUSHI #0x00000000 ASSPAR PUSH PLABS PUSHI #0x00000002 ACCESS PUSH CA SUB PUSHI #0x00000002 QUOT ASSPAR CALL 2317 %END LINE 2317 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_PROLOGUE_ERREXIT {lev=5 --> 4} 2318 %END LINE 2318 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_PROLOGUE {lev=4 --> 3} 2319 %ROUTINE CSS(%INTEGER P) LINE 2319 "regression-compile-tmp/nrimp10s-77.imp" DEF CSS (_lev0id0_lev1id1_lev2id3_CSS) p1=V_0151 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=4 --> 5, nested=0 --> 1} DEF P p1=V_015e 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=4} 2320 %ROUTINESPEC MERGE INFO LINE 2320 "regression-compile-tmp/nrimp10s-77.imp" DEF MERGEINFO (_lev0id0_lev1id1_lev2id3_CSS_MERGEINFO) p1=V_015f a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2321 %ROUTINESPEC REDUCE ENV(%INTEGERNAME HEAD) LINE 2321 "regression-compile-tmp/nrimp10s-77.imp" DEF REDUCEENV (_lev0id0_lev1id1_lev2id3_CSS_REDUCEENV) p1=V_0160 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF HEAD p1=V_0161 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2322 %ROUTINESPEC ENTER JUMP(%INTEGER MASK,STAD,FLAG) LINE 2322 "regression-compile-tmp/nrimp10s-77.imp" DEF ENTERJUMP (_lev0id0_lev1id1_lev2id3_CSS_ENTERJUMP) p1=V_0161 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF MASK p1=V_0162 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 STAD p1=V_0163 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 FLAG p1=V_0164 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=4} 2323 %INTEGERFNSPEC ENTER LAB(%INTEGER M,FLAG) LINE 2323 "regression-compile-tmp/nrimp10s-77.imp" DEF ENTERLAB (_lev0id0_lev1id1_lev2id3_CSS_ENTERLAB) p1=V_0162 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF M p1=V_0163 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 FLAG p1=V_0164 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=4} 2324 %ROUTINESPEC REMOVE LAB(%INTEGER LAB) LINE 2324 "regression-compile-tmp/nrimp10s-77.imp" DEF REMOVELAB (_lev0id0_lev1id1_lev2id3_CSS_REMOVELAB) p1=V_0163 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF LAB p1=V_0164 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=4} 2325 %ROUTINESPEC CEND(%INTEGER KKK) LINE 2325 "regression-compile-tmp/nrimp10s-77.imp" DEF CEND (_lev0id0_lev1id1_lev2id3_CSS_CEND) p1=V_0164 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF KKK p1=V_0165 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=4} 2326 %INTEGERFNSPEC CCOND(%INTEGER CTO,A,B) LINE 2326 "regression-compile-tmp/nrimp10s-77.imp" DEF CCOND (_lev0id0_lev1id1_lev2id3_CSS_CCOND) p1=V_0165 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF CTO p1=V_0166 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 A p1=V_0167 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 B p1=V_0168 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=4} 2327 %ROUTINESPEC CHECK STOF LINE 2327 "regression-compile-tmp/nrimp10s-77.imp" DEF CHECKSTOF (_lev0id0_lev1id1_lev2id3_CSS_CHECKSTOF) p1=V_0166 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2328 %INTEGERFNSPEC REVERSE(%INTEGER MASK) LINE 2328 "regression-compile-tmp/nrimp10s-77.imp" DEF REVERSE (_lev0id0_lev1id1_lev2id3_CSS_REVERSE) p1=V_0167 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF MASK p1=V_0168 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=4} 2329 %ROUTINESPEC SET LINE LINE 2329 "regression-compile-tmp/nrimp10s-77.imp" DEF SETLINE (_lev0id0_lev1id1_lev2id3_CSS_SETLINE) p1=V_0168 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2330 %INTEGERFNSPEC SET XORYNB(%INTEGER WHICH,RLEVEL) LINE 2330 "regression-compile-tmp/nrimp10s-77.imp" DEF SETXORYNB (_lev0id0_lev1id1_lev2id3_CSS_SETXORYNB) p1=V_0169 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF WHICH p1=V_016a 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 RLEVEL p1=V_016b 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=4} 2331 %INTEGERFNSPEC XORYNB(%INTEGER USE,INF) LINE 2331 "regression-compile-tmp/nrimp10s-77.imp" DEF XORYNB (_lev0id0_lev1id1_lev2id3_CSS_XORYNB) p1=V_016a a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF USE p1=V_016b 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 INF p1=V_016c 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=4} 2332 %ROUTINESPEC GET IN ACC(%INTEGER ACC,SIZE,AC,AREA,DISP) LINE 2332 "regression-compile-tmp/nrimp10s-77.imp" DEF GETINACC (_lev0id0_lev1id1_lev2id3_CSS_GETINACC) p1=V_016b a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF ACC p1=V_016c 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 SIZE p1=V_016d 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 AC p1=V_016e 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 AREA p1=V_016f 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 DISP p1=V_0170 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=4} 2333 %INTEGERFNSPEC AREA CODE LINE 2333 "regression-compile-tmp/nrimp10s-77.imp" DEF AREACODE (_lev0id0_lev1id1_lev2id3_CSS_AREACODE) p1=V_016c a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2334 %INTEGERFNSPEC AREA CODE2(%INTEGER BS) LINE 2334 "regression-compile-tmp/nrimp10s-77.imp" DEF AREACODE2 (_lev0id0_lev1id1_lev2id3_CSS_AREACODE2) p1=V_016d a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF BS p1=V_016e 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=4} 2335 %ROUTINESPEC CUI(%INTEGER CODE) LINE 2335 "regression-compile-tmp/nrimp10s-77.imp" DEF CUI (_lev0id0_lev1id1_lev2id3_CSS_CUI) p1=V_016e a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF CODE p1=V_016f 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=4} 2336 %ROUTINESPEC ASSIGN(%INTEGER A,B) LINE 2336 "regression-compile-tmp/nrimp10s-77.imp" DEF ASSIGN (_lev0id0_lev1id1_lev2id3_CSS_ASSIGN) p1=V_016f a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF A p1=V_0170 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 B p1=V_0171 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=4} 2337 %ROUTINESPEC CSTART(%INTEGER CCRES,MODE) LINE 2337 "regression-compile-tmp/nrimp10s-77.imp" DEF CSTART (_lev0id0_lev1id1_lev2id3_CSS_CSTART) p1=V_0170 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF CCRES p1=V_0171 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 MODE p1=V_0172 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=4} 2338 %ROUTINESPEC CCYCBODY(%INTEGER UA,ELAB,CLAB) LINE 2338 "regression-compile-tmp/nrimp10s-77.imp" DEF CCYCBODY (_lev0id0_lev1id1_lev2id3_CSS_CCYCBODY) p1=V_0171 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF UA p1=V_0172 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 ELAB p1=V_0173 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 CLAB p1=V_0174 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=4} 2339 %ROUTINESPEC CLOOP(%INTEGER ALT,MARKC,MARKUI) LINE 2339 "regression-compile-tmp/nrimp10s-77.imp" DEF CLOOP (_lev0id0_lev1id1_lev2id3_CSS_CLOOP) p1=V_0172 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF ALT p1=V_0173 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 MARKC p1=V_0174 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 MARKUI p1=V_0175 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=4} 2340 %ROUTINESPEC CIFTHEN(%INTEGER MARKIU,MARKC,MARKUI,MARKE,MARKR,SKIP) LINE 2340 "regression-compile-tmp/nrimp10s-77.imp" DEF CIFTHEN (_lev0id0_lev1id1_lev2id3_CSS_CIFTHEN) p1=V_0173 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF MARKIU p1=V_0174 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 MARKC p1=V_0175 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 MARKUI p1=V_0176 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 MARKE p1=V_0177 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 MARKR p1=V_0178 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_0179 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=4} 2341 %ROUTINESPEC CREATE AH(%INTEGER MODE) LINE 2341 "regression-compile-tmp/nrimp10s-77.imp" DEF CREATEAH (_lev0id0_lev1id1_lev2id3_CSS_CREATEAH) p1=V_0174 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF MODE p1=V_0175 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=4} 2342 %ROUTINESPEC TORP(%INTEGERNAME HEAD,BOT,NOPS) LINE 2342 "regression-compile-tmp/nrimp10s-77.imp" DEF TORP (_lev0id0_lev1id1_lev2id3_CSS_TORP) p1=V_0175 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF HEAD p1=V_0176 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF BOT p1=V_0177 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF NOPS p1=V_0178 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2343 %INTEGERFNSPEC INTEXP(%INTEGERNAME VALUE) LINE 2343 "regression-compile-tmp/nrimp10s-77.imp" DEF INTEXP (_lev0id0_lev1id1_lev2id3_CSS_INTEXP) p1=V_0176 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF VALUE p1=V_0177 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2344 %INTEGERFNSPEC CONSTEXP(%INTEGER PRECTYPE) LINE 2344 "regression-compile-tmp/nrimp10s-77.imp" DEF CONSTEXP (_lev0id0_lev1id1_lev2id3_CSS_CONSTEXP) p1=V_0177 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF PRECTYPE p1=V_0178 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=4} 2345 %ROUTINESPEC CSEXP(%INTEGER REG,MODE) LINE 2345 "regression-compile-tmp/nrimp10s-77.imp" DEF CSEXP (_lev0id0_lev1id1_lev2id3_CSS_CSEXP) p1=V_0178 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF REG p1=V_0179 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 MODE p1=V_017a 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=4} 2346 %ROUTINESPEC CSTREXP(%INTEGER A,B) LINE 2346 "regression-compile-tmp/nrimp10s-77.imp" DEF CSTREXP (_lev0id0_lev1id1_lev2id3_CSS_CSTREXP) p1=V_0179 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF A p1=V_017a 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 B p1=V_017b 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=4} 2347 %ROUTINESPEC CRES(%INTEGER LAB) LINE 2347 "regression-compile-tmp/nrimp10s-77.imp" DEF CRES (_lev0id0_lev1id1_lev2id3_CSS_CRES) p1=V_017a a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF LAB p1=V_017b 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=4} 2348 %ROUTINESPEC EXPOP(%INTEGER A,B,C,D) LINE 2348 "regression-compile-tmp/nrimp10s-77.imp" DEF EXPOP (_lev0id0_lev1id1_lev2id3_CSS_EXPOP) p1=V_017b a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF A p1=V_017c 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 B p1=V_017d 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 C p1=V_017e 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 D p1=V_017f 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=4} 2349 %ROUTINESPEC TEST APP(%INTEGERNAME NUM) LINE 2349 "regression-compile-tmp/nrimp10s-77.imp" DEF TESTAPP (_lev0id0_lev1id1_lev2id3_CSS_TESTAPP) p1=V_017c a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF NUM p1=V_017d a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2350 %ROUTINESPEC SKIP EXP LINE 2350 "regression-compile-tmp/nrimp10s-77.imp" DEF SKIPEXP (_lev0id0_lev1id1_lev2id3_CSS_SKIPEXP) p1=V_017d a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2351 %ROUTINESPEC SKIP APP LINE 2351 "regression-compile-tmp/nrimp10s-77.imp" DEF SKIPAPP (_lev0id0_lev1id1_lev2id3_CSS_SKIPAPP) p1=V_017e a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2352 %ROUTINESPEC NO APP LINE 2352 "regression-compile-tmp/nrimp10s-77.imp" DEF NOAPP (_lev0id0_lev1id1_lev2id3_CSS_NOAPP) p1=V_017f a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2353 %INTEGERFNSPEC DOPE VECTOR(%INTEGER A,B,MODE,ID,%INTEGERNAME C,D) LINE 2353 "regression-compile-tmp/nrimp10s-77.imp" DEF DOPEVECTOR (_lev0id0_lev1id1_lev2id3_CSS_DOPEVECTOR) p1=V_0180 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF A p1=V_0181 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 B p1=V_0182 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 MODE p1=V_0183 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 ID p1=V_0184 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 C p1=V_0185 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF D p1=V_0186 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2354 %ROUTINESPEC DECLARE ARRAYS(%INTEGER A,B) LINE 2354 "regression-compile-tmp/nrimp10s-77.imp" DEF DECLAREARRAYS (_lev0id0_lev1id1_lev2id3_CSS_DECLAREARRAYS) p1=V_0181 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF A p1=V_0182 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 B p1=V_0183 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=4} 2355 %ROUTINESPEC DECLARE SCALARS(%INTEGER A,B) LINE 2355 "regression-compile-tmp/nrimp10s-77.imp" DEF DECLARESCALARS (_lev0id0_lev1id1_lev2id3_CSS_DECLARESCALARS) p1=V_0182 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF A p1=V_0183 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 B p1=V_0184 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=4} 2356 %ROUTINESPEC MAKE DECS(%INTEGER Q) LINE 2356 "regression-compile-tmp/nrimp10s-77.imp" DEF MAKEDECS (_lev0id0_lev1id1_lev2id3_CSS_MAKEDECS) p1=V_0183 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF Q p1=V_0184 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=4} 2357 %ROUTINESPEC SAVE AUX STACK LINE 2357 "regression-compile-tmp/nrimp10s-77.imp" DEF SAVEAUXSTACK (_lev0id0_lev1id1_lev2id3_CSS_SAVEAUXSTACK) p1=V_0184 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2358 %ROUTINESPEC RESET AUX STACK LINE 2358 "regression-compile-tmp/nrimp10s-77.imp" DEF RESETAUXSTACK (_lev0id0_lev1id1_lev2id3_CSS_RESETAUXSTACK) p1=V_0185 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2359 %ROUTINESPEC CRSPEC(%INTEGER M) LINE 2359 "regression-compile-tmp/nrimp10s-77.imp" DEF CRSPEC (_lev0id0_lev1id1_lev2id3_CSS_CRSPEC) p1=V_0186 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF M p1=V_0187 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=4} 2360 %ROUTINESPEC CFPLIST(%INTEGERNAME A,B) LINE 2360 "regression-compile-tmp/nrimp10s-77.imp" DEF CFPLIST (_lev0id0_lev1id1_lev2id3_CSS_CFPLIST) p1=V_0187 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF A p1=V_0188 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF B p1=V_0189 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2361 %ROUTINESPEC CFPDEL LINE 2361 "regression-compile-tmp/nrimp10s-77.imp" DEF CFPDEL (_lev0id0_lev1id1_lev2id3_CSS_CFPDEL) p1=V_0188 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2362 %ROUTINESPEC CLT LINE 2362 "regression-compile-tmp/nrimp10s-77.imp" DEF CLT (_lev0id0_lev1id1_lev2id3_CSS_CLT) p1=V_0189 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2363 %ROUTINESPEC CQN(%INTEGER P) LINE 2363 "regression-compile-tmp/nrimp10s-77.imp" DEF CQN (_lev0id0_lev1id1_lev2id3_CSS_CQN) p1=V_018a a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF P p1=V_018b 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=4} 2364 %ROUTINESPEC GET WSP(%INTEGERNAME PLACE,%INTEGER SIZE) LINE 2364 "regression-compile-tmp/nrimp10s-77.imp" DEF GETWSP (_lev0id0_lev1id1_lev2id3_CSS_GETWSP) p1=V_018b a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF PLACE p1=V_018c a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF SIZE p1=V_018d 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=4} 2365 %ROUTINESPEC RETURN WSP(%INTEGER PLACE,SIZE) LINE 2365 "regression-compile-tmp/nrimp10s-77.imp" DEF RETURNWSP (_lev0id0_lev1id1_lev2id3_CSS_RETURNWSP) p1=V_018c a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF PLACE p1=V_018d 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 SIZE p1=V_018e 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=4} 2366 %INTEGERFNSPEC TSEXP(%INTEGERNAME VALUE) LINE 2366 "regression-compile-tmp/nrimp10s-77.imp" DEF TSEXP (_lev0id0_lev1id1_lev2id3_CSS_TSEXP) p1=V_018d a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF VALUE p1=V_018e a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2367 %ROUTINESPEC CRCALL(%INTEGER RTNAME) LINE 2367 "regression-compile-tmp/nrimp10s-77.imp" DEF CRCALL (_lev0id0_lev1id1_lev2id3_CSS_CRCALL) p1=V_018e a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF RTNAME p1=V_018f 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=4} 2368 %ROUTINESPEC NAMEOP(%INTEGER Z,REG,SIZE,NAMEP) LINE 2368 "regression-compile-tmp/nrimp10s-77.imp" DEF NAMEOP (_lev0id0_lev1id1_lev2id3_CSS_NAMEOP) p1=V_018f a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF Z p1=V_0190 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 REG p1=V_0191 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 SIZE p1=V_0192 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 NAMEP p1=V_0193 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=4} 2369 %ROUTINESPEC CNAME(%INTEGER Z,REG) LINE 2369 "regression-compile-tmp/nrimp10s-77.imp" DEF CNAME (_lev0id0_lev1id1_lev2id3_CSS_CNAME) p1=V_0190 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF Z p1=V_0191 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 REG p1=V_0192 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=4} 2370 %ROUTINESPEC CANAME(%INTEGER Z,BS,DP) LINE 2370 "regression-compile-tmp/nrimp10s-77.imp" DEF CANAME (_lev0id0_lev1id1_lev2id3_CSS_CANAME) p1=V_0191 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF Z p1=V_0192 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 BS p1=V_0193 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 DP p1=V_0194 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=4} 2371 %ROUTINESPEC CSNAME(%INTEGER Z,REG) LINE 2371 "regression-compile-tmp/nrimp10s-77.imp" DEF CSNAME (_lev0id0_lev1id1_lev2id3_CSS_CSNAME) p1=V_0192 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF Z p1=V_0193 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 REG p1=V_0194 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=4} 2372 %ROUTINESPEC TEST ASS(%INTEGER REG,TYPE,SIZE) LINE 2372 "regression-compile-tmp/nrimp10s-77.imp" DEF TESTASS (_lev0id0_lev1id1_lev2id3_CSS_TESTASS) p1=V_0193 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF REG p1=V_0194 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 TYPE p1=V_0195 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 SIZE p1=V_0196 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=4} 2373 %ROUTINESPEC COPY TAG(%INTEGER KK) LINE 2373 "regression-compile-tmp/nrimp10s-77.imp" DEF COPYTAG (_lev0id0_lev1id1_lev2id3_CSS_COPYTAG) p1=V_0194 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF KK p1=V_0195 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=4} 2374 %ROUTINESPEC REDUCE TAG LINE 2374 "regression-compile-tmp/nrimp10s-77.imp" DEF REDUCETAG (_lev0id0_lev1id1_lev2id3_CSS_REDUCETAG) p1=V_0195 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2375 %ROUTINESPEC REPLACE TAG (%INTEGER KK) LINE 2375 "regression-compile-tmp/nrimp10s-77.imp" DEF REPLACETAG (_lev0id0_lev1id1_lev2id3_CSS_REPLACETAG) p1=V_0196 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF KK p1=V_0197 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=4} 2376 %ROUTINESPEC RT JUMP(%INTEGER CODE,%INTEGERNAME L) LINE 2376 "regression-compile-tmp/nrimp10s-77.imp" DEF RTJUMP (_lev0id0_lev1id1_lev2id3_CSS_RTJUMP) p1=V_0197 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF CODE p1=V_0198 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 L p1=V_0199 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2377 %ROUTINESPEC STORE TAG(%INTEGER KK,SLINK) LINE 2377 "regression-compile-tmp/nrimp10s-77.imp" DEF STORETAG (_lev0id0_lev1id1_lev2id3_CSS_STORETAG) p1=V_0198 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF KK p1=V_0199 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 SLINK p1=V_019a 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=4} 2378 %ROUTINESPEC UNPACK LINE 2378 "regression-compile-tmp/nrimp10s-77.imp" DEF UNPACK (_lev0id0_lev1id1_lev2id3_CSS_UNPACK) p1=V_0199 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2379 %ROUTINESPEC PACK(%INTEGERNAME PTYPE) LINE 2379 "regression-compile-tmp/nrimp10s-77.imp" DEF PACK (_lev0id0_lev1id1_lev2id3_CSS_PACK) p1=V_019a a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF PTYPE p1=V_019b a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2380 %ROUTINESPEC DIAG POINTER(%INTEGER LEVEL) LINE 2380 "regression-compile-tmp/nrimp10s-77.imp" DEF DIAGPOINTER (_lev0id0_lev1id1_lev2id3_CSS_DIAGPOINTER) p1=V_019b a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF LEVEL p1=V_019c 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=4} 2381 %ROUTINESPEC RDISPLAY(%INTEGER KK) LINE 2381 "regression-compile-tmp/nrimp10s-77.imp" DEF RDISPLAY (_lev0id0_lev1id1_lev2id3_CSS_RDISPLAY) p1=V_019c a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF KK p1=V_019d 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=4} 2382 %ROUTINESPEC RHEAD(%INTEGER KK) LINE 2382 "regression-compile-tmp/nrimp10s-77.imp" DEF RHEAD (_lev0id0_lev1id1_lev2id3_CSS_RHEAD) p1=V_019d a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF KK p1=V_019e 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=4} 2383 %ROUTINESPEC ODD ALIGN LINE 2383 "regression-compile-tmp/nrimp10s-77.imp" DEF ODDALIGN (_lev0id0_lev1id1_lev2id3_CSS_ODDALIGN) p1=V_019e a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2384 %INTEGERFNSPEC PTR OFFSET(%INTEGER RLEV) LINE 2384 "regression-compile-tmp/nrimp10s-77.imp" DEF PTROFFSET (_lev0id0_lev1id1_lev2id3_CSS_PTROFFSET) p1=V_019f a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF RLEV p1=V_01a0 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=4} 2385 %ROUTINESPEC PPJ(%INTEGER MASK,N) LINE 2385 "regression-compile-tmp/nrimp10s-77.imp" DEF PPJ (_lev0id0_lev1id1_lev2id3_CSS_PPJ) p1=V_01a0 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF MASK p1=V_01a1 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 N p1=V_01a2 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=4} 2386 %ROUTINESPEC CRFORMAT(%INTEGERNAME OPHEAD) LINE 2386 "regression-compile-tmp/nrimp10s-77.imp" DEF CRFORMAT (_lev0id0_lev1id1_lev2id3_CSS_CRFORMAT) p1=V_01a1 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF OPHEAD p1=V_01a2 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2387 %INTEGERFNSPEC DISPLACEMENT(%INTEGER LINK) LINE 2387 "regression-compile-tmp/nrimp10s-77.imp" DEF DISPLACEMENT (_lev0id0_lev1id1_lev2id3_CSS_DISPLACEMENT) p1=V_01a2 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF LINK p1=V_01a3 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=4} 2388 %INTEGERFNSPEC COPY RECORD TAG(%INTEGERNAME SUBS) LINE 2388 "regression-compile-tmp/nrimp10s-77.imp" DEF COPYRECORDTAG (_lev0id0_lev1id1_lev2id3_CSS_COPYRECORDTAG) p1=V_01a3 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF SUBS p1=V_01a4 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=4} 2389 %ROUTINESPEC SAVE IRS LINE 2389 "regression-compile-tmp/nrimp10s-77.imp" DEF SAVEIRS (_lev0id0_lev1id1_lev2id3_CSS_SAVEIRS) p1=V_01a4 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2390 %ROUTINESPEC COPY DR LINE 2390 "regression-compile-tmp/nrimp10s-77.imp" DEF COPYDR (_lev0id0_lev1id1_lev2id3_CSS_COPYDR) p1=V_01a5 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2391 %ROUTINESPEC BOOT OUT(%INTEGER REG) LINE 2391 "regression-compile-tmp/nrimp10s-77.imp" DEF BOOTOUT (_lev0id0_lev1id1_lev2id3_CSS_BOOTOUT) p1=V_01a6 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF REG p1=V_01a7 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=4} 2392 %ROUTINESPEC CHANGE RD(%INTEGER REG) LINE 2392 "regression-compile-tmp/nrimp10s-77.imp" DEF CHANGERD (_lev0id0_lev1id1_lev2id3_CSS_CHANGERD) p1=V_01a7 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF REG p1=V_01a8 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=4} 2393 %ROUTINESPEC FORGET(%INTEGER REG) LINE 2393 "regression-compile-tmp/nrimp10s-77.imp" DEF FORGET (_lev0id0_lev1id1_lev2id3_CSS_FORGET) p1=V_01a8 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF REG p1=V_01a9 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=4} 2394 %ROUTINESPEC REMEMBER LINE 2394 "regression-compile-tmp/nrimp10s-77.imp" DEF REMEMBER (_lev0id0_lev1id1_lev2id3_CSS_REMEMBER) p1=V_01a9 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} FINISH ) {lev=4} 2395 %ROUTINESPEC NOTE ASSMENT(%INTEGER REG,ASSOP,VAR) LINE 2395 "regression-compile-tmp/nrimp10s-77.imp" DEF NOTEASSMENT (_lev0id0_lev1id1_lev2id3_CSS_NOTEASSMENT) p1=V_01aa a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=4 --> 5, nested=0 --> 1} DEF REG p1=V_01ab 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 ASSOP p1=V_01ac 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 VAR p1=V_01ad 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=4} 2396 %SWITCH SW(1:24) LINE 2396 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 PUSHI #0x00000018 BOUNDS DEF SW p1=V_01ab 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 2397 %RECORDFORMAT RD(%BYTEINTEGER UPTYPE,PTYPE,XB,FLAG,{%C 2398 %INTEGER D,XTRA) LINE 2397 "regression-compile-tmp/nrimp10s-77.imp" DEF RD p1=V_01ac a/tf=44 b/format=1ac c/ostate=0 type=4 (record) form=4 (record-format) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 START ( RECORDFORMAT DEF UPTYPE p1=V_0000 a/tf=11 b/format=2 c/ostate=0 type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0 DEF PTYPE p1=V_0000 a/tf=11 b/format=2 c/ostate=0 type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0 DEF XB p1=V_0000 a/tf=11 b/format=2 c/ostate=0 type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0 DEF FLAG p1=V_0000 a/tf=11 b/format=2 c/ostate=0 type=1 (integer) form=1 (simple) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0 DEF D p1=V_0000 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 XTRA p1=V_0000 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 ) 2399 %INTEGER SNDISP,ACC,K,KFORM,STNAME,MIDCELL LINE 2399 "regression-compile-tmp/nrimp10s-77.imp" DEF SNDISP p1=V_01ad 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 ACC p1=V_01ae 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_01af 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 KFORM p1=V_01b0 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 STNAME p1=V_01b1 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 MIDCELL p1=V_01b2 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 2400 %INTEGER TCELL,NUMMOD,JJ,JJJ,KK,QQ,MARKER,REPORTUI,XDISP,MASK, {%C 2401 BASE,AREA,ACCESS,DISP,EXTRN, CURR INST,VALUE,STRINGL, {%C 2402 PTYPE,I,J,OLDI,USEBITS,TWSPHEAD,KKK,STRFNRES, {%C 2403 MARKIU,MARKUI,MARKC,MARKE,MARKR LINE 2400 "regression-compile-tmp/nrimp10s-77.imp" DEF TCELL p1=V_01b3 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 NUMMOD p1=V_01b4 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 JJ p1=V_01b5 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 JJJ p1=V_01b6 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 KK p1=V_01b7 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 QQ p1=V_01b8 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 MARKER p1=V_01b9 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 REPORTUI p1=V_01ba 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 XDISP p1=V_01bb 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 MASK p1=V_01bc 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 BASE p1=V_01bd 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 AREA p1=V_01be 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 ACCESS p1=V_01bf 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 DISP p1=V_01c0 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 EXTRN p1=V_01c1 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 CURRINST p1=V_01c2 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 VALUE p1=V_01c3 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 STRINGL p1=V_01c4 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 PTYPE p1=V_01c5 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 I p1=V_01c6 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_01c7 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 OLDI p1=V_01c8 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 USEBITS p1=V_01c9 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 TWSPHEAD p1=V_01ca 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 KKK p1=V_01cb 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 STRFNRES p1=V_01cc 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 MARKIU p1=V_01cd 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 MARKUI p1=V_01ce 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 MARKC p1=V_01cf 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 MARKE p1=V_01d0 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 MARKR p1=V_01d1 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 2404 %INTEGER LITL,ROUT,NAM,ARR,PREC,TYPE LINE 2404 "regression-compile-tmp/nrimp10s-77.imp" DEF LITL p1=V_01d2 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 ROUT p1=V_01d3 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 NAM p1=V_01d4 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 ARR p1=V_01d5 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 PREC p1=V_01d6 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 TYPE p1=V_01d7 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 2405 %RECORD (RD) EXPOPND{(RD); ! RESULT RECORD FOR EXPOP LINE 2405 "regression-compile-tmp/nrimp10s-77.imp" DEF EXPOPND p1=V_01d8 a/tf=41 b/format=1ac c/ostate=0 type=4 (record) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2406 CURR INST=0 LINE 2406 "regression-compile-tmp/nrimp10s-77.imp" PUSH CURRINST PUSHI #0x00000000 ASSVAL 2407 TWSPHEAD=0 LINE 2407 "regression-compile-tmp/nrimp10s-77.imp" PUSH TWSPHEAD PUSHI #0x00000000 ASSVAL 2408 %INTEGERARRAY SGRUSE,SGRINF(0:7) LINE 2408 "regression-compile-tmp/nrimp10s-77.imp" DEF SGRUSE p1=V_01d9 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 DEF SGRINF p1=V_01da 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 PUSHI #0x00000000 PUSHI #0x00000007 DIM 0001 0002 2409 ->SW(A(P)) LINE 2409 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS SJUMP 427 2410 SW(23): ! INCLUDE SOMETHING LINE 2410 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000017 SLABEL 427 2411 SW(24): ! REDUNDANT SEP LINE 2411 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000018 SLABEL 427 2412 SW(2): ! LINE 2412 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000002 SLABEL 427 2413 CSSEXIT: LAST INST=CURR INST LINE 2413 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01db LINE 2413 "regression-compile-tmp/nrimp10s-77.imp" PUSH LASTINST PUSH CURRINST ASSVAL 2414 %WHILE TWSPHEAD#0 %CYCLE LINE 2414 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH TWSPHEAD PUSHI #0x00000000 JUMPIF = L_0004 2415 POP(TWSPHEAD,JJ,KK,QQ) LINE 2415 "regression-compile-tmp/nrimp10s-77.imp" PUSH POP PUSH TWSPHEAD ASSPAR PUSH JJ ASSPAR PUSH KK ASSPAR PUSH QQ ASSPAR CALL 2416 RETURN WSP(JJ,KK) LINE 2416 "regression-compile-tmp/nrimp10s-77.imp" PUSH RETURNWSP PUSH JJ ASSPAR PUSH KK ASSPAR CALL 2417 %REPEAT LINE 2417 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 2418 %RETURN LINE 2418 "regression-compile-tmp/nrimp10s-77.imp" RETURN 2419 SW(1): !(UI)(S) LINE 2419 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 SLABEL 427 2420 FAULT(57,0) %UNLESS LEVEL>=2 LINE 2420 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x00000002 JUMPIF >= L_0004 PUSH FAULT PUSHI #0x00000039 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2421 MARKER=P+1+A(P+1)<<8+A(P+2) LINE 2421 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKER PUSH P PUSHI #0x00000001 ADD PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000008 LSH ADD PUSH A PUSH P PUSHI #0x00000002 ADD ACCESS ADD ASSVAL 2422 P=P+3 LINE 2422 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL 2423 ->LABFND %IF A(MARKER)=1 LINE 2423 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH MARKER ACCESS PUSHI #0x00000001 JUMPIF # L_0004 JUMP L_01dc LOCATE L_0004 2424 %IF A(MARKER)=2 %THEN SET LINE %AND CUI(0) %AND ->CSSEXIT LINE 2424 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH MARKER ACCESS PUSHI #0x00000002 JUMPIF # L_0004 PUSH SETLINE CALL PUSH CUI PUSHI #0x00000000 ASSPAR CALL JUMP L_01db LOCATE L_0004 2425 MARKE=0; MARKR=0 LINE 2425 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKE PUSHI #0x00000000 ASSVAL LINE 2425 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKR PUSHI #0x00000000 ASSVAL 2426 MARKUI=P; MARKIU=MARKER+1 LINE 2426 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKUI PUSH P ASSVAL LINE 2426 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKIU PUSH MARKER PUSHI #0x00000001 ADD ASSVAL 2427 MARKC=MARKIU+1 LINE 2427 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKC PUSH MARKIU PUSHI #0x00000001 ADD ASSVAL 2428 %IF A(MARKER)=3 %THEN CIFTHEN(MARKIU,MARKC,MARKUI,0,0,NO) %AND ->CSSEXIT LINE 2428 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH MARKER ACCESS PUSHI #0x00000003 JUMPIF # L_0004 PUSH CIFTHEN PUSH MARKIU ASSPAR PUSH MARKC ASSPAR PUSH MARKUI ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL JUMP L_01db LOCATE L_0004 2429 CLOOP(A(MARKIU),MARKC+2,MARKUI) LINE 2429 "regression-compile-tmp/nrimp10s-77.imp" PUSH CLOOP PUSH A PUSH MARKIU ACCESS ASSPAR PUSH MARKC PUSHI #0x00000002 ADD ASSPAR PUSH MARKUI ASSPAR CALL 2430 ->CSSEXIT LINE 2430 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 2431 LABFND: ->SWITCH %UNLESS A(P)=1 %AND A(P+5)=2; ! 1ST OF UI AND NO APP LINE 2431 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01dc LINE 2431 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000001 JUMPIF # L_0005 PUSH A PUSH P PUSHI #0x00000005 ADD ACCESS PUSHI #0x00000002 JUMPIF = L_0004 LOCATE L_0005 JUMP L_01dd LOCATE L_0004 2432 ->SWITCH %UNLESS A(P+6)=2 %AND A(P+7)=2;! NO ENAMSE OR ASSNMNT LINE 2432 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000006 ADD ACCESS PUSHI #0x00000002 JUMPIF # L_0005 PUSH A PUSH P PUSHI #0x00000007 ADD ACCESS PUSHI #0x00000002 JUMPIF = L_0004 LOCATE L_0005 JUMP L_01dd LOCATE L_0004 2433 JJ=ENTER LAB(FROM AR2(P+3),0); ->CSSEXIT LINE 2433 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSH ENTERLAB PUSH FROMAR2 PUSH P PUSHI #0x00000003 ADD ASSPAR CALL ASSPAR PUSHI #0x00000000 ASSPAR CALL ASSVAL LINE 2433 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 2434 SW(5): ! %CYCLE LINE 2434 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000005 SLABEL 427 2435 FAULT(57,0) %UNLESS LEVEL>=2 LINE 2435 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x00000002 JUMPIF >= L_0004 PUSH FAULT PUSHI #0x00000039 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2436 %IF A(P+5)=2 %THEN %START; ! OPEN CYCLE LINE 2436 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000005 ADD ACCESS PUSHI #0x00000002 JUMPIF # L_0004 2437 CLOOP(0,P+1,0) LINE 2437 "regression-compile-tmp/nrimp10s-77.imp" PUSH CLOOP PUSHI #0x00000000 ASSPAR PUSH P PUSHI #0x00000001 ADD ASSPAR PUSHI #0x00000000 ASSPAR CALL 2438 %FINISH %ELSE %START LINE 2438 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 2439 CLOOP(6,P+6,P+1) LINE 2439 "regression-compile-tmp/nrimp10s-77.imp" PUSH CLOOP PUSHI #0x00000006 ASSPAR PUSH P PUSHI #0x00000006 ADD ASSPAR PUSH P PUSHI #0x00000001 ADD ASSPAR CALL 2440 %FINISH LINE 2440 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 2441 ->CSSEXIT 2442 ! LINE 2441 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 2443 SW(6): ! REPEAT LINE 2443 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000006 SLABEL 427 2444 ->CSSEXIT LINE 2444 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 2445 SW(22): ! '%CONTROL' (CONST) LINE 2445 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000016 SLABEL 427 2446 J=FROM AR4(P+2) LINE 2446 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH FROMAR4 PUSH P PUSHI #0x00000002 ADD ASSPAR CALL ASSVAL 2447 CODEOUT LINE 2447 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODEOUT CALL 2448 DCOMP=J>>28; ->CSSEXIT 2449 ! LINE 2448 "regression-compile-tmp/nrimp10s-77.imp" PUSH DCOMP PUSH J PUSHI #0x0000001c RSH ASSVAL LINE 2448 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 2450 SW(3): ! (%IU)(COND)%THEN(UI)(ELSE') LINE 2450 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000003 SLABEL 427 2451 MARKIU=P+1; MARKC=MARKIU+3 LINE 2451 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKIU PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 2451 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKC PUSH MARKIU PUSHI #0x00000003 ADD ASSVAL 2452 MARKR=P+2+A(P+2)<<8+A(P+3); ! ! FROMAR2(P+2) LINE 2452 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKR PUSH P PUSHI #0x00000002 ADD PUSH A PUSH P PUSHI #0x00000002 ADD ACCESS PUSHI #0x00000008 LSH ADD PUSH A PUSH P PUSHI #0x00000003 ADD ACCESS ADD ASSVAL 2453 MARKE=0 LINE 2453 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKE PUSHI #0x00000000 ASSVAL 2454 %IF A(MARKR)=3 %THEN %START LINE 2454 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH MARKR ACCESS PUSHI #0x00000003 JUMPIF # L_0004 2455 MARKE=MARKR+1+FROMAR2(MARKR+1) LINE 2455 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKE PUSH MARKR PUSHI #0x00000001 ADD PUSH FROMAR2 PUSH MARKR PUSHI #0x00000001 ADD ASSPAR CALL ADD ASSVAL 2456 MARKUI=MARKR+3 LINE 2456 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKUI PUSH MARKR PUSHI #0x00000003 ADD ASSVAL 2457 %FINISH LINE 2457 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 2458 CIFTHEN(MARKIU,MARKC,MARKUI,MARKE,MARKR,NO) LINE 2458 "regression-compile-tmp/nrimp10s-77.imp" PUSH CIFTHEN PUSH MARKIU ASSPAR PUSH MARKC ASSPAR PUSH MARKUI ASSPAR PUSH MARKE ASSPAR PUSH MARKR ASSPAR PUSHI #0x00000000 ASSPAR CALL 2459 ->CSSEXIT LINE 2459 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 2460 SW(4): 2461 ! '%FINISH(ELSE')(S) LINE 2460 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000004 SLABEL 427 2462 ->CSSEXIT LINE 2462 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 2463 SWITCH: %BEGIN; ! SWITCH LABEL LINE 2463 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01dd LINE 2463 "regression-compile-tmp/nrimp10s-77.imp" BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id4 {lev=4 --> 5} 2464 %INTEGER HEAD,BASEPT,NAPS,FNAME LINE 2464 "regression-compile-tmp/nrimp10s-77.imp" DEF HEAD p1=V_01de 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 BASEPT p1=V_01df 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 NAPS p1=V_01e0 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 FNAME p1=V_01e1 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 2465 %INTEGERARRAY BITS(0:2) LINE 2465 "regression-compile-tmp/nrimp10s-77.imp" DEF BITS p1=V_01e2 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 PUSHI #0x00000000 PUSHI #0x00000002 DIM 0001 0001 2466 FORGET(-1) LINE 2466 "regression-compile-tmp/nrimp10s-77.imp" PUSH FORGET PUSHI #0x00000001 NEGATE ASSPAR CALL 2467 FNAME=FROM AR2(P+3) LINE 2467 "regression-compile-tmp/nrimp10s-77.imp" PUSH FNAME PUSH FROMAR2 PUSH P PUSHI #0x00000003 ADD ASSPAR CALL ASSVAL 2468 %UNLESS A(P)=1 %AND A(P+5)=1 %THEN FAULT2(5,0,FNAME) %AND ->BEND 2469 ! 1ST OF UI + APP LINE 2468 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000001 JUMPIF # L_0005 PUSH A PUSH P PUSHI #0x00000005 ADD ACCESS PUSHI #0x00000001 JUMPIF = L_0004 LOCATE L_0005 PUSH FAULT2 PUSHI #0x00000005 ASSPAR PUSHI #0x00000000 ASSPAR PUSH FNAME ASSPAR CALL JUMP L_01e3 LOCATE L_0004 2470 P=P+3; TEST APP(NAPS) LINE 2470 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL LINE 2470 "regression-compile-tmp/nrimp10s-77.imp" PUSH TESTAPP PUSH NAPS ASSPAR CALL 2471 P=P+6 LINE 2471 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000006 ADD ASSVAL 2472 %UNLESS INTEXP(JJ)=0 %THEN FAULT2(41,0,0) %AND ->BEND 2473 ! UNLESS EXPRESSION EVALUATES AND LINE 2472 "regression-compile-tmp/nrimp10s-77.imp" PUSH INTEXP PUSH JJ ASSPAR CALL PUSHI #0x00000000 JUMPIF = L_0004 PUSH FAULT2 PUSHI #0x00000029 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL JUMP L_01e3 LOCATE L_0004 2474 %UNLESS NAPS=1 %THEN FAULT2(21,NAPS-1,FNAME) %AND ->BEND 2475 ! NO REST OF APP LINE 2474 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAPS PUSHI #0x00000001 JUMPIF = L_0004 PUSH FAULT2 PUSHI #0x00000015 ASSPAR PUSH NAPS PUSHI #0x00000001 SUB ASSPAR PUSH FNAME ASSPAR CALL JUMP L_01e3 LOCATE L_0004 2476 %UNLESS A(P+1)=2=A(P+2) %THEN FAULT2(5,0,FNAME) %AND ->BEND 2477 ! NO ENAME OR REST OF ASSIGMENT LINE 2476 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000002 JUMPIFD # L_0005 PUSH A PUSH P PUSHI #0x00000002 ADD ACCESS JUMPIF = L_0004 LOCATE L_0005 PUSH FAULT2 PUSHI #0x00000005 ASSPAR PUSHI #0x00000000 ASSPAR PUSH FNAME ASSPAR CALL JUMP L_01e3 LOCATE L_0004 2478 COPY TAG(FNAME) LINE 2478 "regression-compile-tmp/nrimp10s-77.imp" PUSH COPYTAG PUSH FNAME ASSPAR CALL 2479 HEAD=K LINE 2479 "regression-compile-tmp/nrimp10s-77.imp" PUSH HEAD PUSH K ASSVAL 2480 %IF OLDI#LEVEL %OR TYPE#6 %THEN FAULT(4,FNAME) %AND ->BEND LINE 2480 "regression-compile-tmp/nrimp10s-77.imp" PUSH OLDI PUSH LEVEL JUMPIF # L_0005 PUSH TYPE PUSHI #0x00000006 JUMPIF = L_0004 LOCATE L_0005 PUSH FAULT PUSHI #0x00000004 ASSPAR PUSH FNAME ASSPAR CALL JUMP L_01e3 LOCATE L_0004 2481 FROM123(HEAD,BASEPT,KKK,KK); ! EXTRACT TABLE ADDR,LB & UB LINE 2481 "regression-compile-tmp/nrimp10s-77.imp" PUSH FROM123 PUSH HEAD ASSPAR PUSH BASEPT ASSPAR PUSH KKK ASSPAR PUSH KK ASSPAR CALL 2482 MLINK(HEAD); ! K POINTS TO BIT LIST LINE 2482 "regression-compile-tmp/nrimp10s-77.imp" PUSH MLINK PUSH HEAD ASSPAR CALL 2483 ->INBD %IF KKK<=JJ<=KK LINE 2483 "regression-compile-tmp/nrimp10s-77.imp" PUSH KKK PUSH JJ JUMPIFD > L_0004 PUSH KK JUMPIF > L_0004 JUMP L_01e4 LOCATE L_0004 2484 FAULT2(50,JJ,FNAME); ->BEND LINE 2484 "regression-compile-tmp/nrimp10s-77.imp" PUSH FAULT2 PUSHI #0x00000032 ASSPAR PUSH JJ ASSPAR PUSH FNAME ASSPAR CALL LINE 2484 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01e3 2485 INBD: Q=JJ-KKK LINE 2485 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01e4 LINE 2485 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH JJ PUSH KKK SUB ASSVAL 2486 %WHILE Q>=96 %%CYCLE LINE 2486 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH Q PUSHI #0x00000060 JUMPIF < L_0004 2487 MLINK(HEAD) LINE 2487 "regression-compile-tmp/nrimp10s-77.imp" PUSH MLINK PUSH HEAD ASSPAR CALL 2488 Q=Q-96 LINE 2488 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000060 SUB ASSVAL 2489 %REPEAT 2490 ! 2491 ! ASLIST(HEAD) IS THE START OF 96 BIT ENTRY IN THE BIT LIST 2492 ! CHECK BIT NO Q TO SEE IF LABEL ALREADY SET AND THEN SET BIT Q 2493 ! LINE 2489 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 2494 FROM123(HEAD,BITS(0),BITS(1),BITS(2)) LINE 2494 "regression-compile-tmp/nrimp10s-77.imp" PUSH FROM123 PUSH HEAD ASSPAR PUSH BITS PUSHI #0x00000000 ACCESS ASSPAR PUSH BITS PUSHI #0x00000001 ACCESS ASSPAR PUSH BITS PUSHI #0x00000002 ACCESS ASSPAR CALL 2495 QQ=Q>>5; ! RIGHT WORD LINE 2495 "regression-compile-tmp/nrimp10s-77.imp" PUSH QQ PUSH Q PUSHI #0x00000005 RSH ASSVAL 2496 Q=Q&31; JJJ=1<CSSEXIT LINE 2508 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01e3 LINE 2508 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_lev4id4 {lev=5 --> 4} LINE 2508 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 2509 SW(7): ! (%WU)(SC)(COND)(RESTOFWU) LINE 2509 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000007 SLABEL 427 2510 FAULT(57,0) %UNLESS LEVEL>=2 LINE 2510 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x00000002 JUMPIF >= L_0004 PUSH FAULT PUSHI #0x00000039 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2511 MARKIU=P+1; ! TO WHILE/UNTIL LINE 2511 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKIU PUSH P PUSHI #0x00000001 ADD ASSVAL 2512 MARKC=MARKIU+3; ! TO (SC)(COND) LINE 2512 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKC PUSH MARKIU PUSHI #0x00000003 ADD ASSVAL 2513 CLOOP(A(MARKIU)+3,MARKC,MARKIU+1+FROMAR2(MARKIU+1)) LINE 2513 "regression-compile-tmp/nrimp10s-77.imp" PUSH CLOOP PUSH A PUSH MARKIU ACCESS PUSHI #0x00000003 ADD ASSPAR PUSH MARKC ASSPAR PUSH MARKIU PUSHI #0x00000001 ADD PUSH FROMAR2 PUSH MARKIU PUSHI #0x00000001 ADD ASSPAR CALL ADD ASSPAR CALL 2514 ->CSSEXIT 2515 ! LINE 2514 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 2516 SW(8): ! SIMPLE DECLN LINE 2516 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000008 SLABEL 427 2517 FAULT(57,0) %UNLESS LEVEL>=2 LINE 2517 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x00000002 JUMPIF >= L_0004 PUSH FAULT PUSHI #0x00000039 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2518 FAULT(40,0) %IF NMDECS(LEVEL)&1#0 LINE 2518 "regression-compile-tmp/nrimp10s-77.imp" PUSH NMDECS PUSH LEVEL ACCESS PUSHI #0x00000001 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH FAULT PUSHI #0x00000028 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2519 QQ=P; P=P+5;CLT;ROUT=0; LITL=0 LINE 2519 "regression-compile-tmp/nrimp10s-77.imp" PUSH QQ PUSH P ASSVAL LINE 2519 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000005 ADD ASSVAL LINE 2519 "regression-compile-tmp/nrimp10s-77.imp" PUSH CLT CALL LINE 2519 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUT PUSHI #0x00000000 ASSVAL LINE 2519 "regression-compile-tmp/nrimp10s-77.imp" PUSH LITL PUSHI #0x00000000 ASSVAL 2520 %IF A(P)#1 %THEN %START; ! ARRAY DECLARATIONS LINE 2520 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000001 JUMPIF = L_0004 2521 FAULT(70,0) %IF TYPE=5 %AND ACC=0 LINE 2521 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000005 JUMPIF # L_0007 PUSH ACC PUSHI #0x00000000 JUMPIF # L_0007 PUSH FAULT PUSHI #0x00000046 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0007 2522 NAM=0 LINE 2522 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000000 ASSVAL 2523 SET LINE LINE 2523 "regression-compile-tmp/nrimp10s-77.imp" PUSH SETLINE CALL 2524 QQ=2-A(P+1); P=P+2; ! QQ=1 FOR ARRAYFORMATS LINE 2524 "regression-compile-tmp/nrimp10s-77.imp" PUSH QQ PUSHI #0x00000002 PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS SUB ASSVAL LINE 2524 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 2525 DECLARE ARRAYS(QQ,0) LINE 2525 "regression-compile-tmp/nrimp10s-77.imp" PUSH DECLAREARRAYS PUSH QQ ASSPAR PUSHI #0x00000000 ASSPAR CALL 2526 %FINISH %ELSE %START LINE 2526 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 2527 %IF A(QQ+1)=128 %THEN %START;! NOT LINKED&SHUFFLED LINE 2527 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH QQ PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000080 JUMPIF # L_0007 2528 CQN(P+1); P=P+2 LINE 2528 "regression-compile-tmp/nrimp10s-77.imp" PUSH CQN PUSH P PUSHI #0x00000001 ADD ASSPAR CALL LINE 2528 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 2529 DECLARE SCALARS(1,0) LINE 2529 "regression-compile-tmp/nrimp10s-77.imp" PUSH DECLARESCALARS PUSHI #0x00000001 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2530 %FINISH LINE 2530 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 2531 %FINISH LINE 2531 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 2532 ->CSSEXIT 2533 ! LINE 2532 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 2534 SW(9): ! %END LINE 2534 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000009 SLABEL 427 2535 %BEGIN LINE 2535 "regression-compile-tmp/nrimp10s-77.imp" BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id5 {lev=4 --> 5} 2536 %SWITCH S(1:5) LINE 2536 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 PUSHI #0x00000005 BOUNDS DEF S p1=V_01de 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 2537 -> S(A(P+1)) LINE 2537 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS SJUMP 478 2538 S(1): ! ENDOFPROGRAM LINE 2538 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 SLABEL 478 2539 S(2): ! ENDOFFILE LINE 2539 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000002 SLABEL 478 2540 %IF CPRMODE=0 %THEN CPRMODE=2 LINE 2540 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPRMODE PUSHI #0x00000000 JUMPIF # L_0004 PUSH CPRMODE PUSHI #0x00000002 ASSVAL LOCATE L_0004 2541 FAULT(15,0) %UNLESS LEVEL+CPRMODE=3 LINE 2541 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSH CPRMODE ADD PUSHI #0x00000003 JUMPIF = L_0004 PUSH FAULT PUSHI #0x0000000f ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2542 FAULT(56,0) %UNLESS A(P+1)=CPRMODE LINE 2542 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS PUSH CPRMODE JUMPIF = L_0004 PUSH FAULT PUSHI #0x00000038 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2543 CEND(CPRMODE) LINE 2543 "regression-compile-tmp/nrimp10s-77.imp" PUSH CEND PUSH CPRMODE ASSPAR CALL 2544 ->BEND LINE 2544 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01df 2545 S(3): ! ENDOFLIST LINE 2545 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000003 SLABEL 478 2546 LIST=0; LINE 2546 "regression-compile-tmp/nrimp10s-77.imp" PUSH LIST PUSHI #0x00000000 ASSVAL 2547 ->BEND LINE 2547 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01df 2548 S(4): ! END LINE 2548 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000004 SLABEL 478 2549 CEND(FLAG(LEVEL)) LINE 2549 "regression-compile-tmp/nrimp10s-77.imp" PUSH CEND PUSH FLAG PUSH LEVEL ACCESS ASSPAR CALL 2550 BEND: %END LINE 2550 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01df LINE 2550 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_lev4id5 {lev=5 --> 4} 2551 ->CSSEXIT 2552 ! LINE 2551 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 2553 SW(11): LINE 2553 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x0000000b SLABEL 427 2554 %BEGIN LINE 2554 "regression-compile-tmp/nrimp10s-77.imp" BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id6 {lev=4 --> 5} 2555 %INTEGER MARKER1,KK,KKK LINE 2555 "regression-compile-tmp/nrimp10s-77.imp" DEF MARKER1 p1=V_01de 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 KK p1=V_01df 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 KKK p1=V_01e0 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 2556 %STRING(34)XNAME LINE 2556 "regression-compile-tmp/nrimp10s-77.imp" DEF XNAME p1=V_01e1 a/tf=31 b/format=22 c/ostate=0 type=3 (string) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2557 P=P+1; MARKER1=FROM AR2(P)+P; ! (SEX)(RT)(SPEC')(NAME)(FPP) LINE 2557 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 2557 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKER1 PUSH FROMAR2 PUSH P ASSPAR CALL PUSH P ADD ASSVAL 2558 AGN: Q=P; KK=FROM AR2(MARKER1+5); ! KK ON NAME LINE 2558 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01e2 LINE 2558 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH P ASSVAL LINE 2558 "regression-compile-tmp/nrimp10s-77.imp" PUSH KK PUSH FROMAR2 PUSH MARKER1 PUSHI #0x00000005 ADD ASSPAR CALL ASSVAL 2559 EXTRN=A(P+2) LINE 2559 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSH A PUSH P PUSHI #0x00000002 ADD ACCESS ASSVAL 2560 LITL=EXTRN&3 LINE 2560 "regression-compile-tmp/nrimp10s-77.imp" PUSH LITL PUSH EXTRN PUSHI #0x00000003 AND ASSVAL 2561 %IF A(MARKER1)=1 %THEN %START;! P<%SPEC'>='%SPEC' LINE 2561 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH MARKER1 ACCESS PUSHI #0x00000001 JUMPIF # L_0004 2562 P=P+3; CRSPEC(1-EXTRN>>2);! 0 FOR ROUTINESPEC 2563 ! 1 FOR EXTERNAL (ETC) SPEC LINE 2562 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL LINE 2562 "regression-compile-tmp/nrimp10s-77.imp" PUSH CRSPEC PUSHI #0x00000001 PUSH EXTRN PUSHI #0x00000002 RSH SUB ASSPAR CALL 2564 ->BEND LINE 2564 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01e3 2565 %FINISH LINE 2565 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 2566 COPY TAG(KK) LINE 2566 "regression-compile-tmp/nrimp10s-77.imp" PUSH COPYTAG PUSH KK ASSPAR CALL 2567 %IF OLDI=LEVEL %THEN %START LINE 2567 "regression-compile-tmp/nrimp10s-77.imp" PUSH OLDI PUSH LEVEL JUMPIF # L_0004 2568 %IF CPRMODE=0 %THEN CPRMODE=2;! FLAG AS FILE OF ROUTINES 2569 ! LINE 2568 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPRMODE PUSHI #0x00000000 JUMPIF # L_0007 PUSH CPRMODE PUSHI #0x00000002 ASSVAL LOCATE L_0007 2570 %IF (CPRMODE=2 %AND LEVEL=1) %START LINE 2570 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPRMODE PUSHI #0x00000002 JUMPIF # L_0007 PUSH LEVEL PUSHI #0x00000001 JUMPIF # L_0007 2571 %IF EXTRN=3 %THEN EXTRN=2 LINE 2571 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000003 JUMPIF # L_000a PUSH EXTRN PUSHI #0x00000002 ASSVAL LOCATE L_000a 2572 XNAME<-STRING(DICTBASE+WORD(KK)) LINE 2572 "regression-compile-tmp/nrimp10s-77.imp" PUSH XNAME PUSH STRING PUSH DICTBASE PUSH WORD PUSH KK ACCESS ADD ASSPAR CALL JAM 2573 %IF EXTRN=1 %THEN XNAME<-"S#".XNAME LINE 2573 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000001 JUMPIF # L_000a PUSH XNAME PUSHS "S#" PUSH XNAME CONCAT JAM LOCATE L_000a 2574 %IF EXTRN=4 %THEN XNAME="" LINE 2574 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000004 JUMPIF # L_000a PUSH XNAME PUSHS "" ASSVAL LOCATE L_000a 2575 JJ=MIDCELL; ! CODE DESCRIPTOR REL ADDR LINE 2575 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSH MIDCELL ASSVAL 2576 %IF EXTRN#4 %THEN USEBITS=2 LINE 2576 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000004 JUMPIF = L_000a PUSH USEBITS PUSHI #0x00000002 ASSVAL LOCATE L_000a 2577 DEFINE EP(XNAME,CA,JJ,0) LINE 2577 "regression-compile-tmp/nrimp10s-77.imp" PUSH DEFINEEP PUSH XNAME ASSPAR PUSH CA ASSPAR PUSH JJ ASSPAR PUSHI #0x00000000 ASSPAR CALL 2578 %IF JJ#0 %THEN PSF1(INCA,0,-JJ) LINE 2578 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSHI #0x00000000 JUMPIF = L_000a PUSH PSF1 PUSHI #0x00000014 ASSPAR PUSHI #0x00000000 ASSPAR PUSH JJ NEGATE ASSPAR CALL LOCATE L_000a 2579 %FINISH %ELSE %START; ! EXTERNALS IN PRGM OR WRNG LEVEL LINE 2579 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 2580 FAULT(55,KK) %UNLESS EXTRN=4; EXTRN=4 LINE 2580 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000004 JUMPIF = L_000a PUSH FAULT PUSHI #0x00000037 ASSPAR PUSH KK ASSPAR CALL LOCATE L_000a LINE 2580 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000004 ASSVAL 2581 %FINISH LINE 2581 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 2582 %IF A(P+3)=1 %THEN KKK=LITL<<14!16_1000 %ELSE %START LINE 2582 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000003 ADD ACCESS PUSHI #0x00000001 JUMPIF # L_0007 PUSH KKK PUSH LITL PUSHI #0x0000000e LSH PUSHI #0x00001000 OR ASSVAL GOTO L_0006 LOCATE L_0007 2583 ROUT=1; P=P+4; ! FIGURE OUT PTYPE FOR FNS&MAPS LINE 2583 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUT PUSHI #0x00000001 ASSVAL LINE 2583 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000004 ADD ASSVAL 2584 CLT; ARR=0; NAM=0 LINE 2584 "regression-compile-tmp/nrimp10s-77.imp" PUSH CLT CALL LINE 2584 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARR PUSHI #0x00000000 ASSVAL LINE 2584 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000000 ASSVAL 2585 %IF A(P)=2 %THEN NAM=2; ! SET NAME ARRAY BIT FOR MAPS LINE 2585 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000002 JUMPIF # L_000a PUSH NAM PUSHI #0x00000002 ASSVAL LOCATE L_000a 2586 PACK(KKK); ! AND STORE PTYPE IN KKK LINE 2586 "regression-compile-tmp/nrimp10s-77.imp" PUSH PACK PUSH KKK ASSPAR CALL 2587 %FINISH LINE 2587 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 2588 %FINISH LINE 2588 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 2589 %UNLESS OLDI=LEVEL %AND J=15 %AND PTYPE=KKK %START LINE 2589 "regression-compile-tmp/nrimp10s-77.imp" PUSH OLDI PUSH LEVEL JUMPIF # L_0005 PUSH J PUSHI #0x0000000f JUMPIF # L_0005 PUSH PTYPE PUSH KKK JUMPIF = L_0004 LOCATE L_0005 2590 P=Q+3; CRSPEC(0); P=Q; ->AGN LINE 2590 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH Q PUSHI #0x00000003 ADD ASSVAL LINE 2590 "regression-compile-tmp/nrimp10s-77.imp" PUSH CRSPEC PUSHI #0x00000000 ASSPAR CALL LINE 2590 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH Q ASSVAL LINE 2590 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01e2 2591 %FINISH LINE 2591 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 2592 PTYPE=PTYPE!(EXTRN&3)<<14; ! DEAL WITH %ROUTINESPEC FOLLOWED 2593 ! BY %EXTERNALROUTINE LINE 2592 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSH PTYPE PUSH EXTRN PUSHI #0x00000003 AND PUSHI #0x0000000e LSH OR ASSVAL 2594 %BEGIN LINE 2594 "regression-compile-tmp/nrimp10s-77.imp" BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id6_lev5id7 {lev=5 --> 6} 2595 %INTEGER PTR,PTYPEP,CNT,PP LINE 2595 "regression-compile-tmp/nrimp10s-77.imp" DEF PTR p1=V_01e4 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 PTYPEP p1=V_01e5 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 CNT p1=V_01e6 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 PP p1=V_01e7 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 2596 J=0; REPLACE TAG(KK);! BODY GIVEN SO UPDATE TAGS INFO LINE 2596 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000000 ASSVAL LINE 2596 "regression-compile-tmp/nrimp10s-77.imp" PUSH REPLACETAG PUSH KK ASSPAR CALL 2597 JJ=K; PLABEL=PLABEL-1 LINE 2597 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSH K ASSVAL LINE 2597 "regression-compile-tmp/nrimp10s-77.imp" PUSH PLABEL PUSH PLABEL PUSHI #0x00000001 SUB ASSVAL 2598 %UNLESS COMPILER=1 %OR (CPRMODE=2 %AND LEVEL=1) %START LINE 2598 "regression-compile-tmp/nrimp10s-77.imp" PUSH COMPILER PUSHI #0x00000001 JUMPIF = L_0004 PUSH CPRMODE PUSHI #0x00000002 JUMPIF # L_0005 PUSH LEVEL PUSHI #0x00000001 JUMPIF = L_0004 LOCATE L_0005 2599 %IF JROUND(LEVEL+1)=0 %START; ! NOT JUMP OUTSTANDING LINE 2599 "regression-compile-tmp/nrimp10s-77.imp" PUSH JROUND PUSH LEVEL PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000000 JUMPIF # L_0007 2600 JROUND(LEVEL+1)=PLABEL LINE 2600 "regression-compile-tmp/nrimp10s-77.imp" PUSH JROUND PUSH LEVEL PUSHI #0x00000001 ADD ACCESS PUSH PLABEL ASSVAL 2601 ENTER JUMP(15,PLABEL,0) LINE 2601 "regression-compile-tmp/nrimp10s-77.imp" PUSH ENTERJUMP PUSHI #0x0000000f ASSPAR PUSH PLABEL ASSPAR PUSHI #0x00000000 ASSPAR CALL 2602 %FINISH LINE 2602 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 2603 %FINISH LINE 2603 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 2604 PTYPEP=PTYPE LINE 2604 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPEP PUSH PTYPE ASSVAL 2605 P=MARKER1+7 LINE 2605 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH MARKER1 PUSHI #0x00000007 ADD ASSVAL 2606 RHEAD(KK) LINE 2606 "regression-compile-tmp/nrimp10s-77.imp" PUSH RHEAD PUSH KK ASSPAR CALL 2607 N=20; CNT=1 LINE 2607 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSHI #0x00000014 ASSVAL LINE 2607 "regression-compile-tmp/nrimp10s-77.imp" PUSH CNT PUSHI #0x00000001 ASSVAL 2608 %WHILE A(P)=1 %CYCLE; ! WHILE SOME (MORE) FP PART LINE 2608 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH A PUSH P ACCESS PUSHI #0x00000001 JUMPIF # L_0004 2609 PP=P+1+FROMAR2(P+1) LINE 2609 "regression-compile-tmp/nrimp10s-77.imp" PUSH PP PUSH P PUSHI #0x00000001 ADD PUSH FROMAR2 PUSH P PUSHI #0x00000001 ADD ASSPAR CALL ADD ASSVAL 2610 P=P+3 LINE 2610 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL 2611 CFPDEL LINE 2611 "regression-compile-tmp/nrimp10s-77.imp" PUSH CFPDEL CALL 2612 PTR=P LINE 2612 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTR PUSH P ASSVAL 2613 {%UNTIL A(PTR-1)=2} %CYCLE; ! CYCLE DOWN NAMELIST LINE 2613 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 2614 %IF JJ#0 %THEN %START LINE 2614 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSHI #0x00000000 JUMPIF = L_000a 2615 FROM12(JJ,J,JJJ); ! EXTRACT PTYPE XTRA INFO LINE 2615 "regression-compile-tmp/nrimp10s-77.imp" PUSH FROM12 PUSH JJ ASSPAR PUSH J ASSPAR PUSH JJJ ASSPAR CALL 2616 %UNLESS J>>16=PTYPE %AND(PTYPE#5 %OR JJJ>>16=ACC) %THEN FAULT2(9,CNT,KK) LINE 2616 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000010 RSH PUSH PTYPE JUMPIF # L_000e PUSH PTYPE PUSHI #0x00000005 JUMPIF # L_000d PUSH JJJ PUSHI #0x00000010 RSH PUSH ACC JUMPIF = L_000d LOCATE L_000e PUSH FAULT2 PUSHI #0x00000009 ASSPAR PUSH CNT ASSPAR PUSH KK ASSPAR CALL LOCATE L_000d 2617 %FINISH %ELSE FAULT2(8,0,KK);! MORE FPS THAN IN SPEC LINE 2617 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0009 LOCATE L_000a PUSH FAULT2 PUSHI #0x00000008 ASSPAR PUSHI #0x00000000 ASSPAR PUSH KK ASSPAR CALL LOCATE L_0009 2618 PTR=PTR+3 LINE 2618 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTR PUSH PTR PUSHI #0x00000003 ADD ASSVAL 2619 CNT=CNT+1 LINE 2619 "regression-compile-tmp/nrimp10s-77.imp" PUSH CNT PUSH CNT PUSHI #0x00000001 ADD ASSVAL 2620 MLINK(JJ) LINE 2620 "regression-compile-tmp/nrimp10s-77.imp" PUSH MLINK PUSH JJ ASSPAR CALL 2621 %REPEAT %UNTIL A(PTR-1)=2 LINE 2621 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH PTR PUSHI #0x00000001 SUB ACCESS PUSHI #0x00000002 JUMPIF = L_0007 REPEAT L_0006 LOCATE L_0007 2622 DECLARE SCALARS(0,0) LINE 2622 "regression-compile-tmp/nrimp10s-77.imp" PUSH DECLARESCALARS PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2623 P=PP LINE 2623 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH PP ASSVAL 2624 %REPEAT; ! UNTIL NO MORE FP-PART LINE 2624 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 2625 N=(N+3)&(-4); ! TO WORD BOUNDARY AFTER ALL SYSTEM 2626 ! STANDARD PARAMETERS HAVE BEEN DECLARED LINE 2625 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSHI #0x00000003 ADD PUSHI #0x00000004 NEGATE AND ASSVAL 2627 FAULT2(10,0,KK) %UNLESS JJ=0 LINE 2627 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSHI #0x00000000 JUMPIF = L_0004 PUSH FAULT2 PUSHI #0x0000000a ASSPAR PUSHI #0x00000000 ASSPAR PUSH KK ASSPAR CALL LOCATE L_0004 2628 PTYPE=PTYPEP LINE 2628 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSH PTYPEP ASSVAL 2629 %IF PTYPE&16_F0F=5 %THEN N=N+8;! STR FNS RESULT PARAM IS STACKED 2630 ! AS XTRA PARM JUST BEFORE DISPLAY LINE 2629 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000f0f AND PUSHI #0x00000005 JUMPIF # L_0004 PUSH N PUSH N PUSHI #0x00000008 ADD ASSVAL LOCATE L_0004 2631 RDISPLAY(KK) LINE 2631 "regression-compile-tmp/nrimp10s-77.imp" PUSH RDISPLAY PUSH KK ASSPAR CALL 2632 MAKE DECS(MARKER1+1) LINE 2632 "regression-compile-tmp/nrimp10s-77.imp" PUSH MAKEDECS PUSH MARKER1 PUSHI #0x00000001 ADD ASSPAR CALL 2633 %END LINE 2633 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_lev4id6_lev5id7 {lev=6 --> 5} 2634 BEND: %END; ->CSSEXIT 2635 ! LINE 2634 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01e3 LINE 2634 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_lev4id6 {lev=5 --> 4} LINE 2634 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 2636 SW(13): !REALS(LN) LINE 2636 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x0000000d SLABEL 427 2637 FAULT(58,0) %UNLESS CPRMODE=0 LINE 2637 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPRMODE PUSHI #0x00000000 JUMPIF = L_0004 PUSH FAULT PUSHI #0x0000003a ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2638 ALL LONG=A(P+1)&1;->CSSEXIT 2639 ! LINE 2638 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALLLONG PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000001 AND ASSVAL LINE 2638 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 2640 SW(14): !%BEGIN LINE 2640 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x0000000e SLABEL 427 2641 %BEGIN LINE 2641 "regression-compile-tmp/nrimp10s-77.imp" BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id8 {lev=4 --> 5} 2642 PTYPE=0 LINE 2642 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000000 ASSVAL 2643 %IF LEVEL=1 %AND RLEVEL=0 %AND CPRMODE=0 %START LINE 2643 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x00000001 JUMPIF # L_0004 PUSH RLEVEL PUSHI #0x00000000 JUMPIF # L_0004 PUSH CPRMODE PUSHI #0x00000000 JUMPIF # L_0004 2644 CODE DES(JJ) LINE 2644 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODEDES PUSH JJ ASSPAR CALL 2645 DEFINE EP(MAINEP, CA, JJ, 1) LINE 2645 "regression-compile-tmp/nrimp10s-77.imp" PUSH DEFINEEP PUSH MAINEP ASSPAR PUSH CA ASSPAR PUSH JJ ASSPAR PUSHI #0x00000001 ASSPAR CALL 2646 RLEVEL=1; RBASE=1 LINE 2646 "regression-compile-tmp/nrimp10s-77.imp" PUSH RLEVEL PUSHI #0x00000001 ASSVAL LINE 2646 "regression-compile-tmp/nrimp10s-77.imp" PUSH RBASE PUSHI #0x00000001 ASSVAL 2647 L(1)=0; M(1)=0; DIAGINF(1)=0; AUXSBASE(1)=0 LINE 2647 "regression-compile-tmp/nrimp10s-77.imp" PUSH L PUSHI #0x00000001 ACCESS PUSHI #0x00000000 ASSVAL LINE 2647 "regression-compile-tmp/nrimp10s-77.imp" PUSH M PUSHI #0x00000001 ACCESS PUSHI #0x00000000 ASSVAL LINE 2647 "regression-compile-tmp/nrimp10s-77.imp" PUSH DIAGINF PUSHI #0x00000001 ACCESS PUSHI #0x00000000 ASSVAL LINE 2647 "regression-compile-tmp/nrimp10s-77.imp" PUSH AUXSBASE PUSHI #0x00000001 ACCESS PUSHI #0x00000000 ASSVAL 2648 CPRMODE=1 LINE 2648 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPRMODE PUSHI #0x00000001 ASSVAL 2649 N=24; NMAX=N LINE 2649 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSHI #0x00000018 ASSVAL LINE 2649 "regression-compile-tmp/nrimp10s-77.imp" PUSH NMAX PUSH N ASSVAL 2650 FORGET(-1) LINE 2650 "regression-compile-tmp/nrimp10s-77.imp" PUSH FORGET PUSHI #0x00000001 NEGATE ASSPAR CALL 2651 DIAG POINTER(LEVEL+1) 2652 ! 2653 ! THE CODE PLANTED IS AS FOLLOWS:- 2654 ! STD (LNB+3) SAVE DESCRIPTOG TO GLA(PLT) 2655 ! LXN (LNB+4) TO GLA(PLT) 2656 ! STLN (XNB+5) SAVE LNB FOR STOP SEQUENCE 2657 ! ASF 1 FOR REPORT WORD 2658 ! LINE 2651 "regression-compile-tmp/nrimp10s-77.imp" PUSH DIAGPOINTER PUSH LEVEL PUSHI #0x00000001 ADD ASSPAR CALL 2659 PSF1(STD,1,12) LINE 2659 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000058 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x0000000c ASSPAR CALL 2660 PSF1(LXN,1,16) LINE 2660 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000007e ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x00000010 ASSPAR CALL 2661 PF1(STLN,0,XNB,20) 2662 ! PSF1(ASF,0,1) 2663 ! 2664 ! THE NEXT 8 INSTRUCTIONS ARE REQUIRED TO SET SF 6 WORDS IN FRONT OF LNB 2665 ! AN ASF 1 WORKS AS WELL EXCEPT FOR K-STAND ALONE WHEN THERE MAY BE 2666 ! A USELESS REDUNDANT DESCRIPTOR ON THE STACK 2667 ! LINE 2661 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000005c ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000003 ASSPAR PUSHI #0x00000014 ASSPAR CALL 2668 PF1(STLN,0,TOS,0) LINE 2668 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000005c ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2669 PF1(LSS,0,TOS,0) LINE 2669 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2670 PSF1(IAD,0,24) LINE 2670 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x000000e0 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000018 ASSPAR CALL 2671 PF1(STSF,0,TOS,0) LINE 2671 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000005e ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2672 PF1(ISB,0,TOS,0) LINE 2672 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x000000e2 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2673 PSF1(ISH,0,-2) LINE 2673 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x000000e8 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000002 NEGATE ASSPAR CALL 2674 PF1(ST,0,BREG,0) LINE 2674 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000007 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2675 PF1(ASF,0,BREG,0) 2676 ! 2677 ! 2678 ! SET THE PROGRAM MASK TO MASK OUT UNDERFLOW AND ALLOW ALL OTHER INTS 2679 ! 2680 ! MPSR 16_40C0 2681 ! LINE 2675 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000006e ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000007 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2682 PF1(MPSR,0,0,16_40C0) LINE 2682 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000032 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x000040c0 ASSPAR CALL 2683 PTYPE=1 LINE 2683 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000001 ASSVAL 2684 %FINISH %ELSE SET LINE; ! SO 'ENTERED FROM LINE' IS OK LINE 2684 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 PUSH SETLINE CALL LOCATE L_0003 2685 RHEAD(-1) LINE 2685 "regression-compile-tmp/nrimp10s-77.imp" PUSH RHEAD PUSHI #0x00000001 NEGATE ASSPAR CALL 2686 RDISPLAY(-1) LINE 2686 "regression-compile-tmp/nrimp10s-77.imp" PUSH RDISPLAY PUSHI #0x00000001 NEGATE ASSPAR CALL 2687 MAKE DECS(P+1) LINE 2687 "regression-compile-tmp/nrimp10s-77.imp" PUSH MAKEDECS PUSH P PUSHI #0x00000001 ADD ASSPAR CALL 2688 %END LINE 2688 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_lev4id8 {lev=5 --> 4} 2689 ->CSSEXIT 2690 ! LINE 2689 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 2691 SW(15): 2692 ! '%ON'(EVENT')(N)(NLIST)'%START' LINE 2691 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x0000000f SLABEL 427 2693 FAULT(57,0) %UNLESS LEVEL>=2 LINE 2693 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x00000002 JUMPIF >= L_0004 PUSH FAULT PUSHI #0x00000039 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2694 FAULT(40,0) %IF NMDECS(LEVEL)&1#0 LINE 2694 "regression-compile-tmp/nrimp10s-77.imp" PUSH NMDECS PUSH LEVEL ACCESS PUSHI #0x00000001 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH FAULT PUSHI #0x00000028 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2695 NMDECS(LEVEL)=NMDECS(LEVEL)!16_11;! NO MORE DECS AND IN ONCOND LINE 2695 "regression-compile-tmp/nrimp10s-77.imp" PUSH NMDECS PUSH LEVEL ACCESS PUSH NMDECS PUSH LEVEL ACCESS PUSHI #0x00000011 OR ASSVAL 2696 %IF STACK=0 %THEN %START LINE 2696 "regression-compile-tmp/nrimp10s-77.imp" PUSH STACK PUSHI #0x00000000 JUMPIF # L_0004 2697 SAVE AUX STACK LINE 2697 "regression-compile-tmp/nrimp10s-77.imp" PUSH SAVEAUXSTACK CALL 2698 DISP=AUXSBASE(LEVEL) LINE 2698 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSH AUXSBASE PUSH LEVEL ACCESS ASSVAL 2699 PSF1(LSS,2,DISP); ! SAVE TOP OF AUX STACK LINE 2699 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000002 ASSPAR PUSH DISP ASSPAR CALL 2700 PSF1(ST,1,DISP+12) LINE 2700 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000001 ASSPAR PUSH DISP PUSHI #0x0000000c ADD ASSPAR CALL 2701 %FINISH LINE 2701 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 2702 GRUSE(ACCR)=0 LINE 2702 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL 2703 PSF1(CPSR,1,N+8) LINE 2703 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000034 ASSPAR PUSHI #0x00000001 ASSPAR PUSH N PUSHI #0x00000008 ADD ASSPAR CALL 2704 PLABEL=PLABEL-1 LINE 2704 "regression-compile-tmp/nrimp10s-77.imp" PUSH PLABEL PUSH PLABEL PUSHI #0x00000001 SUB ASSVAL 2705 JJJ=PLABEL LINE 2705 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJJ PUSH PLABEL ASSVAL 2706 ENTER JUMP(15,JJJ,B'10'); ! JUMP ROUND ON BODY 2707 ! LINE 2706 "regression-compile-tmp/nrimp10s-77.imp" PUSH ENTERJUMP PUSHI #0x0000000f ASSPAR PUSH JJJ ASSPAR PUSHI #0x00000002 ASSPAR CALL 2708 P=P+2; JJ=0; ! SET UP A BITMASK IN JJ LINE 2708 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL LINE 2708 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSHI #0x00000000 ASSVAL 2709 {%UNTIL A(P-1)=2} %CYCLE; ! UNTIL NO MORE NLIST LINE 2709 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 2710 KK=A(P) LINE 2710 "regression-compile-tmp/nrimp10s-77.imp" PUSH KK PUSH A PUSH P ACCESS ASSVAL 2711 FAULT2(26,KK,0) %UNLESS 1<=KK<=14 LINE 2711 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 PUSH KK JUMPIFD > L_0008 PUSHI #0x0000000e JUMPIF <= L_0007 LOCATE L_0008 PUSH FAULT2 PUSHI #0x0000001a ASSPAR PUSH KK ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0007 2712 JJ=JJ!1<<(KK-1) LINE 2712 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSH JJ PUSHI #0x00000001 PUSH KK PUSHI #0x00000001 SUB LSH OR ASSVAL 2713 P=P+2 LINE 2713 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 2714 %REPEAT %UNTIL A(P-1)=2 LINE 2714 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 SUB ACCESS PUSHI #0x00000002 JUMPIF = L_0004 REPEAT L_0003 LOCATE L_0004 2715 KK=CA; PGLA(4,4,ADDR(CA)) LINE 2715 "regression-compile-tmp/nrimp10s-77.imp" PUSH KK PUSH CA ASSVAL LINE 2715 "regression-compile-tmp/nrimp10s-77.imp" PUSH PGLA PUSHI #0x00000004 ASSPAR PUSHI #0x00000004 ASSPAR PUSH ADDR PUSH CA ASSPAR CALL ASSPAR CALL 2716 RELOCATE(GLACA-4,KK,1); ! ENTRY ADDRESS IN PLT LINE 2716 "regression-compile-tmp/nrimp10s-77.imp" PUSH RELOCATE PUSH GLACA PUSHI #0x00000004 SUB ASSPAR PUSH KK ASSPAR PUSHI #0x00000001 ASSPAR CALL 2717 ONWORD(LEVEL)=JJ<<18!(GLACA-4) LINE 2717 "regression-compile-tmp/nrimp10s-77.imp" PUSH ONWORD PUSH LEVEL ACCESS PUSH JJ PUSHI #0x00000012 LSH PUSH GLACA PUSHI #0x00000004 SUB OR ASSVAL 2718 FORGET(-1) LINE 2718 "regression-compile-tmp/nrimp10s-77.imp" PUSH FORGET PUSHI #0x00000001 NEGATE ASSPAR CALL 2719 PSF1(ST,1,N); ! STORE EVENT,SUBEVENT&LINE LINE 2719 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000001 ASSPAR PUSH N ASSPAR CALL 2720 PSF1(MPSR,1,N+8) LINE 2720 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000032 ASSPAR PUSHI #0x00000001 ASSPAR PUSH N PUSHI #0x00000008 ADD ASSPAR CALL 2721 ONINF(LEVEL)=N; N=N+12 LINE 2721 "regression-compile-tmp/nrimp10s-77.imp" PUSH ONINF PUSH LEVEL ACCESS PUSH N ASSVAL LINE 2721 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSHI #0x0000000c ADD ASSVAL 2722 %IF STACK=0 %THEN %START LINE 2722 "regression-compile-tmp/nrimp10s-77.imp" PUSH STACK PUSHI #0x00000000 JUMPIF # L_0004 2723 PSF1(LSS,1,DISP+12); ! RESET AUX STACK TOP LINE 2723 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000001 ASSPAR PUSH DISP PUSHI #0x0000000c ADD ASSPAR CALL 2724 PSF1(ST,2,DISP) LINE 2724 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000002 ASSPAR PUSH DISP ASSPAR CALL 2725 %FINISH LINE 2725 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 2726 CSTART(0,3) LINE 2726 "regression-compile-tmp/nrimp10s-77.imp" PUSH CSTART PUSHI #0x00000000 ASSPAR PUSHI #0x00000003 ASSPAR CALL 2727 NMDECS(LEVEL)=NMDECS(LEVEL)!!16_10;! NOT IN ONCOND LINE 2727 "regression-compile-tmp/nrimp10s-77.imp" PUSH NMDECS PUSH LEVEL ACCESS PUSH NMDECS PUSH LEVEL ACCESS PUSHI #0x00000010 XOR ASSVAL 2728 JJ=ENTER LAB(JJJ,B'111'); ! REPLACE ENVIRONMENT LINE 2728 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSH ENTERLAB PUSH JJJ ASSPAR PUSHI #0x00000007 ASSPAR CALL ASSVAL 2729 ->CSSEXIT LINE 2729 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 2730 SW(16): LINE 2730 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000010 SLABEL 427 2731 FAULT(57,0) %UNLESS LEVEL>=2 LINE 2731 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x00000002 JUMPIF >= L_0004 PUSH FAULT PUSHI #0x00000039 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 2732 %BEGIN; ! %SWITCH (SWITCH LIST) LINE 2732 "regression-compile-tmp/nrimp10s-77.imp" BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id9 {lev=4 --> 5} 2733 %INTEGER Q,RANGE,KKK,KK,LB,PP,D0,D1,OPHEAD,V,ARRP,R LINE 2733 "regression-compile-tmp/nrimp10s-77.imp" DEF Q p1=V_01de 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 RANGE p1=V_01df 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 KKK p1=V_01e0 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 KK p1=V_01e1 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 LB p1=V_01e2 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 PP p1=V_01e3 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 D0 p1=V_01e4 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 D1 p1=V_01e5 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 OPHEAD p1=V_01e6 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_01e7 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 ARRP p1=V_01e8 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 R p1=V_01e9 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 2734 Q=P LINE 2734 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH P ASSVAL 2735 ARRP=1 LINE 2735 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARRP PUSHI #0x00000001 ASSVAL 2736 %IF PARMOPT=0 %THEN ARRP=2 LINE 2736 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMOPT PUSHI #0x00000000 JUMPIF # L_0004 PUSH ARRP PUSHI #0x00000002 ASSVAL LOCATE L_0004 2737 {%UNTIL A(Q)=2} %CYCLE; ! UNTIL NO'REST OF SW LIST' LINE 2737 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 2738 P=P+3 LINE 2738 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL 2739 P=P+3 %WHILE A(P)=1 LINE 2739 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 PUSH A PUSH P ACCESS PUSHI #0x00000001 JUMPIF # L_0007 PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL REPEAT L_0006 LOCATE L_0007 2740 P=P+4; ! TO P(+') LINE 2740 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000004 ADD ASSVAL 2741 KKK=INTEXP(LB); ! EXTRACT LOWER BOUND LINE 2741 "regression-compile-tmp/nrimp10s-77.imp" PUSH KKK PUSH INTEXP PUSH LB ASSPAR CALL ASSVAL 2742 P=P+3 LINE 2742 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL 2743 KKK=KKK!INTEXP(KK); ! EXTRACT UPPER BOUND LINE 2743 "regression-compile-tmp/nrimp10s-77.imp" PUSH KKK PUSH KKK PUSH INTEXP PUSH KK ASSPAR CALL OR ASSVAL 2744 RANGE=(KK-LB+1) LINE 2744 "regression-compile-tmp/nrimp10s-77.imp" PUSH RANGE PUSH KK PUSH LB SUB PUSHI #0x00000001 ADD ASSVAL 2745 %IF RANGE<=0 %OR KKK#0 %START LINE 2745 "regression-compile-tmp/nrimp10s-77.imp" PUSH RANGE PUSHI #0x00000000 JUMPIF <= L_0008 PUSH KKK PUSHI #0x00000000 JUMPIF = L_0007 LOCATE L_0008 2746 FAULT2(38,1-RANGE,FROMAR2(Q+1)) LINE 2746 "regression-compile-tmp/nrimp10s-77.imp" PUSH FAULT2 PUSHI #0x00000026 ASSPAR PUSHI #0x00000001 PUSH RANGE SUB ASSPAR PUSH FROMAR2 PUSH Q PUSHI #0x00000001 ADD ASSPAR CALL ASSPAR CALL 2747 LB=0; KK=10; RANGE=11 LINE 2747 "regression-compile-tmp/nrimp10s-77.imp" PUSH LB PUSHI #0x00000000 ASSVAL LINE 2747 "regression-compile-tmp/nrimp10s-77.imp" PUSH KK PUSHI #0x0000000a ASSVAL LINE 2747 "regression-compile-tmp/nrimp10s-77.imp" PUSH RANGE PUSHI #0x0000000b ASSVAL 2748 %FINISH LINE 2748 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 2749 %IF GLACA+8-4*LB<0 %THEN ARRP=1;! ZEROETH ELEMENT OFF FRONT LINE 2749 "regression-compile-tmp/nrimp10s-77.imp" PUSH GLACA PUSHI #0x00000008 ADD PUSHI #0x00000004 PUSH LB MUL SUB PUSHI #0x00000000 JUMPIF >= L_0007 PUSH ARRP PUSHI #0x00000001 ASSVAL LOCATE L_0007 2750 PTYPE=16_56+ARRP<<8; ! WORD LABEL ARRAY LINE 2750 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000056 PUSH ARRP PUSHI #0x00000008 LSH ADD ASSVAL 2751 PP=P; P=Q+1 LINE 2751 "regression-compile-tmp/nrimp10s-77.imp" PUSH PP PUSH P ASSVAL LINE 2751 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH Q PUSHI #0x00000001 ADD ASSVAL 2752 {%UNTIL A(P-1)=2} %CYCLE; ! DOWN NAMELIST LINE 2752 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 2753 K=FROM AR2(P) LINE 2753 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH FROMAR2 PUSH P ASSPAR CALL ASSVAL 2754 P=P+3 LINE 2754 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL 2755 OPHEAD=0; R=LB 2756 ! 2757 ! SET UP A BIT LIST (96 BITS PER CELL) TO CHECK FOR SWITCH LABELS 2758 ! SET TWICE 2759 ! LINE 2755 "regression-compile-tmp/nrimp10s-77.imp" PUSH OPHEAD PUSHI #0x00000000 ASSVAL LINE 2755 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH LB ASSVAL 2760 {%UNTIL R>KK} %CYCLE LINE 2760 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 2761 PUSH(OPHEAD,0,0,0) LINE 2761 "regression-compile-tmp/nrimp10s-77.imp" PUSH PUSH PUSH OPHEAD ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL 2762 R=R+96 LINE 2762 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSHI #0x00000060 ADD ASSVAL 2763 %REPEAT %UNTIL R>KK 2764 ! 2765 ! FOR CHECKING MODE USE A BOUNDED WORD DESCRIPTOR AND WORD SIZE 2766 ! ENTRIES PRESET TO "SW LABEL NOT SET". OPTIMISING USE BCI WORD 2767 ! ARRAYS WITH BASE SET TO ZEROETH ELEMENT 2768 LINE 2763 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH KK JUMPIF > L_000a REPEAT L_0009 LOCATE L_000a 2769 D1=(GLACA+15)&(-8); ! FIRST TABLE ENTRY LINE 2769 "regression-compile-tmp/nrimp10s-77.imp" PUSH D1 PUSH GLACA PUSHI #0x0000000f ADD PUSHI #0x00000008 NEGATE AND ASSVAL 2770 D0=16_28000000!RANGE; ! SCALED WORD DES LINE 2770 "regression-compile-tmp/nrimp10s-77.imp" PUSH D0 PUSHI #0x28000000 PUSH RANGE OR ASSVAL 2771 %IF ARRP=2 %THEN %START LINE 2771 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARRP PUSHI #0x00000002 JUMPIF # L_000a 2772 D0=D0!16_01000000 %UNLESS LB=0;! SET BCI BIT LINE 2772 "regression-compile-tmp/nrimp10s-77.imp" PUSH LB PUSHI #0x00000000 JUMPIF = L_000d PUSH D0 PUSH D0 PUSHI #0x01000000 OR ASSVAL LOCATE L_000d 2773 D1=D1-4*LB LINE 2773 "regression-compile-tmp/nrimp10s-77.imp" PUSH D1 PUSH D1 PUSHI #0x00000004 PUSH LB MUL SUB ASSVAL 2774 %FINISH LINE 2774 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000a 2775 PGLA(8,8,ADDR(D0)) LINE 2775 "regression-compile-tmp/nrimp10s-77.imp" PUSH PGLA PUSHI #0x00000008 ASSPAR PUSHI #0x00000008 ASSPAR PUSH ADDR PUSH D0 ASSPAR CALL ASSPAR CALL 2776 SNDISP=GLACA>>2-2; ! WORD PLT DISP LINE 2776 "regression-compile-tmp/nrimp10s-77.imp" PUSH SNDISP PUSH GLACA PUSHI #0x00000002 RSH PUSHI #0x00000002 SUB ASSVAL 2777 RELOCATE(GLACA-4,D1,2); ! RELOCATE RELATIVE TO GLA LINE 2777 "regression-compile-tmp/nrimp10s-77.imp" PUSH RELOCATE PUSH GLACA PUSHI #0x00000004 SUB ASSPAR PUSH D1 ASSPAR PUSHI #0x00000002 ASSPAR CALL 2778 PUSH(OPHEAD,D1,LB,KK) LINE 2778 "regression-compile-tmp/nrimp10s-77.imp" PUSH PUSH PUSH OPHEAD ASSPAR PUSH D1 ASSPAR PUSH LB ASSPAR PUSH KK ASSPAR CALL 2779 KFORM=0; ACC=4 LINE 2779 "regression-compile-tmp/nrimp10s-77.imp" PUSH KFORM PUSHI #0x00000000 ASSVAL LINE 2779 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSHI #0x00000004 ASSVAL 2780 J=1; STORE TAG(K,OPHEAD) 2781 ! 2782 !THE TABLE WILL CONSIST OF RELATIVE DISPLACEMENTS FROM THE TABLE HEAD 2783 ! TO THE LABEL POSN. SET ALL TO GO TO PLAB(6) INITIALLY 2784 ! LINE 2780 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000001 ASSVAL LINE 2780 "regression-compile-tmp/nrimp10s-77.imp" PUSH STORETAG PUSH K ASSPAR PUSH OPHEAD ASSPAR CALL 2785 V=PLABS(6) LINE 2785 "regression-compile-tmp/nrimp10s-77.imp" PUSH V PUSH PLABS PUSHI #0x00000006 ACCESS ASSVAL 2786 %CYCLE KKK=LB,1,KK LINE 2786 "regression-compile-tmp/nrimp10s-77.imp" PUSH KKK PUSHI #0x00000001 PUSH KK PUSH LB FOR L_0009 2787 RELOCATE(-1,V,1); ! PLABS(6) RELOCATED BY HD OF CODE LINE 2787 "regression-compile-tmp/nrimp10s-77.imp" PUSH RELOCATE PUSHI #0x00000001 NEGATE ASSPAR PUSH V ASSPAR PUSHI #0x00000001 ASSPAR CALL 2788 %REPEAT LINE 2788 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0009 LOCATE L_000a 2789 %REPEAT %UNTIL A(P-1)=2; ! FOR ANY MORE NAMES IN NAMELIST LINE 2789 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 SUB ACCESS PUSHI #0x00000002 JUMPIF = L_0007 REPEAT L_0006 LOCATE L_0007 2790 Q=PP; P=Q LINE 2790 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH PP ASSVAL LINE 2790 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH Q ASSVAL 2791 %REPEAT %UNTIL A(Q)=2; ! UNTIL A(Q)=2 LINE 2791 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH Q ACCESS PUSHI #0x00000002 JUMPIF = L_0004 REPEAT L_0003 LOCATE L_0004 2792 %END;->CSSEXIT 2793 ! LINE 2792 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_lev4id9 {lev=5 --> 4} LINE 2792 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 2794 SW(17): LIST=1; ->CSSEXIT 2795 ! LINE 2794 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000011 SLABEL 427 LINE 2794 "regression-compile-tmp/nrimp10s-77.imp" PUSH LIST PUSHI #0x00000001 ASSVAL LINE 2794 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 2796 SW(12): ! '%OWN' (TYPE)(OWNDEC) LINE 2796 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x0000000c SLABEL 427 2797 %BEGIN 2798 !*********************************************************************** 2799 !* INITIALISED DECLARATION GO INTO THE GLA OR GLA SYMBOL TABLES * 2800 !* EXCEPT FOR CONST ARRAYS WHICH GO INTO THE CODE SYMBOL TABLES * 2801 !* STRINGS AND ARRAYS HAVE A HEADER IN THE GLA. LPUT ARRANGES * 2802 !* FOR THE LOADER TO RELOCATE THE HEADERS. * 2803 !* EXTERNALS ARE IDENTICAL WITH OWN BUT ALSO HAVE A DATA EP DEFN * 2804 !* IN THE LOAD DATA SO THEY CAN BE FOUND AT LOAD TIME * 2805 !* EXTRINSICS HAVE A DATA REFERENCE AND A DUMMY HEADER IN THE GLA * 2806 !* THE LOADER USES THE FORMER TO RELOCATE THE LATTER. * 2807 !*********************************************************************** LINE 2797 "regression-compile-tmp/nrimp10s-77.imp" BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id10 {lev=4 --> 5} 2808 %ROUTINESPEC CLEAR(%INTEGER L) LINE 2808 "regression-compile-tmp/nrimp10s-77.imp" DEF CLEAR (_lev0id0_lev1id1_lev2id3_CSS_lev4id10_CLEAR) p1=V_01de a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=5 --> 6, nested=0 --> 1} DEF L p1=V_01df 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=5} 2809 %ROUTINESPEC STAG(%INTEGER J,DATALEN) LINE 2809 "regression-compile-tmp/nrimp10s-77.imp" DEF STAG (_lev0id0_lev1id1_lev2id3_CSS_lev4id10_STAG) p1=V_01df a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=5 --> 6, nested=0 --> 1} DEF J p1=V_01e0 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 DATALEN p1=V_01e1 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=5} 2810 %ROUTINESPEC XTRACT CONST(%INTEGER CONTYPE,CONPREC) LINE 2810 "regression-compile-tmp/nrimp10s-77.imp" DEF XTRACTCONST (_lev0id0_lev1id1_lev2id3_CSS_lev4id10_XTRACTCONST) p1=V_01e0 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=5 --> 6, nested=0 --> 1} DEF CONTYPE p1=V_01e1 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 CONPREC p1=V_01e2 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=5} 2811 %ROUTINESPEC INIT SPACE(%INTEGER A,B) LINE 2811 "regression-compile-tmp/nrimp10s-77.imp" DEF INITSPACE (_lev0id0_lev1id1_lev2id3_CSS_lev4id10_INITSPACE) p1=V_01e1 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=5 --> 6, nested=0 --> 1} DEF A p1=V_01e2 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 B p1=V_01e3 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=5} 2812 %INTEGER LENGTH,BP,PP,SIGN,CBASE,MODE,UICONST,ICONST,TAGDISP,EPTYPE, {%C 2813 EPDISP,AH1,AH2,AH3,AH4,AD,FNAM,FINF,SPOINT,CONSTSFOUND,CPREC,{%C 2814 EXTRN,NNAMES,MARK,LPUTP,MARKER1,LB,CTYPE,CONSTP,FORMAT, {%C 2815 PTSIZE,DIMEN,SACC,TYPEP LINE 2812 "regression-compile-tmp/nrimp10s-77.imp" DEF LENGTH p1=V_01e2 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 BP p1=V_01e3 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 PP p1=V_01e4 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 SIGN p1=V_01e5 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 CBASE p1=V_01e6 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 MODE p1=V_01e7 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 UICONST p1=V_01e8 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 ICONST p1=V_01e9 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 TAGDISP p1=V_01ea 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 EPTYPE p1=V_01eb 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 EPDISP p1=V_01ec 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 AH1 p1=V_01ed 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 AH2 p1=V_01ee 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 AH3 p1=V_01ef 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 AH4 p1=V_01f0 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 AD p1=V_01f1 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 FNAM p1=V_01f2 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 FINF p1=V_01f3 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 SPOINT p1=V_01f4 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 CONSTSFOUND p1=V_01f5 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 CPREC p1=V_01f6 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 EXTRN p1=V_01f7 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 NNAMES p1=V_01f8 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 MARK p1=V_01f9 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 LPUTP p1=V_01fa 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 MARKER1 p1=V_01fb 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 LB p1=V_01fc 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 CTYPE p1=V_01fd 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 CONSTP p1=V_01fe 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 FORMAT p1=V_01ff 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 PTSIZE p1=V_0200 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 DIMEN p1=V_0201 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 SACC p1=V_0202 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 TYPEP p1=V_0203 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 2816 %LONGREAL RCONST,LRCONST LINE 2816 "regression-compile-tmp/nrimp10s-77.imp" DEF RCONST p1=V_0204 a/tf=21 b/format=4 c/ostate=0 type=2 (real) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF LRCONST p1=V_0205 a/tf=21 b/format=4 c/ostate=0 type=2 (real) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2817 %OWNLONGREAL ZERO=0 LINE 2817 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 DEF ZERO p1=V_0206 a/tf=21 b/format=4 c/ostate=21 type=2 (real) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 INIT 1 2818 %STRING(255) SCONST,NAMTXT LINE 2818 "regression-compile-tmp/nrimp10s-77.imp" DEF SCONST p1=V_0207 a/tf=31 b/format=ff c/ostate=0 type=3 (string) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF NAMTXT p1=V_0208 a/tf=31 b/format=ff c/ostate=0 type=3 (string) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2819 %INTEGERNAME STPTR LINE 2819 "regression-compile-tmp/nrimp10s-77.imp" DEF STPTR p1=V_0209 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2820 LPUTP=5; STPTR==USTPTR; ! NORMAL CASE GLA SYMBOLTABLES 2821 ! FAULT(40,0) %IF NMDECS&1#0 LINE 2820 "regression-compile-tmp/nrimp10s-77.imp" PUSH LPUTP PUSHI #0x00000005 ASSVAL LINE 2820 "regression-compile-tmp/nrimp10s-77.imp" PUSH STPTR PUSH USTPTR ASSREF 2822 EXTRN=A(P+1) LINE 2822 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS ASSVAL 2823 %IF EXTRN>=4 %THEN EXTRN=0; ! CONST & CONSTANT->0 LINE 2823 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000004 JUMPIF < L_0004 PUSH EXTRN PUSHI #0x00000000 ASSVAL LOCATE L_0004 2824 LITL=EXTRN LINE 2824 "regression-compile-tmp/nrimp10s-77.imp" PUSH LITL PUSH EXTRN ASSVAL 2825 %IF LITL<=1 %THEN LITL=LITL!!1 LINE 2825 "regression-compile-tmp/nrimp10s-77.imp" PUSH LITL PUSHI #0x00000001 JUMPIF > L_0004 PUSH LITL PUSH LITL PUSHI #0x00000001 XOR ASSVAL LOCATE L_0004 2826 KFORM=0; SNDISP=0 LINE 2826 "regression-compile-tmp/nrimp10s-77.imp" PUSH KFORM PUSHI #0x00000000 ASSVAL LINE 2826 "regression-compile-tmp/nrimp10s-77.imp" PUSH SNDISP PUSHI #0x00000000 ASSVAL 2827 CONSTS FOUND=0 LINE 2827 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTSFOUND PUSHI #0x00000000 ASSVAL 2828 %IF EXTRN=0 %THEN LPUTP=4 %AND STPTR==SSTL LINE 2828 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000000 JUMPIF # L_0004 PUSH LPUTP PUSHI #0x00000004 ASSVAL PUSH STPTR PUSH SSTL ASSREF LOCATE L_0004 2829 P=P+3; CBASE=0 LINE 2829 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL LINE 2829 "regression-compile-tmp/nrimp10s-77.imp" PUSH CBASE PUSHI #0x00000000 ASSVAL 2830 MODE=A(P-1); ! MODE =1 FOR NORMAL OWNS LINE 2830 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSH A PUSH P PUSHI #0x00000001 SUB ACCESS ASSVAL 2831 ->RECORD %IF MODE>1; ! MODE =2 FOR OWN RECORDS LINE 2831 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000001 JUMPIF <= L_0004 JUMP L_020a LOCATE L_0004 2832 CLT; ! MODE =3 FOR OWN RECORD ARRAYS LINE 2832 "regression-compile-tmp/nrimp10s-77.imp" PUSH CLT CALL 2833 %IF A(P)=1 %THEN CQN(P+1) %ELSE ARR=1 %AND NAM=0 LINE 2833 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000001 JUMPIF # L_0004 PUSH CQN PUSH P PUSHI #0x00000001 ADD ASSPAR CALL GOTO L_0003 LOCATE L_0004 PUSH ARR PUSHI #0x00000001 ASSVAL PUSH NAM PUSHI #0x00000000 ASSVAL LOCATE L_0003 2834 %IF TYPE=5 %AND ACC=0=NAM %THEN FAULT(70,0) %AND ACC=2 LINE 2834 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000005 JUMPIF # L_0004 PUSH ACC PUSHI #0x00000000 JUMPIFD # L_0004 PUSH NAM JUMPIF # L_0004 PUSH FAULT PUSHI #0x00000046 ASSPAR PUSHI #0x00000000 ASSPAR CALL PUSH ACC PUSHI #0x00000002 ASSVAL LOCATE L_0004 2835 ROUT=0; PACK(PTYPE) LINE 2835 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUT PUSHI #0x00000000 ASSVAL LINE 2835 "regression-compile-tmp/nrimp10s-77.imp" PUSH PACK PUSH PTYPE ASSPAR CALL 2836 -> NON SCALAR %IF ARR#0 %AND NAM=0 LINE 2836 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARR PUSHI #0x00000000 JUMPIF = L_0004 PUSH NAM PUSHI #0x00000000 JUMPIF # L_0004 JUMP L_020b LOCATE L_0004 2837 P=P+1 LINE 2837 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 2838 {%UNTIL A(MARK)=2} %CYCLE; ! UNTIL NULL LINE 2838 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 2839 MARK= P+1+FROM AR2(P+1) LINE 2839 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARK PUSH P PUSHI #0x00000001 ADD PUSH FROMAR2 PUSH P PUSHI #0x00000001 ADD ASSPAR CALL ADD ASSVAL 2840 NNAMES=1 LINE 2840 "regression-compile-tmp/nrimp10s-77.imp" PUSH NNAMES PUSHI #0x00000001 ASSVAL 2841 PP=P+3; P=PP+2; ! PP ON FIRST NAME' LINE 2841 "regression-compile-tmp/nrimp10s-77.imp" PUSH PP PUSH P PUSHI #0x00000003 ADD ASSVAL LINE 2841 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH PP PUSHI #0x00000002 ADD ASSVAL 2842 %WHILE A(P)=1 %%CYCLE LINE 2842 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 PUSH A PUSH P ACCESS PUSHI #0x00000001 JUMPIF # L_0007 2843 NNAMES=NNAMES+1 LINE 2843 "regression-compile-tmp/nrimp10s-77.imp" PUSH NNAMES PUSH NNAMES PUSHI #0x00000001 ADD ASSVAL 2844 P=P+3 LINE 2844 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL 2845 %REPEAT LINE 2845 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0006 LOCATE L_0007 2846 P=P+1; ! P ON CONST' 2847 ! 2848 ! OBTAIN THE INITIAL CONSTANT,ITS TYPE(CTYPE) AND SIGN(SIGN) 2849 ! LINE 2846 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 2850 ICONST=0; UICONST=0 LINE 2850 "regression-compile-tmp/nrimp10s-77.imp" PUSH ICONST PUSHI #0x00000000 ASSVAL LINE 2850 "regression-compile-tmp/nrimp10s-77.imp" PUSH UICONST PUSHI #0x00000000 ASSVAL 2851 RCONST=0; LRCONST=0; SCONST="" LINE 2851 "regression-compile-tmp/nrimp10s-77.imp" PUSH RCONST PUSHI #0x00000000 ASSVAL LINE 2851 "regression-compile-tmp/nrimp10s-77.imp" PUSH LRCONST PUSHI #0x00000000 ASSVAL LINE 2851 "regression-compile-tmp/nrimp10s-77.imp" PUSH SCONST PUSHS "" ASSVAL 2852 SIGN=3; CTYPE=TYPE; CONSTSFOUND=0; CPREC=PREC LINE 2852 "regression-compile-tmp/nrimp10s-77.imp" PUSH SIGN PUSHI #0x00000003 ASSVAL LINE 2852 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTYPE PUSH TYPE ASSVAL LINE 2852 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTSFOUND PUSHI #0x00000000 ASSVAL LINE 2852 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPREC PUSH PREC ASSVAL 2853 %IF NAM#0 %THEN CTYPE=1 %AND CPREC=5 2854 ! LINE 2853 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000000 JUMPIF = L_0007 PUSH CTYPE PUSHI #0x00000001 ASSVAL PUSH CPREC PUSHI #0x00000005 ASSVAL LOCATE L_0007 2855 %IF A(P)=1 %THEN %START; ! CONSTANT GIVEN LINE 2855 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000001 JUMPIF # L_0007 2856 P=P+1 LINE 2856 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 2857 XTRACT CONST(CTYPE,CPREC) LINE 2857 "regression-compile-tmp/nrimp10s-77.imp" PUSH XTRACTCONST PUSH CTYPE ASSPAR PUSH CPREC ASSPAR CALL 2858 %FINISH 2859 ! LINE 2858 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 2860 {%UNTIL NNAMES=0} %CYCLE; ! DOWN LINE 2860 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 2861 J=0; K=FROM AR2(PP) LINE 2861 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000000 ASSVAL LINE 2861 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH FROMAR2 PUSH PP ASSPAR CALL ASSVAL 2862 NAMTXT=STRING(DICTBASE+WORD(K)) LINE 2862 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAMTXT PUSH STRING PUSH DICTBASE PUSH WORD PUSH K ACCESS ADD ASSPAR CALL ASSVAL 2863 %IF NAM#0 %THEN %START; ! OWNNAMES AND ARRAYNAMES LINE 2863 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000000 JUMPIF = L_000a 2864 %IF EXTRN=3 %THEN FAULT2(46,0,K);! NO EXTRINSIC NAMES LINE 2864 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000003 JUMPIF # L_000d PUSH FAULT2 PUSHI #0x0000002e ASSPAR PUSHI #0x00000000 ASSPAR PUSH K ASSPAR CALL LOCATE L_000d 2865 UICONST=16_FFFF!PREC<<27 LINE 2865 "regression-compile-tmp/nrimp10s-77.imp" PUSH UICONST PUSHI #0x0000ffff PUSH PREC PUSHI #0x0000001b LSH OR ASSVAL 2866 PGLA(8,ACC,ADDR(UICONST)) LINE 2866 "regression-compile-tmp/nrimp10s-77.imp" PUSH PGLA PUSHI #0x00000008 ASSPAR PUSH ACC ASSPAR PUSH ADDR PUSH UICONST ASSPAR CALL ASSPAR CALL 2867 TAGDISP=GLACA-ACC; EPDISP=TAGDISP LINE 2867 "regression-compile-tmp/nrimp10s-77.imp" PUSH TAGDISP PUSH GLACA PUSH ACC SUB ASSVAL LINE 2867 "regression-compile-tmp/nrimp10s-77.imp" PUSH EPDISP PUSH TAGDISP ASSVAL 2868 %FINISH %ELSE %START LINE 2868 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0009 LOCATE L_000a 2869 %IF TYPE=5 %THEN %START; ! STRING LINE 2869 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000005 JUMPIF # L_000d 2870 QQ=STPTR; AD=ADDR(SCONST) LINE 2870 "regression-compile-tmp/nrimp10s-77.imp" PUSH QQ PUSH STPTR ASSVAL LINE 2870 "regression-compile-tmp/nrimp10s-77.imp" PUSH AD PUSH ADDR PUSH SCONST ASSPAR CALL ASSVAL 2871 %IF EXTRN=3 %THEN %START; ! EXTRINSIC STRINGS LINE 2871 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000003 JUMPIF # L_0010 2872 AH3=0; AH2=PREC<<27!ACC; ! DUMMY STRING HEADER LINE 2872 "regression-compile-tmp/nrimp10s-77.imp" PUSH AH3 PUSHI #0x00000000 ASSVAL LINE 2872 "regression-compile-tmp/nrimp10s-77.imp" PUSH AH2 PUSH PREC PUSHI #0x0000001b LSH PUSH ACC OR ASSVAL 2873 %FINISH %ELSE %START LINE 2873 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_000f LOCATE L_0010 2874 LPUT(LPUTP,ACC,QQ,AD) %IF INHCODE=0;! O/P STRING LINE 2874 "regression-compile-tmp/nrimp10s-77.imp" PUSH INHCODE PUSHI #0x00000000 JUMPIF # L_0013 PUSH LPUT PUSH LPUTP ASSPAR PUSH ACC ASSPAR PUSH QQ ASSPAR PUSH AD ASSPAR CALL LOCATE L_0013 2875 STPTR=(STPTR+ACC+3)&(-4) LINE 2875 "regression-compile-tmp/nrimp10s-77.imp" PUSH STPTR PUSH STPTR PUSH ACC ADD PUSHI #0x00000003 ADD PUSHI #0x00000004 NEGATE AND ASSVAL 2876 AH3=QQ; AH2=3<<27!ACC LINE 2876 "regression-compile-tmp/nrimp10s-77.imp" PUSH AH3 PUSH QQ ASSVAL LINE 2876 "regression-compile-tmp/nrimp10s-77.imp" PUSH AH2 PUSHI #0x00000003 PUSHI #0x0000001b LSH PUSH ACC OR ASSVAL 2877 %FINISH LINE 2877 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000f 2878 PGLA(8,8,ADDR(AH2)) LINE 2878 "regression-compile-tmp/nrimp10s-77.imp" PUSH PGLA PUSHI #0x00000008 ASSPAR PUSHI #0x00000008 ASSPAR PUSH ADDR PUSH AH2 ASSPAR CALL ASSPAR CALL 2879 TAGDISP=GLACA-8 LINE 2879 "regression-compile-tmp/nrimp10s-77.imp" PUSH TAGDISP PUSH GLACA PUSHI #0x00000008 SUB ASSVAL 2880 %IF EXTRN=3 %THEN GXREF(NAMTXT,2,2<<24!ACC,TAGDISP+4) %ELSE RELOCATE(TAGDISP+4,AH3,LPUTP) LINE 2880 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000003 JUMPIF # L_0010 PUSH GXREF PUSH NAMTXT ASSPAR PUSHI #0x00000002 ASSPAR PUSHI #0x00000002 PUSHI #0x00000018 LSH PUSH ACC OR ASSPAR PUSH TAGDISP PUSHI #0x00000004 ADD ASSPAR CALL GOTO L_000f LOCATE L_0010 PUSH RELOCATE PUSH TAGDISP PUSHI #0x00000004 ADD ASSPAR PUSH AH3 ASSPAR PUSH LPUTP ASSPAR CALL LOCATE L_000f 2881 EPTYPE=5; EPDISP=QQ; ! DATA IN GLA SYMBOL TABLES LINE 2881 "regression-compile-tmp/nrimp10s-77.imp" PUSH EPTYPE PUSHI #0x00000005 ASSVAL LINE 2881 "regression-compile-tmp/nrimp10s-77.imp" PUSH EPDISP PUSH QQ ASSVAL 2882 %FINISH %ELSE %START; ! INTEGER & REAL LINE 2882 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_000c LOCATE L_000d 2883 %IF EXTRN=3 %THEN %START; ! EXTRINSICS LINE 2883 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000003 JUMPIF # L_0010 2884 PTYPE=PTYPE!1<<10; ! EXTRINSICS VIA PTR LINE 2884 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSH PTYPE PUSHI #0x00000001 PUSHI #0x0000000a LSH OR ASSVAL 2885 AH2=PREC<<27; AH3=0 LINE 2885 "regression-compile-tmp/nrimp10s-77.imp" PUSH AH2 PUSH PREC PUSHI #0x0000001b LSH ASSVAL LINE 2885 "regression-compile-tmp/nrimp10s-77.imp" PUSH AH3 PUSHI #0x00000000 ASSVAL 2886 PGLA(8,8,ADDR(AH2)) LINE 2886 "regression-compile-tmp/nrimp10s-77.imp" PUSH PGLA PUSHI #0x00000008 ASSPAR PUSHI #0x00000008 ASSPAR PUSH ADDR PUSH AH2 ASSPAR CALL ASSPAR CALL 2887 TAGDISP=GLACA-8 LINE 2887 "regression-compile-tmp/nrimp10s-77.imp" PUSH TAGDISP PUSH GLACA PUSHI #0x00000008 SUB ASSVAL 2888 GXREF(NAMTXT,2,2<<24!ACC,TAGDISP+4) LINE 2888 "regression-compile-tmp/nrimp10s-77.imp" PUSH GXREF PUSH NAMTXT ASSPAR PUSHI #0x00000002 ASSPAR PUSHI #0x00000002 PUSHI #0x00000018 LSH PUSH ACC OR ASSPAR PUSH TAGDISP PUSHI #0x00000004 ADD ASSPAR CALL 2889 %FINISH %ELSE %START; ! OWN,EXTERNAL&CONST LINE 2889 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_000f LOCATE L_0010 2890 %IF TYPE=2 %THEN %START LINE 2890 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000002 JUMPIF # L_0013 2891 AD=ADDR(RCONST) LINE 2891 "regression-compile-tmp/nrimp10s-77.imp" PUSH AD PUSH ADDR PUSH RCONST ASSPAR CALL ASSVAL 2892 %FINISH %ELSE %START; ! INTEGER VARIABLES LINE 2892 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0012 LOCATE L_0013 2893 AD=ADDR(ICONST)+4-ACC LINE 2893 "regression-compile-tmp/nrimp10s-77.imp" PUSH AD PUSH ADDR PUSH ICONST ASSPAR CALL PUSHI #0x00000004 ADD PUSH ACC SUB ASSVAL 2894 %FINISH LINE 2894 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0012 2895 %IF EXTRN#0 %THEN PGLA(ACC,ACC,AD); ! PUT CONSTANT INTO GLA LINE 2895 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000000 JUMPIF = L_0013 PUSH PGLA PUSH ACC ASSPAR PUSH ACC ASSPAR PUSH AD ASSPAR CALL LOCATE L_0013 2896 TAGDISP=GLACA-ACC; ! OFFSET OF VAR FOR TAGS LINE 2896 "regression-compile-tmp/nrimp10s-77.imp" PUSH TAGDISP PUSH GLACA PUSH ACC SUB ASSVAL 2897 EPDISP=TAGDISP; ! AND FOR ENTRY DEFN LINE 2897 "regression-compile-tmp/nrimp10s-77.imp" PUSH EPDISP PUSH TAGDISP ASSVAL 2898 EPTYPE=2; ! DATA IN ADRESSABLE GLA LINE 2898 "regression-compile-tmp/nrimp10s-77.imp" PUSH EPTYPE PUSHI #0x00000002 ASSVAL 2899 %FINISH LINE 2899 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000f 2900 %FINISH LINE 2900 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000c 2901 %FINISH LINE 2901 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 2902 STAG(TAGDISP,ACC) LINE 2902 "regression-compile-tmp/nrimp10s-77.imp" PUSH STAG PUSH TAGDISP ASSPAR PUSH ACC ASSPAR CALL 2903 %IF EXTRN=0=NAM %START; ! CONST = LITERAL LINE 2903 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000000 JUMPIFD # L_000a PUSH NAM JUMPIF # L_000a 2904 REPLACE2(TAGS(K),INTEGER(AD&(-4)));! BYTES! LINE 2904 "regression-compile-tmp/nrimp10s-77.imp" PUSH REPLACE2 PUSH TAGS PUSH K ACCESS ASSPAR PUSH INTEGER PUSH AD PUSHI #0x00000004 NEGATE AND ASSPAR CALL ASSPAR CALL 2905 %IF PREC=6 %THEN REPLACE3(TAGS(K),INTEGER(AD+4)) LINE 2905 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000006 JUMPIF # L_000d PUSH REPLACE3 PUSH TAGS PUSH K ACCESS ASSPAR PUSH INTEGER PUSH AD PUSHI #0x00000004 ADD ASSPAR CALL ASSPAR CALL LOCATE L_000d 2906 %IF PREC=7 %THEN REPLACE3(TAGS(K),CONSTP) LINE 2906 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000007 JUMPIF # L_000d PUSH REPLACE3 PUSH TAGS PUSH K ACCESS ASSPAR PUSH CONSTP ASSPAR CALL LOCATE L_000d 2907 %FINISH LINE 2907 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000a 2908 PP=PP+3 LINE 2908 "regression-compile-tmp/nrimp10s-77.imp" PUSH PP PUSH PP PUSHI #0x00000003 ADD ASSVAL 2909 NNAMES=NNAMES-1 LINE 2909 "regression-compile-tmp/nrimp10s-77.imp" PUSH NNAMES PUSH NNAMES PUSHI #0x00000001 SUB ASSVAL 2910 %REPEAT %UNTIL NNAMES=0; ! DOWN LINE 2910 "regression-compile-tmp/nrimp10s-77.imp" PUSH NNAMES PUSHI #0x00000000 JUMPIF = L_0007 REPEAT L_0006 LOCATE L_0007 2911 P=MARK LINE 2911 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH MARK ASSVAL 2912 %REPEAT %UNTIL A(MARK)=2; ! UNTIL NULL LINE 2912 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH MARK ACCESS PUSHI #0x00000002 JUMPIF = L_0004 REPEAT L_0003 LOCATE L_0004 2913 ->BEND LINE 2913 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_020c 2914 RECORD: ! '%RECORD' 2915 !*********************************************************************** 2916 !* NO INITIALISATION OF OWN RECORDS ALLOWED SO THEY ARE ALL * 2917 !* CLEARED TO ZERO. * 2918 !*********************************************************************** LINE 2914 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_020a 2919 MARKER1=P+1+FROM AR2(P+1); ! TO FORMAT NAME LINE 2919 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKER1 PUSH P PUSHI #0x00000001 ADD PUSH FROMAR2 PUSH P PUSHI #0x00000001 ADD ASSPAR CALL ADD ASSVAL 2920 FNAM=FROM AR2(MARKER1) LINE 2920 "regression-compile-tmp/nrimp10s-77.imp" PUSH FNAM PUSH FROMAR2 PUSH MARKER1 ASSPAR CALL ASSVAL 2921 COPYTAG(FNAM) LINE 2921 "regression-compile-tmp/nrimp10s-77.imp" PUSH COPYTAG PUSH FNAM ASSPAR CALL 2922 FINF=TCELL LINE 2922 "regression-compile-tmp/nrimp10s-77.imp" PUSH FINF PUSH TCELL ASSVAL 2923 %IF PTYPE#4 %THEN FAULT(62,FNAM) %AND ->BEND LINE 2923 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000004 JUMPIF = L_0004 PUSH FAULT PUSHI #0x0000003e ASSPAR PUSH FNAM ASSPAR CALL JUMP L_020c LOCATE L_0004 2924 PTYPE=16_133!LITL<<14 LINE 2924 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000133 PUSH LITL PUSHI #0x0000000e LSH OR ASSVAL 2925 KFORM=FINF; UNPACK LINE 2925 "regression-compile-tmp/nrimp10s-77.imp" PUSH KFORM PUSH FINF ASSVAL LINE 2925 "regression-compile-tmp/nrimp10s-77.imp" PUSH UNPACK CALL 2926 %IF MODE=3 %THEN FORMAT=2-A(P) %AND P=P+2 %AND ->RECIN LINE 2926 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000003 JUMPIF # L_0004 PUSH FORMAT PUSHI #0x00000002 PUSH A PUSH P ACCESS SUB ASSVAL PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL JUMP L_020d LOCATE L_0004 2927 P=P+1; BP=ACC; ! SIZE OF RECORD FROM FORMAT LINE 2927 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 2927 "regression-compile-tmp/nrimp10s-77.imp" PUSH BP PUSH ACC ASSVAL 2928 PTYPE=16_33; J=0 LINE 2928 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000033 ASSVAL LINE 2928 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000000 ASSVAL 2929 %IF A(P-1)#3 %THEN CQN(P-1) %AND PACK(PTYPE) LINE 2929 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 SUB ACCESS PUSHI #0x00000003 JUMPIF = L_0004 PUSH CQN PUSH P PUSHI #0x00000001 SUB ASSPAR CALL PUSH PACK PUSH PTYPE ASSPAR CALL LOCATE L_0004 2930 P=P+1; PTSIZE=ACC; ! SIZE OF HOLE FOR POINTER LINE 2930 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 2930 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTSIZE PUSH ACC ASSVAL 2931 {%UNTIL A(P)=2} %CYCLE LINE 2931 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 2932 P=P+1; K=FROM AR2(P) LINE 2932 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 2932 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH FROMAR2 PUSH P ASSPAR CALL ASSVAL 2933 NAMTXT=STRING(DICTBASE+WORD(K)) LINE 2933 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAMTXT PUSH STRING PUSH DICTBASE PUSH WORD PUSH K ACCESS ADD ASSPAR CALL ASSVAL 2934 %IF NAM#0 %THEN %START; ! OWNNAMES AND ARRAYNAMES LINE 2934 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000000 JUMPIF = L_0007 2935 %IF EXTRN=3 %THEN FAULT2(46,0,K);! NO EXTRINSIC NAMES LINE 2935 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000003 JUMPIF # L_000a PUSH FAULT2 PUSHI #0x0000002e ASSPAR PUSHI #0x00000000 ASSPAR PUSH K ASSPAR CALL LOCATE L_000a 2936 UICONST=16_FFFF!PREC<<27 LINE 2936 "regression-compile-tmp/nrimp10s-77.imp" PUSH UICONST PUSHI #0x0000ffff PUSH PREC PUSHI #0x0000001b LSH OR ASSVAL 2937 PGLA(8,PTSIZE,ADDR(UICONST)) LINE 2937 "regression-compile-tmp/nrimp10s-77.imp" PUSH PGLA PUSHI #0x00000008 ASSPAR PUSH PTSIZE ASSPAR PUSH ADDR PUSH UICONST ASSPAR CALL ASSPAR CALL 2938 EPTYPE=2 LINE 2938 "regression-compile-tmp/nrimp10s-77.imp" PUSH EPTYPE PUSHI #0x00000002 ASSVAL 2939 TAGDISP=GLACA-PTSIZE; EPDISP=TAGDISP LINE 2939 "regression-compile-tmp/nrimp10s-77.imp" PUSH TAGDISP PUSH GLACA PUSH PTSIZE SUB ASSVAL LINE 2939 "regression-compile-tmp/nrimp10s-77.imp" PUSH EPDISP PUSH TAGDISP ASSVAL 2940 %FINISH %ELSE %START LINE 2940 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 2941 %IF EXTRN=3 %THEN %START; ! EXTRINISIC LINE 2941 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000003 JUMPIF # L_000a 2942 PTYPE=PTYPE!16_400; ! FORCE NAM=1 (IE VIA POINTER) LINE 2942 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSH PTYPE PUSHI #0x00000400 OR ASSVAL 2943 AH2=16_18000000+BP LINE 2943 "regression-compile-tmp/nrimp10s-77.imp" PUSH AH2 PUSHI #0x18000000 PUSH BP ADD ASSVAL 2944 AH3=0 LINE 2944 "regression-compile-tmp/nrimp10s-77.imp" PUSH AH3 PUSHI #0x00000000 ASSVAL 2945 PGLA(8,8,ADDR(AH2)) LINE 2945 "regression-compile-tmp/nrimp10s-77.imp" PUSH PGLA PUSHI #0x00000008 ASSPAR PUSHI #0x00000008 ASSPAR PUSH ADDR PUSH AH2 ASSPAR CALL ASSPAR CALL 2946 TAGDISP=GLACA-8 LINE 2946 "regression-compile-tmp/nrimp10s-77.imp" PUSH TAGDISP PUSH GLACA PUSHI #0x00000008 SUB ASSVAL 2947 GXREF(NAMTXT,2,2<<24!BP,TAGDISP+4); ! RELOCATE BY EXTERNAL LINE 2947 "regression-compile-tmp/nrimp10s-77.imp" PUSH GXREF PUSH NAMTXT ASSPAR PUSHI #0x00000002 ASSPAR PUSHI #0x00000002 PUSHI #0x00000018 LSH PUSH BP OR ASSPAR PUSH TAGDISP PUSHI #0x00000004 ADD ASSPAR CALL 2948 %FINISH %ELSE %START LINE 2948 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0009 LOCATE L_000a 2949 EPDISP=(GLACA+15)&(-8) LINE 2949 "regression-compile-tmp/nrimp10s-77.imp" PUSH EPDISP PUSH GLACA PUSHI #0x0000000f ADD PUSHI #0x00000008 NEGATE AND ASSVAL 2950 AH3=EPDISP LINE 2950 "regression-compile-tmp/nrimp10s-77.imp" PUSH AH3 PUSH EPDISP ASSVAL 2951 AH2=16_18000000+BP; ! TOP WORD OFDESRCIPTOR LINE 2951 "regression-compile-tmp/nrimp10s-77.imp" PUSH AH2 PUSHI #0x18000000 PUSH BP ADD ASSVAL 2952 PGLA(8,4,ADDR(AH2)); ! ADDED 18MAR76 TO FIX BUG LINE 2952 "regression-compile-tmp/nrimp10s-77.imp" PUSH PGLA PUSHI #0x00000008 ASSPAR PUSHI #0x00000004 ASSPAR PUSH ADDR PUSH AH2 ASSPAR CALL ASSPAR CALL 2953 RELOCATE(-1,AH3,2); ! PUT DISP INTO GLA LINE 2953 "regression-compile-tmp/nrimp10s-77.imp" PUSH RELOCATE PUSHI #0x00000001 NEGATE ASSPAR PUSH AH3 ASSPAR PUSHI #0x00000002 ASSPAR CALL 2954 TAGDISP=EPDISP; ! AND RELOCATE REL APPROPIATE AREA LINE 2954 "regression-compile-tmp/nrimp10s-77.imp" PUSH TAGDISP PUSH EPDISP ASSVAL 2955 EPTYPE=2; ! DATA IN GLA TABLES LINE 2955 "regression-compile-tmp/nrimp10s-77.imp" PUSH EPTYPE PUSHI #0x00000002 ASSVAL 2956 I=0; ICONST=0 LINE 2956 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000000 ASSVAL LINE 2956 "regression-compile-tmp/nrimp10s-77.imp" PUSH ICONST PUSHI #0x00000000 ASSVAL 2957 %WHILE I= L_000d 2958 PGLA(4,4,ADDR(ICONST)) LINE 2958 "regression-compile-tmp/nrimp10s-77.imp" PUSH PGLA PUSHI #0x00000004 ASSPAR PUSHI #0x00000004 ASSPAR PUSH ADDR PUSH ICONST ASSPAR CALL ASSPAR CALL 2959 I=I+4 LINE 2959 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH I PUSHI #0x00000004 ADD ASSVAL 2960 %REPEAT LINE 2960 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_000c LOCATE L_000d 2961 %FINISH LINE 2961 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 2962 %FINISH LINE 2962 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 2963 ACC=BP; ! ACC TO SIZE OF RECORD LINE 2963 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSH BP ASSVAL 2964 STAG(TAGDISP,BP) LINE 2964 "regression-compile-tmp/nrimp10s-77.imp" PUSH STAG PUSH TAGDISP ASSPAR PUSH BP ASSPAR CALL 2965 P=P+2 LINE 2965 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 2966 %REPEAT %UNTIL A(P)=2 LINE 2966 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000002 JUMPIF = L_0004 REPEAT L_0003 LOCATE L_0004 2967 ->BEND LINE 2967 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_020c 2968 NONSCALAR: ! OWN AND OWNRECORD ARRAYS 2969 !*********************************************************************** 2970 !* OWN ARRAYS CAN BE INITIALISED BUT ONLY ONE ARRAY CAN BE * 2971 !* DECLARED IN A STATEMENT.(THANK HEAVENS!) * 2972 !* OWN RECORD ARRAYS ARE CLEARED TO ZERO * 2973 !*********************************************************************** LINE 2968 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_020b 2974 P=P+1 LINE 2974 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 2975 FORMAT=2-A(P) LINE 2975 "regression-compile-tmp/nrimp10s-77.imp" PUSH FORMAT PUSHI #0x00000002 PUSH A PUSH P ACCESS SUB ASSVAL 2976 RECIN: PP=P+1; P=P+3; NNAMES=1 LINE 2976 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_020d LINE 2976 "regression-compile-tmp/nrimp10s-77.imp" PUSH PP PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 2976 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL LINE 2976 "regression-compile-tmp/nrimp10s-77.imp" PUSH NNAMES PUSHI #0x00000001 ASSVAL 2977 K=FROM AR2(PP) LINE 2977 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH FROMAR2 PUSH PP ASSPAR CALL ASSVAL 2978 NAMTXT=STRING(DICTBASE+WORD(K)) LINE 2978 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAMTXT PUSH STRING PUSH DICTBASE PUSH WORD PUSH K ACCESS ADD ASSPAR CALL ASSVAL 2979 %IF TYPE>=3 %THEN BP=ACC %ELSE BP=BYTES(PREC) LINE 2979 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000003 JUMPIF < L_0004 PUSH BP PUSH ACC ASSVAL GOTO L_0003 LOCATE L_0004 PUSH BP PUSH BYTES PUSH PREC ACCESS ASSVAL LOCATE L_0003 2980 SACC=ACC; TYPEP=PTYPE LINE 2980 "regression-compile-tmp/nrimp10s-77.imp" PUSH SACC PUSH ACC ASSVAL LINE 2980 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPEP PUSH PTYPE ASSVAL 2981 AH4=12+DOPE VECTOR(TYPE,BP,0,K,QQ,LB) LINE 2981 "regression-compile-tmp/nrimp10s-77.imp" PUSH AH4 PUSHI #0x0000000c PUSH DOPEVECTOR PUSH TYPE ASSPAR PUSH BP ASSPAR PUSHI #0x00000000 ASSPAR PUSH K ASSPAR PUSH QQ ASSPAR PUSH LB ASSPAR CALL ADD ASSVAL 2982 SNDISP=AH4-12; ! DV DISP (+TOP BIT FLAG) LINE 2982 "regression-compile-tmp/nrimp10s-77.imp" PUSH SNDISP PUSH AH4 PUSHI #0x0000000c SUB ASSVAL 2983 %IF SNDISP=-1 %THEN SNDISP=0; ! BUM DOPE VECTOR LINE 2983 "regression-compile-tmp/nrimp10s-77.imp" PUSH SNDISP PUSHI #0x00000001 NEGATE JUMPIF # L_0004 PUSH SNDISP PUSHI #0x00000000 ASSVAL LOCATE L_0004 2984 SNDISP=(SNDISP&16_3FFFF)>>2; ! AS WORD DISPLACEMENT LINE 2984 "regression-compile-tmp/nrimp10s-77.imp" PUSH SNDISP PUSH SNDISP PUSHI #0x0003ffff AND PUSHI #0x00000002 RSH ASSVAL 2985 DIMEN=J; ! SAVE NO OF DIMENESIONS LINE 2985 "regression-compile-tmp/nrimp10s-77.imp" PUSH DIMEN PUSH J ASSVAL 2986 ACC=SACC; PTYPE=TYPEP; UNPACK LINE 2986 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSH SACC ASSVAL LINE 2986 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSH TYPEP ASSVAL LINE 2986 "regression-compile-tmp/nrimp10s-77.imp" PUSH UNPACK CALL 2987 %IF LB=0 %AND J=1 %AND TYPE<=3 %THEN ARR=2 %AND PACK (PTYPE) LINE 2987 "regression-compile-tmp/nrimp10s-77.imp" PUSH LB PUSHI #0x00000000 JUMPIF # L_0004 PUSH J PUSHI #0x00000001 JUMPIF # L_0004 PUSH TYPE PUSHI #0x00000003 JUMPIF > L_0004 PUSH ARR PUSHI #0x00000002 ASSVAL PUSH PACK PUSH PTYPE ASSPAR CALL LOCATE L_0004 2988 LENGTH=QQ//BP; ! NO OF ELEMENTS LINE 2988 "regression-compile-tmp/nrimp10s-77.imp" PUSH LENGTH PUSH QQ PUSH BP QUOT ASSVAL 2989 SPOINT=STPTR LINE 2989 "regression-compile-tmp/nrimp10s-77.imp" PUSH SPOINT PUSH STPTR ASSVAL 2990 %IF MODE#3 %AND FORMAT=0 %THEN %START; ! NOT A RECORD ARRAY LINE 2990 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000003 JUMPIF = L_0004 PUSH FORMAT PUSHI #0x00000000 JUMPIF # L_0004 2991 %IF A(P)=1 %THEN P=P+1 %AND INIT SPACE(QQ,LENGTH) LINE 2991 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000001 JUMPIF # L_0007 PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL PUSH INITSPACE PUSH QQ ASSPAR PUSH LENGTH ASSPAR CALL LOCATE L_0007 2992 %FINISH LINE 2992 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 2993 %IF CONSTS FOUND=0 %THEN %START;! NO CONSTANTS GIVEN 2994 ! SO CLEAR AN AREA TO ZERO LINE 2993 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTSFOUND PUSHI #0x00000000 JUMPIF # L_0004 2995 CONSTS FOUND=LENGTH LINE 2995 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTSFOUND PUSH LENGTH ASSVAL 2996 CLEAR(QQ) %UNLESS LENGTH<1 %OR EXTRN=3 %OR FORMAT#0 LINE 2996 "regression-compile-tmp/nrimp10s-77.imp" PUSH LENGTH PUSHI #0x00000001 JUMPIF < L_0007 PUSH EXTRN PUSHI #0x00000003 JUMPIF = L_0007 PUSH FORMAT PUSHI #0x00000000 JUMPIF # L_0007 PUSH CLEAR PUSH QQ ASSPAR CALL LOCATE L_0007 2997 %FINISH %ELSE %START LINE 2997 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 2998 FAULT2(49,0,K) %IF EXTRN=3 %OR FORMAT#0 LINE 2998 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000003 JUMPIF = L_0008 PUSH FORMAT PUSHI #0x00000000 JUMPIF = L_0007 LOCATE L_0008 PUSH FAULT2 PUSHI #0x00000031 ASSPAR PUSHI #0x00000000 ASSPAR PUSH K ASSPAR CALL LOCATE L_0007 2999 %FINISH LINE 2999 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 3000 %IF EXTRN=3 %THEN EPDISP=0 %ELSE EPDISP=SPOINT 3001 ! 3002 ! OUTPUT AN ARRAYHEAD INTO THE GLA RELATIVE TO THE START OF THE SYMBOL- 3003 ! TABLES IN WHICH THE ARRAY RESIDES. 3004 ! LINE 3000 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000003 JUMPIF # L_0004 PUSH EPDISP PUSHI #0x00000000 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH EPDISP PUSH SPOINT ASSVAL LOCATE L_0003 3005 J=DIMEN; ! RESET DIMENSIONS AFTER INITTING LINE 3005 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH DIMEN ASSVAL 3006 %IF TYPE<=2 %THEN AH1=PREC<<27!LENGTH %ELSE AH1=3<<27!1<<25!QQ LINE 3006 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000002 JUMPIF > L_0004 PUSH AH1 PUSH PREC PUSHI #0x0000001b LSH PUSH LENGTH OR ASSVAL GOTO L_0003 LOCATE L_0004 PUSH AH1 PUSHI #0x00000003 PUSHI #0x0000001b LSH PUSHI #0x00000001 PUSHI #0x00000019 LSH OR PUSH QQ OR ASSVAL LOCATE L_0003 3007 AH1=AH1!(1-PARMARR)<<24; ! SET BCI IF BASE TO BE SHIFTED LINE 3007 "regression-compile-tmp/nrimp10s-77.imp" PUSH AH1 PUSH AH1 PUSHI #0x00000001 PUSH PARMARR SUB PUSHI #0x00000018 LSH OR ASSVAL 3008 %IF PREC=4 %THEN AH1=16_58000002 LINE 3008 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000004 JUMPIF # L_0004 PUSH AH1 PUSHI #0x58000002 ASSVAL LOCATE L_0004 3009 AH2=EPDISP LINE 3009 "regression-compile-tmp/nrimp10s-77.imp" PUSH AH2 PUSH EPDISP ASSVAL 3010 AH3=5<<27!3*J; ! DV DESPTR = WORD CHKD LINE 3010 "regression-compile-tmp/nrimp10s-77.imp" PUSH AH3 PUSHI #0x00000005 PUSHI #0x0000001b LSH PUSHI #0x00000003 PUSH J MUL OR ASSVAL 3011 %IF TYPE<=3 %AND PARMARR=0=FORMAT %AND PARMCHK=0 %AND J=1 %THEN AH2=AH2-BP*LB LINE 3011 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000003 JUMPIF > L_0004 PUSH PARMARR PUSHI #0x00000000 JUMPIFD # L_0004 PUSH FORMAT JUMPIF # L_0004 PUSH PARMCHK PUSHI #0x00000000 JUMPIF # L_0004 PUSH J PUSHI #0x00000001 JUMPIF # L_0004 PUSH AH2 PUSH AH2 PUSH BP PUSH LB MUL SUB ASSVAL LOCATE L_0004 3012 PGLA(8,16,ADDR(AH1)) LINE 3012 "regression-compile-tmp/nrimp10s-77.imp" PUSH PGLA PUSHI #0x00000008 ASSPAR PUSHI #0x00000010 ASSPAR PUSH ADDR PUSH AH1 ASSPAR CALL ASSPAR CALL 3013 TAGDISP=GLACA-16 LINE 3013 "regression-compile-tmp/nrimp10s-77.imp" PUSH TAGDISP PUSH GLACA PUSHI #0x00000010 SUB ASSVAL 3014 %IF EXTRN=3 %THEN %START; ! EXTRINSIC ARRAYS LINE 3014 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000003 JUMPIF # L_0004 3015 GXREF(NAMTXT,2,2<<24!QQ,TAGDISP+4); ! RELOCATE ADDR(A(FIRST)) LINE 3015 "regression-compile-tmp/nrimp10s-77.imp" PUSH GXREF PUSH NAMTXT ASSPAR PUSHI #0x00000002 ASSPAR PUSHI #0x00000002 PUSHI #0x00000018 LSH PUSH QQ OR ASSPAR PUSH TAGDISP PUSHI #0x00000004 ADD ASSPAR CALL 3016 %FINISH %ELSE %START LINE 3016 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 3017 RELOCATE(TAGDISP+4,AH2,LPUTP);! RELOCATE ADDR(A(FIRST)) LINE 3017 "regression-compile-tmp/nrimp10s-77.imp" PUSH RELOCATE PUSH TAGDISP PUSHI #0x00000004 ADD ASSPAR PUSH AH2 ASSPAR PUSH LPUTP ASSPAR CALL 3018 %FINISH LINE 3018 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 3019 RELOCATE(TAGDISP+12,AH4,1); ! RELOCATE DV POINTER LINE 3019 "regression-compile-tmp/nrimp10s-77.imp" PUSH RELOCATE PUSH TAGDISP PUSHI #0x0000000c ADD ASSPAR PUSH AH4 ASSPAR PUSHI #0x00000001 ASSPAR CALL 3020 AH4=(AH4<<1>>3)!16_80000000 LINE 3020 "regression-compile-tmp/nrimp10s-77.imp" PUSH AH4 PUSH AH4 PUSHI #0x00000001 LSH PUSHI #0x00000003 RSH PUSHI #0x80000000 OR ASSVAL 3021 NOTE CREF(AH4!(TAGDISP+12)>>2<<16,(AH4&16_FFFF)<<2) LINE 3021 "regression-compile-tmp/nrimp10s-77.imp" PUSH NOTECREF PUSH AH4 PUSH TAGDISP PUSHI #0x0000000c ADD PUSHI #0x00000002 RSH PUSHI #0x00000010 LSH OR ASSPAR PUSH AH4 PUSHI #0x0000ffff AND PUSHI #0x00000002 LSH ASSPAR CALL 3022 EPTYPE=5; ! DATA IN GLA SYMBOL TABLES LINE 3022 "regression-compile-tmp/nrimp10s-77.imp" PUSH EPTYPE PUSHI #0x00000005 ASSVAL 3023 STAG(TAGDISP,QQ) LINE 3023 "regression-compile-tmp/nrimp10s-77.imp" PUSH STAG PUSH TAGDISP ASSPAR PUSH QQ ASSPAR CALL 3024 -> BEND LINE 3024 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_020c 3025 %ROUTINE INIT SPACE(%INTEGER SIZE,NELS) 3026 !*********************************************************************** 3027 !* P IS TO FIRST ENTRY FOR CONSTLIST * 3028 !* MAP SPACE ONTO WORKFILE END TO GIVE SANE ERROR MESSAGE IF * 3029 !* THERE WAS NOT ENOUGH SPACE * 3030 !*********************************************************************** LINE 3025 "regression-compile-tmp/nrimp10s-77.imp" DEF INITSPACE (_lev0id0_lev1id1_lev2id3_CSS_lev4id10_INITSPACE) p1=V_01e1 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=6 --> 7, nested=0 --> 1} DEF SIZE p1=V_020e 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 NELS p1=V_020f 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=6} 3031 %INTEGER RF,I,K,ELSIZE,AD,SPP,LENGTH,SAVER,WSIZE,WRIT 3032 {%BYTEINTEGERARRAYNAME SP 3033 LINE 3031 "regression-compile-tmp/nrimp10s-77.imp" DEF RF p1=V_0210 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 I p1=V_0211 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_0212 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 ELSIZE p1=V_0213 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 AD p1=V_0214 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 SPP p1=V_0215 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 LENGTH p1=V_0216 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 SAVER p1=V_0217 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 WSIZE p1=V_0218 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 WRIT p1=V_0219 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 3034 %IF SIZE>4096 %THEN WSIZE=4096 %ELSE WSIZE=SIZE 3035 {%BYTEINTEGERARRAYFORMAT SPF(0:WSIZE+256) LINE 3034 "regression-compile-tmp/nrimp10s-77.imp" PUSH SIZE PUSHI #0x00001000 JUMPIF <= L_0004 PUSH WSIZE PUSHI #0x00001000 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH WSIZE PUSH SIZE ASSVAL LOCATE L_0003 3036 SAVER=R; R=R+WSIZE+256 LINE 3036 "regression-compile-tmp/nrimp10s-77.imp" PUSH SAVER PUSH R ASSVAL LINE 3036 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH R PUSH WSIZE ADD PUSHI #0x00000100 ADD ASSVAL 3037 %IF R>ARSIZE %THEN FAULT(102,0) LINE 3037 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH ARSIZE JUMPIF <= L_0004 PUSH FAULT PUSHI #0x00000066 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 3038 %byteintegerarray SP(0:WSIZE+256) 3039 {SP==ARRAY(ADDR(A(SAVER)),SPF) LINE 3038 "regression-compile-tmp/nrimp10s-77.imp" DEF SP p1=V_021a a/tf=1b b/format=2 c/ostate=100 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0 PUSHI #0x00000000 PUSH WSIZE PUSHI #0x00000100 ADD DIM 0001 0001 3040 %IF TYPE=1 %THEN AD=ADDR(ICONST)+4-ACC LINE 3040 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000001 JUMPIF # L_0004 PUSH AD PUSH ADDR PUSH ICONST ASSPAR CALL PUSHI #0x00000004 ADD PUSH ACC SUB ASSVAL LOCATE L_0004 3041 %IF TYPE=2 %THEN AD=ADDR(RCONST) LINE 3041 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000002 JUMPIF # L_0004 PUSH AD PUSH ADDR PUSH RCONST ASSPAR CALL ASSVAL LOCATE L_0004 3042 %IF TYPE=5 %THEN AD=ADDR(SCONST) LINE 3042 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000005 JUMPIF # L_0004 PUSH AD PUSH ADDR PUSH SCONST ASSPAR CALL ASSVAL LOCATE L_0004 3043 SPP=0; WRIT=0 LINE 3043 "regression-compile-tmp/nrimp10s-77.imp" PUSH SPP PUSHI #0x00000000 ASSVAL LINE 3043 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRIT PUSHI #0x00000000 ASSVAL 3044 ELSIZE=SIZE//NELS LINE 3044 "regression-compile-tmp/nrimp10s-77.imp" PUSH ELSIZE PUSH SIZE PUSH NELS QUOT ASSVAL 3045 {%UNTIL A(P-1)=2} %CYCLE LINE 3045 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 3046 XTRACT CONST(TYPE,PREC) LINE 3046 "regression-compile-tmp/nrimp10s-77.imp" PUSH XTRACTCONST PUSH TYPE ASSPAR PUSH PREC ASSPAR CALL 3047 %IF A(P)=1 %START; ! REPITITION FACTOR LINE 3047 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000001 JUMPIF # L_0007 3048 P=P+1 LINE 3048 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 3049 %IF INTEXP(RF)#0 %THEN FAULT(44,CONSTS FOUND) %AND RF=1 LINE 3049 "regression-compile-tmp/nrimp10s-77.imp" PUSH INTEXP PUSH RF ASSPAR CALL PUSHI #0x00000000 JUMPIF = L_000a PUSH FAULT PUSHI #0x0000002c ASSPAR PUSH CONSTSFOUND ASSPAR CALL PUSH RF PUSHI #0x00000001 ASSVAL LOCATE L_000a 3050 P=P+1 LINE 3050 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 3051 %FINISH %ELSE RF=1 %AND P=P+2 LINE 3051 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 PUSH RF PUSHI #0x00000001 ASSVAL PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL LOCATE L_0006 3052 FAULT(44,CONSTS FOUND) %IF RF<=0 LINE 3052 "regression-compile-tmp/nrimp10s-77.imp" PUSH RF PUSHI #0x00000000 JUMPIF > L_0007 PUSH FAULT PUSHI #0x0000002c ASSPAR PUSH CONSTSFOUND ASSPAR CALL LOCATE L_0007 3053 %CYCLE I=RF,-1,1 LINE 3053 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 NEGATE PUSHI #0x00000001 PUSH RF FOR L_0006 3054 %CYCLE K=0,1,ELSIZE-1 LINE 3054 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSHI #0x00000001 PUSH ELSIZE PUSHI #0x00000001 SUB PUSHI #0x00000000 FOR L_0009 3055 %IF CONSTS FOUND<=NELS %THEN SP(SPP)=BYTE INTEGER(AD+K) %AND SPP=SPP+1 LINE 3055 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTSFOUND PUSH NELS JUMPIF > L_000d PUSH SP PUSH SPP ACCESS PUSH BYTEINTEGER PUSH AD PUSH K ADD ASSPAR CALL ASSVAL PUSH SPP PUSH SPP PUSHI #0x00000001 ADD ASSVAL LOCATE L_000d 3056 %REPEAT LINE 3056 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0009 LOCATE L_000a 3057 CONSTS FOUND=CONSTS FOUND+1 LINE 3057 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTSFOUND PUSH CONSTSFOUND PUSHI #0x00000001 ADD ASSVAL 3058 %IF SPP>=4096 %START; ! EMPTY BUFFER LINE 3058 "regression-compile-tmp/nrimp10s-77.imp" PUSH SPP PUSHI #0x00001000 JUMPIF < L_000a 3059 LPUT(LPUTP,SPP,STPTR+WRIT,ADDR(SP(0))) %IF INHCODE=0 LINE 3059 "regression-compile-tmp/nrimp10s-77.imp" PUSH INHCODE PUSHI #0x00000000 JUMPIF # L_000d PUSH LPUT PUSH LPUTP ASSPAR PUSH SPP ASSPAR PUSH STPTR PUSH WRIT ADD ASSPAR PUSH ADDR PUSH SP PUSHI #0x00000000 ACCESS ASSPAR CALL ASSPAR CALL LOCATE L_000d 3060 WRIT=WRIT+SPP LINE 3060 "regression-compile-tmp/nrimp10s-77.imp" PUSH WRIT PUSH WRIT PUSH SPP ADD ASSVAL 3061 SPP=0 LINE 3061 "regression-compile-tmp/nrimp10s-77.imp" PUSH SPP PUSHI #0x00000000 ASSVAL 3062 %FINISH LINE 3062 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000a 3063 %REPEAT LINE 3063 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0006 LOCATE L_0007 3064 %REPEAT %UNTIL A(P-1)=2; ! UNTIL P=%NULL LINE 3064 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 SUB ACCESS PUSHI #0x00000002 JUMPIF = L_0004 REPEAT L_0003 LOCATE L_0004 3065 %IF CONSTS FOUND#NELS %THEN FAULT(45,CONSTS FOUND) LINE 3065 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTSFOUND PUSH NELS JUMPIF = L_0004 PUSH FAULT PUSHI #0x0000002d ASSPAR PUSH CONSTSFOUND ASSPAR CALL LOCATE L_0004 3066 STPTR=(STPTR+3)&(-4) LINE 3066 "regression-compile-tmp/nrimp10s-77.imp" PUSH STPTR PUSH STPTR PUSHI #0x00000003 ADD PUSHI #0x00000004 NEGATE AND ASSVAL 3067 LENGTH=(SIZE+3)&(-4) LINE 3067 "regression-compile-tmp/nrimp10s-77.imp" PUSH LENGTH PUSH SIZE PUSHI #0x00000003 ADD PUSHI #0x00000004 NEGATE AND ASSVAL 3068 LPUT(LPUTP,LENGTH-WRIT,STPTR+WRIT,ADDR(SP(0))) %IF INHCODE=0 LINE 3068 "regression-compile-tmp/nrimp10s-77.imp" PUSH INHCODE PUSHI #0x00000000 JUMPIF # L_0004 PUSH LPUT PUSH LPUTP ASSPAR PUSH LENGTH PUSH WRIT SUB ASSPAR PUSH STPTR PUSH WRIT ADD ASSPAR PUSH ADDR PUSH SP PUSHI #0x00000000 ACCESS ASSPAR CALL ASSPAR CALL LOCATE L_0004 3069 STPTR=STPTR+LENGTH LINE 3069 "regression-compile-tmp/nrimp10s-77.imp" PUSH STPTR PUSH STPTR PUSH LENGTH ADD ASSVAL 3070 R=SAVER LINE 3070 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH SAVER ASSVAL 3071 %END LINE 3071 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_lev4id10_INITSPACE {lev=6 --> 5} 3072 %ROUTINE CLEAR(%INTEGER LENGTH) LINE 3072 "regression-compile-tmp/nrimp10s-77.imp" DEF CLEAR (_lev0id0_lev1id1_lev2id3_CSS_lev4id10_CLEAR) p1=V_01de 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=6 --> 7, nested=0 --> 1} DEF LENGTH p1=V_020e 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=6} 3073 STPTR=(STPTR+3)&(-4) LINE 3073 "regression-compile-tmp/nrimp10s-77.imp" PUSH STPTR PUSH STPTR PUSHI #0x00000003 ADD PUSHI #0x00000004 NEGATE AND ASSVAL 3074 LENGTH=(LENGTH+3)&(-4) LINE 3074 "regression-compile-tmp/nrimp10s-77.imp" PUSH LENGTH PUSH LENGTH PUSHI #0x00000003 ADD PUSHI #0x00000004 NEGATE AND ASSVAL 3075 LPUT(LPUTP,LENGTH,STPTR,0)%IF INHCODE=0 LINE 3075 "regression-compile-tmp/nrimp10s-77.imp" PUSH INHCODE PUSHI #0x00000000 JUMPIF # L_0004 PUSH LPUT PUSH LPUTP ASSPAR PUSH LENGTH ASSPAR PUSH STPTR ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 3076 STPTR=STPTR+LENGTH LINE 3076 "regression-compile-tmp/nrimp10s-77.imp" PUSH STPTR PUSH STPTR PUSH LENGTH ADD ASSVAL 3077 %END LINE 3077 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_lev4id10_CLEAR {lev=6 --> 5} 3078 %ROUTINE STAG(%INTEGER J,DATALEN) LINE 3078 "regression-compile-tmp/nrimp10s-77.imp" DEF STAG (_lev0id0_lev1id1_lev2id3_CSS_lev4id10_STAG) p1=V_01df 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=6 --> 7, nested=0 --> 1} DEF J p1=V_020e 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 DATALEN p1=V_020f 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=6} 3079 %IF EXTRN=2 %THEN LPUT(14,EPTYPE<<24!DATALEN,EPDISP,ADDR(NAMTXT)) LINE 3079 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000002 JUMPIF # L_0004 PUSH LPUT PUSHI #0x0000000e ASSPAR PUSH EPTYPE PUSHI #0x00000018 LSH PUSH DATALEN OR ASSPAR PUSH EPDISP ASSPAR PUSH ADDR PUSH NAMTXT ASSPAR CALL ASSPAR CALL LOCATE L_0004 3080 RBASE=CBASE LINE 3080 "regression-compile-tmp/nrimp10s-77.imp" PUSH RBASE PUSH CBASE ASSVAL 3081 STORE TAG(K,J) LINE 3081 "regression-compile-tmp/nrimp10s-77.imp" PUSH STORETAG PUSH K ASSPAR PUSH J ASSPAR CALL 3082 RBASE=RLEVEL LINE 3082 "regression-compile-tmp/nrimp10s-77.imp" PUSH RBASE PUSH RLEVEL ASSVAL 3083 %END LINE 3083 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_lev4id10_STAG {lev=6 --> 5} 3084 %ROUTINE XTRACT CONST(%INTEGER CONTYPE,CONPREC) 3085 !*********************************************************************** 3086 !* P POINTS TO P<+'> OF <+'> AND IS UPDATED* 3087 !* THE CONST IS CONVERTED TO REQUIRED FORM AND IF INTEGER * 3088 !* IS LEFT IN ICONST, IF REAL IN RCONST AND IF STRING IN SCONST * 3089 !*********************************************************************** LINE 3084 "regression-compile-tmp/nrimp10s-77.imp" DEF XTRACTCONST (_lev0id0_lev1id1_lev2id3_CSS_lev4id10_XTRACTCONST) p1=V_01e0 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=6 --> 7, nested=0 --> 1} DEF CONTYPE p1=V_020e 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 CONPREC p1=V_020f 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=6} 3090 %INTEGER LENGTH,STYPE,SPREC,SACC,CPREC,MODE,I LINE 3090 "regression-compile-tmp/nrimp10s-77.imp" DEF LENGTH p1=V_0210 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 STYPE p1=V_0211 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 SPREC p1=V_0212 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 SACC p1=V_0213 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 CPREC p1=V_0214 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 MODE p1=V_0215 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 I p1=V_0216 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 3091 STYPE=PTYPE; SACC=ACC;! MAY BE CHANGED IF CONST IS EXPR LINE 3091 "regression-compile-tmp/nrimp10s-77.imp" PUSH STYPE PUSH PTYPE ASSVAL LINE 3091 "regression-compile-tmp/nrimp10s-77.imp" PUSH SACC PUSH ACC ASSVAL 3092 %IF CONTYPE=5 %THEN %START LINE 3092 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONTYPE PUSHI #0x00000005 JUMPIF # L_0004 3093 CTYPE=5 LINE 3093 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTYPE PUSHI #0x00000005 ASSVAL 3094 %IF A(P)=4 %AND A(P+1)=2 %AND A(P+2)=16_35 %AND A(P+A(P+7)+8)=2 %START LINE 3094 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000004 JUMPIF # L_0007 PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000002 JUMPIF # L_0007 PUSH A PUSH P PUSHI #0x00000002 ADD ACCESS PUSHI #0x00000035 JUMPIF # L_0007 PUSH A PUSH P PUSH A PUSH P PUSHI #0x00000007 ADD ACCESS ADD PUSHI #0x00000008 ADD ACCESS PUSHI #0x00000002 JUMPIF # L_0007 3095 SCONST=STRING(ADDR(A(P+7))) LINE 3095 "regression-compile-tmp/nrimp10s-77.imp" PUSH SCONST PUSH STRING PUSH ADDR PUSH A PUSH P PUSHI #0x00000007 ADD ACCESS ASSPAR CALL ASSPAR CALL ASSVAL 3096 LENGTH=A(P+7) LINE 3096 "regression-compile-tmp/nrimp10s-77.imp" PUSH LENGTH PUSH A PUSH P PUSHI #0x00000007 ADD ACCESS ASSVAL 3097 P=P+A(P+7)+9 LINE 3097 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSH A PUSH P PUSHI #0x00000007 ADD ACCESS ADD PUSHI #0x00000009 ADD ASSVAL 3098 %FINISH %ELSE %START LINE 3098 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 3099 FAULT(44,CONSTS FOUND); SCONST="" LINE 3099 "regression-compile-tmp/nrimp10s-77.imp" PUSH FAULT PUSHI #0x0000002c ASSPAR PUSH CONSTSFOUND ASSPAR CALL LINE 3099 "regression-compile-tmp/nrimp10s-77.imp" PUSH SCONST PUSHS "" ASSVAL 3100 LENGTH=0; P=P-3; SKIP EXP LINE 3100 "regression-compile-tmp/nrimp10s-77.imp" PUSH LENGTH PUSHI #0x00000000 ASSVAL LINE 3100 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 SUB ASSVAL LINE 3100 "regression-compile-tmp/nrimp10s-77.imp" PUSH SKIPEXP CALL 3101 %FINISH LINE 3101 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 3102 %FINISH %ELSE %START LINE 3102 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 3103 MODE=CONPREC<<4!CONTYPE LINE 3103 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSH CONPREC PUSHI #0x00000004 LSH PUSH CONTYPE OR ASSVAL 3104 %IF CONPREC<5 %THEN MODE=CONTYPE!16_50 LINE 3104 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONPREC PUSHI #0x00000005 JUMPIF >= L_0007 PUSH MODE PUSH CONTYPE PUSHI #0x00000050 OR ASSVAL LOCATE L_0007 3105 CONSTP=CONSTEXP(MODE) LINE 3105 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTP PUSH CONSTEXP PUSH MODE ASSPAR CALL ASSVAL 3106 %IF CONSTP=0 %THEN FAULT(41,0) %AND CONSTP=ADDR(ZERO);! CANT EVALUATE EXPT LINE 3106 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTP PUSHI #0x00000000 JUMPIF # L_0007 PUSH FAULT PUSHI #0x00000029 ASSPAR PUSHI #0x00000000 ASSPAR CALL PUSH CONSTP PUSH ADDR PUSH ZERO ASSPAR CALL ASSVAL LOCATE L_0007 3107 CTYPE=TYPE; CPREC=PREC LINE 3107 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTYPE PUSH TYPE ASSVAL LINE 3107 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPREC PUSH PREC ASSVAL 3108 %IF CTYPE=1 %THEN %START LINE 3108 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTYPE PUSHI #0x00000001 JUMPIF # L_0007 3109 ICONST=INTEGER(CONSTP) LINE 3109 "regression-compile-tmp/nrimp10s-77.imp" PUSH ICONST PUSH INTEGER PUSH CONSTP ASSPAR CALL ASSVAL 3110 %IF CONPREC=6 %THEN UICONST=ICONST %AND ICONST=INTEGER(CONSTP+4) LINE 3110 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONPREC PUSHI #0x00000006 JUMPIF # L_000a PUSH UICONST PUSH ICONST ASSVAL PUSH ICONST PUSH INTEGER PUSH CONSTP PUSHI #0x00000004 ADD ASSPAR CALL ASSVAL LOCATE L_000a 3111 %FINISH %ELSE %START LINE 3111 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 3112 RCONST=LONGREAL(CONSTP) LINE 3112 "regression-compile-tmp/nrimp10s-77.imp" PUSH RCONST PUSH LONGREAL PUSH CONSTP ASSPAR CALL ASSVAL 3113 %IF CONPREC=7 %THEN %START;! LONGLONGS UNALIGNED IN AR LINE 3113 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONPREC PUSHI #0x00000007 JUMPIF # L_000a 3114 %CYCLE I=0,1,15 LINE 3114 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 PUSHI #0x0000000f PUSHI #0x00000000 FOR L_000c 3115 BYTEINTEGER(ADDR(RCONST)+I)=BYTEINTEGER(CONSTP+I) LINE 3115 "regression-compile-tmp/nrimp10s-77.imp" PUSH BYTEINTEGER PUSH ADDR PUSH RCONST ASSPAR CALL PUSH I ADD ASSPAR CALL PUSH BYTEINTEGER PUSH CONSTP PUSH I ADD ASSPAR CALL ASSVAL 3116 %REPEAT LINE 3116 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_000c LOCATE L_000d 3117 %FINISH LINE 3117 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000a 3118 %FINISH LINE 3118 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 3119 %FINISH LINE 3119 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 3120 PTYPE=STYPE; UNPACK; ACC=SACC 3121 ! 3122 ! FAULT ANY OBVIOUS ERRORS IE:- 3123 ! CONSTANT FOR EXTRINSIC OR INCOMPATIBLE TYPE OR STRING TOO LONG 3124 ! LINE 3120 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSH STYPE ASSVAL LINE 3120 "regression-compile-tmp/nrimp10s-77.imp" PUSH UNPACK CALL LINE 3120 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSH SACC ASSVAL 3125 %IF EXTRN=3 %OR (CTYPE=5 %AND LENGTH>=ACC) %OR (CONTYPE=1 %AND ((CONPREC=3 %AND ICONST>255) %OR (CONPREC=4 %AND ICONST>16_FFFF))) %THEN FAULT(44,CONSTS FOUND) LINE 3125 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000003 JUMPIF = L_0005 PUSH CTYPE PUSHI #0x00000005 JUMPIF # L_0006 PUSH LENGTH PUSH ACC JUMPIF >= L_0005 LOCATE L_0006 PUSH CONTYPE PUSHI #0x00000001 JUMPIF # L_0004 PUSH CONPREC PUSHI #0x00000003 JUMPIF # L_0006 PUSH ICONST PUSHI #0x000000ff JUMPIF > L_0005 LOCATE L_0006 PUSH CONPREC PUSHI #0x00000004 JUMPIF # L_0004 PUSH ICONST PUSHI #0x0000ffff JUMPIF <= L_0004 LOCATE L_0005 PUSH FAULT PUSHI #0x0000002c ASSPAR PUSH CONSTSFOUND ASSPAR CALL LOCATE L_0004 3126 %END LINE 3126 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_lev4id10_XTRACTCONST {lev=6 --> 5} 3127 BEND: %END; ->CSSEXIT LINE 3127 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_020c LINE 3127 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_lev4id10 {lev=5 --> 4} LINE 3127 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 3128 SW(18): LINE 3128 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000012 SLABEL 427 3129 ABORT LINE 3129 "regression-compile-tmp/nrimp10s-77.imp" PUSH ABORT CALL 3130 SW(10): LINE 3130 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x0000000a SLABEL 427 3131 %BEGIN; ! %RECORD (RDECLN) 3132 !*********************************************************************** 3133 !* RECORDS ARE ALLOCATED AT COMPILE TIME WHEN POSSIBLE * 3134 !* SEE CRFORMAT FOR ACTION ON RECORD FORMAT DECLARATIONS * 3135 !*********************************************************************** LINE 3131 "regression-compile-tmp/nrimp10s-77.imp" BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id11 {lev=4 --> 5} 3136 %INTEGER MODE,RECL,ALLOC,FNAM,FINF,NAME,OPHEAD LINE 3136 "regression-compile-tmp/nrimp10s-77.imp" DEF MODE p1=V_01de 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 RECL p1=V_01df 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 ALLOC p1=V_01e0 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 FNAM p1=V_01e1 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 FINF p1=V_01e2 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 NAME p1=V_01e3 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 OPHEAD p1=V_01e4 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 3137 P=P+1; MODE=A(P); SNDISP=0 LINE 3137 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 3137 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSH A PUSH P ACCESS ASSVAL LINE 3137 "regression-compile-tmp/nrimp10s-77.imp" PUSH SNDISP PUSHI #0x00000000 ASSVAL 3138 %IF MODE=1 %THEN %START; ! DEAL WITH FORMAT LINE 3138 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000001 JUMPIF # L_0004 3139 NAME=FROM AR2(P+1); P=P+3 LINE 3139 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAME PUSH FROMAR2 PUSH P PUSHI #0x00000001 ADD ASSPAR CALL ASSVAL LINE 3139 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL 3140 CRFORMAT(OPHEAD); K=NAME LINE 3140 "regression-compile-tmp/nrimp10s-77.imp" PUSH CRFORMAT PUSH OPHEAD ASSPAR CALL LINE 3140 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH NAME ASSVAL 3141 PTYPE=4; J=0 LINE 3141 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000004 ASSVAL LINE 3141 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000000 ASSVAL 3142 KFORM=OPHEAD LINE 3142 "regression-compile-tmp/nrimp10s-77.imp" PUSH KFORM PUSH OPHEAD ASSVAL 3143 STORE TAG(K,OPHEAD) LINE 3143 "regression-compile-tmp/nrimp10s-77.imp" PUSH STORETAG PUSH K ASSPAR PUSH OPHEAD ASSPAR CALL 3144 ->BEND LINE 3144 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01e5 3145 %FINISH LINE 3145 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 3146 P=P+1; MARKER=P+FROM AR2(P) LINE 3146 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 3146 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKER PUSH P PUSH FROMAR2 PUSH P ASSPAR CALL ADD ASSVAL 3147 FNAM=FROM AR2(MARKER); ! FORMAT NAME LINE 3147 "regression-compile-tmp/nrimp10s-77.imp" PUSH FNAM PUSH FROMAR2 PUSH MARKER ASSPAR CALL ASSVAL 3148 COPY TAG(FNAM) LINE 3148 "regression-compile-tmp/nrimp10s-77.imp" PUSH COPYTAG PUSH FNAM ASSPAR CALL 3149 FINF=TCELL LINE 3149 "regression-compile-tmp/nrimp10s-77.imp" PUSH FINF PUSH TCELL ASSVAL 3150 %IF TYPE#4 %THEN %START LINE 3150 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000004 JUMPIF = L_0004 3151 FINF=DUMMY FORMAT LINE 3151 "regression-compile-tmp/nrimp10s-77.imp" PUSH FINF PUSH DUMMYFORMAT ASSVAL 3152 ACC=4; FAULT(62,FNAM) LINE 3152 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSHI #0x00000004 ASSVAL LINE 3152 "regression-compile-tmp/nrimp10s-77.imp" PUSH FAULT PUSHI #0x0000003e ASSPAR PUSH FNAM ASSPAR CALL 3153 %FINISH LINE 3153 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 3154 RECL=ACC LINE 3154 "regression-compile-tmp/nrimp10s-77.imp" PUSH RECL PUSH ACC ASSVAL 3155 %IF MODE=2%THEN %START; ! '%RECORDSPEC' LINE 3155 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000002 JUMPIF # L_0004 3156 COPY TAG(FROM AR2(P+2)) LINE 3156 "regression-compile-tmp/nrimp10s-77.imp" PUSH COPYTAG PUSH FROMAR2 PUSH P PUSHI #0x00000002 ADD ASSPAR CALL ASSPAR CALL 3157 %IF A(P+4)=1 %AND TYPE=4 %START;! SPEC FOR FORMAT ELEMENT LINE 3157 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000004 ADD ACCESS PUSHI #0x00000001 JUMPIF # L_0007 PUSH TYPE PUSHI #0x00000004 JUMPIF # L_0007 3158 P=P+5 LINE 3158 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000005 ADD ASSVAL 3159 Q=DISPLACEMENT(TCELL) LINE 3159 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH DISPLACEMENT PUSH TCELL ASSPAR CALL ASSVAL 3160 UNPACK LINE 3160 "regression-compile-tmp/nrimp10s-77.imp" PUSH UNPACK CALL 3161 %FINISH LINE 3161 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 3162 %IF TYPE=3 %AND NAM=1 %AND FROM3(TCELL)&16_FFFF=0 %START LINE 3162 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000003 JUMPIF # L_0007 PUSH NAM PUSHI #0x00000001 JUMPIF # L_0007 PUSH FROM3 PUSH TCELL ASSPAR CALL PUSHI #0x0000ffff AND PUSHI #0x00000000 JUMPIF # L_0007 3163 REPLACE3(TCELL,FINF!K<<16) LINE 3163 "regression-compile-tmp/nrimp10s-77.imp" PUSH REPLACE3 PUSH TCELL ASSPAR PUSH FINF PUSH K PUSHI #0x00000010 LSH OR ASSPAR CALL 3164 REPLACE2(TCELL,SNDISP<<16!RECL) LINE 3164 "regression-compile-tmp/nrimp10s-77.imp" PUSH REPLACE2 PUSH TCELL ASSPAR PUSH SNDISP PUSHI #0x00000010 LSH PUSH RECL OR ASSPAR CALL 3165 %FINISH %ELSE FAULT(63,0) LINE 3165 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 PUSH FAULT PUSHI #0x0000003f ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0006 3166 %FINISH %ELSE %START; ! RECORD DECLARATION LINE 3166 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 3167 FAULT(57,0) %UNLESS LEVEL>=2 LINE 3167 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x00000002 JUMPIF >= L_0007 PUSH FAULT PUSHI #0x00000039 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0007 3168 FAULT(40,0) %IF NMDECS(LEVEL)&1#0 LINE 3168 "regression-compile-tmp/nrimp10s-77.imp" PUSH NMDECS PUSH LEVEL ACCESS PUSHI #0x00000001 AND PUSHI #0x00000000 JUMPIF = L_0007 PUSH FAULT PUSHI #0x00000028 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0007 3169 TYPE=3; PREC=3; ROUT=0 LINE 3169 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000003 ASSVAL LINE 3169 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000003 ASSVAL LINE 3169 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUT PUSHI #0x00000000 ASSVAL 3170 %IF A(P+2)=1 %THEN %START; ! SIMPLE RECORD AND RECORDNAMES LINE 3170 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000002 ADD ACCESS PUSHI #0x00000001 JUMPIF # L_0007 3171 ALLOC=ACC; CQN(P+3) LINE 3171 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALLOC PUSH ACC ASSVAL LINE 3171 "regression-compile-tmp/nrimp10s-77.imp" PUSH CQN PUSH P PUSHI #0x00000003 ADD ASSPAR CALL 3172 ACC=ALLOC; P=P+4 LINE 3172 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSH ALLOC ASSVAL LINE 3172 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000004 ADD ASSVAL 3173 DECLARE SCALARS(1,FINF) LINE 3173 "regression-compile-tmp/nrimp10s-77.imp" PUSH DECLARESCALARS PUSHI #0x00000001 ASSPAR PUSH FINF ASSPAR CALL 3174 %FINISH %ELSE %START; ! ARRAYS OF RECORDS LINE 3174 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 3175 NAM=0 LINE 3175 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000000 ASSVAL 3176 Q=2-A(P+3); P=P+4; ! Q=1 FOR ARRAY FORMAT LINE 3176 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSHI #0x00000002 PUSH A PUSH P PUSHI #0x00000003 ADD ACCESS SUB ASSVAL LINE 3176 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000004 ADD ASSVAL 3177 SET LINE LINE 3177 "regression-compile-tmp/nrimp10s-77.imp" PUSH SETLINE CALL 3178 DECLARE ARRAYS(Q,FINF) LINE 3178 "regression-compile-tmp/nrimp10s-77.imp" PUSH DECLAREARRAYS PUSH Q ASSPAR PUSH FINF ASSPAR CALL 3179 %FINISH LINE 3179 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 3180 %FINISH LINE 3180 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 3181 BEND: %END;->CSSEXIT 3182 ! LINE 3181 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01e5 LINE 3181 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_lev4id11 {lev=5 --> 4} LINE 3181 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 3183 SW(19): 3184 ! '*' (UCI) (S) LINE 3183 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000013 SLABEL 427 3185 FAULT(57,0) %UNLESS LEVEL>=2 LINE 3185 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x00000002 JUMPIF >= L_0004 PUSH FAULT PUSHI #0x00000039 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 3186 %BEGIN LINE 3186 "regression-compile-tmp/nrimp10s-77.imp" BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id12 {lev=4 --> 5} 3187 %ROUTINESPEC CIND LINE 3187 "regression-compile-tmp/nrimp10s-77.imp" DEF CIND (_lev0id0_lev1id1_lev2id3_CSS_lev4id12_CIND) p1=V_01de a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=5 --> 6, nested=0 --> 1} FINISH ) {lev=5} 3188 %INTEGER FNAME,ALT,OPCODE,FORM,H,Q,MASK,FILLER LINE 3188 "regression-compile-tmp/nrimp10s-77.imp" DEF FNAME p1=V_01df 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 ALT p1=V_01e0 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 OPCODE p1=V_01e1 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 FORM p1=V_01e2 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 H p1=V_01e3 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_01e4 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 MASK p1=V_01e5 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 FILLER p1=V_01e6 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 3189 %SWITCH SW(1:5),F(1:3),POP(1:6),TOP(1:4) LINE 3189 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 PUSHI #0x00000005 BOUNDS DEF SW p1=V_01e7 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 PUSHI #0x00000001 PUSHI #0x00000003 BOUNDS DEF F p1=V_01e8 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 PUSHI #0x00000001 PUSHI #0x00000006 BOUNDS DEF POP p1=V_01e9 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 PUSHI #0x00000001 PUSHI #0x00000004 BOUNDS DEF TOP p1=V_01ea 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 3190 ALT=A(P+1); P=P+2 LINE 3190 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS ASSVAL LINE 3190 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 3191 OPCODE=CALL LINE 3191 "regression-compile-tmp/nrimp10s-77.imp" PUSH OPCODE PUSHI #0x0000001e ASSVAL 3192 ->SW(ALT) LINE 3192 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT SJUMP 487 3193 SW(1):SW(2): LINE 3193 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 SLABEL 487 LINE 3193 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000002 SLABEL 487 3194 FNAME=FROM AR2(P) LINE 3194 "regression-compile-tmp/nrimp10s-77.imp" PUSH FNAME PUSH FROMAR2 PUSH P ASSPAR CALL ASSVAL 3195 COPY TAG(FNAME) LINE 3195 "regression-compile-tmp/nrimp10s-77.imp" PUSH COPYTAG PUSH FNAME ASSPAR CALL 3196 FAULT(33,FNAME) %UNLESS ROUT=NAM=0 %AND ARR=0 %AND PREC>4 %AND I=RBASE %AND TYPE#7 LINE 3196 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUT PUSH NAM JUMPIFD # L_0005 PUSHI #0x00000000 JUMPIF # L_0005 PUSH ARR PUSHI #0x00000000 JUMPIF # L_0005 PUSH PREC PUSHI #0x00000004 JUMPIF <= L_0005 PUSH I PUSH RBASE JUMPIF # L_0005 PUSH TYPE PUSHI #0x00000007 JUMPIF # L_0004 LOCATE L_0005 PUSH FAULT PUSHI #0x00000021 ASSPAR PUSH FNAME ASSPAR CALL LOCATE L_0004 3197 %IF ALT=1 %THEN PSF1(ST,1,K) %ELSE GET IN ACC(ACCR,BYTES(PREC)>>2,0,LNB,K) LINE 3197 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSHI #0x00000001 JUMPIF # L_0004 PUSH PSF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000001 ASSPAR PUSH K ASSPAR CALL GOTO L_0003 LOCATE L_0004 PUSH GETINACC PUSHI #0x00000000 ASSPAR PUSH BYTES PUSH PREC ACCESS PUSHI #0x00000002 RSH ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000002 ASSPAR PUSH K ASSPAR CALL LOCATE L_0003 3198 ->EXIT LINE 3198 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01eb 3199 SW(3): ! PUT (HEX HALFWORD) LINE 3199 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000003 SLABEL 487 3200 TYPE=A(P) LINE 3200 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSH A PUSH P ACCESS ASSVAL 3201 PREC=TYPE>>4; TYPE=TYPE&7 LINE 3201 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSH TYPE PUSHI #0x00000004 RSH ASSVAL LINE 3201 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSH TYPE PUSHI #0x00000007 AND ASSVAL 3202 FAULT(32,0) %UNLESS TYPE=1 %AND PREC<6 LINE 3202 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000001 JUMPIF # L_0005 PUSH PREC PUSHI #0x00000006 JUMPIF < L_0004 LOCATE L_0005 PUSH FAULT PUSHI #0x00000020 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 3203 %IF PREC=5 %THEN P=P+2 LINE 3203 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000005 JUMPIF # L_0004 PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL LOCATE L_0004 3204 PLANT(FROM AR2(P+1)) LINE 3204 "regression-compile-tmp/nrimp10s-77.imp" PUSH PLANT PUSH FROMAR2 PUSH P PUSHI #0x00000001 ADD ASSPAR CALL ASSPAR CALL 3205 ->EXIT LINE 3205 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01eb 3206 SW(5): ! CNOP LINE 3206 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000005 SLABEL 487 3207 CNOP(A(P),A(P+1)) LINE 3207 "regression-compile-tmp/nrimp10s-77.imp" PUSH CNOP PUSH A PUSH P ACCESS ASSPAR PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS ASSPAR CALL 3208 ->EXIT LINE 3208 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01eb 3209 SW(4): ! ASSEMBLER LINE 3209 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000004 SLABEL 487 3210 FORM=A(P); ! FORM=PRIMARY,SECONDARY OR 3RY LINE 3210 "regression-compile-tmp/nrimp10s-77.imp" PUSH FORM PUSH A PUSH P ACCESS ASSVAL 3211 OPCODE=A(P+1) LINE 3211 "regression-compile-tmp/nrimp10s-77.imp" PUSH OPCODE PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS ASSVAL 3212 P=P+2; ->F(FORM) LINE 3212 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL LINE 3212 "regression-compile-tmp/nrimp10s-77.imp" PUSH FORM SJUMP 488 3213 F(1): ! ALL PRIMARY FORMAT INSTRUCTIONS LINE 3213 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 SLABEL 488 3214 ALT=A(P); P=P+1 LINE 3214 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSH A PUSH P ACCESS ASSVAL LINE 3214 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 3215 ->POP(ALT) LINE 3215 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT SJUMP 489 3216 POP(1): ! LABELNAME LINE 3216 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 SLABEL 489 3217 FNAME=FROM AR2(P); P=P+2 LINE 3217 "regression-compile-tmp/nrimp10s-77.imp" PUSH FNAME PUSH FROMAR2 PUSH P ASSPAR CALL ASSVAL LINE 3217 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 3218 ENTER JUMP(OPCODE<<24!3<<23,FNAME,0) LINE 3218 "regression-compile-tmp/nrimp10s-77.imp" PUSH ENTERJUMP PUSH OPCODE PUSHI #0x00000018 LSH PUSHI #0x00000003 PUSHI #0x00000017 LSH OR ASSPAR PUSH FNAME ASSPAR PUSHI #0x00000000 ASSPAR CALL 3219 ->EXIT LINE 3219 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01eb 3220 POP(2): ! DIRECT SYMBOLIC LINE 3220 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000002 SLABEL 489 3221 CIND LINE 3221 "regression-compile-tmp/nrimp10s-77.imp" PUSH CIND CALL 3222 POPI: PSORLF1(OPCODE,ACCESS,AREA,DISP) LINE 3222 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01ec LINE 3222 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSORLF1 PUSH OPCODE ASSPAR PUSH ACCESS ASSPAR PUSH AREA ASSPAR PUSH DISP ASSPAR CALL 3223 ->EXIT LINE 3223 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01eb 3224 POP(3): ! INDIRECT SYMBOLIC LINE 3224 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000003 SLABEL 489 3225 CIND LINE 3225 "regression-compile-tmp/nrimp10s-77.imp" PUSH CIND CALL 3226 ACCESS=4-A(P); P=P+1 LINE 3226 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACCESS PUSHI #0x00000004 PUSH A PUSH P ACCESS SUB ASSVAL LINE 3226 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 3227 ->POPI LINE 3227 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01ec 3228 POP(4): ! DR SYMBOLICALLY MODIFIED LINE 3228 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000004 SLABEL 489 3229 CIND; ACCESS=1; ->POPI LINE 3229 "regression-compile-tmp/nrimp10s-77.imp" PUSH CIND CALL LINE 3229 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACCESS PUSHI #0x00000001 ASSVAL LINE 3229 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01ec 3230 POP(5): ! (DR) & (DR+B) LINE 3230 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000005 SLABEL 489 3231 ACCESS=4-A(P); AREA=7 LINE 3231 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACCESS PUSHI #0x00000004 PUSH A PUSH P ACCESS SUB ASSVAL LINE 3231 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000007 ASSVAL 3232 DISP=0; P=P+1 LINE 3232 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSHI #0x00000000 ASSVAL LINE 3232 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 3233 ->POPI LINE 3233 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01ec 3234 POP(6): ! B LINE 3234 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000006 SLABEL 489 3235 ACCESS=0 LINE 3235 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACCESS PUSHI #0x00000000 ASSVAL 3236 AREA=7; DISP=0; ->POPI LINE 3236 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000007 ASSVAL LINE 3236 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSHI #0x00000000 ASSVAL LINE 3236 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01ec 3237 F(2): ! SECONDARY (STORE-TO STORE)FORMAT LINE 3237 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000002 SLABEL 488 3238 MASK=0; FILLER=0; Q=0; FNAME=0 LINE 3238 "regression-compile-tmp/nrimp10s-77.imp" PUSH MASK PUSHI #0x00000000 ASSVAL LINE 3238 "regression-compile-tmp/nrimp10s-77.imp" PUSH FILLER PUSHI #0x00000000 ASSVAL LINE 3238 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSHI #0x00000000 ASSVAL LINE 3238 "regression-compile-tmp/nrimp10s-77.imp" PUSH FNAME PUSHI #0x00000000 ASSVAL 3239 H=2-A(P) LINE 3239 "regression-compile-tmp/nrimp10s-77.imp" PUSH H PUSHI #0x00000002 PUSH A PUSH P ACCESS SUB ASSVAL 3240 %IF H=0 %THEN FNAME=FROM AR2(P+1)-1 %AND P=P+2 LINE 3240 "regression-compile-tmp/nrimp10s-77.imp" PUSH H PUSHI #0x00000000 JUMPIF # L_0004 PUSH FNAME PUSH FROMAR2 PUSH P PUSHI #0x00000001 ADD ASSPAR CALL PUSHI #0x00000001 SUB ASSVAL PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL LOCATE L_0004 3241 FAULT(32,0) %UNLESS 0<=FNAME<=127 LINE 3241 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSH FNAME JUMPIFD > L_0005 PUSHI #0x0000007f JUMPIF <= L_0004 LOCATE L_0005 PUSH FAULT PUSHI #0x00000020 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 3242 ALT=A(P+1); P=P+2 LINE 3242 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS ASSVAL LINE 3242 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 3243 %IF ALT=1 %THEN %START LINE 3243 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSHI #0x00000001 JUMPIF # L_0004 3244 Q=1 LINE 3244 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSHI #0x00000001 ASSVAL 3245 MASK=FROM AR2(P) LINE 3245 "regression-compile-tmp/nrimp10s-77.imp" PUSH MASK PUSH FROMAR2 PUSH P ASSPAR CALL ASSVAL 3246 FILLER=FROM AR2(P+2) LINE 3246 "regression-compile-tmp/nrimp10s-77.imp" PUSH FILLER PUSH FROMAR2 PUSH P PUSHI #0x00000002 ADD ASSPAR CALL ASSVAL 3247 P=P+4 LINE 3247 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000004 ADD ASSVAL 3248 FAULT(32,0) %UNLESS 0<=MASK!FILLER<=255 LINE 3248 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSH MASK PUSH FILLER OR JUMPIFD > L_0008 PUSHI #0x000000ff JUMPIF <= L_0007 LOCATE L_0008 PUSH FAULT PUSHI #0x00000020 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0007 3249 %FINISH LINE 3249 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 3250 PF2(OPCODE,H,Q,FNAME,MASK,FILLER) LINE 3250 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF2 PUSH OPCODE ASSPAR PUSH H ASSPAR PUSH Q ASSPAR PUSH FNAME ASSPAR PUSH MASK ASSPAR PUSH FILLER ASSPAR CALL 3251 ->EXIT LINE 3251 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01eb 3252 F(3): ! TERTIARY FORMAT LINE 3252 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000003 SLABEL 488 3253 MASK=FROM AR2(P) LINE 3253 "regression-compile-tmp/nrimp10s-77.imp" PUSH MASK PUSH FROMAR2 PUSH P ASSPAR CALL ASSVAL 3254 ALT=A(P+2) LINE 3254 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSH A PUSH P PUSHI #0x00000002 ADD ACCESS ASSVAL 3255 FAULT(32,0) %UNLESS 0<=MASK<=15 LINE 3255 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 PUSH MASK JUMPIFD > L_0005 PUSHI #0x0000000f JUMPIF <= L_0004 LOCATE L_0005 PUSH FAULT PUSHI #0x00000020 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 3256 P=P+3; ->TOP(ALT) LINE 3256 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL LINE 3256 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT SJUMP 490 3257 TOP(1): ! LABEL LINE 3257 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 SLABEL 490 3258 FNAME=FROM AR2(P); P=P+2 LINE 3258 "regression-compile-tmp/nrimp10s-77.imp" PUSH FNAME PUSH FROMAR2 PUSH P ASSPAR CALL ASSVAL LINE 3258 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 3259 ENTER JUMP(OPCODE<<24!MASK<<21,FNAME,0) LINE 3259 "regression-compile-tmp/nrimp10s-77.imp" PUSH ENTERJUMP PUSH OPCODE PUSHI #0x00000018 LSH PUSH MASK PUSHI #0x00000015 LSH OR ASSPAR PUSH FNAME ASSPAR PUSHI #0x00000000 ASSPAR CALL 3260 ->EXIT LINE 3260 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01eb 3261 TOP(2): ! SYMBOLIC OPERAND LINE 3261 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000002 SLABEL 490 3262 CIND LINE 3262 "regression-compile-tmp/nrimp10s-77.imp" PUSH CIND CALL 3263 FAULT(32,0) %IF AREA>=6 LINE 3263 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000006 JUMPIF < L_0004 PUSH FAULT PUSHI #0x00000020 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 3264 %IF AREA=LNB %OR AREA=XNB %OR AREA=CTB %THEN DISP=DISP//4 LINE 3264 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000002 JUMPIF = L_0005 PUSH AREA PUSHI #0x00000003 JUMPIF = L_0005 PUSH AREA PUSHI #0x00000005 JUMPIF # L_0004 LOCATE L_0005 PUSH DISP PUSH DISP PUSHI #0x00000004 QUOT ASSVAL LOCATE L_0004 3265 TOPI: PF3(OPCODE,MASK,AREA,DISP) LINE 3265 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01ed LINE 3265 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF3 PUSH OPCODE ASSPAR PUSH MASK ASSPAR PUSH AREA ASSPAR PUSH DISP ASSPAR CALL 3266 ->EXIT LINE 3266 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01eb 3267 TOP(3): ! (DR) & (DR+B) LINE 3267 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000003 SLABEL 490 3268 DISP=0; AREA=8-A(P) LINE 3268 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSHI #0x00000000 ASSVAL LINE 3268 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000008 PUSH A PUSH P ACCESS SUB ASSVAL 3269 P=P+1; ->TOPI LINE 3269 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 3269 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01ed 3270 TOP(4): ! (DR+N) LINE 3270 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000004 SLABEL 490 3271 DISP=FROM AR2(P); P=P+2 LINE 3271 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSH FROMAR2 PUSH P ASSPAR CALL ASSVAL LINE 3271 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 3272 AREA=1; ->TOPI LINE 3272 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000001 ASSVAL LINE 3272 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01ed 3273 %ROUTINE CIND 3274 !*********************************************************************** 3275 !* COMPILE A SYMBOLIC OPERAND BY SETTING ACCESS,AREA &DISP * 3276 !*********************************************************************** LINE 3273 "regression-compile-tmp/nrimp10s-77.imp" DEF CIND (_lev0id0_lev1id1_lev2id3_CSS_lev4id12_CIND) p1=V_01de 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=6 --> 7, nested=0 --> 1} FINISH ) {lev=6} 3277 %INTEGER ALT,AFN,FN0,FN1,FN2,FN3,JJ,D,CTYPE,CPREC LINE 3277 "regression-compile-tmp/nrimp10s-77.imp" DEF ALT p1=V_01ee 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 AFN p1=V_01ef 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 FN0 p1=V_01f0 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 FN1 p1=V_01f1 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 FN2 p1=V_01f2 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 FN3 p1=V_01f3 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 JJ p1=V_01f4 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 D p1=V_01f5 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 CTYPE p1=V_01f6 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 CPREC p1=V_01f7 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 3278 %SWITCH SW(1:4) LINE 3278 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 PUSHI #0x00000004 BOUNDS DEF SW p1=V_01f8 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 3279 AFN=ADDR(FN0) LINE 3279 "regression-compile-tmp/nrimp10s-77.imp" PUSH AFN PUSH ADDR PUSH FN0 ASSPAR CALL ASSVAL 3280 ALT=A(P); ACCESS=0 LINE 3280 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSH A PUSH P ACCESS ASSVAL LINE 3280 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACCESS PUSHI #0x00000000 ASSVAL 3281 P=P+1; ->SW(ALT) LINE 3281 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 3281 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT SJUMP 504 3282 SW(1): ! (=')(PLUS')(ICONST) LINE 3282 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 SLABEL 504 3283 P=P+1; ! PAST (=') LINE 3283 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 3284 D=A(P); CTYPE=A(P+1) LINE 3284 "regression-compile-tmp/nrimp10s-77.imp" PUSH D PUSH A PUSH P ACCESS ASSVAL LINE 3284 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTYPE PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS ASSVAL 3285 CPREC=CTYPE>>4; CTYPE=CTYPE&7 LINE 3285 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPREC PUSH CTYPE PUSHI #0x00000004 RSH ASSVAL LINE 3285 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTYPE PUSH CTYPE PUSHI #0x00000007 AND ASSVAL 3286 %IF CPREC=4 %THEN FN0=FROM AR2(P+2) %ELSE %START LINE 3286 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPREC PUSHI #0x00000004 JUMPIF # L_0004 PUSH FN0 PUSH FROMAR2 PUSH P PUSHI #0x00000002 ADD ASSPAR CALL ASSVAL GOTO L_0003 LOCATE L_0004 3287 %CYCLE JJ=0,1,BYTES(CPREC)-1 LINE 3287 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSHI #0x00000001 PUSH BYTES PUSH CPREC ACCESS PUSHI #0x00000001 SUB PUSHI #0x00000000 FOR L_0006 3288 BYTEINTEGER(AFN+JJ)=A(P+JJ+2) LINE 3288 "regression-compile-tmp/nrimp10s-77.imp" PUSH BYTEINTEGER PUSH AFN PUSH JJ ADD ASSPAR CALL PUSH A PUSH P PUSH JJ ADD PUSHI #0x00000002 ADD ACCESS ASSVAL 3289 %REPEAT LINE 3289 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0006 LOCATE L_0007 3290 %FINISH LINE 3290 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 3291 P=P+2+BYTES(CPREC) LINE 3291 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD PUSH BYTES PUSH CPREC ACCESS ADD ASSVAL 3292 %IF D=2 %THEN %START LINE 3292 "regression-compile-tmp/nrimp10s-77.imp" PUSH D PUSHI #0x00000002 JUMPIF # L_0004 3293 %IF CTYPE=2 %THEN FN0=FN0!!16_80000000 %ELSE %START LINE 3293 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTYPE PUSHI #0x00000002 JUMPIF # L_0007 PUSH FN0 PUSH FN0 PUSHI #0x80000000 XOR ASSVAL GOTO L_0006 LOCATE L_0007 3294 %IF CPREC=6 %THEN LONGINTEGER(AFN)=-LONGINTEGER(AFN) %ELSE FN0=-FN0 LINE 3294 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPREC PUSHI #0x00000006 JUMPIF # L_000a PUSH LONGINTEGER PUSH AFN ASSPAR CALL PUSH LONGINTEGER PUSH AFN ASSPAR CALL NEGATE ASSVAL GOTO L_0009 LOCATE L_000a PUSH FN0 PUSH FN0 NEGATE ASSVAL LOCATE L_0009 3295 %FINISH LINE 3295 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 3296 %FINISH LINE 3296 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 3297 CNST: ->LIT %UNLESS CTYPE=1 %AND CPREC<=5 %AND 16_FFFE0000<=FN0<=16_1FFFF LINE 3297 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01f9 LINE 3297 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTYPE PUSHI #0x00000001 JUMPIF # L_0005 PUSH CPREC PUSHI #0x00000005 JUMPIF > L_0005 PUSHI #0xfffe0000 PUSH FN0 JUMPIFD > L_0005 PUSHI #0x0001ffff JUMPIF <= L_0004 LOCATE L_0005 JUMP L_01fa LOCATE L_0004 3298 AREA=0; DISP=FN0 LINE 3298 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000000 ASSVAL LINE 3298 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSH FN0 ASSVAL 3299 %RETURN LINE 3299 "regression-compile-tmp/nrimp10s-77.imp" RETURN 3300 LIT: FAULT(32,0) %UNLESS 1<=CTYPE<=2 %AND 5<=CPREC<=7 LINE 3300 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01fa LINE 3300 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 PUSH CTYPE JUMPIFD > L_0005 PUSHI #0x00000002 JUMPIF > L_0005 PUSHI #0x00000005 PUSH CPREC JUMPIFD > L_0005 PUSHI #0x00000007 JUMPIF <= L_0004 LOCATE L_0005 PUSH FAULT PUSHI #0x00000020 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 3301 STORE CONST(DISP,BYTES(CPREC),AFN) LINE 3301 "regression-compile-tmp/nrimp10s-77.imp" PUSH STORECONST PUSH DISP ASSPAR PUSH BYTES PUSH CPREC ACCESS ASSPAR PUSH AFN ASSPAR CALL 3302 AREA=PC; ACCESS=0 LINE 3302 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000004 ASSVAL LINE 3302 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACCESS PUSHI #0x00000000 ASSVAL 3303 %RETURN LINE 3303 "regression-compile-tmp/nrimp10s-77.imp" RETURN 3304 SW(2): ! (NAME)(OPTINC) LINE 3304 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000002 SLABEL 504 3305 FN0=FROM AR2(P); P=P+2 LINE 3305 "regression-compile-tmp/nrimp10s-77.imp" PUSH FN0 PUSH FROMAR2 PUSH P ASSPAR CALL ASSVAL LINE 3305 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 3306 COPY TAG(FN0) LINE 3306 "regression-compile-tmp/nrimp10s-77.imp" PUSH COPYTAG PUSH FN0 ASSPAR CALL 3307 %IF (LITL=1 %AND ARR=0) %START LINE 3307 "regression-compile-tmp/nrimp10s-77.imp" PUSH LITL PUSHI #0x00000001 JUMPIF # L_0004 PUSH ARR PUSHI #0x00000000 JUMPIF # L_0004 3308 CTYPE=TYPE; CPREC=PREC LINE 3308 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTYPE PUSH TYPE ASSVAL LINE 3308 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPREC PUSH PREC ASSVAL 3309 ALT=TAGS(FN0) LINE 3309 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSH TAGS PUSH FN0 ACCESS ASSVAL 3310 FROM123(ALT,D,FN0,FN1) LINE 3310 "regression-compile-tmp/nrimp10s-77.imp" PUSH FROM123 PUSH ALT ASSPAR PUSH D ASSPAR PUSH FN0 ASSPAR PUSH FN1 ASSPAR CALL 3311 %IF CPREC=7 %THEN AFN=FN1 LINE 3311 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPREC PUSHI #0x00000007 JUMPIF # L_0007 PUSH AFN PUSH FN1 ASSVAL LOCATE L_0007 3312 ->CNST LINE 3312 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01f9 3313 %FINISH LINE 3313 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 3314 %IF TYPE>=6 %OR TYPE=4 %OR (ROUT=1 %AND NAM=0) %THEN FAULT(33,FN0) %AND %RETURN LINE 3314 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000006 JUMPIF >= L_0005 PUSH TYPE PUSHI #0x00000004 JUMPIF = L_0005 PUSH ROUT PUSHI #0x00000001 JUMPIF # L_0004 PUSH NAM PUSHI #0x00000000 JUMPIF # L_0004 LOCATE L_0005 PUSH FAULT PUSHI #0x00000021 ASSPAR PUSH FN0 ASSPAR CALL RETURN LOCATE L_0004 3315 %IF ROUT=1 %THEN K=FROM1(K) LINE 3315 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUT PUSHI #0x00000001 JUMPIF # L_0004 PUSH K PUSH FROM1 PUSH K ASSPAR CALL ASSVAL LOCATE L_0004 3316 AREA=LNB LINE 3316 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000002 ASSVAL 3317 %IF I#RBASE %THEN AREA=SET XORYNB(XNB,I) LINE 3317 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH RBASE JUMPIF = L_0004 PUSH AREA PUSH SETXORYNB PUSHI #0x00000003 ASSPAR PUSH I ASSPAR CALL ASSVAL LOCATE L_0004 3318 ALT=A(P); D=FROM AR2(P+1) LINE 3318 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSH A PUSH P ACCESS ASSVAL LINE 3318 "regression-compile-tmp/nrimp10s-77.imp" PUSH D PUSH FROMAR2 PUSH P PUSHI #0x00000001 ADD ASSPAR CALL ASSVAL 3319 %IF ALT=1 %THEN K=K+D LINE 3319 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSHI #0x00000001 JUMPIF # L_0004 PUSH K PUSH K PUSH D ADD ASSVAL LOCATE L_0004 3320 %IF ALT=2 %THEN K=K-D LINE 3320 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSHI #0x00000002 JUMPIF # L_0004 PUSH K PUSH K PUSH D SUB ASSVAL LOCATE L_0004 3321 P=P+1; P=P+2 %IF ALT<=2 LINE 3321 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 3321 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSHI #0x00000002 JUMPIF > L_0004 PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL LOCATE L_0004 3322 DISP=K; %RETURN LINE 3322 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSH K ASSVAL LINE 3322 "regression-compile-tmp/nrimp10s-77.imp" RETURN 3323 SW(3): ! '('(REG)(OPTINC)')' LINE 3323 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000003 SLABEL 504 3324 AREA=A(P)+1; ALT=A(P+1); P=P+2 LINE 3324 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSH A PUSH P ACCESS PUSHI #0x00000001 ADD ASSVAL LINE 3324 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS ASSVAL LINE 3324 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 3325 DISP=0 LINE 3325 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSHI #0x00000000 ASSVAL 3326 D=FROM AR2(P) LINE 3326 "regression-compile-tmp/nrimp10s-77.imp" PUSH D PUSH FROMAR2 PUSH P ASSPAR CALL ASSVAL 3327 %IF ALT=1 %THEN DISP=D LINE 3327 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSHI #0x00000001 JUMPIF # L_0004 PUSH DISP PUSH D ASSVAL LOCATE L_0004 3328 %IF ALT=2 %THEN FAULT(32,0) LINE 3328 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSHI #0x00000002 JUMPIF # L_0004 PUSH FAULT PUSHI #0x00000020 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 3329 %IF AREA=PC %THEN DISP=CA+2*DISP %ELSE DISP=4*DISP LINE 3329 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000004 JUMPIF # L_0004 PUSH DISP PUSH CA PUSHI #0x00000002 PUSH DISP MUL ADD ASSVAL GOTO L_0003 LOCATE L_0004 PUSH DISP PUSHI #0x00000004 PUSH DISP MUL ASSVAL LOCATE L_0003 3330 P=P+2 %UNLESS ALT=3 LINE 3330 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSHI #0x00000003 JUMPIF = L_0004 PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL LOCATE L_0004 3331 %RETURN LINE 3331 "regression-compile-tmp/nrimp10s-77.imp" RETURN 3332 SW(4): ! '%TOS' LINE 3332 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000004 SLABEL 504 3333 AREA=6; DISP=0 LINE 3333 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000006 ASSVAL LINE 3333 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSHI #0x00000000 ASSVAL 3334 %END LINE 3334 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_lev4id12_CIND {lev=6 --> 5} 3335 EXIT: GRUSE(ACCR)=0 LINE 3335 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01eb LINE 3335 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL 3336 GRUSE(DR)=0 LINE 3336 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000001 ACCESS PUSHI #0x00000000 ASSVAL 3337 GRUSE(BREG)=0 LINE 3337 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000007 ACCESS PUSHI #0x00000000 ASSVAL 3338 GRUSE(XNB)=0 %IF OPCODE=CALL %OR OPCODE=LXN %OR OPCODE=JLK %OR OPCODE=OUT LINE 3338 "regression-compile-tmp/nrimp10s-77.imp" PUSH OPCODE PUSHI #0x0000001e JUMPIF = L_0005 PUSH OPCODE PUSHI #0x0000007e JUMPIF = L_0005 PUSH OPCODE PUSHI #0x0000001c JUMPIF = L_0005 PUSH OPCODE PUSHI #0x0000003c JUMPIF # L_0004 LOCATE L_0005 PUSH GRUSE PUSHI #0x00000003 ACCESS PUSHI #0x00000000 ASSVAL LOCATE L_0004 3339 GRUSE(CTB)=0 %IF OPCODE=CALL %OR OPCODE=LCT %OR OPCODE=JLK %OR OPCODE=OUT LINE 3339 "regression-compile-tmp/nrimp10s-77.imp" PUSH OPCODE PUSHI #0x0000001e JUMPIF = L_0005 PUSH OPCODE PUSHI #0x00000030 JUMPIF = L_0005 PUSH OPCODE PUSHI #0x0000001c JUMPIF = L_0005 PUSH OPCODE PUSHI #0x0000003c JUMPIF # L_0004 LOCATE L_0005 PUSH GRUSE PUSHI #0x00000005 ACCESS PUSHI #0x00000000 ASSVAL LOCATE L_0004 3340 %END LINE 3340 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_lev4id12 {lev=5 --> 4} 3341 ->CSSEXIT LINE 3341 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 3342 SW(20): 3343 ! '%TRUSTEDPROGRAM' LINE 3342 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000014 SLABEL 427 3344 COMPILER=1 %IF PARMARR=0 %AND PARMCHK=0; ->CSSEXIT LINE 3344 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMARR PUSHI #0x00000000 JUMPIF # L_0004 PUSH PARMCHK PUSHI #0x00000000 JUMPIF # L_0004 PUSH COMPILER PUSHI #0x00000001 ASSVAL LOCATE L_0004 LINE 3344 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 3345 SW(21): ! '%MAINEP'(NAME) LINE 3345 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000015 SLABEL 427 3346 KK=FROM AR2(P+1) LINE 3346 "regression-compile-tmp/nrimp10s-77.imp" PUSH KK PUSH FROMAR2 PUSH P PUSHI #0x00000001 ADD ASSPAR CALL ASSVAL 3347 FAULT(58,0) %UNLESS CPRMODE=0 LINE 3347 "regression-compile-tmp/nrimp10s-77.imp" PUSH CPRMODE PUSHI #0x00000000 JUMPIF = L_0004 PUSH FAULT PUSHI #0x0000003a ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 3348 MAINEP<-STRING(DICTBASE+WORD(KK)) LINE 3348 "regression-compile-tmp/nrimp10s-77.imp" PUSH MAINEP PUSH STRING PUSH DICTBASE PUSH WORD PUSH KK ACCESS ADD ASSPAR CALL JAM 3349 ->CSSEXIT LINE 3349 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01db 3350 %ROUTINE CRFORMAT(%INTEGERNAME OPHEAD) 3351 !*********************************************************************** 3352 !* CONVERTS A RECORDFORMAT STATEMENT TO A LIST HEADED BY OPHEAD * 3353 !* FORMAT OF AN ENTRY. * 3354 !* S1=SUBNAME<<20!PTYPE<<4!J * 3355 !* S2,S3=4 16 BIT DISPLACEMENTS D2,ACC,D1,KFORM * 3356 !* NORMALLY D1=RECORD RELATIVE DISPLACEMENT AND ACC=LMAX(STRINGS)* 3357 !* FOR ARRAYS D2=FIRST ELEMENT DISPLACEMENT AND D1=DISPLACEMENT * 3358 !* OF RECORD RELATIVE ARRAYHEAD IN THE GLA * 3359 !* KFORM IS ONLY USED FOR RECORDS AND POINTS TO THE FORMAT * 3360 !* ON EXIT ACC HAS THE RECORD SIZE ROUNDED UP TO THE BOUNDARY * 3361 !* REQUIRED BY ITS LARGEST COMPONENT * 3362 !*********************************************************************** LINE 3350 "regression-compile-tmp/nrimp10s-77.imp" DEF CRFORMAT (_lev0id0_lev1id1_lev2id3_CSS_CRFORMAT) p1=V_01a1 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=5 --> 6, nested=0 --> 1} DEF OPHEAD p1=V_01de a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=5} 3363 %INTEGER D1,D2,NLIST,FORM,RL,MRL,UNSCAL,SC,DESC,FN,INC,Q,R,A0,A1,A2,DV,RFD,LB,OB,TYPEP,SACC LINE 3363 "regression-compile-tmp/nrimp10s-77.imp" DEF D1 p1=V_01df 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 D2 p1=V_01e0 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 NLIST p1=V_01e1 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 FORM p1=V_01e2 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 RL p1=V_01e3 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 MRL p1=V_01e4 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 UNSCAL p1=V_01e5 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 SC p1=V_01e6 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 DESC p1=V_01e7 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 FN p1=V_01e8 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 INC p1=V_01e9 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_01ea 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 R p1=V_01eb 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 A0 p1=V_01ec 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 A1 p1=V_01ed 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 A2 p1=V_01ee 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 DV p1=V_01ef 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 RFD p1=V_01f0 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 LB p1=V_01f1 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 OB p1=V_01f2 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 TYPEP p1=V_01f3 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 SACC p1=V_01f4 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 3364 %SWITCH RFEL(1:5) LINE 3364 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 PUSHI #0x00000005 BOUNDS DEF RFEL p1=V_01f5 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 3365 %ROUTINESPEC SN(%INTEGER Q) LINE 3365 "regression-compile-tmp/nrimp10s-77.imp" DEF SN (_lev0id0_lev1id1_lev2id3_CSS_CRFORMAT_SN) p1=V_01f6 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=5 --> 6, nested=0 --> 1} DEF Q p1=V_01f7 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=5} 3366 %ROUTINESPEC ROUND LINE 3366 "regression-compile-tmp/nrimp10s-77.imp" DEF ROUND (_lev0id0_lev1id1_lev2id3_CSS_CRFORMAT_ROUND) p1=V_01f7 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=5 --> 6, nested=0 --> 1} FINISH ) {lev=5} 3367 NLIST=0; OPHEAD=0; FORM=0; ACC=0; OB=0 LINE 3367 "regression-compile-tmp/nrimp10s-77.imp" PUSH NLIST PUSHI #0x00000000 ASSVAL LINE 3367 "regression-compile-tmp/nrimp10s-77.imp" PUSH OPHEAD PUSHI #0x00000000 ASSVAL LINE 3367 "regression-compile-tmp/nrimp10s-77.imp" PUSH FORM PUSHI #0x00000000 ASSVAL LINE 3367 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSHI #0x00000000 ASSVAL LINE 3367 "regression-compile-tmp/nrimp10s-77.imp" PUSH OB PUSHI #0x00000000 ASSVAL 3368 MRL=0; INC=0; ! INC COUNTS DOWN RECORD LINE 3368 "regression-compile-tmp/nrimp10s-77.imp" PUSH MRL PUSHI #0x00000000 ASSVAL LINE 3368 "regression-compile-tmp/nrimp10s-77.imp" PUSH INC PUSHI #0x00000000 ASSVAL 3369 NEXT: ROUT=0; LITL=0; NAM=0; RFD=A(P) LINE 3369 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01f8 LINE 3369 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUT PUSHI #0x00000000 ASSVAL LINE 3369 "regression-compile-tmp/nrimp10s-77.imp" PUSH LITL PUSHI #0x00000000 ASSVAL LINE 3369 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000000 ASSVAL LINE 3369 "regression-compile-tmp/nrimp10s-77.imp" PUSH RFD PUSH A PUSH P ACCESS ASSVAL 3370 %IF RFD<=2 %THEN P=P+1 %AND CLT LINE 3370 "regression-compile-tmp/nrimp10s-77.imp" PUSH RFD PUSHI #0x00000002 JUMPIF > L_0004 PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL PUSH CLT CALL LOCATE L_0004 3371 ->RFEL(RFD) LINE 3371 "regression-compile-tmp/nrimp10s-77.imp" PUSH RFD SJUMP 501 3372 RFEL(1): ! (TYPE) (QNAME')(NAMELIST) LINE 3372 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 SLABEL 501 3373 CQN(P); P=P+1 LINE 3373 "regression-compile-tmp/nrimp10s-77.imp" PUSH CQN PUSH P ASSPAR CALL LINE 3373 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 3374 PACK(PTYPE); D2=0 LINE 3374 "regression-compile-tmp/nrimp10s-77.imp" PUSH PACK PUSH PTYPE ASSPAR CALL LINE 3374 "regression-compile-tmp/nrimp10s-77.imp" PUSH D2 PUSHI #0x00000000 ASSVAL 3375 RL=3 LINE 3375 "regression-compile-tmp/nrimp10s-77.imp" PUSH RL PUSHI #0x00000003 ASSVAL 3376 %IF NAM=0 %AND 3<=PREC<=4 %THEN RL=PREC-3 LINE 3376 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000000 JUMPIF # L_0004 PUSHI #0x00000003 PUSH PREC JUMPIFD > L_0004 PUSHI #0x00000004 JUMPIF > L_0004 PUSH RL PUSH PREC PUSHI #0x00000003 SUB ASSVAL LOCATE L_0004 3377 AGN: ROUND ; J=0 LINE 3377 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01f9 LINE 3377 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUND CALL LINE 3377 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000000 ASSVAL 3378 {%UNTIL A(P-1)=2} %CYCLE LINE 3378 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 3379 D1=INC; SN(P) LINE 3379 "regression-compile-tmp/nrimp10s-77.imp" PUSH D1 PUSH INC ASSVAL LINE 3379 "regression-compile-tmp/nrimp10s-77.imp" PUSH SN PUSH P ASSPAR CALL 3380 P=P+3; INC=INC+ACC LINE 3380 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL LINE 3380 "regression-compile-tmp/nrimp10s-77.imp" PUSH INC PUSH INC PUSH ACC ADD ASSVAL 3381 %REPEAT %UNTIL A(P-1)=2 LINE 3381 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 SUB ACCESS PUSHI #0x00000002 JUMPIF = L_0004 REPEAT L_0003 LOCATE L_0004 3382 P=P+RFD>>2<<1; ! EXTRA 2 FOR RECORDS TO SKIP FORMAT LINE 3382 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSH RFD PUSHI #0x00000002 RSH PUSHI #0x00000001 LSH ADD ASSVAL 3383 TRY END: -> END %IF A(P)=2 LINE 3383 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01fa LINE 3383 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000002 JUMPIF # L_0004 JUMP L_01fb LOCATE L_0004 3384 P=P+1; -> NEXT LINE 3384 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 3384 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01f8 3385 RFEL(2):RFEL2: ! (TYPE)%ARRAY(NAMELIST)(BPAIR) LINE 3385 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000002 SLABEL 501 LINE 3385 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01fc 3386 Q=P; ARR=1; PACK(PTYPE) LINE 3386 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH P ASSVAL LINE 3386 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARR PUSHI #0x00000001 ASSVAL LINE 3386 "regression-compile-tmp/nrimp10s-77.imp" PUSH PACK PUSH PTYPE ASSPAR CALL 3387 %IF TYPE<=2 %THEN UNSCAL=0 %AND SC=PREC %ELSE UNSCAL=1 %AND SC=3 LINE 3387 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000002 JUMPIF > L_0004 PUSH UNSCAL PUSHI #0x00000000 ASSVAL PUSH SC PUSH PREC ASSVAL GOTO L_0003 LOCATE L_0004 PUSH UNSCAL PUSHI #0x00000001 ASSVAL PUSH SC PUSHI #0x00000003 ASSVAL LOCATE L_0003 3388 %IF PREC=4 %THEN DESC=16_58000002 %ELSE DESC=SC<<27!UNSCAL<<25!(1-PARMARR)<<24 LINE 3388 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000004 JUMPIF # L_0004 PUSH DESC PUSHI #0x58000002 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH DESC PUSH SC PUSHI #0x0000001b LSH PUSH UNSCAL PUSHI #0x00000019 LSH OR PUSHI #0x00000001 PUSH PARMARR SUB PUSHI #0x00000018 LSH OR ASSVAL LOCATE L_0003 3389 {%UNTIL A(P-1)=2} %CYCLE; ! UNTIL NULL LINE 3389 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 3390 P=P+3 %UNTIL A(P-1)=2 3391 LINE 3390 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL PUSH A PUSH P PUSHI #0x00000001 SUB ACCESS PUSHI #0x00000002 JUMPIF = L_0007 REPEAT L_0006 LOCATE L_0007 3392 TYPEP=PTYPE; SACC=ACC LINE 3392 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPEP PUSH PTYPE ASSVAL LINE 3392 "regression-compile-tmp/nrimp10s-77.imp" PUSH SACC PUSH ACC ASSVAL 3393 DV=DOPE VECTOR(TYPE,ACC,0,FROMAR2(Q),R,LB)+12 3394 ! DOPE VECTOR INTO SHAREABLE S.T. LINE 3393 "regression-compile-tmp/nrimp10s-77.imp" PUSH DV PUSH DOPEVECTOR PUSH TYPE ASSPAR PUSH ACC ASSPAR PUSHI #0x00000000 ASSPAR PUSH FROMAR2 PUSH Q ASSPAR CALL ASSPAR PUSH R ASSPAR PUSH LB ASSPAR CALL PUSHI #0x0000000c ADD ASSVAL 3395 ACC=SACC; PTYPE=TYPEP; UNPACK LINE 3395 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSH SACC ASSVAL LINE 3395 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSH TYPEP ASSVAL LINE 3395 "regression-compile-tmp/nrimp10s-77.imp" PUSH UNPACK CALL 3396 %IF TYPE=5 %OR (TYPE=1 %AND PREC=3) %THEN RL=0 %ELSE RL=3 LINE 3396 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000005 JUMPIF = L_0008 PUSH TYPE PUSHI #0x00000001 JUMPIF # L_0007 PUSH PREC PUSHI #0x00000003 JUMPIF # L_0007 LOCATE L_0008 PUSH RL PUSHI #0x00000000 ASSVAL GOTO L_0006 LOCATE L_0007 PUSH RL PUSHI #0x00000003 ASSVAL LOCATE L_0006 3397 ROUND LINE 3397 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUND CALL 3398 {%UNTIL A(Q-1)=2} %CYCLE; ! HEAD INTO GLA FOR EACH ARRAY LINE 3398 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 3399 A0=R; %IF UNSCAL=0 %THEN A0=A0//ACC LINE 3399 "regression-compile-tmp/nrimp10s-77.imp" PUSH A0 PUSH R ASSVAL LINE 3399 "regression-compile-tmp/nrimp10s-77.imp" PUSH UNSCAL PUSHI #0x00000000 JUMPIF # L_000a PUSH A0 PUSH A0 PUSH ACC QUOT ASSVAL LOCATE L_000a 3400 %IF PREC=4 %THEN A0=0; ! STRING DESCRIPTORS ! LINE 3400 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000004 JUMPIF # L_000a PUSH A0 PUSHI #0x00000000 ASSVAL LOCATE L_000a 3401 A0=A0!DESC; A1=INC LINE 3401 "regression-compile-tmp/nrimp10s-77.imp" PUSH A0 PUSH A0 PUSH DESC OR ASSVAL LINE 3401 "regression-compile-tmp/nrimp10s-77.imp" PUSH A1 PUSH INC ASSVAL 3402 %IF TYPE<=3 %AND PARMARR=0=PARMCHK %AND J=1 %THEN A1=A1-LB*ACC LINE 3402 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000003 JUMPIF > L_000a PUSH PARMARR PUSHI #0x00000000 JUMPIFD # L_000a PUSH PARMCHK JUMPIF # L_000a PUSH J PUSHI #0x00000001 JUMPIF # L_000a PUSH A1 PUSH A1 PUSH LB PUSH ACC MUL SUB ASSVAL LOCATE L_000a 3403 A2=5<<27!3*J LINE 3403 "regression-compile-tmp/nrimp10s-77.imp" PUSH A2 PUSHI #0x00000005 PUSHI #0x0000001b LSH PUSHI #0x00000003 PUSH J MUL OR ASSVAL 3404 PGLA(4,16,ADDR(A0)) LINE 3404 "regression-compile-tmp/nrimp10s-77.imp" PUSH PGLA PUSHI #0x00000004 ASSPAR PUSHI #0x00000010 ASSPAR PUSH ADDR PUSH A0 ASSPAR CALL ASSPAR CALL 3405 D1=GLACA-16 LINE 3405 "regression-compile-tmp/nrimp10s-77.imp" PUSH D1 PUSH GLACA PUSHI #0x00000010 SUB ASSVAL 3406 RELOCATE(D1+12,DV,1); ! RELOCATE DV POINTER LINE 3406 "regression-compile-tmp/nrimp10s-77.imp" PUSH RELOCATE PUSH D1 PUSHI #0x0000000c ADD ASSPAR PUSH DV ASSPAR PUSHI #0x00000001 ASSPAR CALL 3407 NOTE CREF(16_80000000!(DV<<1>>3)!(D1+12)>>2<<16, (DV&16_FFFF)<<2) LINE 3407 "regression-compile-tmp/nrimp10s-77.imp" PUSH NOTECREF PUSHI #0x80000000 PUSH DV PUSHI #0x00000001 LSH PUSHI #0x00000003 RSH OR PUSH D1 PUSHI #0x0000000c ADD PUSHI #0x00000002 RSH PUSHI #0x00000010 LSH OR ASSPAR PUSH DV PUSHI #0x0000ffff AND PUSHI #0x00000002 LSH ASSPAR CALL 3408 D2=INC LINE 3408 "regression-compile-tmp/nrimp10s-77.imp" PUSH D2 PUSH INC ASSVAL 3409 SN(Q); INC=INC+R LINE 3409 "regression-compile-tmp/nrimp10s-77.imp" PUSH SN PUSH Q ASSPAR CALL LINE 3409 "regression-compile-tmp/nrimp10s-77.imp" PUSH INC PUSH INC PUSH R ADD ASSVAL 3410 Q=Q+3 LINE 3410 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH Q PUSHI #0x00000003 ADD ASSVAL 3411 %REPEAT %UNTIL A(Q-1)=2; ! HEAD INTO GLA FOR EACH ARRAY LINE 3411 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH Q PUSHI #0x00000001 SUB ACCESS PUSHI #0x00000002 JUMPIF = L_0007 REPEAT L_0006 LOCATE L_0007 3412 P=P+1; Q=P LINE 3412 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 3412 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH P ASSVAL 3413 %REPEAT %UNTIL A(P-1)=2 LINE 3413 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 SUB ACCESS PUSHI #0x00000002 JUMPIF = L_0004 REPEAT L_0003 LOCATE L_0004 3414 P=P+2 %IF RFD=5 LINE 3414 "regression-compile-tmp/nrimp10s-77.imp" PUSH RFD PUSHI #0x00000005 JUMPIF # L_0004 PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL LOCATE L_0004 3415 -> TRY END LINE 3415 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01fa 3416 RFEL(3): ! %RECORD (%ARRAY) %NAME LINE 3416 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000003 SLABEL 501 3417 TYPE=3; PREC=3; NAM=1 LINE 3417 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000003 ASSVAL LINE 3417 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000003 ASSVAL LINE 3417 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000001 ASSVAL 3418 ARR=2-A(P+1); P=P+2 LINE 3418 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARR PUSHI #0x00000002 PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS SUB ASSVAL LINE 3418 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 3419 PACK(PTYPE); D2=0 LINE 3419 "regression-compile-tmp/nrimp10s-77.imp" PUSH PACK PUSH PTYPE ASSPAR CALL LINE 3419 "regression-compile-tmp/nrimp10s-77.imp" PUSH D2 PUSHI #0x00000000 ASSVAL 3420 RL=3; ACC=8+8*ARR LINE 3420 "regression-compile-tmp/nrimp10s-77.imp" PUSH RL PUSHI #0x00000003 ASSVAL LINE 3420 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSHI #0x00000008 PUSHI #0x00000008 PUSH ARR MUL ADD ASSVAL 3421 FORM=0 LINE 3421 "regression-compile-tmp/nrimp10s-77.imp" PUSH FORM PUSHI #0x00000000 ASSVAL 3422 ->AGN LINE 3422 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01f9 3423 RFEL(4): ! RECORDS IN RECORDS LINE 3423 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000004 SLABEL 501 3424 RFEL(5): ! RECORDARRAYS IN RECORDS LINE 3424 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000005 SLABEL 501 3425 Q=P+FROM AR2(P+1)+1 LINE 3425 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH P PUSH FROMAR2 PUSH P PUSHI #0x00000001 ADD ASSPAR CALL ADD PUSHI #0x00000001 ADD ASSVAL 3426 FN=FROM AR2(Q) LINE 3426 "regression-compile-tmp/nrimp10s-77.imp" PUSH FN PUSH FROMAR2 PUSH Q ASSPAR CALL ASSVAL 3427 COPY TAG(FN); ! COPY FORMAT TAG & SET ACC LINE 3427 "regression-compile-tmp/nrimp10s-77.imp" PUSH COPYTAG PUSH FN ASSPAR CALL 3428 FAULT(62,FN) %UNLESS PTYPE=4 LINE 3428 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000004 JUMPIF = L_0004 PUSH FAULT PUSHI #0x0000003e ASSPAR PUSH FN ASSPAR CALL LOCATE L_0004 3429 TYPE=3; PREC=3; FORM=TCELL LINE 3429 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000003 ASSVAL LINE 3429 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000003 ASSVAL LINE 3429 "regression-compile-tmp/nrimp10s-77.imp" PUSH FORM PUSH TCELL ASSVAL 3430 %IF RFD=4 %THEN %START LINE 3430 "regression-compile-tmp/nrimp10s-77.imp" PUSH RFD PUSHI #0x00000004 JUMPIF # L_0004 3431 PTYPE=16_33; P=P+3; D2=0 LINE 3431 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000033 ASSVAL LINE 3431 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL LINE 3431 "regression-compile-tmp/nrimp10s-77.imp" PUSH D2 PUSHI #0x00000000 ASSVAL 3432 RL=3; ->AGN LINE 3432 "regression-compile-tmp/nrimp10s-77.imp" PUSH RL PUSHI #0x00000003 ASSVAL LINE 3432 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01f9 3433 %FINISH LINE 3433 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 3434 P=P+3; ->RFEL2 LINE 3434 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL LINE 3434 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01fc 3435 END: ! FINISH OFF LINE 3435 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01fb 3436 RL=MRL; ROUND LINE 3436 "regression-compile-tmp/nrimp10s-77.imp" PUSH RL PUSH MRL ASSVAL LINE 3436 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUND CALL 3437 ACC=INC; ! SIZE ROUNDED APPROPRIATELY LINE 3437 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSH INC ASSVAL 3438 FAULT(98,0) %UNLESS INC<=16_7FFF LINE 3438 "regression-compile-tmp/nrimp10s-77.imp" PUSH INC PUSHI #0x00007fff JUMPIF <= L_0004 PUSH FAULT PUSHI #0x00000062 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 3439 CLEAR LIST(NLIST) LINE 3439 "regression-compile-tmp/nrimp10s-77.imp" PUSH CLEARLIST PUSH NLIST ASSPAR CALL 3440 %RETURN LINE 3440 "regression-compile-tmp/nrimp10s-77.imp" RETURN 3441 %ROUTINE SN(%INTEGER Q) 3442 !*********************************************************************** 3443 !* CHECK THE SUBNAME HAS NOT BEEN USED BEFORE IN THIS FORMAT * 3444 !* AND ENTER IT WITH ITS DESCRIPTORS INTO THE LIST. * 3445 !*********************************************************************** LINE 3441 "regression-compile-tmp/nrimp10s-77.imp" DEF SN (_lev0id0_lev1id1_lev2id3_CSS_CRFORMAT_SN) p1=V_01f6 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=6 --> 7, nested=0 --> 1} DEF Q p1=V_01fd 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=6} 3446 FNAME=FROM AR2(Q) LINE 3446 "regression-compile-tmp/nrimp10s-77.imp" PUSH FNAME PUSH FROMAR2 PUSH Q ASSPAR CALL ASSVAL 3447 FAULT2(61,0,FNAME) %UNLESS FIND(FNAME,NLIST)=-1 LINE 3447 "regression-compile-tmp/nrimp10s-77.imp" PUSH FIND PUSH FNAME ASSPAR PUSH NLIST ASSPAR CALL PUSHI #0x00000001 NEGATE JUMPIF = L_0004 PUSH FAULT2 PUSHI #0x0000003d ASSPAR PUSHI #0x00000000 ASSPAR PUSH FNAME ASSPAR CALL LOCATE L_0004 3448 BINSERT(OPHEAD,OB,FNAME<<20!PTYPE<<4!J,D2<<16!ACC,D1<<16!FORM) LINE 3448 "regression-compile-tmp/nrimp10s-77.imp" PUSH BINSERT PUSH OPHEAD ASSPAR PUSH OB ASSPAR PUSH FNAME PUSHI #0x00000014 LSH PUSH PTYPE PUSHI #0x00000004 LSH OR PUSH J OR ASSPAR PUSH D2 PUSHI #0x00000010 LSH PUSH ACC OR ASSPAR PUSH D1 PUSHI #0x00000010 LSH PUSH FORM OR ASSPAR CALL 3449 PUSH(NLIST,0,FNAME,0) LINE 3449 "regression-compile-tmp/nrimp10s-77.imp" PUSH PUSH PUSH NLIST ASSPAR PUSHI #0x00000000 ASSPAR PUSH FNAME ASSPAR PUSHI #0x00000000 ASSPAR CALL 3450 %END LINE 3450 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CRFORMAT_SN {lev=6 --> 5} 3451 %ROUTINE ROUND LINE 3451 "regression-compile-tmp/nrimp10s-77.imp" DEF ROUND (_lev0id0_lev1id1_lev2id3_CSS_CRFORMAT_ROUND) p1=V_01f7 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=6 --> 7, nested=0 --> 1} FINISH ) {lev=6} 3452 MRL=RL %IF RL>MRL LINE 3452 "regression-compile-tmp/nrimp10s-77.imp" PUSH RL PUSH MRL JUMPIF <= L_0004 PUSH MRL PUSH RL ASSVAL LOCATE L_0004 3453 INC=INC+1 %WHILE INC&RL#0 LINE 3453 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH INC PUSH RL AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH INC PUSH INC PUSHI #0x00000001 ADD ASSVAL REPEAT L_0003 LOCATE L_0004 3454 %END LINE 3454 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CRFORMAT_ROUND {lev=6 --> 5} 3455 %END; ! OF ROUTINE CRFORMAT LINE 3455 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CRFORMAT {lev=5 --> 4} 3456 %INTEGERFN DISPLACEMENT(%INTEGER LINK) 3457 !*********************************************************************** 3458 !* SEARCH A FORMAT LIST FOR A SUBNAME * 3459 !* A(P) HAS ENAME--LINK IS HEAD OF RFORMAT LIST. RESULT IS DISP * 3460 !* FROM START OF RECORD * 3461 !*********************************************************************** LINE 3456 "regression-compile-tmp/nrimp10s-77.imp" DEF DISPLACEMENT (_lev0id0_lev1id1_lev2id3_CSS_DISPLACEMENT) p1=V_01a2 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=5 --> 6, nested=0 --> 1} DEF LINK p1=V_01de 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=5} 3462 %RECORD(LISTF)%NAME FCELL,PCELL,LCELL{(LISTF) LINE 3462 "regression-compile-tmp/nrimp10s-77.imp" DEF FCELL p1=V_01df a/tf=42 b/format=f4 c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF PCELL p1=V_01e0 a/tf=42 b/format=f4 c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF LCELL p1=V_01e1 a/tf=42 b/format=f4 c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 3463 %INTEGER RR,II,ENAME,CELL LINE 3463 "regression-compile-tmp/nrimp10s-77.imp" DEF RR p1=V_01e2 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 II p1=V_01e3 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 ENAME p1=V_01e4 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 CELL p1=V_01e5 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 3464 ENAME=A(P)<<8+A(P+1); CELL=0 LINE 3464 "regression-compile-tmp/nrimp10s-77.imp" PUSH ENAME PUSH A PUSH P ACCESS PUSHI #0x00000008 LSH PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS ADD ASSVAL LINE 3464 "regression-compile-tmp/nrimp10s-77.imp" PUSH CELL PUSHI #0x00000000 ASSVAL 3465 %IF LINK#0 %THEN %START; ! CHK RECORDSPEC NOT OMITTED LINE 3465 "regression-compile-tmp/nrimp10s-77.imp" PUSH LINK PUSHI #0x00000000 JUMPIF = L_0004 3466 FCELL==ASLIST(LINK); ! ONTO FORMAT TAG CELL LINE 3466 "regression-compile-tmp/nrimp10s-77.imp" PUSH FCELL PUSH ASLIST PUSH LINK ACCESS ASSREF 3467 LINK=FCELL_S3&16_7FFF; ! LINK TO SIDE CHAIN LINE 3467 "regression-compile-tmp/nrimp10s-77.imp" PUSH LINK PUSH FCELL SELECT 3 PUSHI #0x00007fff AND ASSVAL 3468 CELL=LINK; II=-1; ACC=-1 LINE 3468 "regression-compile-tmp/nrimp10s-77.imp" PUSH CELL PUSH LINK ASSVAL LINE 3468 "regression-compile-tmp/nrimp10s-77.imp" PUSH II PUSHI #0x00000001 NEGATE ASSVAL LINE 3468 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSHI #0x00000001 NEGATE ASSVAL 3469 %WHILE LINK>0 %CYCLE LINE 3469 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 PUSH LINK PUSHI #0x00000000 JUMPIF <= L_0007 3470 LCELL==ASLIST(LINK) LINE 3470 "regression-compile-tmp/nrimp10s-77.imp" PUSH LCELL PUSH ASLIST PUSH LINK ACCESS ASSREF 3471 %IF LCELL_S1>>20=ENAME %START; ! RIGHT SUBNAME LOCATED LINE 3471 "regression-compile-tmp/nrimp10s-77.imp" PUSH LCELL SELECT 1 PUSHI #0x00000014 RSH PUSH ENAME JUMPIF # L_000a 3472 TCELL=LINK LINE 3472 "regression-compile-tmp/nrimp10s-77.imp" PUSH TCELL PUSH LINK ASSVAL 3473 RR=LCELL_S1 LINE 3473 "regression-compile-tmp/nrimp10s-77.imp" PUSH RR PUSH LCELL SELECT 1 ASSVAL 3474 SNDISP=LCELL_S2 LINE 3474 "regression-compile-tmp/nrimp10s-77.imp" PUSH SNDISP PUSH LCELL SELECT 2 ASSVAL 3475 K=LCELL_S3 LINE 3475 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH LCELL SELECT 3 ASSVAL 3476 J=RR&15; PTYPE=RR>>4&16_FFFF LINE 3476 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH RR PUSHI #0x0000000f AND ASSVAL LINE 3476 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSH RR PUSHI #0x00000004 RSH PUSHI #0x0000ffff AND ASSVAL 3477 ACC=SNDISP&16_FFFF; SNDISP=SNDISP&16_FFFF0000//16_10000 LINE 3477 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSH SNDISP PUSHI #0x0000ffff AND ASSVAL LINE 3477 "regression-compile-tmp/nrimp10s-77.imp" PUSH SNDISP PUSH SNDISP PUSHI #0xffff0000 AND PUSHI #0x00010000 QUOT ASSVAL 3478 KFORM=K&16_FFFF; K=K>>16 LINE 3478 "regression-compile-tmp/nrimp10s-77.imp" PUSH KFORM PUSH K PUSHI #0x0000ffff AND ASSVAL LINE 3478 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH K PUSHI #0x00000010 RSH ASSVAL 3479 %IF LINK#CELL %START; ! NOT TOP CELL OF FORMAT LINE 3479 "regression-compile-tmp/nrimp10s-77.imp" PUSH LINK PUSH CELL JUMPIF = L_000d 3480 PCELL_LINK=LCELL_LINK LINE 3480 "regression-compile-tmp/nrimp10s-77.imp" PUSH PCELL SELECT 4 PUSH LCELL SELECT 4 ASSVAL 3481 LCELL_LINK=CELL LINE 3481 "regression-compile-tmp/nrimp10s-77.imp" PUSH LCELL SELECT 4 PUSH CELL ASSVAL 3482 FCELL_S3=FCELL_S3&16_FFFF0000!LINK LINE 3482 "regression-compile-tmp/nrimp10s-77.imp" PUSH FCELL SELECT 3 PUSH FCELL SELECT 3 PUSHI #0xffff0000 AND PUSH LINK OR ASSVAL 3483 %FINISH; ! ARRANGING LIST WITH THIS SUBNAME 3484 ! AT THE TOP LINE 3483 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000d 3485 %RESULT=K LINE 3485 "regression-compile-tmp/nrimp10s-77.imp" PUSH K RESULT 3486 %FINISH LINE 3486 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000a 3487 PCELL==LCELL LINE 3487 "regression-compile-tmp/nrimp10s-77.imp" PUSH PCELL PUSH LCELL ASSREF 3488 LINK=LCELL_LINK LINE 3488 "regression-compile-tmp/nrimp10s-77.imp" PUSH LINK PUSH LCELL SELECT 4 ASSVAL 3489 %REPEAT LINE 3489 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0006 LOCATE L_0007 3490 %FINISH LINE 3490 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 3491 FAULT(65,ENAME) LINE 3491 "regression-compile-tmp/nrimp10s-77.imp" PUSH FAULT PUSHI #0x00000041 ASSPAR PUSH ENAME ASSPAR CALL 3492 %IF CELL>0 %THEN PUSH(ASLIST(CELL)_LINK,ENAME<<20!7<<4,0,0) LINE 3492 "regression-compile-tmp/nrimp10s-77.imp" PUSH CELL PUSHI #0x00000000 JUMPIF <= L_0004 PUSH PUSH PUSH ASLIST PUSH CELL ACCESS SELECT 4 ASSPAR PUSH ENAME PUSHI #0x00000014 LSH PUSHI #0x00000007 PUSHI #0x00000004 LSH OR ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 3493 PTYPE=7; TCELL=0 LINE 3493 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000007 ASSVAL LINE 3493 "regression-compile-tmp/nrimp10s-77.imp" PUSH TCELL PUSHI #0x00000000 ASSVAL 3494 %RESULT=-1 LINE 3494 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 NEGATE RESULT 3495 %END LINE 3495 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_DISPLACEMENT {lev=5 --> 4} 3496 %INTEGERFN COPY RECORD TAG(%INTEGERNAME SUBS) 3497 !*********************************************************************** 3498 !* PRODUCE PTYPE ETC FOR A COMPOUND NAME BY CHAINING DOWN ONE * 3499 !* ONE OR MORE RECORD FORMAT LISTS. ON EXIT RESULT =0 IF NO * 3500 !* SUBNAME FOUND OR SUBNAME IS OF TYPE RECORD WITH NO FURTHER * 3501 !* SUBNAME ATTACHED. RESULT#0 IF BONE-FIDE SUBNAME LOCATED * 3502 !* ON ENTRY KFORM HAS POINTER TO THE (FIRST ) FORMAT LIST AND * 3503 !* P POINTS TO THE A.R. ENTRY FOR (FIRST) ENAME * 3504 !*********************************************************************** LINE 3496 "regression-compile-tmp/nrimp10s-77.imp" DEF COPYRECORDTAG (_lev0id0_lev1id1_lev2id3_CSS_COPYRECORDTAG) p1=V_01a3 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=5 --> 6, nested=0 --> 1} DEF SUBS p1=V_01de a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=5} 3505 %INTEGER Q,FNAME LINE 3505 "regression-compile-tmp/nrimp10s-77.imp" DEF Q p1=V_01df 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 FNAME p1=V_01e0 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 3506 SUBS=0 LINE 3506 "regression-compile-tmp/nrimp10s-77.imp" PUSH SUBS PUSHI #0x00000000 ASSVAL 3507 {%UNTIL TYPE#3} %CYCLE LINE 3507 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 3508 FNAME=KFORM LINE 3508 "regression-compile-tmp/nrimp10s-77.imp" PUSH FNAME PUSH KFORM ASSVAL 3509 P=P+2; SKIP APP LINE 3509 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL LINE 3509 "regression-compile-tmp/nrimp10s-77.imp" PUSH SKIPAPP CALL 3510 %RESULT=0 %IF A(P)=2 %OR FNAME<=0;! NO (FURTHER) ENAME LINE 3510 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000002 JUMPIF = L_0008 PUSH FNAME PUSHI #0x00000000 JUMPIF > L_0007 LOCATE L_0008 PUSHI #0x00000000 RESULT LOCATE L_0007 3511 SUBS=SUBS+1 LINE 3511 "regression-compile-tmp/nrimp10s-77.imp" PUSH SUBS PUSH SUBS PUSHI #0x00000001 ADD ASSVAL 3512 P=P+1; Q=DISPLACEMENT (FNAME) LINE 3512 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 3512 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH DISPLACEMENT PUSH FNAME ASSPAR CALL ASSVAL 3513 UNPACK LINE 3513 "regression-compile-tmp/nrimp10s-77.imp" PUSH UNPACK CALL 3514 %REPEAT %UNTIL TYPE#3 LINE 3514 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000003 JUMPIF # L_0004 REPEAT L_0003 LOCATE L_0004 3515 %RESULT=Q+1; ! GIVES 0 IF SUBNAME NOT KNOWN LINE 3515 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSHI #0x00000001 ADD RESULT 3516 %END LINE 3516 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_COPYRECORDTAG {lev=5 --> 4} 3517 %ROUTINE CRNAME(%INTEGER Z,REG,MODE,BS,AR,DP,%INTEGERNAME NAMEP) 3518 !*********************************************************************** 3519 !* DEAL WITH RECORD ELEMENT NAMES.Z AS FOR CNAME.CLINK=TAGS(RN) * 3520 !* MODE=ACCESS FOR RECORD(NOT THE ELEMENT!) * 3521 !* ON EXIT BASE,AREA & DISP POINT TO REQUIRED ELEMENT * 3522 !* RECURSIVE CALL IS NEEDED TO DEAL WITH RECORDS IN RECORDS * 3523 !* DEPTH SHEWS RECURSIVE LEVELS- NEEDED TO AVOID MIS SETTING * 3524 !* REGISTER IN USE IF RECORDNAME IN RECORD HAS THE SAME NAME AS * 3525 !* A GENUINE RECORD NAME. * 3526 !*********************************************************************** LINE 3517 "regression-compile-tmp/nrimp10s-77.imp" DEF CRNAME (_lev0id0_lev1id1_lev2id3_CSS_CRNAME) p1=V_01de 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=5 --> 6, nested=0 --> 1} DEF Z p1=V_01df 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 REG p1=V_01e0 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 MODE p1=V_01e1 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 BS p1=V_01e2 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 AR p1=V_01e3 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 DP p1=V_01e4 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 NAMEP p1=V_01e5 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=5} 3527 %INTEGER DEPTH,FNAME LINE 3527 "regression-compile-tmp/nrimp10s-77.imp" DEF DEPTH p1=V_01e6 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 FNAME p1=V_01e7 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 3528 %ROUTINESPEC CENAME(%INTEGER MODE,FNAME,BS,AR,DP,XD) LINE 3528 "regression-compile-tmp/nrimp10s-77.imp" DEF CENAME (_lev0id0_lev1id1_lev2id3_CSS_CRNAME_CENAME) p1=V_01e8 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=5 --> 6, nested=0 --> 1} DEF MODE p1=V_01e9 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 FNAME p1=V_01ea 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 BS p1=V_01eb 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 AR p1=V_01ec 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 DP p1=V_01ed 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 XD p1=V_01ee 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=5} 3529 DEPTH=0 LINE 3529 "regression-compile-tmp/nrimp10s-77.imp" PUSH DEPTH PUSHI #0x00000000 ASSVAL 3530 FNAME=KFORM; ! POINTER TO FORMAT LINE 3530 "regression-compile-tmp/nrimp10s-77.imp" PUSH FNAME PUSH KFORM ASSVAL 3531 %IF ARR=0 %OR (Z=6 %AND A(P+2)=2) %START;! SIMPLE RECORD LINE 3531 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARR PUSHI #0x00000000 JUMPIF = L_0005 PUSH Z PUSHI #0x00000006 JUMPIF # L_0004 PUSH A PUSH P PUSHI #0x00000002 ADD ACCESS PUSHI #0x00000002 JUMPIF # L_0004 LOCATE L_0005 3532 %IF A(P+2)=2 %THEN P=P+3 %ELSE NO APP LINE 3532 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000002 ADD ACCESS PUSHI #0x00000002 JUMPIF # L_0007 PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL GOTO L_0006 LOCATE L_0007 PUSH NOAPP CALL LOCATE L_0006 3533 CENAME(MODE,FNAME,BS,AR,DP,0) LINE 3533 "regression-compile-tmp/nrimp10s-77.imp" PUSH CENAME PUSH MODE ASSPAR PUSH FNAME ASSPAR PUSH BS ASSPAR PUSH AR ASSPAR PUSH DP ASSPAR PUSHI #0x00000000 ASSPAR CALL 3534 %FINISH %ELSE %START LINE 3534 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 3535 CANAME(ARR,BS,DP) LINE 3535 "regression-compile-tmp/nrimp10s-77.imp" PUSH CANAME PUSH ARR ASSPAR PUSH BS ASSPAR PUSH DP ASSPAR CALL 3536 CENAME(ACCESS,FNAME,BASE,AREA,DISP,0) LINE 3536 "regression-compile-tmp/nrimp10s-77.imp" PUSH CENAME PUSH ACCESS ASSPAR PUSH FNAME ASSPAR PUSH BASE ASSPAR PUSH AREA ASSPAR PUSH DISP ASSPAR PUSHI #0x00000000 ASSPAR CALL 3537 %FINISH; %RETURN 3538 ! LINE 3537 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 LINE 3537 "regression-compile-tmp/nrimp10s-77.imp" RETURN 3539 %ROUTINE CENAME(%INTEGER MODE,FNAME,BS,AR,DP,XD) 3540 !*********************************************************************** 3541 !* FINDS OUT ABOUT SUBNAME AND ACTS ACCORDINGLY.MOSTLY ACTION * 3542 !* CONSISTS OF UPPING XD BY OFFSET OF THE SUBNAME BUT IS VERY * 3543 !* HAIRY FOR RECORDS IN RECORDS ETC * 3544 !* MODE IS ACCESS FOR THE RECORD * 3545 !*********************************************************************** LINE 3539 "regression-compile-tmp/nrimp10s-77.imp" DEF CENAME (_lev0id0_lev1id1_lev2id3_CSS_CRNAME_CENAME) p1=V_01e8 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=6 --> 7, nested=0 --> 1} DEF MODE p1=V_01e9 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 FNAME p1=V_01ea 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 BS p1=V_01eb 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 AR p1=V_01ec 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 DP p1=V_01ed 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 XD p1=V_01ee 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=6} 3546 %ROUTINESPEC FETCH RAD LINE 3546 "regression-compile-tmp/nrimp10s-77.imp" DEF FETCHRAD (_lev0id0_lev1id1_lev2id3_CSS_CRNAME_CENAME_FETCHRAD) p1=V_01ef a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=6 --> 7, nested=0 --> 1} FINISH ) {lev=6} 3547 %ROUTINESPEC LOCALISE(%INTEGER SIZE) LINE 3547 "regression-compile-tmp/nrimp10s-77.imp" DEF LOCALISE (_lev0id0_lev1id1_lev2id3_CSS_CRNAME_CENAME_LOCALISE) p1=V_01f0 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=6 --> 7, nested=0 --> 1} DEF SIZE p1=V_01f1 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=6} 3548 %INTEGER Q,QQ,D,C,W LINE 3548 "regression-compile-tmp/nrimp10s-77.imp" DEF Q p1=V_01f1 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 QQ p1=V_01f2 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 D p1=V_01f3 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 C p1=V_01f4 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 W p1=V_01f5 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 3549 DEPTH=DEPTH+1 LINE 3549 "regression-compile-tmp/nrimp10s-77.imp" PUSH DEPTH PUSH DEPTH PUSHI #0x00000001 ADD ASSVAL 3550 %IF A(P)=2 %THEN %START; ! ENAME MISSING LINE 3550 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000002 JUMPIF # L_0004 3551 ACCESS=MODE; AREA=AR; XDISP=XD LINE 3551 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACCESS PUSH MODE ASSVAL LINE 3551 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSH AR ASSVAL LINE 3551 "regression-compile-tmp/nrimp10s-77.imp" PUSH XDISP PUSH XD ASSVAL 3552 BASE=BS; DISP=DP; ! FOR POINTER LINE 3552 "regression-compile-tmp/nrimp10s-77.imp" PUSH BASE PUSH BS ASSVAL LINE 3552 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSH DP ASSVAL 3553 %IF Z<14 %THEN %START; ! NOT A RECORD OPERATION LINE 3553 "regression-compile-tmp/nrimp10s-77.imp" PUSH Z PUSHI #0x0000000e JUMPIF >= L_0007 3554 %UNLESS 3<=Z<=4 %OR Z=6 %START; ! ADDR(RECORD) LINE 3554 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000003 PUSH Z JUMPIFD > L_000b PUSHI #0x00000004 JUMPIF <= L_000a LOCATE L_000b PUSH Z PUSHI #0x00000006 JUMPIF = L_000a 3555 FAULT(64,0); BASE=RBASE; AREA=-1 LINE 3555 "regression-compile-tmp/nrimp10s-77.imp" PUSH FAULT PUSHI #0x00000040 ASSPAR PUSHI #0x00000000 ASSPAR CALL LINE 3555 "regression-compile-tmp/nrimp10s-77.imp" PUSH BASE PUSH RBASE ASSVAL LINE 3555 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000001 NEGATE ASSVAL 3556 DISP=0; ACCESS=0; PTYPE=1; UNPACK LINE 3556 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSHI #0x00000000 ASSVAL LINE 3556 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACCESS PUSHI #0x00000000 ASSVAL LINE 3556 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000001 ASSVAL LINE 3556 "regression-compile-tmp/nrimp10s-77.imp" PUSH UNPACK CALL 3557 %FINISH LINE 3557 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000a 3558 %FINISH LINE 3558 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 3559 %RETURN LINE 3559 "regression-compile-tmp/nrimp10s-77.imp" RETURN 3560 %FINISH LINE 3560 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 3561 P=P+1; ! FIND OUT ABOUT SUBNAME LINE 3561 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 3562 Q=DISPLACEMENT(FNAME); ! TCELL POINTS TO CELL HOLDING LINE 3562 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH DISPLACEMENT PUSH FNAME ASSPAR CALL ASSVAL 3563 UNPACK; ! INFO ABOUT THE SUBNAME LINE 3563 "regression-compile-tmp/nrimp10s-77.imp" PUSH UNPACK CALL 3564 %IF Q=-1=ACC %OR PTYPE=7 %START; ! WRONG SUBNAME(HAS BEEN FAULTED) LINE 3564 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSHI #0x00000001 NEGATE JUMPIFD # L_0006 PUSH ACC JUMPIF = L_0005 LOCATE L_0006 PUSH PTYPE PUSHI #0x00000007 JUMPIF # L_0004 LOCATE L_0005 3565 P=P+2; SKIP APP; P=P-3 LINE 3565 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL LINE 3565 "regression-compile-tmp/nrimp10s-77.imp" PUSH SKIPAPP CALL LINE 3565 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 SUB ASSVAL 3566 ACCESS=0; BASE=RBASE; DISP=0; AREA=-1 LINE 3566 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACCESS PUSHI #0x00000000 ASSVAL LINE 3566 "regression-compile-tmp/nrimp10s-77.imp" PUSH BASE PUSH RBASE ASSVAL LINE 3566 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSHI #0x00000000 ASSVAL LINE 3566 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000001 NEGATE ASSVAL 3567 %RETURN LINE 3567 "regression-compile-tmp/nrimp10s-77.imp" RETURN 3568 %FINISH LINE 3568 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 3569 NAMEP=(A(P)<<8!A(P+1))<<16!NAMEP; ! NAMEP=-1 UNALTERED ! LINE 3569 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAMEP PUSH A PUSH P ACCESS PUSHI #0x00000008 LSH PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS OR PUSHI #0x00000010 LSH PUSH NAMEP OR ASSVAL 3570 ->AE %IF ARR=1; ! ARRAYS INCLUDING RECORDARRAYS LINE 3570 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARR PUSHI #0x00000001 JUMPIF # L_0004 JUMP L_01f6 LOCATE L_0004 3571 %IF A(P+2)=2 %THEN P=P+3 %ELSE NO APP LINE 3571 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000002 ADD ACCESS PUSHI #0x00000002 JUMPIF # L_0004 PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL GOTO L_0003 LOCATE L_0004 PUSH NOAPP CALL LOCATE L_0003 3572 %IF TYPE<=2 %OR TYPE=5 %OR (TYPE=3 %AND A(P)=2 %AND (3<=Z<=4 %OR Z=6)) %START LINE 3572 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000002 JUMPIF <= L_0005 PUSH TYPE PUSHI #0x00000005 JUMPIF = L_0005 PUSH TYPE PUSHI #0x00000003 JUMPIF # L_0004 PUSH A PUSH P ACCESS PUSHI #0x00000002 JUMPIF # L_0004 PUSHI #0x00000003 PUSH Z JUMPIFD > L_0006 PUSHI #0x00000004 JUMPIF <= L_0005 LOCATE L_0006 PUSH Z PUSHI #0x00000006 JUMPIF # L_0004 LOCATE L_0005 3573 ACCESS=MODE+4+4*NAM; BASE=BS; LINE 3573 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACCESS PUSH MODE PUSHI #0x00000004 ADD PUSHI #0x00000004 PUSH NAM MUL ADD ASSVAL LINE 3573 "regression-compile-tmp/nrimp10s-77.imp" PUSH BASE PUSH BS ASSVAL 3574 AREA=AR; DISP=DP; XDISP=XD+Q LINE 3574 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSH AR ASSVAL LINE 3574 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSH DP ASSVAL LINE 3574 "regression-compile-tmp/nrimp10s-77.imp" PUSH XDISP PUSH XD PUSH Q ADD ASSVAL 3575 %RETURN LINE 3575 "regression-compile-tmp/nrimp10s-77.imp" RETURN 3576 %FINISH 3577 ! 3578 ! NOW CODING BECOMES HAIRY:- STILL LEFT ARE 3579 ! A) RECORDS IN RECORDS Q POINTS TO SECONDARY RECORD 3580 ! B) RECORDNAMES IN RECORDS Q HAS OFF-SET OF A POINTER 3581 ! C) RECORDARRAYNAMES IN RECORDS Q HAS OFF-SET A HEADER IN RECORD 3582 ! D) RECORDARRAYS IN RECORDS NOT YET ALLOWED 3583 ! Q WOULD HAVE OFF-SET OF A RECORD RELATIVE HEADER IN THE GLA 3584 ! LINE 3576 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 3585 XD=XD+Q LINE 3585 "regression-compile-tmp/nrimp10s-77.imp" PUSH XD PUSH XD PUSH Q ADD ASSVAL 3586 NAMEP=-1 LINE 3586 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAMEP PUSHI #0x00000001 NEGATE ASSVAL 3587 %IF NAM=1 %THEN %START LINE 3587 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000001 JUMPIF # L_0004 3588 %IF MODE=0 %START LINE 3588 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000000 JUMPIF # L_0007 3589 DP=DP+XD; XD=0; MODE=2 LINE 3589 "regression-compile-tmp/nrimp10s-77.imp" PUSH DP PUSH DP PUSH XD ADD ASSVAL LINE 3589 "regression-compile-tmp/nrimp10s-77.imp" PUSH XD PUSHI #0x00000000 ASSVAL LINE 3589 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000002 ASSVAL 3590 %FINISH %ELSE %START LINE 3590 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 3591 LOCALISE(8); ! PICK UP RECNAME DESCR &STCK LINE 3591 "regression-compile-tmp/nrimp10s-77.imp" PUSH LOCALISE PUSHI #0x00000008 ASSPAR CALL 3592 AR=AREA; DP=DISP; BS=BASE LINE 3592 "regression-compile-tmp/nrimp10s-77.imp" PUSH AR PUSH AREA ASSVAL LINE 3592 "regression-compile-tmp/nrimp10s-77.imp" PUSH DP PUSH DISP ASSVAL LINE 3592 "regression-compile-tmp/nrimp10s-77.imp" PUSH BS PUSH BASE ASSVAL 3593 %FINISH LINE 3593 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 3594 %FINISH LINE 3594 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 3595 CENAME(MODE,KFORM,BS,AR,DP,XD) LINE 3595 "regression-compile-tmp/nrimp10s-77.imp" PUSH CENAME PUSH MODE ASSPAR PUSH KFORM ASSPAR PUSH BS ASSPAR PUSH AR ASSPAR PUSH DP ASSPAR PUSH XD ASSPAR CALL 3596 %RETURN LINE 3596 "regression-compile-tmp/nrimp10s-77.imp" RETURN 3597 AE: ! ARRAYS AND ARRAYNAMES AS ELEMEN LINE 3597 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01f6 3598 FROM123(TCELL,Q,SNDISP,K) LINE 3598 "regression-compile-tmp/nrimp10s-77.imp" PUSH FROM123 PUSH TCELL ASSPAR PUSH Q ASSPAR PUSH SNDISP ASSPAR PUSH K ASSPAR CALL 3599 ACC=SNDISP&16_FFFF; SNDISP=SNDISP&16_FFFF0000//16_10000 LINE 3599 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSH SNDISP PUSHI #0x0000ffff AND ASSVAL LINE 3599 "regression-compile-tmp/nrimp10s-77.imp" PUSH SNDISP PUSH SNDISP PUSHI #0xffff0000 AND PUSHI #0x00010000 QUOT ASSVAL 3600 KFORM=K&16_FFFF; K=K>>16 LINE 3600 "regression-compile-tmp/nrimp10s-77.imp" PUSH KFORM PUSH K PUSHI #0x0000ffff AND ASSVAL LINE 3600 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH K PUSHI #0x00000010 RSH ASSVAL 3601 C=ACC; D=SNDISP; Q=K; QQ=KFORM LINE 3601 "regression-compile-tmp/nrimp10s-77.imp" PUSH C PUSH ACC ASSVAL LINE 3601 "regression-compile-tmp/nrimp10s-77.imp" PUSH D PUSH SNDISP ASSVAL LINE 3601 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH K ASSVAL LINE 3601 "regression-compile-tmp/nrimp10s-77.imp" PUSH QQ PUSH KFORM ASSVAL 3602 %IF (Z=6 %OR Z=12) %AND A(P+2)=2 %START;! 'GET ARRAYHEAD' CALL LINE 3602 "regression-compile-tmp/nrimp10s-77.imp" PUSH Z PUSHI #0x00000006 JUMPIF = L_0005 PUSH Z PUSHI #0x0000000c JUMPIF # L_0004 LOCATE L_0005 PUSH A PUSH P PUSHI #0x00000002 ADD ACCESS PUSHI #0x00000002 JUMPIF # L_0004 3603 P=P+3 LINE 3603 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL 3604 %IF NAM=1 %THEN %START LINE 3604 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000001 JUMPIF # L_0007 3605 ACCESS=MODE+8; BASE=BS LINE 3605 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACCESS PUSH MODE PUSHI #0x00000008 ADD ASSVAL LINE 3605 "regression-compile-tmp/nrimp10s-77.imp" PUSH BASE PUSH BS ASSVAL 3606 AREA=AR; DISP=DP; XDISP=XD+Q LINE 3606 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSH AR ASSVAL LINE 3606 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSH DP ASSVAL LINE 3606 "regression-compile-tmp/nrimp10s-77.imp" PUSH XDISP PUSH XD PUSH Q ADD ASSVAL 3607 %RETURN LINE 3607 "regression-compile-tmp/nrimp10s-77.imp" RETURN 3608 %FINISH 3609 ! 3610 ! PASSING AN ARRAY IN A RECORD BY NAME MUST CONSTRUCT PROPER ARRAYHEAD 3611 ! FROM THE RECORD RELATIVE ONE AT Q(GLA) 3612 ! LINE 3608 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 3613 NAMEP=-1 LINE 3613 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAMEP PUSHI #0x00000001 NEGATE ASSVAL 3614 FETCH RAD LINE 3614 "regression-compile-tmp/nrimp10s-77.imp" PUSH FETCHRAD CALL 3615 AREA=-1; DISP=Q LINE 3615 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000001 NEGATE ASSVAL LINE 3615 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSH Q ASSVAL 3616 BASE=0; ACCESS=0; LINE 3616 "regression-compile-tmp/nrimp10s-77.imp" PUSH BASE PUSHI #0x00000000 ASSVAL LINE 3616 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACCESS PUSHI #0x00000000 ASSVAL 3617 CREATE AH(1) LINE 3617 "regression-compile-tmp/nrimp10s-77.imp" PUSH CREATEAH PUSHI #0x00000001 ASSPAR CALL 3618 %FINISH %ELSE %START; ! ARRAY ELEMENTS IN RECORDS LINE 3618 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 3619 NAMEP=-1 LINE 3619 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAMEP PUSHI #0x00000001 NEGATE ASSVAL 3620 %IF NAM=1 %THEN %START; ! ARRAYNAMES-FULLHEAD IN RECORD LINE 3620 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000001 JUMPIF # L_0007 3621 XD=XD+Q LINE 3621 "regression-compile-tmp/nrimp10s-77.imp" PUSH XD PUSH XD PUSH Q ADD ASSVAL 3622 LOCALISE(16); ! MOVE HEAD UNDER LNB LINE 3622 "regression-compile-tmp/nrimp10s-77.imp" PUSH LOCALISE PUSHI #0x00000010 ASSPAR CALL 3623 CANAME(3,BASE,DISP); ! ARRAY MODE SETS DISP,AREA&BASE LINE 3623 "regression-compile-tmp/nrimp10s-77.imp" PUSH CANAME PUSHI #0x00000003 ASSPAR PUSH BASE ASSPAR PUSH DISP ASSPAR CALL 3624 %FINISH %ELSE %START; ! ARRAY RELATIVE HEAD IN GLA LINE 3624 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 3625 %IF MODE=0 %OR MODE=2 %%START LINE 3625 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000000 JUMPIF = L_000b PUSH MODE PUSHI #0x00000002 JUMPIF # L_000a LOCATE L_000b 3626 %IF MODE=0 %THEN W=DP-4 %ELSE W=DP+4 LINE 3626 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000000 JUMPIF # L_000d PUSH W PUSH DP PUSHI #0x00000004 SUB ASSVAL GOTO L_000c LOCATE L_000d PUSH W PUSH DP PUSHI #0x00000004 ADD ASSVAL LOCATE L_000c 3627 %FINISH %ELSE %START LINE 3627 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0009 LOCATE L_000a 3628 FETCH RAD; ! RECORD ADDR TO ACC LINE 3628 "regression-compile-tmp/nrimp10s-77.imp" PUSH FETCHRAD CALL 3629 GET WSP(W,1) LINE 3629 "regression-compile-tmp/nrimp10s-77.imp" PUSH GETWSP PUSH W ASSPAR PUSHI #0x00000001 ASSPAR CALL 3630 PSF1(ST,1,W); XD=0 LINE 3630 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000001 ASSPAR PUSH W ASSPAR CALL LINE 3630 "regression-compile-tmp/nrimp10s-77.imp" PUSH XD PUSHI #0x00000000 ASSVAL 3631 BS=RBASE LINE 3631 "regression-compile-tmp/nrimp10s-77.imp" PUSH BS PUSH RBASE ASSVAL 3632 %FINISH LINE 3632 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 3633 CANAME(3,0,Q); ! RECORD REL ARRAY ACCESS 3634 ! CAN RETURN ACCESS=1 OR 3 ONLY LINE 3633 "regression-compile-tmp/nrimp10s-77.imp" PUSH CANAME PUSHI #0x00000003 ASSPAR PUSHI #0x00000000 ASSPAR PUSH Q ASSPAR CALL 3635 %IF PARMARR=0=PARMCHK %AND ACCESS=3 %AND (PREC=3 %OR TYPE>=3) %START LINE 3635 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMARR PUSHI #0x00000000 JUMPIFD # L_000a PUSH PARMCHK JUMPIF # L_000a PUSH ACCESS PUSHI #0x00000003 JUMPIF # L_000a PUSH PREC PUSHI #0x00000003 JUMPIF = L_000b PUSH TYPE PUSHI #0x00000003 JUMPIF < L_000a LOCATE L_000b 3636 PSORLF1(ADB,0,AREA CODE2(BS),W) LINE 3636 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSORLF1 PUSHI #0x00000020 ASSPAR PUSHI #0x00000000 ASSPAR PUSH AREACODE2 PUSH BS ASSPAR CALL ASSPAR PUSH W ASSPAR CALL 3637 PSF1(ADB,0,XD) %UNLESS XD=0 LINE 3637 "regression-compile-tmp/nrimp10s-77.imp" PUSH XD PUSHI #0x00000000 JUMPIF = L_000d PUSH PSF1 PUSHI #0x00000020 ASSPAR PUSHI #0x00000000 ASSPAR PUSH XD ASSPAR CALL LOCATE L_000d 3638 GRUSE(BREG)=0 LINE 3638 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000007 ACCESS PUSHI #0x00000000 ASSVAL 3639 %FINISH %ELSE %START LINE 3639 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0009 LOCATE L_000a 3640 GET IN ACC(DR,2,0,AREA CODE,Q) LINE 3640 "regression-compile-tmp/nrimp10s-77.imp" PUSH GETINACC PUSHI #0x00000001 ASSPAR PUSHI #0x00000002 ASSPAR PUSHI #0x00000000 ASSPAR PUSH AREACODE CALL ASSPAR PUSH Q ASSPAR CALL 3641 PSORLF1(INCA,0,AREA CODE2(BS),W) LINE 3641 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSORLF1 PUSHI #0x00000014 ASSPAR PUSHI #0x00000000 ASSPAR PUSH AREACODE2 PUSH BS ASSPAR CALL ASSPAR PUSH W ASSPAR CALL 3642 %IF ACCESS=1 %THEN ACCESS=2 %AND AREA=7 %AND XD=XD+NUMMOD*BYTES(PREC) LINE 3642 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACCESS PUSHI #0x00000001 JUMPIF # L_000d PUSH ACCESS PUSHI #0x00000002 ASSVAL PUSH AREA PUSHI #0x00000007 ASSVAL PUSH XD PUSH XD PUSH NUMMOD PUSH BYTES PUSH PREC ACCESS MUL ADD ASSVAL LOCATE L_000d 3643 PSF1(INCA,0,XD) %UNLESS XD=0 LINE 3643 "regression-compile-tmp/nrimp10s-77.imp" PUSH XD PUSHI #0x00000000 JUMPIF = L_000d PUSH PSF1 PUSHI #0x00000014 ASSPAR PUSHI #0x00000000 ASSPAR PUSH XD ASSPAR CALL LOCATE L_000d 3644 FORGET (DR) LINE 3644 "regression-compile-tmp/nrimp10s-77.imp" PUSH FORGET PUSHI #0x00000001 ASSPAR CALL 3645 AREA=7; DISP=0; ! AND ACCESS = 2 OR 3 ONLY LINE 3645 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000007 ASSVAL LINE 3645 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSHI #0x00000000 ASSVAL 3646 %IF TYPE=3 %AND A(P)=1 %START; ! WILL BE A FURTHER CALL 3647 ! ON ROUTINE CENAME LINE 3646 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000003 JUMPIF # L_000d PUSH A PUSH P ACCESS PUSHI #0x00000001 JUMPIF # L_000d 3648 GET WSP(DISP,2) LINE 3648 "regression-compile-tmp/nrimp10s-77.imp" PUSH GETWSP PUSH DISP ASSPAR PUSHI #0x00000002 ASSPAR CALL 3649 PSF1(STD,1,DISP) LINE 3649 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000058 ASSPAR PUSHI #0x00000001 ASSPAR PUSH DISP ASSPAR CALL 3650 AREA=LNB; BASE=RBASE LINE 3650 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000002 ASSVAL LINE 3650 "regression-compile-tmp/nrimp10s-77.imp" PUSH BASE PUSH RBASE ASSVAL 3651 %FINISH LINE 3651 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000d 3652 %FINISH LINE 3652 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 3653 %FINISH LINE 3653 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 3654 %IF TYPE=3 %THEN CENAME(ACCESS,QQ,BASE,AREA,DISP,0) LINE 3654 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000003 JUMPIF # L_0007 PUSH CENAME PUSH ACCESS ASSPAR PUSH QQ ASSPAR PUSH BASE ASSPAR PUSH AREA ASSPAR PUSH DISP ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0007 3655 %FINISH LINE 3655 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 3656 %RETURN LINE 3656 "regression-compile-tmp/nrimp10s-77.imp" RETURN 3657 %ROUTINE FETCH RAD 3658 !*********************************************************************** 3659 !* SET ACC TO 32 BIT ADDRESS OF RECORD. * 3660 !*********************************************************************** LINE 3657 "regression-compile-tmp/nrimp10s-77.imp" DEF FETCHRAD (_lev0id0_lev1id1_lev2id3_CSS_CRNAME_CENAME_FETCHRAD) p1=V_01ef 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=7 --> 8, nested=0 --> 1} FINISH ) {lev=7} 3661 ACCESS=MODE+4 LINE 3661 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACCESS PUSH MODE PUSHI #0x00000004 ADD ASSVAL 3662 AREA=AR; BASE=BS LINE 3662 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSH AR ASSVAL LINE 3662 "regression-compile-tmp/nrimp10s-77.imp" PUSH BASE PUSH BS ASSVAL 3663 DISP=DP; XDISP=XD LINE 3663 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSH DP ASSVAL LINE 3663 "regression-compile-tmp/nrimp10s-77.imp" PUSH XDISP PUSH XD ASSVAL 3664 NAMEOP(4,ACCR,4,-1) LINE 3664 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAMEOP PUSHI #0x00000004 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR PUSHI #0x00000001 NEGATE ASSPAR CALL 3665 %END LINE 3665 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CRNAME_CENAME_FETCHRAD {lev=7 --> 6} 3666 %ROUTINE LOCALISE(%INTEGER SIZE) 3667 !*********************************************************************** 3668 !* REMOVES A DESCRIPTOR OR ARRAYHEAD FROM A RECORD AND STORES * 3669 !* IT IN A TEMPORARY UNDER LNB. * 3670 !*********************************************************************** LINE 3666 "regression-compile-tmp/nrimp10s-77.imp" DEF LOCALISE (_lev0id0_lev1id1_lev2id3_CSS_CRNAME_CENAME_LOCALISE) p1=V_01f0 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=7 --> 8, nested=0 --> 1} DEF SIZE p1=V_01f7 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=7} 3671 %INTEGER HOLE LINE 3671 "regression-compile-tmp/nrimp10s-77.imp" DEF HOLE p1=V_01f8 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 3672 ACCESS=MODE+4 LINE 3672 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACCESS PUSH MODE PUSHI #0x00000004 ADD ASSVAL 3673 AREA=AR; BASE=BS; DISP=DP LINE 3673 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSH AR ASSVAL LINE 3673 "regression-compile-tmp/nrimp10s-77.imp" PUSH BASE PUSH BS ASSVAL LINE 3673 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSH DP ASSVAL 3674 XDISP=XD LINE 3674 "regression-compile-tmp/nrimp10s-77.imp" PUSH XDISP PUSH XD ASSVAL 3675 NAMEOP(2,ACCR,SIZE,-1) LINE 3675 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAMEOP PUSHI #0x00000002 ASSPAR PUSHI #0x00000000 ASSPAR PUSH SIZE ASSPAR PUSHI #0x00000001 NEGATE ASSPAR CALL 3676 GET WSP(HOLE,SIZE>>2) LINE 3676 "regression-compile-tmp/nrimp10s-77.imp" PUSH GETWSP PUSH HOLE ASSPAR PUSH SIZE PUSHI #0x00000002 RSH ASSPAR CALL 3677 PSF1(ST,1,HOLE) LINE 3677 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000001 ASSPAR PUSH HOLE ASSPAR CALL 3678 MODE=2; AREA=LNB LINE 3678 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000002 ASSVAL LINE 3678 "regression-compile-tmp/nrimp10s-77.imp" PUSH AREA PUSHI #0x00000002 ASSVAL 3679 BASE=RBASE; DISP=HOLE; XD=0 LINE 3679 "regression-compile-tmp/nrimp10s-77.imp" PUSH BASE PUSH RBASE ASSVAL LINE 3679 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSH HOLE ASSVAL LINE 3679 "regression-compile-tmp/nrimp10s-77.imp" PUSH XD PUSHI #0x00000000 ASSVAL 3680 %END; ! OF ROUTINE LOCALISE LINE 3680 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CRNAME_CENAME_LOCALISE {lev=7 --> 6} 3681 %END; ! OF ROUTINE CENAME LINE 3681 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CRNAME_CENAME {lev=6 --> 5} 3682 %END; ! OF ROUTINE CRNAME LINE 3682 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CRNAME {lev=5 --> 4} 3683 %ROUTINE CSTREXP(%INTEGER MODE,REG) 3684 !*********************************************************************** 3685 !* PLANT IN-LINE CODE FOR CONCATENATION. A WORK AREA UNDER * 3686 !* BASE REGISTER COVER IS USUALLY REQUIRED. THE CURRENT LENGTH * 3687 !* OF STRING IN THE WORK AREA IS KEPT IN A REGISTER (BREG) * 3688 !* WHICH IS PROTECTED THROUGH THE NORMAL INTERMEDIATE-RESULT * 3689 !* MECHANISMS. * 3690 !* ON ENTRY:- * 3691 !* MODE=0 NORMAL. WK AREA NOT USED FOR ONE OPERAND EXPSSNS * 3692 !* MODE=1 STRING MUST GO TO WORK AREA * 3693 !* (AND TO COME) * 3694 !* MODE=3 CONCATENATE INTO LHS OF =ASSNMNT (E.G. A=B.C) * 3695 !* MODE=4 OPTIMISE S=S.T BY NOT COPYING S * 3696 !* 2**4 BIT OF MODE IS SET IF WK-AREA NOT TO BE FREED ON EXIT * 3697 !* ON EXIT:- * 3698 !* BASE,DISP & INDEX DEFINE RESULT * 3699 !* VALUE#0 %IF RESULT IN A WORK AREA(CCOND MUST KNOW) * 3700 !* STRINGL SET IF STRING LENGTH KNOWN. STRFNRES DEFINES LENREG * 3701 !*********************************************************************** LINE 3683 "regression-compile-tmp/nrimp10s-77.imp" DEF CSTREXP (_lev0id0_lev1id1_lev2id3_CSS_CSTREXP) p1=V_0179 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=5 --> 6, nested=0 --> 1} DEF MODE p1=V_01df 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 REG p1=V_01e0 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=5} 3702 %INTEGER PP,WKAREA,DOTS,REXP,ERR,CLEN,KEEPWA,FNAM LINE 3702 "regression-compile-tmp/nrimp10s-77.imp" DEF PP p1=V_01e1 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 WKAREA p1=V_01e2 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 DOTS p1=V_01e3 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 REXP p1=V_01e4 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 ERR p1=V_01e5 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 CLEN p1=V_01e6 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 KEEPWA p1=V_01e7 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 FNAM p1=V_01e8 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 3703 %INTEGERFNSPEC STROP(%INTEGER REG) LINE 3703 "regression-compile-tmp/nrimp10s-77.imp" DEF STROP (_lev0id0_lev1id1_lev2id3_CSS_CSTREXP_STROP) p1=V_01e9 a/tf=18 b/format=1 c/ostate=18 type=1 (integer) form=8 (function) special=0 () linkage=0 (auto) spec=1 indirect=1 unass=0 START ( FORMAL PARAMETERS {lev=5 --> 6, nested=0 --> 1} DEF REG p1=V_01ea 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=5} 3704 KEEPWA=MODE&16; MODE=MODE&15 LINE 3704 "regression-compile-tmp/nrimp10s-77.imp" PUSH KEEPWA PUSH MODE PUSHI #0x00000010 AND ASSVAL LINE 3704 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSH MODE PUSHI #0x0000000f AND ASSVAL 3705 PP=P; STRINGL=0; FNAM=0; WKAREA=0 LINE 3705 "regression-compile-tmp/nrimp10s-77.imp" PUSH PP PUSH P ASSVAL LINE 3705 "regression-compile-tmp/nrimp10s-77.imp" PUSH STRINGL PUSHI #0x00000000 ASSVAL LINE 3705 "regression-compile-tmp/nrimp10s-77.imp" PUSH FNAM PUSHI #0x00000000 ASSVAL LINE 3705 "regression-compile-tmp/nrimp10s-77.imp" PUSH WKAREA PUSHI #0x00000000 ASSVAL 3706 REXP=2-A(P+1+FROM AR2(P+1)); ! =0 %IF ONE OPERAND EXP LINE 3706 "regression-compile-tmp/nrimp10s-77.imp" PUSH REXP PUSHI #0x00000002 PUSH A PUSH P PUSHI #0x00000001 ADD PUSH FROMAR2 PUSH P PUSHI #0x00000001 ADD ASSPAR CALL ADD ACCESS SUB ASSVAL 3707 -> NORMAL %UNLESS A(P+3)=4 %AND REXP=0 %AND MODE=0 LINE 3707 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000003 ADD ACCESS PUSHI #0x00000004 JUMPIF # L_0005 PUSH REXP PUSHI #0x00000000 JUMPIF # L_0005 PUSH MODE PUSHI #0x00000000 JUMPIF = L_0004 LOCATE L_0005 JUMP L_01ea LOCATE L_0004 3708 -> SIMPLE %IF A(P+4)=2 LINE 3708 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000004 ADD ACCESS PUSHI #0x00000002 JUMPIF # L_0004 JUMP L_01eb LOCATE L_0004 3709 -> NORMAL %UNLESS A(P+4)=1 3710 ! COPY TAG(FROM AR2(P+5)) 3711 ! %IF PTYPE=SNPT %THEN PTYPE=TSNAME(K) 3712 ! -> NORMAL %UNLESS ROUT=0 ; ! BEWARE OF MAP=FN 3713 ! -> NORMAL %IF PARMARR=1 %AND(ARR#0 %OR A(P+7)=1) LINE 3709 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000004 ADD ACCESS PUSHI #0x00000001 JUMPIF = L_0004 JUMP L_01ea LOCATE L_0004 3714 SIMPLE: P=P+4 LINE 3714 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01eb LINE 3714 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000004 ADD ASSVAL 3715 ERR=STROP(REG) LINE 3715 "regression-compile-tmp/nrimp10s-77.imp" PUSH ERR PUSH STROP PUSH REG ASSPAR CALL ASSVAL 3716 -> ERROR %UNLESS ERR=0 LINE 3716 "regression-compile-tmp/nrimp10s-77.imp" PUSH ERR PUSHI #0x00000000 JUMPIF = L_0004 JUMP L_01ec LOCATE L_0004 3717 VALUE=WKAREA LINE 3717 "regression-compile-tmp/nrimp10s-77.imp" PUSH VALUE PUSH WKAREA ASSVAL 3718 P=P+1; STRFNRES=0 LINE 3718 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 3718 "regression-compile-tmp/nrimp10s-77.imp" PUSH STRFNRES PUSHI #0x00000000 ASSVAL 3719 %RETURN LINE 3719 "regression-compile-tmp/nrimp10s-77.imp" RETURN 3720 ERROR: FAULT2(ERR,0,FNAM) LINE 3720 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01ec LINE 3720 "regression-compile-tmp/nrimp10s-77.imp" PUSH FAULT2 PUSH ERR ASSPAR PUSHI #0x00000000 ASSPAR PUSH FNAM ASSPAR CALL 3721 BASE=RBASE; DISP=0 LINE 3721 "regression-compile-tmp/nrimp10s-77.imp" PUSH BASE PUSH RBASE ASSVAL LINE 3721 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSHI #0x00000000 ASSVAL 3722 VALUE=0; ACCESS=0 LINE 3722 "regression-compile-tmp/nrimp10s-77.imp" PUSH VALUE PUSHI #0x00000000 ASSVAL LINE 3722 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACCESS PUSHI #0x00000000 ASSVAL 3723 P=PP; SKIP EXP LINE 3723 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH PP ASSVAL LINE 3723 "regression-compile-tmp/nrimp10s-77.imp" PUSH SKIPEXP CALL 3724 %RETURN LINE 3724 "regression-compile-tmp/nrimp10s-77.imp" RETURN 3725 NORMAL: CLEN=0; P=P+3; ! LENGTH OF CONSTANT PART LINE 3725 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01ea LINE 3725 "regression-compile-tmp/nrimp10s-77.imp" PUSH CLEN PUSHI #0x00000000 ASSVAL LINE 3725 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL 3726 ERR=72; ->ERROR %UNLESS A(P)=4 LINE 3726 "regression-compile-tmp/nrimp10s-77.imp" PUSH ERR PUSHI #0x00000048 ASSVAL LINE 3726 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000004 JUMPIF = L_0004 JUMP L_01ec LOCATE L_0004 3727 P=P+1 LINE 3727 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 3728 GET WSP(WKAREA,268); ! GET NEXT OPERAND LINE 3728 "regression-compile-tmp/nrimp10s-77.imp" PUSH GETWSP PUSH WKAREA ASSPAR PUSHI #0x0000010c ASSPAR CALL 3729 DOTS=0; ! NO OPERATORS YET LINE 3729 "regression-compile-tmp/nrimp10s-77.imp" PUSH DOTS PUSHI #0x00000000 ASSVAL 3730 NEXT: STRINGL=0 LINE 3730 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01ed LINE 3730 "regression-compile-tmp/nrimp10s-77.imp" PUSH STRINGL PUSHI #0x00000000 ASSVAL 3731 ERR=STROP(DR); ! GET NEXT OPERAND LINE 3731 "regression-compile-tmp/nrimp10s-77.imp" PUSH ERR PUSH STROP PUSHI #0x00000001 ASSPAR CALL ASSVAL 3732 -> ERROR %UNLESS ERR=0 LINE 3732 "regression-compile-tmp/nrimp10s-77.imp" PUSH ERR PUSHI #0x00000000 JUMPIF = L_0004 JUMP L_01ec LOCATE L_0004 3733 %IF REGISTER(ACCR)#0 %THEN BOOT OUT(ACCR) LINE 3733 "regression-compile-tmp/nrimp10s-77.imp" PUSH REGISTER PUSHI #0x00000000 ACCESS PUSHI #0x00000000 JUMPIF = L_0004 PUSH BOOTOUT PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 3734 PSF1(LB,0,WKAREA); ! BYTE DISP FROM LNB LINE 3734 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000007a ASSPAR PUSHI #0x00000000 ASSPAR PUSH WKAREA ASSPAR CALL 3735 PPJ(0,19+DOTS); ! TO SUBROUTINE 19 OR 20 LINE 3735 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPJ PUSHI #0x00000000 ASSPAR PUSHI #0x00000013 PUSH DOTS ADD ASSPAR CALL 3736 %IF A(P)=2 %THEN -> TIDY; ! NO MORE OPERATIONS LINE 3736 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000002 JUMPIF # L_0004 JUMP L_01ee LOCATE L_0004 3737 ERR=72; -> ERROR %UNLESS A(P+1)=CONCOP; ! CONCATENATE LINE 3737 "regression-compile-tmp/nrimp10s-77.imp" PUSH ERR PUSHI #0x00000048 ASSVAL LINE 3737 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS PUSHI #0x0000000d JUMPIF = L_0004 JUMP L_01ec LOCATE L_0004 3738 DOTS=DOTS!1 LINE 3738 "regression-compile-tmp/nrimp10s-77.imp" PUSH DOTS PUSH DOTS PUSHI #0x00000001 OR ASSVAL 3739 P=P+2; -> NEXT LINE 3739 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL LINE 3739 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01ed 3740 TIDY: ! FINISH OFF LINE 3740 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01ee 3741 VALUE=WKAREA LINE 3741 "regression-compile-tmp/nrimp10s-77.imp" PUSH VALUE PUSH WKAREA ASSVAL 3742 P=P+1; ! PAST REST OF EXPRN LINE 3742 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 3743 RETURN WSP(WKAREA,268) %IF KEEPWA=0 LINE 3743 "regression-compile-tmp/nrimp10s-77.imp" PUSH KEEPWA PUSHI #0x00000000 JUMPIF # L_0004 PUSH RETURNWSP PUSH WKAREA ASSPAR PUSHI #0x0000010c ASSPAR CALL LOCATE L_0004 3744 STRINGL=0 LINE 3744 "regression-compile-tmp/nrimp10s-77.imp" PUSH STRINGL PUSHI #0x00000000 ASSVAL 3745 %RETURN LINE 3745 "regression-compile-tmp/nrimp10s-77.imp" RETURN 3746 %INTEGERFN STROP(%INTEGER REG) 3747 !*********************************************************************** 3748 !* DEALS WITH OPERAND FOR CONCATENATION. RETURN RESULT=0 FOR * 3749 !* VALID OPERAND OTHERWISE AN ERROR NUMBER. * 3750 !*********************************************************************** LINE 3746 "regression-compile-tmp/nrimp10s-77.imp" DEF STROP (_lev0id0_lev1id1_lev2id3_CSS_CSTREXP_STROP) p1=V_01e9 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=6 --> 7, nested=0 --> 1} DEF REG p1=V_01ef 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=6} 3751 %INTEGER CTYPE,VAL,MODE LINE 3751 "regression-compile-tmp/nrimp10s-77.imp" DEF CTYPE p1=V_01f0 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_01f1 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 MODE p1=V_01f2 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 3752 MODE=A(P); ! ALTERNATIVE OF OPERAND LINE 3752 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSH A PUSH P ACCESS ASSVAL 3753 %RESULT=75 %IF MODE>2 LINE 3753 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000002 JUMPIF <= L_0004 PUSHI #0x0000004b RESULT LOCATE L_0004 3754 %IF MODE#1 %THEN %START LINE 3754 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000001 JUMPIF = L_0004 3755 CTYPE=A(P+1); ! GET CONST TYPE & LOSE AMCK FLAGS LINE 3755 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTYPE PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS ASSVAL 3756 %IF CTYPE=16_35 %THEN %START LINE 3756 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTYPE PUSHI #0x00000035 JUMPIF # L_0007 3757 STRINGL=A(P+6) LINE 3757 "regression-compile-tmp/nrimp10s-77.imp" PUSH STRINGL PUSH A PUSH P PUSHI #0x00000006 ADD ACCESS ASSVAL 3758 DISP=FROM AR4(P+2) LINE 3758 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSH FROMAR4 PUSH P PUSHI #0x00000002 ADD ASSPAR CALL ASSVAL 3759 P=P+STRINGL+7 LINE 3759 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSH STRINGL ADD PUSHI #0x00000007 ADD ASSVAL 3760 %FINISH %ELSE %RESULT=71 LINE 3760 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 PUSHI #0x00000047 RESULT LOCATE L_0006 3761 PF1(LDRL,0,PC,STRLINK) LINE 3761 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000070 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR PUSH STRLINK ASSPAR CALL 3762 PSF1(INCA,0,DISP) %IF DISP#0 LINE 3762 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISP PUSHI #0x00000000 JUMPIF = L_0007 PUSH PSF1 PUSHI #0x00000014 ASSPAR PUSHI #0x00000000 ASSPAR PUSH DISP ASSPAR CALL LOCATE L_0007 3763 %IF STRINGL#1 %THEN %START LINE 3763 "regression-compile-tmp/nrimp10s-77.imp" PUSH STRINGL PUSHI #0x00000001 JUMPIF = L_0007 3764 %IF STRINGL<=63 %THEN PSF1(LDB,0,STRINGL) %ELSE PF1(LDB,2,7,0);! ((DR)) LINE 3764 "regression-compile-tmp/nrimp10s-77.imp" PUSH STRINGL PUSHI #0x0000003f JUMPIF > L_000a PUSH PSF1 PUSHI #0x00000076 ASSPAR PUSHI #0x00000000 ASSPAR PUSH STRINGL ASSPAR CALL GOTO L_0009 LOCATE L_000a PUSH PF1 PUSHI #0x00000076 ASSPAR PUSHI #0x00000002 ASSPAR PUSHI #0x00000007 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0009 3765 %FINISH LINE 3765 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 3766 GRUSE(DR)=0 LINE 3766 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000001 ACCESS PUSHI #0x00000000 ASSVAL 3767 %IF REG=ACCR %THEN COPY DR LINE 3767 "regression-compile-tmp/nrimp10s-77.imp" PUSH REG PUSHI #0x00000000 JUMPIF # L_0007 PUSH COPYDR CALL LOCATE L_0007 3768 %FINISH %ELSE %START LINE 3768 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 3769 P=P+1; ! MUST CHECK FIRST LINE 3769 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 3770 REDUCE TAG; ! SINCE CNAME ONLY LOADS STRINGS 3771 ! AND LONGINTS TO DR! LINE 3770 "regression-compile-tmp/nrimp10s-77.imp" PUSH REDUCETAG CALL 3772 %IF 5#TYPE#7 %THEN FNAM=FROMAR2(P) %AND %RESULT=71 LINE 3772 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000005 PUSH TYPE JUMPIFD = L_0007 PUSHI #0x00000007 JUMPIF = L_0007 PUSH FNAM PUSH FROMAR2 PUSH P ASSPAR CALL ASSVAL PUSHI #0x00000047 RESULT LOCATE L_0007 3773 CNAME(2,REG) LINE 3773 "regression-compile-tmp/nrimp10s-77.imp" PUSH CNAME PUSHI #0x00000002 ASSPAR PUSH REG ASSPAR CALL 3774 STRINGL=0 LINE 3774 "regression-compile-tmp/nrimp10s-77.imp" PUSH STRINGL PUSHI #0x00000000 ASSVAL 3775 %IF ROUT#0 %AND NAM<=1 %START;! WAS FUNCTION NOT MAP LINE 3775 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUT PUSHI #0x00000000 JUMPIF = L_0007 PUSH NAM PUSHI #0x00000001 JUMPIF > L_0007 3776 %IF WKAREA=0 %AND KEEPWA#0 %THEN WKAREA=STRFNRES %ELSE RETURN WSP(STRFNRES,268) LINE 3776 "regression-compile-tmp/nrimp10s-77.imp" PUSH WKAREA PUSHI #0x00000000 JUMPIF # L_000a PUSH KEEPWA PUSHI #0x00000000 JUMPIF = L_000a PUSH WKAREA PUSH STRFNRES ASSVAL GOTO L_0009 LOCATE L_000a PUSH RETURNWSP PUSH STRFNRES ASSPAR PUSHI #0x0000010c ASSPAR CALL LOCATE L_0009 3777 %FINISH LINE 3777 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 3778 %FINISH LINE 3778 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 3779 %RESULT=0 LINE 3779 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000000 RESULT 3780 %END; ! OF INTEGERFN STROP LINE 3780 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CSTREXP_STROP {lev=6 --> 5} 3781 %END; ! OF ROUTINE CSTREXP LINE 3781 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CSTREXP {lev=5 --> 4} 3782 %ROUTINE CRES (%INTEGER LAB) 3783 !********************************************************************** 3784 !* COMPILES A RESOLUTION E.G A->B.(C).D.(E).F AND JUMPS TO LAB * 3785 !* ON FAILURE. (LAB=0 FOR UNCONDITIONAL RESOLUTION TO PERM ON * 3786 !* FAILURE ). * 3787 !* THE METHOD IS TO CALL A SUBROUTINE PASSING 3 PARAMS:- * 3788 !* P1 POINTS TO LHS(A) * 3789 !* P2 STRING TO CONTAIN FRAGMENT (PASSED BY NAME) * 3790 !* P3 THE EXPRESSION PASSED AS DESCRIPTOR * 3791 !* SUBROUTINE TRIES TO PERFORM THE RESOLUTION AND SETS THE * 3792 !* CONDITION CODE =8 IF IT SUCCEEDS. * 3793 !* * 3794 !* ON ENTRY LHS IS DEFINED BY DESCRIPTOR REG. * 3795 !* P POINTS TO P(+') OF RHS DEFINED AS (+')(OPERAND)(RESTOFEXP) * 3796 !* * 3797 !$ THE ROUTINE IS COMPACT BUT DIFFICULT TO FOLLOW (OR ALTER) * 3798 !* THE TIME IN PERM IS LARGE SO IT IS NOT WORTHWHILE TO PERSUE * 3799 !* CODE EFFICIENCY TOO INDUSTRIOUSLY . * 3800 !********************************************************************** LINE 3782 "regression-compile-tmp/nrimp10s-77.imp" DEF CRES (_lev0id0_lev1id1_lev2id3_CSS_CRES) p1=V_017a 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=5 --> 6, nested=0 --> 1} DEF LAB p1=V_01df 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=5} 3801 %INTEGER P1,P2,SEXPRN,W,LAST,ERR,FNAM LINE 3801 "regression-compile-tmp/nrimp10s-77.imp" DEF P1 p1=V_01e0 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 P2 p1=V_01e1 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 SEXPRN p1=V_01e2 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 W p1=V_01e3 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 LAST p1=V_01e4 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 ERR p1=V_01e5 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 FNAM p1=V_01e6 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 3802 %RECORD (RD) R{(RD) LINE 3802 "regression-compile-tmp/nrimp10s-77.imp" DEF R p1=V_01e7 a/tf=41 b/format=1ac c/ostate=0 type=4 (record) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 3803 LAST=0; FNAM=0; ! =1 WHEN END OF EXPRNSN FOUND LINE 3803 "regression-compile-tmp/nrimp10s-77.imp" PUSH LAST PUSHI #0x00000000 ASSVAL LINE 3803 "regression-compile-tmp/nrimp10s-77.imp" PUSH FNAM PUSHI #0x00000000 ASSVAL 3804 SEXPRN=0; ! RESOLUTION(BRKTD) EXPRESSNS LINE 3804 "regression-compile-tmp/nrimp10s-77.imp" PUSH SEXPRN PUSHI #0x00000000 ASSVAL 3805 ERR=74; ! NORMAL CRES FAULT LINE 3805 "regression-compile-tmp/nrimp10s-77.imp" PUSH ERR PUSHI #0x0000004a ASSVAL 3806 PSF1(INCA,0,1); ! TO FIRST CHAR LINE 3806 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000014 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000001 ASSPAR CALL 3807 P1=P; P=P+3 LINE 3807 "regression-compile-tmp/nrimp10s-77.imp" PUSH P1 PUSH P ASSVAL LINE 3807 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL 3808 ->RES %IF A(P)=4; ! LHS MUST BE A STRING 3809 ! BUT THIS CHECKED BEFORE CALL LINE 3808 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000004 JUMPIF # L_0004 JUMP L_01e8 LOCATE L_0004 3810 ERR=72 LINE 3810 "regression-compile-tmp/nrimp10s-77.imp" PUSH ERR PUSHI #0x00000048 ASSVAL 3811 ERROR: FAULT2(ERR,0,FNAM) LINE 3811 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01e9 LINE 3811 "regression-compile-tmp/nrimp10s-77.imp" PUSH FAULT2 PUSH ERR ASSPAR PUSHI #0x00000000 ASSPAR PUSH FNAM ASSPAR CALL 3812 P=P1; SKIP EXP; %RETURN LINE 3812 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P1 ASSVAL LINE 3812 "regression-compile-tmp/nrimp10s-77.imp" PUSH SKIPEXP CALL LINE 3812 "regression-compile-tmp/nrimp10s-77.imp" RETURN 3813 RES: P=P+1; ! TO P(OPERAND) LINE 3813 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01e8 LINE 3813 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 3814 PSF1(PRCL,0,4) LINE 3814 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000018 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR CALL 3815 %IF SEXPRN=0 %THEN W=STD %ELSE W=ST LINE 3815 "regression-compile-tmp/nrimp10s-77.imp" PUSH SEXPRN PUSHI #0x00000000 JUMPIF # L_0004 PUSH W PUSHI #0x00000058 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH W PUSHI #0x00000048 ASSVAL LOCATE L_0003 3816 PF1(W,0,TOS,0) LINE 3816 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSH W ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 3817 %IF A(P)=3 %THEN PSF1(LSD,0,0) %AND GRUSE(ACCR)=0 %ELSE %START;! B OMITTED LINE 3817 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000003 JUMPIF # L_0004 PUSH PSF1 PUSHI #0x00000064 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL GOTO L_0003 LOCATE L_0004 3818 ->ERROR %UNLESS A(P)=1; ! P(OPERAND)=NAME LINE 3818 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000001 JUMPIF = L_0007 JUMP L_01e9 LOCATE L_0007 3819 P=P+1; P2=P LINE 3819 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 3819 "regression-compile-tmp/nrimp10s-77.imp" PUSH P2 PUSH P ASSVAL 3820 CNAME(3,ACCR) LINE 3820 "regression-compile-tmp/nrimp10s-77.imp" PUSH CNAME PUSHI #0x00000003 ASSPAR PUSHI #0x00000000 ASSPAR CALL 3821 %IF TYPE#5 %THEN ERR=71 %AND FNAM=FROMAR2(P2) %AND ->ERROR LINE 3821 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000005 JUMPIF = L_0007 PUSH ERR PUSHI #0x00000047 ASSVAL PUSH FNAM PUSH FROMAR2 PUSH P2 ASSPAR CALL ASSVAL JUMP L_01e9 LOCATE L_0007 3822 %IF A(P+1)#CONCOP %THEN ERR=72 %AND ->ERROR LINE 3822 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS PUSHI #0x0000000d JUMPIF = L_0007 PUSH ERR PUSHI #0x00000048 ASSVAL JUMP L_01e9 LOCATE L_0007 3823 P=P+2 LINE 3823 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 3824 %FINISH LINE 3824 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 3825 PF1(ST,0,TOS,0); ! B (OR DUMMY) TO P2 LINE 3825 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 3826 ->ERROR %UNLESS A(P)=3; ! P(OPERAND)='('(EXPR)')' LINE 3826 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000003 JUMPIF = L_0004 JUMP L_01e9 LOCATE L_0004 3827 SEXPRN=SEXPRN+1; P=P+1 LINE 3827 "regression-compile-tmp/nrimp10s-77.imp" PUSH SEXPRN PUSH SEXPRN PUSHI #0x00000001 ADD ASSVAL LINE 3827 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 3828 CSTREXP(0,DR); ! TO REGISTER DR 3829 ! LINE 3828 "regression-compile-tmp/nrimp10s-77.imp" PUSH CSTREXP PUSHI #0x00000000 ASSPAR PUSHI #0x00000001 ASSPAR CALL 3830 PF1(STD,0,TOS,0) LINE 3830 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000058 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 3831 PSF1(RALN,0,11) LINE 3831 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000006c ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x0000000b ASSPAR CALL 3832 PPJ(-1,16) 3833 ! DEAL WITH CC#8 IE RESLN FAILED LINE 3832 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPJ PUSHI #0x00000001 NEGATE ASSPAR PUSHI #0x00000010 ASSPAR CALL 3834 %IF LAB#0 %THEN ENTER JUMP(7,LAB,B'11') %ELSE PPJ(7,12) 3835 ! LINE 3834 "regression-compile-tmp/nrimp10s-77.imp" PUSH LAB PUSHI #0x00000000 JUMPIF = L_0004 PUSH ENTERJUMP PUSHI #0x00000007 ASSPAR PUSH LAB ASSPAR PUSHI #0x00000003 ASSPAR CALL GOTO L_0003 LOCATE L_0004 PUSH PPJ PUSHI #0x00000007 ASSPAR PUSHI #0x0000000c ASSPAR CALL LOCATE L_0003 3836 -> END %IF A(P)=2 LINE 3836 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000002 JUMPIF # L_0004 JUMP L_01ea LOCATE L_0004 3837 %IF A(P+1)#CONCOP %THEN ERR=72 %AND ->ERROR LINE 3837 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS PUSHI #0x0000000d JUMPIF = L_0004 PUSH ERR PUSHI #0x00000048 ASSVAL JUMP L_01e9 LOCATE L_0004 3838 ->ERROR %UNLESS A(P+2)=1 LINE 3838 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000002 ADD ACCESS PUSHI #0x00000001 JUMPIF = L_0004 JUMP L_01e9 LOCATE L_0004 3839 P2=P+1; P=P2+1 LINE 3839 "regression-compile-tmp/nrimp10s-77.imp" PUSH P2 PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 3839 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P2 PUSHI #0x00000001 ADD ASSVAL 3840 P=P+3 %AND SKIP APP %UNTIL A(P)=2 LINE 3840 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL PUSH SKIPAPP CALL PUSH A PUSH P ACCESS PUSHI #0x00000002 JUMPIF = L_0004 REPEAT L_0003 LOCATE L_0004 3841 %IF A(P+1)=1 %THEN P=P2 %AND ->RES LINE 3841 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000001 JUMPIF # L_0004 PUSH P PUSH P2 ASSVAL JUMP L_01e8 LOCATE L_0004 3842 P1=P+1 LINE 3842 "regression-compile-tmp/nrimp10s-77.imp" PUSH P1 PUSH P PUSHI #0x00000001 ADD ASSVAL 3843 REGISTER(ACCR)=1 LINE 3843 "regression-compile-tmp/nrimp10s-77.imp" PUSH REGISTER PUSHI #0x00000000 ACCESS PUSHI #0x00000001 ASSVAL 3844 OLINK(ACCR)=ADDR(R) LINE 3844 "regression-compile-tmp/nrimp10s-77.imp" PUSH OLINK PUSHI #0x00000000 ACCESS PUSH ADDR PUSH R ASSPAR CALL ASSVAL 3845 R_PTYPE=1; R_XB=ACCR LINE 3845 "regression-compile-tmp/nrimp10s-77.imp" PUSH R SELECT 2 PUSHI #0x00000001 ASSVAL LINE 3845 "regression-compile-tmp/nrimp10s-77.imp" PUSH R SELECT 3 PUSHI #0x00000000 ASSVAL 3846 R_FLAG=9 LINE 3846 "regression-compile-tmp/nrimp10s-77.imp" PUSH R SELECT 4 PUSHI #0x00000009 ASSVAL 3847 P=P2+2; CNAME(1,DR) LINE 3847 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P2 PUSHI #0x00000002 ADD ASSVAL LINE 3847 "regression-compile-tmp/nrimp10s-77.imp" PUSH CNAME PUSHI #0x00000001 ASSPAR PUSHI #0x00000001 ASSPAR CALL 3848 %IF R_FLAG#9 %THEN PF1(LSD,0,TOS,0) LINE 3848 "regression-compile-tmp/nrimp10s-77.imp" PUSH R SELECT 4 PUSHI #0x00000009 JUMPIF = L_0004 PUSH PF1 PUSHI #0x00000064 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 3849 REGISTER(ACCR)=0 LINE 3849 "regression-compile-tmp/nrimp10s-77.imp" PUSH REGISTER PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL 3850 PF1(STUH,0,BREG,0) LINE 3850 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000004a ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000007 ASSPAR PUSHI #0x00000000 ASSPAR CALL 3851 PF1(LUH,0,BREG,0) LINE 3851 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000006a ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000007 ASSPAR PUSHI #0x00000000 ASSPAR CALL 3852 PF2(MVL,0,0,0,0,0) LINE 3852 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF2 PUSHI #0x000000b0 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL 3853 %IF ROUT#0 %OR NAM#0 %THEN PPJ(0,18);! ASSNMNT CHECK (Q.V) LINE 3853 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUT PUSHI #0x00000000 JUMPIF # L_0005 PUSH NAM PUSHI #0x00000000 JUMPIF = L_0004 LOCATE L_0005 PUSH PPJ PUSHI #0x00000000 ASSPAR PUSHI #0x00000012 ASSPAR CALL LOCATE L_0004 3854 PF2(MV,1,1,0,0,UNASSPAT&255) LINE 3854 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF2 PUSHI #0x000000b2 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x81818181 PUSHI #0x000000ff AND ASSPAR CALL 3855 GRUSE(ACCR)=0 LINE 3855 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL 3856 %IF PARMARR=1 %START LINE 3856 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMARR PUSHI #0x00000001 JUMPIF # L_0004 3857 PSF1(USH,0,8) LINE 3857 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x000000c8 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000008 ASSPAR CALL 3858 PSF1(USH,0,-40) LINE 3858 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x000000c8 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000028 NEGATE ASSPAR CALL 3859 PPJ(36,9) LINE 3859 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPJ PUSHI #0x00000024 ASSPAR PUSHI #0x00000009 ASSPAR CALL 3860 %FINISH LINE 3860 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 3861 P=P1 LINE 3861 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P1 ASSVAL 3862 END: LINE 3862 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01ea 3863 P=P+1 LINE 3863 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 3864 %END LINE 3864 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CRES {lev=5 --> 4} 3865 %ROUTINE SAVE AUX STACK 3866 !*********************************************************************** 3867 !* COPY AUX STACK DESCRPTR & POINTER INTO CURRENT STACK FRAME * 3868 !* FIVE WORDS ARE USED FOR THIS PURPOSE:- * 3869 !* 1&2 HOLD AUX STACK DESCRIPTOR * 3870 !* 3 HOLDS VALUE AT BLK ENTRY FOR USE AT EXIT * 3871 !* 4 HOLDS STACKTOP VALUE AFTER ALL ARRAY DECLNS(FOR %ONS) * 3872 !* 5 HOLD STACKLIMIT FOR CHECKING AT ARRAY DECLARATIONS * 3873 !* THE LATTER IS OMITTED INPARM=OPT * 3874 !*********************************************************************** LINE 3865 "regression-compile-tmp/nrimp10s-77.imp" DEF SAVEAUXSTACK (_lev0id0_lev1id1_lev2id3_CSS_SAVEAUXSTACK) p1=V_0184 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=5 --> 6, nested=0 --> 1} FINISH ) {lev=5} 3875 %INTEGER XYNB, DR0, DR1 LINE 3875 "regression-compile-tmp/nrimp10s-77.imp" DEF XYNB p1=V_01df 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 DR0 p1=V_01e0 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 DR1 p1=V_01e1 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 3876 %IF AUXST=0 %THEN %START; ! FIRST REF PUT REF IN PLT LINE 3876 "regression-compile-tmp/nrimp10s-77.imp" PUSH AUXST PUSHI #0x00000000 JUMPIF # L_0004 3877 DR0=16_30000001; DR1=0 LINE 3877 "regression-compile-tmp/nrimp10s-77.imp" PUSH DR0 PUSHI #0x30000001 ASSVAL LINE 3877 "regression-compile-tmp/nrimp10s-77.imp" PUSH DR1 PUSHI #0x00000000 ASSVAL 3878 PGLA(8,8,ADDR(DR0)) LINE 3878 "regression-compile-tmp/nrimp10s-77.imp" PUSH PGLA PUSHI #0x00000008 ASSPAR PUSHI #0x00000008 ASSPAR PUSH ADDR PUSH DR0 ASSPAR CALL ASSPAR CALL 3879 AUXST=GLACA-8 LINE 3879 "regression-compile-tmp/nrimp10s-77.imp" PUSH AUXST PUSH GLACA PUSHI #0x00000008 SUB ASSVAL 3880 GXREF(AUXSTEP,2,16_02000008,AUXST+4) LINE 3880 "regression-compile-tmp/nrimp10s-77.imp" PUSH GXREF PUSH AUXSTEP ASSPAR PUSHI #0x00000002 ASSPAR PUSHI #0x02000008 ASSPAR PUSH AUXST PUSHI #0x00000004 ADD ASSPAR CALL 3881 %FINISH LINE 3881 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 3882 %IF AUXSBASE(LEVEL)=0 %START LINE 3882 "regression-compile-tmp/nrimp10s-77.imp" PUSH AUXSBASE PUSH LEVEL ACCESS PUSHI #0x00000000 JUMPIF # L_0004 3883 XYNB=SET XORYNB(-1,-1) LINE 3883 "regression-compile-tmp/nrimp10s-77.imp" PUSH XYNB PUSH SETXORYNB PUSHI #0x00000001 NEGATE ASSPAR PUSHI #0x00000001 NEGATE ASSPAR CALL ASSVAL 3884 PF1(LD,2,XYNB,AUXST) LINE 3884 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000078 ASSPAR PUSHI #0x00000002 ASSPAR PUSH XYNB ASSPAR PUSH AUXST ASSPAR CALL 3885 %IF PARMOPT#0 %THEN %START LINE 3885 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMOPT PUSHI #0x00000000 JUMPIF = L_0007 3886 PF1(LSS,1,0,2); ! PICK UP STACKTOP LINE 3886 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000002 ASSPAR CALL 3887 PSF1(ST,1,N+16) LINE 3887 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000001 ASSPAR PUSH N PUSHI #0x00000010 ADD ASSPAR CALL 3888 %FINISH LINE 3888 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 3889 PF1(LSS,2,7,0) LINE 3889 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000002 ASSPAR PUSHI #0x00000007 ASSPAR PUSHI #0x00000000 ASSPAR CALL 3890 PSF1(STD,1,N) LINE 3890 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000058 ASSPAR PUSHI #0x00000001 ASSPAR PUSH N ASSPAR CALL 3891 PSF1(ST,1,N+8) LINE 3891 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000001 ASSPAR PUSH N PUSHI #0x00000008 ADD ASSPAR CALL 3892 AUXSBASE(LEVEL)=N; N=N+16 LINE 3892 "regression-compile-tmp/nrimp10s-77.imp" PUSH AUXSBASE PUSH LEVEL ACCESS PUSH N ASSVAL LINE 3892 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSHI #0x00000010 ADD ASSVAL 3893 %IF PARMOPT#0 %THEN N=N+4 LINE 3893 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMOPT PUSHI #0x00000000 JUMPIF = L_0007 PUSH N PUSH N PUSHI #0x00000004 ADD ASSVAL LOCATE L_0007 3894 GRUSE(DR)=0; GRUSE(ACCR)=11; GRINF1(ACCR)=0 LINE 3894 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000001 ACCESS PUSHI #0x00000000 ASSVAL LINE 3894 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x0000000b ASSVAL LINE 3894 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRINF1 PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL 3895 %FINISH LINE 3895 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 3896 %END LINE 3896 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_SAVEAUXSTACK {lev=5 --> 4} 3897 %ROUTINE RESET AUX STACK 3898 !*********************************************************************** 3899 !* IF ANY ARRAYS HAVE BEEN PUT ON THE AUXSTACK THEN UNDECLARE * 3900 !*********************************************************************** LINE 3897 "regression-compile-tmp/nrimp10s-77.imp" DEF RESETAUXSTACK (_lev0id0_lev1id1_lev2id3_CSS_RESETAUXSTACK) p1=V_0185 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=5 --> 6, nested=0 --> 1} FINISH ) {lev=5} 3901 %IF AUXSBASE(LEVEL)#0 %START LINE 3901 "regression-compile-tmp/nrimp10s-77.imp" PUSH AUXSBASE PUSH LEVEL ACCESS PUSHI #0x00000000 JUMPIF = L_0004 3902 PSF1(LB,1,AUXSBASE(LEVEL)+8) LINE 3902 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000007a ASSPAR PUSHI #0x00000001 ASSPAR PUSH AUXSBASE PUSH LEVEL ACCESS PUSHI #0x00000008 ADD ASSPAR CALL 3903 PSF1(STB,2,AUXSBASE(LEVEL)) LINE 3903 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000005a ASSPAR PUSHI #0x00000002 ASSPAR PUSH AUXSBASE PUSH LEVEL ACCESS ASSPAR CALL 3904 GRUSE(BREG)=0 LINE 3904 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000007 ACCESS PUSHI #0x00000000 ASSVAL 3905 %FINISH LINE 3905 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 3906 %END LINE 3906 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_RESETAUXSTACK {lev=5 --> 4} 3907 %ROUTINE RT EXIT 3908 !*********************************************************************** 3909 !* THIS ROUTINE COMPILES CODE FOR ROUTINE EXIT(IE '%RETURN') * 3910 !*********************************************************************** LINE 3907 "regression-compile-tmp/nrimp10s-77.imp" DEF RTEXIT (_lev0id0_lev1id1_lev2id3_CSS_RTEXIT) p1=V_01df 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=5 --> 6, nested=0 --> 1} FINISH ) {lev=5} 3911 RESET AUX STACK LINE 3911 "regression-compile-tmp/nrimp10s-77.imp" PUSH RESETAUXSTACK CALL 3912 PSF1(EXIT,0,-16_40) LINE 3912 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000038 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000040 NEGATE ASSPAR CALL 3913 %END LINE 3913 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_RTEXIT {lev=5 --> 4} 3914 %ROUTINE CLAIM ST FRAME(%INTEGER AT,VALUE) 3915 !*********************************************************************** 3916 !* FILL ASF INSTN IN RT ENTRY SEQUENCE TO CLAIM THE STACKFRAME * 3917 !*********************************************************************** LINE 3914 "regression-compile-tmp/nrimp10s-77.imp" DEF CLAIMSTFRAME (_lev0id0_lev1id1_lev2id3_CSS_CLAIMSTFRAME) p1=V_01e0 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=5 --> 6, nested=0 --> 1} DEF AT p1=V_01e1 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 VALUE p1=V_01e2 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=5} 3918 %INTEGER INSTR, WK LINE 3918 "regression-compile-tmp/nrimp10s-77.imp" DEF INSTR p1=V_01e3 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 WK p1=V_01e4 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 3919 WK=AT>>18; ! BYTES CLAIMED BY ENTRY SEQ LINE 3919 "regression-compile-tmp/nrimp10s-77.imp" PUSH WK PUSH AT PUSHI #0x00000012 RSH ASSVAL 3920 AT=AT&16_3FFFF; ! ADRR OF ASF INSTRN LINE 3920 "regression-compile-tmp/nrimp10s-77.imp" PUSH AT PUSH AT PUSHI #0x0003ffff AND ASSVAL 3921 INSTR=(ASF+12*PARMCHK)<<24!3<<23!(VALUE-WK+3)>>2 LINE 3921 "regression-compile-tmp/nrimp10s-77.imp" PUSH INSTR PUSHI #0x0000006e PUSHI #0x0000000c PUSH PARMCHK MUL ADD PUSHI #0x00000018 LSH PUSHI #0x00000003 PUSHI #0x00000017 LSH OR PUSH VALUE PUSH WK SUB PUSHI #0x00000003 ADD PUSHI #0x00000002 RSH OR ASSVAL 3922 PLUG(1,AT,INSTR,4) LINE 3922 "regression-compile-tmp/nrimp10s-77.imp" PUSH PLUG PUSHI #0x00000001 ASSPAR PUSH AT ASSPAR PUSH INSTR ASSPAR PUSHI #0x00000004 ASSPAR CALL 3923 %END LINE 3923 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CLAIMSTFRAME {lev=5 --> 4} 3924 %ROUTINE CEND (%INTEGER KKK) 3925 !*********************************************************************** 3926 !* DEAL WITH ALL OCCURENCES OF '%END' * 3927 !* KKK=PTYPE(>=16_1000) FOR ROUTINES,FNS AND MAPS * 3928 !* KKK=0 FOR ENDS OF '%BEGIN' BLOCKS * 3929 !* KKK=1 FOR '%ENDOFPROGRAM' * 3930 !* %ENDOFPROGRAM IS REALLY TWO ENDS. THE FIRST IS THE USERS * 3931 !* AND THE SECOND IS PERMS. KKK=2 FOR A RECURSIVE CALL OF CEND * 3932 !* ON END OF PROGRAM TO DEAL WITH THE %END CORRESPONDING TO * 3933 !* THE %BEGIN COMPILED IN THE INITIALISATION SEQUENCE * 3934 !*********************************************************************** LINE 3924 "regression-compile-tmp/nrimp10s-77.imp" DEF CEND (_lev0id0_lev1id1_lev2id3_CSS_CEND) p1=V_0164 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=5 --> 6, nested=0 --> 1} DEF KKK p1=V_01e1 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=5} 3935 %INTEGER KP,JJ,BIT LINE 3935 "regression-compile-tmp/nrimp10s-77.imp" DEF KP p1=V_01e2 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 JJ p1=V_01e3 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 BIT p1=V_01e4 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 3936 %ROUTINESPEC DTABLE(%INTEGER LEVEL) LINE 3936 "regression-compile-tmp/nrimp10s-77.imp" DEF DTABLE (_lev0id0_lev1id1_lev2id3_CSS_CEND_DTABLE) p1=V_01e5 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=5 --> 6, nested=0 --> 1} DEF LEVEL p1=V_01e6 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=5} 3937 SET LINE %UNLESS KKK=2 LINE 3937 "regression-compile-tmp/nrimp10s-77.imp" PUSH KKK PUSHI #0x00000002 JUMPIF = L_0004 PUSH SETLINE CALL LOCATE L_0004 3938 FORGET(-1) LINE 3938 "regression-compile-tmp/nrimp10s-77.imp" PUSH FORGET PUSHI #0x00000001 NEGATE ASSPAR CALL 3939 BIT=1<16_1000 %AND COMPILER=0 %AND LAST INST=0 %THEN PPJ(15,10); ! RUN FAULT 11 LINE 3944 "regression-compile-tmp/nrimp10s-77.imp" PUSH KKK PUSHI #0x00003fff AND PUSHI #0x00001000 JUMPIF <= L_0004 PUSH COMPILER PUSHI #0x00000000 JUMPIF # L_0004 PUSH LASTINST PUSHI #0x00000000 JUMPIF # L_0004 PUSH PPJ PUSHI #0x0000000f ASSPAR PUSHI #0x0000000a ASSPAR CALL LOCATE L_0004 3945 NMAX=N %IF N>NMAX; ! WORK SPACE POINTER 3946 ! 3947 ! CLEAR OUT THE LABEL LIST FAULTING LABELS WITH JUMPS OUTSTANDING 3948 ! AS NOT SET AND COMMENTING ON LABELS NOT USED 3949 ! LINE 3945 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH NMAX JUMPIF <= L_0004 PUSH NMAX PUSH N ASSVAL LOCATE L_0004 3950 %WHILE LABEL(LEVEL)#0 %CYCLE LINE 3950 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH LABEL PUSH LEVEL ACCESS PUSHI #0x00000000 JUMPIF = L_0004 3951 POP(LABEL(LEVEL),I,J,KP) LINE 3951 "regression-compile-tmp/nrimp10s-77.imp" PUSH POP PUSH LABEL PUSH LEVEL ACCESS ASSPAR PUSH I ASSPAR PUSH J ASSPAR PUSH KP ASSPAR CALL 3952 I=I>>24 LINE 3952 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH I PUSHI #0x00000018 RSH ASSVAL 3953 %IF J&16_FFFF#0 %THEN %START LINE 3953 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x0000ffff AND PUSHI #0x00000000 JUMPIF = L_0007 3954 J=J&16_FFFF LINE 3954 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH J PUSHI #0x0000ffff AND ASSVAL 3955 %IF 0= L_000a PUSH MAXULAB JUMPIF > L_000a PUSH FAULT2 PUSHI #0x0000000b ASSPAR PUSH FROM3 PUSH J ASSPAR CALL ASSPAR PUSH KP ASSPAR CALL LOCATE L_000a 3956 CLEAR LIST(J) LINE 3956 "regression-compile-tmp/nrimp10s-77.imp" PUSH CLEARLIST PUSH J ASSPAR CALL 3957 %FINISH %ELSE %START LINE 3957 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 3958 %IF I=0 %AND KP= L_000a PUSH WARN PUSHI #0x00000003 ASSPAR PUSH KP ASSPAR CALL LOCATE L_000a 3959 %FINISH LINE 3959 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 3960 %REPEAT 3961 ! LINE 3960 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 3962 %CYCLE JJ=0,1,4 LINE 3962 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSHI #0x00000001 PUSHI #0x00000004 PUSHI #0x00000000 FOR L_0003 3963 CLEAR LIST(AVL WSP(JJ,LEVEL));! RELEASE TEMPORARY LOCATIONS LINE 3963 "regression-compile-tmp/nrimp10s-77.imp" PUSH CLEARLIST PUSH AVLWSP PUSH JJ INDEX PUSH LEVEL ACCESS ASSPAR CALL 3964 %REPEAT 3965 ! LINE 3964 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 3966 DTABLE(LEVEL); ! OUTPUT DIAGNOSTIC TABLES 3967 ! 3968 ! CLEAR DECLARATIONS - POP UP ANY GLOBAL NAMES THAT WERE REDECLARED 3969 ! DESTROY SIDE CHAINS FOR ROUTINES,FORMATS AND SWITCHES 3970 ! 3971 ! 3972 ! NOW CLAIM THE STACK FRAME BY FILING THE ASF IN THE BLOCK ENTRY CODING 3973 ! LINE 3966 "regression-compile-tmp/nrimp10s-77.imp" PUSH DTABLE PUSH LEVEL ASSPAR CALL 3974 NMAX=(NMAX+7)&(-8) LINE 3974 "regression-compile-tmp/nrimp10s-77.imp" PUSH NMAX PUSH NMAX PUSHI #0x00000007 ADD PUSHI #0x00000008 NEGATE AND ASSVAL 3975 %IF KKK=2 %THEN %RETURN LINE 3975 "regression-compile-tmp/nrimp10s-77.imp" PUSH KKK PUSHI #0x00000002 JUMPIF # L_0004 RETURN LOCATE L_0004 3976 %IF KKK>=16_1000 %OR KKK=1 %THEN CLAIM ST FRAME(SET(RLEVEL),NMAX) 3977 ! 3978 ! NOW PLANT THE BLOCK EXIT SEQUENCE 3979 ! LINE 3976 "regression-compile-tmp/nrimp10s-77.imp" PUSH KKK PUSHI #0x00001000 JUMPIF >= L_0005 PUSH KKK PUSHI #0x00000001 JUMPIF # L_0004 LOCATE L_0005 PUSH CLAIMSTFRAME PUSH SET PUSH RLEVEL ACCESS ASSPAR PUSH NMAX ASSPAR CALL LOCATE L_0004 3980 %IF KKK&16_3FFF=16_1000 %AND LAST INST=0 %THEN RT EXIT LINE 3980 "regression-compile-tmp/nrimp10s-77.imp" PUSH KKK PUSHI #0x00003fff AND PUSHI #0x00001000 JUMPIF # L_0004 PUSH LASTINST PUSHI #0x00000000 JUMPIF # L_0004 PUSH RTEXIT CALL LOCATE L_0004 3981 PPJ(15,21) %IF KKK=1 %AND LAST INST=0;! %STOP AT %ENDOFPROGRAM LINE 3981 "regression-compile-tmp/nrimp10s-77.imp" PUSH KKK PUSHI #0x00000001 JUMPIF # L_0004 PUSH LASTINST PUSHI #0x00000000 JUMPIF # L_0004 PUSH PPJ PUSHI #0x0000000f ASSPAR PUSHI #0x00000015 ASSPAR CALL LOCATE L_0004 3982 %IF KKK=0 %THEN %START; ! BEGIN BLOCK EXIT LINE 3982 "regression-compile-tmp/nrimp10s-77.imp" PUSH KKK PUSHI #0x00000000 JUMPIF # L_0004 3983 %IF PARMTRACE=1 %THEN %START; ! RESTORE DIAGS POINTERS LINE 3983 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMTRACE PUSHI #0x00000001 JUMPIF # L_0007 3984 PSF1(LD,1,12) LINE 3984 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000078 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x0000000c ASSPAR CALL 3985 DIAG POINTER(LEVEL-1) LINE 3985 "regression-compile-tmp/nrimp10s-77.imp" PUSH DIAGPOINTER PUSH LEVEL PUSHI #0x00000001 SUB ASSPAR CALL 3986 PSF1(STD,1,12) LINE 3986 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000058 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x0000000c ASSPAR CALL 3987 %FINISH LINE 3987 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 3988 %IF STACK#0 %START LINE 3988 "regression-compile-tmp/nrimp10s-77.imp" PUSH STACK PUSHI #0x00000000 JUMPIF = L_0007 3989 JJ=NMDECS(LEVEL)>>14 LINE 3989 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSH NMDECS PUSH LEVEL ACCESS PUSHI #0x0000000e RSH ASSVAL 3990 %IF JJ#0 %THEN %START; ! ARRAYS TO BE UNDECLARED LINE 3990 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSHI #0x00000000 JUMPIF = L_000a 3991 PF1(STSF,0,TOS,0) LINE 3991 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000005e ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 3992 PF1(LSS,0,TOS,0) LINE 3992 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 3993 PSF1(ISB,1,JJ) LINE 3993 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x000000e2 ASSPAR PUSHI #0x00000001 ASSPAR PUSH JJ ASSPAR CALL 3994 PSF1(USH,0,-2) LINE 3994 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x000000c8 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000002 NEGATE ASSPAR CALL 3995 PF1(ST,0,TOS,0) LINE 3995 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 3996 PF1(ASF,0,TOS,0) LINE 3996 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000006e ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 3997 GRUSE(ACCR)=0 LINE 3997 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL 3998 %FINISH LINE 3998 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000a 3999 %FINISH %ELSE RESET AUX STACK LINE 3999 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 PUSH RESETAUXSTACK CALL LOCATE L_0006 4000 %FINISH 4001 ! 4002 ! RETURN TO PREVIOUS LEVEL PROVIDED THERE IS A VALID ONE ! 4003 ! LINE 4000 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4004 %UNLESS LEVEL>2 %OR (LEVEL=2 %AND CPRMODE=2) %THEN %START LINE 4004 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x00000002 JUMPIF > L_0004 PUSH LEVEL PUSHI #0x00000002 JUMPIF # L_0005 PUSH CPRMODE PUSHI #0x00000002 JUMPIF = L_0004 LOCATE L_0005 4005 %IF KKK=1 %AND LEVEL=2 %THEN KKK=2 %ELSE FAULT(14,0) %AND %STOP LINE 4005 "regression-compile-tmp/nrimp10s-77.imp" PUSH KKK PUSHI #0x00000001 JUMPIF # L_0007 PUSH LEVEL PUSHI #0x00000002 JUMPIF # L_0007 PUSH KKK PUSHI #0x00000002 ASSVAL GOTO L_0006 LOCATE L_0007 PUSH FAULT PUSHI #0x0000000e ASSPAR PUSHI #0x00000000 ASSPAR CALL STOP LOCATE L_0006 4006 %FINISH LINE 4006 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4007 LEVEL=LEVEL-1 LINE 4007 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSH LEVEL PUSHI #0x00000001 SUB ASSVAL 4008 %IF KKK>=16_1000 %THEN %START LINE 4008 "regression-compile-tmp/nrimp10s-77.imp" PUSH KKK PUSHI #0x00001000 JUMPIF < L_0004 4009 RLEVEL=RLEVEL-1 LINE 4009 "regression-compile-tmp/nrimp10s-77.imp" PUSH RLEVEL PUSH RLEVEL PUSHI #0x00000001 SUB ASSVAL 4010 RBASE=RLEVEL LINE 4010 "regression-compile-tmp/nrimp10s-77.imp" PUSH RBASE PUSH RLEVEL ASSVAL 4011 %FINISH 4012 ! 4013 ! RESTORE INFORMATION ABOUT THE (NEW) CURRENT LEVEL 4014 ! LINE 4011 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4015 POP(LEVELINF,KP,N,KP) LINE 4015 "regression-compile-tmp/nrimp10s-77.imp" PUSH POP PUSH LEVELINF ASSPAR PUSH KP ASSPAR PUSH N ASSPAR PUSH KP ASSPAR CALL 4016 NMAX=N>>16 %IF KKK>=16_1000 LINE 4016 "regression-compile-tmp/nrimp10s-77.imp" PUSH KKK PUSHI #0x00001000 JUMPIF < L_0004 PUSH NMAX PUSH N PUSHI #0x00000010 RSH ASSVAL LOCATE L_0004 4017 N=N&16_7FFF LINE 4017 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSHI #0x00007fff AND ASSVAL 4018 %IF KKK=2 %THEN CEND(KKK); ! ROUND AGAIN FOR 'ENDOFPROGRAM' 4019 ! 4020 ! COMPLETE THE JUMP AROUND ALL NON-EXTERNAL ROUTINES EXCEPT WHEN 4021 ! %TRUSTEDPROGRAM IS IN OPERATION. 4022 ! LINE 4018 "regression-compile-tmp/nrimp10s-77.imp" PUSH KKK PUSHI #0x00000002 JUMPIF # L_0004 PUSH CEND PUSH KKK ASSPAR CALL LOCATE L_0004 4023 %IF ASL WARN#0 %THEN ASL WARN=0 %AND EPILOGUE LINE 4023 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASLWARN PUSHI #0x00000000 JUMPIF = L_0004 PUSH ASLWARN PUSHI #0x00000000 ASSVAL PUSH EPILOGUE CALL LOCATE L_0004 4024 %IF KKK>=16_1000 %AND COMPILER=0 %AND(RLEVEL>0 %OR CPRMODE#2) %THEN %START LINE 4024 "regression-compile-tmp/nrimp10s-77.imp" PUSH KKK PUSHI #0x00001000 JUMPIF < L_0004 PUSH COMPILER PUSHI #0x00000000 JUMPIF # L_0004 PUSH RLEVEL PUSHI #0x00000000 JUMPIF > L_0005 PUSH CPRMODE PUSHI #0x00000002 JUMPIF = L_0004 LOCATE L_0005 4025 JJ=NEXTP+6 LINE 4025 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSH NEXTP PUSHI #0x00000006 ADD ASSVAL 4026 %UNLESS A(NEXTP+5)=11 %AND A(JJ+FROMAR2(JJ))=2 %START LINE 4026 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH NEXTP PUSHI #0x00000005 ADD ACCESS PUSHI #0x0000000b JUMPIF # L_0008 PUSH A PUSH JJ PUSH FROMAR2 PUSH JJ ASSPAR CALL ADD ACCESS PUSHI #0x00000002 JUMPIF = L_0007 LOCATE L_0008 4027 JJ=ENTER LAB(JROUND(LEVEL+1),0) LINE 4027 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSH ENTERLAB PUSH JROUND PUSH LEVEL PUSHI #0x00000001 ADD ACCESS ASSPAR PUSHI #0x00000000 ASSPAR CALL ASSVAL 4028 JROUND(LEVEL+1)=0 LINE 4028 "regression-compile-tmp/nrimp10s-77.imp" PUSH JROUND PUSH LEVEL PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000000 ASSVAL 4029 %FINISH LINE 4029 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 4030 %FINISH LINE 4030 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4031 %RETURN 4032 ! 4033 ! LAYOUT OF DIAGNOSIC TABLES 4034 ! ****** ** ********* ****** 4035 ! 4036 ! THE BOUND FIELD OF PLT DESCRIPTOR STORED AT (LNB+3 & LNB+4) IF 4037 ! USED TO CONTAIN A DISPLACEMENT RELATIVE TO THE START OF SST OF THE 4038 ! DIAGNOSTIC TABLES FOR THE BLOCK OR ROUTINE BEING EXECUTED. 4039 ! A ZERO BOUND MEANS NO DIAGNOSTIC REQUESTED.(NB THIS MAY MEAN A DUMMY 4040 ! FIRST WORD IN THE SST). 4041 ! THE ABSOLUTE ADDRESS OF THE SST FOR THE CURRENT CODE SEGMENT WILL 4042 ! ALWAYS BE FOUND IN THE STANDARD 10 WORDS OF THE GLA/PLT 4043 ! 4044 ! FORM OF THE TABLES:- 4045 ! 4046 ! WORD 0 = LINE OF RT IN SOURCE PROG <<16 ! LINE NO POSN(FROM LNB) 4047 ! WORD 1 = (12 LANG DEPENDENT BITS)<<18 ! ENVIRONMENT 4048 ! ( TOP 2 BITS OF LANG DEPENDENT HAS LITL FROM PTYPE) 4049 ! ( BOTTOM 4 BITS HAVE TEXTUAL LEVEL) 4050 ! WORD 2 = DISPLAY POSN (FROM LNB)<<16 ! RT TYPE INFO 4051 ! WORD 3 = ZERO FOR BLKS OR STRING(<=11BYTES) BEING THE 4052 ! RT NAME. THIS WILL TAKE WORDS 4 AND 5 IF NEEDED 4053 ! WORD 6 = LANGUAGE DEPENDENT INFO . IMP ON CONDITIONS ETC 4054 ! 4055 ! THE REST IS MADE UP OF VARIABLE ENTRIES AND THE SECTION IS TERMINATED BY 4056 ! A WORD OF 16_FFFFFFFF 4057 ! 4058 ! EACH VARIABLE ENTRY CONSISTS OF THE VARIABLE WORD FOLLOWED BY 4059 ! THE VARIABLE NAME AS A STRING. THE WORD CONSISTS OF 4060 ! BITS 2**31 TO 2**20 TYPE INFORMATION (MAY BE LANGUAGE DEPENDENT 4061 ! BIT 2**19 =0 UNDER LNB =1 IN GLA 4062 ! BITS 2**18 TO 2**0 DISPLACEMENT FROM LNB(GLA) IN BYTES 4063 ! 4064 ! 4065 ! THE ENVIRONMENT IS A POINTER (RELATIVE TO SST) OF THE NEXT OUTERMOST 4066 ! BLOCK OR A POINTER TO GLOBAL OWNS, EXTERNAL OR COMMON AREAS 4067 ! A ZERO MEANS NO ENCLOSING BLOCK. WORD1=WORD3=0 IS AN 4068 ! IMP MAIN PROGRAM AND WILL TERMINATE THE DIAGNOSTICS. 4069 ! LINE 4031 "regression-compile-tmp/nrimp10s-77.imp" RETURN 4070 %ROUTINE DTABLE(%INTEGER LEVEL) 4071 !*********************************************************************** 4072 !* THIS ROUTINE LOOKS AT THE DECLARATIONS FOR THE CURRENT LEVEL & * 4073 !* SETS UP THE SEGMENT OF SHARABLE SYMBOL TABLES TO DESCRIBE THEM.* 4074 !* FOR MAIN PROGRAMS OR EXTERNAL ROUTINES THE 'GLOBAL' VARIABLES * 4075 !* (IF ANY) ARE ALSO INCLUDED. * 4076 !*********************************************************************** LINE 4070 "regression-compile-tmp/nrimp10s-77.imp" DEF DTABLE (_lev0id0_lev1id1_lev2id3_CSS_CEND_DTABLE) p1=V_01e5 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=6 --> 7, nested=0 --> 1} DEF LEVEL p1=V_01e6 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=6} 4077 %STRING(31) RT NAME LINE 4077 "regression-compile-tmp/nrimp10s-77.imp" DEF RTNAME p1=V_01e7 a/tf=31 b/format=1f c/ostate=0 type=3 (string) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 4078 %STRING(11) LOCAL NAME LINE 4078 "regression-compile-tmp/nrimp10s-77.imp" DEF LOCALNAME p1=V_01e8 a/tf=31 b/format=b c/ostate=0 type=3 (string) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 4079 %RECORD(LISTF)%NAME LCELL{(LISTF) LINE 4079 "regression-compile-tmp/nrimp10s-77.imp" DEF LCELL p1=V_01e9 a/tf=42 b/format=f4 c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 4080 %CONSTINTEGER LARRROUT=16_F300 LINE 4080 "regression-compile-tmp/nrimp10s-77.imp" 4081 %INTEGER DPTR,LNUM,ML,KK,JJ,Q,DEND,BIT,S1,S2,S3,S4,LANGD,II LINE 4081 "regression-compile-tmp/nrimp10s-77.imp" DEF DPTR p1=V_01ea 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 LNUM p1=V_01eb 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 ML p1=V_01ec 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 KK p1=V_01ed 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 JJ p1=V_01ee 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_01ef 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 DEND p1=V_01f0 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 BIT p1=V_01f1 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 S1 p1=V_01f2 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 S2 p1=V_01f3 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 S3 p1=V_01f4 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 S4 p1=V_01f5 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 LANGD p1=V_01f6 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 II p1=V_01f7 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 4082 %INTEGERARRAY DD(0:500); ! BUFFER FOR SEGMENT OF SST 4083 ! 4084 ! FILL ALL OUTSTANDING REFERENCES TO THIS DIAGS BLOCK 4085 ! LINE 4082 "regression-compile-tmp/nrimp10s-77.imp" DEF DD p1=V_01f8 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 PUSHI #0x00000000 PUSHI #0x000001f4 DIM 0001 0001 4086 BIT=1<>14<<30!LEVEL<<18; ! GET LITL FROM PTYPE LINE 4087 "regression-compile-tmp/nrimp10s-77.imp" PUSH LANGD PUSH KKK PUSHI #0x0000000e RSH PUSHI #0x0000001e LSH PUSH LEVEL PUSHI #0x00000012 LSH OR ASSVAL 4088 %WHILE RAL(LEVEL)#0 %CYCLE LINE 4088 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH RAL PUSH LEVEL ACCESS PUSHI #0x00000000 JUMPIF = L_0004 4089 POP(RAL(LEVEL),Q,JJ,KK) LINE 4089 "regression-compile-tmp/nrimp10s-77.imp" PUSH POP PUSH RAL PUSH LEVEL ACCESS ASSPAR PUSH Q ASSPAR PUSH JJ ASSPAR PUSH KK ASSPAR CALL 4090 PLUG(Q,JJ,KK!SSTL,4) LINE 4090 "regression-compile-tmp/nrimp10s-77.imp" PUSH PLUG PUSH Q ASSPAR PUSH JJ ASSPAR PUSH KK PUSH SSTL OR ASSPAR PUSHI #0x00000004 ASSPAR CALL 4091 %REPEAT LINE 4091 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 4092 PUSH(RAL(LEVEL-1),4,SSTL+4,LANGD) %IF PARMTRACE#0 LINE 4092 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMTRACE PUSHI #0x00000000 JUMPIF = L_0004 PUSH PUSH PUSH RAL PUSH LEVEL PUSHI #0x00000001 SUB ACCESS ASSPAR PUSHI #0x00000004 ASSPAR PUSH SSTL PUSHI #0x00000004 ADD ASSPAR PUSH LANGD ASSPAR CALL LOCATE L_0004 4093 DD(0)=L(LEVEL)<<16!(DIAGINF(LEVEL)) LINE 4093 "regression-compile-tmp/nrimp10s-77.imp" PUSH DD PUSHI #0x00000000 ACCESS PUSH L PUSH LEVEL ACCESS PUSHI #0x00000010 LSH PUSH DIAGINF PUSH LEVEL ACCESS OR ASSVAL 4094 DD(1)=LANGD LINE 4094 "regression-compile-tmp/nrimp10s-77.imp" PUSH DD PUSHI #0x00000001 ACCESS PUSH LANGD ASSVAL 4095 DD(2)=DISPLAY(RLEVEL)<<16!FLAG(LEVEL)&16_3FFF LINE 4095 "regression-compile-tmp/nrimp10s-77.imp" PUSH DD PUSHI #0x00000002 ACCESS PUSH DISPLAY PUSH RLEVEL ACCESS PUSHI #0x00000010 LSH PUSH FLAG PUSH LEVEL ACCESS PUSHI #0x00003fff AND OR ASSVAL 4096 ML=M(LEVEL); ! ROUTINE NAME(=0 FOR %BEGIN) LINE 4096 "regression-compile-tmp/nrimp10s-77.imp" PUSH ML PUSH M PUSH LEVEL ACCESS ASSVAL 4097 LNUM=BYTEINTEGER(DICTBASE+ML); ! LENGTH OF THE NAME LINE 4097 "regression-compile-tmp/nrimp10s-77.imp" PUSH LNUM PUSH BYTEINTEGER PUSH DICTBASE PUSH ML ADD ASSPAR CALL ASSVAL 4098 DPTR=4; DEND=0 LINE 4098 "regression-compile-tmp/nrimp10s-77.imp" PUSH DPTR PUSHI #0x00000004 ASSVAL LINE 4098 "regression-compile-tmp/nrimp10s-77.imp" PUSH DEND PUSHI #0x00000000 ASSVAL 4099 %IF LNUM=0 %THEN DD(3)=0 %ELSE %START LINE 4099 "regression-compile-tmp/nrimp10s-77.imp" PUSH LNUM PUSHI #0x00000000 JUMPIF # L_0004 PUSH DD PUSHI #0x00000003 ACCESS PUSHI #0x00000000 ASSVAL GOTO L_0003 LOCATE L_0004 4100 Q=DICTBASE+ML LINE 4100 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH DICTBASE PUSH ML ADD ASSVAL 4101 RT NAME<-STRING(Q); ! FOR RTS MOVE IN 1ST 32 CHARS LINE 4101 "regression-compile-tmp/nrimp10s-77.imp" PUSH RTNAME PUSH STRING PUSH Q ASSPAR CALL JAM 4102 LNUM=BYTE INTEGER(ADDR(RT NAME)) LINE 4102 "regression-compile-tmp/nrimp10s-77.imp" PUSH LNUM PUSH BYTEINTEGER PUSH ADDR PUSH RTNAME ASSPAR CALL ASSPAR CALL ASSVAL 4103 STRING(ADDR(DD(3)))=RTNAME; ! AND UPDATE POINTER PAST LINE 4103 "regression-compile-tmp/nrimp10s-77.imp" PUSH STRING PUSH ADDR PUSH DD PUSHI #0x00000003 ACCESS ASSPAR CALL ASSPAR CALL PUSH RTNAME ASSVAL 4104 DPTR=DPTR+LNUM>>2; ! ACTUAL NO OF CHARS LINE 4104 "regression-compile-tmp/nrimp10s-77.imp" PUSH DPTR PUSH DPTR PUSH LNUM PUSHI #0x00000002 RSH ADD ASSVAL 4105 %FINISH LINE 4105 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 4106 DD(DPTR)=ONWORD(LEVEL); ! ON CONDITION WORD LINE 4106 "regression-compile-tmp/nrimp10s-77.imp" PUSH DD PUSH DPTR ACCESS PUSH ONWORD PUSH LEVEL ACCESS ASSVAL 4107 DPTR=DPTR+1 LINE 4107 "regression-compile-tmp/nrimp10s-77.imp" PUSH DPTR PUSH DPTR PUSHI #0x00000001 ADD ASSVAL 4108 JJ=NAMES(LEVEL) LINE 4108 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSH NAMES PUSH LEVEL ACCESS ASSVAL 4109 %WHILE 0<=JJ<16_3FFF %CYCLE LINE 4109 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSHI #0x00000000 PUSH JJ JUMPIFD > L_0004 PUSHI #0x00003fff JUMPIF >= L_0004 4110 LCELL==ASLIST(TAGS(JJ)) 4111 ! OBTAIN NEXT NAME FORM DECLNS LINE 4110 "regression-compile-tmp/nrimp10s-77.imp" PUSH LCELL PUSH ASLIST PUSH TAGS PUSH JJ ACCESS ACCESS ASSREF 4112 %IF LCELL_S1&16_F000=0 %THEN WARN(2,JJ) 4113 ! 4114 ! GET ONLY THE MINIMUM OF DETALS NECESSARY 4115 ! LINE 4112 "regression-compile-tmp/nrimp10s-77.imp" PUSH LCELL SELECT 1 PUSHI #0x0000f000 AND PUSHI #0x00000000 JUMPIF # L_0007 PUSH WARN PUSHI #0x00000002 ASSPAR PUSH JJ ASSPAR CALL LOCATE L_0007 4116 S1=LCELL_S1; S2=LCELL_S2 LINE 4116 "regression-compile-tmp/nrimp10s-77.imp" PUSH S1 PUSH LCELL SELECT 1 ASSVAL LINE 4116 "regression-compile-tmp/nrimp10s-77.imp" PUSH S2 PUSH LCELL SELECT 2 ASSVAL 4117 S3=LCELL_S3; S4=LCELL_LINK LINE 4117 "regression-compile-tmp/nrimp10s-77.imp" PUSH S3 PUSH LCELL SELECT 3 ASSVAL LINE 4117 "regression-compile-tmp/nrimp10s-77.imp" PUSH S4 PUSH LCELL SELECT 4 ASSVAL 4118 LCELL_LINK=ASL; ASL=TAGS(JJ) LINE 4118 "regression-compile-tmp/nrimp10s-77.imp" PUSH LCELL SELECT 4 PUSH ASL ASSVAL LINE 4118 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASL PUSH TAGS PUSH JJ ACCESS ASSVAL 4119 TAGS(JJ)=S4&16_3FFFF LINE 4119 "regression-compile-tmp/nrimp10s-77.imp" PUSH TAGS PUSH JJ ACCESS PUSH S4 PUSHI #0x0003ffff AND ASSVAL 4120 PTYPE=S1>>16; TYPE=PTYPE&15 LINE 4120 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSH S1 PUSHI #0x00000010 RSH ASSVAL LINE 4120 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSH PTYPE PUSHI #0x0000000f AND ASSVAL 4121 I=S1>>4&15 LINE 4121 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH S1 PUSHI #0x00000004 RSH PUSHI #0x0000000f AND ASSVAL 4122 J=S1&15 LINE 4122 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH S1 PUSHI #0x0000000f AND ASSVAL 4123 K=S3>>16 4124 ! 4125 ! ALLOW OWNS (LITL=0) AND EXTERNALS (=2) NOT CONSTS(=1) OR EXTRINSIC(=3) 4126 ! LINE 4123 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH S3 PUSHI #0x00000010 RSH ASSVAL 4127 %IF PARMDIAG#0 %AND PTYPE&16_7300<=16_200 %AND DPTR<497 %AND (TYPE=1 %OR TYPE=2 %OR TYPE=5) %START LINE 4127 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMDIAG PUSHI #0x00000000 JUMPIF = L_0007 PUSH PTYPE PUSHI #0x00007300 AND PUSHI #0x00000200 JUMPIF > L_0007 PUSH DPTR PUSHI #0x000001f1 JUMPIF >= L_0007 PUSH TYPE PUSHI #0x00000001 JUMPIF = L_0008 PUSH TYPE PUSHI #0x00000002 JUMPIF = L_0008 PUSH TYPE PUSHI #0x00000005 JUMPIF # L_0007 LOCATE L_0008 4128 Q=DICTBASE+WORD(JJ); ! ADDRESS OF NAME LINE 4128 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH DICTBASE PUSH WORD PUSH JJ ACCESS ADD ASSVAL 4129 %IF I=0 %THEN II=1 %ELSE II=0; ! GLA OR LNB BIT LINE 4129 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000000 JUMPIF # L_000a PUSH II PUSHI #0x00000001 ASSVAL GOTO L_0009 LOCATE L_000a PUSH II PUSHI #0x00000000 ASSVAL LOCATE L_0009 4130 DD(DPTR)=PTYPE<<20!II<<18!K LINE 4130 "regression-compile-tmp/nrimp10s-77.imp" PUSH DD PUSH DPTR ACCESS PUSH PTYPE PUSHI #0x00000014 LSH PUSH II PUSHI #0x00000012 LSH OR PUSH K OR ASSVAL 4131 LOCAL NAME<-STRING(Q); ! TEXT OF NAME FROM DICTIONARY LINE 4131 "regression-compile-tmp/nrimp10s-77.imp" PUSH LOCALNAME PUSH STRING PUSH Q ASSPAR CALL JAM 4132 LNUM=BYTE INTEGER(ADDR(LOCAL NAME)) LINE 4132 "regression-compile-tmp/nrimp10s-77.imp" PUSH LNUM PUSH BYTEINTEGER PUSH ADDR PUSH LOCALNAME ASSPAR CALL ASSPAR CALL ASSVAL 4133 STRING(ADDR(DD(DPTR))+4)=LOCAL NAME;! MOVE IN NAME LINE 4133 "regression-compile-tmp/nrimp10s-77.imp" PUSH STRING PUSH ADDR PUSH DD PUSH DPTR ACCESS ASSPAR CALL PUSHI #0x00000004 ADD ASSPAR CALL PUSH LOCALNAME ASSVAL 4134 DPTR=DPTR+(LNUM+8)>>2 LINE 4134 "regression-compile-tmp/nrimp10s-77.imp" PUSH DPTR PUSH DPTR PUSH LNUM PUSHI #0x00000008 ADD PUSHI #0x00000002 RSH ADD ASSVAL 4135 %FINISH LINE 4135 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 4136 %IF J=15 %AND S2#0 %THEN FAULT2(28,0,JJ) 4137 ! SPEC&CALLED BUT NO BODY GIVEN LINE 4136 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x0000000f JUMPIF # L_0007 PUSH S2 PUSHI #0x00000000 JUMPIF = L_0007 PUSH FAULT2 PUSHI #0x0000001c ASSPAR PUSHI #0x00000000 ASSPAR PUSH JJ ASSPAR CALL LOCATE L_0007 4138 %IF PTYPE&16_3000#0 %OR TYPE=4 %OR TYPE=6 %THEN CLEAR LIST(K) %ELSE %START LINE 4138 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00003000 AND PUSHI #0x00000000 JUMPIF # L_0008 PUSH TYPE PUSHI #0x00000004 JUMPIF = L_0008 PUSH TYPE PUSHI #0x00000006 JUMPIF # L_0007 LOCATE L_0008 PUSH CLEARLIST PUSH K ASSPAR CALL GOTO L_0006 LOCATE L_0007 4139 %IF I#0 %AND K>511 %AND PTYPE&LARRROUT=0 %AND TYPE#7 %THEN WARN(5,JJ) LINE 4139 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000000 JUMPIF = L_000a PUSH K PUSHI #0x000001ff JUMPIF <= L_000a PUSH PTYPE PUSHI #0x0000f300 AND PUSHI #0x00000000 JUMPIF # L_000a PUSH TYPE PUSHI #0x00000007 JUMPIF = L_000a PUSH WARN PUSHI #0x00000005 ASSPAR PUSH JJ ASSPAR CALL LOCATE L_000a 4140 %FINISH LINE 4140 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 4141 JJ=S4>>18 LINE 4141 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSH S4 PUSHI #0x00000012 RSH ASSVAL 4142 %REPEAT LINE 4142 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 4143 DD(DPTR)=-1; ! 'END OF SEGMENT' MARK LINE 4143 "regression-compile-tmp/nrimp10s-77.imp" PUSH DD PUSH DPTR ACCESS PUSHI #0x00000001 NEGATE ASSVAL 4144 DPTR=DPTR<<2+4 LINE 4144 "regression-compile-tmp/nrimp10s-77.imp" PUSH DPTR PUSH DPTR PUSHI #0x00000002 LSH PUSHI #0x00000004 ADD ASSVAL 4145 %IF PARMTRACE=1 %THEN %START LINE 4145 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMTRACE PUSHI #0x00000001 JUMPIF # L_0004 4146 LPUT(4,DPTR,SSTL,ADDR(DD(0)));! ADD TO SHARABLE SYM TABS LINE 4146 "regression-compile-tmp/nrimp10s-77.imp" PUSH LPUT PUSHI #0x00000004 ASSPAR PUSH DPTR ASSPAR PUSH SSTL ASSPAR PUSH ADDR PUSH DD PUSHI #0x00000000 ACCESS ASSPAR CALL ASSPAR CALL 4147 SSTL=SSTL+DPTR LINE 4147 "regression-compile-tmp/nrimp10s-77.imp" PUSH SSTL PUSH SSTL PUSH DPTR ADD ASSVAL 4148 %FINISH LINE 4148 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4149 %END; ! OF ROUTINE DTABLE LINE 4149 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CEND_DTABLE {lev=6 --> 5} 4150 %END LINE 4150 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CEND {lev=5 --> 4} 4151 %ROUTINE MAKE DECS(%INTEGER Q) 4152 !*********************************************************************** 4153 !* Q IS TO AR ENTRY FOR HEAD OF LINKED DECLARATIONS * 4154 !*********************************************************************** LINE 4151 "regression-compile-tmp/nrimp10s-77.imp" DEF MAKEDECS (_lev0id0_lev1id1_lev2id3_CSS_MAKEDECS) p1=V_0183 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=5 --> 6, nested=0 --> 1} DEF Q p1=V_01e1 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=5} 4155 %INTEGER QQ,HEAD,PRIO,COUNT,SL LINE 4155 "regression-compile-tmp/nrimp10s-77.imp" DEF QQ p1=V_01e2 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 HEAD p1=V_01e3 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 PRIO p1=V_01e4 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 COUNT p1=V_01e5 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 SL p1=V_01e6 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 4156 %INTEGERNAME THEAD LINE 4156 "regression-compile-tmp/nrimp10s-77.imp" DEF THEAD p1=V_01e7 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 4157 %RECORD(LISTF)%NAME CELL{(LISTF) LINE 4157 "regression-compile-tmp/nrimp10s-77.imp" DEF CELL p1=V_01e8 a/tf=42 b/format=f4 c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 4158 SL=LINE; QQ=FROM AR4(Q) LINE 4158 "regression-compile-tmp/nrimp10s-77.imp" PUSH SL PUSH LINE ASSVAL LINE 4158 "regression-compile-tmp/nrimp10s-77.imp" PUSH QQ PUSH FROMAR4 PUSH Q ASSPAR CALL ASSVAL 4159 HEAD=0; COUNT=0 LINE 4159 "regression-compile-tmp/nrimp10s-77.imp" PUSH HEAD PUSHI #0x00000000 ASSVAL LINE 4159 "regression-compile-tmp/nrimp10s-77.imp" PUSH COUNT PUSHI #0x00000000 ASSVAL 4160 %WHILE QQ#0 %CYCLE LINE 4160 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH QQ PUSHI #0x00000000 JUMPIF = L_0004 4161 COUNT=COUNT+1 LINE 4161 "regression-compile-tmp/nrimp10s-77.imp" PUSH COUNT PUSH COUNT PUSHI #0x00000001 ADD ASSVAL 4162 ABORT %UNLESS A(QQ+5)=8; ! LINE IS A DECLARATION LINE 4162 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH QQ PUSHI #0x00000005 ADD ACCESS PUSHI #0x00000008 JUMPIF = L_0007 PUSH ABORT CALL LOCATE L_0007 4163 P=QQ+10; CLT LINE 4163 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH QQ PUSHI #0x0000000a ADD ASSVAL LINE 4163 "regression-compile-tmp/nrimp10s-77.imp" PUSH CLT CALL 4164 %IF PREC=3 %OR A(P)#1 %OR A(P+1)# 3 %START LINE 4164 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000003 JUMPIF = L_0008 PUSH A PUSH P ACCESS PUSHI #0x00000001 JUMPIF # L_0008 PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000003 JUMPIF = L_0007 LOCATE L_0008 4165 INSERT AT END(HEAD,16_FFFF,QQ,0) %IF A(P)=1 LINE 4165 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000001 JUMPIF # L_000a PUSH INSERTATEND PUSH HEAD ASSPAR PUSHI #0x0000ffff ASSPAR PUSH QQ ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_000a 4166 %FINISH %ELSE %START LINE 4166 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 4167 PRIO=PREC<<4!TYPE LINE 4167 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRIO PUSH PREC PUSHI #0x00000004 LSH PUSH TYPE OR ASSVAL 4168 THEAD==HEAD LINE 4168 "regression-compile-tmp/nrimp10s-77.imp" PUSH THEAD PUSH HEAD ASSREF 4169 %CYCLE LINE 4169 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 4170 CELL==ASLIST(THEAD) LINE 4170 "regression-compile-tmp/nrimp10s-77.imp" PUSH CELL PUSH ASLIST PUSH THEAD ACCESS ASSREF 4171 %IF THEAD=0 %OR PRIO= L_000d LOCATE L_000e PUSH PUSH PUSH THEAD ASSPAR PUSH PRIO ASSPAR PUSH QQ ASSPAR PUSHI #0x00000000 ASSPAR CALL GOTO L_000a LOCATE L_000d 4172 THEAD==CELL_LINK LINE 4172 "regression-compile-tmp/nrimp10s-77.imp" PUSH THEAD PUSH CELL SELECT 4 ASSREF 4173 %REPEAT LINE 4173 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0009 LOCATE L_000a 4174 %FINISH LINE 4174 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 4175 QQ=FROM AR4(QQ+6) LINE 4175 "regression-compile-tmp/nrimp10s-77.imp" PUSH QQ PUSH FROMAR4 PUSH QQ PUSHI #0x00000006 ADD ASSPAR CALL ASSVAL 4176 %REPEAT 4177 ! 4178 ! NOW MAKE THE ORDEREED DECLARATIONS 4179 ! FIRST GRAB TWO TEMPORARIES IF SPACE IS LIKELY TO BE TIGHT 4180 ! LINE 4176 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 4181 %IF COUNT>=7 %START LINE 4181 "regression-compile-tmp/nrimp10s-77.imp" PUSH COUNT PUSHI #0x00000007 JUMPIF < L_0004 4182 GET WSP(QQ,2); ! A DIUBLE WORD LINE 4182 "regression-compile-tmp/nrimp10s-77.imp" PUSH GETWSP PUSH QQ ASSPAR PUSHI #0x00000002 ASSPAR CALL 4183 %IF AVL WSP(1,LEVEL)=0 %THEN GET WSP(QQ,1) LINE 4183 "regression-compile-tmp/nrimp10s-77.imp" PUSH AVLWSP PUSHI #0x00000001 INDEX PUSH LEVEL ACCESS PUSHI #0x00000000 JUMPIF # L_0007 PUSH GETWSP PUSH QQ ASSPAR PUSHI #0x00000001 ASSPAR CALL LOCATE L_0007 4184 %FINISH LINE 4184 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4185 %WHILE HEAD#0 %CYCLE LINE 4185 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH HEAD PUSHI #0x00000000 JUMPIF = L_0004 4186 POP(HEAD,PRIO,QQ,COUNT) LINE 4186 "regression-compile-tmp/nrimp10s-77.imp" PUSH POP PUSH HEAD ASSPAR PUSH PRIO ASSPAR PUSH QQ ASSPAR PUSH COUNT ASSPAR CALL 4187 LINE=FROM AR2(QQ+3) LINE 4187 "regression-compile-tmp/nrimp10s-77.imp" PUSH LINE PUSH FROMAR2 PUSH QQ PUSHI #0x00000003 ADD ASSPAR CALL ASSVAL 4188 P=QQ+10; CLT LINE 4188 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH QQ PUSHI #0x0000000a ADD ASSVAL LINE 4188 "regression-compile-tmp/nrimp10s-77.imp" PUSH CLT CALL 4189 ROUT=0; LITL=0 LINE 4189 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUT PUSHI #0x00000000 ASSVAL LINE 4189 "regression-compile-tmp/nrimp10s-77.imp" PUSH LITL PUSHI #0x00000000 ASSVAL 4190 CQN(P+1); P=P+2 LINE 4190 "regression-compile-tmp/nrimp10s-77.imp" PUSH CQN PUSH P PUSHI #0x00000001 ADD ASSPAR CALL LINE 4190 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 4191 DECLARE SCALARS(1,0) LINE 4191 "regression-compile-tmp/nrimp10s-77.imp" PUSH DECLARESCALARS PUSHI #0x00000001 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4192 %REPEAT LINE 4192 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 4193 LINE=SL LINE 4193 "regression-compile-tmp/nrimp10s-77.imp" PUSH LINE PUSH SL ASSVAL 4194 %END LINE 4194 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_MAKEDECS {lev=5 --> 4} 4195 %ROUTINE DECLARE SCALARS(%INTEGER PERMIT,XTRA) 4196 !*********************************************************************** 4197 !* THIS ROUTINE DECLARES A LIST OF SCALARS FROM INFORMATION * 4198 !* IN THE GLOBAL VARIABLES ROUT,NAM,ARR,PREC,TYPE & ACC.IT WORKS * 4199 !* OUT ROUNDING FACTORS FOR ITSELF. * 4200 !* P POINTS TO THE NAMELIST ON ENTRY AND IS UPDATED. * 4201 !*********************************************************************** LINE 4195 "regression-compile-tmp/nrimp10s-77.imp" DEF DECLARESCALARS (_lev0id0_lev1id1_lev2id3_CSS_DECLARESCALARS) p1=V_0182 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=5 --> 6, nested=0 --> 1} DEF PERMIT p1=V_01e1 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 XTRA p1=V_01e2 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=5} 4202 %INTEGER INC,Q,SCHAIN,DMADE,NPARMS,D0,SCAL NAME,TYPEP LINE 4202 "regression-compile-tmp/nrimp10s-77.imp" DEF INC p1=V_01e3 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_01e4 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 SCHAIN p1=V_01e5 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 DMADE p1=V_01e6 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 NPARMS p1=V_01e7 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 D0 p1=V_01e8 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 SCALNAME p1=V_01e9 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 TYPEP p1=V_01ea 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 4203 PACK(PTYPE); J=0 LINE 4203 "regression-compile-tmp/nrimp10s-77.imp" PUSH PACK PUSH PTYPE ASSPAR CALL LINE 4203 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000000 ASSVAL 4204 INC=ACC; DMADE=0; SNDISP=0 LINE 4204 "regression-compile-tmp/nrimp10s-77.imp" PUSH INC PUSH ACC ASSVAL LINE 4204 "regression-compile-tmp/nrimp10s-77.imp" PUSH DMADE PUSHI #0x00000000 ASSVAL LINE 4204 "regression-compile-tmp/nrimp10s-77.imp" PUSH SNDISP PUSHI #0x00000000 ASSVAL 4205 %IF PTYPE=16_33 %THEN INC=(INC+3)&(-4) LINE 4205 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000033 JUMPIF # L_0004 PUSH INC PUSH INC PUSHI #0x00000003 ADD PUSHI #0x00000004 NEGATE AND ASSVAL LOCATE L_0004 4206 %IF NAM#0 %AND ROUT=0 %AND ARR=0 %THEN INC=8 LINE 4206 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000000 JUMPIF = L_0004 PUSH ROUT PUSHI #0x00000000 JUMPIF # L_0004 PUSH ARR PUSHI #0x00000000 JUMPIF # L_0004 PUSH INC PUSHI #0x00000008 ASSVAL LOCATE L_0004 4207 %IF NAM>0 %AND ARR>0 %THEN INC=16 LINE 4207 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000000 JUMPIF <= L_0004 PUSH ARR PUSHI #0x00000000 JUMPIF <= L_0004 PUSH INC PUSHI #0x00000010 ASSVAL LOCATE L_0004 4208 %IF PTYPE=16_35 %AND ACC=0 %THEN FAULT(70,0) LINE 4208 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000035 JUMPIF # L_0004 PUSH ACC PUSHI #0x00000000 JUMPIF # L_0004 PUSH FAULT PUSHI #0x00000046 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 4209 %IF PERMIT#0 %AND (INC=8 %OR INC=16) %THEN ODD ALIGN LINE 4209 "regression-compile-tmp/nrimp10s-77.imp" PUSH PERMIT PUSHI #0x00000000 JUMPIF = L_0004 PUSH INC PUSHI #0x00000008 JUMPIF = L_0005 PUSH INC PUSHI #0x00000010 JUMPIF # L_0004 LOCATE L_0005 PUSH ODDALIGN CALL LOCATE L_0004 4210 %IF PTYPE=16_33 %OR (PTYPE=16_35 %AND PERMIT#0)%START LINE 4210 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000033 JUMPIF = L_0005 PUSH PTYPE PUSHI #0x00000035 JUMPIF # L_0004 PUSH PERMIT PUSHI #0x00000000 JUMPIF = L_0004 LOCATE L_0005 4211 D0=16_18000000+ACC LINE 4211 "regression-compile-tmp/nrimp10s-77.imp" PUSH D0 PUSHI #0x18000000 PUSH ACC ADD ASSVAL 4212 STORE CONST(Q,4,ADDR(D0)) LINE 4212 "regression-compile-tmp/nrimp10s-77.imp" PUSH STORECONST PUSH Q ASSPAR PUSHI #0x00000004 ASSPAR PUSH ADDR PUSH D0 ASSPAR CALL ASSPAR CALL 4213 PF1(LDTB,0,PC,Q) LINE 4213 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000074 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR PUSH Q ASSPAR CALL 4214 GRUSE(DR)=0 LINE 4214 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000001 ACCESS PUSHI #0x00000000 ASSVAL 4215 %FINISH LINE 4215 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4216 %IF PTYPE=16_35 %START LINE 4216 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000035 JUMPIF # L_0004 4217 INC=8 LINE 4217 "regression-compile-tmp/nrimp10s-77.imp" PUSH INC PUSHI #0x00000008 ASSVAL 4218 %IF PERMIT#0 %START LINE 4218 "regression-compile-tmp/nrimp10s-77.imp" PUSH PERMIT PUSHI #0x00000000 JUMPIF = L_0007 4219 PF1(STSF,0,TOS,0) LINE 4219 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000005e ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4220 PF1(LDA,0,TOS,0) LINE 4220 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000072 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4221 %FINISH LINE 4221 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 4222 %FINISH LINE 4222 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4223 N=(N+3)&(-4) LINE 4223 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSHI #0x00000003 ADD PUSHI #0x00000004 NEGATE AND ASSVAL 4224 %IF PTYPE=16_33 %THEN %START LINE 4224 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000033 JUMPIF # L_0004 4225 PSF1(LDA,1,PTR OFFSET(RBASE)) LINE 4225 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000072 ASSPAR PUSHI #0x00000001 ASSPAR PUSH PTROFFSET PUSH RBASE ASSPAR CALL ASSPAR CALL 4226 PSF1(INCA,0,N+8) LINE 4226 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000014 ASSPAR PUSHI #0x00000000 ASSPAR PUSH N PUSHI #0x00000008 ADD ASSPAR CALL 4227 %FINISH LINE 4227 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4228 {%UNTIL A(P-1)=2} %CYCLE; ! DOWN THE NAMELIST LINE 4228 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 4229 DMADE=DMADE+1 LINE 4229 "regression-compile-tmp/nrimp10s-77.imp" PUSH DMADE PUSH DMADE PUSHI #0x00000001 ADD ASSVAL 4230 SCAL NAME=FROM AR2(P) LINE 4230 "regression-compile-tmp/nrimp10s-77.imp" PUSH SCALNAME PUSH FROMAR2 PUSH P ASSPAR CALL ASSVAL 4231 %IF PTYPE=16_31 %AND PERMIT=0 %THEN N=N+3;! BYTE PARAMS LINE 4231 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000031 JUMPIF # L_0007 PUSH PERMIT PUSHI #0x00000000 JUMPIF # L_0007 PUSH N PUSH N PUSHI #0x00000003 ADD ASSVAL LOCATE L_0007 4232 %IF PTYPE=16_41 %AND PERMIT=0 %THEN N=N+2 LINE 4232 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000041 JUMPIF # L_0007 PUSH PERMIT PUSHI #0x00000000 JUMPIF # L_0007 PUSH N PUSH N PUSHI #0x00000002 ADD ASSVAL LOCATE L_0007 4233 SCHAIN=N LINE 4233 "regression-compile-tmp/nrimp10s-77.imp" PUSH SCHAIN PUSH N ASSVAL 4234 KFORM=XTRA LINE 4234 "regression-compile-tmp/nrimp10s-77.imp" PUSH KFORM PUSH XTRA ASSVAL 4235 %IF ROUT=1 %THEN %START LINE 4235 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUT PUSHI #0x00000001 JUMPIF # L_0007 4236 TYPEP=PTYPE; ! CHANGED BY CFPLIST! LINE 4236 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPEP PUSH PTYPE ASSVAL 4237 Q=P LINE 4237 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH P ASSVAL 4238 P=P+3 %UNTIL A(P-1)=2; ! TO FPP LINE 4238 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL PUSH A PUSH P PUSHI #0x00000001 SUB ACCESS PUSHI #0x00000002 JUMPIF = L_000a REPEAT L_0009 LOCATE L_000a 4239 CFPLIST(SCHAIN,NPARMS) LINE 4239 "regression-compile-tmp/nrimp10s-77.imp" PUSH CFPLIST PUSH SCHAIN ASSPAR PUSH NPARMS ASSPAR CALL 4240 P=Q LINE 4240 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH Q ASSVAL 4241 J=13 LINE 4241 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x0000000d ASSVAL 4242 KFORM=NPARMS; ! NO OF PARAMS OF FORMAL LINE 4242 "regression-compile-tmp/nrimp10s-77.imp" PUSH KFORM PUSH NPARMS ASSVAL 4243 ACC=N; ! DISPLACEMENT TO MIDCELL LINE 4243 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSH N ASSVAL 4244 PTYPE=TYPEP; UNPACK LINE 4244 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSH TYPEP ASSVAL LINE 4244 "regression-compile-tmp/nrimp10s-77.imp" PUSH UNPACK CALL 4245 %FINISH LINE 4245 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 4246 P=P+3 LINE 4246 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL 4247 %IF PTYPE=16_33 %THEN %START LINE 4247 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000033 JUMPIF # L_0007 4248 PSF1(STD,1,N) LINE 4248 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000058 ASSPAR PUSHI #0x00000001 ASSPAR PUSH N ASSPAR CALL 4249 N=N+8; SCHAIN=N LINE 4249 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSHI #0x00000008 ADD ASSVAL LINE 4249 "regression-compile-tmp/nrimp10s-77.imp" PUSH SCHAIN PUSH N ASSVAL 4250 %IF A(P-1)=1 %THEN PSF1(INCA,0,INC+8) LINE 4250 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 SUB ACCESS PUSHI #0x00000001 JUMPIF # L_000a PUSH PSF1 PUSHI #0x00000014 ASSPAR PUSHI #0x00000000 ASSPAR PUSH INC PUSHI #0x00000008 ADD ASSPAR CALL LOCATE L_000a 4251 %FINISH LINE 4251 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 4252 %IF PTYPE=16_35 %AND PERMIT#0 %START LINE 4252 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00000035 JUMPIF # L_0007 PUSH PERMIT PUSHI #0x00000000 JUMPIF = L_0007 4253 PSF1(STD,1,N) LINE 4253 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000058 ASSPAR PUSHI #0x00000001 ASSPAR PUSH N ASSPAR CALL 4254 %IF A(P-1)=1 %THEN PSF1(INCA,0,(ACC+3)&(-4)) %ELSE %START LINE 4254 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 SUB ACCESS PUSHI #0x00000001 JUMPIF # L_000a PUSH PSF1 PUSHI #0x00000014 ASSPAR PUSHI #0x00000000 ASSPAR PUSH ACC PUSHI #0x00000003 ADD PUSHI #0x00000004 NEGATE AND ASSPAR CALL GOTO L_0009 LOCATE L_000a 4255 Q=((ACC+3)>>2)*DMADE LINE 4255 "regression-compile-tmp/nrimp10s-77.imp" PUSH Q PUSH ACC PUSHI #0x00000003 ADD PUSHI #0x00000002 RSH PUSH DMADE MUL ASSVAL 4256 PSF1(ASF+12*PARMCHK,0,Q) LINE 4256 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000006e PUSHI #0x0000000c PUSH PARMCHK MUL ADD ASSPAR PUSHI #0x00000000 ASSPAR PUSH Q ASSPAR CALL 4257 %IF PARMCHK#0 %THEN PPJ(0,4) LINE 4257 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMCHK PUSHI #0x00000000 JUMPIF = L_000d PUSH PPJ PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR CALL LOCATE L_000d 4258 %FINISH LINE 4258 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 4259 %FINISH LINE 4259 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 4260 STORE TAG(SCAL NAME,SCHAIN) LINE 4260 "regression-compile-tmp/nrimp10s-77.imp" PUSH STORETAG PUSH SCALNAME ASSPAR PUSH SCHAIN ASSPAR CALL 4261 N=N+INC LINE 4261 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSH INC ADD ASSVAL 4262 %REPEAT %UNTIL A(P-1)=2 LINE 4262 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 SUB ACCESS PUSHI #0x00000002 JUMPIF = L_0004 REPEAT L_0003 LOCATE L_0004 4263 N=(N+3)&(-4) %IF PERMIT#0;! NO ROUNDING AMONG PARAMS LINE 4263 "regression-compile-tmp/nrimp10s-77.imp" PUSH PERMIT PUSHI #0x00000000 JUMPIF = L_0004 PUSH N PUSH N PUSHI #0x00000003 ADD PUSHI #0x00000004 NEGATE AND ASSVAL LOCATE L_0004 4264 %END LINE 4264 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_DECLARESCALARS {lev=5 --> 4} 4265 %INTEGERFN DOPE VECTOR(%INTEGER TYPEP,ELSIZE,MODE,IDEN,%INTEGERNAME ASIZE,LB) 4266 !*********************************************************************** 4267 !* CONSTRUCTS THE DOPE-VECTOR FOR A CONSTANT ARRAY IN THE * 4268 !* SHAREABLE SYMBOL TABLES AND RETURNS ITS DISPLACEMENT AS RESULT* 4269 !* EVENTUALLY ALL NON DYNAMIC DOPE VECTORS SHOULD GO VIA HERE * 4270 !* P IS TO ALT (MUST BE 1!) OF P * 4271 !* DOPE VECTOR CONSISTS OF :- * 4272 !* DESRIPTOR (SCALED WORD) POINTING AT FIRST TRIPLE BND=3*ND * 4273 !* SIZE (IN BYTES OF ENTIRE ARRAY) FOR STACK ADJUSTMENT * 4274 !* AND ND TRIPLES EACH CONSISTING OF:- * 4275 !* LBI - THE LOWER BOUND OF THE ITH DIMENSION * 4276 !* MI - THE STRIDE FOR THE ITH DIMENSION * 4277 !* CBI THE UPPER CHECK =(UBI-LBI+1)*MI * 4278 !* WHERE M1=1(SCALED ARRAYS) OR THE ELEMENT SIZE AND * 4279 !* MI = M(I-1)*RANGE(I-1) * 4280 !* MODE=0 DV MUST BE CONST, MODE#0 CAN BE DYNAMIC * 4281 !* P TO ALT (ALWAYS=1) OF P(BPAIR) * 4282 !*********************************************************************** LINE 4265 "regression-compile-tmp/nrimp10s-77.imp" DEF DOPEVECTOR (_lev0id0_lev1id1_lev2id3_CSS_DOPEVECTOR) p1=V_0180 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=5 --> 6, nested=0 --> 1} DEF TYPEP p1=V_01e1 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 ELSIZE p1=V_01e2 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 MODE p1=V_01e3 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 IDEN p1=V_01e4 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 ASIZE p1=V_01e5 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF LB p1=V_01e6 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=5} 4283 %INTEGER I, JJ, K, ND, D, UNSCAL, M0, HEAD, NOPS, TYPEPP, PIN, PTR LINE 4283 "regression-compile-tmp/nrimp10s-77.imp" DEF I p1=V_01e7 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 JJ p1=V_01e8 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_01e9 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 ND p1=V_01ea 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 D p1=V_01eb 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 UNSCAL p1=V_01ec 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 M0 p1=V_01ed 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 HEAD p1=V_01ee 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 NOPS p1=V_01ef 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 TYPEPP p1=V_01f0 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 PIN p1=V_01f1 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 PTR p1=V_01f2 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 4284 %RECORD(LISTF)%NAME LCELL{(LISTF) LINE 4284 "regression-compile-tmp/nrimp10s-77.imp" DEF LCELL p1=V_01f3 a/tf=42 b/format=f4 c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 4285 %INTEGERARRAY LBH,LBB,UBH,UBB(0:12) LINE 4285 "regression-compile-tmp/nrimp10s-77.imp" DEF LBH p1=V_01f4 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 DEF LBB p1=V_01f5 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 DEF UBH p1=V_01f6 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 DEF UBB p1=V_01f7 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 PUSHI #0x00000000 PUSHI #0x0000000c DIM 0001 0004 4286 %INTEGERARRAY DV(0:39); ! ENOUGH FOR 12 DIMENSIONS LINE 4286 "regression-compile-tmp/nrimp10s-77.imp" DEF DV p1=V_01f8 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 PUSHI #0x00000000 PUSHI #0x00000027 DIM 0001 0001 4287 ND=0; NOPS=0; TYPEPP=0; PIN=P LINE 4287 "regression-compile-tmp/nrimp10s-77.imp" PUSH ND PUSHI #0x00000000 ASSVAL LINE 4287 "regression-compile-tmp/nrimp10s-77.imp" PUSH NOPS PUSHI #0x00000000 ASSVAL LINE 4287 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPEPP PUSHI #0x00000000 ASSVAL LINE 4287 "regression-compile-tmp/nrimp10s-77.imp" PUSH PIN PUSH P ASSVAL 4288 %IF TYPEP>2 %OR (TYPEP=1 %AND PREC=4) %THEN UNSCAL=1 %AND M0=ELSIZE %ELSE UNSCAL=0 %AND M0=1 LINE 4288 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPEP PUSHI #0x00000002 JUMPIF > L_0005 PUSH TYPEP PUSHI #0x00000001 JUMPIF # L_0004 PUSH PREC PUSHI #0x00000004 JUMPIF # L_0004 LOCATE L_0005 PUSH UNSCAL PUSHI #0x00000001 ASSVAL PUSH M0 PUSH ELSIZE ASSVAL GOTO L_0003 LOCATE L_0004 PUSH UNSCAL PUSHI #0x00000000 ASSVAL PUSH M0 PUSHI #0x00000001 ASSVAL LOCATE L_0003 4289 {%UNTIL A(P)=2} %CYCLE LINE 4289 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 4290 ND=ND+1; P=P+4 LINE 4290 "regression-compile-tmp/nrimp10s-77.imp" PUSH ND PUSH ND PUSHI #0x00000001 ADD ASSVAL LINE 4290 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000004 ADD ASSVAL 4291 LBH(ND)=0; LBB(ND)=0 LINE 4291 "regression-compile-tmp/nrimp10s-77.imp" PUSH LBH PUSH ND ACCESS PUSHI #0x00000000 ASSVAL LINE 4291 "regression-compile-tmp/nrimp10s-77.imp" PUSH LBB PUSH ND ACCESS PUSHI #0x00000000 ASSVAL 4292 UBB(ND)=0; UBH(ND)=0 LINE 4292 "regression-compile-tmp/nrimp10s-77.imp" PUSH UBB PUSH ND ACCESS PUSHI #0x00000000 ASSVAL LINE 4292 "regression-compile-tmp/nrimp10s-77.imp" PUSH UBH PUSH ND ACCESS PUSHI #0x00000000 ASSVAL 4293 TORP(LBH(ND),LBB(ND),NOPS) LINE 4293 "regression-compile-tmp/nrimp10s-77.imp" PUSH TORP PUSH LBH PUSH ND ACCESS ASSPAR PUSH LBB PUSH ND ACCESS ASSPAR PUSH NOPS ASSPAR CALL 4294 P=P+3 LINE 4294 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL 4295 TYPEPP=TYPEPP!TYPE LINE 4295 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPEPP PUSH TYPEPP PUSH TYPE OR ASSVAL 4296 TORP(UBH(ND),UBB(ND),NOPS) LINE 4296 "regression-compile-tmp/nrimp10s-77.imp" PUSH TORP PUSH UBH PUSH ND ACCESS ASSPAR PUSH UBB PUSH ND ACCESS ASSPAR PUSH NOPS ASSPAR CALL 4297 TYPEPP=TYPEPP!TYPE LINE 4297 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPEPP PUSH TYPEPP PUSH TYPE OR ASSVAL 4298 %REPEAT %UNTIL A(P)=2 LINE 4298 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000002 JUMPIF = L_0004 REPEAT L_0003 LOCATE L_0004 4299 P=P+1 LINE 4299 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 4300 ->NONCONST %UNLESS TYPEPP=1 %AND NOPS&16_40040000=0 4301 ! 4302 ! NOW ONE CAN WORK OUT AND FILL IN THE TRIPLES 4303 ! LINE 4300 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPEPP PUSHI #0x00000001 JUMPIF # L_0005 PUSH NOPS PUSHI #0x40040000 AND PUSHI #0x00000000 JUMPIF = L_0004 LOCATE L_0005 JUMP L_01f9 LOCATE L_0004 4304 PTR=1 LINE 4304 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTR PUSHI #0x00000001 ASSVAL 4305 %CYCLE D=ND,-1,1 LINE 4305 "regression-compile-tmp/nrimp10s-77.imp" PUSH D PUSHI #0x00000001 NEGATE PUSHI #0x00000001 PUSH ND FOR L_0003 4306 K=3*D LINE 4306 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSHI #0x00000003 PUSH D MUL ASSVAL 4307 EXPOP(LBH(PTR),ACCR,NOPS,16_251) LINE 4307 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXPOP PUSH LBH PUSH PTR ACCESS ASSPAR PUSHI #0x00000000 ASSPAR PUSH NOPS ASSPAR PUSHI #0x00000251 ASSPAR CALL 4308 EXPOPND_D=0 %AND FAULT(41,0) %UNLESS EXPOPND_FLAG<=1 %AND EXPOPND_PTYPE=16_51 LINE 4308 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXPOPND SELECT 4 PUSHI #0x00000001 JUMPIF > L_0008 PUSH EXPOPND SELECT 2 PUSHI #0x00000051 JUMPIF = L_0007 LOCATE L_0008 PUSH EXPOPND SELECT 5 PUSHI #0x00000000 ASSVAL PUSH FAULT PUSHI #0x00000029 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0007 4309 DV(K)=EXPOPND_D LINE 4309 "regression-compile-tmp/nrimp10s-77.imp" PUSH DV PUSH K ACCESS PUSH EXPOPND SELECT 5 ASSVAL 4310 DV(K+1)=M0 LINE 4310 "regression-compile-tmp/nrimp10s-77.imp" PUSH DV PUSH K PUSHI #0x00000001 ADD ACCESS PUSH M0 ASSVAL 4311 EXPOP(UBH(PTR),ACCR,NOPS,16_251) LINE 4311 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXPOP PUSH UBH PUSH PTR ACCESS ASSPAR PUSHI #0x00000000 ASSPAR PUSH NOPS ASSPAR PUSHI #0x00000251 ASSPAR CALL 4312 EXPOPND_D=10 %AND FAULT(41,0) %UNLESS EXPOPND_FLAG<=1 %AND EXPOPND_PTYPE=16_51 LINE 4312 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXPOPND SELECT 4 PUSHI #0x00000001 JUMPIF > L_0008 PUSH EXPOPND SELECT 2 PUSHI #0x00000051 JUMPIF = L_0007 LOCATE L_0008 PUSH EXPOPND SELECT 5 PUSHI #0x0000000a ASSVAL PUSH FAULT PUSHI #0x00000029 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0007 4313 JJ=EXPOPND_D LINE 4313 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSH EXPOPND SELECT 5 ASSVAL 4314 M0=M0*(JJ-DV(K)+1) LINE 4314 "regression-compile-tmp/nrimp10s-77.imp" PUSH M0 PUSH M0 PUSH JJ PUSH DV PUSH K ACCESS SUB PUSHI #0x00000001 ADD MUL ASSVAL 4315 FAULT2(38,1-M0,IDEN) %UNLESS JJ>=DV(K) LINE 4315 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSH DV PUSH K ACCESS JUMPIF >= L_0007 PUSH FAULT2 PUSHI #0x00000026 ASSPAR PUSHI #0x00000001 PUSH M0 SUB ASSPAR PUSH IDEN ASSPAR CALL LOCATE L_0007 4316 DV(K+2)=M0 LINE 4316 "regression-compile-tmp/nrimp10s-77.imp" PUSH DV PUSH K PUSHI #0x00000002 ADD ACCESS PUSH M0 ASSVAL 4317 PTR=PTR+1 LINE 4317 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTR PUSH PTR PUSHI #0x00000001 ADD ASSVAL 4318 %REPEAT 4319 ! LINE 4318 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 4320 %IF UNSCAL=0 %THEN M0=M0*ELSIZE LINE 4320 "regression-compile-tmp/nrimp10s-77.imp" PUSH UNSCAL PUSHI #0x00000000 JUMPIF # L_0004 PUSH M0 PUSH M0 PUSH ELSIZE MUL ASSVAL LOCATE L_0004 4321 %IF ND=1 %THEN LB=DV(3) LINE 4321 "regression-compile-tmp/nrimp10s-77.imp" PUSH ND PUSHI #0x00000001 JUMPIF # L_0004 PUSH LB PUSH DV PUSHI #0x00000003 ACCESS ASSVAL LOCATE L_0004 4322 ASIZE=M0 LINE 4322 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASIZE PUSH M0 ASSVAL 4323 DV(2)=ASIZE LINE 4323 "regression-compile-tmp/nrimp10s-77.imp" PUSH DV PUSHI #0x00000002 ACCESS PUSH ASIZE ASSVAL 4324 DV(1)=12 LINE 4324 "regression-compile-tmp/nrimp10s-77.imp" PUSH DV PUSHI #0x00000001 ACCESS PUSHI #0x0000000c ASSVAL 4325 DV(0)=5<<27!3*ND; ! DESPTR FOR DV LINE 4325 "regression-compile-tmp/nrimp10s-77.imp" PUSH DV PUSHI #0x00000000 ACCESS PUSHI #0x00000005 PUSHI #0x0000001b LSH PUSHI #0x00000003 PUSH ND MUL OR ASSVAL 4326 K=3*ND+2 LINE 4326 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSHI #0x00000003 PUSH ND MUL PUSHI #0x00000002 ADD ASSVAL 4327 J=ND; ! DIMENSIONALITY FOR DECLN LINE 4327 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH ND ASSVAL 4328 HEAD=DVHEADS(ND) LINE 4328 "regression-compile-tmp/nrimp10s-77.imp" PUSH HEAD PUSH DVHEADS PUSH ND ACCESS ASSVAL 4329 %WHILE HEAD#0 %CYCLE LINE 4329 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH HEAD PUSHI #0x00000000 JUMPIF = L_0004 4330 LCELL==ASLIST(HEAD) LINE 4330 "regression-compile-tmp/nrimp10s-77.imp" PUSH LCELL PUSH ASLIST PUSH HEAD ACCESS ASSREF 4331 %IF LCELL_S2=ASIZE %AND LCELL_S3=DV(5) %START LINE 4331 "regression-compile-tmp/nrimp10s-77.imp" PUSH LCELL SELECT 2 PUSH ASIZE JUMPIF # L_0007 PUSH LCELL SELECT 3 PUSH DV PUSHI #0x00000005 ACCESS JUMPIF # L_0007 4332 %CYCLE D=0,1,K LINE 4332 "regression-compile-tmp/nrimp10s-77.imp" PUSH D PUSHI #0x00000001 PUSH K PUSHI #0x00000000 FOR L_0009 4333 ->ON %UNLESS DV(D)=CTABLE_val(D+LCELL_S1) LINE 4333 "regression-compile-tmp/nrimp10s-77.imp" PUSH DV PUSH D ACCESS PUSH CTABLE SELECT 1 PUSH D PUSH LCELL SELECT 1 ADD ACCESS JUMPIF = L_000d JUMP L_01fa LOCATE L_000d 4334 %REPEAT LINE 4334 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0009 LOCATE L_000a 4335 %RESULT=16_80000000!4*LCELL_S1 LINE 4335 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x80000000 PUSHI #0x00000004 PUSH LCELL SELECT 1 MUL OR RESULT 4336 %FINISH LINE 4336 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 4337 ON: LINE 4337 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01fa 4338 HEAD=LCELL_LINK LINE 4338 "regression-compile-tmp/nrimp10s-77.imp" PUSH HEAD PUSH LCELL SELECT 4 ASSVAL 4339 %REPEAT LINE 4339 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 4340 %IF CONST PTR&1#0 %THEN CONST HOLE=CONST PTR %AND CONST PTR=CONST PTR+1 LINE 4340 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTPTR PUSHI #0x00000001 AND PUSHI #0x00000000 JUMPIF = L_0004 PUSH CONSTHOLE PUSH CONSTPTR ASSVAL PUSH CONSTPTR PUSH CONSTPTR PUSHI #0x00000001 ADD ASSVAL LOCATE L_0004 4341 I=4*CONST PTR!16_80000000 LINE 4341 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000004 PUSH CONSTPTR MUL PUSHI #0x80000000 OR ASSVAL 4342 PUSH(DVHEADS(ND),CONSTPTR,ASIZE,DV(5)) LINE 4342 "regression-compile-tmp/nrimp10s-77.imp" PUSH PUSH PUSH DVHEADS PUSH ND ACCESS ASSPAR PUSH CONSTPTR ASSPAR PUSH ASIZE ASSPAR PUSH DV PUSHI #0x00000005 ACCESS ASSPAR CALL 4343 %CYCLE D=0,1,K LINE 4343 "regression-compile-tmp/nrimp10s-77.imp" PUSH D PUSHI #0x00000001 PUSH K PUSHI #0x00000000 FOR L_0003 4344 CTABLE_val(CONST PTR)=DV(D) LINE 4344 "regression-compile-tmp/nrimp10s-77.imp" PUSH CTABLE SELECT 1 PUSH CONSTPTR ACCESS PUSH DV PUSH D ACCESS ASSVAL 4345 CONST PTR=CONST PTR+1 LINE 4345 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTPTR PUSH CONSTPTR PUSHI #0x00000001 ADD ASSVAL 4346 %REPEAT LINE 4346 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 4347 %IF CONST PTR>CONST LIMIT %THEN FAULT(107,0) LINE 4347 "regression-compile-tmp/nrimp10s-77.imp" PUSH CONSTPTR PUSH CONSTLIMIT JUMPIF <= L_0004 PUSH FAULT PUSHI #0x0000006b ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 4348 WAYOUT: LINE 4348 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01fb 4349 %CYCLE D=ND,-1,1 LINE 4349 "regression-compile-tmp/nrimp10s-77.imp" PUSH D PUSHI #0x00000001 NEGATE PUSHI #0x00000001 PUSH ND FOR L_0003 4350 ASLIST(LBB(D))_LINK=ASL LINE 4350 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASLIST PUSH LBB PUSH D ACCESS ACCESS SELECT 4 PUSH ASL ASSVAL 4351 ASL=LBH(D) LINE 4351 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASL PUSH LBH PUSH D ACCESS ASSVAL 4352 ASLIST(UBB(D))_LINK=ASL LINE 4352 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASLIST PUSH UBB PUSH D ACCESS ACCESS SELECT 4 PUSH ASL ASSVAL 4353 ASL=UBH(D) LINE 4353 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASL PUSH UBH PUSH D ACCESS ASSVAL 4354 %REPEAT LINE 4354 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 4355 %RESULT =I LINE 4355 "regression-compile-tmp/nrimp10s-77.imp" PUSH I RESULT 4356 NONCONST: ! NOT A CONST DV LINE 4356 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01f9 4357 J=ND; I=-1 LINE 4357 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH ND ASSVAL LINE 4357 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 NEGATE ASSVAL 4358 LB=0; ASIZE=ELSIZE LINE 4358 "regression-compile-tmp/nrimp10s-77.imp" PUSH LB PUSHI #0x00000000 ASSVAL LINE 4358 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASIZE PUSH ELSIZE ASSVAL 4359 %IF MODE=0 %THEN FAULT(41,0) %ELSE P=PIN LINE 4359 "regression-compile-tmp/nrimp10s-77.imp" PUSH MODE PUSHI #0x00000000 JUMPIF # L_0004 PUSH FAULT PUSHI #0x00000029 ASSPAR PUSHI #0x00000000 ASSPAR CALL GOTO L_0003 LOCATE L_0004 PUSH P PUSH PIN ASSVAL LOCATE L_0003 4360 ->WAYOUT LINE 4360 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01fb 4361 %END 4362 LINE 4361 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_DOPEVECTOR {lev=5 --> 4} 4363 %ROUTINE DECLARE ARRAYS(%INTEGER FORMAT, FINF) 4364 !*********************************************************************** 4365 !* FORMAT=1 FOR 'ARRAYFORMAT' =0 OTHERWISE * 4366 !* FINF>0 FOR RECORD FORMAT INFORMATION =0 OTHERWISE * 4367 !* P IS AT P IN * 4368 !* * 4369 !* P= * 4370 !* P = '('':'*')' * 4371 !* * 4372 !* ARRAYS WITH CONSTANT BOUNDS HAVE THEIR D-V IN THE SST * 4373 !* ALL OTHER ARRAYS HAVE A DOPE VECTOR AMONG THE LOCALS AND GET * 4374 !* THEIR SPACE OFF THE STACK AT RUN TIME * 4375 !* BOTH SORTS OF ARRAYS HAVE A FOUR WORD HEAD AND D-V TO EMAS * 4376 !* SYSTEM STANDARDS * 4377 !*********************************************************************** LINE 4363 "regression-compile-tmp/nrimp10s-77.imp" DEF DECLAREARRAYS (_lev0id0_lev1id1_lev2id3_CSS_DECLAREARRAYS) p1=V_0181 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=5 --> 6, nested=0 --> 1} DEF FORMAT p1=V_01e1 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 FINF p1=V_01e2 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=5} 4378 %ROUTINESPEC CLAIM AS LINE 4378 "regression-compile-tmp/nrimp10s-77.imp" DEF CLAIMAS (_lev0id0_lev1id1_lev2id3_CSS_DECLAREARRAYS_CLAIMAS) p1=V_01e3 a/tf=7 b/format=0 c/ostate=8 type=0 () form=7 (routine) special=0 () linkage=0 (auto) spec=1 indirect=0 unass=0 START ( FORMAL PARAMETERS {lev=5 --> 6, nested=0 --> 1} FINISH ) {lev=5} 4379 %INTEGER DVDISP, PP, DVF, ELSIZE, TOTSIZE, D0, D1, PTYPEP, {%C 4380 ARRP, NN, ND, II, JJ, QQ, R, CDV, UNSCAL, DESC, SC, {%C 4381 LWB, PTYPEPP, JJJ, JJJJ, ADJ LINE 4379 "regression-compile-tmp/nrimp10s-77.imp" DEF DVDISP p1=V_01e4 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 PP p1=V_01e5 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 DVF p1=V_01e6 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 ELSIZE p1=V_01e7 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 TOTSIZE p1=V_01e8 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 D0 p1=V_01e9 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 D1 p1=V_01ea 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 PTYPEP p1=V_01eb 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 ARRP p1=V_01ec 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 NN p1=V_01ed 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 ND p1=V_01ee 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 II p1=V_01ef 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 JJ p1=V_01f0 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 QQ p1=V_01f1 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 R p1=V_01f2 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 CDV p1=V_01f3 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 UNSCAL p1=V_01f4 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 DESC p1=V_01f5 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 SC p1=V_01f6 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 LWB p1=V_01f7 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 PTYPEPP p1=V_01f8 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 JJJ p1=V_01f9 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 JJJJ p1=V_01fa 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 ADJ p1=V_01fb 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 4382 %IF STACK#0 %AND FLAG(LEVEL)=0=NMDECS(LEVEL)>>14 %START LINE 4382 "regression-compile-tmp/nrimp10s-77.imp" PUSH STACK PUSHI #0x00000000 JUMPIF = L_0004 PUSH FLAG PUSH LEVEL ACCESS PUSHI #0x00000000 JUMPIFD # L_0004 PUSH NMDECS PUSH LEVEL ACCESS PUSHI #0x0000000e RSH JUMPIF # L_0004 4383 PSF1(STSF,1,N) LINE 4383 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000005e ASSPAR PUSHI #0x00000001 ASSPAR PUSH N ASSPAR CALL 4384 NMDECS(LEVEL)=NMDECS(LEVEL)!(N<<14) LINE 4384 "regression-compile-tmp/nrimp10s-77.imp" PUSH NMDECS PUSH LEVEL ACCESS PUSH NMDECS PUSH LEVEL ACCESS PUSH N PUSHI #0x0000000e LSH OR ASSVAL 4385 N=N+4 LINE 4385 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSHI #0x00000004 ADD ASSVAL 4386 %FINISH LINE 4386 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4387 %IF STACK=0 %THEN SAVE AUX STACK LINE 4387 "regression-compile-tmp/nrimp10s-77.imp" PUSH STACK PUSHI #0x00000000 JUMPIF # L_0004 PUSH SAVEAUXSTACK CALL LOCATE L_0004 4388 ARRP=2*FORMAT+1; ARR=ARRP; PACK(PTYPEP) LINE 4388 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARRP PUSHI #0x00000002 PUSH FORMAT MUL PUSHI #0x00000001 ADD ASSVAL LINE 4388 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARR PUSH ARRP ASSVAL LINE 4388 "regression-compile-tmp/nrimp10s-77.imp" PUSH PACK PUSH PTYPEP ASSPAR CALL 4389 ELSIZE=ACC LINE 4389 "regression-compile-tmp/nrimp10s-77.imp" PUSH ELSIZE PUSH ACC ASSVAL 4390 %IF TYPE>2 %OR (TYPE=1 %AND PREC=4) %THEN UNSCAL=1 %AND SC=3 %ELSE UNSCAL=0 %AND SC=PREC LINE 4390 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000002 JUMPIF > L_0005 PUSH TYPE PUSHI #0x00000001 JUMPIF # L_0004 PUSH PREC PUSHI #0x00000004 JUMPIF # L_0004 LOCATE L_0005 PUSH UNSCAL PUSHI #0x00000001 ASSVAL PUSH SC PUSHI #0x00000003 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH UNSCAL PUSHI #0x00000000 ASSVAL PUSH SC PUSH PREC ASSVAL LOCATE L_0003 4391 DESC=SC<<27!UNSCAL<<25!(1-PARMARR)<<24;! ARRAY DESCRIPTOR SKELETON LINE 4391 "regression-compile-tmp/nrimp10s-77.imp" PUSH DESC PUSH SC PUSHI #0x0000001b LSH PUSH UNSCAL PUSHI #0x00000019 LSH OR PUSHI #0x00000001 PUSH PARMARR SUB PUSHI #0x00000018 LSH OR ASSVAL 4392 %IF PREC=4 %THEN DESC=16_58000002 LINE 4392 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000004 JUMPIF # L_0004 PUSH DESC PUSHI #0x58000002 ASSVAL LOCATE L_0004 4393 START:NN=1; P=P+1; ! NO OF NAMES IN NAMELIST LINE 4393 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01fc LINE 4393 "regression-compile-tmp/nrimp10s-77.imp" PUSH NN PUSHI #0x00000001 ASSVAL LINE 4393 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 4394 PP=P; CDV=0; PTYPEPP=PTYPEP LINE 4394 "regression-compile-tmp/nrimp10s-77.imp" PUSH PP PUSH P ASSVAL LINE 4394 "regression-compile-tmp/nrimp10s-77.imp" PUSH CDV PUSHI #0x00000000 ASSVAL LINE 4394 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPEPP PUSH PTYPEP ASSVAL 4395 P=P+3 %AND NN=NN+1 %WHILE A(P+2)=1 LINE 4395 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH A PUSH P PUSHI #0x00000002 ADD ACCESS PUSHI #0x00000001 JUMPIF # L_0004 PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL PUSH NN PUSH NN PUSHI #0x00000001 ADD ASSVAL REPEAT L_0003 LOCATE L_0004 4396 P=P+3 LINE 4396 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL 4397 DVDISP=DOPE VECTOR(TYPE,ELSIZE,1,FROMAR2(PP),TOTSIZE,LWB) LINE 4397 "regression-compile-tmp/nrimp10s-77.imp" PUSH DVDISP PUSH DOPEVECTOR PUSH TYPE ASSPAR PUSH ELSIZE ASSPAR PUSHI #0x00000001 ASSPAR PUSH FROMAR2 PUSH PP ASSPAR CALL ASSPAR PUSH TOTSIZE ASSPAR PUSH LWB ASSPAR CALL ASSVAL 4398 ND=J LINE 4398 "regression-compile-tmp/nrimp10s-77.imp" PUSH ND PUSH J ASSVAL 4399 ->CONSTDV %UNLESS DVDISP=-1 4400 ! NORMAL CASE - PLANT CODE TO SET UP DOPE-VECTOR AT RUN TIME 4401 LINE 4399 "regression-compile-tmp/nrimp10s-77.imp" PUSH DVDISP PUSHI #0x00000001 NEGATE JUMPIF = L_0004 JUMP L_01fd LOCATE L_0004 4402 DVF=0; TOTSIZE=16_FFFF LINE 4402 "regression-compile-tmp/nrimp10s-77.imp" PUSH DVF PUSHI #0x00000000 ASSVAL LINE 4402 "regression-compile-tmp/nrimp10s-77.imp" PUSH TOTSIZE PUSHI #0x0000ffff ASSVAL 4403 DVDISP=N; ! DVDISP IS D-V POSITION LINE 4403 "regression-compile-tmp/nrimp10s-77.imp" PUSH DVDISP PUSH N ASSVAL 4404 N=N+12*ND+12; ! CLAIM SPACE FOR THE D-V LINE 4404 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSHI #0x0000000c PUSH ND MUL ADD PUSHI #0x0000000c ADD ASSVAL 4405 FAULT(37,0) %IF ND>12; ! TOO MANY DIMENSIONS LINE 4405 "regression-compile-tmp/nrimp10s-77.imp" PUSH ND PUSHI #0x0000000c JUMPIF <= L_0004 PUSH FAULT PUSHI #0x00000025 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 4406 D0=5<<27!3*ND; D1=12; ! DESCPTR FOR DV LINE 4406 "regression-compile-tmp/nrimp10s-77.imp" PUSH D0 PUSHI #0x00000005 PUSHI #0x0000001b LSH PUSHI #0x00000003 PUSH ND MUL OR ASSVAL LINE 4406 "regression-compile-tmp/nrimp10s-77.imp" PUSH D1 PUSHI #0x0000000c ASSVAL 4407 STORE CONST(JJ,8,ADDR(D0)) LINE 4407 "regression-compile-tmp/nrimp10s-77.imp" PUSH STORECONST PUSH JJ ASSPAR PUSHI #0x00000008 ASSPAR PUSH ADDR PUSH D0 ASSPAR CALL ASSPAR CALL 4408 PF1(LD,0,PC,JJ) LINE 4408 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000078 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR PUSH JJ ASSPAR CALL 4409 PSF1(STD,1,DVDISP) LINE 4409 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000058 ASSPAR PUSHI #0x00000001 ASSPAR PUSH DVDISP ASSPAR CALL 4410 GRUSE(DR)=0 4411 LINE 4410 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000001 ACCESS PUSHI #0x00000000 ASSVAL 4412 %IF UNSCAL=0 %THEN JJ=1 %ELSE JJ=ELSIZE LINE 4412 "regression-compile-tmp/nrimp10s-77.imp" PUSH UNSCAL PUSHI #0x00000000 JUMPIF # L_0004 PUSH JJ PUSHI #0x00000001 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH JJ PUSH ELSIZE ASSVAL LOCATE L_0003 4413 PSF1(LSS,0,JJ); ! M1 THE FIRST MULTIPLIER LINE 4413 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000000 ASSPAR PUSH JJ ASSPAR CALL 4414 GRUSE(ACCR)=0 LINE 4414 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL 4415 %CYCLE II=ND,-1,1 LINE 4415 "regression-compile-tmp/nrimp10s-77.imp" PUSH II PUSHI #0x00000001 NEGATE PUSHI #0x00000001 PUSH ND FOR L_0003 4416 P=P+1 LINE 4416 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 4417 QQ=DVDISP+12*II; ! TRIPLE FOR IITH DIMENSION LINE 4417 "regression-compile-tmp/nrimp10s-77.imp" PUSH QQ PUSH DVDISP PUSHI #0x0000000c PUSH II MUL ADD ASSVAL 4418 PSF1(ST,1,QQ+4); ! STORE MULTIPLIER LINE 4418 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000001 ASSPAR PUSH QQ PUSHI #0x00000004 ADD ASSPAR CALL 4419 CSEXP(ACCR,16_51); ! LOWER BOUND LINE 4419 "regression-compile-tmp/nrimp10s-77.imp" PUSH CSEXP PUSHI #0x00000000 ASSPAR PUSHI #0x00000051 ASSPAR CALL 4420 %IF ND=1 %AND PTYPEP&7<=3 %AND FORMAT=0 %AND GRUSE(ACCR)=5 %AND GRINF1(ACCR)=0 %THEN PTYPEPP=PTYPEPP+256 LINE 4420 "regression-compile-tmp/nrimp10s-77.imp" PUSH ND PUSHI #0x00000001 JUMPIF # L_0007 PUSH PTYPEP PUSHI #0x00000007 AND PUSHI #0x00000003 JUMPIF > L_0007 PUSH FORMAT PUSHI #0x00000000 JUMPIF # L_0007 PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x00000005 JUMPIF # L_0007 PUSH GRINF1 PUSHI #0x00000000 ACCESS PUSHI #0x00000000 JUMPIF # L_0007 PUSH PTYPEPP PUSH PTYPEPP PUSHI #0x00000100 ADD ASSVAL LOCATE L_0007 4421 PSF1(ST,1,QQ); ! STORED IN DV LINE 4421 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000001 ASSPAR PUSH QQ ASSPAR CALL 4422 CSEXP(ACCR,16_51); ! UPPER BOUND LINE 4422 "regression-compile-tmp/nrimp10s-77.imp" PUSH CSEXP PUSHI #0x00000000 ASSPAR PUSHI #0x00000051 ASSPAR CALL 4423 PSF1(ISB,1,QQ) LINE 4423 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x000000e2 ASSPAR PUSHI #0x00000001 ASSPAR PUSH QQ ASSPAR CALL 4424 GRUSE(ACCR)=0 LINE 4424 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL 4425 %IF COMPILER=0 %OR PARMARR#0 %START LINE 4425 "regression-compile-tmp/nrimp10s-77.imp" PUSH COMPILER PUSHI #0x00000000 JUMPIF = L_0008 PUSH PARMARR PUSHI #0x00000000 JUMPIF = L_0007 LOCATE L_0008 4426 PF3(JAF,6,0,3); ! JUMP UNLESS NEGATIVE LINE 4426 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF3 PUSHI #0x00000006 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000003 ASSPAR CALL 4427 PSF1(LSS,0,-1); ! SET UP -1 (ENSURES 0 ELEMENTS LINE 4427 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000001 NEGATE ASSPAR CALL 4428 %FINISH LINE 4428 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 4429 PSF1(IAD,0,1); ! CONVERTED TO RANGE LINE 4429 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x000000e0 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000001 ASSPAR CALL 4430 PSF1(IMY,1,QQ+4); ! RANGE*MULTIPLIER LINE 4430 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x000000ea ASSPAR PUSHI #0x00000001 ASSPAR PUSH QQ PUSHI #0x00000004 ADD ASSPAR CALL 4431 PSF1(ST,1,QQ+8); ! AND STORED IN DV LINE 4431 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000001 ASSPAR PUSH QQ PUSHI #0x00000008 ADD ASSPAR CALL 4432 %REPEAT LINE 4432 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 4433 P=P+1 LINE 4433 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 4434 %IF UNSCAL=0 %AND ELSIZE#1 %THEN PSF1(IMY,0,ELSIZE) LINE 4434 "regression-compile-tmp/nrimp10s-77.imp" PUSH UNSCAL PUSHI #0x00000000 JUMPIF # L_0004 PUSH ELSIZE PUSHI #0x00000001 JUMPIF = L_0004 PUSH PSF1 PUSHI #0x000000ea ASSPAR PUSHI #0x00000000 ASSPAR PUSH ELSIZE ASSPAR CALL LOCATE L_0004 4435 PSF1(ST,1,DVDISP+8) LINE 4435 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000001 ASSPAR PUSH DVDISP PUSHI #0x00000008 ADD ASSPAR CALL 4436 SNDISP=0; ! DV NOT AVAILABLE AT COMPILETIME LINE 4436 "regression-compile-tmp/nrimp10s-77.imp" PUSH SNDISP PUSHI #0x00000000 ASSVAL 4437 ->DECL LINE 4437 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01fe 4438 CONSTDV: ! ONE DIMENSION - CONSTANT BOUNDS LINE 4438 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01fd 4439 DVF=1; CDV=1 LINE 4439 "regression-compile-tmp/nrimp10s-77.imp" PUSH DVF PUSHI #0x00000001 ASSVAL LINE 4439 "regression-compile-tmp/nrimp10s-77.imp" PUSH CDV PUSHI #0x00000001 ASSVAL 4440 %IF ND=1 %AND LWB=0 %AND PTYPEP&15<=3 %AND FORMAT=0 %THEN PTYPEPP=PTYPEP+256 4441 ! SET ARR=2 IF LWB=ZERO LINE 4440 "regression-compile-tmp/nrimp10s-77.imp" PUSH ND PUSHI #0x00000001 JUMPIF # L_0004 PUSH LWB PUSHI #0x00000000 JUMPIF # L_0004 PUSH PTYPEP PUSHI #0x0000000f AND PUSHI #0x00000003 JUMPIF > L_0004 PUSH FORMAT PUSHI #0x00000000 JUMPIF # L_0004 PUSH PTYPEPP PUSH PTYPEP PUSHI #0x00000100 ADD ASSVAL LOCATE L_0004 4442 SNDISP=(DVDISP&16_FFFFFF)>>2 LINE 4442 "regression-compile-tmp/nrimp10s-77.imp" PUSH SNDISP PUSH DVDISP PUSHI #0x00ffffff AND PUSHI #0x00000002 RSH ASSVAL 4443 DECL: ! MAKE DECLN - BOTH WAYS LINE 4443 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01fe 4444 J=ND LINE 4444 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH ND ASSVAL 4445 ODD ALIGN LINE 4445 "regression-compile-tmp/nrimp10s-77.imp" PUSH ODDALIGN CALL 4446 PTYPE=PTYPEPP; UNPACK LINE 4446 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSH PTYPEPP ASSVAL LINE 4446 "regression-compile-tmp/nrimp10s-77.imp" PUSH UNPACK CALL 4447 %IF DVF#0 %THEN %START; ! ARRAY IS STRING OF LOCALS LINE 4447 "regression-compile-tmp/nrimp10s-77.imp" PUSH DVF PUSHI #0x00000000 JUMPIF = L_0004 4448 R=TOTSIZE LINE 4448 "regression-compile-tmp/nrimp10s-77.imp" PUSH R PUSH TOTSIZE ASSVAL 4449 %IF UNSCAL=0 %THEN R=R//ELSIZE LINE 4449 "regression-compile-tmp/nrimp10s-77.imp" PUSH UNSCAL PUSHI #0x00000000 JUMPIF # L_0007 PUSH R PUSH R PUSH ELSIZE QUOT ASSVAL LOCATE L_0007 4450 D0=DESC LINE 4450 "regression-compile-tmp/nrimp10s-77.imp" PUSH D0 PUSH DESC ASSVAL 4451 D0=D0!R %UNLESS PREC=4 LINE 4451 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000004 JUMPIF = L_0007 PUSH D0 PUSH D0 PUSH R OR ASSVAL LOCATE L_0007 4452 STORE CONST(D1,4,ADDR(D0)) LINE 4452 "regression-compile-tmp/nrimp10s-77.imp" PUSH STORECONST PUSH D1 ASSPAR PUSHI #0x00000004 ASSPAR PUSH ADDR PUSH D0 ASSPAR CALL ASSPAR CALL 4453 PF1(LB,0,PC,D1) LINE 4453 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000007a ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR PUSH D1 ASSPAR CALL 4454 %FINISH %ELSE %START LINE 4454 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 4455 STORE CONST(D1,4,ADDR(DESC)) LINE 4455 "regression-compile-tmp/nrimp10s-77.imp" PUSH STORECONST PUSH D1 ASSPAR PUSHI #0x00000004 ASSPAR PUSH ADDR PUSH DESC ASSPAR CALL ASSPAR CALL 4456 PF1(LB,0,PC,D1) LINE 4456 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000007a ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR PUSH D1 ASSPAR CALL 4457 PSF1(ADB,1,DVDISP+20) %UNLESS PREC=4 LINE 4457 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000004 JUMPIF = L_0007 PUSH PSF1 PUSHI #0x00000020 ASSPAR PUSHI #0x00000001 ASSPAR PUSH DVDISP PUSHI #0x00000014 ADD ASSPAR CALL LOCATE L_0007 4458 %FINISH LINE 4458 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 4459 %IF DVF#0 %THEN QQ=PC %ELSE QQ=LNB LINE 4459 "regression-compile-tmp/nrimp10s-77.imp" PUSH DVF PUSHI #0x00000000 JUMPIF = L_0004 PUSH QQ PUSHI #0x00000004 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH QQ PUSHI #0x00000002 ASSVAL LOCATE L_0003 4460 PSORLF1(LDRL,0,QQ,DVDISP) LINE 4460 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSORLF1 PUSHI #0x00000070 ASSPAR PUSHI #0x00000000 ASSPAR PUSH QQ ASSPAR PUSH DVDISP ASSPAR CALL 4461 GRUSE(BREG)=0; GRUSE(DR)=0 LINE 4461 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000007 ACCESS PUSHI #0x00000000 ASSVAL LINE 4461 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000001 ACCESS PUSHI #0x00000000 ASSVAL 4462 %CYCLE JJJ=0,1,NN-1; ! DOWN NAMELIST LINE 4462 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJJ PUSHI #0x00000001 PUSH NN PUSHI #0x00000001 SUB PUSHI #0x00000000 FOR L_0003 4463 PSF1(STB,1,N+16*JJJ); ! ARRAY BOUND LINE 4463 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000005a ASSPAR PUSHI #0x00000001 ASSPAR PUSH N PUSHI #0x00000010 PUSH JJJ MUL ADD ASSPAR CALL 4464 PSF1(STD,1,N+8+16*JJJ); ! DV POINTER LINE 4464 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000058 ASSPAR PUSHI #0x00000001 ASSPAR PUSH N PUSHI #0x00000008 ADD PUSHI #0x00000010 PUSH JJJ MUL ADD ASSPAR CALL 4465 %REPEAT LINE 4465 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 4466 %IF PARMARR=0 %AND PARMCHK=0 %AND ND=1 %AND TYPE<=3 %AND PTYPEPP&16_F00#16_200 %THEN ADJ=1 %ELSE ADJ=0 LINE 4466 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMARR PUSHI #0x00000000 JUMPIF # L_0004 PUSH PARMCHK PUSHI #0x00000000 JUMPIF # L_0004 PUSH ND PUSHI #0x00000001 JUMPIF # L_0004 PUSH TYPE PUSHI #0x00000003 JUMPIF > L_0004 PUSH PTYPEPP PUSHI #0x00000f00 AND PUSHI #0x00000200 JUMPIF = L_0004 PUSH ADJ PUSHI #0x00000001 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH ADJ PUSHI #0x00000000 ASSVAL LOCATE L_0003 4467 %CYCLE JJJ=0,1,NN-1; ! DOWN NAMELIST LINE 4467 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJJ PUSHI #0x00000001 PUSH NN PUSHI #0x00000001 SUB PUSHI #0x00000000 FOR L_0003 4468 %IF ADJ#0 %START; ! ADJUST DESC LINE 4468 "regression-compile-tmp/nrimp10s-77.imp" PUSH ADJ PUSHI #0x00000000 JUMPIF = L_0007 4469 %IF STACK#0 %START; ! ARRAY ON AUTOMATIC STACK LINE 4469 "regression-compile-tmp/nrimp10s-77.imp" PUSH STACK PUSHI #0x00000000 JUMPIF = L_000a 4470 PF1(STSF,0,BREG,0); ! CURRENT SF TO B LINE 4470 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000005e ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000007 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4471 %IF DVF#0 %THEN PSF1(SBB,0,LWB*ELSIZE) %ELSE %START LINE 4471 "regression-compile-tmp/nrimp10s-77.imp" PUSH DVF PUSHI #0x00000000 JUMPIF = L_000d PUSH PSF1 PUSHI #0x00000022 ASSPAR PUSHI #0x00000000 ASSPAR PUSH LWB PUSH ELSIZE MUL ASSPAR CALL GOTO L_000c LOCATE L_000d 4472 %IF ELSIZE=1 %THEN PSF1(SBB,1,DVDISP+12) %ELSESTART LINE 4472 "regression-compile-tmp/nrimp10s-77.imp" PUSH ELSIZE PUSHI #0x00000001 JUMPIF # L_0010 PUSH PSF1 PUSHI #0x00000022 ASSPAR PUSHI #0x00000001 ASSPAR PUSH DVDISP PUSHI #0x0000000c ADD ASSPAR CALL GOTO L_000f LOCATE L_0010 4473 PSF1(SLB,1,DVDISP+12) LINE 4473 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000052 ASSPAR PUSHI #0x00000001 ASSPAR PUSH DVDISP PUSHI #0x0000000c ADD ASSPAR CALL 4474 PSF1(MYB,0,ELSIZE) LINE 4474 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000002a ASSPAR PUSHI #0x00000000 ASSPAR PUSH ELSIZE ASSPAR CALL 4475 PF1(SLB,0,TOS,0) LINE 4475 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000052 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4476 PF1(SBB,0,TOS,0) LINE 4476 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000022 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4477 %FINISH LINE 4477 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000f 4478 %FINISH LINE 4478 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000c 4479 PSF1(STB,1,N+4) LINE 4479 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000005a ASSPAR PUSHI #0x00000001 ASSPAR PUSH N PUSHI #0x00000004 ADD ASSPAR CALL 4480 GRUSE(BREG)=0 LINE 4480 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000007 ACCESS PUSHI #0x00000000 ASSVAL 4481 %FINISH %ELSE %START; ! ARRAY ON AUX STACK LINE 4481 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0009 LOCATE L_000a 4482 %IF DVF#0 %START; ! CONST DOPE VECTOR LINE 4482 "regression-compile-tmp/nrimp10s-77.imp" PUSH DVF PUSHI #0x00000000 JUMPIF = L_000d 4483 %UNLESS GRUSE(ACCR)=11 %%START LINE 4483 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x0000000b JUMPIF = L_0010 4484 PSF1(LSS,2,AUXSBASE(LEVEL)) LINE 4484 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000002 ASSPAR PUSH AUXSBASE PUSH LEVEL ACCESS ASSPAR CALL 4485 GRUSE(ACCR)=11; GRINF1(ACCR)=0 LINE 4485 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x0000000b ASSVAL LINE 4485 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRINF1 PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL 4486 %FINISH LINE 4486 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0010 4487 JJJJ=LWB*ELSIZE-GRINF1(ACCR) LINE 4487 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJJJ PUSH LWB PUSH ELSIZE MUL PUSH GRINF1 PUSHI #0x00000000 ACCESS SUB ASSVAL 4488 PSF1(ISB,0,JJJJ) %UNLESS JJJJ=0 LINE 4488 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJJJ PUSHI #0x00000000 JUMPIF = L_0010 PUSH PSF1 PUSHI #0x000000e2 ASSPAR PUSHI #0x00000000 ASSPAR PUSH JJJJ ASSPAR CALL LOCATE L_0010 4489 GRINF1(ACCR)=LWB*ELSIZE LINE 4489 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRINF1 PUSHI #0x00000000 ACCESS PUSH LWB PUSH ELSIZE MUL ASSVAL 4490 %FINISH %ELSE %START; ! DYNAMIC ARRAYS LINE 4490 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_000c LOCATE L_000d 4491 %IF GRUSE(ACCR)=11 %AND GRINF1(ACCR)=0 %AND ELSIZE=1 %THEN PSF1(ISB,1,DVDISP+12) %ELSESTART LINE 4491 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x0000000b JUMPIF # L_0010 PUSH GRINF1 PUSHI #0x00000000 ACCESS PUSHI #0x00000000 JUMPIF # L_0010 PUSH ELSIZE PUSHI #0x00000001 JUMPIF # L_0010 PUSH PSF1 PUSHI #0x000000e2 ASSPAR PUSHI #0x00000001 ASSPAR PUSH DVDISP PUSHI #0x0000000c ADD ASSPAR CALL GOTO L_000f LOCATE L_0010 4492 PSF1(LSS,1,DVDISP+12) LINE 4492 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000001 ASSPAR PUSH DVDISP PUSHI #0x0000000c ADD ASSPAR CALL 4493 PSF1(IMY,0,ELSIZE) %UNLESS ELSIZE=1 LINE 4493 "regression-compile-tmp/nrimp10s-77.imp" PUSH ELSIZE PUSHI #0x00000001 JUMPIF = L_0013 PUSH PSF1 PUSHI #0x000000ea ASSPAR PUSHI #0x00000000 ASSPAR PUSH ELSIZE ASSPAR CALL LOCATE L_0013 4494 PSF1(IRSB,2,AUXSBASE(LEVEL)) LINE 4494 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x000000e4 ASSPAR PUSHI #0x00000002 ASSPAR PUSH AUXSBASE PUSH LEVEL ACCESS ASSPAR CALL 4495 %FINISH LINE 4495 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000f 4496 GRUSE(ACCR)=0 LINE 4496 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL 4497 %FINISH LINE 4497 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000c 4498 PSF1(ST,1,N+4) LINE 4498 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000001 ASSPAR PUSH N PUSHI #0x00000004 ADD ASSPAR CALL 4499 %FINISH LINE 4499 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 4500 %FINISH %ELSE %START; ! NO ADJUSTMENT OF DESCRPT LINE 4500 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 4501 %IF STACK#0 %THEN PSF1(STSF,1,N+4) %ELSE %START LINE 4501 "regression-compile-tmp/nrimp10s-77.imp" PUSH STACK PUSHI #0x00000000 JUMPIF = L_000a PUSH PSF1 PUSHI #0x0000005e ASSPAR PUSHI #0x00000001 ASSPAR PUSH N PUSHI #0x00000004 ADD ASSPAR CALL GOTO L_0009 LOCATE L_000a 4502 PSF1(LSS,2,AUXSBASE(LEVEL)) %UNLESS GRUSE(ACCR)=11 %AND GRINF1(ACCR)=0 LINE 4502 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x0000000b JUMPIF # L_000e PUSH GRINF1 PUSHI #0x00000000 ACCESS PUSHI #0x00000000 JUMPIF = L_000d LOCATE L_000e PUSH PSF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000002 ASSPAR PUSH AUXSBASE PUSH LEVEL ACCESS ASSPAR CALL LOCATE L_000d 4503 PSF1(ST,1,N+4) LINE 4503 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000001 ASSPAR PUSH N PUSHI #0x00000004 ADD ASSPAR CALL 4504 GRUSE(ACCR)=11; GRINF1(ACCR)=0 LINE 4504 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x0000000b ASSVAL LINE 4504 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRINF1 PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL 4505 %FINISH LINE 4505 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 4506 %FINISH 4507 LINE 4506 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 4508 ACC=ELSIZE; ! RESET ACC AFTER DV CMPLD LINE 4508 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSH ELSIZE ASSVAL 4509 KFORM=FINF; ! FORMAT INFORMATION LINE 4509 "regression-compile-tmp/nrimp10s-77.imp" PUSH KFORM PUSH FINF ASSVAL 4510 K=FROM AR2(PP+3*JJJ) LINE 4510 "regression-compile-tmp/nrimp10s-77.imp" PUSH K PUSH FROMAR2 PUSH PP PUSHI #0x00000003 PUSH JJJ MUL ADD ASSPAR CALL ASSVAL 4511 STORE TAG(K,N) LINE 4511 "regression-compile-tmp/nrimp10s-77.imp" PUSH STORETAG PUSH K ASSPAR PUSH N ASSPAR CALL 4512 CLAIM AS %IF FORMAT = 0 LINE 4512 "regression-compile-tmp/nrimp10s-77.imp" PUSH FORMAT PUSHI #0x00000000 JUMPIF # L_0007 PUSH CLAIMAS CALL LOCATE L_0007 4513 N=N+16 LINE 4513 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSHI #0x00000010 ADD ASSVAL 4514 %REPEAT LINE 4514 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 4515 P=P+1; ! PAST REST OF ARRAYLIST LINE 4515 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 4516 %IF A(P-1)=1 %THEN ->START LINE 4516 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 SUB ACCESS PUSHI #0x00000001 JUMPIF # L_0004 JUMP L_01fc LOCATE L_0004 4517 %RETURN LINE 4517 "regression-compile-tmp/nrimp10s-77.imp" RETURN 4518 %ROUTINE CLAIM AS 4519 !*********************************************************************** 4520 !* CLAIM THE SPACE FOR AN ARRAY FROM STACK OR AUX STACK * 4521 !*********************************************************************** LINE 4518 "regression-compile-tmp/nrimp10s-77.imp" DEF CLAIMAS (_lev0id0_lev1id1_lev2id3_CSS_DECLAREARRAYS_CLAIMAS) p1=V_01e3 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=6 --> 7, nested=0 --> 1} FINISH ) {lev=6} 4522 %INTEGER T, B, D,ADJMENT LINE 4522 "regression-compile-tmp/nrimp10s-77.imp" DEF T p1=V_01ff 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 B p1=V_0200 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 D p1=V_0201 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 ADJMENT p1=V_0202 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 4523 %IF STACK=1 %THEN %START; ! FROM AUTOMATIC STACK LINE 4523 "regression-compile-tmp/nrimp10s-77.imp" PUSH STACK PUSHI #0x00000001 JUMPIF # L_0004 4524 %IF CDV=1 %THEN %START; ! CONSTANT BOUNDS LINE 4524 "regression-compile-tmp/nrimp10s-77.imp" PUSH CDV PUSHI #0x00000001 JUMPIF # L_0007 4525 T=(TOTSIZE+3)//4 LINE 4525 "regression-compile-tmp/nrimp10s-77.imp" PUSH T PUSH TOTSIZE PUSHI #0x00000003 ADD PUSHI #0x00000004 QUOT ASSVAL 4526 PSF1(ASF+12*PARMCHK,0,T); ! ASF OR LB LINE 4526 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000006e PUSHI #0x0000000c PUSH PARMCHK MUL ADD ASSPAR PUSHI #0x00000000 ASSPAR PUSH T ASSPAR CALL 4527 PPJ(0,4) %IF PARMCHK#0 LINE 4527 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMCHK PUSHI #0x00000000 JUMPIF = L_000a PUSH PPJ PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR CALL LOCATE L_000a 4528 %FINISH %ELSE %START; ! DYNAMIC BOUNDS LINE 4528 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 4529 %IF PARMCHK=0 %AND PTYPEP&7<=2 %AND (ELSIZE=4 %OR ELSIZE=8) %START LINE 4529 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMCHK PUSHI #0x00000000 JUMPIF # L_000a PUSH PTYPEP PUSHI #0x00000007 AND PUSHI #0x00000002 JUMPIF > L_000a PUSH ELSIZE PUSHI #0x00000004 JUMPIF = L_000b PUSH ELSIZE PUSHI #0x00000008 JUMPIF # L_000a LOCATE L_000b 4530 PSF1(ASF,1,DVDISP+20); ! SIZE IN ELEMENTS WORD LINE 4530 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000006e ASSPAR PUSHI #0x00000001 ASSPAR PUSH DVDISP PUSHI #0x00000014 ADD ASSPAR CALL 4531 PSF1(ASF,1,DVDISP+20) %IF ELSIZE=8 LINE 4531 "regression-compile-tmp/nrimp10s-77.imp" PUSH ELSIZE PUSHI #0x00000008 JUMPIF # L_000d PUSH PSF1 PUSHI #0x0000006e ASSPAR PUSHI #0x00000001 ASSPAR PUSH DVDISP PUSHI #0x00000014 ADD ASSPAR CALL LOCATE L_000d 4532 %FINISH %ELSE %START LINE 4532 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0009 LOCATE L_000a 4533 PSF1(LSS,1,DVDISP+8); ! ARRAY SIZE BYTES LINE 4533 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000001 ASSPAR PUSH DVDISP PUSHI #0x00000008 ADD ASSPAR CALL 4534 PSF1(IAD,0,3) %IF ELSIZE&3#0 LINE 4534 "regression-compile-tmp/nrimp10s-77.imp" PUSH ELSIZE PUSHI #0x00000003 AND PUSHI #0x00000000 JUMPIF = L_000d PUSH PSF1 PUSHI #0x000000e0 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000003 ASSPAR CALL LOCATE L_000d 4535 PSF1(USH,0,-2); ! ARRAY SIZE WORDS LINE 4535 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x000000c8 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000002 NEGATE ASSPAR CALL 4536 PF1(ST,0,BREG,0) LINE 4536 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000007 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4537 FORGET(BREG) LINE 4537 "regression-compile-tmp/nrimp10s-77.imp" PUSH FORGET PUSHI #0x00000007 ASSPAR CALL 4538 %IF PARMCHK#0 %THEN PPJ(0,4) %ELSE PF1(ASF,0,BREG,0) LINE 4538 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMCHK PUSHI #0x00000000 JUMPIF = L_000d PUSH PPJ PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR CALL GOTO L_000c LOCATE L_000d PUSH PF1 PUSHI #0x0000006e ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000007 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_000c 4539 %FINISH LINE 4539 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 4540 %FINISH LINE 4540 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 4541 CHECK STOF LINE 4541 "regression-compile-tmp/nrimp10s-77.imp" PUSH CHECKSTOF CALL 4542 %FINISH %ELSE %START LINE 4542 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 4543 %UNLESS GRUSE(ACCR)=11 %AND (GRINF1(ACCR)=0 %OR CDV=1) %START LINE 4543 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x0000000b JUMPIF # L_0008 PUSH GRINF1 PUSHI #0x00000000 ACCESS PUSHI #0x00000000 JUMPIF = L_0007 PUSH CDV PUSHI #0x00000001 JUMPIF = L_0007 LOCATE L_0008 4544 PSF1(LSS,2,AUXSBASE(LEVEL)) LINE 4544 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000002 ASSPAR PUSH AUXSBASE PUSH LEVEL ACCESS ASSPAR CALL 4545 GRUSE(ACCR)=11; GRINF1(ACCR)=0 LINE 4545 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x0000000b ASSVAL LINE 4545 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRINF1 PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL 4546 %FINISH LINE 4546 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 4547 %IF CDV=1 %THEN %START LINE 4547 "regression-compile-tmp/nrimp10s-77.imp" PUSH CDV PUSHI #0x00000001 JUMPIF # L_0007 4548 ADJMENT=(TOTSIZE+7)&(-8)+GRINF1(ACCR) LINE 4548 "regression-compile-tmp/nrimp10s-77.imp" PUSH ADJMENT PUSH TOTSIZE PUSHI #0x00000007 ADD PUSHI #0x00000008 NEGATE AND PUSH GRINF1 PUSHI #0x00000000 ACCESS ADD ASSVAL 4549 %IF ADJMENT<16_1FFFF %THEN B=0 %AND D=ADJMENT %ELSE %START LINE 4549 "regression-compile-tmp/nrimp10s-77.imp" PUSH ADJMENT PUSHI #0x0001ffff JUMPIF >= L_000a PUSH B PUSHI #0x00000000 ASSVAL PUSH D PUSH ADJMENT ASSVAL GOTO L_0009 LOCATE L_000a 4550 STORE CONST(D,4,ADDR(ADJMENT)) LINE 4550 "regression-compile-tmp/nrimp10s-77.imp" PUSH STORECONST PUSH D ASSPAR PUSHI #0x00000004 ASSPAR PUSH ADDR PUSH ADJMENT ASSPAR CALL ASSPAR CALL 4551 B=PC LINE 4551 "regression-compile-tmp/nrimp10s-77.imp" PUSH B PUSHI #0x00000004 ASSVAL 4552 %FINISH LINE 4552 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 4553 %IF ADJ=1 %AND JJJ#NN-1 %AND PARMOPT=0 %THEN GRINF1(ACCR)=ADJMENT %ELSE %START LINE 4553 "regression-compile-tmp/nrimp10s-77.imp" PUSH ADJ PUSHI #0x00000001 JUMPIF # L_000a PUSH JJJ PUSH NN PUSHI #0x00000001 SUB JUMPIF = L_000a PUSH PARMOPT PUSHI #0x00000000 JUMPIF # L_000a PUSH GRINF1 PUSHI #0x00000000 ACCESS PUSH ADJMENT ASSVAL GOTO L_0009 LOCATE L_000a 4554 GRINF1(ACCR)=0 LINE 4554 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRINF1 PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL 4555 PSORLF1(IAD,0,B,D) %UNLESS B=D=0 LINE 4555 "regression-compile-tmp/nrimp10s-77.imp" PUSH B PUSH D JUMPIFD # L_000e PUSHI #0x00000000 JUMPIF = L_000d LOCATE L_000e PUSH PSORLF1 PUSHI #0x000000e0 ASSPAR PUSHI #0x00000000 ASSPAR PUSH B ASSPAR PUSH D ASSPAR CALL LOCATE L_000d 4556 %FINISH LINE 4556 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 4557 %FINISH %ELSE %START LINE 4557 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 4558 B=LNB; D=DVDISP+8 LINE 4558 "regression-compile-tmp/nrimp10s-77.imp" PUSH B PUSHI #0x00000002 ASSVAL LINE 4558 "regression-compile-tmp/nrimp10s-77.imp" PUSH D PUSH DVDISP PUSHI #0x00000008 ADD ASSVAL 4559 PSF1(IAD,1,D) LINE 4559 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x000000e0 ASSPAR PUSHI #0x00000001 ASSPAR PUSH D ASSPAR CALL 4560 %UNLESS ELSIZE&7=0 %START LINE 4560 "regression-compile-tmp/nrimp10s-77.imp" PUSH ELSIZE PUSHI #0x00000007 AND PUSHI #0x00000000 JUMPIF = L_000a 4561 PSF1(IAD,0,7) LINE 4561 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x000000e0 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000007 ASSPAR CALL 4562 PSF1(AND,0,-8) LINE 4562 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000008a ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000008 NEGATE ASSPAR CALL 4563 %FINISH LINE 4563 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000a 4564 GRINF1(ACCR)=0 LINE 4564 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRINF1 PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL 4565 %FINISH LINE 4565 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 4566 PSF1(ST,2,AUXSBASE(LEVEL)) %IF JJJ=NN-1 %OR (ADJ=1 %AND CDV=0) LINE 4566 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJJ PUSH NN PUSHI #0x00000001 SUB JUMPIF = L_0008 PUSH ADJ PUSHI #0x00000001 JUMPIF # L_0007 PUSH CDV PUSHI #0x00000000 JUMPIF # L_0007 LOCATE L_0008 PUSH PSF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000002 ASSPAR PUSH AUXSBASE PUSH LEVEL ACCESS ASSPAR CALL LOCATE L_0007 4567 %IF PARMOPT#0 %THEN %START LINE 4567 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMOPT PUSHI #0x00000000 JUMPIF = L_0007 4568 PSF1(ICP,1,AUXSBASE(LEVEL)+16) LINE 4568 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x000000e6 ASSPAR PUSHI #0x00000001 ASSPAR PUSH AUXSBASE PUSH LEVEL ACCESS PUSHI #0x00000010 ADD ASSPAR CALL 4569 PPJ(2,8) LINE 4569 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPJ PUSHI #0x00000002 ASSPAR PUSHI #0x00000008 ASSPAR CALL 4570 %FINISH LINE 4570 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 4571 %IF PARMCHK#0 %START LINE 4571 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMCHK PUSHI #0x00000000 JUMPIF = L_0007 4572 PF1(LDTB,0,PC,PARAM DES(3)) LINE 4572 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000074 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR PUSH PARAMDES PUSHI #0x00000003 ASSPAR CALL ASSPAR CALL 4573 PSORLF1(LDB,0,B,D) LINE 4573 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSORLF1 PUSHI #0x00000076 ASSPAR PUSHI #0x00000000 ASSPAR PUSH B ASSPAR PUSH D ASSPAR CALL 4574 PSF1(LDA,1,N+4) LINE 4574 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000072 ASSPAR PUSHI #0x00000001 ASSPAR PUSH N PUSHI #0x00000004 ADD ASSPAR CALL 4575 PF2(MVL,1,1,0,0,UNASSPAT&255) LINE 4575 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF2 PUSHI #0x000000b0 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x81818181 PUSHI #0x000000ff AND ASSPAR CALL 4576 GRUSE(DR)=0 LINE 4576 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000001 ACCESS PUSHI #0x00000000 ASSVAL 4577 %FINISH LINE 4577 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 4578 %FINISH LINE 4578 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 4579 %END LINE 4579 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_DECLAREARRAYS_CLAIMAS {lev=6 --> 5} 4580 %END 4581 ! %ROUTINE TEST NST 4582 !!*********************************************************************** 4583 !!* SEE IF NAME 'K' HAS BEEN DECLARED BEFORE AT THIS LEVEL * 4584 !!*********************************************************************** 4585 ! FNAME=K 4586 ! FAULT(7,FNAME) %IF FROM1(TAGS(FNAME))>>8&15=LEVEL 4587 ! %END LINE 4580 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_DECLAREARRAYS {lev=5 --> 4} 4588 %ROUTINE CLT 4589 !*********************************************************************** 4590 !* DEAL WITH PHRASE TYPE AND SET PREC,TYPE & ACC * 4591 !* ONLY PROBLEM IS STRING WHICH HAS OPTIONAL MAX LENGTH ALSO * 4592 !* P ON PHRASE TYPE AT ENTRY - TO NEXT PHRASE AT EXIT. * 4593 !*********************************************************************** LINE 4588 "regression-compile-tmp/nrimp10s-77.imp" DEF CLT (_lev0id0_lev1id1_lev2id3_CSS_CLT) p1=V_0189 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=5 --> 6, nested=0 --> 1} FINISH ) {lev=5} 4594 %CONSTBYTEINTEGERARRAY TYPEFLAG(1:10)= {%C 4595 16_51,16_52,0,16_31,16_35, 4596 16_41,0,16_62,16_61,16_72; LINE 4594 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 PUSHI #0x0000000a BOUNDS DEF TYPEFLAG p1=V_01e1 a/tf=1b b/format=2 c/ostate=112 type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=2 (constant) spec=0 indirect=1 unass=0 PUSHI #0x00000051 INIT 1 PUSHI #0x00000052 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000031 INIT 1 PUSHI #0x00000035 INIT 1 PUSHI #0x00000041 INIT 1 PUSHI #0x00000000 INIT 1 PUSHI #0x00000062 INIT 1 PUSHI #0x00000061 INIT 1 PUSHI #0x00000072 INIT 1 4597 %INTEGER ALT LINE 4597 "regression-compile-tmp/nrimp10s-77.imp" DEF ALT p1=V_01e2 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 4598 ALT=A(P) LINE 4598 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSH A PUSH P ACCESS ASSVAL 4599 TYPE=TYPEFLAG(ALT) LINE 4599 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSH TYPEFLAG PUSH ALT ACCESS ASSVAL 4600 %IF TYPE=0 %THEN P=P+1 %AND TYPE=TYPEFLAG(A(P)+7) LINE 4600 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000000 JUMPIF # L_0004 PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL PUSH TYPE PUSH TYPEFLAG PUSH A PUSH P ACCESS PUSHI #0x00000007 ADD ACCESS ASSVAL LOCATE L_0004 4601 PREC=TYPE>>4 LINE 4601 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSH TYPE PUSHI #0x00000004 RSH ASSVAL 4602 TYPE=TYPE&7 LINE 4602 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSH TYPE PUSHI #0x00000007 AND ASSVAL 4603 PREC=6 %IF TYPE=2 %AND ALL LONG#0 %AND PREC<=5;! DEAL WITH '%REALSLONG' LINE 4603 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000002 JUMPIF # L_0004 PUSH ALLLONG PUSHI #0x00000000 JUMPIF = L_0004 PUSH PREC PUSHI #0x00000005 JUMPIF > L_0004 PUSH PREC PUSHI #0x00000006 ASSVAL LOCATE L_0004 4604 ACC=BYTES(PREC) LINE 4604 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSH BYTES PUSH PREC ACCESS ASSVAL 4605 %IF TYPE=5 %THEN %START; ! P='%STRING' LINE 4605 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000005 JUMPIF # L_0004 4606 %IF A(P+1)=1 %THEN %START;! MAX LENGTH GIVEN LINE 4606 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000001 JUMPIF # L_0007 4607 P=P+2 LINE 4607 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 4608 ACC=A(P)+1 LINE 4608 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSH A PUSH P ACCESS PUSHI #0x00000001 ADD ASSVAL 4609 %FINISH %ELSE ACC=0 %AND P=P+1 LINE 4609 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 PUSH ACC PUSHI #0x00000000 ASSVAL PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LOCATE L_0006 4610 %FINISH LINE 4610 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4611 P=P+1 LINE 4611 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 4612 %END LINE 4612 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CLT {lev=5 --> 4} 4613 %ROUTINE CQN(%INTEGER P) 4614 !*********************************************************************** 4615 !* SET NAM,ARR & ACC FROM ALTERNATIVE OF PHRASE * 4616 !* P='%ARRAYNAME','%NAME',<%NULL> * 4617 !* P POINTS TO THE ANALYSIS RECORD ENTRY AS IS NOT UPDATED * 4618 !*********************************************************************** LINE 4613 "regression-compile-tmp/nrimp10s-77.imp" DEF CQN (_lev0id0_lev1id1_lev2id3_CSS_CQN) p1=V_018a 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=5 --> 6, nested=0 --> 1} DEF P p1=V_01e1 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=5} 4619 %INTEGER I LINE 4619 "regression-compile-tmp/nrimp10s-77.imp" DEF I p1=V_01e2 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 4620 I=A(P);NAM=0;ARR=0 LINE 4620 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSH A PUSH P ACCESS ASSVAL LINE 4620 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000000 ASSVAL LINE 4620 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARR PUSHI #0x00000000 ASSVAL 4621 %IF I=1 %THEN ARR=1 %AND ACC=16;! ARRAYNAMES LINE 4621 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000001 JUMPIF # L_0004 PUSH ARR PUSHI #0x00000001 ASSVAL PUSH ACC PUSHI #0x00000010 ASSVAL LOCATE L_0004 4622 %IF I<=2 %THEN NAM=1; ! ARRAYNAMES & NAMES LINE 4622 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000002 JUMPIF > L_0004 PUSH NAM PUSHI #0x00000001 ASSVAL LOCATE L_0004 4623 %IF I=2 %THEN ACC=8; ! NAMES USE 8-BYTE DESCRIPTOR LINE 4623 "regression-compile-tmp/nrimp10s-77.imp" PUSH I PUSHI #0x00000002 JUMPIF # L_0004 PUSH ACC PUSHI #0x00000008 ASSVAL LOCATE L_0004 4624 %END LINE 4624 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CQN {lev=5 --> 4} 4625 %ROUTINE CRSPEC (%INTEGER M) 4626 !*********************************************************************** 4627 !* MODE=0 FOR NORMAL ROUTINE SPEC * 4628 !* MODE=1 FOR EXTERNAL(ETC) ROUTINE SPECS XREF NEEDED * 4629 !* P ON ENTRY TO P(RT) IN (RT)(MARK)(%SPEC')(NAME)(FPP) * 4630 !*********************************************************************** LINE 4625 "regression-compile-tmp/nrimp10s-77.imp" DEF CRSPEC (_lev0id0_lev1id1_lev2id3_CSS_CRSPEC) p1=V_0186 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=5 --> 6, nested=0 --> 1} DEF M p1=V_01e1 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=5} 4631 %INTEGER KK,JJ,TYPEP,OPHEAD,NPARMS LINE 4631 "regression-compile-tmp/nrimp10s-77.imp" DEF KK p1=V_01e2 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 JJ p1=V_01e3 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 TYPEP p1=V_01e4 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 OPHEAD p1=V_01e5 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 NPARMS p1=V_01e6 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 4632 %STRING(34) XNAME LINE 4632 "regression-compile-tmp/nrimp10s-77.imp" DEF XNAME p1=V_01e7 a/tf=31 b/format=22 c/ostate=0 type=3 (string) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 4633 LITL=EXTRN&3 LINE 4633 "regression-compile-tmp/nrimp10s-77.imp" PUSH LITL PUSH EXTRN PUSHI #0x00000003 AND ASSVAL 4634 %IF A(P)=1 %THEN %START; ! P=%ROUTINE LINE 4634 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000001 JUMPIF # L_0004 4635 TYPEP=LITL<<14!16_1000 LINE 4635 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPEP PUSH LITL PUSHI #0x0000000e LSH PUSHI #0x00001000 OR ASSVAL 4636 P=P+2; ! IGNORING ALT OF P(SPEC') LINE 4636 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 4637 %FINISH %ELSE %START; ! P= LINE 4637 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 4638 ROUT=1; ARR=0; P=P+1 LINE 4638 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUT PUSHI #0x00000001 ASSVAL LINE 4638 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARR PUSHI #0x00000000 ASSVAL LINE 4638 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 4639 CLT; NAM=0 LINE 4639 "regression-compile-tmp/nrimp10s-77.imp" PUSH CLT CALL LINE 4639 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000000 ASSVAL 4640 %IF A(P)=2 %THEN NAM=2; ! 2 FOR MAP 0 FOR FN LINE 4640 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000002 JUMPIF # L_0007 PUSH NAM PUSHI #0x00000002 ASSVAL LOCATE L_0007 4641 PACK(TYPEP) LINE 4641 "regression-compile-tmp/nrimp10s-77.imp" PUSH PACK PUSH TYPEP ASSPAR CALL 4642 P=P+2; ! AGAIN IGNORING ALT OF P(SPEC') LINE 4642 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 4643 %FINISH LINE 4643 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 4644 P=P+4; ! PAST HOLE FOR DECLINKS LINE 4644 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000004 ADD ASSVAL 4645 KK=FROM AR2(P) LINE 4645 "regression-compile-tmp/nrimp10s-77.imp" PUSH KK PUSH FROMAR2 PUSH P ASSPAR CALL ASSVAL 4646 JJ=0 LINE 4646 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSHI #0x00000000 ASSVAL 4647 P=P+2 LINE 4647 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 4648 CFPLIST(OPHEAD,NPARMS) LINE 4648 "regression-compile-tmp/nrimp10s-77.imp" PUSH CFPLIST PUSH OPHEAD ASSPAR PUSH NPARMS ASSPAR CALL 4649 %IF M=1 %THEN %START LINE 4649 "regression-compile-tmp/nrimp10s-77.imp" PUSH M PUSHI #0x00000001 JUMPIF # L_0004 4650 XNAME<-STRING(DICTBASE+WORD(KK)) LINE 4650 "regression-compile-tmp/nrimp10s-77.imp" PUSH XNAME PUSH STRING PUSH DICTBASE PUSH WORD PUSH KK ACCESS ADD ASSPAR CALL JAM 4651 %IF EXTRN=1 %THEN XNAME<-"S#".XNAME LINE 4651 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXTRN PUSHI #0x00000001 JUMPIF # L_0007 PUSH XNAME PUSHS "S#" PUSH XNAME CONCAT JAM LOCATE L_0007 4652 CXREF(XNAME,PARMDYNAMIC!(EXTRN//3),2,JJ); ! %STSTEM & %EXTERNAL =STATIC 4653 ! %DYNAMIC = DYNAMIC LINE 4652 "regression-compile-tmp/nrimp10s-77.imp" PUSH CXREF PUSH XNAME ASSPAR PUSH PARMDYNAMIC PUSH EXTRN PUSHI #0x00000003 QUOT OR ASSPAR PUSHI #0x00000002 ASSPAR PUSH JJ ASSPAR CALL 4654 %FINISH LINE 4654 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4655 %IF M=0 %AND RLEVEL=0 %THEN CODE DES(JJ) LINE 4655 "regression-compile-tmp/nrimp10s-77.imp" PUSH M PUSHI #0x00000000 JUMPIF # L_0004 PUSH RLEVEL PUSHI #0x00000000 JUMPIF # L_0004 PUSH CODEDES PUSH JJ ASSPAR CALL LOCATE L_0004 4656 J=15-M; PTYPE=TYPEP LINE 4656 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x0000000f PUSH M SUB ASSVAL LINE 4656 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSH TYPEP ASSVAL 4657 KFORM=NPARMS LINE 4657 "regression-compile-tmp/nrimp10s-77.imp" PUSH KFORM PUSH NPARMS ASSVAL 4658 SNDISP=JJ>>16 LINE 4658 "regression-compile-tmp/nrimp10s-77.imp" PUSH SNDISP PUSH JJ PUSHI #0x00000010 RSH ASSVAL 4659 ACC=JJ&16_FFFF LINE 4659 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSH JJ PUSHI #0x0000ffff AND ASSVAL 4660 STORE TAG(KK,OPHEAD) LINE 4660 "regression-compile-tmp/nrimp10s-77.imp" PUSH STORETAG PUSH KK ASSPAR PUSH OPHEAD ASSPAR CALL 4661 %END LINE 4661 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CRSPEC {lev=5 --> 4} 4662 %ROUTINE CFPLIST(%INTEGERNAME OPHEAD,NPARMS) 4663 !*********************************************************************** 4664 !* COMPILE A FORMAL PARAMETER PART INTO A LIST OF PARAMETER TYPES * 4665 !* P(FPP)='('{(HOLE)(FPDEL)(NAMELIST)(MARK)}*')',0. * 4666 !* * 4667 !* THE LIST OF PARAMETER LOOKS LIKE:- * 4668 !* S1 = PTYPE FOR PARAM<<16! DIMENSION (DIMEN DEDUCED LATER) * 4669 !* S2 = ACC <<16 ! SPARE * 4670 !* S3 = 0 (RESERVED FOR FPP OF RTS) * 4671 !* * 4672 !* ON ENTRY P IS AT ALT OF FPP (WHICH MAY BE NULL) * 4673 !*********************************************************************** LINE 4662 "regression-compile-tmp/nrimp10s-77.imp" DEF CFPLIST (_lev0id0_lev1id1_lev2id3_CSS_CFPLIST) p1=V_0187 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=5 --> 6, nested=0 --> 1} DEF OPHEAD p1=V_01e1 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 DEF NPARMS p1=V_01e2 a/tf=12 b/format=1 c/ostate=0 type=1 (integer) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 FINISH ) {lev=5} 4674 %INTEGER OPBOT, PP LINE 4674 "regression-compile-tmp/nrimp10s-77.imp" DEF OPBOT p1=V_01e3 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 PP p1=V_01e4 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 4675 OPHEAD=0; OPBOT=0 LINE 4675 "regression-compile-tmp/nrimp10s-77.imp" PUSH OPHEAD PUSHI #0x00000000 ASSVAL LINE 4675 "regression-compile-tmp/nrimp10s-77.imp" PUSH OPBOT PUSHI #0x00000000 ASSVAL 4676 NPARMS=0; ! ZERO PARAMETERS AS YET LINE 4676 "regression-compile-tmp/nrimp10s-77.imp" PUSH NPARMS PUSHI #0x00000000 ASSVAL 4677 %WHILE A(P)=1 %CYCLE; ! WHILE SOME(MORE) FPS LINE 4677 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 PUSH A PUSH P ACCESS PUSHI #0x00000001 JUMPIF # L_0004 4678 PP=P+1+FROMAR2(P+1); ! TO NEXT FPDEL LINE 4678 "regression-compile-tmp/nrimp10s-77.imp" PUSH PP PUSH P PUSHI #0x00000001 ADD PUSH FROMAR2 PUSH P PUSHI #0x00000001 ADD ASSPAR CALL ADD ASSVAL 4679 P=P+3; ! TO ALT OF FPDEL LINE 4679 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL 4680 CFPDEL; ! GET TYPE & ACC FOR NEXT GROUP LINE 4680 "regression-compile-tmp/nrimp10s-77.imp" PUSH CFPDEL CALL 4681 {%UNTIL A(P-1)=2} %CYCLE; ! DOWN FOR EACH DEL LINE 4681 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 4682 BINSERT(OPHEAD,OPBOT,PTYPE<<16,ACC<<16,0) LINE 4682 "regression-compile-tmp/nrimp10s-77.imp" PUSH BINSERT PUSH OPHEAD ASSPAR PUSH OPBOT ASSPAR PUSH PTYPE PUSHI #0x00000010 LSH ASSPAR PUSH ACC PUSHI #0x00000010 LSH ASSPAR PUSHI #0x00000000 ASSPAR CALL 4683 NPARMS=NPARMS+1 LINE 4683 "regression-compile-tmp/nrimp10s-77.imp" PUSH NPARMS PUSH NPARMS PUSHI #0x00000001 ADD ASSVAL 4684 P=P+3 LINE 4684 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000003 ADD ASSVAL 4685 %REPEAT %UNTIL A(P-1)=2; ! DOWN FOR EACH DEL LINE 4685 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 SUB ACCESS PUSHI #0x00000002 JUMPIF = L_0007 REPEAT L_0006 LOCATE L_0007 4686 P=PP LINE 4686 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH PP ASSVAL 4687 %REPEAT LINE 4687 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0003 LOCATE L_0004 4688 P=P+1 LINE 4688 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 4689 %END LINE 4689 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CFPLIST {lev=5 --> 4} 4690 %ROUTINE CFPDEL 4691 !*********************************************************************** 4692 !* SET UP PTYPE & ACC FOR A FORMAL PARAMETER DEFINITION * 4693 !* P=<%QNAME'>, * 4694 !* '%RECORD'<%ARRAY'>'%NAME'. * 4695 !* (RT)(%NAME')(NAMELIST)(FPP), * 4696 !* '%NAME'. * 4697 !*********************************************************************** LINE 4690 "regression-compile-tmp/nrimp10s-77.imp" DEF CFPDEL (_lev0id0_lev1id1_lev2id3_CSS_CFPDEL) p1=V_0188 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=5 --> 6, nested=0 --> 1} FINISH ) {lev=5} 4698 %SWITCH FP(1:4) LINE 4698 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 PUSHI #0x00000004 BOUNDS DEF FP p1=V_01e1 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 4699 %INTEGER FPALT LINE 4699 "regression-compile-tmp/nrimp10s-77.imp" DEF FPALT p1=V_01e2 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 4700 FPALT=A(P); P=P+1 LINE 4700 "regression-compile-tmp/nrimp10s-77.imp" PUSH FPALT PUSH A PUSH P ACCESS ASSVAL LINE 4700 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 4701 KFORM=0; LITL=0 LINE 4701 "regression-compile-tmp/nrimp10s-77.imp" PUSH KFORM PUSHI #0x00000000 ASSVAL LINE 4701 "regression-compile-tmp/nrimp10s-77.imp" PUSH LITL PUSHI #0x00000000 ASSVAL 4702 ->FP(FPALT) LINE 4702 "regression-compile-tmp/nrimp10s-77.imp" PUSH FPALT SJUMP 481 4703 FP(1): ! (TYPE)(%QNAME') LINE 4703 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 SLABEL 481 4704 ROUT=0; CLT LINE 4704 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUT PUSHI #0x00000000 ASSVAL LINE 4704 "regression-compile-tmp/nrimp10s-77.imp" PUSH CLT CALL 4705 CQN(P) LINE 4705 "regression-compile-tmp/nrimp10s-77.imp" PUSH CQN PUSH P ASSPAR CALL 4706 FAULT(70,0) %IF TYPE=5 %AND ACC=0 LINE 4706 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000005 JUMPIF # L_0004 PUSH ACC PUSHI #0x00000000 JUMPIF # L_0004 PUSH FAULT PUSHI #0x00000046 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 4707 P=P+1 LINE 4707 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 4708 ->PK LINE 4708 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01e3 4709 FP(2): ! RECORD(%ARRAY')%NAME LINE 4709 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000002 SLABEL 481 4710 ARR=2-A(P); ROUT=0 LINE 4710 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARR PUSHI #0x00000002 PUSH A PUSH P ACCESS SUB ASSVAL LINE 4710 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUT PUSHI #0x00000000 ASSVAL 4711 ACC=8+8*ARR; TYPE=3; PREC=3 LINE 4711 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSHI #0x00000008 PUSHI #0x00000008 PUSH ARR MUL ADD ASSVAL LINE 4711 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000003 ASSVAL LINE 4711 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000003 ASSVAL 4712 NAM=1; P=P+1; ->PK LINE 4712 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000001 ASSVAL LINE 4712 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 4712 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01e3 4713 FP(3): ! (RT)(%NAME')(NAMELIST)(FPP) LINE 4713 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000003 SLABEL 481 4714 ROUT=1; NAM=1 LINE 4714 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUT PUSHI #0x00000001 ASSVAL LINE 4714 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000001 ASSVAL 4715 ARR=0 LINE 4715 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARR PUSHI #0x00000000 ASSVAL 4716 %IF A(P)=1 %THEN %START; ! RT=%ROUITNE LINE 4716 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000001 JUMPIF # L_0004 4717 TYPE=0; PREC=0 LINE 4717 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000000 ASSVAL LINE 4717 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000000 ASSVAL 4718 P=P+2 LINE 4718 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 4719 %FINISH %ELSE %START LINE 4719 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 4720 P=P+1; CLT; ! RT=(TYPE)(FM) LINE 4720 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 4720 "regression-compile-tmp/nrimp10s-77.imp" PUSH CLT CALL 4721 NAM=1 LINE 4721 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000001 ASSVAL 4722 %IF A(P)=2 %THEN NAM=3; ! 1 FOR FN 3 FOR MAP LINE 4722 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000002 JUMPIF # L_0007 PUSH NAM PUSHI #0x00000003 ASSVAL LOCATE L_0007 4723 P=P+2; ! PAST (%NAME') WHICH IS IGNORED LINE 4723 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 4724 %FINISH LINE 4724 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 4725 ACC=16 LINE 4725 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSHI #0x00000010 ASSVAL 4726 ->PK LINE 4726 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01e3 4727 FP(4): ! %NAME LINE 4727 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000004 SLABEL 481 4728 ACC=8; NAM=1 LINE 4728 "regression-compile-tmp/nrimp10s-77.imp" PUSH ACC PUSHI #0x00000008 ASSVAL LINE 4728 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000001 ASSVAL 4729 ROUT=0; TYPE=0 LINE 4729 "regression-compile-tmp/nrimp10s-77.imp" PUSH ROUT PUSHI #0x00000000 ASSVAL LINE 4729 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000000 ASSVAL 4730 ARR=0; PREC=0 LINE 4730 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARR PUSHI #0x00000000 ASSVAL LINE 4730 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000000 ASSVAL 4731 PK: PACK(PTYPE) LINE 4731 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01e3 LINE 4731 "regression-compile-tmp/nrimp10s-77.imp" PUSH PACK PUSH PTYPE ASSPAR CALL 4732 %END LINE 4732 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CFPDEL {lev=5 --> 4} 4733 %ROUTINE DIAG POINTER(%INTEGER LEVEL) LINE 4733 "regression-compile-tmp/nrimp10s-77.imp" DEF DIAGPOINTER (_lev0id0_lev1id1_lev2id3_CSS_DIAGPOINTER) p1=V_019b 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=5 --> 6, nested=0 --> 1} DEF LEVEL p1=V_01e1 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=5} 4734 %IF PARMTRACE#0 %THEN %START LINE 4734 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMTRACE PUSHI #0x00000000 JUMPIF = L_0004 4735 PUSH(RAL(LEVEL),1,CA,LDB<<24!3<<23) LINE 4735 "regression-compile-tmp/nrimp10s-77.imp" PUSH PUSH PUSH RAL PUSH LEVEL ACCESS ASSPAR PUSHI #0x00000001 ASSPAR PUSH CA ASSPAR PUSHI #0x00000076 PUSHI #0x00000018 LSH PUSHI #0x00000003 PUSHI #0x00000017 LSH OR ASSPAR CALL 4736 PF1(LDB,0,0,0) LINE 4736 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000076 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4737 GRUSE(DR)=0 LINE 4737 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000001 ACCESS PUSHI #0x00000000 ASSVAL 4738 %FINISH LINE 4738 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4739 %END LINE 4739 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_DIAGPOINTER {lev=5 --> 4} 4740 %ROUTINE RHEAD(%INTEGER KK) 4741 !*********************************************************************** 4742 !* COMPILES CODE FOR BLOCK AND ROUTINE ENTRY * 4743 !* KK IS THE RT/FN/MAP NAME (=-1 FOR %BEGIN BLOCKS) * 4744 !*********************************************************************** LINE 4740 "regression-compile-tmp/nrimp10s-77.imp" DEF RHEAD (_lev0id0_lev1id1_lev2id3_CSS_RHEAD) p1=V_019d 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=5 --> 6, nested=0 --> 1} DEF KK p1=V_01e1 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=5} 4745 %INTEGER W1, W3, INSRN, AT LINE 4745 "regression-compile-tmp/nrimp10s-77.imp" DEF W1 p1=V_01e2 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 W3 p1=V_01e3 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 INSRN p1=V_01e4 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 AT p1=V_01e5 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 4746 PUSH(LEVELINF, 0, NMAX<<16!N, 0) LINE 4746 "regression-compile-tmp/nrimp10s-77.imp" PUSH PUSH PUSH LEVELINF ASSPAR PUSHI #0x00000000 ASSPAR PUSH NMAX PUSHI #0x00000010 LSH PUSH N OR ASSPAR PUSHI #0x00000000 ASSPAR CALL 4747 LEVEL=LEVEL+1 LINE 4747 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSH LEVEL PUSHI #0x00000001 ADD ASSVAL 4748 NMDECS(LEVEL)=0; AUXSBASE(LEVEL)=0 LINE 4748 "regression-compile-tmp/nrimp10s-77.imp" PUSH NMDECS PUSH LEVEL ACCESS PUSHI #0x00000000 ASSVAL LINE 4748 "regression-compile-tmp/nrimp10s-77.imp" PUSH AUXSBASE PUSH LEVEL ACCESS PUSHI #0x00000000 ASSVAL 4749 NAMES(LEVEL)=-1 LINE 4749 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAMES PUSH LEVEL ACCESS PUSHI #0x00000001 NEGATE ASSVAL 4750 ONINF(LEVEL)=0; ONWORD(LEVEL)=0 LINE 4750 "regression-compile-tmp/nrimp10s-77.imp" PUSH ONINF PUSH LEVEL ACCESS PUSHI #0x00000000 ASSVAL LINE 4750 "regression-compile-tmp/nrimp10s-77.imp" PUSH ONWORD PUSH LEVEL ACCESS PUSHI #0x00000000 ASSVAL 4751 %IF KK>=0 %THEN %START LINE 4751 "regression-compile-tmp/nrimp10s-77.imp" PUSH KK PUSHI #0x00000000 JUMPIF < L_0004 4752 RLEVEL=RLEVEL+1; RBASE=RLEVEL LINE 4752 "regression-compile-tmp/nrimp10s-77.imp" PUSH RLEVEL PUSH RLEVEL PUSHI #0x00000001 ADD ASSVAL LINE 4752 "regression-compile-tmp/nrimp10s-77.imp" PUSH RBASE PUSH RLEVEL ASSVAL 4753 %FINISH LINE 4753 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4754 FAULT(34, 0) %IF LEVEL=MAX LEVELS LINE 4754 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x0000001f JUMPIF # L_0004 PUSH FAULT PUSHI #0x00000022 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 4755 FAULT(105, 0) %IF LEVEL>MAX LEVELS LINE 4755 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x0000001f JUMPIF <= L_0004 PUSH FAULT PUSHI #0x00000069 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 4756 %IF KK>=0 %AND RLEVEL>1 %START;! ROUTINE ENTRY LINE 4756 "regression-compile-tmp/nrimp10s-77.imp" PUSH KK PUSHI #0x00000000 JUMPIF < L_0004 PUSH RLEVEL PUSHI #0x00000001 JUMPIF <= L_0004 4757 COPY TAG(KK); JJ=K; ! LIST OF JUMPS LINE 4757 "regression-compile-tmp/nrimp10s-77.imp" PUSH COPYTAG PUSH KK ASSPAR CALL LINE 4757 "regression-compile-tmp/nrimp10s-77.imp" PUSH JJ PUSH K ASSVAL 4758 J=MIDCELL LINE 4758 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH MIDCELL ASSVAL 4759 %IF J=0 %AND LEVEL>2 %START;! REPLACE 'NOT USED' BIT LINE 4759 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000000 JUMPIF # L_0007 PUSH LEVEL PUSHI #0x00000002 JUMPIF <= L_0007 4760 REPLACE1(TAGS(KK), FROM1(TAGS(KK))&16_FFFF3FFF) LINE 4760 "regression-compile-tmp/nrimp10s-77.imp" PUSH REPLACE1 PUSH TAGS PUSH KK ACCESS ASSPAR PUSH FROM1 PUSH TAGS PUSH KK ACCESS ASSPAR CALL PUSHI #0xffff3fff AND ASSPAR CALL 4761 %FINISH 4762 ! 4763 ! NOW FILL ANY JUMPS TO THIS ROUTINE PLANTED SINCE 4764 ! THE ROUTINESPEC WAS COMPILED. SEE ALSO 'RT JUMP' 4765 ! LINE 4761 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 4766 %WHILE J#0 %CYCLE LINE 4766 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 PUSH J PUSHI #0x00000000 JUMPIF = L_0007 4767 POP(J, INSRN, AT, W1) LINE 4767 "regression-compile-tmp/nrimp10s-77.imp" PUSH POP PUSH J ASSPAR PUSH INSRN ASSPAR PUSH AT ASSPAR PUSH W1 ASSPAR CALL 4768 W3=CA-AT LINE 4768 "regression-compile-tmp/nrimp10s-77.imp" PUSH W3 PUSH CA PUSH AT SUB ASSVAL 4769 W3=W3//2 %IF INSRN>>25=CALL>>1 LINE 4769 "regression-compile-tmp/nrimp10s-77.imp" PUSH INSRN PUSHI #0x00000019 RSH PUSHI #0x0000001e PUSHI #0x00000001 RSH JUMPIF # L_000a PUSH W3 PUSH W3 PUSHI #0x00000002 QUOT ASSVAL LOCATE L_000a 4770 INSRN=INSRN+W3 LINE 4770 "regression-compile-tmp/nrimp10s-77.imp" PUSH INSRN PUSH INSRN PUSH W3 ADD ASSVAL 4771 PLUG(1, AT, INSRN,4) LINE 4771 "regression-compile-tmp/nrimp10s-77.imp" PUSH PLUG PUSHI #0x00000001 ASSPAR PUSH AT ASSPAR PUSH INSRN ASSPAR PUSHI #0x00000004 ASSPAR CALL 4772 %REPEAT LINE 4772 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_0006 LOCATE L_0007 4773 REPLACE2(TAGS(KK), CA); ! NOTE ADDR FOR FUTURE CALLS LINE 4773 "regression-compile-tmp/nrimp10s-77.imp" PUSH REPLACE2 PUSH TAGS PUSH KK ACCESS ASSPAR PUSH CA ASSPAR CALL 4774 %FINISH LINE 4774 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4775 %IF KK>=0 %AND RLEVEL=1 %THEN DIAG POINTER(LEVEL) %AND PSF1(STD,1,12) LINE 4775 "regression-compile-tmp/nrimp10s-77.imp" PUSH KK PUSHI #0x00000000 JUMPIF < L_0004 PUSH RLEVEL PUSHI #0x00000001 JUMPIF # L_0004 PUSH DIAGPOINTER PUSH LEVEL ASSPAR CALL PUSH PSF1 PUSHI #0x00000058 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x0000000c ASSPAR CALL LOCATE L_0004 4776 %IF KK<0 %THEN W3=0 %ELSE W3=WORD(KK) LINE 4776 "regression-compile-tmp/nrimp10s-77.imp" PUSH KK PUSHI #0x00000000 JUMPIF >= L_0004 PUSH W3 PUSHI #0x00000000 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH W3 PUSH WORD PUSH KK ACCESS ASSVAL LOCATE L_0003 4777 L(LEVEL)=LINE; M(LEVEL)=W3 LINE 4777 "regression-compile-tmp/nrimp10s-77.imp" PUSH L PUSH LEVEL ACCESS PUSH LINE ASSVAL LINE 4777 "regression-compile-tmp/nrimp10s-77.imp" PUSH M PUSH LEVEL ACCESS PUSH W3 ASSVAL 4778 FLAG(LEVEL)=PTYPE; ! CURRENT BLOCK TYPE MARKER LINE 4778 "regression-compile-tmp/nrimp10s-77.imp" PUSH FLAG PUSH LEVEL ACCESS PUSH PTYPE ASSVAL 4779 %END LINE 4779 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_RHEAD {lev=5 --> 4} 4780 %ROUTINE RDISPLAY(%INTEGER KK) 4781 !*********************************************************************** 4782 !* SET UP OR COPY THE DISPLAY (A WORD ARRAY CONTAINING COPIES OF * 4783 !* LNB FOR THE GLOBAL LEVELS. THE HIGHEST LEVEL ENTRY IS TO THE * 4784 !* GLA(PLT) FOR OWNS AND IS ALSO KEPT IN(LNB+4) IN CASE WE WISH * 4785 !* TO MOVE TO READ-ONLY PLTS. ON INTERNAL CALLS THE LNB FOR THE * 4786 !* NEXT MOST GLOBAL LEVEL IS STACKED AS AN EXTRA PARAMETER * 4787 !*********************************************************************** LINE 4780 "regression-compile-tmp/nrimp10s-77.imp" DEF RDISPLAY (_lev0id0_lev1id1_lev2id3_CSS_RDISPLAY) p1=V_019c 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=5 --> 6, nested=0 --> 1} DEF KK p1=V_01e1 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=5} 4788 %INTEGER W1,W2,STACK,OP,INC LINE 4788 "regression-compile-tmp/nrimp10s-77.imp" DEF W1 p1=V_01e2 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 W2 p1=V_01e3 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 STACK p1=V_01e4 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_01e5 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 INC p1=V_01e6 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 4789 %IF KK>=0 %OR LEVEL=2 %START; ! DISPLAY NEEDED LINE 4789 "regression-compile-tmp/nrimp10s-77.imp" PUSH KK PUSHI #0x00000000 JUMPIF >= L_0005 PUSH LEVEL PUSHI #0x00000002 JUMPIF # L_0004 LOCATE L_0005 4790 STACK=0; DISPLAY(RLEVEL)=N LINE 4790 "regression-compile-tmp/nrimp10s-77.imp" PUSH STACK PUSHI #0x00000000 ASSVAL LINE 4790 "regression-compile-tmp/nrimp10s-77.imp" PUSH DISPLAY PUSH RLEVEL ACCESS PUSH N ASSVAL 4791 GRUSE(XNB)=0 LINE 4791 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000003 ACCESS PUSHI #0x00000000 ASSVAL 4792 GRUSE(CTB)=0; GRUSE(BREG)=0 LINE 4792 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000005 ACCESS PUSHI #0x00000000 ASSVAL LINE 4792 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000007 ACCESS PUSHI #0x00000000 ASSVAL 4793 %IF LEVEL#2 %THEN %START 4794 ! PF1(LXN,0,TOS,0) LINE 4793 "regression-compile-tmp/nrimp10s-77.imp" PUSH LEVEL PUSHI #0x00000002 JUMPIF = L_0007 4795 GRUSE(XNB)=4; GRINF1(XNB)=RLEVEL-1; GRAT(XNB)=CA LINE 4795 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000003 ACCESS PUSHI #0x00000004 ASSVAL LINE 4795 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRINF1 PUSHI #0x00000003 ACCESS PUSH RLEVEL PUSHI #0x00000001 SUB ASSVAL LINE 4795 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRAT PUSHI #0x00000003 ACCESS PUSH CA ASSVAL 4796 PF1(LD,0,XNB,12); ! COPY PLT DESCRIPTOR LINE 4796 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000078 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000003 ASSPAR PUSHI #0x0000000c ASSPAR CALL 4797 DIAG POINTER(LEVEL) LINE 4797 "regression-compile-tmp/nrimp10s-77.imp" PUSH DIAGPOINTER PUSH LEVEL ASSPAR CALL 4798 PSF1(STD,1,12) LINE 4798 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000058 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x0000000c ASSPAR CALL 4799 W1=RLEVEL-1; W2=DISPLAY(W1) LINE 4799 "regression-compile-tmp/nrimp10s-77.imp" PUSH W1 PUSH RLEVEL PUSHI #0x00000001 SUB ASSVAL LINE 4799 "regression-compile-tmp/nrimp10s-77.imp" PUSH W2 PUSH DISPLAY PUSH W1 ACCESS ASSVAL 4800 %IF W1=1 %THEN PF1(STXN,0,TOS,0) %AND N=N+4 %ELSE %START LINE 4800 "regression-compile-tmp/nrimp10s-77.imp" PUSH W1 PUSHI #0x00000001 JUMPIF # L_000a PUSH PF1 PUSHI #0x0000004c ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL PUSH N PUSH N PUSHI #0x00000004 ADD ASSVAL GOTO L_0009 LOCATE L_000a 4801 %WHILE W1>0 %CYCLE LINE 4801 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000c PUSH W1 PUSHI #0x00000000 JUMPIF <= L_000d 4802 OP=LSS; INC=1 LINE 4802 "regression-compile-tmp/nrimp10s-77.imp" PUSH OP PUSHI #0x00000062 ASSVAL LINE 4802 "regression-compile-tmp/nrimp10s-77.imp" PUSH INC PUSHI #0x00000001 ASSVAL 4803 %IF W1>=2 %THEN OP=LSD %AND INC=2 LINE 4803 "regression-compile-tmp/nrimp10s-77.imp" PUSH W1 PUSHI #0x00000002 JUMPIF < L_0010 PUSH OP PUSHI #0x00000064 ASSVAL PUSH INC PUSHI #0x00000002 ASSVAL LOCATE L_0010 4804 %IF W1>=4 %THEN OP=LSQ %AND INC=4 LINE 4804 "regression-compile-tmp/nrimp10s-77.imp" PUSH W1 PUSHI #0x00000004 JUMPIF < L_0010 PUSH OP PUSHI #0x00000066 ASSVAL PUSH INC PUSHI #0x00000004 ASSVAL LOCATE L_0010 4805 PF1(OP+STACK,0,XNB,W2) LINE 4805 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSH OP PUSH STACK ADD ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000003 ASSPAR PUSH W2 ASSPAR CALL 4806 STACK=-32; N=N+4*INC LINE 4806 "regression-compile-tmp/nrimp10s-77.imp" PUSH STACK PUSHI #0x00000020 NEGATE ASSVAL LINE 4806 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSHI #0x00000004 PUSH INC MUL ADD ASSVAL 4807 W2=W2+4*INC; W1=W1-INC LINE 4807 "regression-compile-tmp/nrimp10s-77.imp" PUSH W2 PUSH W2 PUSHI #0x00000004 PUSH INC MUL ADD ASSVAL LINE 4807 "regression-compile-tmp/nrimp10s-77.imp" PUSH W1 PUSH W1 PUSH INC SUB ASSVAL 4808 %REPEAT LINE 4808 "regression-compile-tmp/nrimp10s-77.imp" REPEAT L_000c LOCATE L_000d 4809 %FINISH LINE 4809 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 4810 %FINISH LINE 4810 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 4811 %IF STACK#0 %THEN PF1(ST,0,TOS,0); ! ST TOS LINE 4811 "regression-compile-tmp/nrimp10s-77.imp" PUSH STACK PUSHI #0x00000000 JUMPIF = L_0007 PUSH PF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0007 4812 PF1(STLN,0,TOS,0) LINE 4812 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000005c ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4813 N=N+4 LINE 4813 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSHI #0x00000004 ADD ASSVAL 4814 %FINISH 4815 ! 4816 ! IF IN DIAGNOSTIC MODE PLANT CODE TO SAVE THE LINE & ROUTINE NO OF 4817 ! THE CALLING ROUTINE AND SET UP THE NEW BLOCK/ROUTINE IDENT NO. 4818 ! LINE 4814 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4819 %IF PARMTRACE#0 %START LINE 4819 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMTRACE PUSHI #0x00000000 JUMPIF = L_0004 4820 PF1(LSS,0,PC,4*CONST BTM!16_80000000) %IF PARMOPT#0;! M'IDIA' LINE 4820 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMOPT PUSHI #0x00000000 JUMPIF = L_0007 PUSH PF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR PUSHI #0x00000004 PUSH CONSTBTM MUL PUSHI #0x80000000 OR ASSPAR CALL LOCATE L_0007 4821 %IF KK>=0 %OR LEVEL=2 %START LINE 4821 "regression-compile-tmp/nrimp10s-77.imp" PUSH KK PUSHI #0x00000000 JUMPIF >= L_0008 PUSH LEVEL PUSHI #0x00000002 JUMPIF # L_0007 LOCATE L_0008 4822 %IF PARMOPT#0 %THEN %START LINE 4822 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMOPT PUSHI #0x00000000 JUMPIF = L_000a 4823 PSF1(SLSS,0,LINE) LINE 4823 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000042 ASSPAR PUSHI #0x00000000 ASSPAR PUSH LINE ASSPAR CALL 4824 N=N+4 LINE 4824 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSHI #0x00000004 ADD ASSVAL 4825 %FINISH %ELSE PSF1(LSS,0,LINE) LINE 4825 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0009 LOCATE L_000a PUSH PSF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000000 ASSPAR PUSH LINE ASSPAR CALL LOCATE L_0009 4826 PF1(ST,0,TOS,0) LINE 4826 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4827 %FINISH %ELSE %START LINE 4827 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 4828 %IF PARMOPT#0 %THEN %START LINE 4828 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMOPT PUSHI #0x00000000 JUMPIF = L_000a 4829 PSF1(ST,1,N) LINE 4829 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000001 ASSPAR PUSH N ASSPAR CALL 4830 N=N+4 LINE 4830 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSHI #0x00000004 ADD ASSVAL 4831 %FINISH LINE 4831 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_000a 4832 PSF1(LSS,0,LINE) LINE 4832 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000000 ASSPAR PUSH LINE ASSPAR CALL 4833 PSF1(ST,1,N) LINE 4833 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000001 ASSPAR PUSH N ASSPAR CALL 4834 PSF1(LD,1,12); ! UPDATE BND FIELD LINE 4834 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000078 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x0000000c ASSPAR CALL 4835 DIAG POINTER(LEVEL) LINE 4835 "regression-compile-tmp/nrimp10s-77.imp" PUSH DIAGPOINTER PUSH LEVEL ASSPAR CALL 4836 PSF1(STD,1,12) LINE 4836 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000058 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x0000000c ASSPAR CALL 4837 %FINISH LINE 4837 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 4838 DIAGINF(LEVEL)=N LINE 4838 "regression-compile-tmp/nrimp10s-77.imp" PUSH DIAGINF PUSH LEVEL ACCESS PUSH N ASSVAL 4839 N=N+4 LINE 4839 "regression-compile-tmp/nrimp10s-77.imp" PUSH N PUSH N PUSHI #0x00000004 ADD ASSVAL 4840 GRUSE(ACCR)=0; ! NEEDED FOR %BEGIN BLOCKS LINE 4840 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL 4841 %FINISH LINE 4841 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4842 %IF PARMOPT#0 %AND KK>=0 %AND LEVEL=2 %START LINE 4842 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMOPT PUSHI #0x00000000 JUMPIF = L_0004 PUSH KK PUSHI #0x00000000 JUMPIF < L_0004 PUSH LEVEL PUSHI #0x00000002 JUMPIF # L_0004 4843 PF1(STSF,0,BREG,0) LINE 4843 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000005e ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000007 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4844 PF1(STLN,0,TOS,0) LINE 4844 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000005c ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4845 PF1(SBB,0,TOS,0) LINE 4845 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000022 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4846 PSF1(CPB,0,N) LINE 4846 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000026 ASSPAR PUSHI #0x00000000 ASSPAR PUSH N ASSPAR CALL 4847 PPJ(7,13) LINE 4847 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPJ PUSHI #0x00000007 ASSPAR PUSHI #0x0000000d ASSPAR CALL 4848 %FINISH 4849 ! 4850 ! CLAIM (THE REST OF) THE STACK FRAME 4851 ! LINE 4848 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4852 %IF KK>=0 %OR LEVEL=2 %START LINE 4852 "regression-compile-tmp/nrimp10s-77.imp" PUSH KK PUSHI #0x00000000 JUMPIF >= L_0005 PUSH LEVEL PUSHI #0x00000002 JUMPIF # L_0004 LOCATE L_0005 4853 SET(RLEVEL)=N<<18!CA LINE 4853 "regression-compile-tmp/nrimp10s-77.imp" PUSH SET PUSH RLEVEL ACCESS PUSH N PUSHI #0x00000012 LSH PUSH CA OR ASSVAL 4854 NMAX=N LINE 4854 "regression-compile-tmp/nrimp10s-77.imp" PUSH NMAX PUSH N ASSVAL 4855 PF1(ASF+12*PARMCHK,0,0,0); ! ASF OR LB LINE 4855 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000006e PUSHI #0x0000000c PUSH PARMCHK MUL ADD ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4856 PPJ(0,4) %IF PARMCHK#0 LINE 4856 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMCHK PUSHI #0x00000000 JUMPIF = L_0007 PUSH PPJ PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR CALL LOCATE L_0007 4857 %FINISH 4858 ! LINE 4857 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4859 %IF KK>=0 %AND PARMCHK#0 %START LINE 4859 "regression-compile-tmp/nrimp10s-77.imp" PUSH KK PUSHI #0x00000000 JUMPIF < L_0004 PUSH PARMCHK PUSHI #0x00000000 JUMPIF = L_0004 4860 CHECK STOF; ! CHECK FOR STACK O'FLOW LINE 4860 "regression-compile-tmp/nrimp10s-77.imp" PUSH CHECKSTOF CALL 4861 %FINISH LINE 4861 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4862 %IF PARMDBUG#0 %THEN SET LINE; ! TO CALL DBUG PACKAGE LINE 4862 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMDBUG PUSHI #0x00000000 JUMPIF = L_0004 PUSH SETLINE CALL LOCATE L_0004 4863 %END LINE 4863 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_RDISPLAY {lev=5 --> 4} 4864 %ROUTINE CHECK STOF 4865 !*********************************************************************** 4866 !* CHECK THE STACK FOR OVERFLOW (LEAVING 4K MARGIN FOR MDIAG * 4867 !*********************************************************************** LINE 4864 "regression-compile-tmp/nrimp10s-77.imp" DEF CHECKSTOF (_lev0id0_lev1id1_lev2id3_CSS_CHECKSTOF) p1=V_0166 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=5 --> 6, nested=0 --> 1} FINISH ) {lev=5} 4868 %IF PARMOPT#0 %THEN %START 4869 ! 4870 ! STSF TOS GET STACK POINTER 4871 ! LSS TOS 4872 ! USH +14 4873 ! USH -15 LOSE SEGMENT NO 4874 ! ICP 16_1F800 CHECK WITHIN SEG ADDRESS 4875 ! SHIFTED DOWN 1 PLACE 4876 ! JCC 2,EXCESS BLKS 4877 ! LINE 4868 "regression-compile-tmp/nrimp10s-77.imp" PUSH PARMOPT PUSHI #0x00000000 JUMPIF = L_0004 4878 PF1(STSF,0,TOS,0) LINE 4878 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000005e ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4879 PF1(LSS,0,TOS,0) LINE 4879 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4880 PSF1(USH,0,14) LINE 4880 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x000000c8 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x0000000e ASSPAR CALL 4881 PSF1(USH,0,-15) LINE 4881 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x000000c8 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x0000000f NEGATE ASSPAR CALL 4882 PF1(ICP,0,0,ST LIMIT>>1) LINE 4882 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x000000e6 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSH STLIMIT PUSHI #0x00000001 RSH ASSPAR CALL 4883 PPJ(2,8) LINE 4883 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPJ PUSHI #0x00000002 ASSPAR PUSHI #0x00000008 ASSPAR CALL 4884 %FINISH LINE 4884 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4885 %END; ! OF ROUTINE RHEAD LINE 4885 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CHECKSTOF {lev=5 --> 4} 4886 %ROUTINE CIOCP(%INTEGER N,REG) 4887 !*********************************************************************** 4888 !* COMPILES A CALL ON IOCP ENTRY POINT NO 'N' * 4889 !* 2ND PARAMETER IS ALREAD IN THE ACC WHICH IS 32 BITS * 4890 !*********************************************************************** LINE 4886 "regression-compile-tmp/nrimp10s-77.imp" DEF CIOCP (_lev0id0_lev1id1_lev2id3_CSS_CIOCP) p1=V_01e1 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=5 --> 6, nested=0 --> 1} DEF N p1=V_01e2 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 REG p1=V_01e3 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=5} 4891 %INTEGER XYNB,OP1,OP2 LINE 4891 "regression-compile-tmp/nrimp10s-77.imp" DEF XYNB p1=V_01e4 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 OP1 p1=V_01e5 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 OP2 p1=V_01e6 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 4892 %IF IOCPDISP=0 %THEN CXREF(IOCPEP,PARMDYNAMIC,2,IOCPDISP) LINE 4892 "regression-compile-tmp/nrimp10s-77.imp" PUSH IOCPDISP PUSHI #0x00000000 JUMPIF # L_0004 PUSH CXREF PUSH IOCPEP ASSPAR PUSH PARMDYNAMIC ASSPAR PUSHI #0x00000002 ASSPAR PUSH IOCPDISP ASSPAR CALL LOCATE L_0004 4893 %IF REGISTER(BREG)#0 %THEN BOOT OUT(BREG) LINE 4893 "regression-compile-tmp/nrimp10s-77.imp" PUSH REGISTER PUSHI #0x00000007 ACCESS PUSHI #0x00000000 JUMPIF = L_0004 PUSH BOOTOUT PUSHI #0x00000007 ASSPAR CALL LOCATE L_0004 4894 %IF REG=ACCR %THEN OP1=LUH %AND OP2=ST %ELSE OP1=LDTB %AND OP2=STD LINE 4894 "regression-compile-tmp/nrimp10s-77.imp" PUSH REG PUSHI #0x00000000 JUMPIF # L_0004 PUSH OP1 PUSHI #0x0000006a ASSVAL PUSH OP2 PUSHI #0x00000048 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH OP1 PUSHI #0x00000074 ASSVAL PUSH OP2 PUSHI #0x00000058 ASSVAL LOCATE L_0003 4895 PSF1(OP1,0,N) LINE 4895 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSH OP1 ASSPAR PUSHI #0x00000000 ASSPAR PUSH N ASSPAR CALL 4896 PSF1(PRCL,0,4) LINE 4896 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000018 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR CALL 4897 PF1(OP2,0,TOS,0) LINE 4897 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSH OP2 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4898 XYNB=SET XORYNB(-1,-1); ! TO PLT LINE 4898 "regression-compile-tmp/nrimp10s-77.imp" PUSH XYNB PUSH SETXORYNB PUSHI #0x00000001 NEGATE ASSPAR PUSHI #0x00000001 NEGATE ASSPAR CALL ASSVAL 4899 PSF1(RALN,0,7) LINE 4899 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000006c ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000007 ASSPAR CALL 4900 PF1(CALL,2,XYNB,IOCPDISP) LINE 4900 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000001e ASSPAR PUSHI #0x00000002 ASSPAR PUSH XYNB ASSPAR PUSH IOCPDISP ASSPAR CALL 4901 FORGET(-1) LINE 4901 "regression-compile-tmp/nrimp10s-77.imp" PUSH FORGET PUSHI #0x00000001 NEGATE ASSPAR CALL 4902 %END LINE 4902 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CIOCP {lev=5 --> 4} 4903 %ROUTINE CUI(%INTEGER CODE) 4904 !*********************************************************************** 4905 !* COMPILE AN UNCONDITIONAL INSTRN WHEREEVER IT OCCURS * 4906 !* CODE=0 UNCONDITIOALLY,=1 AFTER %THEN, =2 AFTER %ELSE * 4907 !*********************************************************************** LINE 4903 "regression-compile-tmp/nrimp10s-77.imp" DEF CUI (_lev0id0_lev1id1_lev2id3_CSS_CUI) p1=V_016e 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=5 --> 6, nested=0 --> 1} DEF CODE p1=V_01e2 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=5} 4908 %INTEGER MARKER,J,LNAME,TYPEP,PRECP,GWRDD,LWB,XYNB,ARRP,ALT LINE 4908 "regression-compile-tmp/nrimp10s-77.imp" DEF MARKER p1=V_01e3 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_01e4 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 LNAME p1=V_01e5 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 TYPEP p1=V_01e6 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 PRECP p1=V_01e7 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 GWRDD p1=V_01e8 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 LWB p1=V_01e9 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 XYNB p1=V_01ea 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 ARRP p1=V_01eb 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 ALT p1=V_01ec 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 4909 %SWITCH SW(1:9) LINE 4909 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 PUSHI #0x00000009 BOUNDS DEF SW p1=V_01ed 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 4910 REPORTUI=0 LINE 4910 "regression-compile-tmp/nrimp10s-77.imp" PUSH REPORTUI PUSHI #0x00000000 ASSVAL 4911 ALT=A(P) LINE 4911 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSH A PUSH P ACCESS ASSVAL 4912 ->SW(ALT) LINE 4912 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT SJUMP 493 4913 SW(1): ! (NAME)(APP)(ASSMNT?) LINE 4913 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 SLABEL 493 4914 P=P+1; MARKER=P+FROMAR2(P) LINE 4914 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 4914 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKER PUSH P PUSH FROMAR2 PUSH P ASSPAR CALL ADD ASSVAL 4915 %IF A(MARKER)=1 %THEN %START LINE 4915 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH MARKER ACCESS PUSHI #0x00000001 JUMPIF # L_0004 4916 J=P+2; P=MARKER+2 LINE 4916 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH P PUSHI #0x00000002 ADD ASSVAL LINE 4916 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH MARKER PUSHI #0x00000002 ADD ASSVAL 4917 ASSIGN(A(MARKER+1),J) LINE 4917 "regression-compile-tmp/nrimp10s-77.imp" PUSH ASSIGN PUSH A PUSH MARKER PUSHI #0x00000001 ADD ACCESS ASSPAR PUSH J ASSPAR CALL 4918 %FINISH %ELSE %START LINE 4918 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 4919 P=P+2 LINE 4919 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 4920 CNAME(0,0) LINE 4920 "regression-compile-tmp/nrimp10s-77.imp" PUSH CNAME PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4921 P=P+1 LINE 4921 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 4922 %FINISH LINE 4922 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 4923 AUI: J=A(P); P=P+1 LINE 4923 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01ee LINE 4923 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH A PUSH P ACCESS ASSVAL LINE 4923 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 4924 %IF J=1 %THEN CUI(CODE) LINE 4924 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000001 JUMPIF # L_0004 PUSH CUI PUSH CODE ASSPAR CALL LOCATE L_0004 4925 %RETURN LINE 4925 "regression-compile-tmp/nrimp10s-77.imp" RETURN 4926 SW(2): ! -> (NAME)(APP) LINE 4926 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000002 SLABEL 493 4927 NMDECS(LEVEL)=NMDECS(LEVEL)!1 LINE 4927 "regression-compile-tmp/nrimp10s-77.imp" PUSH NMDECS PUSH LEVEL ACCESS PUSH NMDECS PUSH LEVEL ACCESS PUSHI #0x00000001 OR ASSVAL 4928 CURR INST=1 %IF CODE=0 LINE 4928 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSHI #0x00000000 JUMPIF # L_0004 PUSH CURRINST PUSHI #0x00000001 ASSVAL LOCATE L_0004 4929 LNAME=FROM AR2(P+1) LINE 4929 "regression-compile-tmp/nrimp10s-77.imp" PUSH LNAME PUSH FROMAR2 PUSH P PUSHI #0x00000001 ADD ASSPAR CALL ASSVAL 4930 J=A(P+3); P=P+4 LINE 4930 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH A PUSH P PUSHI #0x00000003 ADD ACCESS ASSVAL LINE 4930 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000004 ADD ASSVAL 4931 %IF J=2 %THEN %START; ! SIMPLE LABEL LINE 4931 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSHI #0x00000002 JUMPIF # L_0004 4932 ENTER JUMP(15,LNAME,0) LINE 4932 "regression-compile-tmp/nrimp10s-77.imp" PUSH ENTERJUMP PUSHI #0x0000000f ASSPAR PUSH LNAME ASSPAR PUSHI #0x00000000 ASSPAR CALL 4933 REPORTUI=1 LINE 4933 "regression-compile-tmp/nrimp10s-77.imp" PUSH REPORTUI PUSHI #0x00000001 ASSVAL 4934 %FINISH %ELSE %START; ! SWITCH LABELS LINE 4934 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 4935 COPY TAG(LNAME) LINE 4935 "regression-compile-tmp/nrimp10s-77.imp" PUSH COPYTAG PUSH LNAME ASSPAR CALL 4936 ARRP=ARR LINE 4936 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARRP PUSH ARR ASSVAL 4937 GWRDD=SNDISP<<2; ! BYTE DISP OF DESCRIPTOR IN PLT LINE 4937 "regression-compile-tmp/nrimp10s-77.imp" PUSH GWRDD PUSH SNDISP PUSHI #0x00000002 LSH ASSVAL 4938 %UNLESS OLDI=LEVEL %AND TYPE=6 %START LINE 4938 "regression-compile-tmp/nrimp10s-77.imp" PUSH OLDI PUSH LEVEL JUMPIF # L_0008 PUSH TYPE PUSHI #0x00000006 JUMPIF = L_0007 LOCATE L_0008 4939 FAULT(4,LNAME); P=P-1; SKIP APP LINE 4939 "regression-compile-tmp/nrimp10s-77.imp" PUSH FAULT PUSHI #0x00000004 ASSPAR PUSH LNAME ASSPAR CALL LINE 4939 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 SUB ASSVAL LINE 4939 "regression-compile-tmp/nrimp10s-77.imp" PUSH SKIPAPP CALL 4940 %RETURN LINE 4940 "regression-compile-tmp/nrimp10s-77.imp" RETURN 4941 %FINISH LINE 4941 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 4942 LWB=FROM2(K); ! GET LOWER BOUND LINE 4942 "regression-compile-tmp/nrimp10s-77.imp" PUSH LWB PUSH FROM2 PUSH K ASSPAR CALL ASSVAL 4943 CSEXP(BREG,16_51) LINE 4943 "regression-compile-tmp/nrimp10s-77.imp" PUSH CSEXP PUSHI #0x00000007 ASSPAR PUSHI #0x00000051 ASSPAR CALL 4944 %IF ARRP=1 %THEN PSF1(SBB,0,LWB) LINE 4944 "regression-compile-tmp/nrimp10s-77.imp" PUSH ARRP PUSHI #0x00000001 JUMPIF # L_0007 PUSH PSF1 PUSHI #0x00000022 ASSPAR PUSHI #0x00000000 ASSPAR PUSH LWB ASSPAR CALL LOCATE L_0007 4945 XYNB=SET XORYNB(-1,-1); ! TO PLT LINE 4945 "regression-compile-tmp/nrimp10s-77.imp" PUSH XYNB PUSH SETXORYNB PUSHI #0x00000001 NEGATE ASSPAR PUSHI #0x00000001 NEGATE ASSPAR CALL ASSVAL 4946 PF1(JUNC,3,XYNB,GWRDD); ! JUMP INDIRECT VIA WORD ARRAY 4947 ! OF 32 BIT RELOCATED ADDRESSES LINE 4946 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000001a ASSPAR PUSHI #0x00000003 ASSPAR PUSH XYNB ASSPAR PUSH GWRDD ASSPAR CALL 4948 REPORTUI=1; FORGET(-1) LINE 4948 "regression-compile-tmp/nrimp10s-77.imp" PUSH REPORTUI PUSHI #0x00000001 ASSVAL LINE 4948 "regression-compile-tmp/nrimp10s-77.imp" PUSH FORGET PUSHI #0x00000001 NEGATE ASSPAR CALL 4949 %FINISH LINE 4949 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0003 4950 %RETURN LINE 4950 "regression-compile-tmp/nrimp10s-77.imp" RETURN 4951 SW(3): ! RETURN LINE 4951 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000003 SLABEL 493 4952 FAULT(30,0) %UNLESS FLAG(LEVEL)&16_3FFF=16_1000 LINE 4952 "regression-compile-tmp/nrimp10s-77.imp" PUSH FLAG PUSH LEVEL ACCESS PUSHI #0x00003fff AND PUSHI #0x00001000 JUMPIF = L_0004 PUSH FAULT PUSHI #0x0000001e ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 4953 P=P+1 LINE 4953 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 4954 RET: RT EXIT LINE 4954 "regression-compile-tmp/nrimp10s-77.imp" LABEL L_01ef LINE 4954 "regression-compile-tmp/nrimp10s-77.imp" PUSH RTEXIT CALL 4955 REPORT UI=1 LINE 4955 "regression-compile-tmp/nrimp10s-77.imp" PUSH REPORTUI PUSHI #0x00000001 ASSVAL 4956 CURR INST=1 %IF CODE=0 LINE 4956 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSHI #0x00000000 JUMPIF # L_0004 PUSH CURRINST PUSHI #0x00000001 ASSVAL LOCATE L_0004 4957 %RETURN LINE 4957 "regression-compile-tmp/nrimp10s-77.imp" RETURN 4958 SW(4): ! %RESULT(ASSOP)(EXPR) LINE 4958 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000004 SLABEL 493 4959 PTYPE=FLAG(LEVEL)&16_3FFF; UNPACK LINE 4959 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSH FLAG PUSH LEVEL ACCESS PUSHI #0x00003fff AND ASSVAL LINE 4959 "regression-compile-tmp/nrimp10s-77.imp" PUSH UNPACK CALL 4960 %IF PTYPE>16_1000 %AND A(P+1)#3 %THEN %START;! ASSOP #'->' LINE 4960 "regression-compile-tmp/nrimp10s-77.imp" PUSH PTYPE PUSHI #0x00001000 JUMPIF <= L_0004 PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000003 JUMPIF = L_0004 4961 %IF A(P+1)=1 %AND NAM#0 %AND A(P+5)=4 %AND A(P+6)=1 %START LINE 4961 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000001 JUMPIF # L_0007 PUSH NAM PUSHI #0x00000000 JUMPIF = L_0007 PUSH A PUSH P PUSHI #0x00000005 ADD ACCESS PUSHI #0x00000004 JUMPIF # L_0007 PUSH A PUSH P PUSHI #0x00000006 ADD ACCESS PUSHI #0x00000001 JUMPIF # L_0007 4962 P=P+7; TYPEP=TYPE; PRECP=PREC LINE 4962 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000007 ADD ASSVAL LINE 4962 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPEP PUSH TYPE ASSVAL LINE 4962 "regression-compile-tmp/nrimp10s-77.imp" PUSH PRECP PUSH PREC ASSVAL 4963 CNAME(4,ACCR) LINE 4963 "regression-compile-tmp/nrimp10s-77.imp" PUSH CNAME PUSHI #0x00000004 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4964 FAULT(81,0) %UNLESS A(P)=2; P=P+1 LINE 4964 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P ACCESS PUSHI #0x00000002 JUMPIF = L_000a PUSH FAULT PUSHI #0x00000051 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_000a LINE 4964 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 4965 FAULT(83,0) %UNLESS TYPEP=TYPE %AND PRECP=PREC LINE 4965 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPEP PUSH TYPE JUMPIF # L_000b PUSH PRECP PUSH PREC JUMPIF = L_000a LOCATE L_000b PUSH FAULT PUSHI #0x00000053 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_000a 4966 ->RET LINE 4966 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01ef 4967 %FINISH LINE 4967 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 4968 %IF A(P+1)=2 %THEN %START; ! ASSOP='=' LINE 4968 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000001 ADD ACCESS PUSHI #0x00000002 JUMPIF # L_0007 4969 P=P+2 LINE 4969 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL 4970 %IF NAM#0 %THEN TYPE=1; ! MAPS HAVE INTEGER RESULTS LINE 4970 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000000 JUMPIF = L_000a PUSH TYPE PUSHI #0x00000001 ASSVAL LOCATE L_000a 4971 %IF TYPE=5 %THEN %START LINE 4971 "regression-compile-tmp/nrimp10s-77.imp" PUSH TYPE PUSHI #0x00000005 JUMPIF # L_000a 4972 CSTREXP(0,ACCR) LINE 4972 "regression-compile-tmp/nrimp10s-77.imp" PUSH CSTREXP PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4973 PSF1(LD,1,DISPLAY(RBASE)-8); ! RESULT DESCRPT LINE 4973 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000078 ASSPAR PUSHI #0x00000001 ASSPAR PUSH DISPLAY PUSH RBASE ACCESS PUSHI #0x00000008 SUB ASSPAR CALL 4974 PF1(IAD,0,PC,SPECIAL CONSTS(2)) LINE 4974 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x000000e0 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR PUSH SPECIALCONSTS PUSHI #0x00000002 ASSPAR CALL ASSPAR CALL 4975 PF2(MV,1,1,0,0,UNASSPAT&255) LINE 4975 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF2 PUSHI #0x000000b2 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x81818181 PUSHI #0x000000ff AND ASSPAR CALL 4976 PSF1(LDB,2,DISPLAY(RBASE)-8) LINE 4976 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000076 ASSPAR PUSHI #0x00000002 ASSPAR PUSH DISPLAY PUSH RBASE ACCESS PUSHI #0x00000008 SUB ASSPAR CALL 4977 COPY DR LINE 4977 "regression-compile-tmp/nrimp10s-77.imp" PUSH COPYDR CALL 4978 %FINISH %ELSE %START LINE 4978 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0009 LOCATE L_000a 4979 %IF PREC<5 %THEN PREC=5 LINE 4979 "regression-compile-tmp/nrimp10s-77.imp" PUSH PREC PUSHI #0x00000005 JUMPIF >= L_000d PUSH PREC PUSHI #0x00000005 ASSVAL LOCATE L_000d 4980 %IF NAM=0 %THEN KK=PREC<<4!TYPE %ELSE KK=16_51 LINE 4980 "regression-compile-tmp/nrimp10s-77.imp" PUSH NAM PUSHI #0x00000000 JUMPIF # L_000d PUSH KK PUSH PREC PUSHI #0x00000004 LSH PUSH TYPE OR ASSVAL GOTO L_000c LOCATE L_000d PUSH KK PUSHI #0x00000051 ASSVAL LOCATE L_000c 4981 CSEXP(ACCR,KK) LINE 4981 "regression-compile-tmp/nrimp10s-77.imp" PUSH CSEXP PUSHI #0x00000000 ASSPAR PUSH KK ASSPAR CALL 4982 %FINISH; ->RET LINE 4982 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0009 LINE 4982 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01ef 4983 %FINISH LINE 4983 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 4984 %FINISH LINE 4984 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 4985 FAULT(31,0) LINE 4985 "regression-compile-tmp/nrimp10s-77.imp" PUSH FAULT PUSHI #0x0000001f ASSPAR PUSHI #0x00000000 ASSPAR CALL 4986 P=P+2; SKIP EXP; ! IGNORE SPURIOUS RESULT LINE 4986 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000002 ADD ASSVAL LINE 4986 "regression-compile-tmp/nrimp10s-77.imp" PUSH SKIPEXP CALL 4987 %RETURN LINE 4987 "regression-compile-tmp/nrimp10s-77.imp" RETURN 4988 SW(5): ! %MONITOR (AUI) LINE 4988 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000005 SLABEL 493 4989 PSF1(LSD,0,0); ! ERR=0 & EXTRA =0 LINE 4989 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000064 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL 4990 PPJ(0,2); ! TO ERROR ROUTINE LINE 4990 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPJ PUSHI #0x00000000 ASSPAR PUSHI #0x00000002 ASSPAR CALL 4991 P=P+1; ->AUI LINE 4991 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL LINE 4991 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01ee 4992 SW(6): ! %STOP LINE 4992 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000006 SLABEL 493 4993 PPJ(0,21) LINE 4993 "regression-compile-tmp/nrimp10s-77.imp" PUSH PPJ PUSHI #0x00000000 ASSPAR PUSHI #0x00000015 ASSPAR CALL 4994 P=P+1 LINE 4994 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000001 ADD ASSVAL 4995 CURR INST=1 %IF CODE=0 LINE 4995 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSHI #0x00000000 JUMPIF # L_0004 PUSH CURRINST PUSHI #0x00000001 ASSVAL LOCATE L_0004 4996 REPORTUI=1 LINE 4996 "regression-compile-tmp/nrimp10s-77.imp" PUSH REPORTUI PUSHI #0x00000001 ASSVAL 4997 %RETURN LINE 4997 "regression-compile-tmp/nrimp10s-77.imp" RETURN 4998 SW(7): !'%SIGNAL'(EVENT')(N)(OPEXPR) LINE 4998 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000007 SLABEL 493 4999 PSF1(PRCL,0,4) LINE 4999 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000018 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000004 ASSPAR CALL 5000 PSF1(JLK,0,1); ! STACK DUMMY PC LINE 5000 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000001c ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000001 ASSPAR CALL 5001 %IF NMDECS(LEVEL)&16 #0 %START;! IN AN 'ON' GROUP LINE 5001 "regression-compile-tmp/nrimp10s-77.imp" PUSH NMDECS PUSH LEVEL ACCESS PUSHI #0x00000010 AND PUSHI #0x00000000 JUMPIF = L_0004 5002 %IF FLAG(LEVEL)<=2 %START; ! IN A BEGIN BLOCK LINE 5002 "regression-compile-tmp/nrimp10s-77.imp" PUSH FLAG PUSH LEVEL ACCESS PUSHI #0x00000002 JUMPIF > L_0007 5003 PSF1(LD,1,12); ! SO RESET DIAG POINTER LINE 5003 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000078 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x0000000c ASSPAR CALL 5004 DIAGPOINTER(LEVEL-1); ! TO NEXT OUTER BLOCK LINE 5004 "regression-compile-tmp/nrimp10s-77.imp" PUSH DIAGPOINTER PUSH LEVEL PUSHI #0x00000001 SUB ASSPAR CALL 5005 PSF1(STD,1,12) LINE 5005 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000058 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x0000000c ASSPAR CALL 5006 PF1(STLN,0,TOS,0) LINE 5006 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000005c ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 5007 %FINISH %ELSE %START; ! 'ON IN A RT/FN/MAP LINE 5007 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0006 LOCATE L_0007 5008 PSF1(LSS,1,0); ! GET PREVIOUS LNB LINE 5008 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000001 ASSPAR PUSHI #0x00000000 ASSPAR CALL 5009 PF1(ST,0,TOS,0); ! AND STACK THAT LINE 5009 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 5010 %FINISH LINE 5010 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0006 5011 %FINISH %ELSE PF1(STLN,0,TOS,0) LINE 5011 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 PUSH PF1 PUSHI #0x0000005c ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0003 5012 GRUSE(ACCR)=0 LINE 5012 "regression-compile-tmp/nrimp10s-77.imp" PUSH GRUSE PUSHI #0x00000000 ACCESS PUSHI #0x00000000 ASSVAL 5013 J=A(P+2); ! EVENT NO LINE 5013 "regression-compile-tmp/nrimp10s-77.imp" PUSH J PUSH A PUSH P PUSHI #0x00000002 ADD ACCESS ASSVAL 5014 FAULT2(26,J,0) %UNLESS 1<=J<=15 LINE 5014 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 PUSH J JUMPIFD > L_0005 PUSHI #0x0000000f JUMPIF <= L_0004 LOCATE L_0005 PUSH FAULT2 PUSHI #0x0000001a ASSPAR PUSH J ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 5015 %IF A(P+3)=1 %START; ! SUBEVENT SPECIFIED LINE 5015 "regression-compile-tmp/nrimp10s-77.imp" PUSH A PUSH P PUSHI #0x00000003 ADD ACCESS PUSHI #0x00000001 JUMPIF # L_0004 5016 P=P+4; CSEXP(ACCR,16_51) LINE 5016 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH P PUSHI #0x00000004 ADD ASSVAL LINE 5016 "regression-compile-tmp/nrimp10s-77.imp" PUSH CSEXP PUSHI #0x00000000 ASSPAR PUSHI #0x00000051 ASSPAR CALL 5017 PF1(AND,0,0,255) LINE 5017 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000008a ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x000000ff ASSPAR CALL 5018 PF1(OR,0,0,256*J) LINE 5018 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000008c ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000100 PUSH J MUL ASSPAR CALL 5019 %FINISH %ELSE PF1(LSS,0,0,256*J) LINE 5019 "regression-compile-tmp/nrimp10s-77.imp" GOTO L_0003 LOCATE L_0004 PUSH PF1 PUSHI #0x00000062 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000100 PUSH J MUL ASSPAR CALL LOCATE L_0003 5020 PSF1(SLSS,0,0) LINE 5020 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x00000042 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL 5021 PF1(ST,0,TOS,0) LINE 5021 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x00000048 ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000006 ASSPAR PUSHI #0x00000000 ASSPAR CALL 5022 XYNB=SET XORYNB(-1,-1); ! TO PLT LINE 5022 "regression-compile-tmp/nrimp10s-77.imp" PUSH XYNB PUSH SETXORYNB PUSHI #0x00000001 NEGATE ASSPAR PUSHI #0x00000001 NEGATE ASSPAR CALL ASSVAL 5023 PSF1(RALN,0,9) LINE 5023 "regression-compile-tmp/nrimp10s-77.imp" PUSH PSF1 PUSHI #0x0000006c ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000009 ASSPAR CALL 5024 PF1(CALL,2,XYNB,40) LINE 5024 "regression-compile-tmp/nrimp10s-77.imp" PUSH PF1 PUSHI #0x0000001e ASSPAR PUSHI #0x00000002 ASSPAR PUSH XYNB ASSPAR PUSHI #0x00000028 ASSPAR CALL 5025 CURR INST=1 %IF CODE=0 LINE 5025 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSHI #0x00000000 JUMPIF # L_0004 PUSH CURRINST PUSHI #0x00000001 ASSVAL LOCATE L_0004 5026 REPORTUI=1; %RETURN LINE 5026 "regression-compile-tmp/nrimp10s-77.imp" PUSH REPORTUI PUSHI #0x00000001 ASSVAL LINE 5026 "regression-compile-tmp/nrimp10s-77.imp" RETURN 5027 SW(8): ! %EXIT LINE 5027 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000008 SLABEL 493 5028 SW(9): ! %CONTINUE LINE 5028 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000009 SLABEL 493 5029 ALT=ALT&7; ! 0 FOR EXIT 1 FOR CONTINUE LINE 5029 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALT PUSH ALT PUSHI #0x00000007 AND ASSVAL 5030 %IF EXITLAB=0 %THEN FAULT2(54+ALT,0,0) %AND %RETURN LINE 5030 "regression-compile-tmp/nrimp10s-77.imp" PUSH EXITLAB PUSHI #0x00000000 JUMPIF # L_0004 PUSH FAULT2 PUSHI #0x00000036 PUSH ALT ADD ASSPAR PUSHI #0x00000000 ASSPAR PUSHI #0x00000000 ASSPAR CALL RETURN LOCATE L_0004 5031 KK=INTEGER(ADDR(EXITLAB)+4*ALT) LINE 5031 "regression-compile-tmp/nrimp10s-77.imp" PUSH KK PUSH INTEGER PUSH ADDR PUSH EXITLAB ASSPAR CALL PUSHI #0x00000004 PUSH ALT MUL ADD ASSPAR CALL ASSVAL 5032 ENTER JUMP(15,KK,B'10') LINE 5032 "regression-compile-tmp/nrimp10s-77.imp" PUSH ENTERJUMP PUSHI #0x0000000f ASSPAR PUSH KK ASSPAR PUSHI #0x00000002 ASSPAR CALL 5033 REPORTUI=1 LINE 5033 "regression-compile-tmp/nrimp10s-77.imp" PUSH REPORTUI PUSHI #0x00000001 ASSVAL 5034 CURR INST=1 %IF CODE=0 LINE 5034 "regression-compile-tmp/nrimp10s-77.imp" PUSH CODE PUSHI #0x00000000 JUMPIF # L_0004 PUSH CURRINST PUSHI #0x00000001 ASSVAL LOCATE L_0004 5035 %END LINE 5035 "regression-compile-tmp/nrimp10s-77.imp" END _lev0id0_lev1id1_lev2id3_CSS_CUI {lev=5 --> 4} 5036 %ROUTINE CIFTHEN(%INTEGER MARKIU,MARKC,MARKUI,MARKE,MARKR,SKIP) 5037 !*********************************************************************** 5038 !* THIS ROUTINE COMPILES CONDITIONAL EXPRESSIONS.IT REQUIRES THE * 5039 !* FOLLOWING PARAMETERS TO BE SET TO THEIR A .R. ENTRY. * 5040 !* MARKIU TO THE ENTRY FOR P(%IU) * 5041 !* MARKC TO THE ENTRY FOR P(COND) * 5042 !* MARKUI TO THE ENTRY FOR (FIRST OCCURRENCE OF) P(UI) * 5043 !* MARKE TO THE ENTRY FOR P(ELSE') - =0 FOR BACKWARDS CONDITION * 5044 !* MARKR TO ENTRY FOR P(RESTOFIU) - =0 FOR BACKWARDS CONDITION * 5045 !*********************************************************************** LINE 5036 "regression-compile-tmp/nrimp10s-77.imp" DEF CIFTHEN (_lev0id0_lev1id1_lev2id3_CSS_CIFTHEN) p1=V_0173 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=5 --> 6, nested=0 --> 1} DEF MARKIU p1=V_01e2 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 MARKC p1=V_01e3 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 MARKUI p1=V_01e4 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 MARKE p1=V_01e5 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 MARKR p1=V_01e6 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_01e7 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=5} 5046 %INTEGER ALTUI,CCRES,ELRES,THENLAB,ELSELAB,USERLAB,REPORT,START,ELSEALT,K LINE 5046 "regression-compile-tmp/nrimp10s-77.imp" DEF ALTUI p1=V_01e8 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 CCRES p1=V_01e9 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 ELRES p1=V_01ea 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 THENLAB p1=V_01eb 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 ELSELAB p1=V_01ec 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 USERLAB p1=V_01ed 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 REPORT p1=V_01ee 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 START p1=V_01ef 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 ELSEALT p1=V_01f0 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_01f1 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 5047 %CONSTINTEGER NULL ELSE=4 LINE 5047 "regression-compile-tmp/nrimp10s-77.imp" 5048 %SWITCH ESW(1:NULL ELSE) LINE 5048 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000001 PUSHI #0x00000004 BOUNDS DEF ESW p1=V_01f2 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 5049 SET LINE %UNLESS SKIP=YES LINE 5049 "regression-compile-tmp/nrimp10s-77.imp" PUSH SKIP PUSHI #0x00000001 JUMPIF = L_0004 PUSH SETLINE CALL LOCATE L_0004 5050 MARKIU=A(MARKIU); ! ALT OF IU 1=%IF,2=%UNLESS LINE 5050 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKIU PUSH A PUSH MARKIU ACCESS ASSVAL 5051 PLABEL=PLABEL-1 LINE 5051 "regression-compile-tmp/nrimp10s-77.imp" PUSH PLABEL PUSH PLABEL PUSHI #0x00000001 SUB ASSVAL 5052 THENLAB=PLABEL LINE 5052 "regression-compile-tmp/nrimp10s-77.imp" PUSH THENLAB PUSH PLABEL ASSVAL 5053 START=0; ! NO START IN CONDITION YET LINE 5053 "regression-compile-tmp/nrimp10s-77.imp" PUSH START PUSHI #0x00000000 ASSVAL 5054 ELSELAB=0; ! MEANS NO ELSE CLAUSE LINE 5054 "regression-compile-tmp/nrimp10s-77.imp" PUSH ELSELAB PUSHI #0x00000000 ASSVAL 5055 P=MARKC LINE 5055 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH MARKC ASSVAL 5056 %IF MARKR>0 %AND A(MARKR)<=2 %THEN START=1;! '%START' OR '%THENSTART' LINE 5056 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKR PUSHI #0x00000000 JUMPIF <= L_0004 PUSH A PUSH MARKR ACCESS PUSHI #0x00000002 JUMPIF > L_0004 PUSH START PUSHI #0x00000001 ASSVAL LOCATE L_0004 5057 %IF MARKE#0 %AND LEVEL<2 %AND START=0 %THEN FAULT(57,0) LINE 5057 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKE PUSHI #0x00000000 JUMPIF = L_0004 PUSH LEVEL PUSHI #0x00000002 JUMPIF >= L_0004 PUSH START PUSHI #0x00000000 JUMPIF # L_0004 PUSH FAULT PUSHI #0x00000039 ASSPAR PUSHI #0x00000000 ASSPAR CALL LOCATE L_0004 5058 USERLAB=-1 LINE 5058 "regression-compile-tmp/nrimp10s-77.imp" PUSH USERLAB PUSHI #0x00000001 NEGATE ASSVAL 5059 %IF START#0 %THEN ALTUI=0 %ELSE ALTUI=A(MARKUI) LINE 5059 "regression-compile-tmp/nrimp10s-77.imp" PUSH START PUSHI #0x00000000 JUMPIF = L_0004 PUSH ALTUI PUSHI #0x00000000 ASSVAL GOTO L_0003 LOCATE L_0004 PUSH ALTUI PUSH A PUSH MARKUI ACCESS ASSVAL LOCATE L_0003 5060 %IF ALTUI=2 %AND A(MARKUI+3)=2 %THEN USERLAB=FROM AR2(MARKUI+1); ! UI = SIMPLE LABEL LINE 5060 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALTUI PUSHI #0x00000002 JUMPIF # L_0004 PUSH A PUSH MARKUI PUSHI #0x00000003 ADD ACCESS PUSHI #0x00000002 JUMPIF # L_0004 PUSH USERLAB PUSH FROMAR2 PUSH MARKUI PUSHI #0x00000001 ADD ASSPAR CALL ASSVAL LOCATE L_0004 5061 %IF 8<=ALTUI<=9 %AND EXITLAB#0 %START; ! VALID EXIT LINE 5061 "regression-compile-tmp/nrimp10s-77.imp" PUSHI #0x00000008 PUSH ALTUI JUMPIFD > L_0004 PUSHI #0x00000009 JUMPIF > L_0004 PUSH EXITLAB PUSHI #0x00000000 JUMPIF = L_0004 5062 %IF ALTUI=8 %THEN USERLAB=EXITLAB %ELSE USERLAB=CONTLAB LINE 5062 "regression-compile-tmp/nrimp10s-77.imp" PUSH ALTUI PUSHI #0x00000008 JUMPIF # L_0007 PUSH USERLAB PUSH EXITLAB ASSVAL GOTO L_0006 LOCATE L_0007 PUSH USERLAB PUSH CONTLAB ASSVAL LOCATE L_0006 5063 %FINISH 5064 ! LINE 5063 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 5065 %IF SKIP=YES %THEN %START; ! NO CODE NEEDED LINE 5065 "regression-compile-tmp/nrimp10s-77.imp" PUSH SKIP PUSHI #0x00000001 JUMPIF # L_0004 5066 %IF START#0 %START LINE 5066 "regression-compile-tmp/nrimp10s-77.imp" PUSH START PUSHI #0x00000000 JUMPIF = L_0007 5067 P=MARKR+1 LINE 5067 "regression-compile-tmp/nrimp10s-77.imp" PUSH P PUSH MARKR PUSHI #0x00000001 ADD ASSVAL 5068 CSTART(2,1); ! NO CODE LINE 5068 "regression-compile-tmp/nrimp10s-77.imp" PUSH CSTART PUSHI #0x00000002 ASSPAR PUSHI #0x00000001 ASSPAR CALL 5069 MARKE=P LINE 5069 "regression-compile-tmp/nrimp10s-77.imp" PUSH MARKE PUSH P ASSVAL 5070 %FINISH LINE 5070 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0007 5071 CCRES=1; ! NO CODE FOR ELSE LINE 5071 "regression-compile-tmp/nrimp10s-77.imp" PUSH CCRES PUSHI #0x00000001 ASSVAL 5072 ->ELSE LINE 5072 "regression-compile-tmp/nrimp10s-77.imp" JUMP L_01f3 5073 %FINISH 5074 ! LINE 5073 "regression-compile-tmp/nrimp10s-77.imp" LOCATE L_0004 5075 %IF USERLAB>=0 %THEN %START; ! FIRST UI IS'->'