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 O LINE 5 "regression-compile-tmp/nrimp10s-77.imp" H BEGIN _lev0id0 {lev=0 --> 1} 53 %CONSTINTEGER RELEASE=10 O LINE 53 "regression-compile-tmp/nrimp10s-77.imp" 54 %CONSTINTEGER YES=1,NO=0 O LINE 54 "regression-compile-tmp/nrimp10s-77.imp" 55 %CONSTINTEGER USE IMP=YES O LINE 55 "regression-compile-tmp/nrimp10s-77.imp" 56 %CONSTINTEGER VMEB=NO O LINE 56 "regression-compile-tmp/nrimp10s-77.imp" 57 %CONSTSTRING(9) LADATE="28 Jan 81"; ! LAST ALTERED O LINE 57 "regression-compile-tmp/nrimp10s-77.imp" ' PUSHS "28 Jan 81" $ DEF LADATE p1=V_00ad 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 A INIT 1 58 %INTEGER I, J, K 59 ! PRODUCED BY OLDPS FROM NRIMPPS8 ON 16/12/80 O LINE 58 "regression-compile-tmp/nrimp10s-77.imp" $ DEF I 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 J 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 K 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 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 O LINE 60 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 N PUSHI #0x000001f4 b BOUNDS $ DEF CLETT p1=V_00b1 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 N PUSHI #0x00000001 A INIT 1 N PUSHI #0x0000002b A INIT 1 N PUSHI #0x00000001 A INIT 1 N PUSHI #0x0000002d A INIT 1 N PUSHI #0x00000001 A INIT 1 N PUSHI #0x00000028 A INIT 1 N PUSHI #0x00000001 A INIT 1 N PUSHI #0x00000029 A INIT 1 N PUSHI #0x00000001 A INIT 1 N PUSHI #0x0000002c A INIT 1 N PUSHI #0x00000002 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000c6 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000000d5 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x00000005 A INIT 1 N PUSHI #0x000000d7 A INIT 1 N PUSHI #0x000000c8 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x00000005 A INIT 1 N PUSHI #0x000000d5 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x000000c6 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x00000001 A INIT 1 N PUSHI #0x0000003d A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x00000007 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000c7 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c7 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c7 A INIT 1 N PUSHI #0x0000000b A INIT 1 N PUSHI #0x000000c2 A INIT 1 N PUSHI #0x000000d9 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000c7 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c7 A INIT 1 N PUSHI #0x0000000b A INIT 1 N PUSHI #0x000000c8 A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x000000c6 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000c7 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x00000007 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000d5 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x00000002 A INIT 1 N PUSHI #0x000000c6 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x000000cd A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000d0 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x000000c6 A INIT 1 N PUSHI #0x000000d5 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000c4 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000cd A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x00000005 A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000d9 A INIT 1 N PUSHI #0x00000009 A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000d9 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000cd A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x00000009 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000c6 A INIT 1 N PUSHI #0x000000d0 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000c7 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000cd A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000c6 A INIT 1 N PUSHI #0x000000c6 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000c6 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000000c6 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000cd A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d0 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c4 A INIT 1 N PUSHI #0x00000002 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x00000001 A INIT 1 N PUSHI #0x0000003a A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000cd A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000d7 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000d8 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x00000009 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000d8 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x00000005 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x00000005 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000d6 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x00000005 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x00000009 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c8 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c8 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x00000009 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x00000001 A INIT 1 N PUSHI #0x0000005f A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d9 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000cd A INIT 1 N PUSHI #0x00000007 A INIT 1 N PUSHI #0x000000c4 A INIT 1 N PUSHI #0x000000d9 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000cd A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x00000002 A INIT 1 N PUSHI #0x0000002a A INIT 1 N PUSHI #0x0000003d A INIT 1 N PUSHI #0x00000001 A INIT 1 N PUSHI #0x0000002a A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000055 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x0000005f A INIT 1 N PUSHI #0x00000005 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x0000005f A INIT 1 N PUSHI #0x00000002 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x0000003d A INIT 1 N PUSHI #0x00000001 A INIT 1 N PUSHI #0x0000003c A INIT 1 N PUSHI #0x00000001 A INIT 1 N PUSHI #0x0000003e A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000028 A INIT 1 N PUSHI #0x000000c4 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x0000002b A INIT 1 N PUSHI #0x00000002 A INIT 1 N PUSHI #0x000000c4 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x00000001 A INIT 1 N PUSHI #0x000000c2 A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c2 A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x000000d8 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c2 A INIT 1 N PUSHI #0x00000002 A INIT 1 N PUSHI #0x000000d0 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c2 A INIT 1 N PUSHI #0x00000002 A INIT 1 N PUSHI #0x0000002d A INIT 1 N PUSHI #0x0000003e A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000d5 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d5 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x00000007 A INIT 1 N PUSHI #0x000000cd A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000d0 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000c7 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000d8 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000d5 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000000c6 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000c8 A INIT 1 N PUSHI #0x00000005 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x000000d9 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000d0 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c4 A INIT 1 N PUSHI #0x00000005 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x00000005 A INIT 1 N PUSHI #0x000000c2 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000c7 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x00000002 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d7 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x000000c8 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x00000007 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d0 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x0000000e A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000d5 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000c4 A INIT 1 N PUSHI #0x000000d0 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000c7 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000cd A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000000cd A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000d0 A INIT 1 N PUSHI #0x00000007 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000cf A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x00000007 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000ce A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x000000d5 A INIT 1 N PUSHI #0x000000c4 A INIT 1 N PUSHI #0x000000c5 A 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 O LINE 101 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000514 N PUSHI #0x000008a5 b BOUNDS $ DEF SYMBOL p1=V_00b2 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 N PUSHI #0x0000051b A INIT 1 N PUSHI #0x00000517 A INIT 1 N PUSHI #0x00000000 A INIT 1 N PUSHI #0x00000519 A INIT 1 N PUSHI #0x00000002 A INIT 1 N PUSHI #0x0000051b A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x00000527 A INIT 1 N PUSHI #0x00000520 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x0000054d A INIT 1 N PUSHI #0x00000720 A INIT 1 N PUSHI #0x00000523 A INIT 1 N PUSHI #0x000003eb A INIT 1 N PUSHI #0x000003fc A INIT 1 N PUSHI #0x00000527 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000531 A INIT 1 N PUSHI #0x0000052b A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x000003f6 A INIT 1 N PUSHI #0x0000052d A INIT 1 N PUSHI #0x000003eb A INIT 1 N PUSHI #0x00000531 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000531 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x00000404 A INIT 1 N PUSHI #0x00000527 A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x00000546 A INIT 1 N PUSHI #0x0000053f A INIT 1 N PUSHI #0x0000053f A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x00000404 A INIT 1 N PUSHI #0x0000051b A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x0000053f A INIT 1 N PUSHI #0x00000546 A INIT 1 N PUSHI #0x00000544 A INIT 1 N PUSHI #0x00000402 A INIT 1 N PUSHI #0x0000051b A INIT 1 N PUSHI #0x000003e7 A INIT 1 N PUSHI #0x00000546 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x0000054d A INIT 1 N PUSHI #0x0000054b A INIT 1 N PUSHI #0x00000402 A INIT 1 N PUSHI #0x00000527 A INIT 1 N PUSHI #0x000003e7 A INIT 1 N PUSHI #0x0000054d A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x00000555 A INIT 1 N PUSHI #0x00000553 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x00000555 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000555 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x0000055c A INIT 1 N PUSHI #0x0000055a A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x000003e7 A INIT 1 N PUSHI #0x0000055c A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x00000561 A INIT 1 N PUSHI #0x0000055f A INIT 1 N PUSHI #0x0000000a A INIT 1 N PUSHI #0x00000561 A INIT 1 N PUSHI #0x0000000d A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x00000568 A INIT 1 N PUSHI #0x00000014 A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x00000606 A INIT 1 N PUSHI #0x0000061a A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x0000056e A INIT 1 N PUSHI #0x0000001a A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x00000606 A INIT 1 N PUSHI #0x0000061a A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x00000020 A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000024 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x00000580 A INIT 1 N PUSHI #0x0000057e A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x000003e7 A INIT 1 N PUSHI #0x00000580 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x00000587 A INIT 1 N PUSHI #0x00000583 A INIT 1 N PUSHI #0x00000026 A INIT 1 N PUSHI #0x00000585 A INIT 1 N PUSHI #0x0000002b A INIT 1 N PUSHI #0x00000587 A INIT 1 N PUSHI #0x00000033 A INIT 1 N PUSHI #0x00000596 A INIT 1 N PUSHI #0x0000058a A INIT 1 N PUSHI #0x0000002b A INIT 1 N PUSHI #0x0000058c A INIT 1 N PUSHI #0x00000026 A INIT 1 N PUSHI #0x0000058f A INIT 1 N PUSHI #0x0000003c A INIT 1 N PUSHI #0x00000580 A INIT 1 N PUSHI #0x00000591 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000594 A INIT 1 N PUSHI #0x0000004d A INIT 1 N PUSHI #0x00000785 A INIT 1 N PUSHI #0x00000596 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x0000059d A INIT 1 N PUSHI #0x00000599 A INIT 1 N PUSHI #0x00000060 A INIT 1 N PUSHI #0x0000059d A INIT 1 N PUSHI #0x00000407 A INIT 1 N PUSHI #0x00000587 A INIT 1 N PUSHI #0x0000059d A INIT 1 N PUSHI #0x000005a4 A INIT 1 N PUSHI #0x000005a0 A INIT 1 N PUSHI #0x00000068 A INIT 1 N PUSHI #0x000005a2 A INIT 1 N PUSHI #0x0000006b A INIT 1 N PUSHI #0x000005a4 A INIT 1 N PUSHI #0x0000006f A INIT 1 N PUSHI #0x000005ba A INIT 1 N PUSHI #0x000005aa A INIT 1 N PUSHI #0x00000587 A INIT 1 N PUSHI #0x000005c4 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x000005b0 A INIT 1 N PUSHI #0x00000078 A INIT 1 N PUSHI #0x000005ba A INIT 1 N PUSHI #0x0000007f A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x000005b6 A INIT 1 N PUSHI #0x00000596 A INIT 1 N PUSHI #0x000005bf A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x000005cb A INIT 1 N PUSHI #0x000005ba A INIT 1 N PUSHI #0x0000007f A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x000005bf A INIT 1 N PUSHI #0x000005bd A INIT 1 N PUSHI #0x00000084 A INIT 1 N PUSHI #0x000005bf A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x000005c4 A INIT 1 N PUSHI #0x000005c2 A INIT 1 N PUSHI #0x0000007f A INIT 1 N PUSHI #0x000005c4 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x000005cb A INIT 1 N PUSHI #0x000005c7 A INIT 1 N PUSHI #0x0000008a A INIT 1 N PUSHI #0x000005c9 A INIT 1 N PUSHI #0x0000007f A INIT 1 N PUSHI #0x000005cb A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x000005d5 A INIT 1 N PUSHI #0x000005d3 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x000005a4 A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x000005d5 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000005d5 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x000005de A INIT 1 N PUSHI #0x000005dc A INIT 1 N PUSHI #0x00000406 A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x000005a4 A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x000003e7 A INIT 1 N PUSHI #0x000005de A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x000005e9 A INIT 1 N PUSHI #0x000005e2 A INIT 1 N PUSHI #0x00000094 A INIT 1 N PUSHI #0x000003f8 A INIT 1 N PUSHI #0x000005e4 A INIT 1 N PUSHI #0x0000009e A INIT 1 N PUSHI #0x000005e7 A INIT 1 N PUSHI #0x000000a5 A INIT 1 N PUSHI #0x000003fa A INIT 1 N PUSHI #0x000005e9 A INIT 1 N PUSHI #0x000003f8 A INIT 1 N PUSHI #0x000005ee A INIT 1 N PUSHI #0x000005ec A INIT 1 N PUSHI #0x000000ac A INIT 1 N PUSHI #0x000005ee A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x00000606 A INIT 1 N PUSHI #0x000005f6 A INIT 1 N PUSHI #0x000000ac A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000754 A INIT 1 N PUSHI #0x0000074d A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000005ff A INIT 1 N PUSHI #0x000000b3 A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x0000071a A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000606 A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x0000064f A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000614 A INIT 1 N PUSHI #0x0000060c A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x00000408 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x00000614 A INIT 1 N PUSHI #0x00000611 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000606 A INIT 1 N PUSHI #0x0000061a A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000614 A INIT 1 N PUSHI #0x000000b8 A INIT 1 N PUSHI #0x00000606 A INIT 1 N PUSHI #0x0000061a A INIT 1 N PUSHI #0x00000618 A INIT 1 N PUSHI #0x0000040d A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x0000061a A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x00000625 A INIT 1 N PUSHI #0x0000061f A INIT 1 N PUSHI #0x000000bc A INIT 1 N PUSHI #0x00000606 A INIT 1 N PUSHI #0x00000625 A INIT 1 N PUSHI #0x00000623 A INIT 1 N PUSHI #0x000000c0 A INIT 1 N PUSHI #0x00000606 A INIT 1 N PUSHI #0x0000062c A INIT 1 N PUSHI #0x00000625 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x0000062c A INIT 1 N PUSHI #0x0000062a A INIT 1 N PUSHI #0x000000bc A INIT 1 N PUSHI #0x00000606 A INIT 1 N PUSHI #0x000003e7 A INIT 1 N PUSHI #0x0000062c A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x00000633 A INIT 1 N PUSHI #0x00000631 A INIT 1 N PUSHI #0x000000c0 A INIT 1 N PUSHI #0x00000606 A INIT 1 N PUSHI #0x000003e7 A INIT 1 N PUSHI #0x00000633 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x0000063b A INIT 1 N PUSHI #0x00000637 A INIT 1 N PUSHI #0x00000409 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x00000639 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x0000063b A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x00000641 A INIT 1 N PUSHI #0x0000063f A INIT 1 N PUSHI #0x000000b3 A INIT 1 N PUSHI #0x000003f0 A INIT 1 N PUSHI #0x00000641 A INIT 1 N PUSHI #0x000003f7 A INIT 1 N PUSHI #0x00000646 A INIT 1 N PUSHI #0x00000644 A INIT 1 N PUSHI #0x0000003c A INIT 1 N PUSHI #0x00000646 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x0000064f A INIT 1 N PUSHI #0x0000064d A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x00000646 A INIT 1 N PUSHI #0x0000064f A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x00000658 A INIT 1 N PUSHI #0x00000654 A INIT 1 N PUSHI #0x000005c4 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x00000658 A INIT 1 N PUSHI #0x00000084 A INIT 1 N PUSHI #0x000005e9 A INIT 1 N PUSHI #0x00000658 A INIT 1 N PUSHI #0x0000065e A INIT 1 N PUSHI #0x0000065e A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x00000728 A INIT 1 N PUSHI #0x0000065e A INIT 1 N PUSHI #0x00000664 A INIT 1 N PUSHI #0x00000662 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x00000658 A INIT 1 N PUSHI #0x00000664 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x00000674 A INIT 1 N PUSHI #0x0000066e A INIT 1 N PUSHI #0x000005c4 A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x00000730 A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x00000674 A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x00000674 A INIT 1 N PUSHI #0x00000084 A INIT 1 N PUSHI #0x000005e9 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000728 A INIT 1 N PUSHI #0x000006a5 A INIT 1 N PUSHI #0x0000067f A INIT 1 N PUSHI #0x0000067d A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x00000730 A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x00000674 A INIT 1 N PUSHI #0x0000067f A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x0000068a A INIT 1 N PUSHI #0x00000682 A INIT 1 N PUSHI #0x000000cc A INIT 1 N PUSHI #0x00000684 A INIT 1 N PUSHI #0x000000d0 A INIT 1 N PUSHI #0x00000686 A INIT 1 N PUSHI #0x000000d9 A INIT 1 N PUSHI #0x00000688 A INIT 1 N PUSHI #0x000000e3 A INIT 1 N PUSHI #0x0000068a A INIT 1 N PUSHI #0x000000ec A INIT 1 N PUSHI #0x000006a5 A INIT 1 N PUSHI #0x0000068e A INIT 1 N PUSHI #0x00000587 A INIT 1 N PUSHI #0x00000664 A INIT 1 N PUSHI #0x00000699 A INIT 1 N PUSHI #0x00000078 A INIT 1 N PUSHI #0x000005c4 A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x000006a5 A INIT 1 N PUSHI #0x00000078 A INIT 1 N PUSHI #0x00000084 A INIT 1 N PUSHI #0x000005e9 A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000728 A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x000006af A INIT 1 N PUSHI #0x000006ad A INIT 1 N PUSHI #0x00000024 A INIT 1 N PUSHI #0x00000404 A INIT 1 N PUSHI #0x00000527 A INIT 1 N PUSHI #0x00000546 A INIT 1 N PUSHI #0x000006ba A INIT 1 N PUSHI #0x000006af A INIT 1 N PUSHI #0x000006af A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x000006ba A INIT 1 N PUSHI #0x000006b8 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x000003f4 A INIT 1 N PUSHI #0x00000404 A INIT 1 N PUSHI #0x00000527 A INIT 1 N PUSHI #0x00000546 A INIT 1 N PUSHI #0x000006ba A INIT 1 N PUSHI #0x000003e7 A INIT 1 N PUSHI #0x000006ba A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x000006c3 A INIT 1 N PUSHI #0x000006c1 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000404 A INIT 1 N PUSHI #0x00000527 A INIT 1 N PUSHI #0x00000546 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000006c3 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x000006ca A INIT 1 N PUSHI #0x000006c8 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x000003f1 A INIT 1 N PUSHI #0x000003e7 A INIT 1 N PUSHI #0x000006ca A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x000006cf A INIT 1 N PUSHI #0x000006cd A INIT 1 N PUSHI #0x000000f2 A INIT 1 N PUSHI #0x000006cf A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x000006d5 A INIT 1 N PUSHI #0x000006d3 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x000006d5 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x000006e2 A INIT 1 N PUSHI #0x000006e0 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000003e7 A INIT 1 N PUSHI #0x000006e2 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x000006e9 A INIT 1 N PUSHI #0x000006e7 A INIT 1 N PUSHI #0x0000001a A INIT 1 N PUSHI #0x00000606 A INIT 1 N PUSHI #0x0000061a A INIT 1 N PUSHI #0x000006e9 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x000006f6 A INIT 1 N PUSHI #0x000006ec A INIT 1 N PUSHI #0x000003fb A INIT 1 N PUSHI #0x000006ee A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x000006f3 A INIT 1 N PUSHI #0x0000055c A INIT 1 N PUSHI #0x00000606 A INIT 1 N PUSHI #0x0000061a A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x000006f6 A INIT 1 N PUSHI #0x00000561 A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x00000703 A INIT 1 N PUSHI #0x000006fa A INIT 1 N PUSHI #0x000000f8 A INIT 1 N PUSHI #0x0000040a A INIT 1 N PUSHI #0x000006fd A INIT 1 N PUSHI #0x000000fe A INIT 1 N PUSHI #0x0000040a A INIT 1 N PUSHI #0x00000703 A INIT 1 N PUSHI #0x00000108 A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x0000080c A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x00000709 A INIT 1 N PUSHI #0x00000709 A INIT 1 N PUSHI #0x00000707 A INIT 1 N PUSHI #0x000000bc A INIT 1 N PUSHI #0x0000080c A INIT 1 N PUSHI #0x00000709 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x0000071a A INIT 1 N PUSHI #0x0000070d A INIT 1 N PUSHI #0x0000010d A INIT 1 N PUSHI #0x0000040a A INIT 1 N PUSHI #0x00000715 A INIT 1 N PUSHI #0x00000117 A INIT 1 N PUSHI #0x0000055c A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x00000606 A INIT 1 N PUSHI #0x0000061a A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x000006f6 A INIT 1 N PUSHI #0x00000718 A INIT 1 N PUSHI #0x00000117 A INIT 1 N PUSHI #0x0000080c A INIT 1 N PUSHI #0x0000071a A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x00000720 A INIT 1 N PUSHI #0x0000071e A INIT 1 N PUSHI #0x0000011c A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000720 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x00000728 A INIT 1 N PUSHI #0x00000726 A INIT 1 N PUSHI #0x0000011c A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x0000054d A INIT 1 N PUSHI #0x00000720 A INIT 1 N PUSHI #0x00000728 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x00000730 A INIT 1 N PUSHI #0x00000730 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x00000646 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000738 A INIT 1 N PUSHI #0x00000736 A INIT 1 N PUSHI #0x00000024 A INIT 1 N PUSHI #0x00000404 A INIT 1 N PUSHI #0x00000527 A INIT 1 N PUSHI #0x00000546 A INIT 1 N PUSHI #0x00000738 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x00000742 A INIT 1 N PUSHI #0x0000073c A INIT 1 N PUSHI #0x0000011e A INIT 1 N PUSHI #0x000003f5 A INIT 1 N PUSHI #0x0000073e A INIT 1 N PUSHI #0x000000d0 A INIT 1 N PUSHI #0x00000740 A INIT 1 N PUSHI #0x00000125 A INIT 1 N PUSHI #0x00000742 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x0000074d A INIT 1 N PUSHI #0x0000074b A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000024 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x0000074d A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x00000754 A INIT 1 N PUSHI #0x00000752 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x00000754 A INIT 1 N PUSHI #0x000003e7 A INIT 1 N PUSHI #0x00000754 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x0000077c A INIT 1 N PUSHI #0x0000075a A INIT 1 N PUSHI #0x00000587 A INIT 1 N PUSHI #0x000005c4 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x00000761 A INIT 1 N PUSHI #0x00000587 A INIT 1 N PUSHI #0x00000084 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x00000728 A INIT 1 N PUSHI #0x0000077c A INIT 1 N PUSHI #0x00000767 A INIT 1 N PUSHI #0x00000078 A INIT 1 N PUSHI #0x000005ba A INIT 1 N PUSHI #0x0000007f A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x00000770 A INIT 1 N PUSHI #0x00000078 A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x0000077c A INIT 1 N PUSHI #0x00000078 A INIT 1 N PUSHI #0x00000084 A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x00000728 A INIT 1 N PUSHI #0x0000077c A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000785 A INIT 1 N PUSHI #0x00000783 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x00000728 A INIT 1 N PUSHI #0x000003e7 A INIT 1 N PUSHI #0x00000785 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x0000078c A INIT 1 N PUSHI #0x0000078a A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000003f1 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x0000078c A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x0000079e A INIT 1 N PUSHI #0x00000790 A INIT 1 N PUSHI #0x0000012d A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000793 A INIT 1 N PUSHI #0x00000130 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000796 A INIT 1 N PUSHI #0x00000132 A INIT 1 N PUSHI #0x000003ea A INIT 1 N PUSHI #0x00000799 A INIT 1 N PUSHI #0x000003fe A INIT 1 N PUSHI #0x0000079e A INIT 1 N PUSHI #0x0000079e A INIT 1 N PUSHI #0x00000137 A INIT 1 N PUSHI #0x000003f1 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x000003f1 A INIT 1 N PUSHI #0x000007ac A INIT 1 N PUSHI #0x000007a2 A INIT 1 N PUSHI #0x000003ff A INIT 1 N PUSHI #0x000007ac A INIT 1 N PUSHI #0x000007a7 A INIT 1 N PUSHI #0x00000400 A INIT 1 N PUSHI #0x0000013d A INIT 1 N PUSHI #0x000007d3 A INIT 1 N PUSHI #0x000007d8 A INIT 1 N PUSHI #0x000007ac A INIT 1 N PUSHI #0x00000401 A INIT 1 N PUSHI #0x000003ed A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x000007c3 A INIT 1 N PUSHI #0x000007c3 A INIT 1 N PUSHI #0x000007b1 A INIT 1 N PUSHI #0x00000140 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000142 A INIT 1 N PUSHI #0x000007b3 A INIT 1 N PUSHI #0x000007f4 A INIT 1 N PUSHI #0x000007b8 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x000007f4 A INIT 1 N PUSHI #0x000007e9 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000007bc A INIT 1 N PUSHI #0x00000144 A INIT 1 N PUSHI #0x000007f4 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000007c1 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000149 A INIT 1 N PUSHI #0x000007e9 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000007c3 A INIT 1 N PUSHI #0x0000014c A INIT 1 N PUSHI #0x000007d3 A INIT 1 N PUSHI #0x000007c8 A INIT 1 N PUSHI #0x00000140 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000142 A INIT 1 N PUSHI #0x000007ca A INIT 1 N PUSHI #0x000007f4 A INIT 1 N PUSHI #0x000007cf A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000149 A INIT 1 N PUSHI #0x000007e9 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000007d3 A INIT 1 N PUSHI #0x00000144 A INIT 1 N PUSHI #0x000003ed A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000007d8 A INIT 1 N PUSHI #0x000007d6 A INIT 1 N PUSHI #0x00000149 A INIT 1 N PUSHI #0x000007d8 A INIT 1 N PUSHI #0x000003ed A INIT 1 N PUSHI #0x000007e0 A INIT 1 N PUSHI #0x000007de A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x000003ed A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x000003ed A INIT 1 N PUSHI #0x000007e0 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x000007e9 A INIT 1 N PUSHI #0x000007e4 A INIT 1 N PUSHI #0x00000000 A INIT 1 N PUSHI #0x000003ed A INIT 1 N PUSHI #0x000007e7 A INIT 1 N PUSHI #0x00000002 A INIT 1 N PUSHI #0x000003ed A INIT 1 N PUSHI #0x000007e9 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x000007ef A INIT 1 N PUSHI #0x000007ed A INIT 1 N PUSHI #0x00000000 A INIT 1 N PUSHI #0x0000014c A INIT 1 N PUSHI #0x000007ef A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x000007f4 A INIT 1 N PUSHI #0x000007f2 A INIT 1 N PUSHI #0x00000024 A INIT 1 N PUSHI #0x000007f4 A INIT 1 N PUSHI #0x000003e8 A INIT 1 N PUSHI #0x00000803 A INIT 1 N PUSHI #0x000007f9 A INIT 1 N PUSHI #0x000007ef A INIT 1 N PUSHI #0x00000514 A INIT 1 N PUSHI #0x000003eb A INIT 1 N PUSHI #0x000007fc A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x000007e0 A INIT 1 N PUSHI #0x00000801 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000803 A INIT 1 N PUSHI #0x000007e0 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000803 A INIT 1 N PUSHI #0x0000014e A INIT 1 N PUSHI #0x0000080c A INIT 1 N PUSHI #0x00000806 A INIT 1 N PUSHI #0x00000152 A INIT 1 N PUSHI #0x00000808 A INIT 1 N PUSHI #0x00000156 A INIT 1 N PUSHI #0x0000080a A INIT 1 N PUSHI #0x0000015a A INIT 1 N PUSHI #0x0000080c A INIT 1 N PUSHI #0x0000015d A INIT 1 N PUSHI #0x0000082d A INIT 1 N PUSHI #0x00000815 A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x0000054d A INIT 1 N PUSHI #0x00000720 A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x00000633 A INIT 1 N PUSHI #0x00000703 A INIT 1 N PUSHI #0x00000819 A INIT 1 N PUSHI #0x00000161 A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x0000054d A INIT 1 N PUSHI #0x0000081b A INIT 1 N PUSHI #0x00000164 A INIT 1 N PUSHI #0x0000081f A INIT 1 N PUSHI #0x0000016b A INIT 1 N PUSHI #0x00000409 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x00000822 A INIT 1 N PUSHI #0x00000172 A INIT 1 N PUSHI #0x00000703 A INIT 1 N PUSHI #0x00000824 A INIT 1 N PUSHI #0x0000017a A INIT 1 N PUSHI #0x00000829 A INIT 1 N PUSHI #0x0000017f A INIT 1 N PUSHI #0x000006ca A INIT 1 N PUSHI #0x000003f1 A INIT 1 N PUSHI #0x000006cf A INIT 1 N PUSHI #0x0000082b A INIT 1 N PUSHI #0x00000186 A INIT 1 N PUSHI #0x0000082d A INIT 1 N PUSHI #0x0000018b A INIT 1 N PUSHI #0x000008a6 A INIT 1 N PUSHI #0x00000834 A INIT 1 N PUSHI #0x00000403 A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x0000080c A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x000006e9 A INIT 1 N PUSHI #0x00000836 A INIT 1 N PUSHI #0x000003ef A INIT 1 N PUSHI #0x0000083e A INIT 1 N PUSHI #0x0000055c A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x00000606 A INIT 1 N PUSHI #0x0000061a A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x000006f6 A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x00000843 A INIT 1 N PUSHI #0x00000194 A INIT 1 N PUSHI #0x0000040b A INIT 1 N PUSHI #0x00000709 A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x00000848 A INIT 1 N PUSHI #0x0000019b A INIT 1 N PUSHI #0x00000405 A INIT 1 N PUSHI #0x00000742 A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x0000084d A INIT 1 N PUSHI #0x000001a1 A INIT 1 N PUSHI #0x0000040c A INIT 1 N PUSHI #0x000006e2 A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x00000852 A INIT 1 N PUSHI #0x00000561 A INIT 1 N PUSHI #0x0000019b A INIT 1 N PUSHI #0x00000405 A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x00000858 A INIT 1 N PUSHI #0x00000407 A INIT 1 N PUSHI #0x000003f0 A INIT 1 N PUSHI #0x00000587 A INIT 1 N PUSHI #0x0000064f A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x0000085c A INIT 1 N PUSHI #0x000001a8 A INIT 1 N PUSHI #0x000005de A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x00000860 A INIT 1 N PUSHI #0x00000078 A INIT 1 N PUSHI #0x000005ee A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x00000869 A INIT 1 N PUSHI #0x000003f2 A INIT 1 N PUSHI #0x00000738 A INIT 1 N PUSHI #0x00000596 A INIT 1 N PUSHI #0x000003f3 A INIT 1 N PUSHI #0x0000063b A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x000005cb A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x0000086c A INIT 1 N PUSHI #0x0000067f A INIT 1 N PUSHI #0x0000068a A INIT 1 N PUSHI #0x00000870 A INIT 1 N PUSHI #0x000001ac A INIT 1 N PUSHI #0x00000641 A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x00000874 A INIT 1 N PUSHI #0x000001b2 A INIT 1 N PUSHI #0x000003f7 A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x0000087d A INIT 1 N PUSHI #0x000001b8 A INIT 1 N PUSHI #0x000003fd A INIT 1 N PUSHI #0x000006ca A INIT 1 N PUSHI #0x000003f1 A INIT 1 N PUSHI #0x000006c3 A INIT 1 N PUSHI #0x000000f8 A INIT 1 N PUSHI #0x0000040a A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x00000888 A INIT 1 N PUSHI #0x000001bb A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x00000579 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x00000538 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x000006d5 A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x0000088c A INIT 1 N PUSHI #0x000001c2 A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x000003f9 A INIT 1 N PUSHI #0x00000891 A INIT 1 N PUSHI #0x000001c7 A INIT 1 N PUSHI #0x0000007f A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x00000895 A INIT 1 N PUSHI #0x00000130 A INIT 1 N PUSHI #0x0000078c A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x00000898 A INIT 1 N PUSHI #0x000001cf A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x0000089c A INIT 1 N PUSHI #0x000001de A INIT 1 N PUSHI #0x000003e9 A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x000008a0 A INIT 1 N PUSHI #0x000001e5 A INIT 1 N PUSHI #0x000003eb A INIT 1 N PUSHI #0x000003ee A INIT 1 N PUSHI #0x000008a4 A INIT 1 N PUSHI #0x000001ed A INIT 1 N PUSHI #0x000003eb A INIT 1 N PUSHI #0x0000040e A INIT 1 N PUSHI #0x000008a6 A INIT 1 N PUSHI #0x000003ee A INIT 1 195 %CONSTINTEGER SS= 2093 196 197 ! O 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 O LINE 198 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 N PUSHI #0x0000007f b BOUNDS $ DEF ITOETAB p1=V_00b3 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 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000015 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x0000000c A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x0000007f A INIT 1 N PUSHI #0x0000007b A INIT 1 N PUSHI #0x0000005b A INIT 1 N PUSHI #0x0000006c A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x0000007d A INIT 1 N PUSHI #0x0000004d A INIT 1 N PUSHI #0x0000005d A INIT 1 N PUSHI #0x0000005c A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x0000006b A INIT 1 N PUSHI #0x00000060 A INIT 1 N PUSHI #0x0000004b A INIT 1 N PUSHI #0x00000061 A INIT 1 N PUSHI #0x000000f0 A INIT 1 N PUSHI #0x000000f1 A INIT 1 N PUSHI #0x000000f2 A INIT 1 N PUSHI #0x000000f3 A INIT 1 N PUSHI #0x000000f4 A INIT 1 N PUSHI #0x000000f5 A INIT 1 N PUSHI #0x000000f6 A INIT 1 N PUSHI #0x000000f7 A INIT 1 N PUSHI #0x000000f8 A INIT 1 N PUSHI #0x000000f9 A INIT 1 N PUSHI #0x0000007a A INIT 1 N PUSHI #0x0000005e A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x0000007e A INIT 1 N PUSHI #0x0000006e A INIT 1 N PUSHI #0x0000006f A INIT 1 N PUSHI #0x0000007c A INIT 1 N PUSHI #0x000000c1 A INIT 1 N PUSHI #0x000000c2 A INIT 1 N PUSHI #0x000000c3 A INIT 1 N PUSHI #0x000000c4 A INIT 1 N PUSHI #0x000000c5 A INIT 1 N PUSHI #0x000000c6 A INIT 1 N PUSHI #0x000000c7 A INIT 1 N PUSHI #0x000000c8 A INIT 1 N PUSHI #0x000000c9 A INIT 1 N PUSHI #0x000000d1 A INIT 1 N PUSHI #0x000000d2 A INIT 1 N PUSHI #0x000000d3 A INIT 1 N PUSHI #0x000000d4 A INIT 1 N PUSHI #0x000000d5 A INIT 1 N PUSHI #0x000000d6 A INIT 1 N PUSHI #0x000000d7 A INIT 1 N PUSHI #0x000000d8 A INIT 1 N PUSHI #0x000000d9 A INIT 1 N PUSHI #0x000000e2 A INIT 1 N PUSHI #0x000000e3 A INIT 1 N PUSHI #0x000000e4 A INIT 1 N PUSHI #0x000000e5 A INIT 1 N PUSHI #0x000000e6 A INIT 1 N PUSHI #0x000000e7 A INIT 1 N PUSHI #0x000000e8 A INIT 1 N PUSHI #0x000000e9 A INIT 1 N PUSHI #0x0000004a A INIT 1 N PUSHI #0x0000005f A INIT 1 N PUSHI #0x0000005a A INIT 1 N PUSHI #0x0000006a A INIT 1 N PUSHI #0x0000006d A INIT 1 N PUSHI #0x0000007c A INIT 1 N PUSHI #0x00000081 A INIT 1 N PUSHI #0x00000082 A INIT 1 N PUSHI #0x00000083 A INIT 1 N PUSHI #0x00000084 A INIT 1 N PUSHI #0x00000085 A INIT 1 N PUSHI #0x00000086 A INIT 1 N PUSHI #0x00000087 A INIT 1 N PUSHI #0x00000088 A INIT 1 N PUSHI #0x00000089 A INIT 1 N PUSHI #0x00000091 A INIT 1 N PUSHI #0x00000092 A INIT 1 N PUSHI #0x00000093 A INIT 1 N PUSHI #0x00000094 A INIT 1 N PUSHI #0x00000095 A INIT 1 N PUSHI #0x00000096 A INIT 1 N PUSHI #0x00000097 A INIT 1 N PUSHI #0x00000098 A INIT 1 N PUSHI #0x00000099 A INIT 1 N PUSHI #0x000000a2 A INIT 1 N PUSHI #0x000000a3 A INIT 1 N PUSHI #0x000000a4 A INIT 1 N PUSHI #0x000000a5 A INIT 1 N PUSHI #0x000000a6 A INIT 1 N PUSHI #0x000000a7 A INIT 1 N PUSHI #0x000000a8 A INIT 1 N PUSHI #0x000000a9 A INIT 1 N PUSHI #0x000000c0 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x000000d0 A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000040 A 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'; O LINE 215 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 N PUSHI #0x0000007e b BOUNDS $ DEF OPC p1=V_00b4 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 N PUSHI #0x00000000 A INIT 1 N PUSHI #0x204a4343 A INIT 1 N PUSHI #0x204a4154 A INIT 1 N PUSHI #0x204a4146 A INIT 1 N PUSHI #0x00000000 A INIT 4 N PUSHI #0x2056414c A INIT 1 N PUSHI #0x20435944 A INIT 1 N PUSHI #0x494e4341 A INIT 1 N PUSHI #0x4d4f4444 A INIT 1 N PUSHI #0x5052434c A INIT 1 N PUSHI #0x2020204a A INIT 1 N PUSHI #0x204a4c4b A INIT 1 N PUSHI #0x43414c4c A INIT 1 N PUSHI #0x20414442 A INIT 1 N PUSHI #0x20534242 A INIT 1 N PUSHI #0x4445424a A INIT 1 N PUSHI #0x20435042 A INIT 1 N PUSHI #0x20534947 A INIT 1 N PUSHI #0x204d5942 A INIT 1 N PUSHI #0x20564d59 A INIT 1 N PUSHI #0x43504942 A INIT 1 N PUSHI #0x204c4354 A INIT 1 N PUSHI #0x4d505352 A INIT 1 N PUSHI #0x43505352 A INIT 1 N PUSHI #0x53544354 A INIT 1 N PUSHI #0x45584954 A INIT 1 N PUSHI #0x45534558 A INIT 1 N PUSHI #0x204f5554 A INIT 1 N PUSHI #0x20414354 A INIT 1 N PUSHI #0x2020534c A INIT 1 N PUSHI #0x534c5353 A INIT 1 N PUSHI #0x534c5344 A INIT 1 N PUSHI #0x534c5351 A INIT 1 N PUSHI #0x20205354 A INIT 1 N PUSHI #0x53545548 A INIT 1 N PUSHI #0x5354584e A INIT 1 N PUSHI #0x49444c45 A INIT 1 N PUSHI #0x20534c44 A INIT 1 N PUSHI #0x20534c42 A INIT 1 N PUSHI #0x54444543 A INIT 1 N PUSHI #0x494e4354 A INIT 1 N PUSHI #0x20535444 A INIT 1 N PUSHI #0x20535442 A INIT 1 N PUSHI #0x53544c4e A INIT 1 N PUSHI #0x53545346 A INIT 1 N PUSHI #0x2020204c A INIT 1 N PUSHI #0x204c5353 A INIT 1 N PUSHI #0x204c5344 A INIT 1 N PUSHI #0x204c5351 A INIT 1 N PUSHI #0x52525443 A INIT 1 N PUSHI #0x204c5548 A INIT 1 N PUSHI #0x52414c4e A INIT 1 N PUSHI #0x20415346 A INIT 1 N PUSHI #0x4c44524c A INIT 1 N PUSHI #0x204c4441 A INIT 1 N PUSHI #0x4c445442 A INIT 1 N PUSHI #0x204c4442 A INIT 1 N PUSHI #0x20204c44 A INIT 1 N PUSHI #0x20204c42 A INIT 1 N PUSHI #0x204c4c4e A INIT 1 N PUSHI #0x204c584e A INIT 1 N PUSHI #0x20544348 A INIT 1 N PUSHI #0x414e4453 A INIT 1 N PUSHI #0x204f5253 A INIT 1 N PUSHI #0x4e455153 A INIT 1 N PUSHI #0x45585041 A INIT 1 N PUSHI #0x20414e44 A INIT 1 N PUSHI #0x20204f52 A INIT 1 N PUSHI #0x204e4551 A INIT 1 N PUSHI #0x2020504b A INIT 1 N PUSHI #0x20494e53 A INIT 1 N PUSHI #0x5355504b A INIT 1 N PUSHI #0x20455850 A INIT 1 N PUSHI #0x434f4d41 A INIT 1 N PUSHI #0x20444456 A INIT 1 N PUSHI #0x44524456 A INIT 1 N PUSHI #0x444d4456 A INIT 1 N PUSHI #0x53574551 A INIT 1 N PUSHI #0x53574e45 A INIT 1 N PUSHI #0x20435053 A INIT 1 N PUSHI #0x20545452 A INIT 1 N PUSHI #0x20464c54 A INIT 1 N PUSHI #0x20494456 A INIT 1 N PUSHI #0x49524456 A INIT 1 N PUSHI #0x494d4456 A INIT 1 N PUSHI #0x204d564c A INIT 1 N PUSHI #0x20204d56 A INIT 1 N PUSHI #0x43484f56 A INIT 1 N PUSHI #0x20434f4d A INIT 1 N PUSHI #0x20464958 A INIT 1 N PUSHI #0x20524456 A INIT 1 N PUSHI #0x52524456 A INIT 1 N PUSHI #0x52445644 A INIT 1 N PUSHI #0x20554144 A INIT 1 N PUSHI #0x20555342 A INIT 1 N PUSHI #0x55525342 A INIT 1 N PUSHI #0x20554350 A INIT 1 N PUSHI #0x20555348 A INIT 1 N PUSHI #0x20524f54 A INIT 1 N PUSHI #0x20534853 A INIT 1 N PUSHI #0x2053485a A INIT 1 N PUSHI #0x20444144 A INIT 1 N PUSHI #0x20445342 A INIT 1 N PUSHI #0x44525342 A INIT 1 N PUSHI #0x20444350 A INIT 1 N PUSHI #0x20445348 A INIT 1 N PUSHI #0x20444d59 A INIT 1 N PUSHI #0x444d5944 A INIT 1 N PUSHI #0x4342494e A INIT 1 N PUSHI #0x20494144 A INIT 1 N PUSHI #0x20495342 A INIT 1 N PUSHI #0x49525342 A INIT 1 N PUSHI #0x20494350 A INIT 1 N PUSHI #0x20495348 A INIT 1 N PUSHI #0x20494d59 A INIT 1 N PUSHI #0x494d5944 A INIT 1 N PUSHI #0x43444543 A INIT 1 N PUSHI #0x20524144 A INIT 1 N PUSHI #0x20525342 A INIT 1 N PUSHI #0x52525342 A INIT 1 N PUSHI #0x20524350 A INIT 1 N PUSHI #0x20525343 A INIT 1 N PUSHI #0x20524d59 A INIT 1 N PUSHI #0x524d5944 A 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; O LINE 232 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 N PUSHI #0x0000007f b BOUNDS $ DEF ONECASE p1=V_00b5 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 N PUSHI #0x00000000 A INIT 1 N PUSHI #0x00000001 A INIT 1 N PUSHI #0x00000002 A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000005 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000007 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x00000009 A INIT 1 N PUSHI #0x0000000a A INIT 1 N PUSHI #0x0000000b A INIT 1 N PUSHI #0x0000000c A INIT 1 N PUSHI #0x0000000d A INIT 1 N PUSHI #0x0000000e A INIT 1 N PUSHI #0x0000000f A INIT 1 N PUSHI #0x00000010 A INIT 1 N PUSHI #0x00000011 A INIT 1 N PUSHI #0x00000012 A INIT 1 N PUSHI #0x00000013 A INIT 1 N PUSHI #0x00000014 A INIT 1 N PUSHI #0x00000015 A INIT 1 N PUSHI #0x00000016 A INIT 1 N PUSHI #0x00000017 A INIT 1 N PUSHI #0x00000018 A INIT 1 N PUSHI #0x00000019 A INIT 1 N PUSHI #0x0000001a A INIT 1 N PUSHI #0x0000001b A INIT 1 N PUSHI #0x0000001c A INIT 1 N PUSHI #0x0000001d A INIT 1 N PUSHI #0x0000001e A INIT 1 N PUSHI #0x0000001f A INIT 1 N PUSHI #0x00000020 A INIT 1 N PUSHI #0x00000021 A INIT 1 N PUSHI #0x00000022 A INIT 1 N PUSHI #0x00000023 A INIT 1 N PUSHI #0x00000024 A INIT 1 N PUSHI #0x00000025 A INIT 1 N PUSHI #0x00000026 A INIT 1 N PUSHI #0x00000027 A INIT 1 N PUSHI #0x00000028 A INIT 1 N PUSHI #0x00000029 A INIT 1 N PUSHI #0x0000002a A INIT 1 N PUSHI #0x0000002b A INIT 1 N PUSHI #0x0000002c A INIT 1 N PUSHI #0x0000002d A INIT 1 N PUSHI #0x0000002e A INIT 1 N PUSHI #0x0000002f A INIT 1 N PUSHI #0x00000030 A INIT 1 N PUSHI #0x00000031 A INIT 1 N PUSHI #0x00000032 A INIT 1 N PUSHI #0x00000033 A INIT 1 N PUSHI #0x00000034 A INIT 1 N PUSHI #0x00000035 A INIT 1 N PUSHI #0x00000036 A INIT 1 N PUSHI #0x00000037 A INIT 1 N PUSHI #0x00000038 A INIT 1 N PUSHI #0x00000039 A INIT 1 N PUSHI #0x0000003a A INIT 1 N PUSHI #0x0000003b A INIT 1 N PUSHI #0x0000003c A INIT 1 N PUSHI #0x0000003d A INIT 1 N PUSHI #0x0000003e A INIT 1 N PUSHI #0x0000003f A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000042 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x00000044 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000046 A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000048 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004a A INIT 1 N PUSHI #0x0000004b A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x0000004d A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000051 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000055 A INIT 1 N PUSHI #0x00000056 A INIT 1 N PUSHI #0x00000057 A INIT 1 N PUSHI #0x00000058 A INIT 1 N PUSHI #0x00000059 A INIT 1 N PUSHI #0x0000005a A INIT 1 N PUSHI #0x0000005b A INIT 1 N PUSHI #0x0000005c A INIT 1 N PUSHI #0x0000005d A INIT 1 N PUSHI #0x0000005e A INIT 1 N PUSHI #0x0000005f A INIT 1 N PUSHI #0x00000060 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000042 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x00000044 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000046 A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000048 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004a A INIT 1 N PUSHI #0x0000004b A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x0000004d A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000051 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000055 A INIT 1 N PUSHI #0x00000056 A INIT 1 N PUSHI #0x00000057 A INIT 1 N PUSHI #0x00000058 A INIT 1 N PUSHI #0x00000059 A INIT 1 N PUSHI #0x0000005a A INIT 1 N PUSHI #0x0000007b A INIT 1 N PUSHI #0x0000007c A INIT 1 N PUSHI #0x0000007d A INIT 1 N PUSHI #0x0000007e A INIT 1 N PUSHI #0x0000007f A 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 ! O LINE 241 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 N PUSHI #0x0000003e b BOUNDS $ DEF TSNAME p1=V_00b6 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 N PUSHI #0x00001000 A INIT 8 N PUSHI #0x00001001 A INIT 1 N PUSHI #0x00001000 A INIT 5 N PUSHI #0x00001001 A INIT 1 N PUSHI #0x00001062 A INIT 1 N PUSHI #0x00001001 A INIT 2 N PUSHI #0x00001062 A INIT 1 N PUSHI #0x00001000 A INIT 2 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000051 A INIT 1 N PUSHI #0x00000062 A INIT 1 N PUSHI #0x00001062 A INIT 7 N PUSHI #0x00001000 A INIT 1 N PUSHI #0x00000031 A INIT 1 N PUSHI #0x00000051 A INIT 1 N PUSHI #0x00001062 A INIT 2 N PUSHI #0x00000031 A INIT 1 N PUSHI #0x00001000 A INIT 1 N PUSHI #0x00000051 A INIT 1 N PUSHI #0x00000062 A INIT 1 N PUSHI #0x00001000 A INIT 2 N PUSHI #0x00000035 A INIT 1 N PUSHI #0x00001000 A INIT 1 N PUSHI #0x00001035 A INIT 1 N PUSHI #0x00000031 A INIT 1 N PUSHI #0x00000035 A INIT 1 N PUSHI #0x00001035 A INIT 1 N PUSHI #0x00000033 A INIT 1 N PUSHI #0x00000000 A INIT 1 N PUSHI #0x00001000 A INIT 1 N PUSHI #0x00000031 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000051 A INIT 1 N PUSHI #0x00000061 A INIT 1 N PUSHI #0x00000072 A INIT 1 N PUSHI #0x00000061 A INIT 1 N PUSHI #0x00000072 A INIT 1 N PUSHI #0x00000051 A INIT 1 N PUSHI #0x00000062 A INIT 1 N PUSHI #0x00001051 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00001000 A INIT 1 250 %OWNINTEGERARRAY FIXED GLA(0:11)=0, 251 16_50000000,0(2),-1,0,0(6); O LINE 250 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 N PUSHI #0x0000000b b BOUNDS $ DEF FIXEDGLA p1=V_00b7 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 N PUSHI #0x00000000 A INIT 1 N PUSHI #0x50000000 A INIT 1 N PUSHI #0x00000000 A INIT 2 N PUSHI #0xffffffff A INIT 1 N PUSHI #0x00000000 A INIT 1 N PUSHI #0x00000000 A INIT 6 252 %CONSTBYTEINTEGERARRAY BYTES(0:7)=0(3),1,2,4,8,16; O LINE 252 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 N PUSHI #0x00000007 b BOUNDS $ DEF BYTES p1=V_00b8 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 N PUSHI #0x00000000 A INIT 3 N PUSHI #0x00000001 A INIT 1 N PUSHI #0x00000002 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x00000010 A INIT 1 253 %CONSTBYTEINTEGERARRAY TRTAB(0:255)=0(48), 254 1(10),0(7),2(26),0(6),2(26),0(5),0(128) O LINE 253 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 N PUSHI #0x000000ff b BOUNDS $ DEF TRTAB p1=V_00b9 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 N PUSHI #0x00000000 A INIT 48 N PUSHI #0x00000001 A INIT 10 N PUSHI #0x00000000 A INIT 7 N PUSHI #0x00000002 A INIT 26 N PUSHI #0x00000000 A INIT 6 N PUSHI #0x00000002 A INIT 26 N PUSHI #0x00000000 A INIT 5 N PUSHI #0x00000000 A INIT 128 255 %CONSTINTEGER MAXLEVELS=31,CONCOP=13,FIXEDGLALEN=48 O LINE 255 "regression-compile-tmp/nrimp10s-77.imp" 256 %CONSTINTEGER JOBBERBIT=16_40000000; ! SET IN JOBBER MODE O LINE 256 "regression-compile-tmp/nrimp10s-77.imp" 257 %CONSTINTEGER CEBIT=1; ! SET IN COMPILER ENVIRONMENT O 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 ! O 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 O 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 O 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 O 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 O 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 O 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 ! O 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 ! O 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 O 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 ! O LINE 284 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 N PUSHI #0x00000007 b BOUNDS $ DEF LDCODE p1=V_00ba 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 N PUSHI #0x00000000 A INIT 1 N PUSHI #0x00000078 A INIT 1 N PUSHI #0x0000007c A INIT 1 N PUSHI #0x0000007e A INIT 1 N PUSHI #0x00000000 A INIT 1 N PUSHI #0x00000030 A INIT 1 N PUSHI #0x00000000 A INIT 1 N PUSHI #0x0000007a A INIT 1 286 %CONSTSTRING(8)MDEP="S#NDIAG" O LINE 286 "regression-compile-tmp/nrimp10s-77.imp" ' PUSHS "S#NDIAG" $ DEF MDEP p1=V_00bb 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 A INIT 1 287 %CONSTSTRING(8)IOCPEP="S#IOCP"; ! EP FOR IOCP O LINE 287 "regression-compile-tmp/nrimp10s-77.imp" ' PUSHS "S#IOCP" $ DEF IOCPEP p1=V_00bc 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 A INIT 1 288 %CONSTSTRING(11)AUXSTEP="ICL9CEAUXST";! DATA REF FOR INDIRECT AUX ST O LINE 288 "regression-compile-tmp/nrimp10s-77.imp" ' PUSHS "ICL9CEAUXST" $ DEF AUXSTEP p1=V_00bd 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 A INIT 1 289 %CONSTINTEGER SNPT=16_1006; ! SPECIALNAME PTYPE O LINE 289 "regression-compile-tmp/nrimp10s-77.imp" 290 %CONSTINTEGER COMMALT=2,ENDALT=9,UNASSPAT=16_81818181,DECALT=8 291 ! O 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 ! O LINE 292 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DICTBASE 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 CONSTPTR 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 CONSTBTM 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 DFHEAD 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 CONSTHOLE 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 WKFILEAD 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 WKFILEK 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 DUMMYFORMAT 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 P1SIZE 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 LEVELINF 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 IOCPDISP 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 PARMBITS1 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 PARMBITS2 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 PARMLET 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 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 ! O LINE 296 "regression-compile-tmp/nrimp10s-77.imp" $ DEF ASL 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 NNAMES 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 ARSIZE 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 $ DEF CABUF 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 PPCURR 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 CONSTLIMIT 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 OLDLINE 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 LINE 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 LENGTH 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 NEXTP 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 SNUM 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 RLEVEL 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 NMAX 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 USTPTR 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 PLABEL 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 LEVEL 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 CA 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 LASTNAME 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 CDCOUNT 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 ASLCURBTM 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 PARMDYNAMIC 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 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 ! O LINE 300 "regression-compile-tmp/nrimp10s-77.imp" $ DEF FAULTY 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 HIT 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 INHCODE 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 IMPS 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 TTOPUT 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 LIST 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 PARMDIAG 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 WARNFLAG 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 PARMTRACE 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 PARMLINE 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 PARMOPT 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 CTYPE 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 DCOMP 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 $ DEF CPRMODE 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 PARMCHK 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 $ DEF PARMARR p1=V_00f0 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF ALLLONG p1=V_00f1 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF PARMDBUG p1=V_00f2 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF COMPILER p1=V_00f3 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF LASTINST p1=V_00f4 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF SMAP 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 STACK 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 $ DEF AUXST p1=V_00f7 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF PARMY 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 $ DEF BFFLAG p1=V_00f9 a/tf=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 ! O LINE 305 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RBASE p1=V_00fa a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF N p1=V_00fb a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF FREEFORMAT p1=V_00fc a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF PARMPROF p1=V_00fd a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF EXITLAB 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 $ DEF CONTLAB 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 $ DEF Q 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 R 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 S 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 NEST 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 FNAME 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 LDPTR 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 GLACA p1=V_0106 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF GLACABUF p1=V_0107 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF GLACURR p1=V_0108 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF CREFHEAD 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 SSTL 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 QMAX 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 $ DEF STMTS p1=V_010c a/tf=11 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_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 FILEADDR 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 FILEPTR 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 FILEEND 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 FILESIZE 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 LASTEND 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 BIMSTR 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 STLIMIT 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 STRLINK p1=V_0115 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF RECTB p1=V_0116 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF ASLWARN p1=V_0117 a/tf=11 b/format=1 c/ostate=0 type=1 (integer) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF IHEAD 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 311 %INTEGER MAX ULAB, SFLABEL O LINE 311 "regression-compile-tmp/nrimp10s-77.imp" $ DEF MAXULAB 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 SFLABEL 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 312 %LONGREAL CVALUE, IMAX, CTIME O LINE 312 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CVALUE p1=V_011b 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_011c 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_011d 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 O LINE 313 "regression-compile-tmp/nrimp10s-77.imp" $ DEF MAINEP p1=V_011e 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) O LINE 314 "regression-compile-tmp/nrimp10s-77.imp" $ DEF LISTF p1=V_011f a/tf=44 b/format=11f 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 ! O LINE 315 "regression-compile-tmp/nrimp10s-77.imp" $ DEF LOGEPDISP 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 EXPEPDISP 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 317 %SYSTEMINTEGERMAPSPEC COMREG(%INTEGER N) O LINE 317 "regression-compile-tmp/nrimp10s-77.imp" $ DEF COMREG (_lev0id0_COMREG) p1=V_0122 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_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=1} 318 %BEGIN O LINE 318 "regression-compile-tmp/nrimp10s-77.imp" H BEGIN _lev0id0_lev1id1 {lev=1 --> 2} 319 FILE ADDR=COMREG(46); ! SOURCE FILE IF CLEAN O LINE 319 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FILEADDR @ PUSH COMREG N PUSHI #0x0000002e p ASSPAR E CALL S ASSVAL 320 PARMBITS1=COMREG(27) O LINE 320 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMBITS1 @ PUSH COMREG N PUSHI #0x0000001b p ASSPAR E CALL S ASSVAL 321 PARMBITS2=COMREG(28) O LINE 321 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMBITS2 @ PUSH COMREG N PUSHI #0x0000001c p ASSPAR E CALL S ASSVAL 322 WKFILEAD=COMREG(14) 323 {WKFILEK=INTEGER(WKFILEAD+8)>>10 O LINE 322 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WKFILEAD @ PUSH COMREG N PUSHI #0x0000000e p ASSPAR E CALL S ASSVAL 324 wkfilek = 128 O LINE 324 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WKFILEK N PUSHI #0x00000080 S ASSVAL 325 %IF FILE ADDR<=0 %THEN FILESIZE=64000 %AND FILE ADDR=0 %ELSESTART O LINE 325 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FILEADDR N PUSHI #0x00000000 ? JUMPIF > L_0004 @ PUSH FILESIZE N PUSHI #0x0000fa00 S ASSVAL @ PUSH FILEADDR N PUSHI #0x00000000 S ASSVAL F GOTO L_0003 : LOCATE L_0004 326 FILE PTR=FILE ADDR+INTEGER(FILE ADDR+4) O LINE 326 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FILEPTR @ PUSH FILEADDR @ PUSH INTEGER @ PUSH FILEADDR N PUSHI #0x00000004 + ADD p ASSPAR E CALL + ADD S ASSVAL 327 FILE END=FILE ADDR+INTEGER(FILE ADDR) O LINE 327 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FILEEND @ PUSH FILEADDR @ PUSH INTEGER @ PUSH FILEADDR p ASSPAR E CALL + ADD S ASSVAL 328 FILE SIZE=INTEGER(FILE ADDR) O LINE 328 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FILESIZE @ PUSH INTEGER @ PUSH FILEADDR p ASSPAR E CALL S ASSVAL 329 %FINISH O LINE 329 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 330 NNAMES=255 O LINE 330 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NNAMES N PUSHI #0x000000ff S ASSVAL 331 %IF FILESIZE>10000 %THEN NNAMES=511 O LINE 331 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FILESIZE N PUSHI #0x00002710 ? JUMPIF <= L_0004 @ PUSH NNAMES N PUSHI #0x000001ff S ASSVAL : LOCATE L_0004 332 %IF PARMBITS1&JOBBER BIT=0 %START O LINE 332 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMBITS1 N PUSHI #0x40000000 & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 333 %IF FILESIZE>32000 %THEN NNAMES=1023 O LINE 333 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FILESIZE N PUSHI #0x00007d00 ? JUMPIF <= L_0007 @ PUSH NNAMES N PUSHI #0x000003ff S ASSVAL : LOCATE L_0007 334 %IF FILESIZE>256*1024 %OR PARMBITS2&MAXDICT#0 %OR WKFILEK>512 %THEN NNAMES=2047 O LINE 334 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FILESIZE N PUSHI #0x00000100 N PUSHI #0x00000400 * MUL ? JUMPIF > L_0008 @ PUSH PARMBITS2 N PUSHI #0x00000100 & AND N PUSHI #0x00000000 ? JUMPIF # L_0008 @ PUSH WKFILEK N PUSHI #0x00000200 ? JUMPIF <= L_0007 : LOCATE L_0008 @ PUSH NNAMES N PUSHI #0x000007ff S ASSVAL : LOCATE L_0007 335 %FINISH O LINE 335 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 336 ASL=3*NNAMES O LINE 336 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASL N PUSHI #0x00000003 @ PUSH NNAMES * MUL S ASSVAL 337 ASL=4095 %IF ASL>4095 %AND PARMBITS2&MAXDICT=0;! STAY WITHIN 128K AUXSTACK O LINE 337 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASL N PUSHI #0x00000fff ? JUMPIF <= L_0004 @ PUSH PARMBITS2 N PUSHI #0x00000100 & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH ASL N PUSHI #0x00000fff S 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 O LINE 338 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARSIZE @ PUSH WKFILEK N PUSHI #0x00000300 * MUL N PUSHI #0x0000012c - SUB S ASSVAL 342 %byteintegerarray A(0:WKFILEK*1024) O LINE 342 "regression-compile-tmp/nrimp10s-77.imp" $ DEF A p1=V_0123 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 N PUSHI #0x00000000 @ PUSH WKFILEK N PUSHI #0x00000400 * MUL d DIM 0001 0001 343 %RECORD(LISTF)%ARRAY ASLIST(0:ASL){(LISTF) O LINE 343 "regression-compile-tmp/nrimp10s-77.imp" $ DEF ASLIST p1=V_0124 a/tf=4b b/format=11f c/ostate=100 type=4 (record) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 N PUSHI #0x00000000 @ PUSH ASL d DIM 0001 0001 344 %INTEGERARRAY WORD, TAGS(0:NNAMES) O LINE 344 "regression-compile-tmp/nrimp10s-77.imp" $ DEF WORD p1=V_0125 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_0126 a/tf=1b b/format=1 c/ostate=100 type=1 (integer) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 N PUSHI #0x00000000 @ PUSH NNAMES d DIM 0001 0002 345 %INTEGERARRAY DVHEADS(0:12) O LINE 345 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DVHEADS 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 N PUSHI #0x00000000 N PUSHI #0x0000000c d DIM 0001 0001 346 %INTEGERFNSPEC FROMAR4(%INTEGER PTR) O LINE 346 "regression-compile-tmp/nrimp10s-77.imp" $ DEF FROMAR4 (_lev0id0_lev1id1_FROMAR4) p1=V_0128 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_0129 a/tf=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) O LINE 347 "regression-compile-tmp/nrimp10s-77.imp" $ DEF FROMAR2 (_lev0id0_lev1id1_FROMAR2) p1=V_0129 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_012a a/tf=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) O LINE 348 "regression-compile-tmp/nrimp10s-77.imp" $ DEF TOAR8 (_lev0id0_lev1id1_TOAR8) p1=V_012a 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_012b a/tf=11 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_012c 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) O LINE 349 "regression-compile-tmp/nrimp10s-77.imp" $ DEF TOAR4 (_lev0id0_lev1id1_TOAR4) p1=V_012b 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_012c a/tf=11 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_012d a/tf=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) O LINE 350 "regression-compile-tmp/nrimp10s-77.imp" $ DEF TOAR2 (_lev0id0_lev1id1_TOAR2) p1=V_012c 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_012d a/tf=11 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_012e a/tf=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) O LINE 351 "regression-compile-tmp/nrimp10s-77.imp" $ DEF WARN (_lev0id0_lev1id1_WARN) p1=V_012d 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_012e a/tf=11 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_012f a/tf=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) O LINE 352 "regression-compile-tmp/nrimp10s-77.imp" $ DEF FAULT2 (_lev0id0_lev1id1_FAULT2) p1=V_012e 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_012f a/tf=11 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_0130 a/tf=11 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_0131 a/tf=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) O LINE 353 "regression-compile-tmp/nrimp10s-77.imp" $ DEF FAULT (_lev0id0_lev1id1_FAULT) p1=V_012f 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_0130 a/tf=11 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_0131 a/tf=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) O LINE 354 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PRINTNAME (_lev0id0_lev1id1_PRINTNAME) p1=V_0130 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_0131 a/tf=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 O LINE 355 "regression-compile-tmp/nrimp10s-77.imp" $ DEF MORESPACE (_lev0id0_lev1id1_MORESPACE) p1=V_0131 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) O LINE 357 "regression-compile-tmp/nrimp10s-77.imp" $ DEF INSERTATEND (_lev0id0_lev1id1_INSERTATEND) p1=V_0132 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_0133 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_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 B 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 C 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 } FINISH ) {lev=2} 358 %ROUTINESPEC FROM12(%INTEGER CELL, %INTEGERNAME S1, S2) O LINE 358 "regression-compile-tmp/nrimp10s-77.imp" $ DEF FROM12 (_lev0id0_lev1id1_FROM12) p1=V_0133 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_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 S1 p1=V_0135 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_0136 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) O LINE 359 "regression-compile-tmp/nrimp10s-77.imp" $ DEF FROM123 (_lev0id0_lev1id1_FROM123) 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=2 --> 3, nested=0 --> 1} $ DEF CELL 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 S1 p1=V_0136 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_0137 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_0138 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) O LINE 360 "regression-compile-tmp/nrimp10s-77.imp" $ DEF POP (_lev0id0_lev1id1_POP) p1=V_0135 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_0136 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_0137 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_0138 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_0139 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) O LINE 361 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PUSH (_lev0id0_lev1id1_PUSH) p1=V_0136 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_0137 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_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 S2 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 S3 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 } FINISH ) {lev=2} 362 %INTEGERFNSPEC FIND(%INTEGER LAB, LIST) O LINE 362 "regression-compile-tmp/nrimp10s-77.imp" $ DEF FIND (_lev0id0_lev1id1_FIND) p1=V_0137 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_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 LIST 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 } FINISH ) {lev=2} 363 %ROUTINESPEC MLINK(%INTEGERNAME CELL) O LINE 363 "regression-compile-tmp/nrimp10s-77.imp" $ DEF MLINK (_lev0id0_lev1id1_MLINK) p1=V_0138 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_0139 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) O LINE 364 "regression-compile-tmp/nrimp10s-77.imp" $ DEF REPLACE1 (_lev0id0_lev1id1_REPLACE1) p1=V_0139 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_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 S1 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=2} 365 %ROUTINESPEC REPLACE2(%INTEGER CELL, S2) O LINE 365 "regression-compile-tmp/nrimp10s-77.imp" $ DEF REPLACE2 (_lev0id0_lev1id1_REPLACE2) p1=V_013a 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_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 S2 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 } FINISH ) {lev=2} 366 %ROUTINESPEC REPLACE3(%INTEGER CELL,S3) O LINE 366 "regression-compile-tmp/nrimp10s-77.imp" $ DEF REPLACE3 (_lev0id0_lev1id1_REPLACE3) p1=V_013b 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_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 S3 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 } FINISH ) {lev=2} 367 %ROUTINESPEC REPLACE123(%INTEGER CELL,A1,A2,S3) O LINE 367 "regression-compile-tmp/nrimp10s-77.imp" $ DEF REPLACE123 (_lev0id0_lev1id1_REPLACE123) p1=V_013c 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_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 A1 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 A2 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 S3 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=2} 368 %INTEGERFNSPEC FROM2(%INTEGER CELL) O LINE 368 "regression-compile-tmp/nrimp10s-77.imp" $ DEF FROM2 (_lev0id0_lev1id1_FROM2) p1=V_013d 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_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 } FINISH ) {lev=2} 369 %INTEGERFNSPEC FROM1(%INTEGER CELL) O LINE 369 "regression-compile-tmp/nrimp10s-77.imp" $ DEF FROM1 (_lev0id0_lev1id1_FROM1) p1=V_013e 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_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=2} 370 %INTEGERFNSPEC FROM3(%INTEGER CELL) O LINE 370 "regression-compile-tmp/nrimp10s-77.imp" $ DEF FROM3 (_lev0id0_lev1id1_FROM3) p1=V_013f 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_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=2} 371 %ROUTINESPEC BINSERT(%INTEGERNAME T,B,%INTEGER S1,S2,S3) O LINE 371 "regression-compile-tmp/nrimp10s-77.imp" $ DEF BINSERT (_lev0id0_lev1id1_BINSERT) 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=2 --> 3, nested=0 --> 1} $ DEF T p1=V_0141 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_0142 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_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 S2 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 S3 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=2} 372 %ROUTINESPEC CLEARLIST(%INTEGERNAME HEAD) O LINE 372 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CLEARLIST (_lev0id0_lev1id1_CLEARLIST) 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=2 --> 3, nested=0 --> 1} $ DEF HEAD p1=V_0142 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) O LINE 373 "regression-compile-tmp/nrimp10s-77.imp" $ DEF MESSAGE (_lev0id0_lev1id1_MESSAGE) p1=V_0142 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_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=2} 374 %SYSTEMROUTINESPEC LPUT(%INTEGER A, B, C, D) O LINE 374 "regression-compile-tmp/nrimp10s-77.imp" $ DEF LPUT (_lev0id0_lev1id1_LPUT) p1=V_0143 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_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 B 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 C 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 D 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=2} 375 %SYSTEMLONGREALFNSPEC CPUTIME 376 !*DELSTART O LINE 375 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CPUTIME (_lev0id0_lev1id1_CPUTIME) p1=V_0144 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) O LINE 377 "regression-compile-tmp/nrimp10s-77.imp" $ DEF NCODE (_lev0id0_lev1id1_NCODE) p1=V_0145 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_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 FINISH 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 CA 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=2} 378 %ROUTINESPEC PRINTLIST(%INTEGER HEAD) O LINE 378 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PRINTLIST (_lev0id0_lev1id1_PRINTLIST) p1=V_0146 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_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=2} 379 %ROUTINESPEC PRHEX(%INTEGER VALUE,PLACES) O LINE 379 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PRHEX (_lev0id0_lev1id1_PRHEX) p1=V_0147 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_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 PLACES 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=2} 380 %ROUTINESPEC CHECK ASL 381 !*DELEND O LINE 380 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CHECKASL (_lev0id0_lev1id1_CHECKASL) p1=V_0148 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 O LINE 382 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 N PUSHI #0x00000000 ? JUMPIF # L_0004 383 %SYSTEMROUTINESPEC CONSOURCE(%STRING(31)FILE,%INTEGERNAME AD) O LINE 383 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CONSOURCE (_lev0id0_lev1id1_CONSOURCE) p1=V_0149 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_014a 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_014b 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) O 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 !*********************************************************************** O LINE 387 "regression-compile-tmp/nrimp10s-77.imp" H BEGIN _lev0id0_lev1id1_lev2id2 {lev=2 --> 3} 394 %ROUTINESPEC READ LINE(%INTEGER MODE,CHAR) O LINE 394 "regression-compile-tmp/nrimp10s-77.imp" $ DEF READLINE (_lev0id0_lev1id1_lev2id2_READLINE) 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} $ DEF MODE 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 CHAR 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} 395 %INTEGERFNSPEC COMPARE(%INTEGER P) O LINE 395 "regression-compile-tmp/nrimp10s-77.imp" $ DEF COMPARE (_lev0id0_lev1id1_lev2id2_COMPARE) p1=V_014b 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_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} 396 %ROUTINESPEC PNAME(%INTEGER MODE) O LINE 396 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PNAME (_lev0id0_lev1id1_lev2id2_PNAME) 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 MODE 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 } FINISH ) {lev=3} 397 %ROUTINESPEC CONST(%INTEGER MODE) O LINE 397 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CONST (_lev0id0_lev1id1_lev2id2_CONST) 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} $ DEF MODE 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 } FINISH ) {lev=3} 398 %ROUTINESPEC TEXTTEXT(%INTEGER EBCDIC) O LINE 398 "regression-compile-tmp/nrimp10s-77.imp" $ DEF TEXTTEXT (_lev0id0_lev1id1_lev2id2_TEXTTEXT) 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} $ DEF EBCDIC 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 } FINISH ) {lev=3} 399 %INTEGER CCSIZE,DSIZE,NEXT,ATLINE1,STARSTART O LINE 399 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CCSIZE 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 DSIZE 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 $ DEF NEXT p1=V_0151 a/tf=11 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_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 $ DEF STARSTART p1=V_0153 a/tf=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 O LINE 400 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CCSIZE N PUSHI #0x000003e8 S ASSVAL O LINE 400 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DSIZE N PUSHI #0x00000007 @ PUSH NNAMES * MUL S ASSVAL 401 %INTEGERARRAY DISPLAY,SFS(0:MAXLEVELS) O LINE 401 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DISPLAY p1=V_0154 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_0155 a/tf=1b b/format=1 c/ostate=100 type=1 (integer) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 N PUSHI #0x00000000 N PUSHI #0x0000001f d DIM 0001 0002 402 %BYTEINTEGERARRAY TLINE(-60:161),CC(0:CCSIZE),LETT(0:DSIZE+20) O LINE 402 "regression-compile-tmp/nrimp10s-77.imp" $ DEF TLINE p1=V_0156 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 N PUSHI #0x0000003c U NEGATE N PUSHI #0x000000a1 d DIM 0001 0001 $ DEF CC p1=V_0157 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 N PUSHI #0x00000000 @ PUSH CCSIZE d DIM 0001 0001 $ DEF LETT p1=V_0158 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 N PUSHI #0x00000000 @ PUSH DSIZE N PUSHI #0x00000014 + ADD d DIM 0001 0001 403 %LONGINTEGER ATL0,ASYM0 O LINE 403 "regression-compile-tmp/nrimp10s-77.imp" $ DEF ATL0 p1=V_0159 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_015a 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; O LINE 404 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 N PUSHI #0x000001f4 b BOUNDS $ DEF ILETT p1=V_015b 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 N PUSHI #0x0000000b A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000055 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x0000000c A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x00000055 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000055 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000007 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000057 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000005 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x0000000a A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x0000004b A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000059 A INIT 1 N PUSHI #0x0000004d A INIT 1 N PUSHI #0x00000042 A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x0000000a A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000044 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000057 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x0000000a A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000058 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000059 A INIT 1 N PUSHI #0x0000004d A INIT 1 N PUSHI #0x00000042 A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x0000000b A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000059 A INIT 1 N PUSHI #0x0000004d A INIT 1 N PUSHI #0x00000042 A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x0000000a A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000044 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000059 A INIT 1 N PUSHI #0x0000004d A INIT 1 N PUSHI #0x00000042 A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000044 A INIT 1 N PUSHI #0x00000005 A INIT 1 N PUSHI #0x00000057 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000007 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000057 A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000044 A INIT 1 N PUSHI #0x00000044 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000005 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000046 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000005 A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000007 A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000046 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x00000007 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x0000004d A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x00000044 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000051 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000003 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000058 A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x0000000b A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x0000004d A INIT 1 N PUSHI #0x0000000b A INIT 1 N PUSHI #0x00000042 A INIT 1 N PUSHI #0x00000059 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000056 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000046 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000044 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x00000055 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000048 A INIT 1 N PUSHI #0x0000000b A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000002 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x00000007 A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x00000048 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000044 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x00000048 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000044 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x0000004d A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000058 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x0000004d A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x00000048 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x0000000a A INIT 1 N PUSHI #0x00000046 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x0000004d A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000044 A INIT 1 N PUSHI #0x00000005 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000059 A INIT 1 N PUSHI #0x0000000a A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x0000004d A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000004 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004d A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x00000044 A INIT 1 N PUSHI #0x00000002 A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x00000009 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000056 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x0000000b A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x0000000c A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x00000009 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000048 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x00000009 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000048 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000048 A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000048 A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000006 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000058 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x00000048 A INIT 1 N PUSHI #0x0000000b A INIT 1 N PUSHI #0x00000048 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x00000046 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000008 A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x00000046 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x000000ff A INIT 1 439 IMAX=(-1)>>1;PLABEL=24999 O LINE 439 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH IMAX N PUSHI #0x00000001 U NEGATE N PUSHI #0x00000001 ] RSH S ASSVAL O LINE 439 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PLABEL N PUSHI #0x000061a7 S ASSVAL 440 LETT(0)=0 O LINE 440 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LETT N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL 441 ATLINE1=ADDR(TLINE(1)) O LINE 441 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ATLINE1 @ PUSH ADDR @ PUSH TLINE N PUSHI #0x00000001 a ACCESS p ASSPAR E CALL S ASSVAL 442 INTEGER(ADDR(ATL0)+4)=ATLINE1-1 O LINE 442 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INTEGER @ PUSH ADDR @ PUSH ATL0 p ASSPAR E CALL N PUSHI #0x00000004 + ADD p ASSPAR E CALL @ PUSH ATLINE1 N PUSHI #0x00000001 - SUB S ASSVAL 443 INTEGER(ADDR(ATL0))=16_18000100 O LINE 443 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INTEGER @ PUSH ADDR @ PUSH ATL0 p ASSPAR E CALL p ASSPAR E CALL N PUSHI #0x18000100 S ASSVAL 444 INTEGER(ADDR(ASYM0))=16_28000C00 O LINE 444 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INTEGER @ PUSH ADDR @ PUSH ASYM0 p ASSPAR E CALL p ASSPAR E CALL N PUSHI #0x28000c00 S ASSVAL 445 INTEGER(ADDR(ASYM0)+4)=ADDR(SYMBOL(1300))-4*1300 O LINE 445 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INTEGER @ PUSH ADDR @ PUSH ASYM0 p ASSPAR E CALL N PUSHI #0x00000004 + ADD p ASSPAR E CALL @ PUSH ADDR @ PUSH SYMBOL N PUSHI #0x00000514 a ACCESS p ASSPAR E CALL N PUSHI #0x00000004 N PUSHI #0x00000514 * MUL - SUB S ASSVAL 446 N=12; O LINE 446 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N N PUSHI #0x0000000c S ASSVAL 447 MAX ULAB=NNAMES+16384; ! LARGEST VALID USER LABEL O LINE 447 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MAXULAB @ PUSH NNAMES N PUSHI #0x00004000 + ADD S ASSVAL 448 GLACURR=0; GLACA=FIXEDGLALEN; GLACABUF=GLACA O LINE 448 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GLACURR N PUSHI #0x00000000 S ASSVAL O LINE 448 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GLACA N PUSHI #0x00000030 S ASSVAL O LINE 448 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GLACABUF @ PUSH GLACA S ASSVAL 449 PARMOPT=1 ; PARMARR=1; LAST INST=0 O LINE 449 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMOPT N PUSHI #0x00000001 S ASSVAL O LINE 449 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMARR N PUSHI #0x00000001 S ASSVAL O LINE 449 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LASTINST N PUSHI #0x00000000 S ASSVAL 450 PARMLINE=1; PARMTRACE=1; PARMDIAG=1 O LINE 450 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMLINE N PUSHI #0x00000001 S ASSVAL O LINE 450 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMTRACE N PUSHI #0x00000001 S ASSVAL O LINE 450 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMDIAG N PUSHI #0x00000001 S ASSVAL 451 LIST=1; SFLABEL=20999; PARMCHK=1 O LINE 451 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LIST N PUSHI #0x00000001 S ASSVAL O LINE 451 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SFLABEL N PUSHI #0x00005207 S ASSVAL O LINE 451 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMCHK N PUSHI #0x00000001 S ASSVAL 452 EXITLAB=0; CONTLAB=0 O LINE 452 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXITLAB N PUSHI #0x00000000 S ASSVAL O LINE 452 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONTLAB N PUSHI #0x00000000 S ASSVAL 453 CABUF=0; PPCURR=0; OLDLINE=0; COMPILER=0 O LINE 453 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CABUF N PUSHI #0x00000000 S ASSVAL O LINE 453 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPCURR N PUSHI #0x00000000 S ASSVAL O LINE 453 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OLDLINE N PUSHI #0x00000000 S ASSVAL O LINE 453 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COMPILER N PUSHI #0x00000000 S ASSVAL 454 RLEVEL=0; NMAX=0; USTPTR=0 O LINE 454 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RLEVEL N PUSHI #0x00000000 S ASSVAL O LINE 454 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NMAX N PUSHI #0x00000000 S ASSVAL O LINE 454 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH USTPTR N PUSHI #0x00000000 S ASSVAL 455 LEVEL=0; CA=0; LASTAT=0 O LINE 455 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x00000000 S ASSVAL O LINE 455 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CA N PUSHI #0x00000000 S ASSVAL O LINE 455 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LASTAT N PUSHI #0x00000000 S ASSVAL 456 FAULTY=0; WARNFLAG=0; ALLLONG=0; INHCODE=0 O LINE 456 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FAULTY N PUSHI #0x00000000 S ASSVAL O LINE 456 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WARNFLAG N PUSHI #0x00000000 S ASSVAL O LINE 456 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALLLONG N PUSHI #0x00000000 S ASSVAL O LINE 456 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INHCODE N PUSHI #0x00000000 S ASSVAL 457 DCOMP=0; BFFLAG=0; CPRMODE=0 O LINE 457 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DCOMP N PUSHI #0x00000000 S ASSVAL O LINE 457 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BFFLAG N PUSHI #0x00000000 S ASSVAL O LINE 457 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPRMODE N PUSHI #0x00000000 S ASSVAL 458 NEXT=1; LDPTR=0 O LINE 458 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NEXT N PUSHI #0x00000001 S ASSVAL O LINE 458 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LDPTR N PUSHI #0x00000000 S ASSVAL 459 IOCPDISP=0; CREFHEAD=0; AUXST=0 O LINE 459 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH IOCPDISP N PUSHI #0x00000000 S ASSVAL O LINE 459 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CREFHEAD N PUSHI #0x00000000 S ASSVAL O LINE 459 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AUXST N PUSHI #0x00000000 S ASSVAL 460 RBASE=10; LOGEPDISP=0; EXPEPDISP=0; STRLINK=0 O LINE 460 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RBASE N PUSHI #0x0000000a S ASSVAL O LINE 460 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LOGEPDISP N PUSHI #0x00000000 S ASSVAL O LINE 460 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXPEPDISP N PUSHI #0x00000000 S ASSVAL O LINE 460 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STRLINK N PUSHI #0x00000000 S ASSVAL 461 RECTB=0; IHEAD=0 O LINE 461 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RECTB N PUSHI #0x00000000 S ASSVAL O LINE 461 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH IHEAD N PUSHI #0x00000000 S ASSVAL 462 SSTL=0; STMTS=1; SNUM=0; LEVELINF=0 O LINE 462 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SSTL N PUSHI #0x00000000 S ASSVAL O LINE 462 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STMTS N PUSHI #0x00000001 S ASSVAL O LINE 462 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SNUM N PUSHI #0x00000000 S ASSVAL O LINE 462 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVELINF N PUSHI #0x00000000 S ASSVAL 463 CDCOUNT=0 O LINE 463 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CDCOUNT N PUSHI #0x00000000 S ASSVAL 464 BIMSTR=0 O LINE 464 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BIMSTR N PUSHI #0x00000000 S ASSVAL 465 LOGEPDISP=0; EXPEPDISP=0 O LINE 465 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LOGEPDISP N PUSHI #0x00000000 S ASSVAL O LINE 465 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXPEPDISP N PUSHI #0x00000000 S ASSVAL 466 MAINEP="S#GO"; ! DEFAULT MAIN ENTRY O LINE 466 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MAINEP ' PUSHS "S#GO" S 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 ! O LINE 467 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DICTBASE @ PUSH ADDR @ PUSH LETT N PUSHI #0x00000000 a ACCESS p ASSPAR E CALL S ASSVAL 472 LPUT(0,0,0,0) O LINE 472 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LPUT N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 473 CTIME=CPUTIME O LINE 473 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTIME @ PUSH CPUTIME E CALL S ASSVAL 474 I=COMREG(27) O LINE 474 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH COMREG N PUSHI #0x0000001b p ASSPAR E CALL S ASSVAL 475 STLIMIT=16_1F000 O LINE 475 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STLIMIT N PUSHI #0x0001f000 S ASSVAL 476 %IF I>>24&1#0 %THEN STLIMIT=COMREG(48)-4096 O LINE 476 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000018 ] RSH N PUSHI #0x00000001 & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH STLIMIT @ PUSH COMREG N PUSHI #0x00000030 p ASSPAR E CALL N PUSHI #0x00001000 - SUB S ASSVAL : LOCATE L_0004 477 %IF I&2=2 %THEN LIST=0 O LINE 477 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000002 & AND N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH LIST N PUSHI #0x00000000 S ASSVAL : LOCATE L_0004 478 %IF I&4=4 %THEN PARMDIAG=0 O LINE 478 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000004 & AND N PUSHI #0x00000004 ? JUMPIF # L_0004 @ PUSH PARMDIAG N PUSHI #0x00000000 S ASSVAL : LOCATE L_0004 479 %IF I&16_800000#0 %THEN PARMLINE=0 O LINE 479 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00800000 & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH PARMLINE N PUSHI #0x00000000 S ASSVAL : LOCATE L_0004 480 %IF I&16=16 %THEN PARMCHK=0 O LINE 480 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000010 & AND N PUSHI #0x00000010 ? JUMPIF # L_0004 @ PUSH PARMCHK N PUSHI #0x00000000 S ASSVAL : LOCATE L_0004 481 %IF I&32=32 %THEN PARMARR=0 O LINE 481 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000020 & AND N PUSHI #0x00000020 ? JUMPIF # L_0004 @ PUSH PARMARR N PUSHI #0x00000000 S ASSVAL : LOCATE L_0004 482 PARMPROF=(I>>15&1)!(I>>7&1); ! USE MAP OR PROFILE BIT PRO TEM O LINE 482 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMPROF @ PUSH I N PUSHI #0x0000000f ] RSH N PUSHI #0x00000001 & AND @ PUSH I N PUSHI #0x00000007 ] RSH N PUSHI #0x00000001 & AND ! OR S ASSVAL 483 PARMDYNAMIC=I>>20&1 O LINE 483 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMDYNAMIC @ PUSH I N PUSHI #0x00000014 ] RSH N PUSHI #0x00000001 & AND S ASSVAL 484 PARMLET=I>>13&1 O LINE 484 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMLET @ PUSH I N PUSHI #0x0000000d ] RSH N PUSHI #0x00000001 & AND S ASSVAL 485 DCOMP=I>>14&1; ! PARM CODE OR D O LINE 485 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DCOMP @ PUSH I N PUSHI #0x0000000e ] RSH N PUSHI #0x00000001 & AND S ASSVAL 486 PARMDBUG=I>>18&1 O LINE 486 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMDBUG @ PUSH I N PUSHI #0x00000012 ] RSH N PUSHI #0x00000001 & AND S ASSVAL 487 %IF I&64=64 %THEN PARMTRACE=0 %AND PARMDIAG=0 O LINE 487 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000040 & AND N PUSHI #0x00000040 ? JUMPIF # L_0004 @ PUSH PARMTRACE N PUSHI #0x00000000 S ASSVAL @ PUSH PARMDIAG N PUSHI #0x00000000 S ASSVAL : LOCATE L_0004 488 FREE FORMAT=I&16_80000 O LINE 488 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FREEFORMAT @ PUSH I N PUSHI #0x00080000 & AND S ASSVAL 489 STACK=I>>3&1 O LINE 489 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STACK @ PUSH I N PUSHI #0x00000003 ] RSH N PUSHI #0x00000001 & AND S ASSVAL 490 SMAP=I>>26&1; ! USE PARMZ BIT FOR DUMPING WKFILE O LINE 490 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SMAP @ PUSH I N PUSHI #0x0000001a ] RSH N PUSHI #0x00000001 & AND S ASSVAL 491 TTOPUT=COMREG(40) O LINE 491 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TTOPUT @ PUSH COMREG N PUSHI #0x00000028 p ASSPAR E CALL S ASSVAL 492 %IF I&(1<<16)#0 %THEN %START O LINE 492 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000010 [ LSH & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 493 PARMARR=0; PARMOPT=0 O LINE 493 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMARR N PUSHI #0x00000000 S ASSVAL O LINE 493 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMOPT N PUSHI #0x00000000 S ASSVAL 494 PARMLINE=0; PARMCHK=0; PARMDIAG=0 O LINE 494 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMLINE N PUSHI #0x00000000 S ASSVAL O LINE 494 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMCHK N PUSHI #0x00000000 S ASSVAL O LINE 494 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMDIAG N PUSHI #0x00000000 S ASSVAL 495 %FINISH O LINE 495 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 496 PARMTRACE=PARMTRACE!PARMOPT; ! ALLOW NOTRACE ONLY WITH OPT O LINE 496 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMTRACE @ PUSH PARMTRACE @ PUSH PARMOPT ! OR S ASSVAL 497 IMPS=I>>23&1; ! BIT SET IF IMPS REQUESTED O LINE 497 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH IMPS @ PUSH I N PUSHI #0x00000017 ] RSH N PUSHI #0x00000001 & AND S ASSVAL 498 IMPS=1; ! FOR TESTING O LINE 498 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH IMPS N PUSHI #0x00000001 S ASSVAL 499 NEWLINES(3); SPACES(14) O LINE 499 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NEWLINES N PUSHI #0x00000003 p ASSPAR E CALL O LINE 499 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SPACES N PUSHI #0x0000000e p ASSPAR E CALL 500 PRINTSTRING("ERCC. Imp") O LINE 500 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTSTRING ' PUSHS "ERCC. Imp" p ASSPAR E CALL 501 %IF IMPS#0 %THEN PRINTSYMBOL('s') O LINE 501 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH IMPS N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH PRINTSYMBOL N PUSHI #0x00000073 p ASSPAR E CALL : LOCATE L_0004 502 PRINTSTRING(" Compiler Release") O LINE 502 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTSTRING ' PUSHS " Compiler Release" p ASSPAR E CALL 503 WRITE(RELEASE,1) O LINE 503 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE N PUSHI #0x0000000a p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 504 PRINTSTRING(" Version ".LADATE) O LINE 504 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTSTRING ' PUSHS " Version " @ PUSH LADATE . CONCAT p ASSPAR E CALL 505 NEWLINES(3) O LINE 505 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NEWLINES N PUSHI #0x00000003 p ASSPAR E CALL 506 WRITE(NNAMES,5); WRITE(ASL,5) O LINE 506 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE @ PUSH NNAMES p ASSPAR N PUSHI #0x00000005 p ASSPAR E CALL O LINE 506 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE @ PUSH ASL p ASSPAR N PUSHI #0x00000005 p ASSPAR E CALL 507 NEWLINE O LINE 507 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NEWLINE E CALL 508 ASL WARN=0 O LINE 508 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASLWARN N PUSHI #0x00000000 S ASSVAL 509 ASL CUR BTM=ASL-240 O LINE 509 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASLCURBTM @ PUSH ASL N PUSHI #0x000000f0 - SUB S ASSVAL 510 CONST LIMIT=4*ASL CUR BTM-8 O LINE 510 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTLIMIT N PUSHI #0x00000004 @ PUSH ASLCURBTM * MUL N PUSHI #0x00000008 - SUB S ASSVAL 511 %CYCLE I=ASL CUR BTM,1,ASL-1 O LINE 511 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 @ PUSH ASL N PUSHI #0x00000001 - SUB @ PUSH ASLCURBTM f FOR L_0003 512 ASLIST(I+1)_LINK=I O LINE 512 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASLIST @ PUSH I N PUSHI #0x00000001 + ADD a ACCESS n SELECT 4 @ PUSH I S ASSVAL 513 %REPEAT O LINE 513 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 514 ASLIST(ASL CUR BTM)_LINK=0 O LINE 514 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASLIST @ PUSH ASLCURBTM a ACCESS n SELECT 4 N PUSHI #0x00000000 S ASSVAL 515 ASLIST(0)_S1=-1 O LINE 515 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASLIST N PUSHI #0x00000000 a ACCESS n SELECT 1 N PUSHI #0x00000001 U NEGATE S ASSVAL 516 ASLIST(0)_S2=-1 O LINE 516 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASLIST N PUSHI #0x00000000 a ACCESS n SELECT 2 N PUSHI #0x00000001 U NEGATE S ASSVAL 517 ASLIST(0)_S3=-1 O LINE 517 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASLIST N PUSHI #0x00000000 a ACCESS n SELECT 3 N PUSHI #0x00000001 U NEGATE S ASSVAL 518 ASLIST(0)_LINK=0 O LINE 518 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASLIST N PUSHI #0x00000000 a ACCESS n SELECT 4 N PUSHI #0x00000000 S ASSVAL 519 %CYCLE I=0,1,NNAMES O LINE 519 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 @ PUSH NNAMES N PUSHI #0x00000000 f FOR L_0003 520 WORD(I)=0; TAGS(I)=0; O LINE 520 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WORD @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 520 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TAGS @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL 521 %REPEAT O LINE 521 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 522 %CYCLE I=0,1,12 O LINE 522 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x0000000c N PUSHI #0x00000000 f FOR L_0003 523 DVHEADS(I)=0 O LINE 523 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DVHEADS @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL 524 %REPEAT 525 ! 526 ! NOW DECLARE THE SPECIAL NAMES WHICH ARE IN ARRAY ILETT. 527 ! O LINE 524 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 528 K=0; NEXT=1 O LINE 528 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K N PUSHI #0x00000000 S ASSVAL O LINE 528 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NEXT N PUSHI #0x00000001 S ASSVAL 529 I=ILETT(0) O LINE 529 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH ILETT N PUSHI #0x00000000 a ACCESS S ASSVAL 530 %WHILE I<255 %CYCLE O LINE 530 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH I N PUSHI #0x000000ff ? JUMPIF >= L_0004 531 %CYCLE J=I,-1,1 O LINE 531 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000001 U NEGATE N PUSHI #0x00000001 @ PUSH I f FOR L_0006 532 CC(J)=ILETT(K+J) O LINE 532 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH J a ACCESS @ PUSH ILETT @ PUSH K @ PUSH J + ADD a ACCESS S ASSVAL 533 %REPEAT O LINE 533 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0006 : LOCATE L_0007 534 CC(I+1)=';' O LINE 534 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH I N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x0000003b S ASSVAL 535 R=2; Q=1; PNAME(1) O LINE 535 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R N PUSHI #0x00000002 S ASSVAL O LINE 535 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q N PUSHI #0x00000001 S ASSVAL O LINE 535 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PNAME N PUSHI #0x00000001 p ASSPAR E CALL 536 PUSH(TAGS(LASTNAME),SNPT<<16!16_8000,0,SNUM<<16) O LINE 536 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PUSH @ PUSH TAGS @ PUSH LASTNAME a ACCESS p ASSPAR N PUSHI #0x00001006 N PUSHI #0x00000010 [ LSH N PUSHI #0x00008000 ! OR p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH SNUM N PUSHI #0x00000010 [ LSH p ASSPAR E CALL 537 SNUM=SNUM+1 O LINE 537 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SNUM @ PUSH SNUM N PUSHI #0x00000001 + ADD S ASSVAL 538 K=K+I+1; I=ILETT(K) O LINE 538 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH K @ PUSH I + ADD N PUSHI #0x00000001 + ADD S ASSVAL O LINE 538 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH ILETT @ PUSH K a ACCESS S ASSVAL 539 %REPEAT 540 ! O LINE 539 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 541 COMREG(24)=16; ! RETURN CODE O LINE 541 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COMREG N PUSHI #0x00000018 p ASSPAR E CALL N PUSHI #0x00000010 S ASSVAL 542 DUMMY FORMAT=0; ! DUMMY RECORD FORMAT O LINE 542 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DUMMYFORMAT N PUSHI #0x00000000 S ASSVAL 543 DFHEAD=0 O LINE 543 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DFHEAD N PUSHI #0x00000000 S ASSVAL 544 PUSH(DFHEAD,0,0,0) O LINE 544 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PUSH @ PUSH DFHEAD p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 545 PUSH(DUMMY FORMAT,0,0,DFHEAD); ! FOR BETTER ERROR RECOVERY O LINE 545 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PUSH @ PUSH DUMMYFORMAT p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH DFHEAD p ASSPAR E CALL 546 LINE=0; LENGTH=0; Q=1 O LINE 546 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LINE N PUSHI #0x00000000 S ASSVAL O LINE 546 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LENGTH N PUSHI #0x00000000 S ASSVAL O LINE 546 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q N PUSHI #0x00000001 S ASSVAL 547 R=1; LEVEL=1 O LINE 547 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R N PUSHI #0x00000001 S ASSVAL O LINE 547 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x00000001 S ASSVAL 548 %CYCLE O LINE 548 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 549 %IF Q>=LENGTH %THEN QMAX=1 %AND READ LINE(0,0) O LINE 549 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH LENGTH ? JUMPIF < L_0007 @ PUSH QMAX N PUSHI #0x00000001 S ASSVAL @ PUSH READLINE N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0007 550 WARNFLAG=0 O LINE 550 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WARNFLAG N PUSHI #0x00000000 S ASSVAL 551 STARSTART=R O LINE 551 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STARSTART @ PUSH R S ASSVAL 552 R=R+3 O LINE 552 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000003 + ADD S ASSVAL 553 OLDLINE=LINE O LINE 553 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OLDLINE @ PUSH LINE S ASSVAL 554 A(R)=LINE>>8 O LINE 554 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R a ACCESS @ PUSH LINE N PUSHI #0x00000008 ] RSH S ASSVAL 555 A(R+1)=LINE&255 O LINE 555 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R N PUSHI #0x00000001 + ADD a ACCESS @ PUSH LINE N PUSHI #0x000000ff & AND S ASSVAL 556 R=R+2 O LINE 556 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000002 + ADD S ASSVAL 557 %IF COMPARE(SS)=0 %THEN %START O LINE 557 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COMPARE N PUSHI #0x0000082d p ASSPAR E CALL N PUSHI #0x00000000 ? JUMPIF # L_0007 558 FAULT(100,ADDR(CC(0))) O LINE 558 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FAULT N PUSHI #0x00000064 p ASSPAR @ PUSH ADDR @ PUSH CC N PUSHI #0x00000000 a ACCESS p ASSPAR E CALL p ASSPAR E CALL 559 R=STARSTART O LINE 559 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH STARSTART S ASSVAL 560 %FINISH %ELSE %START O LINE 560 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 561 FAULT(102, 0) %IF R>ARSIZE O LINE 561 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH ARSIZE ? JUMPIF <= L_000a @ PUSH FAULT N PUSHI #0x00000066 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_000a 562 %IF A(STARSTART+5)=COMMALT %THEN R=STARSTART %ELSE %START O LINE 562 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH STARSTART N PUSHI #0x00000005 + ADD a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_000a @ PUSH R @ PUSH STARSTART S ASSVAL F GOTO L_0009 : LOCATE L_000a 563 I=R-STARSTART O LINE 563 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH R @ PUSH STARSTART - SUB S ASSVAL 564 A(STARSTART)=I>>16 O LINE 564 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH STARSTART a ACCESS @ PUSH I N PUSHI #0x00000010 ] RSH S ASSVAL 565 A(STARSTART+1)=I>>8&255 O LINE 565 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH STARSTART N PUSHI #0x00000001 + ADD a ACCESS @ PUSH I N PUSHI #0x00000008 ] RSH N PUSHI #0x000000ff & AND S ASSVAL 566 A(STARSTART+2)=I&255 O LINE 566 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH STARSTART N PUSHI #0x00000002 + ADD a ACCESS @ PUSH I N PUSHI #0x000000ff & AND S ASSVAL 567 %IF A(STARSTART+5)=DECALT %AND LEVEL>1 %THEN %START O LINE 567 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH STARSTART N PUSHI #0x00000005 + ADD a ACCESS N PUSHI #0x00000008 ? JUMPIF # L_000d @ PUSH LEVEL N PUSHI #0x00000001 ? JUMPIF <= L_000d 568 %IF SFS(LEVEL)=0 %THEN %START O LINE 568 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SFS @ PUSH LEVEL a ACCESS N PUSHI #0x00000000 ? JUMPIF # L_0010 569 TO AR4(DISPLAY(LEVEL),STARSTART) O LINE 569 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TOAR4 @ PUSH DISPLAY @ PUSH LEVEL a ACCESS p ASSPAR @ PUSH STARSTART p ASSPAR E CALL 570 DISPLAY(LEVEL)=STARSTART+6 O LINE 570 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISPLAY @ PUSH LEVEL a ACCESS @ PUSH STARSTART N PUSHI #0x00000006 + ADD S ASSVAL 571 %FINISH %ELSE A(STARSTART+6)=128;! FLAG AS UNLINKED O LINE 571 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_000f : LOCATE L_0010 @ PUSH A @ PUSH STARSTART N PUSHI #0x00000006 + ADD a ACCESS N PUSHI #0x00000080 S ASSVAL : LOCATE L_000f 572 %FINISH 573 !*DELSTART O LINE 572 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000d 574 %IF SMAP#0 %THEN %START O LINE 574 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SMAP N PUSHI #0x00000000 ? JUMPIF = L_000d 575 NEWLINE; WRITE(LINE, 5) O LINE 575 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NEWLINE E CALL O LINE 575 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE @ PUSH LINE p ASSPAR N PUSHI #0x00000005 p ASSPAR E CALL 576 WRITE(STARSTART,5); NEWLINE; J=0 O LINE 576 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE @ PUSH STARSTART p ASSPAR N PUSHI #0x00000005 p ASSPAR E CALL O LINE 576 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NEWLINE E CALL O LINE 576 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 577 %CYCLE I=STARSTART, 1, R-1 O LINE 577 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 @ PUSH R N PUSHI #0x00000001 - SUB @ PUSH STARSTART f FOR L_000f 578 WRITE(A(I), 5) O LINE 578 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE @ PUSH A @ PUSH I a ACCESS p ASSPAR N PUSHI #0x00000005 p ASSPAR E CALL 579 J=J+1 O LINE 579 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH J N PUSHI #0x00000001 + ADD S ASSVAL 580 %IF J>=20 %THEN NEWLINE %AND J=0 O LINE 580 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000014 ? JUMPIF < L_0013 @ PUSH NEWLINE E CALL @ PUSH J N PUSHI #0x00000000 S ASSVAL : LOCATE L_0013 581 %REPEAT O LINE 581 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_000f : LOCATE L_0010 582 NEWLINE O LINE 582 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NEWLINE E CALL 583 %FINISH 584 !*DELEND O 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 O LINE 585 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH STARSTART N PUSHI #0x00000005 + ADD a ACCESS N PUSHI #0x00000009 ? JUMPIF # L_000d N PUSHI #0x00000001 @ PUSH A @ PUSH STARSTART N PUSHI #0x00000006 + ADD a ACCESS " JUMPIFD > L_000d N PUSHI #0x00000002 ? JUMPIF > L_000d F GOTO L_0004 : LOCATE L_000d 586 %IF LEVEL=0 %THEN FAULT(14, 0) %AND %EXIT O LINE 586 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x00000000 ? JUMPIF # L_000d @ PUSH FAULT N PUSHI #0x0000000e p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL F GOTO L_0004 : LOCATE L_000d 587 %FINISH O LINE 587 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0009 588 %FINISH O LINE 588 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 589 %REPEAT O LINE 589 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 590 TO AR8(R,0); R=R+8 O LINE 590 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TOAR8 @ PUSH R p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL O LINE 590 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000008 + ADD S ASSVAL 591 %IF R+NEXT>ARSIZE %THEN FAULT(102,0) O LINE 591 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH NEXT + ADD @ PUSH ARSIZE ? JUMPIF <= L_0004 @ PUSH FAULT N PUSHI #0x00000066 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 592 P1SIZE=R 593 ! %IF USE IMP=YES %THEN %START O LINE 592 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P1SIZE @ PUSH R S ASSVAL 594 %CYCLE I=0,1,NEXT O LINE 594 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 @ PUSH NEXT N PUSHI #0x00000000 f FOR L_0003 595 A(R+I)=LETT(I) O LINE 595 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R @ PUSH I + ADD a ACCESS @ PUSH LETT @ PUSH I a ACCESS S 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 O LINE 596 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 606 DICTBASE=ADDR(A(R)) O LINE 606 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DICTBASE @ PUSH ADDR @ PUSH A @ PUSH R a ACCESS p ASSPAR E CALL S ASSVAL 607 R=R+NEXT+1 O LINE 607 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R @ PUSH NEXT + ADD N PUSHI #0x00000001 + ADD S ASSVAL 608 ->BEND O LINE 608 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_015c 609 %ROUTINE READ LINE(%INTEGER MODE,CHAR) O LINE 609 "regression-compile-tmp/nrimp10s-77.imp" $ DEF READLINE (_lev0id0_lev1id1_lev2id2_READLINE) p1=V_014a 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_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 CHAR 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} 610 %ROUTINESPEC GET LINE O LINE 610 "regression-compile-tmp/nrimp10s-77.imp" $ DEF GETLINE (_lev0id0_lev1id1_lev2id2_READLINE_GETLINE) 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} 611 %INTEGER DEL, LL, LP O LINE 611 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DEL 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 LL 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 LP 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 612 LL=0; LP=0; Q=1 O LINE 612 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LL N PUSHI #0x00000000 S ASSVAL O LINE 612 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LP N PUSHI #0x00000000 S ASSVAL O LINE 612 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q N PUSHI #0x00000001 S ASSVAL 613 LENGTH=0; DEL=0 O LINE 613 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LENGTH N PUSHI #0x00000000 S ASSVAL O LINE 613 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DEL N PUSHI #0x00000000 S ASSVAL 614 NEXT: 615 ! %IF USE IMP=YES %THEN %START O LINE 614 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0163 616 LP=LP+1 O LINE 616 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LP @ PUSH LP N PUSHI #0x00000001 + ADD S ASSVAL 617 %IF LP>LL %THEN GET LINE %AND LP=1 O LINE 617 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LP @ PUSH LL ? JUMPIF <= L_0004 @ PUSH GETLINE E CALL @ PUSH LP N PUSHI #0x00000001 S ASSVAL : LOCATE L_0004 618 I=TLINE(LP) O LINE 618 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH TLINE @ PUSH LP a ACCESS S ASSVAL 619 %IF MODE=0 %THEN %START O LINE 619 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF # L_0004 620 %IF I='%' %THEN DEL=128 %AND ->NEXT O LINE 620 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000025 ? JUMPIF # L_0007 @ PUSH DEL N PUSHI #0x00000080 S ASSVAL J JUMP L_0163 : LOCATE L_0007 621 I=ONE CASE(I) O LINE 621 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH ONECASE @ PUSH I a ACCESS S ASSVAL 622 %IF 'A'<=I<='Z' %THEN I=I!DEL %ELSE %START O LINE 622 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000041 @ PUSH I " JUMPIFD > L_0007 N PUSHI #0x0000005a ? JUMPIF > L_0007 @ PUSH I @ PUSH I @ PUSH DEL ! OR S ASSVAL F GOTO L_0006 : LOCATE L_0007 623 DEL=0 O LINE 623 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DEL N PUSHI #0x00000000 S ASSVAL 624 ->NEXT %IF I=' ' O LINE 624 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000020 ? JUMPIF # L_000a J JUMP L_0163 : LOCATE L_000a 625 %FINISH O LINE 625 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 626 LENGTH=LENGTH+1 O LINE 626 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LENGTH @ PUSH LENGTH N PUSHI #0x00000001 + ADD S ASSVAL 627 CC(LENGTH)=I O LINE 627 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH LENGTH a ACCESS @ PUSH I S ASSVAL 628 %IF I='''' %OR I=34 %THEN MODE=1 %AND CHAR=I O LINE 628 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000027 ? JUMPIF = L_0008 @ PUSH I N PUSHI #0x00000022 ? JUMPIF # L_0007 : LOCATE L_0008 @ PUSH MODE N PUSHI #0x00000001 S ASSVAL @ PUSH CHAR @ PUSH I S ASSVAL : LOCATE L_0007 629 %FINISH %ELSE %START O LINE 629 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 630 LENGTH=LENGTH+1 O LINE 630 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LENGTH @ PUSH LENGTH N PUSHI #0x00000001 + ADD S ASSVAL 631 CC(LENGTH)=I O LINE 631 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH LENGTH a ACCESS @ PUSH I S ASSVAL 632 %IF I=CHAR %THEN MODE=0 O LINE 632 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CHAR ? JUMPIF # L_0007 @ PUSH MODE N PUSHI #0x00000000 S ASSVAL : LOCATE L_0007 633 %FINISH O 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 O LINE 634 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000000a ? JUMPIF = L_0004 J JUMP L_0163 : LOCATE L_0004 697 %IF CC(LENGTH-1)='C'+128 %THEN LENGTH=LENGTH-2 %AND ->NEXT O LINE 697 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH LENGTH N PUSHI #0x00000001 - SUB a ACCESS N PUSHI #0x00000043 N PUSHI #0x00000080 + ADD ? JUMPIF # L_0004 @ PUSH LENGTH @ PUSH LENGTH N PUSHI #0x00000002 - SUB S ASSVAL J JUMP L_0163 : LOCATE L_0004 698 FAULT(101,0) %IF LENGTH>CCSIZE O LINE 698 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LENGTH @ PUSH CCSIZE ? JUMPIF <= L_0004 @ PUSH FAULT N PUSHI #0x00000065 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 699 %RETURN O LINE 699 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 700 %ROUTINE GET LINE O LINE 700 "regression-compile-tmp/nrimp10s-77.imp" $ DEF GETLINE (_lev0id0_lev1id1_lev2id2_READLINE_GETLINE) 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} } FINISH ) {lev=5} 701 %SYSTEMROUTINESPEC IOCP(%INTEGER A,B) O LINE 701 "regression-compile-tmp/nrimp10s-77.imp" $ DEF IOCP (_lev0id0_lev1id1_lev2id2_READLINE_GETLINE_IOCP) p1=V_0164 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_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 B 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} 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); O LINE 702 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 N PUSHI #0x000000ff b BOUNDS $ DEF ITOI p1=V_0165 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 N PUSHI #0x00000020 A INIT 10 N PUSHI #0x0000000a A INIT 1 N PUSHI #0x00000020 A INIT 14 N PUSHI #0x00000019 A INIT 1 N PUSHI #0x0000001a A INIT 1 N PUSHI #0x00000020 A INIT 5 N PUSHI #0x00000020 A INIT 1 N PUSHI #0x00000021 A INIT 1 N PUSHI #0x00000022 A INIT 1 N PUSHI #0x00000023 A INIT 1 N PUSHI #0x00000024 A INIT 1 N PUSHI #0x00000025 A INIT 1 N PUSHI #0x00000026 A INIT 1 N PUSHI #0x00000027 A INIT 1 N PUSHI #0x00000028 A INIT 1 N PUSHI #0x00000029 A INIT 1 N PUSHI #0x0000002a A INIT 1 N PUSHI #0x0000002b A INIT 1 N PUSHI #0x0000002c A INIT 1 N PUSHI #0x0000002d A INIT 1 N PUSHI #0x0000002e A INIT 1 N PUSHI #0x0000002f A INIT 1 N PUSHI #0x00000030 A INIT 1 N PUSHI #0x00000031 A INIT 1 N PUSHI #0x00000032 A INIT 1 N PUSHI #0x00000033 A INIT 1 N PUSHI #0x00000034 A INIT 1 N PUSHI #0x00000035 A INIT 1 N PUSHI #0x00000036 A INIT 1 N PUSHI #0x00000037 A INIT 1 N PUSHI #0x00000038 A INIT 1 N PUSHI #0x00000039 A INIT 1 N PUSHI #0x0000003a A INIT 1 N PUSHI #0x0000003b A INIT 1 N PUSHI #0x0000003c A INIT 1 N PUSHI #0x0000003d A INIT 1 N PUSHI #0x0000003e A INIT 1 N PUSHI #0x0000003f A INIT 1 N PUSHI #0x00000040 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000042 A INIT 1 N PUSHI #0x00000043 A INIT 1 N PUSHI #0x00000044 A INIT 1 N PUSHI #0x00000045 A INIT 1 N PUSHI #0x00000046 A INIT 1 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x00000048 A INIT 1 N PUSHI #0x00000049 A INIT 1 N PUSHI #0x0000004a A INIT 1 N PUSHI #0x0000004b A INIT 1 N PUSHI #0x0000004c A INIT 1 N PUSHI #0x0000004d A INIT 1 N PUSHI #0x0000004e A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x00000050 A INIT 1 N PUSHI #0x00000051 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000053 A INIT 1 N PUSHI #0x00000054 A INIT 1 N PUSHI #0x00000055 A INIT 1 N PUSHI #0x00000056 A INIT 1 N PUSHI #0x00000057 A INIT 1 N PUSHI #0x00000058 A INIT 1 N PUSHI #0x00000059 A INIT 1 N PUSHI #0x0000005a A INIT 1 N PUSHI #0x0000005b A INIT 1 N PUSHI #0x0000005c A INIT 1 N PUSHI #0x0000005d A INIT 1 N PUSHI #0x0000005e A INIT 1 N PUSHI #0x0000005f A INIT 1 N PUSHI #0x00000060 A INIT 1 N PUSHI #0x00000061 A INIT 1 N PUSHI #0x00000062 A INIT 1 N PUSHI #0x00000063 A INIT 1 N PUSHI #0x00000064 A INIT 1 N PUSHI #0x00000065 A INIT 1 N PUSHI #0x00000066 A INIT 1 N PUSHI #0x00000067 A INIT 1 N PUSHI #0x00000068 A INIT 1 N PUSHI #0x00000069 A INIT 1 N PUSHI #0x0000006a A INIT 1 N PUSHI #0x0000006b A INIT 1 N PUSHI #0x0000006c A INIT 1 N PUSHI #0x0000006d A INIT 1 N PUSHI #0x0000006e A INIT 1 N PUSHI #0x0000006f A INIT 1 N PUSHI #0x00000070 A INIT 1 N PUSHI #0x00000071 A INIT 1 N PUSHI #0x00000072 A INIT 1 N PUSHI #0x00000073 A INIT 1 N PUSHI #0x00000074 A INIT 1 N PUSHI #0x00000075 A INIT 1 N PUSHI #0x00000076 A INIT 1 N PUSHI #0x00000077 A INIT 1 N PUSHI #0x00000078 A INIT 1 N PUSHI #0x00000079 A INIT 1 N PUSHI #0x0000007a A INIT 1 N PUSHI #0x0000007b A INIT 1 N PUSHI #0x0000007c A INIT 1 N PUSHI #0x0000007d A INIT 1 N PUSHI #0x0000007e A INIT 1 N PUSHI #0x00000020 A INIT 1 N PUSHI #0x0000001a A INIT 5 N PUSHI #0x0000000a A INIT 1 N PUSHI #0x0000001a A INIT 10 N PUSHI #0x0000001a A INIT 16 N PUSHI #0x0000001a A INIT 14 N PUSHI #0x0000005c A INIT 1 N PUSHI #0x00000026 A INIT 1 N PUSHI #0x0000001a A INIT 11 N PUSHI #0x00000023 A INIT 1 N PUSHI #0x0000001a A INIT 4 N PUSHI #0x0000001a A INIT 16 N PUSHI #0x0000001a A INIT 9 N PUSHI #0x00000023 A INIT 1 N PUSHI #0x0000001a A INIT 5 N PUSHI #0x0000005e A INIT 1 N PUSHI #0x0000001a A INIT 32 718 %INTEGER K O LINE 718 "regression-compile-tmp/nrimp10s-77.imp" $ 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 719 LL=0 O LINE 719 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LL N PUSHI #0x00000000 S ASSVAL 720 %IF FILE ADDR=0 %THEN %START; ! SOURCE NOT A 'CLEAN' FILE O LINE 720 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FILEADDR N PUSHI #0x00000000 ? JUMPIF # L_0004 721 {%UNTIL K=NL} %CYCLE O LINE 721 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 722 READ SYMBOL(K) O LINE 722 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH READSYMBOL @ PUSH K p ASSPAR E CALL 723 TLINE(LL+1)=ITOI(K) O LINE 723 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TLINE @ PUSH LL N PUSHI #0x00000001 + ADD a ACCESS @ PUSH ITOI @ PUSH K a ACCESS S ASSVAL 724 LL=LL+1 O LINE 724 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LL @ PUSH LL N PUSHI #0x00000001 + ADD S ASSVAL 725 %REPEAT %UNTIL K=NL O LINE 725 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K N PUSHI #0x0000000a ? JUMPIF = L_0007 B REPEAT L_0006 : LOCATE L_0007 726 %FINISH %ELSE %START O LINE 726 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 727 %IF FILEPTR>=FILE END %START O 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 O LINE 728 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH IHEAD N PUSHI #0x00000000 ? JUMPIF = L_000a @ PUSH POP @ PUSH IHEAD p ASSPAR @ PUSH FILEADDR p ASSPAR @ PUSH FILEPTR p ASSPAR @ PUSH FILEEND p ASSPAR E CALL @ PUSH GETLINE E CALL R RETURN : LOCATE L_000a 729 %SIGNAL %EVENT 9,1 O LINE 729 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 e 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 O LINE 730 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 757 IMP: O LINE 757 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0167 758 {%UNTIL K=NL %OR K=0} %CYCLE O LINE 758 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 759 K=BYTE INTEGER(FILEPTR); ! NEXT CHAR FROM SORCE FILE O LINE 759 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH BYTEINTEGER @ PUSH FILEPTR p ASSPAR E CALL S ASSVAL 760 FILE PTR=FILE PTR+1 O LINE 760 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FILEPTR @ PUSH FILEPTR N PUSHI #0x00000001 + ADD S ASSVAL 761 TLINE(LL+1)=ITOI(K) O LINE 761 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TLINE @ PUSH LL N PUSHI #0x00000001 + ADD a ACCESS @ PUSH ITOI @ PUSH K a ACCESS S ASSVAL 762 LL=LL+1 O LINE 762 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LL @ PUSH LL N PUSHI #0x00000001 + ADD S ASSVAL 763 %REPEAT %UNTIL K=NL %OR K=0 O LINE 763 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K N PUSHI #0x0000000a ? JUMPIF = L_0007 @ PUSH K N PUSHI #0x00000000 ? JUMPIF = L_0007 B REPEAT L_0006 : LOCATE L_0007 764 OLIST: O LINE 764 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0168 765 %FINISH 766 ! %IF MODE=0 %AND LL=1 %THEN GET LINE %AND %RETURN 767 ! LINE=LINE+1 %UNLESS MODE=0 %AND LENGTH>0 O LINE 765 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 768 LINE=LINE+1; ! COUNT ALL LINES O LINE 768 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LINE @ PUSH LINE N PUSHI #0x00000001 + ADD S ASSVAL 769 %IF LIST#0 %THEN %START O LINE 769 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LIST N PUSHI #0x00000000 ? JUMPIF = L_0004 770 %IF MODE=0 %AND LENGTH>0 %THEN PRINTSTRING(" C") %ELSE WRITE(LINE, 5) 771 ! SPACES(8) O LINE 770 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH LENGTH N PUSHI #0x00000000 ? JUMPIF <= L_0007 @ PUSH PRINTSTRING ' PUSHS " C" p ASSPAR E CALL F GOTO L_0006 : LOCATE L_0007 @ PUSH WRITE @ PUSH LINE p ASSPAR N PUSHI #0x00000005 p ASSPAR E CALL : LOCATE L_0006 772 %CYCLE K=-7,1,0 O LINE 772 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K N PUSHI #0x00000001 N PUSHI #0x00000000 N PUSHI #0x00000007 U NEGATE f FOR L_0006 773 TLINE(K)=' ' O LINE 773 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TLINE @ PUSH K a ACCESS N PUSHI #0x00000020 S ASSVAL 774 %REPEAT O LINE 774 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0006 : LOCATE L_0007 775 %IF MODE#0 %THEN TLINE(-7)=M'"' O LINE 775 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH TLINE N PUSHI #0x00000007 U NEGATE a ACCESS N PUSHI #0x00000022 S ASSVAL : LOCATE L_0007 776 TLINE(-8)=LL+8 O LINE 776 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TLINE N PUSHI #0x00000008 U NEGATE a ACCESS @ PUSH LL N PUSHI #0x00000008 + ADD S ASSVAL 777 IOCP(15,ADDR(TLINE(-8))) O LINE 777 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH IOCP N PUSHI #0x0000000f p ASSPAR @ PUSH ADDR @ PUSH TLINE N PUSHI #0x00000008 U NEGATE a ACCESS p ASSPAR E CALL p ASSPAR E CALL 778 %FINISH O 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 O LINE 779 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FREEFORMAT N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH LL N PUSHI #0x00000049 ? JUMPIF <= L_0004 @ PUSH TLINE N PUSHI #0x00000049 a ACCESS N PUSHI #0x0000000a S ASSVAL @ PUSH LL N PUSHI #0x00000049 S ASSVAL : LOCATE L_0004 780 %END O LINE 780 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id2_READLINE_GETLINE {lev=5 --> 4} 781 %END O LINE 781 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id2_READLINE {lev=4 --> 3} 782 %INTEGERFN COMPARE(%INTEGER P) O LINE 782 "regression-compile-tmp/nrimp10s-77.imp" $ DEF COMPARE (_lev0id0_lev1id1_lev2id2_COMPARE) p1=V_014b 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_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 } FINISH ) {lev=4} 783 %INTEGER I, J, ITEM, RA, RL, RP, RQ, RR, RS, MARKER, SSL, ALT, PP O LINE 783 "regression-compile-tmp/nrimp10s-77.imp" $ DEF I 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 J 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 ITEM 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 RA 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 RL 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 RP 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 RQ 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 RR 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 RS 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 MARKER 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 SSL 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 $ DEF ALT p1=V_0169 a/tf=11 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_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 784 %OWNINTEGER SAVECOMP; ! FOR CHECKING DSIDED CONDS O LINE 784 "regression-compile-tmp/nrimp10s-77.imp" $ DEF SAVECOMP p1=V_016b a/tf=11 b/format=1 c/ostate=21 type=1 (integer) form=1 (simple) special=0 () linkage=1 (own) spec=0 indirect=0 unass=1 A INIT 1 785 %SWITCH BIP(999:1038) 786 ! %IF USE IMP=YES %THEN %START O LINE 785 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003e7 N PUSHI #0x0000040e b BOUNDS $ DEF BIP p1=V_016c 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) O LINE 787 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RP @ PUSH SYMBOL @ PUSH P a ACCESS S ASSVAL 788 RL=LEVEL O LINE 788 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RL @ PUSH LEVEL S ASSVAL 789 P=P+1 O LINE 789 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S 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 O LINE 790 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PP @ PUSH P S ASSVAL 803 COMM: 804 ! %IF USE IMP=YES %THEN %START O LINE 803 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_016d 805 RQ=Q; ! RESET VALUES OF LINE&AR PTRS O LINE 805 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RQ @ PUSH Q S ASSVAL 806 RR=R O LINE 806 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RR @ PUSH R S ASSVAL 807 SSL=STRLINK; ! SAVE STRING LINK O LINE 807 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SSL @ PUSH STRLINK S ASSVAL 808 ALT=1; ! FIRST ALTERNATIVE TO BE TRIED O LINE 808 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT N PUSHI #0x00000001 S ASSVAL 809 RA=SYMBOL(P); ! RA TO NEXT PHRASE ALTERNATIVE O LINE 809 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RA @ PUSH SYMBOL @ PUSH P a ACCESS S 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 O LINE 810 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RS @ PUSH P S ASSVAL 822 UPR: R=R+1 O LINE 822 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_016e O LINE 822 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000001 + ADD S ASSVAL 823 SUCC: ! SUCCESS ON TO NEXT ITEM 824 ! %IF USE IMP=YES %THEN %START O LINE 823 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_016f 825 RS=RS+1; ! RS=NEXT ALTERNATIVE MEANS THAT 826 ! THIS ALT HAS BEEN COMPLETED SO 827 ! EXIT WITH HIT=1 O LINE 825 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RS @ PUSH RS N PUSHI #0x00000001 + ADD S ASSVAL 828 %IF RS=RA %THEN ->FINI O LINE 828 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RS @ PUSH RA ? JUMPIF # L_0004 J JUMP L_0170 : LOCATE L_0004 829 ITEM=SYMBOL(RS); ! NEXT BRICK IN THE CURRENT ALT O LINE 829 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ITEM @ PUSH SYMBOL @ PUSH RS a ACCESS S 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 O LINE 830 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ITEM N PUSHI #0x000003e7 ? JUMPIF >= L_0004 J JUMP L_0171 : LOCATE L_0004 842 %IF ITEM<1300 %THEN ->BIP(ITEM) 843 ! BRICK IS A PHRASE TYPE 844 ! %IF USE IMP=YES %THEN %START O LINE 842 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ITEM N PUSHI #0x00000514 ? JUMPIF >= L_0004 @ PUSH ITEM W SJUMP 364 : 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 O LINE 845 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COMPARE @ PUSH ITEM p ASSPAR E CALL N PUSHI #0x00000000 ? JUMPIF # L_0004 J JUMP L_0172 : LOCATE L_0004 859 ->SUCC O LINE 859 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 860 LIT: ! BRICK IS LITERAL 861 ! %IF USE IMP=YES %THEN %START O LINE 860 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0171 862 I=CC(Q); ! OBTAIN CURRENT CHARACTER O LINE 862 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 863 ->FAIL %UNLESS I=CLETT(ITEM+1) O LINE 863 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CLETT @ PUSH ITEM N PUSHI #0x00000001 + ADD a ACCESS ? JUMPIF = L_0004 J JUMP L_0172 : LOCATE L_0004 864 Q=Q+1 O LINE 864 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 865 K=CLETT(ITEM)+ITEM O LINE 865 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH CLETT @ PUSH ITEM a ACCESS @ PUSH ITEM + ADD S ASSVAL 866 ITEM=ITEM+2 O LINE 866 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ITEM @ PUSH ITEM N PUSHI #0x00000002 + ADD S ASSVAL 867 %WHILE ITEM<=K %CYCLE O 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) O LINE 868 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH Q a ACCESS @ PUSH CLETT @ PUSH ITEM a ACCESS ? JUMPIF = L_0007 J JUMP L_0172 : LOCATE L_0007 869 Q=Q+1 O LINE 869 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 870 ITEM=ITEM+1 O LINE 870 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ITEM @ PUSH ITEM N PUSHI #0x00000001 + ADD S 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 O LINE 871 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 885 ->SUCC; ! MATCHED SUCCESSFULLY O LINE 885 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 886 FAIL: ! FAILURE - NOTE POSITION REACHD 887 ! %IF USE IMP=YES %THEN %START O LINE 886 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0172 888 %IF RA=RP %THEN ->TFAIL; ! TOTAL FAILURE NO ALT TO TRY O LINE 888 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RA @ PUSH RP ? JUMPIF # L_0004 J JUMP L_0173 : LOCATE L_0004 889 QMAX=Q %IF Q>QMAX O LINE 889 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH QMAX ? JUMPIF <= L_0004 @ PUSH QMAX @ PUSH Q S ASSVAL : LOCATE L_0004 890 Q=RQ; ! RESET LINE AND A.R. POINTERS O LINE 890 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH RQ S ASSVAL 891 R=RR+1; ! AVOID GOING VIA UPR: O LINE 891 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH RR N PUSHI #0x00000001 + ADD S ASSVAL 892 STRLINK=SSL O LINE 892 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STRLINK @ PUSH SSL S ASSVAL 893 ALT=ALT+1; ! MOVE TO NEXT ALT OF PHRASE O LINE 893 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT @ PUSH ALT N PUSHI #0x00000001 + ADD S ASSVAL 894 RS=RA O LINE 894 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RS @ PUSH RA S 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 O LINE 895 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RA @ PUSH SYMBOL @ PUSH RA a ACCESS S ASSVAL 915 ->SUCC O LINE 915 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 916 TFAIL: O LINE 916 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0173 917 LEVEL=RL 918 ! %IF USE IMP=YES %THEN %START O LINE 917 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL @ PUSH RL S ASSVAL 919 %RESULT=0 920 ! %FINISH %ELSE %START 921 ! *LSS_0; *J_%TOS 922 ! %FINISH O LINE 919 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 V RESULT 923 BIP(999): ! REPEATED PHRASE O LINE 923 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003e7 _ SLABEL 364 924 A(RR)=ALT; P=PP O LINE 924 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH RR a ACCESS @ PUSH ALT S ASSVAL O LINE 924 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH PP S ASSVAL 925 ->COMM O LINE 925 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016d 926 BIP(1000):FINI: ! NULL ALWAYS LAST & OK O LINE 926 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003e8 _ SLABEL 364 O LINE 926 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0170 927 A(RR)=ALT 928 ! %IF USE IMP=YES %THEN %START O LINE 927 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH RR a ACCESS @ PUSH ALT S ASSVAL 929 %RESULT=1 930 ! %FINISH %ELSE %START 931 ! *LSS_1; *J_%TOS 932 ! %FINISH O LINE 929 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 V RESULT 933 BIP(1001): ! PHRASE NAME O LINE 933 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003e9 _ SLABEL 364 934 BIP(1004): ! PHRASE OLDNAME O LINE 934 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003ec _ SLABEL 364 935 I=CC(Q); ! OBTAIN CURRENT CHARACTER O LINE 935 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 936 ->FAIL %UNLESS TRTAB(I)=2 O LINE 936 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TRTAB @ PUSH I a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0004 J JUMP L_0172 : LOCATE L_0004 937 PNAME(ITEM-1004) O LINE 937 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PNAME @ PUSH ITEM N PUSHI #0x000003ec - SUB p ASSPAR E CALL 938 ->SUCC %IF HIT=1; ->FAIL O LINE 938 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HIT N PUSHI #0x00000001 ? JUMPIF # L_0004 J JUMP L_016f : LOCATE L_0004 O LINE 938 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0172 939 BIP(1002): ! PHRASE INTEGER CONSTANT O LINE 939 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003ea _ SLABEL 364 940 BIP(1003): ! PHRASE CONST O LINE 940 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003eb _ SLABEL 364 941 CONST(ITEM-1003) O LINE 941 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONST @ PUSH ITEM N PUSHI #0x000003eb - SUB p ASSPAR E CALL 942 ->FAIL %IF HIT=0 O LINE 942 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HIT N PUSHI #0x00000000 ? JUMPIF # L_0004 J JUMP L_0172 : LOCATE L_0004 943 ->SUCC O LINE 943 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 944 BIP(1005): ! PHRASE N O LINE 944 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003ed _ SLABEL 364 945 I=CC(Q); ! OBTAIN CURRENT CHARACTER O LINE 945 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 946 ->FAIL %UNLESS '0'<=I<='9' O LINE 946 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000030 @ PUSH I " JUMPIFD > L_0005 N PUSHI #0x00000039 ? JUMPIF <= L_0004 : LOCATE L_0005 J JUMP L_0172 : LOCATE L_0004 947 S=0 O LINE 947 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S N PUSHI #0x00000000 S ASSVAL 948 %WHILE '0'<=I<='9' %CYCLE O LINE 948 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 N PUSHI #0x00000030 @ PUSH I " JUMPIFD > L_0004 N PUSHI #0x00000039 ? JUMPIF > L_0004 949 S=10*S+I&15 O LINE 949 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S N PUSHI #0x0000000a @ PUSH S * MUL @ PUSH I N PUSHI #0x0000000f & AND + ADD S ASSVAL 950 Q=Q+1; I=CC(Q) O LINE 950 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 950 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 951 %REPEAT O LINE 951 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 952 TOAR2(R,S) O LINE 952 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TOAR2 @ PUSH R p ASSPAR @ PUSH S p ASSPAR E CALL 953 R=R+2; ->SUCC O LINE 953 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000002 + ADD S ASSVAL O LINE 953 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 954 BIP(1006): ! PHRASE S=SEPARATOR O LINE 954 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003ee _ SLABEL 364 955 I=CC(Q); ! OBTAIN CURRENT CHARACTER O LINE 955 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 956 ->SUCC %IF I=NL O LINE 956 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000000a ? JUMPIF # L_0004 J JUMP L_016f : LOCATE L_0004 957 ->FAIL %UNLESS I=';' O LINE 957 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000003b ? JUMPIF = L_0004 J JUMP L_0172 : LOCATE L_0004 958 Q=Q+1; ->SUCC O LINE 958 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 958 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 959 BIP(1007): 960 ! PHRASE COMMENT TEXT O LINE 959 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003ef _ SLABEL 364 961 I=CC(Q); ! OBTAIN CURRENT CHARACTER O LINE 961 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 962 J=I O LINE 962 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH I S ASSVAL 963 ->TX %IF I=';' %OR I=NL O LINE 963 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000003b ? JUMPIF = L_0005 @ PUSH I N PUSHI #0x0000000a ? JUMPIF # L_0004 : LOCATE L_0005 J JUMP L_0174 : 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) O LINE 964 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000021 ? JUMPIF = L_0004 @ PUSH I N PUSHI #0x0000007c ? JUMPIF = L_0004 @ PUSH I N PUSHI #0x00000043 N PUSHI #0x00000080 + ADD ? JUMPIF # L_0005 @ PUSH CC @ PUSH Q N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x0000004f N PUSHI #0x00000080 + ADD ? JUMPIF # L_0005 @ PUSH CC @ PUSH Q N PUSHI #0x00000002 + ADD a ACCESS @ PUSH CC @ PUSH Q N PUSHI #0x00000003 + ADD a ACCESS " JUMPIFD # L_0005 N PUSHI #0x0000004d N PUSHI #0x00000080 + ADD ? JUMPIF # L_0005 @ PUSH CC @ PUSH Q N PUSHI #0x00000004 + ADD a ACCESS N PUSHI #0x00000045 N PUSHI #0x00000080 + ADD ? JUMPIF # L_0005 @ PUSH CC @ PUSH Q N PUSHI #0x00000005 + ADD a ACCESS N PUSHI #0x0000004e N PUSHI #0x00000080 + ADD ? JUMPIF # L_0005 @ PUSH CC @ PUSH Q N PUSHI #0x00000006 + ADD a ACCESS N PUSHI #0x00000054 N PUSHI #0x00000080 + ADD ? JUMPIF = L_0004 : LOCATE L_0005 J JUMP L_0172 : LOCATE L_0004 965 Q=Q+1+6*(I>>7); J=CC(Q) O LINE 965 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD N PUSHI #0x00000006 @ PUSH I N PUSHI #0x00000007 ] RSH * MUL + ADD S ASSVAL O LINE 965 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 966 %CYCLE O LINE 966 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 967 %EXIT %IF J=NL %OR J=';' O LINE 967 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x0000000a ? JUMPIF = L_0008 @ PUSH J N PUSHI #0x0000003b ? JUMPIF # L_0007 : LOCATE L_0008 F GOTO L_0004 : LOCATE L_0007 968 Q=Q+1; J=CC(Q) O LINE 968 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 968 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 969 %REPEAT O LINE 969 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 970 TX: Q=Q+1 %IF J=';' O LINE 970 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0174 O LINE 970 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x0000003b ? JUMPIF # L_0004 @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0004 971 ->SUCC O LINE 971 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 972 BIP(1008): ! PHRASE BIGHOLE O LINE 972 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003f0 _ SLABEL 364 973 TO AR4(R,0) O LINE 973 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TOAR4 @ PUSH R p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 974 R=R+4; ->SUCC O LINE 974 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000004 + ADD S ASSVAL O LINE 974 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 975 BIP(1009): ! PHRASE N255 O LINE 975 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003f1 _ SLABEL 364 976 I=CC(Q); ! OBTAIN CURRENT CHARACTER O LINE 976 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 977 ->FAIL %UNLESS '0'<=I<='9' O LINE 977 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000030 @ PUSH I " JUMPIFD > L_0005 N PUSHI #0x00000039 ? JUMPIF <= L_0004 : LOCATE L_0005 J JUMP L_0172 : LOCATE L_0004 978 S=0 O LINE 978 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S N PUSHI #0x00000000 S ASSVAL 979 %WHILE '0'<=I<='9' %CYCLE O LINE 979 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 N PUSHI #0x00000030 @ PUSH I " JUMPIFD > L_0004 N PUSHI #0x00000039 ? JUMPIF > L_0004 980 S=10*S+I&15 O LINE 980 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S N PUSHI #0x0000000a @ PUSH S * MUL @ PUSH I N PUSHI #0x0000000f & AND + ADD S ASSVAL 981 Q=Q+1; I=CC(Q) O LINE 981 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 981 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 982 %REPEAT O LINE 982 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 983 ->FAIL %UNLESS 0<=S<=255 O LINE 983 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 @ PUSH S " JUMPIFD > L_0005 N PUSHI #0x000000ff ? JUMPIF <= L_0004 : LOCATE L_0005 J JUMP L_0172 : LOCATE L_0004 984 A(R)=S; ->UPR O LINE 984 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R a ACCESS @ PUSH S S ASSVAL O LINE 984 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016e 985 BIP(1010): ! PHRASE HOLE O LINE 985 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003f2 _ SLABEL 364 986 MARKER=R; R=R+2; ->SUCC O LINE 986 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKER @ PUSH R S ASSVAL O LINE 986 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000002 + ADD S ASSVAL O LINE 986 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 987 BIP(1011): ! PHRASE MARK O LINE 987 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003f3 _ SLABEL 364 988 I=R-MARKER O LINE 988 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH R @ PUSH MARKER - SUB S ASSVAL 989 A(MARKER+1)<-I O LINE 989 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH MARKER N PUSHI #0x00000001 + ADD a ACCESS @ PUSH I j JAM 990 A(MARKER)<-I>>8 O LINE 990 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH MARKER a ACCESS @ PUSH I N PUSHI #0x00000008 ] RSH j JAM 991 ->SUCC O LINE 991 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 992 BIP(1012): ! PHRASE READLINE? O LINE 992 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003f4 _ SLABEL 364 993 I=CC(Q); ! OBTAIN CURRENT CHARACTER O LINE 993 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 994 %WHILE I=NL %%CYCLE O LINE 994 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH I N PUSHI #0x0000000a ? JUMPIF # L_0004 995 READLINE(0,0) O LINE 995 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH READLINE N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 996 RQ=1 O LINE 996 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RQ N PUSHI #0x00000001 S ASSVAL 997 I=CC(Q) O LINE 997 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 998 %REPEAT O LINE 998 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 999 FAULT(102,0) %IF R>ARSIZE O LINE 999 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH ARSIZE ? JUMPIF <= L_0004 @ PUSH FAULT N PUSHI #0x00000066 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 1000 ->SUCC O LINE 1000 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 1001 BIP(1013): ! PHRASE CHECKIMPS O LINE 1001 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003f5 _ SLABEL 364 1002 ->FAIL %UNLESS IMPS=1; ->SUCC O LINE 1002 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH IMPS N PUSHI #0x00000001 ? JUMPIF = L_0004 J JUMP L_0172 : LOCATE L_0004 O LINE 1002 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 1003 BIP(1014): ! PHRASE DUMMY APP O LINE 1003 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003f6 _ SLABEL 364 1004 A(R)=2; A(R+1)=2 O LINE 1004 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000002 S ASSVAL O LINE 1004 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000002 S ASSVAL 1005 R=R+2; ->SUCC O LINE 1005 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000002 + ADD S ASSVAL O LINE 1005 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 1006 BIP(1015): ! PHRASE DOWN=NEW TEXT LEVEL O LINE 1006 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003f7 _ SLABEL 364 1007 LEVEL=LEVEL+1 O LINE 1007 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL @ PUSH LEVEL N PUSHI #0x00000001 + ADD S ASSVAL 1008 TO AR4(R,0) O LINE 1008 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TOAR4 @ PUSH R p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 1009 DISPLAY(LEVEL)=R O LINE 1009 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISPLAY @ PUSH LEVEL a ACCESS @ PUSH R S ASSVAL 1010 SFS(LEVEL)=0 O LINE 1010 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SFS @ PUSH LEVEL a ACCESS N PUSHI #0x00000000 S ASSVAL 1011 R=R+4 O LINE 1011 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000004 + ADD S ASSVAL 1012 ->SUCC O LINE 1012 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 1013 BIP(1016): ! PHRASE UP 1 TEXTUAL LEVEL O LINE 1013 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003f8 _ SLABEL 364 1014 DISPLAY(LEVEL)=0 O LINE 1014 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISPLAY @ PUSH LEVEL a ACCESS N PUSHI #0x00000000 S ASSVAL 1015 %WHILE SFS(LEVEL)#0 %CYCLE O LINE 1015 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH SFS @ PUSH LEVEL a ACCESS N PUSHI #0x00000000 ? JUMPIF = L_0004 1016 POP(SFS(LEVEL),I,J,K) O LINE 1016 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH POP @ PUSH SFS @ PUSH LEVEL a ACCESS p ASSPAR @ PUSH I p ASSPAR @ PUSH J p ASSPAR @ PUSH K p ASSPAR E CALL 1017 %IF I=1 %THEN FAULT2(53,K,0); ! FINISH MISSING O LINE 1017 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH FAULT2 N PUSHI #0x00000035 p ASSPAR @ PUSH K p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0007 1018 %IF I=2 %THEN FAULT2(13,K,0); ! %REPEAT MISSING O LINE 1018 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000002 ? JUMPIF # L_0007 @ PUSH FAULT2 N PUSHI #0x0000000d p ASSPAR @ PUSH K p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0007 1019 %REPEAT O LINE 1019 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1020 LEVEL=LEVEL-1 O LINE 1020 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL @ PUSH LEVEL N PUSHI #0x00000001 - SUB S ASSVAL 1021 ->SUCC O LINE 1021 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 1022 BIP(1017): ! PHRASE LISTON O LINE 1022 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003f9 _ SLABEL 364 1023 LIST=1; ->SUCC O LINE 1023 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LIST N PUSHI #0x00000001 S ASSVAL O LINE 1023 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 1024 BIP(1018): ! PHRASE LISTOFF O LINE 1024 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003fa _ SLABEL 364 1025 LIST=0; ->SUCC O LINE 1025 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LIST N PUSHI #0x00000000 S ASSVAL O LINE 1025 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 1026 BIP(1019): ! PHRASE COLON FOR LABEL O LINE 1026 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003fb _ SLABEL 364 1027 ->FAIL %UNLESS CC(Q-1)=':' O LINE 1027 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH Q N PUSHI #0x00000001 - SUB a ACCESS N PUSHI #0x0000003a ? JUMPIF = L_0004 J JUMP L_0172 : LOCATE L_0004 1028 ->SUCC O LINE 1028 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 1029 BIP(1020): ! PHRASE NOTE CONST O LINE 1029 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003fc _ SLABEL 364 1030 %IF CTYPE=5 %THEN TOAR4(S-4,STRLINK) %AND STRLINK=S-4 O LINE 1030 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTYPE N PUSHI #0x00000005 ? JUMPIF # L_0004 @ PUSH TOAR4 @ PUSH S N PUSHI #0x00000004 - SUB p ASSPAR @ PUSH STRLINK p ASSPAR E CALL @ PUSH STRLINK @ PUSH S N PUSHI #0x00000004 - SUB S ASSVAL : LOCATE L_0004 1031 ->SUCC O LINE 1031 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 1032 BIP(1021): ! TRACE FOR ON CONDITIONS O LINE 1032 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003fd _ SLABEL 364 1033 PARMTRACE=1; ->SUCC O LINE 1033 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMTRACE N PUSHI #0x00000001 S ASSVAL O LINE 1033 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 1034 BIP(1022): ! SET MNEMONIC O LINE 1034 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003fe _ SLABEL 364 1035 I=CC(Q); ! OBTAIN CURRENT CHARACTER O LINE 1035 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1036 S=M' ' O LINE 1036 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S N PUSHI #0x20202020 S ASSVAL 1037 %WHILE 'A'<=I<='Z' %CYCLE O LINE 1037 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 N PUSHI #0x00000041 @ PUSH I " JUMPIFD > L_0004 N PUSHI #0x0000005a ? JUMPIF > L_0004 1038 S=S<<8!I; Q=Q+1; I=CC(Q) O LINE 1038 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S @ PUSH S N PUSHI #0x00000008 [ LSH @ PUSH I ! OR S ASSVAL O LINE 1038 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 1038 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1039 %REPEAT O LINE 1039 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1040 ->FAIL %UNLESS I='_' %AND S#M' ' O LINE 1040 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000005f ? JUMPIF # L_0005 @ PUSH S N PUSHI #0x20202020 ? JUMPIF # L_0004 : LOCATE L_0005 J JUMP L_0172 : LOCATE L_0004 1041 Q=Q+1; ->SUCC O LINE 1041 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 1041 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 1042 BIP(1023): ! PRIMARY FORMAT MNEMOINC O LINE 1042 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x000003ff _ SLABEL 364 1043 %CYCLE I=7,1,126 O LINE 1043 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x0000007e N PUSHI #0x00000007 f FOR L_0003 1044 ->PFND %IF OPC(I)=S O LINE 1044 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OPC @ PUSH I a ACCESS @ PUSH S ? JUMPIF # L_0007 J JUMP L_0175 : LOCATE L_0007 1045 %REPEAT O LINE 1045 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1046 ->FAIL O LINE 1046 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0172 1047 PFND: O LINE 1047 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0175 1048 ->FAIL %IF 8<=I>>3<=11 %AND I&7<=3 O LINE 1048 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000008 @ PUSH I N PUSHI #0x00000003 ] RSH " JUMPIFD > L_0004 N PUSHI #0x0000000b ? JUMPIF > L_0004 @ PUSH I N PUSHI #0x00000007 & AND N PUSHI #0x00000003 ? JUMPIF > L_0004 J JUMP L_0172 : LOCATE L_0004 1049 A(R)=2*I; ->UPR O LINE 1049 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000002 @ PUSH I * MUL S ASSVAL O LINE 1049 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016e 1050 BIP(1024): ! SECONDARY FORMAT MNEMONIC O LINE 1050 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000400 _ SLABEL 364 1051 %CYCLE I=64,8,88 O LINE 1051 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000008 N PUSHI #0x00000058 N PUSHI #0x00000040 f FOR L_0003 1052 %CYCLE J=0,1,3 O LINE 1052 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000001 N PUSHI #0x00000003 N PUSHI #0x00000000 f FOR L_0006 1053 ->SFND %IF OPC(I+J)=S O LINE 1053 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OPC @ PUSH I @ PUSH J + ADD a ACCESS @ PUSH S ? JUMPIF # L_000a J JUMP L_0176 : LOCATE L_000a 1054 %REPEAT O LINE 1054 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0006 : LOCATE L_0007 1055 %REPEAT O LINE 1055 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1056 ->FAIL O LINE 1056 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0172 1057 SFND: A(R)=2*(I+J); ->UPR O LINE 1057 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0176 O LINE 1057 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000002 @ PUSH I @ PUSH J + ADD * MUL S ASSVAL O LINE 1057 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016e 1058 BIP(1025): ! TERTIARY FORMAT MNEMONIC O LINE 1058 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000401 _ SLABEL 364 1059 %CYCLE I=3,-1,1 O LINE 1059 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 U NEGATE N PUSHI #0x00000001 N PUSHI #0x00000003 f FOR L_0003 1060 %IF OPC(I)=S %THEN A(R)=2*I %AND ->UPR O LINE 1060 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OPC @ PUSH I a ACCESS @ PUSH S ? JUMPIF # L_0007 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000002 @ PUSH I * MUL S ASSVAL J JUMP L_016e : LOCATE L_0007 1061 %REPEAT; ->FAIL O LINE 1061 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 O LINE 1061 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0172 1062 BIP(1026): ! P(OP)=+,-,&,****,**,*,!!,!, 1063 ! //,/,>>,<<,.,\\,\; O LINE 1062 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000402 _ SLABEL 364 1064 I=CC(Q); ! OBTAIN CURRENT CHARACTER O LINE 1064 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1065 ->FAIL %UNLESS 32>((I-32)&31)&16_4237000A#0 O LINE 1065 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000020 @ PUSH I " JUMPIFD >= L_0005 N PUSHI #0x0000007f ? JUMPIF >= L_0005 N PUSHI #0x80000000 @ PUSH I N PUSHI #0x00000020 - SUB N PUSHI #0x0000001f & AND ] RSH N PUSHI #0x4237000a & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 : LOCATE L_0005 J JUMP L_0172 : LOCATE L_0004 1066 Q=Q+1 O LINE 1066 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 1067 %IF I='+' %THEN A(R)=1 %AND ->UPR O LINE 1067 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000002b ? JUMPIF # L_0004 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000001 S ASSVAL J JUMP L_016e : LOCATE L_0004 1068 %IF I='-' %THEN A(R)=2 %AND ->UPR O LINE 1068 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000002d ? JUMPIF # L_0004 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000002 S ASSVAL J JUMP L_016e : LOCATE L_0004 1069 %IF I='&' %THEN A(R)=3 %AND ->UPR O LINE 1069 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000026 ? JUMPIF # L_0004 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000003 S ASSVAL J JUMP L_016e : LOCATE L_0004 1070 J=CC(Q) O LINE 1070 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1071 %IF I='*' %THEN %START O LINE 1071 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000002a ? JUMPIF # L_0004 1072 %IF J#I %THEN A(R)=6 %AND ->UPR O LINE 1072 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH I ? JUMPIF = L_0007 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000006 S ASSVAL J JUMP L_016e : LOCATE L_0007 1073 %IF CC(Q+1)=I=CC(Q+2) %THEN A(R)=4 %AND Q=Q+3 %AND ->UPR O LINE 1073 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH Q N PUSHI #0x00000001 + ADD a ACCESS @ PUSH I " JUMPIFD # L_0007 @ PUSH CC @ PUSH Q N PUSHI #0x00000002 + ADD a ACCESS ? JUMPIF # L_0007 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000004 S ASSVAL @ PUSH Q @ PUSH Q N PUSHI #0x00000003 + ADD S ASSVAL J JUMP L_016e : LOCATE L_0007 1074 A(R)=5; Q=Q+1; ->UPR O LINE 1074 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000005 S ASSVAL O LINE 1074 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 1074 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016e 1075 %FINISH O LINE 1075 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1076 %IF I='/' %THEN %START O LINE 1076 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000002f ? JUMPIF # L_0004 1077 %IF J#I %THEN A(R)=10 %AND ->UPR O LINE 1077 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH I ? JUMPIF = L_0007 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x0000000a S ASSVAL J JUMP L_016e : LOCATE L_0007 1078 A(R)=9; Q=Q+1; ->UPR O LINE 1078 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000009 S ASSVAL O LINE 1078 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 1078 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016e 1079 %FINISH O LINE 1079 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1080 %IF I='!' %THEN %START O LINE 1080 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000021 ? JUMPIF # L_0004 1081 %IF J#I %THEN A(R)=8 %AND ->UPR O LINE 1081 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH I ? JUMPIF = L_0007 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000008 S ASSVAL J JUMP L_016e : LOCATE L_0007 1082 A(R)=7; Q=Q+1; ->UPR O LINE 1082 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000007 S ASSVAL O LINE 1082 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 1082 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016e 1083 %FINISH O LINE 1083 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1084 %IF I='.' %THEN A(R)=13 %AND ->UPR O LINE 1084 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000002e ? JUMPIF # L_0004 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x0000000d S ASSVAL J JUMP L_016e : LOCATE L_0004 1085 %IF I=J='<' %THEN A(R)=12 %AND Q=Q+1 %AND ->UPR O LINE 1085 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH J " JUMPIFD # L_0004 N PUSHI #0x0000003c ? JUMPIF # L_0004 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x0000000c S ASSVAL @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL J JUMP L_016e : LOCATE L_0004 1086 %IF I=J='>' %THEN A(R)=11 %AND Q=Q+1 %AND ->UPR O LINE 1086 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH J " JUMPIFD # L_0004 N PUSHI #0x0000003e ? JUMPIF # L_0004 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x0000000b S ASSVAL @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL J JUMP L_016e : LOCATE L_0004 1087 %IF I='\' %THEN %START O LINE 1087 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000005c ? JUMPIF # L_0004 1088 %IF J#I %THEN A(R)=15 %AND ->UPR O LINE 1088 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH I ? JUMPIF = L_0007 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x0000000f S ASSVAL J JUMP L_016e : LOCATE L_0007 1089 Q=Q+1; A(R)=14; ->UPR O LINE 1089 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 1089 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R a ACCESS N PUSHI #0x0000000e S ASSVAL O LINE 1089 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016e 1090 %FINISH O LINE 1090 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1091 ->FAIL O LINE 1091 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0172 1092 BIP(1027): ! PHRASE CHECK UI O LINE 1092 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000403 _ SLABEL 364 1093 I=CC(Q); ! OBTAIN CURRENT CHARACTER O LINE 1093 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1094 ->SUCC %IF TRTAB(I)=2 %OR I='-' O LINE 1094 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TRTAB @ PUSH I a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0005 @ PUSH I N PUSHI #0x0000002d ? JUMPIF # L_0004 : LOCATE L_0005 J JUMP L_016f : LOCATE L_0004 1095 ->SUCC %IF 16_80000000>>(I&31)&16_14043000#0 O LINE 1095 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x80000000 @ PUSH I N PUSHI #0x0000001f & AND ] RSH N PUSHI #0x14043000 & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 J JUMP L_016f : LOCATE L_0004 1096 ->FAIL O LINE 1096 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0172 1097 BIP(1028): ! P(+')=+,-,\,0 O LINE 1097 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000404 _ SLABEL 364 1098 I=CC(Q); ! OBTAIN CURRENT CHARACTER O LINE 1098 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1099 %IF I='\' %OR I=16_7E %THEN A(R)=3 %AND Q=Q+1 %AND ->UPR O LINE 1099 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000005c ? JUMPIF = L_0005 @ PUSH I N PUSHI #0x0000007e ? JUMPIF # L_0004 : LOCATE L_0005 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000003 S ASSVAL @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL J JUMP L_016e : LOCATE L_0004 1100 %IF I='-' %THEN A(R)=2 %AND Q=Q+1 %AND ->UPR O LINE 1100 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000002d ? JUMPIF # L_0004 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000002 S ASSVAL @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL J JUMP L_016e : LOCATE L_0004 1101 %IF I='+' %THEN A(R)=1 %AND Q=Q+1 %AND ->UPR O LINE 1101 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000002b ? JUMPIF # L_0004 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000001 S ASSVAL @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL J JUMP L_016e : LOCATE L_0004 1102 A(R)=4; ->UPR O LINE 1102 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000004 S ASSVAL O LINE 1102 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016e 1103 BIP(1029): ! PHRASE NOTE CYCLE O LINE 1103 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000405 _ SLABEL 364 1104 TOAR4(R,0) O LINE 1104 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TOAR4 @ PUSH R p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 1105 PUSH(SFS(LEVEL),2,R,LINE) O LINE 1105 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PUSH @ PUSH SFS @ PUSH LEVEL a ACCESS p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH R p ASSPAR @ PUSH LINE p ASSPAR E CALL 1106 R=R+4 O LINE 1106 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000004 + ADD S ASSVAL 1107 ->SUCC O LINE 1107 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 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 ! O LINE 1108 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000406 _ SLABEL 364 1114 I=CC(Q); ! OBTAIN CURRENT CHARACTER O LINE 1114 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1115 %IF I=')' %THEN ->FAIL O LINE 1115 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000029 ? JUMPIF # L_0004 J JUMP L_0172 : LOCATE L_0004 1116 %IF I=',' %THEN Q=Q+1 O LINE 1116 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000002c ? JUMPIF # L_0004 @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0004 1117 ->SUCC O LINE 1117 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 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) O LINE 1118 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000407 _ SLABEL 364 1121 I=CC(Q); ! OBTAIN CURRENT CHARACTER O LINE 1121 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1122 ->FAIL %UNLESS I>128 %AND 16_80000000>>(I&31)&16_20C83000#0 %AND 16_80000000>>(CC(Q+2)&31)&16_400A2800#0 O LINE 1122 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000080 ? JUMPIF <= L_0005 N PUSHI #0x80000000 @ PUSH I N PUSHI #0x0000001f & AND ] RSH N PUSHI #0x20c83000 & AND N PUSHI #0x00000000 ? JUMPIF = L_0005 N PUSHI #0x80000000 @ PUSH CC @ PUSH Q N PUSHI #0x00000002 + ADD a ACCESS N PUSHI #0x0000001f & AND ] RSH N PUSHI #0x400a2800 & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 : LOCATE L_0005 J JUMP L_0172 : LOCATE L_0004 1123 ->SUCC O LINE 1123 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 1124 BIP(1032): ! PHRASE COMP1 O LINE 1124 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000408 _ SLABEL 364 1125 BIP(1037): ! PHRASE COMP2(IS 2ND HALF OF DSIDED) O LINE 1125 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x0000040d _ SLABEL 364 1126 I=CC(Q); ! OBTAIN CURRENT CHARACTER O LINE 1126 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S 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 O LINE 1127 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000020 @ PUSH I " JUMPIFD >= L_0005 N PUSHI #0x0000005c ? JUMPIF > L_0005 N PUSHI #0x80000000 @ PUSH I N PUSHI #0x0000001f & AND ] RSH N PUSHI #0x1004000e & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 : LOCATE L_0005 J JUMP L_0172 : LOCATE L_0004 1132 %IF I='=' %THEN %START O LINE 1132 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000003d ? JUMPIF # L_0004 1133 %IF CC(Q+1)=I %THEN J=9 %AND ->JOIN1 O LINE 1133 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH Q N PUSHI #0x00000001 + ADD a ACCESS @ PUSH I ? JUMPIF # L_0007 @ PUSH J N PUSHI #0x00000009 S ASSVAL J JUMP L_0177 : LOCATE L_0007 1134 J=1; ->JOIN O LINE 1134 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000001 S ASSVAL O LINE 1134 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0178 1135 %FINISH O LINE 1135 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1136 %IF I='#' %THEN %START O LINE 1136 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000023 ? JUMPIF # L_0004 1137 %IF CC(Q+1)=I %THEN J=10 %AND ->JOIN1 O LINE 1137 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH Q N PUSHI #0x00000001 + ADD a ACCESS @ PUSH I ? JUMPIF # L_0007 @ PUSH J N PUSHI #0x0000000a S ASSVAL J JUMP L_0177 : LOCATE L_0007 1138 J=4; ->JOIN O LINE 1138 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000004 S ASSVAL O LINE 1138 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0178 1139 %FINISH O LINE 1139 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1140 %IF I='\' %AND CC(Q+1)='=' %THEN %START O LINE 1140 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000005c ? JUMPIF # L_0004 @ PUSH CC @ PUSH Q N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x0000003d ? JUMPIF # L_0004 1141 Q=Q+1 O LINE 1141 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 1142 %IF CC(Q+1)='=' %THEN J=10 %AND ->JOIN1 O LINE 1142 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH Q N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x0000003d ? JUMPIF # L_0007 @ PUSH J N PUSHI #0x0000000a S ASSVAL J JUMP L_0177 : LOCATE L_0007 1143 J=4; ->JOIN O LINE 1143 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000004 S ASSVAL O LINE 1143 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0178 1144 %FINISH O LINE 1144 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1145 %IF I='>' %THEN %START O LINE 1145 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000003e ? JUMPIF # L_0004 1146 %IF CC(Q+1)='=' %THEN J=2 %AND ->JOIN1 O LINE 1146 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH Q N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x0000003d ? JUMPIF # L_0007 @ PUSH J N PUSHI #0x00000002 S ASSVAL J JUMP L_0177 : LOCATE L_0007 1147 J=3; ->JOIN O LINE 1147 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000003 S ASSVAL O LINE 1147 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0178 1148 %FINISH O LINE 1148 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1149 %IF I='<' %THEN %START O LINE 1149 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000003c ? JUMPIF # L_0004 1150 %IF CC(Q+1)='=' %THEN J=5 %AND ->JOIN1 O LINE 1150 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH Q N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x0000003d ? JUMPIF # L_0007 @ PUSH J N PUSHI #0x00000005 S ASSVAL J JUMP L_0177 : LOCATE L_0007 1151 J=6; ->JOIN O LINE 1151 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000006 S ASSVAL O LINE 1151 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0178 1152 %FINISH O LINE 1152 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1153 %IF I='-' %AND CC(Q+1)='>' %THEN J=8 %AND ->JOIN1 O LINE 1153 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000002d ? JUMPIF # L_0004 @ PUSH CC @ PUSH Q N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x0000003e ? JUMPIF # L_0004 @ PUSH J N PUSHI #0x00000008 S ASSVAL J JUMP L_0177 : LOCATE L_0004 1154 ->FAIL O LINE 1154 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0172 1155 JOIN1:Q=Q+1 O LINE 1155 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0177 O LINE 1155 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 1156 JOIN: Q=Q+1 O LINE 1156 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0178 O LINE 1156 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 1157 A(R)=J O LINE 1157 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R a ACCESS @ PUSH J S ASSVAL 1158 %IF ITEM=1032 %THEN SAVECOMP=J %AND ->UPR 1159 ! SAVE J TO CHECK DSIDED O LINE 1158 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ITEM N PUSHI #0x00000408 ? JUMPIF # L_0004 @ PUSH SAVECOMP @ PUSH J S ASSVAL J JUMP L_016e : LOCATE L_0004 1160 %IF SAVECOMP>6 %OR J>6 %THEN Q=Q-1 %AND ->FAIL;! ILLEGAL DSIDED O LINE 1160 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SAVECOMP N PUSHI #0x00000006 ? JUMPIF > L_0005 @ PUSH J N PUSHI #0x00000006 ? JUMPIF <= L_0004 : LOCATE L_0005 @ PUSH Q @ PUSH Q N PUSHI #0x00000001 - SUB S ASSVAL J JUMP L_0172 : LOCATE L_0004 1161 ->UPR; ! NB OWNS WONT WORK IF 1162 ! COND EXPRS ALLOWED AS THE 1163 ! CAN BE NESTED! O LINE 1161 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016e 1164 BIP(1033): ! P(ASSOP)- ==,=,<-,-> O LINE 1164 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000409 _ SLABEL 364 1165 I=CC(Q); ! OBTAIN CURRENT CHARACTER O LINE 1165 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1166 %IF I='=' %THEN %START O LINE 1166 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000003d ? JUMPIF # L_0004 1167 %IF CC(Q+1)='=' %THEN A(R)=1 %AND Q=Q+2 %AND ->UPR O LINE 1167 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH Q N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x0000003d ? JUMPIF # L_0007 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000001 S ASSVAL @ PUSH Q @ PUSH Q N PUSHI #0x00000002 + ADD S ASSVAL J JUMP L_016e : LOCATE L_0007 1168 A(R)=2; Q=Q+1; ->UPR O LINE 1168 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000002 S ASSVAL O LINE 1168 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 1168 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016e 1169 %FINISH O 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 O LINE 1170 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000003c ? JUMPIF # L_0004 @ PUSH CC @ PUSH Q N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x0000002d ? JUMPIF # L_0004 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000003 S ASSVAL @ PUSH Q @ PUSH Q N PUSHI #0x00000002 + ADD S ASSVAL J JUMP L_016e : LOCATE L_0004 1171 %IF I='-' %AND CC(Q+1)='>' %THEN A(R)=4 %AND Q=Q+2 %AND ->UPR O LINE 1171 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000002d ? JUMPIF # L_0004 @ PUSH CC @ PUSH Q N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x0000003e ? JUMPIF # L_0004 @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000004 S ASSVAL @ PUSH Q @ PUSH Q N PUSHI #0x00000002 + ADD S ASSVAL J JUMP L_016e : LOCATE L_0004 1172 ->FAIL O LINE 1172 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0172 1173 BIP(1034): ! NOTE START O LINE 1173 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x0000040a _ SLABEL 364 1174 TOAR4(R,0); ! HOLE FOR FORWARD PTR O LINE 1174 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TOAR4 @ PUSH R p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 1175 PUSH(SFS(LEVEL),1,R,LINE) O LINE 1175 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PUSH @ PUSH SFS @ PUSH LEVEL a ACCESS p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH R p ASSPAR @ PUSH LINE p ASSPAR E CALL 1176 R=R+4 O LINE 1176 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000004 + ADD S ASSVAL 1177 ->SUCC O LINE 1177 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 1178 BIP(1035): ! NOTE FINISH O LINE 1178 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x0000040b _ SLABEL 364 1179 %IF SFS(LEVEL)=0 %THEN FAULT2(51,0,0) %AND ->SUCC O LINE 1179 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SFS @ PUSH LEVEL a ACCESS N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH FAULT2 N PUSHI #0x00000033 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL J JUMP L_016f : LOCATE L_0004 1180 POP(SFS(LEVEL),I,J,K) O LINE 1180 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH POP @ PUSH SFS @ PUSH LEVEL a ACCESS p ASSPAR @ PUSH I p ASSPAR @ PUSH J p ASSPAR @ PUSH K p ASSPAR E CALL 1181 %IF I=2 %THEN FAULT2(59,K,0) O LINE 1181 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH FAULT2 N PUSHI #0x0000003b p ASSPAR @ PUSH K p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 1182 TOAR4(J,STARSTART) O LINE 1182 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TOAR4 @ PUSH J p ASSPAR @ PUSH STARSTART p ASSPAR E CALL 1183 ->SUCC O LINE 1183 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 1184 BIP(1036): ! NOTE REPEAT O LINE 1184 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x0000040c _ SLABEL 364 1185 %IF SFS(LEVEL)=0 %THEN FAULT2(1,0,0) %AND ->SUCC O LINE 1185 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SFS @ PUSH LEVEL a ACCESS N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH FAULT2 N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL J JUMP L_016f : LOCATE L_0004 1186 POP(SFS(LEVEL),I,J,K) O LINE 1186 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH POP @ PUSH SFS @ PUSH LEVEL a ACCESS p ASSPAR @ PUSH I p ASSPAR @ PUSH J p ASSPAR @ PUSH K p ASSPAR E CALL 1187 %IF I=1 %THEN FAULT2(52,K,0); ! START INSTEAD OF CYCLE O LINE 1187 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH FAULT2 N PUSHI #0x00000034 p ASSPAR @ PUSH K p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 1188 TOAR4(J,STARSTART) O LINE 1188 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TOAR4 @ PUSH J p ASSPAR @ PUSH STARSTART p ASSPAR E CALL 1189 ->SUCC O LINE 1189 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 1190 BIP(1038): ! INCLUDE "FILE" O LINE 1190 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x0000040e _ SLABEL 364 1191 ->FAIL %IF VMEB=YES O LINE 1191 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 N PUSHI #0x00000001 ? JUMPIF # L_0004 J JUMP L_0172 : LOCATE L_0004 1192 I=CC(Q) O LINE 1192 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1193 ->FAIL %UNLESS I=NL %OR I=';' O LINE 1193 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000000a ? JUMPIF = L_0004 @ PUSH I N PUSHI #0x0000003b ? JUMPIF = L_0004 J JUMP L_0172 : LOCATE L_0004 1194 Q=Q+1 %IF I=';' O LINE 1194 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000003b ? JUMPIF # L_0004 @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0004 1195 ->FAIL %UNLESS CTYPE=5 O LINE 1195 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTYPE N PUSHI #0x00000005 ? JUMPIF = L_0004 J JUMP L_0172 : LOCATE L_0004 1196 PUSH(IHEAD,FILEADDR,FILEPTR,FILEEND) O LINE 1196 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PUSH @ PUSH IHEAD p ASSPAR @ PUSH FILEADDR p ASSPAR @ PUSH FILEPTR p ASSPAR @ PUSH FILEEND p ASSPAR E CALL 1197 CONSOURCE(STRING(ADDR(A(S))),FILEADDR);! DEPARTS IF FAILS O LINE 1197 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSOURCE @ PUSH STRING @ PUSH ADDR @ PUSH A @ PUSH S a ACCESS p ASSPAR E CALL p ASSPAR E CALL p ASSPAR @ PUSH FILEADDR p ASSPAR E CALL 1198 FILEPTR=FILEADDR+INTEGER(FILEADDR+4) O LINE 1198 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FILEPTR @ PUSH FILEADDR @ PUSH INTEGER @ PUSH FILEADDR N PUSHI #0x00000004 + ADD p ASSPAR E CALL + ADD S ASSVAL 1199 FILEEND=FILEADDR+INTEGER(FILEADDR) O LINE 1199 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FILEEND @ PUSH FILEADDR @ PUSH INTEGER @ PUSH FILEADDR p ASSPAR E CALL + ADD S ASSVAL 1200 ->SUCC O LINE 1200 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_016f 1201 %END; !OF ROUTINE 'COMPARE' O 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 !*********************************************************************** O LINE 1202 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PNAME (_lev0id0_lev1id1_lev2id2_PNAME) 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 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 } FINISH ) {lev=4} 1206 %CONSTINTEGERARRAY HASH(0:7)=71,47,97,79,29,37,53,59; O LINE 1206 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 N PUSHI #0x00000007 b BOUNDS $ DEF HASH p1=V_015e 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 N PUSHI #0x00000047 A INIT 1 N PUSHI #0x0000002f A INIT 1 N PUSHI #0x00000061 A INIT 1 N PUSHI #0x0000004f A INIT 1 N PUSHI #0x0000001d A INIT 1 N PUSHI #0x00000025 A INIT 1 N PUSHI #0x00000035 A INIT 1 N PUSHI #0x0000003b A INIT 1 1207 %INTEGER JJ, KK, LL, FQ, FS, T, S, I O LINE 1207 "regression-compile-tmp/nrimp10s-77.imp" $ DEF JJ 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 KK 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 LL 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 FQ 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 FS 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 T 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 S 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 I 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 1208 %LONGINTEGER DRDES,ACCDES O LINE 1208 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DRDES p1=V_0167 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_0168 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) O LINE 1209 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HIT N PUSHI #0x00000000 S ASSVAL O LINE 1209 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FQ @ PUSH Q S ASSVAL O LINE 1209 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FS @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1210 %RETURN %UNLESS TRTAB(FS)=2 %AND M'"'#CC(Q+1)#M'''' 1211 ! 1ST CHAR MUST BE LETTER O LINE 1210 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TRTAB @ PUSH FS a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0005 N PUSHI #0x00000022 @ PUSH CC @ PUSH Q N PUSHI #0x00000001 + ADD a ACCESS " JUMPIFD = L_0005 N PUSHI #0x00000027 ? JUMPIF # L_0004 : LOCATE L_0005 R RETURN : LOCATE L_0004 1212 T=1 O LINE 1212 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T N PUSHI #0x00000001 S ASSVAL 1213 LETT(NEXT+1)=FS; JJ=71*FS 1214 ! %IF USE IMP=YES %THEN %START O LINE 1213 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LETT @ PUSH NEXT N PUSHI #0x00000001 + ADD a ACCESS @ PUSH FS S ASSVAL O LINE 1213 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ N PUSHI #0x00000047 @ PUSH FS * MUL S ASSVAL 1215 %CYCLE O LINE 1215 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 1216 Q=Q+1 O LINE 1216 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 1217 I=CC(Q) O LINE 1217 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1218 %EXIT %IF TRTAB(I)=0 O LINE 1218 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TRTAB @ PUSH I a ACCESS N PUSHI #0x00000000 ? JUMPIF # L_0007 F GOTO L_0004 : LOCATE L_0007 1219 JJ=JJ+HASH(T) %IF T<=7 O LINE 1219 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T N PUSHI #0x00000007 ? JUMPIF > L_0007 @ PUSH JJ @ PUSH JJ @ PUSH HASH @ PUSH T a ACCESS + ADD S ASSVAL : LOCATE L_0007 1220 T=T+1 O LINE 1220 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T @ PUSH T N PUSHI #0x00000001 + ADD S ASSVAL 1221 LETT(NEXT+T)=I O LINE 1221 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LETT @ PUSH NEXT @ PUSH T + ADD a ACCESS @ PUSH I S 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 O LINE 1222 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1248 LETT(NEXT)=T; ! INSERT LENGTH O LINE 1248 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LETT @ PUSH NEXT a ACCESS @ PUSH T S ASSVAL 1249 S=T+1 O LINE 1249 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S @ PUSH T N PUSHI #0x00000001 + ADD S ASSVAL 1250 FAULT(103,0) %IF NEXT+S>DSIZE;!DICTIONARY OVERFLOW O LINE 1250 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NEXT @ PUSH S + ADD @ PUSH DSIZE ? JUMPIF <= L_0004 @ PUSH FAULT N PUSHI #0x00000067 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 1251 JJ=(JJ+113*T)&NNAMES 1252 ! %IF USE IMP=YES %THEN %START O LINE 1251 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ @ PUSH JJ N PUSHI #0x00000071 @ PUSH T * MUL + ADD @ PUSH NNAMES & AND S ASSVAL 1253 %CYCLE KK=JJ, 1, NNAMES O LINE 1253 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KK N PUSHI #0x00000001 @ PUSH NNAMES @ PUSH JJ f FOR L_0003 1254 LL=WORD(KK) O LINE 1254 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LL @ PUSH WORD @ PUSH KK a ACCESS S ASSVAL 1255 ->HOLE %IF LL=0; ! NAME NOT KNOWN O LINE 1255 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LL N PUSHI #0x00000000 ? JUMPIF # L_0007 J JUMP L_0169 : LOCATE L_0007 1256 ->FND %IF STRING(ADDR(LETT(NEXT)))=STRING(ADDR(LETT(LL))) O LINE 1256 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STRING @ PUSH ADDR @ PUSH LETT @ PUSH NEXT a ACCESS p ASSPAR E CALL p ASSPAR E CALL @ PUSH STRING @ PUSH ADDR @ PUSH LETT @ PUSH LL a ACCESS p ASSPAR E CALL p ASSPAR E CALL ? JUMPIF # L_0007 J JUMP L_016a : LOCATE L_0007 1257 %REPEAT O LINE 1257 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1258 %CYCLE KK=0,1,JJ O LINE 1258 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KK N PUSHI #0x00000001 @ PUSH JJ N PUSHI #0x00000000 f FOR L_0003 1259 LL=WORD(KK) O LINE 1259 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LL @ PUSH WORD @ PUSH KK a ACCESS S ASSVAL 1260 ->HOLE %IF LL=0; ! NAME NOT KNOWN O LINE 1260 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LL N PUSHI #0x00000000 ? JUMPIF # L_0007 J JUMP L_0169 : LOCATE L_0007 1261 ->FND %IF STRING(ADDR(LETT(NEXT)))=STRING(ADDR(LETT(LL))) O LINE 1261 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STRING @ PUSH ADDR @ PUSH LETT @ PUSH NEXT a ACCESS p ASSPAR E CALL p ASSPAR E CALL @ PUSH STRING @ PUSH ADDR @ PUSH LETT @ PUSH LL a ACCESS p ASSPAR E CALL p ASSPAR E CALL ? JUMPIF # L_0007 J JUMP L_016a : 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 O LINE 1262 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1297 FAULT(104, 0); ! TOO MANY NAMES O LINE 1297 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FAULT N PUSHI #0x00000068 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 1298 HOLE: %IF MODE=0 %THEN Q=FQ %AND %RETURN O LINE 1298 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0169 O LINE 1298 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH Q @ PUSH FQ S ASSVAL R RETURN : LOCATE L_0004 1299 WORD(KK)=NEXT; NEXT=NEXT+S O LINE 1299 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WORD @ PUSH KK a ACCESS @ PUSH NEXT S ASSVAL O LINE 1299 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NEXT @ PUSH NEXT @ PUSH S + ADD S ASSVAL 1300 FND: LASTAT=FQ; HIT=1; LASTNAME=KK O LINE 1300 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_016a O LINE 1300 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LASTAT @ PUSH FQ S ASSVAL O LINE 1300 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HIT N PUSHI #0x00000001 S ASSVAL O LINE 1300 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LASTNAME @ PUSH KK S ASSVAL 1301 A(R+1)<-LASTNAME O LINE 1301 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R N PUSHI #0x00000001 + ADD a ACCESS @ PUSH LASTNAME j JAM 1302 A(R)=LASTNAME>>8; R=R+2 O LINE 1302 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R a ACCESS @ PUSH LASTNAME N PUSHI #0x00000008 ] RSH S ASSVAL O LINE 1302 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000002 + ADD S ASSVAL 1303 LASTEND=Q O LINE 1303 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LASTEND @ PUSH Q S ASSVAL 1304 %END 1305 1306 O 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 !*********************************************************************** O LINE 1307 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CONST (_lev0id0_lev1id1_lev2id2_CONST) 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} $ 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 } FINISH ) {lev=4} 1312 %INTEGER Z, DOTSEEN, EBCDIC, FS, CPREC, RR, S, T, SS O LINE 1312 "regression-compile-tmp/nrimp10s-77.imp" $ DEF Z 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 DOTSEEN 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 EBCDIC 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 FS 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 CPREC 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 RR 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 S 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 T 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 SS 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 1313 {%LONG}%LONGREAL X,CVALUE,DUMMY O LINE 1313 "regression-compile-tmp/nrimp10s-77.imp" $ DEF X p1=V_0167 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_0168 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_0169 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' O LINE 1314 "regression-compile-tmp/nrimp10s-77.imp" D PUSHR code=0 len=4 "10.0" $ DEF TEN p1=V_016a 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 A INIT 1 1315 CPREC=5; RR=R; R=R+1 O LINE 1315 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPREC N PUSHI #0x00000005 S ASSVAL O LINE 1315 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RR @ PUSH R S ASSVAL O LINE 1315 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000001 + ADD S ASSVAL 1316 DOTSEEN=0; HIT=0 O LINE 1316 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DOTSEEN N PUSHI #0x00000000 S ASSVAL O LINE 1316 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HIT N PUSHI #0x00000000 S ASSVAL 1317 CVALUE=0; DUMMY=0; FS=CC(Q) O LINE 1317 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CVALUE N PUSHI #0x00000000 S ASSVAL O LINE 1317 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DUMMY N PUSHI #0x00000000 S ASSVAL O LINE 1317 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FS @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1318 S=0; ->N %IF M'0'<=FS<=M'9' O LINE 1318 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S N PUSHI #0x00000000 S ASSVAL O LINE 1318 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000030 @ PUSH FS " JUMPIFD > L_0004 N PUSHI #0x00000039 ? JUMPIF > L_0004 J JUMP L_016b : LOCATE L_0004 1319 ->DOT %IF FS='.' %AND MODE=0 %AND '0'<=CC(Q+1)<='9' 1320 ! 1 DIDT MIN O LINE 1319 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FS N PUSHI #0x0000002e ? JUMPIF # L_0004 @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF # L_0004 N PUSHI #0x00000030 @ PUSH CC @ PUSH Q N PUSHI #0x00000001 + ADD a ACCESS " JUMPIFD > L_0004 N PUSHI #0x00000039 ? JUMPIF > L_0004 J JUMP L_016c : LOCATE L_0004 1321 CTYPE=1; EBCDIC=0 O LINE 1321 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTYPE N PUSHI #0x00000001 S ASSVAL O LINE 1321 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EBCDIC N PUSHI #0x00000000 S ASSVAL 1322 ->QUOTE %IF FS=M'''' O LINE 1322 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FS N PUSHI #0x00000027 ? JUMPIF # L_0004 J JUMP L_016d : LOCATE L_0004 1323 ->STR2 %IF FS=34 O LINE 1323 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FS N PUSHI #0x00000022 ? JUMPIF # L_0004 J JUMP L_016e : LOCATE L_0004 1324 ->NOTQUOTE %UNLESS CC(Q+1)=M''''; Q=Q+2 O LINE 1324 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH Q N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000027 ? JUMPIF = L_0004 J JUMP L_016f : LOCATE L_0004 O LINE 1324 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000002 + ADD S ASSVAL 1325 ->HEX %IF FS='X' O LINE 1325 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FS N PUSHI #0x00000058 ? JUMPIF # L_0004 J JUMP L_0170 : LOCATE L_0004 1326 ->MULT %IF FS='M' O LINE 1326 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FS N PUSHI #0x0000004d ? JUMPIF # L_0004 J JUMP L_0171 : LOCATE L_0004 1327 ->BIN %IF FS=M'B' O LINE 1327 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FS N PUSHI #0x00000042 ? JUMPIF # L_0004 J JUMP L_0172 : LOCATE L_0004 1328 ->RHEX %IF FS='R' %AND MODE=0 O LINE 1328 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FS N PUSHI #0x00000052 ? JUMPIF # L_0004 @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF # L_0004 J JUMP L_0173 : LOCATE L_0004 1329 ->OCT %IF FS='K' O LINE 1329 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FS N PUSHI #0x0000004b ? JUMPIF # L_0004 J JUMP L_0174 : LOCATE L_0004 1330 %IF FS='C' %THEN EBCDIC=1 %AND ->MULT O LINE 1330 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FS N PUSHI #0x00000043 ? JUMPIF # L_0004 @ PUSH EBCDIC N PUSHI #0x00000001 S ASSVAL J JUMP L_0171 : LOCATE L_0004 1331 %IF FS='D' %AND MODE=0 %THEN %START O LINE 1331 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FS N PUSHI #0x00000044 ? JUMPIF # L_0004 @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF # L_0004 1332 CPREC=7 O LINE 1332 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPREC N PUSHI #0x00000007 S ASSVAL 1333 %IF M'0'<=CC(Q)<=M'9' %THEN ->N O LINE 1333 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000030 @ PUSH CC @ PUSH Q a ACCESS " JUMPIFD > L_0007 N PUSHI #0x00000039 ? JUMPIF > L_0007 J JUMP L_016b : LOCATE L_0007 1334 %IF CC(Q)='.' %THEN ->DOT O LINE 1334 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH Q a ACCESS N PUSHI #0x0000002e ? JUMPIF # L_0007 J JUMP L_016c : LOCATE L_0007 1335 %FINISH O LINE 1335 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1336 Q=Q-2; %RETURN O LINE 1336 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000002 - SUB S ASSVAL O LINE 1336 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 1337 QUOTE: ! SINGLE CH BETWEEN QUOTES O LINE 1337 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_016d 1338 %IF CC(Q+2)=M'''' %THEN %START O LINE 1338 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH Q N PUSHI #0x00000002 + ADD a ACCESS N PUSHI #0x00000027 ? JUMPIF # L_0004 1339 S=CC(Q+1) O LINE 1339 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S @ PUSH CC @ PUSH Q N PUSHI #0x00000001 + ADD a ACCESS S ASSVAL 1340 Q=Q+3 O LINE 1340 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000003 + ADD S ASSVAL 1341 %IF S#M'''' %THEN ->IEND O LINE 1341 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S N PUSHI #0x00000027 ? JUMPIF = L_0007 J JUMP L_0175 : LOCATE L_0007 1342 %IF CC(Q)=M'''' %THEN Q=Q+1 %AND ->IEND O LINE 1342 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH Q a ACCESS N PUSHI #0x00000027 ? JUMPIF # L_0007 @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL J JUMP L_0175 : LOCATE L_0007 1343 %FINISH O LINE 1343 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1344 %RETURN; ! NOT VALID O LINE 1344 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 1345 NOTQUOTE: ! CHECK FOR E"...." O LINE 1345 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_016f 1346 %RETURN %UNLESS FS='E' %AND CC(Q+1)=M'"' O LINE 1346 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FS N PUSHI #0x00000045 ? JUMPIF # L_0005 @ PUSH CC @ PUSH Q N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000022 ? JUMPIF = L_0004 : LOCATE L_0005 R RETURN : LOCATE L_0004 1347 EBCDIC=1; Q=Q+1 O LINE 1347 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EBCDIC N PUSHI #0x00000001 S ASSVAL O LINE 1347 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 1348 STR2: ! DOUBLE QUOTED STRING O LINE 1348 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_016e 1349 A(RR)=16_35; TEXTTEXT(EBCDIC) O LINE 1349 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH RR a ACCESS N PUSHI #0x00000035 S ASSVAL O LINE 1349 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TEXTTEXT @ PUSH EBCDIC p ASSPAR E CALL 1350 CTYPE=5; %RETURN O LINE 1350 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTYPE N PUSHI #0x00000005 S ASSVAL O LINE 1350 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 1351 HEX: T=0; ! HEX CONSTANTS O LINE 1351 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0170 O LINE 1351 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T N PUSHI #0x00000000 S ASSVAL 1352 %CYCLE O LINE 1352 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 1353 I=CC(Q); Q=Q+1 O LINE 1353 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL O LINE 1353 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 1354 %EXIT %IF I=M'''' O LINE 1354 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000027 ? JUMPIF # L_0007 F GOTO L_0004 : LOCATE L_0007 1355 T=T+1 O LINE 1355 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T @ PUSH T N PUSHI #0x00000001 + ADD S ASSVAL 1356 %RETURN %UNLESS ('0'<=I<='9' %OR 'A'<=I<='F') %AND T<17 O LINE 1356 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000030 @ PUSH I " JUMPIFD > L_000a N PUSHI #0x00000039 ? JUMPIF <= L_0009 : LOCATE L_000a N PUSHI #0x00000041 @ PUSH I " JUMPIFD > L_0008 N PUSHI #0x00000046 ? JUMPIF > L_0008 : LOCATE L_0009 @ PUSH T N PUSHI #0x00000011 ? JUMPIF < L_0007 : LOCATE L_0008 R RETURN : LOCATE L_0007 1357 %IF T=9 %THEN SS=S %AND S=0 O LINE 1357 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T N PUSHI #0x00000009 ? JUMPIF # L_0007 @ PUSH SS @ PUSH S S ASSVAL @ PUSH S N PUSHI #0x00000000 S ASSVAL : LOCATE L_0007 1358 S=S<<4+I&15+9*I>>6 O LINE 1358 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S @ PUSH S N PUSHI #0x00000004 [ LSH @ PUSH I N PUSHI #0x0000000f & AND + ADD N PUSHI #0x00000009 @ PUSH I N PUSHI #0x00000006 ] RSH * MUL + ADD S ASSVAL 1359 %REPEAT O LINE 1359 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1360 %IF T>8 %START O LINE 1360 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T N PUSHI #0x00000008 ? JUMPIF <= L_0004 1361 Z=4*(T-8) O LINE 1361 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Z N PUSHI #0x00000004 @ PUSH T N PUSHI #0x00000008 - SUB * MUL S ASSVAL 1362 S=S!(SS<>(32-Z); CPREC=6 O LINE 1363 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SS @ PUSH SS N PUSHI #0x00000020 @ PUSH Z - SUB ] RSH S ASSVAL O LINE 1363 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPREC N PUSHI #0x00000006 S ASSVAL 1364 %FINISH O LINE 1364 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1365 IEND: %IF CPREC=6 %THEN TOAR4(R,SS) %AND R=R+4 O LINE 1365 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0175 O LINE 1365 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPREC N PUSHI #0x00000006 ? JUMPIF # L_0004 @ PUSH TOAR4 @ PUSH R p ASSPAR @ PUSH SS p ASSPAR E CALL @ PUSH R @ PUSH R N PUSHI #0x00000004 + ADD S ASSVAL : LOCATE L_0004 1366 %IF CPREC=5 %AND 0<=S<=16_7FFF %START O LINE 1366 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPREC N PUSHI #0x00000005 ? JUMPIF # L_0004 N PUSHI #0x00000000 @ PUSH S " JUMPIFD > L_0004 N PUSHI #0x00007fff ? JUMPIF > L_0004 1367 CPREC=4; TOAR2(R,S); R=R+2 O LINE 1367 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPREC N PUSHI #0x00000004 S ASSVAL O LINE 1367 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TOAR2 @ PUSH R p ASSPAR @ PUSH S p ASSPAR E CALL O LINE 1367 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000002 + ADD S ASSVAL 1368 %FINISH %ELSE TOAR4(R,S) %AND R=R+4 O LINE 1368 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 @ PUSH TOAR4 @ PUSH R p ASSPAR @ PUSH S p ASSPAR E CALL @ PUSH R @ PUSH R N PUSHI #0x00000004 + ADD S ASSVAL : LOCATE L_0003 1369 HIT=1 %UNLESS MODE#0 %AND CPREC=6 O LINE 1369 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF = L_0005 @ PUSH CPREC N PUSHI #0x00000006 ? JUMPIF = L_0004 : LOCATE L_0005 @ PUSH HIT N PUSHI #0x00000001 S ASSVAL : LOCATE L_0004 1370 A(RR)=CPREC<<4!CTYPE O LINE 1370 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH RR a ACCESS @ PUSH CPREC N PUSHI #0x00000004 [ LSH @ PUSH CTYPE ! OR S ASSVAL 1371 %RETURN O LINE 1371 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 1372 RHEX: ! REAL HEX CONSTANTS O LINE 1372 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0173 1373 T=0 O LINE 1373 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T N PUSHI #0x00000000 S ASSVAL 1374 %CYCLE O LINE 1374 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 1375 I=CC(Q); Q=Q+1 O LINE 1375 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL O LINE 1375 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 1376 %IF T&7=0 %AND T#0 %START O LINE 1376 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T N PUSHI #0x00000007 & AND N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH T N PUSHI #0x00000000 ? JUMPIF = L_0007 1377 TOAR4(R,S); R=R+4; S=0 O LINE 1377 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TOAR4 @ PUSH R p ASSPAR @ PUSH S p ASSPAR E CALL O LINE 1377 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000004 + ADD S ASSVAL O LINE 1377 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S N PUSHI #0x00000000 S ASSVAL 1378 %FINISH O LINE 1378 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 1379 %EXIT %IF I=M''''; T=T+1 O LINE 1379 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000027 ? JUMPIF # L_0007 F GOTO L_0004 : LOCATE L_0007 O LINE 1379 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T @ PUSH T N PUSHI #0x00000001 + ADD S ASSVAL 1380 %RETURN %UNLESS '0'<=I<='9' %OR 'A'<=I<='F' O LINE 1380 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000030 @ PUSH I " JUMPIFD > L_0008 N PUSHI #0x00000039 ? JUMPIF <= L_0007 : LOCATE L_0008 N PUSHI #0x00000041 @ PUSH I " JUMPIFD > L_0008 N PUSHI #0x00000046 ? JUMPIF <= L_0007 : LOCATE L_0008 R RETURN : LOCATE L_0007 1381 S=S<<4+I&15+9*I>>6 O LINE 1381 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S @ PUSH S N PUSHI #0x00000004 [ LSH @ PUSH I N PUSHI #0x0000000f & AND + ADD N PUSHI #0x00000009 @ PUSH I N PUSHI #0x00000006 ] RSH * MUL + ADD S ASSVAL 1382 %REPEAT O LINE 1382 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1383 %RETURN %UNLESS T=8 %OR T=16 %OR T=32 O LINE 1383 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T N PUSHI #0x00000008 ? JUMPIF = L_0004 @ PUSH T N PUSHI #0x00000010 ? JUMPIF = L_0004 @ PUSH T N PUSHI #0x00000020 ? JUMPIF = L_0004 R RETURN : LOCATE L_0004 1384 %IF T=32 %THEN CPREC=7 %ELSE CPREC=4+T//8 O LINE 1384 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T N PUSHI #0x00000020 ? JUMPIF # L_0004 @ PUSH CPREC N PUSHI #0x00000007 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH CPREC N PUSHI #0x00000004 @ PUSH T N PUSHI #0x00000008 / QUOT + ADD S ASSVAL : LOCATE L_0003 1385 A(RR)=CPREC<<4!2 O LINE 1385 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH RR a ACCESS @ PUSH CPREC N PUSHI #0x00000004 [ LSH N PUSHI #0x00000002 ! OR S ASSVAL 1386 HIT=1; %RETURN O LINE 1386 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HIT N PUSHI #0x00000001 S ASSVAL O LINE 1386 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 1387 OCT: ! OCTAL CONSTANTS O LINE 1387 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0174 1388 T=0 O LINE 1388 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T N PUSHI #0x00000000 S ASSVAL 1389 %CYCLE O LINE 1389 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 1390 I=CC(Q); Q=Q+1; T=T+1 O LINE 1390 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL O LINE 1390 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 1390 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T @ PUSH T N PUSHI #0x00000001 + ADD S ASSVAL 1391 %EXIT %IF I=M'''' O LINE 1391 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000027 ? JUMPIF # L_0007 F GOTO L_0004 : LOCATE L_0007 1392 %RETURN %UNLESS '0'<=I<='7' %AND T<12 O LINE 1392 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000030 @ PUSH I " JUMPIFD > L_0008 N PUSHI #0x00000037 ? JUMPIF > L_0008 @ PUSH T N PUSHI #0x0000000c ? JUMPIF < L_0007 : LOCATE L_0008 R RETURN : LOCATE L_0007 1393 S=S<<3!(I&7) O LINE 1393 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S @ PUSH S N PUSHI #0x00000003 [ LSH @ PUSH I N PUSHI #0x00000007 & AND ! OR S ASSVAL 1394 %REPEAT O LINE 1394 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1395 ->IEND O LINE 1395 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0175 1396 MULT: T=0; ! MULTIPLE CONSTANTS O LINE 1396 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0171 O LINE 1396 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T N PUSHI #0x00000000 S ASSVAL 1397 %CYCLE O LINE 1397 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 1398 I=CC(Q); Q=Q+1; T=T+1 O LINE 1398 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL O LINE 1398 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 1398 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T @ PUSH T N PUSHI #0x00000001 + ADD S ASSVAL 1399 %IF I=M'''' %THEN %START O LINE 1399 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000027 ? JUMPIF # L_0007 1400 %IF CC(Q)#M'''' %THEN %EXIT %ELSE Q=Q+1 O LINE 1400 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH Q a ACCESS N PUSHI #0x00000027 ? JUMPIF = L_000a F GOTO L_0004 : LOCATE L_000a @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 1401 %FINISH O LINE 1401 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 1402 %RETURN %IF T>=5 O LINE 1402 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T N PUSHI #0x00000005 ? JUMPIF < L_0007 R RETURN : LOCATE L_0007 1403 %IF EBCDIC#0 %THEN I=ITOETAB(I) O LINE 1403 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EBCDIC N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH I @ PUSH ITOETAB @ PUSH I a ACCESS S ASSVAL : LOCATE L_0007 1404 S=S<<8!I O LINE 1404 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S @ PUSH S N PUSHI #0x00000008 [ LSH @ PUSH I ! OR S ASSVAL 1405 %REPEAT O LINE 1405 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1406 ->IEND O LINE 1406 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0175 1407 BIN: T=0; ! BINARY CONST O LINE 1407 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0172 O LINE 1407 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T N PUSHI #0x00000000 S ASSVAL 1408 %CYCLE O LINE 1408 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 1409 I=CC(Q); Q=Q+1; T=T+1 O LINE 1409 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL O LINE 1409 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 1409 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T @ PUSH T N PUSHI #0x00000001 + ADD S ASSVAL 1410 %EXIT %IF I=M'''' O LINE 1410 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000027 ? JUMPIF # L_0007 F GOTO L_0004 : LOCATE L_0007 1411 %RETURN %UNLESS '0'<=I<='1' %AND T<33 O LINE 1411 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000030 @ PUSH I " JUMPIFD > L_0008 N PUSHI #0x00000031 ? JUMPIF > L_0008 @ PUSH T N PUSHI #0x00000021 ? JUMPIF < L_0007 : LOCATE L_0008 R RETURN : LOCATE L_0007 1412 S=S<<1!I&1 O LINE 1412 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S @ PUSH S N PUSHI #0x00000001 [ LSH @ PUSH I N PUSHI #0x00000001 & AND ! OR S ASSVAL 1413 %REPEAT O LINE 1413 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1414 ->IEND O LINE 1414 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0175 1415 N: ! CONSTANT STARTS WITH DIGIT O LINE 1415 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_016b 1416 I=CC(Q) O LINE 1416 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1417 {%UNTIL IM'9'} %CYCLE O LINE 1417 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 1418 CVALUE=TEN*CVALUE+(I&15) O LINE 1418 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CVALUE @ PUSH TEN @ PUSH CVALUE * MUL @ PUSH I N PUSHI #0x0000000f & AND + ADD S ASSVAL 1419 Q=Q+1; I=CC(Q); ! ONTO NEXT CHAR O LINE 1419 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 1419 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1420 %REPEAT %UNTIL IM'9' O LINE 1420 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000030 ? JUMPIF < L_0004 @ PUSH I N PUSHI #0x00000039 ? JUMPIF > L_0004 B REPEAT L_0003 : LOCATE L_0004 1421 ->ALPHA %UNLESS MODE=0 %AND I='.' O LINE 1421 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF # L_0005 @ PUSH I N PUSHI #0x0000002e ? JUMPIF = L_0004 : LOCATE L_0005 J JUMP L_0176 : LOCATE L_0004 1422 DOT: Q=Q+1; X=TEN; I=CC(Q) O LINE 1422 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_016c O LINE 1422 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 1422 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH X @ PUSH TEN S ASSVAL O LINE 1422 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1423 DOTSEEN=1; ! CONSTANT HAS DECIMAL POINT O LINE 1423 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DOTSEEN N PUSHI #0x00000001 S ASSVAL 1424 %WHILE M'0'<=I<=M'9' %CYCLE O LINE 1424 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 N PUSHI #0x00000030 @ PUSH I " JUMPIFD > L_0004 N PUSHI #0x00000039 ? JUMPIF > L_0004 1425 CVALUE=CVALUE+(I&15)/X O LINE 1425 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CVALUE @ PUSH CVALUE @ PUSH I N PUSHI #0x0000000f & AND @ PUSH X Q DIVIDE + ADD S ASSVAL 1426 X=TEN*X; Q=Q+1; I=CC(Q) O LINE 1426 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH X @ PUSH TEN @ PUSH X * MUL S ASSVAL O LINE 1426 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 1426 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1427 %REPEAT O LINE 1427 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1428 ALPHA: ! TEST FOR EXPONENT O LINE 1428 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0176 1429 %IF MODE=0 %AND CC(Q)='@' %THEN %START O LINE 1429 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH CC @ PUSH Q a ACCESS N PUSHI #0x00000040 ? JUMPIF # L_0004 1430 Q=Q+1; X=CVALUE O LINE 1430 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL O LINE 1430 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH X @ PUSH CVALUE S ASSVAL 1431 Z=1; I=CC(Q) O LINE 1431 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Z N PUSHI #0x00000001 S ASSVAL O LINE 1431 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1432 %IF I='-' %THEN Z=-1 O LINE 1432 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000002d ? JUMPIF # L_0007 @ PUSH Z N PUSHI #0x00000001 U NEGATE S ASSVAL : LOCATE L_0007 1433 %IF I='+' %OR I='-' %THEN Q=Q+1 O LINE 1433 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000002b ? JUMPIF = L_0008 @ PUSH I N PUSHI #0x0000002d ? JUMPIF # L_0007 : LOCATE L_0008 @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0007 1434 CONST(2) O LINE 1434 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONST N PUSHI #0x00000002 p ASSPAR E CALL 1435 %IF HIT=0 %THEN %RETURN O LINE 1435 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HIT N PUSHI #0x00000000 ? JUMPIF # L_0007 R RETURN : LOCATE L_0007 1436 HIT=0 O LINE 1436 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HIT N PUSHI #0x00000000 S ASSVAL 1437 R=RR+1 O LINE 1437 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH RR N PUSHI #0x00000001 + ADD S ASSVAL 1438 %IF A(R)>>4#4 %THEN %RETURN; ! EXPONENT MUST BE HALFINTEGER O LINE 1438 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R a ACCESS N PUSHI #0x00000004 ] RSH N PUSHI #0x00000004 ? JUMPIF = L_0007 R RETURN : LOCATE L_0007 1439 S=FROM AR2(R+1)*Z O LINE 1439 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S @ PUSH FROMAR2 @ PUSH R N PUSHI #0x00000001 + ADD p ASSPAR E CALL @ PUSH Z * MUL S 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 O LINE 1440 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S N PUSHI #0x00000063 U NEGATE ? JUMPIF # L_0007 @ PUSH CVALUE N PUSHI #0x00000000 S ASSVAL F GOTO L_0006 : LOCATE L_0007 1444 %WHILE S>0 %CYCLE O LINE 1444 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0009 @ PUSH S N PUSHI #0x00000000 ? JUMPIF <= L_000a 1445 S=S-1 O LINE 1445 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S @ PUSH S N PUSHI #0x00000001 - SUB S ASSVAL 1446 CVALUE=CVALUE*TEN 1447 ! %IF USE IMP=NO %THEN %START 1448 ! *JAT_15, 1449 ! %FINISH O LINE 1446 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CVALUE @ PUSH CVALUE @ PUSH TEN * MUL S ASSVAL 1450 %REPEAT O LINE 1450 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0009 : LOCATE L_000a 1451 %WHILE S<0 %AND CVALUE#0 %CYCLE O LINE 1451 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0009 @ PUSH S N PUSHI #0x00000000 ? JUMPIF >= L_000a @ PUSH CVALUE N PUSHI #0x00000000 ? JUMPIF = L_000a 1452 S=S+1 O LINE 1452 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S @ PUSH S N PUSHI #0x00000001 + ADD S ASSVAL 1453 CVALUE=CVALUE/TEN O LINE 1453 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CVALUE @ PUSH CVALUE @ PUSH TEN Q DIVIDE S ASSVAL 1454 %REPEAT O LINE 1454 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0009 : LOCATE L_000a 1455 %FINISH O LINE 1455 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 1456 %FINISH 1457 ! SEE IF IT IS INTEGER O LINE 1456 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1458 %IF FS='D' %THEN %START O LINE 1458 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FS N PUSHI #0x00000044 ? JUMPIF # L_0004 1459 I=CC(Q) O LINE 1459 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1460 %IF I='''' %THEN Q=Q+1 %ELSE %RETURN O LINE 1460 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000027 ? JUMPIF # L_0007 @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL F GOTO L_0006 : LOCATE L_0007 R RETURN : LOCATE L_0006 1461 DOTSEEN=1; ! ENSURE NOT TAKEN AS INTEGER O LINE 1461 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DOTSEEN N PUSHI #0x00000001 S ASSVAL 1462 %FINISH O 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) O LINE 1463 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DOTSEEN N PUSHI #0x00000001 ? JUMPIF = L_0005 @ PUSH CVALUE @ PUSH IMAX ? JUMPIF > L_0005 @ PUSH FRACPT @ PUSH CVALUE p ASSPAR E CALL N PUSHI #0x00000000 ? JUMPIF = L_0004 : LOCATE L_0005 @ PUSH CTYPE N PUSHI #0x00000002 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH CTYPE N PUSHI #0x00000001 S ASSVAL @ PUSH S @ PUSH INT @ PUSH CVALUE p ASSPAR E CALL S ASSVAL : LOCATE L_0003 1464 %IF CTYPE=1 %THEN ->IEND O LINE 1464 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTYPE N PUSHI #0x00000001 ? JUMPIF # L_0004 J JUMP L_0175 : LOCATE L_0004 1465 %IF CPREC=5 %THEN CPREC=6; ! NO 32 BIT REAL CONSTS O LINE 1465 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPREC N PUSHI #0x00000005 ? JUMPIF # L_0004 @ PUSH CPREC N PUSHI #0x00000006 S 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 O LINE 1466 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPREC N PUSHI #0x00000006 ? JUMPIF # L_0004 1476 %FINISH O LINE 1476 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1477 TOAR8(R,CVALUE); R=R+8 O LINE 1477 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TOAR8 @ PUSH R p ASSPAR @ PUSH CVALUE p ASSPAR E CALL O LINE 1477 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000008 + ADD S ASSVAL 1478 %IF CPREC=7 %THEN TOAR8(R,LONGREAL(ADDR(CVALUE)+8)) %AND R=R+8 O LINE 1478 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPREC N PUSHI #0x00000007 ? JUMPIF # L_0004 @ PUSH TOAR8 @ PUSH R p ASSPAR @ PUSH LONGREAL @ PUSH ADDR @ PUSH CVALUE p ASSPAR E CALL N PUSHI #0x00000008 + ADD p ASSPAR E CALL p ASSPAR E CALL @ PUSH R @ PUSH R N PUSHI #0x00000008 + ADD S ASSVAL : LOCATE L_0004 1479 A(RR)=CPREC<<4+CTYPE O LINE 1479 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH RR a ACCESS @ PUSH CPREC N PUSHI #0x00000004 [ LSH @ PUSH CTYPE + ADD S ASSVAL 1480 HIT=1 O LINE 1480 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HIT N PUSHI #0x00000001 S ASSVAL 1481 FAIL: %END O LINE 1481 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0177 O 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 !*********************************************************************** O LINE 1482 "regression-compile-tmp/nrimp10s-77.imp" $ DEF TEXTTEXT (_lev0id0_lev1id1_lev2id2_TEXTTEXT) 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} $ DEF EBCDIC 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 } FINISH ) {lev=4} 1486 %INTEGER J, II O LINE 1486 "regression-compile-tmp/nrimp10s-77.imp" $ DEF J 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 II 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 1487 %CONSTINTEGER QU='"' O LINE 1487 "regression-compile-tmp/nrimp10s-77.imp" 1488 I=CC(Q) O LINE 1488 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1489 S=R+4; R=R+5; HIT=0 O LINE 1489 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S @ PUSH R N PUSHI #0x00000004 + ADD S ASSVAL O LINE 1489 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000005 + ADD S ASSVAL O LINE 1489 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HIT N PUSHI #0x00000000 S ASSVAL 1490 %RETURN %UNLESS I=QU; ! FAIL UNLESS INITIAL QUOTE O LINE 1490 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000022 ? JUMPIF = L_0004 R RETURN : LOCATE L_0004 1491 Q=Q+1 O LINE 1491 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 1492 %CYCLE O LINE 1492 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 1493 I=CC(Q) O LINE 1493 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH CC @ PUSH Q a ACCESS S ASSVAL 1494 %IF EBCDIC#0 %THEN II=ITOETAB(I) %ELSE II=I O LINE 1494 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EBCDIC N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH II @ PUSH ITOETAB @ PUSH I a ACCESS S ASSVAL F GOTO L_0006 : LOCATE L_0007 @ PUSH II @ PUSH I S ASSVAL : LOCATE L_0006 1495 A(R)=II; R=R+1 O LINE 1495 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH R a ACCESS @ PUSH II S ASSVAL O LINE 1495 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000001 + ADD S ASSVAL 1496 %IF I=QU %THEN %START O LINE 1496 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000022 ? JUMPIF # L_0007 1497 Q=Q+1 O LINE 1497 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 1498 %IF CC(Q)#QU %THEN %EXIT O LINE 1498 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CC @ PUSH Q a ACCESS N PUSHI #0x00000022 ? JUMPIF = L_000a F GOTO L_0004 : LOCATE L_000a 1499 %FINISH O LINE 1499 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 1500 %IF I=10 %THEN READLINE(1,QU) %ELSE Q=Q+1 O LINE 1500 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x0000000a ? JUMPIF # L_0007 @ PUSH READLINE N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000022 p ASSPAR E CALL F GOTO L_0006 : LOCATE L_0007 @ PUSH Q @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0006 1501 FAULT(106,0) %IF R-S>256 O LINE 1501 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH S - SUB N PUSHI #0x00000100 ? JUMPIF <= L_0007 @ PUSH FAULT N PUSHI #0x0000006a p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0007 1502 %REPEAT O LINE 1502 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1503 R=R-1; J=R-S-1 O LINE 1503 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000001 - SUB S ASSVAL O LINE 1503 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH R @ PUSH S - SUB N PUSHI #0x00000001 - SUB S ASSVAL 1504 A(S)=J; HIT=1 O LINE 1504 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH S a ACCESS @ PUSH J S ASSVAL O LINE 1504 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HIT N PUSHI #0x00000001 S ASSVAL 1505 %END O LINE 1505 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id2_TEXTTEXT {lev=4 --> 3} 1506 BEND:%END; ! OF BLOCK CONTAINING PASS 1 O LINE 1506 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_015c O LINE 1506 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id2 {lev=3 --> 2} 1507 %IF LEVEL>1 %THEN FAULT(15, 0) O LINE 1507 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x00000001 ? JUMPIF <= L_0004 @ PUSH FAULT N PUSHI #0x0000000f p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 1508 I=0 O LINE 1508 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000000 S ASSVAL 1509 NEWLINE O LINE 1509 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NEWLINE E CALL 1510 %IF FAULTY=0 %THEN %START O LINE 1510 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FAULTY N PUSHI #0x00000000 ? JUMPIF # L_0004 1511 WRITE(LINE, 5) O LINE 1511 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE @ PUSH LINE p ASSPAR N PUSHI #0x00000005 p ASSPAR E CALL 1512 PRINT STRING(" LINES ANALYSED IN") O LINE 1512 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTSTRING ' PUSHS " LINES ANALYSED IN" p ASSPAR E CALL 1513 WRITE(INT(1000*(CPUTIME-CTIME)),5) O LINE 1513 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE @ PUSH INT N PUSHI #0x000003e8 @ PUSH CPUTIME E CALL @ PUSH CTIME - SUB * MUL p ASSPAR E CALL p ASSPAR N PUSHI #0x00000005 p ASSPAR E CALL 1514 PRINT STRING(" MSECS - SIZE=") O LINE 1514 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTSTRING ' PUSHS " MSECS - SIZE=" p ASSPAR E CALL 1515 WRITE(P1SIZE, 5) O LINE 1515 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE @ PUSH P1SIZE p ASSPAR N PUSHI #0x00000005 p ASSPAR E CALL 1516 %IF LINE>90 %AND LIST#0 %THEN NEWPAGE %ELSE NEWLINE O LINE 1516 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LINE N PUSHI #0x0000005a ? JUMPIF <= L_0007 @ PUSH LIST N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH NEWPAGE E CALL F GOTO L_0006 : LOCATE L_0007 @ PUSH NEWLINE E CALL : LOCATE L_0006 1517 %FINISH %ELSE %START O LINE 1517 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 1518 PRINTSTRING("CODE GENERATION NOT ATTEMPTED 1519 ") O LINE 1518 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTSTRING ' PUSHS "CODE GENERATION NOT ATTEMPTED\n" p ASSPAR E CALL 1520 COMREG(24)=8 O LINE 1520 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COMREG N PUSHI #0x00000018 p ASSPAR E CALL N PUSHI #0x00000008 S ASSVAL 1521 COMREG(47)=FAULTY O LINE 1521 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COMREG N PUSHI #0x0000002f p ASSPAR E CALL @ PUSH FAULTY S ASSVAL 1522 %STOP O LINE 1522 "regression-compile-tmp/nrimp10s-77.imp" s STOP 1523 %FINISH O LINE 1523 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 1524 %BEGIN 1525 !*********************************************************************** 1526 !* SECOND OR CODE GENERATING PASS * 1527 !*********************************************************************** O LINE 1524 "regression-compile-tmp/nrimp10s-77.imp" H BEGIN _lev0id0_lev1id1_lev2id3 {lev=2 --> 3} 1528 %INTEGERARRAY REGISTER, GRUSE, GRAT, GRINF1, GRINF2, OLINK(0:7) O LINE 1528 "regression-compile-tmp/nrimp10s-77.imp" $ DEF REGISTER p1=V_014a 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_014b 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_014c 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_014d 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_014e 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_014f a/tf=1b b/format=1 c/ostate=100 type=1 (integer) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 N PUSHI #0x00000000 N PUSHI #0x00000007 d DIM 0001 0006 1529 %BYTEINTEGERARRAY CODE, GLABUF(0:268) O LINE 1529 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CODE p1=V_0150 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_0151 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 N PUSHI #0x00000000 N PUSHI #0x0000010c d DIM 0001 0002 1530 %INTEGERARRAY PLABS, DESADS, PLINK(0:31) O LINE 1530 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PLABS p1=V_0152 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_0153 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_0154 a/tf=1b b/format=1 c/ostate=100 type=1 (integer) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 N PUSHI #0x00000000 N PUSHI #0x0000001f d 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) O LINE 1531 "regression-compile-tmp/nrimp10s-77.imp" $ DEF SET p1=V_0155 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_0156 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_0157 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_0158 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_0159 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_015a 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_015b 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_015c 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_015d 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_015e 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_015f 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_0160 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_0161 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_0162 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_0163 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_0164 a/tf=1b b/format=1 c/ostate=100 type=1 (integer) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 N PUSHI #0x00000000 N PUSHI #0x0000001f d DIM 0001 0010 1534 %INTEGERARRAY AVL WSP(0:4,0:MAXLEVELS) O LINE 1534 "regression-compile-tmp/nrimp10s-77.imp" $ DEF AVLWSP p1=V_0165 a/tf=1b b/format=1 c/ostate=100 type=1 (integer) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 N PUSHI #0x00000000 N PUSHI #0x00000004 N PUSHI #0x00000000 N PUSHI #0x0000001f d 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. O LINE 1535 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RCF p1=V_0166 a/tf=44 b/format=166 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 N PUSHI #0x00000000 N PUSHI #0x00005ff4 d 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 O LINE 1536 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CTABLE p1=V_0167 a/tf=42 b/format=166 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) O LINE 1539 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CNOP (_lev0id0_lev1id1_lev2id3_CNOP) 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=3 --> 4, nested=0 --> 1} $ DEF I p1=V_0169 a/tf=11 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_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 } FINISH ) {lev=3} 1540 %ROUTINESPEC PCLOD(%INTEGER FROM, TO) O LINE 1540 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PCLOD (_lev0id0_lev1id1_lev2id3_PCLOD) p1=V_0169 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_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 TO 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=3} 1541 %ROUTINESPEC PCONST(%INTEGER X) O LINE 1541 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PCONST (_lev0id0_lev1id1_lev2id3_PCONST) p1=V_016a 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_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=3} 1542 %ROUTINESPEC PSF1(%INTEGER OPCODE,K,N) O LINE 1542 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PSF1 (_lev0id0_lev1id1_lev2id3_PSF1) 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=3 --> 4, nested=0 --> 1} $ DEF OPCODE 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 K 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 N 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=3} 1543 %ROUTINESPEC PF1(%INTEGER OPCODE,KP,KPP,N) O LINE 1543 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PF1 (_lev0id0_lev1id1_lev2id3_PF1) p1=V_016c 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_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 KP 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 KPP 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 N 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=3} 1544 %ROUTINESPEC PSORLF1(%INTEGER OPCODE,KP,KPP,N) O LINE 1544 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PSORLF1 (_lev0id0_lev1id1_lev2id3_PSORLF1) p1=V_016d 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_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 KP 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 KPP 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 N 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=3} 1545 %ROUTINESPEC PF2(%INTEGER OPCODE,H,Q,N,MASK,FILLER) O LINE 1545 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PF2 (_lev0id0_lev1id1_lev2id3_PF2) 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=3 --> 4, nested=0 --> 1} $ DEF OPCODE 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 H 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 Q 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 N 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 MASK 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 FILLER 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=3} 1546 %ROUTINESPEC PF3(%INTEGER OPCODE,MASK,KPPP,N) O LINE 1546 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PF3 (_lev0id0_lev1id1_lev2id3_PF3) 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=3 --> 4, nested=0 --> 1} $ DEF OPCODE 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 MASK 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 KPPP 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 N 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 } FINISH ) {lev=3} 1547 %ROUTINESPEC NOTE CREF(%INTEGER CA,VAL) O LINE 1547 "regression-compile-tmp/nrimp10s-77.imp" $ DEF NOTECREF (_lev0id0_lev1id1_lev2id3_NOTECREF) 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=3 --> 4, nested=0 --> 1} $ DEF CA 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 VAL 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=3} 1548 %INTEGERFNSPEC PARAM DES(%INTEGER PREC) O LINE 1548 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PARAMDES (_lev0id0_lev1id1_lev2id3_PARAMDES) p1=V_0171 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_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=3} 1549 %INTEGERFNSPEC MAPDES(%INTEGER PREC) O LINE 1549 "regression-compile-tmp/nrimp10s-77.imp" $ DEF MAPDES (_lev0id0_lev1id1_lev2id3_MAPDES) p1=V_0172 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_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 } FINISH ) {lev=3} 1550 %INTEGERFNSPEC SPECIAL CONSTS(%INTEGER WHICH) O LINE 1550 "regression-compile-tmp/nrimp10s-77.imp" $ DEF SPECIALCONSTS (_lev0id0_lev1id1_lev2id3_SPECIALCONSTS) p1=V_0173 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_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=3} 1551 %ROUTINESPEC STORE CONST(%INTEGERNAME D,%INTEGER L,AD) O LINE 1551 "regression-compile-tmp/nrimp10s-77.imp" $ DEF STORECONST (_lev0id0_lev1id1_lev2id3_STORECONST) 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=3 --> 4, nested=0 --> 1} $ DEF D p1=V_0175 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_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 AD 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 } FINISH ) {lev=3} 1552 %ROUTINESPEC DUMP CONSTS O LINE 1552 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DUMPCONSTS (_lev0id0_lev1id1_lev2id3_DUMPCONSTS) 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=3 --> 4, nested=0 --> 1} } FINISH ) {lev=3} 1553 %ROUTINESPEC PLANT(%INTEGER VALUE) O LINE 1553 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PLANT (_lev0id0_lev1id1_lev2id3_PLANT) p1=V_0176 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_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 } FINISH ) {lev=3} 1554 %ROUTINESPEC PLUG(%INTEGER I, J, K, BYTES) O LINE 1554 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PLUG (_lev0id0_lev1id1_lev2id3_PLUG) p1=V_0177 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_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 J 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 K 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 BYTES 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=3} 1555 %ROUTINESPEC CODEOUT O LINE 1555 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CODEOUT (_lev0id0_lev1id1_lev2id3_CODEOUT) 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=3 --> 4, nested=0 --> 1} } FINISH ) {lev=3} 1556 %ROUTINESPEC PROLOGUE O LINE 1556 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PROLOGUE (_lev0id0_lev1id1_lev2id3_PROLOGUE) 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=3 --> 4, nested=0 --> 1} } FINISH ) {lev=3} 1557 %ROUTINESPEC EPILOGUE O LINE 1557 "regression-compile-tmp/nrimp10s-77.imp" $ DEF EPILOGUE (_lev0id0_lev1id1_lev2id3_EPILOGUE) 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=3 --> 4, nested=0 --> 1} } FINISH ) {lev=3} 1558 %ROUTINESPEC COMPILE A STMNT O LINE 1558 "regression-compile-tmp/nrimp10s-77.imp" $ DEF COMPILEASTMNT (_lev0id0_lev1id1_lev2id3_COMPILEASTMNT) 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=3 --> 4, nested=0 --> 1} } FINISH ) {lev=3} 1559 %ROUTINESPEC CSS(%INTEGER P) O LINE 1559 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CSS (_lev0id0_lev1id1_lev2id3_CSS) 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=3 --> 4, nested=0 --> 1} $ DEF P 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 } FINISH ) {lev=3} 1560 %ROUTINESPEC LOAD DATA O LINE 1560 "regression-compile-tmp/nrimp10s-77.imp" $ DEF LOADDATA (_lev0id0_lev1id1_lev2id3_LOADDATA) 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=3 --> 4, nested=0 --> 1} } FINISH ) {lev=3} 1561 %ROUTINESPEC ABORT 1562 !*DELSTART O LINE 1561 "regression-compile-tmp/nrimp10s-77.imp" $ DEF ABORT (_lev0id0_lev1id1_lev2id3_ABORT) 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=3 --> 4, nested=0 --> 1} } FINISH ) {lev=3} 1563 %ROUTINESPEC PRINT USE 1564 !*DELEND O LINE 1563 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PRINTUSE (_lev0id0_lev1id1_lev2id3_PRINTUSE) 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=3 --> 4, nested=0 --> 1} } FINISH ) {lev=3} 1565 %CYCLE I=0,1,7 O LINE 1565 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000007 N PUSHI #0x00000000 f FOR L_0003 1566 REGISTER(I)=0; GRUSE(I)=0; GRINF1(I)=0; GRAT(I)=0 O LINE 1566 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REGISTER @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 1566 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 1566 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRINF1 @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 1566 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRAT @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL 1567 GRINF2(I)=0 O LINE 1567 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRINF2 @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL 1568 %REPEAT O LINE 1568 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1569 %CYCLE I=0, 1, MAXLEVELS O LINE 1569 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x0000001f N PUSHI #0x00000000 f FOR L_0003 1570 SET(I)=0; STACKBASE(I)=0; RAL(I)=0 O LINE 1570 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SET @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 1570 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STACKBASE @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 1570 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RAL @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL 1571 JUMP(I)=0; JROUND(I)=0 O LINE 1571 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JUMP @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 1571 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JROUND @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL 1572 LABEL(I)=0; FLAG(I)=0 O LINE 1572 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LABEL @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 1572 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FLAG @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL 1573 L(I)=0; M(I)=0; DIAGINF(I)=0 O LINE 1573 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH L @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 1573 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH M @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 1573 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DIAGINF @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL 1574 DISPLAY(I)=0; ONWORD(I)=0; ONINF(I)=0 O LINE 1574 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISPLAY @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 1574 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ONWORD @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 1574 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ONINF @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL 1575 NAMES(I)=-1 O LINE 1575 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAMES @ PUSH I a ACCESS N PUSHI #0x00000001 U NEGATE S ASSVAL 1576 %CYCLE J=0,1,4 O LINE 1576 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000001 N PUSHI #0x00000004 N PUSHI #0x00000000 f FOR L_0006 1577 AVL WSP(J,I)=0 O LINE 1577 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AVLWSP @ PUSH J i INDEX @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL 1578 %REPEAT O LINE 1578 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0006 : LOCATE L_0007 1579 %REPEAT 1580 {CTABLE==ARRAY(ADDR(ASLIST(1)),CF) O LINE 1579 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1581 CTABLE==RECORD(ADDR(ASLIST(1))) O LINE 1581 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTABLE @ PUSH RECORD @ PUSH ADDR @ PUSH ASLIST N PUSHI #0x00000001 a ACCESS p ASSPAR E CALL p ASSPAR E CALL Z ASSREF 1582 CONST HOLE=0 O LINE 1582 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTHOLE N PUSHI #0x00000000 S ASSVAL 1583 PROLOGUE O LINE 1583 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PROLOGUE E CALL 1584 LINE=0 O LINE 1584 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LINE N PUSHI #0x00000000 S ASSVAL 1585 NEXTP=1; LEVEL=1; STMTS=0 O LINE 1585 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NEXTP N PUSHI #0x00000001 S ASSVAL O LINE 1585 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x00000001 S ASSVAL O LINE 1585 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STMTS N PUSHI #0x00000000 S ASSVAL 1586 RLEVEL=0; RBASE=0 O LINE 1586 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RLEVEL N PUSHI #0x00000000 S ASSVAL O LINE 1586 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RBASE N PUSHI #0x00000000 S ASSVAL 1587 %WHILE A(NEXTP+3)!A(NEXTP+4)#0 %CYCLE O LINE 1587 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH A @ PUSH NEXTP N PUSHI #0x00000003 + ADD a ACCESS @ PUSH A @ PUSH NEXTP N PUSHI #0x00000004 + ADD a ACCESS ! OR N PUSHI #0x00000000 ? JUMPIF = L_0004 1588 COMPILE A STMNT O LINE 1588 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COMPILEASTMNT E CALL 1589 %REPEAT O LINE 1589 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1590 LINE=99999 O LINE 1590 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LINE N PUSHI #0x0001869f S ASSVAL 1591 EPILOGUE O LINE 1591 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EPILOGUE E CALL 1592 LOAD DATA O LINE 1592 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LOADDATA E CALL 1593 %STOP O LINE 1593 "regression-compile-tmp/nrimp10s-77.imp" s STOP 1594 %ROUTINE COMPILE A STMNT O LINE 1594 "regression-compile-tmp/nrimp10s-77.imp" $ DEF COMPILEASTMNT (_lev0id0_lev1id1_lev2id3_COMPILEASTMNT) p1=V_017b 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 O LINE 1595 "regression-compile-tmp/nrimp10s-77.imp" $ DEF I p1=V_0180 a/tf=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 O LINE 1597 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DCOMP N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH CA @ PUSH CABUF ? JUMPIF <= L_0004 @ PUSH CODEOUT E CALL @ PUSH PRINTUSE E CALL : LOCATE L_0004 1599 I=NEXTP O LINE 1599 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH NEXTP S ASSVAL 1600 NEXTP=NEXTP+A(NEXTP)<<16+A(NEXTP+1)<<8+A(NEXTP+2) O LINE 1600 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NEXTP @ PUSH NEXTP @ PUSH A @ PUSH NEXTP a ACCESS N PUSHI #0x00000010 [ LSH + ADD @ PUSH A @ PUSH NEXTP N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000008 [ LSH + ADD @ PUSH A @ PUSH NEXTP N PUSHI #0x00000002 + ADD a ACCESS + ADD S ASSVAL 1601 LINE=A(I+3)<<8+A(I+4) O LINE 1601 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LINE @ PUSH A @ PUSH I N PUSHI #0x00000003 + ADD a ACCESS N PUSHI #0x00000008 [ LSH @ PUSH A @ PUSH I N PUSHI #0x00000004 + ADD a ACCESS + ADD S ASSVAL 1602 STMTS=STMTS+1 O LINE 1602 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STMTS @ PUSH STMTS N PUSHI #0x00000001 + ADD S ASSVAL 1603 CSS(I+5) 1604 ! CHECK ASL %IF LINE&7=0 O LINE 1603 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CSS @ PUSH I N PUSHI #0x00000005 + ADD p ASSPAR E CALL 1605 %END O 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 !*********************************************************************** O LINE 1606 "regression-compile-tmp/nrimp10s-77.imp" $ DEF LOADDATA (_lev0id0_lev1id1_lev2id3_LOADDATA) p1=V_017d 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 O LINE 1611 "regression-compile-tmp/nrimp10s-77.imp" $ DEF LANGFLAG p1=V_0180 a/tf=11 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_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 1612 GLACA=(GLACA+7)&(-8) O LINE 1612 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GLACA @ PUSH GLACA N PUSHI #0x00000007 + ADD N PUSHI #0x00000008 U NEGATE & AND S ASSVAL 1613 USTPTR=(USTPTR+7)&(-8) O LINE 1613 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH USTPTR @ PUSH USTPTR N PUSHI #0x00000007 + ADD N PUSHI #0x00000008 U NEGATE & AND S ASSVAL 1614 CODE OUT O LINE 1614 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODEOUT E CALL 1615 CNOP(0, 8) O LINE 1615 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CNOP N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000008 p ASSPAR E CALL 1616 DUMP CONSTS O LINE 1616 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DUMPCONSTS E CALL 1617 %IF PARMTRACE=0 %THEN LANGFLAG=6 %ELSE LANGFLAG=1 O LINE 1617 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMTRACE N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH LANGFLAG N PUSHI #0x00000006 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH LANGFLAG N PUSHI #0x00000001 S ASSVAL : LOCATE L_0003 1618 LANGFLAG=LANGFLAG<<24 O LINE 1618 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LANGFLAG @ PUSH LANGFLAG N PUSHI #0x00000018 [ LSH S ASSVAL 1619 PARMS=(PARMDIAG<<1!PARMLINE)<<1!PARMTRACE O LINE 1619 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMS @ PUSH PARMDIAG N PUSHI #0x00000001 [ LSH @ PUSH PARMLINE ! OR N PUSHI #0x00000001 [ LSH @ PUSH PARMTRACE ! OR S ASSVAL 1620 FIXED GLA(4)=LANGFLAG!1<<16!(CPRMODE&1)<<8!PARMS;! LANG RLSE & MAINPROG O LINE 1620 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FIXEDGLA N PUSHI #0x00000004 a ACCESS @ PUSH LANGFLAG N PUSHI #0x00000001 N PUSHI #0x00000010 [ LSH ! OR @ PUSH CPRMODE N PUSHI #0x00000001 & AND N PUSHI #0x00000008 [ LSH ! OR @ PUSH PARMS ! OR S ASSVAL 1621 I=GLACA-GLACABUF O LINE 1621 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH GLACA @ PUSH GLACABUF - SUB S ASSVAL 1622 %IF INHCODE=0 %THEN %START O LINE 1622 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INHCODE N PUSHI #0x00000000 ? JUMPIF # L_0004 1623 LPUT(2, I, GLACABUF, ADDR(GLABUF(0))) %UNLESS I=0 1624 ! BACK OF GLAP O LINE 1623 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH LPUT N PUSHI #0x00000002 p ASSPAR @ PUSH I p ASSPAR @ PUSH GLACABUF p ASSPAR @ PUSH ADDR @ PUSH GLABUF N PUSHI #0x00000000 a ACCESS p ASSPAR E CALL p ASSPAR E CALL : LOCATE L_0007 1625 LPUT(2, FIXEDGLALEN, 0, ADDR(FIXED GLA(0)));! FRONT OF GLAP O LINE 1625 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LPUT N PUSHI #0x00000002 p ASSPAR N PUSHI #0x00000030 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH ADDR @ PUSH FIXEDGLA N PUSHI #0x00000000 a ACCESS p ASSPAR E CALL p ASSPAR E CALL 1626 LPUT(19,2,8,5); ! RELOCATE GLA ST ADDRESS O LINE 1626 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LPUT N PUSHI #0x00000013 p ASSPAR N PUSHI #0x00000002 p ASSPAR N PUSHI #0x00000008 p ASSPAR N PUSHI #0x00000005 p ASSPAR E CALL 1627 LPUT(19,2,12,4); ! RELOCATE CODE ST ADDRESS O LINE 1627 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LPUT N PUSHI #0x00000013 p ASSPAR N PUSHI #0x00000002 p ASSPAR N PUSHI #0x0000000c p ASSPAR N PUSHI #0x00000004 p ASSPAR E CALL 1628 I=16_E2E2E2E2 O LINE 1628 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0xe2e2e2e2 S ASSVAL 1629 LPUT(4, 4, SSTL, ADDR(I)) 1630 ! O LINE 1629 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LPUT N PUSHI #0x00000004 p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH SSTL p ASSPAR @ PUSH ADDR @ PUSH I p ASSPAR E CALL p ASSPAR E CALL 1631 %FINISH O LINE 1631 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1632 SSTL=(SSTL+11)&(-8) O LINE 1632 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SSTL @ PUSH SSTL N PUSHI #0x0000000b + ADD N PUSHI #0x00000008 U NEGATE & AND S ASSVAL 1633 PRINTSTRING(" 1634 CODE") O LINE 1633 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTSTRING ' PUSHS "\nCODE" p ASSPAR E CALL 1635 WRITE(CA, 6); PRINTSTRING(" BYTES GLAP") O LINE 1635 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE @ PUSH CA p ASSPAR N PUSHI #0x00000006 p ASSPAR E CALL O LINE 1635 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTSTRING ' PUSHS " BYTES GLAP" p ASSPAR E CALL 1636 WRITE(GLACA, 3); PRINTSTRING("+") O LINE 1636 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE @ PUSH GLACA p ASSPAR N PUSHI #0x00000003 p ASSPAR E CALL O LINE 1636 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTSTRING ' PUSHS "+" p ASSPAR E CALL 1637 WRITE(USTPTR, 1); PRINTSTRING(" BYTES DIAG TABLES") O LINE 1637 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE @ PUSH USTPTR p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL O LINE 1637 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTSTRING ' PUSHS " BYTES DIAG TABLES" p ASSPAR E CALL 1638 WRITE(SSTL, 3); PRINTSTRING(" BYTES 1639 TOTAL") O LINE 1638 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE @ PUSH SSTL p ASSPAR N PUSHI #0x00000003 p ASSPAR E CALL O LINE 1638 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTSTRING ' PUSHS " BYTES\nTOTAL" p ASSPAR E CALL 1640 REGISTER(0)=CA; REGISTER(1)=GLACA O LINE 1640 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REGISTER N PUSHI #0x00000000 a ACCESS @ PUSH CA S ASSVAL O LINE 1640 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REGISTER N PUSHI #0x00000001 a ACCESS @ PUSH GLACA S ASSVAL 1641 REGISTER(2)=0 O LINE 1641 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REGISTER N PUSHI #0x00000002 a ACCESS N PUSHI #0x00000000 S ASSVAL 1642 REGISTER(3)=SSTL O LINE 1642 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REGISTER N PUSHI #0x00000003 a ACCESS @ PUSH SSTL S ASSVAL 1643 REGISTER(4)=USTPTR O LINE 1643 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REGISTER N PUSHI #0x00000004 a ACCESS @ PUSH USTPTR S ASSVAL 1644 K=CA+GLACA+SSTL+USTPTR; REGISTER(5)=K O LINE 1644 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH CA @ PUSH GLACA + ADD @ PUSH SSTL + ADD @ PUSH USTPTR + ADD S ASSVAL O LINE 1644 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REGISTER N PUSHI #0x00000005 a ACCESS @ PUSH K S ASSVAL 1645 WRITE(K, 5); PRINTSTRING(" BYTES") O LINE 1645 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE @ PUSH K p ASSPAR N PUSHI #0x00000005 p ASSPAR E CALL O LINE 1645 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTSTRING ' PUSHS " BYTES" p ASSPAR E CALL 1646 NEWLINE; PRINT CH(13); ! MARKER FOR COMP TO PRINT 1647 !SUMMARY O LINE 1646 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NEWLINE E CALL O LINE 1646 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTCH N PUSHI #0x0000000d p ASSPAR E CALL 1648 %IF FAULTY=0 %THEN %START O LINE 1648 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FAULTY N PUSHI #0x00000000 ? JUMPIF # L_0004 1649 WRITE(STMTS, 7); PRINTSTRING(" STATEMENTS COMPILED IN") O LINE 1649 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE @ PUSH STMTS p ASSPAR N PUSHI #0x00000007 p ASSPAR E CALL O LINE 1649 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTSTRING ' PUSHS " STATEMENTS COMPILED IN" p ASSPAR E CALL 1650 WRITE(INT(1000*(CPUTIME-CTIME)),5) O LINE 1650 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE @ PUSH INT N PUSHI #0x000003e8 @ PUSH CPUTIME E CALL @ PUSH CTIME - SUB * MUL p ASSPAR E CALL p ASSPAR N PUSHI #0x00000005 p ASSPAR E CALL 1651 PRINTSTRING(" MSECS") O LINE 1651 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTSTRING ' PUSHS " MSECS" p ASSPAR E CALL 1652 COMREG(47)=STMTS; ! NO OF STMTS FOR COMPER O LINE 1652 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COMREG N PUSHI #0x0000002f p ASSPAR E CALL @ PUSH STMTS S ASSVAL 1653 %FINISH %ELSE %START O LINE 1653 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 1654 PRINTSTRING("PROGRAM CONTAINS"); WRITE(FAULTY, 2) O LINE 1654 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTSTRING ' PUSHS "PROGRAM CONTAINS" p ASSPAR E CALL O LINE 1654 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE @ PUSH FAULTY p ASSPAR N PUSHI #0x00000002 p ASSPAR E CALL 1655 PRINTSTRING(" FAULT"); PRINTSYMBOL('S') %IF FAULTY>1 O LINE 1655 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTSTRING ' PUSHS " FAULT" p ASSPAR E CALL O LINE 1655 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FAULTY N PUSHI #0x00000001 ? JUMPIF <= L_0007 @ PUSH PRINTSYMBOL N PUSHI #0x00000053 p ASSPAR E CALL : LOCATE L_0007 1656 COMREG(47)=FAULTY; ! NO OF FAULTS FOR COMPER O LINE 1656 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COMREG N PUSHI #0x0000002f p ASSPAR E CALL @ PUSH FAULTY S ASSVAL 1657 %FINISH O LINE 1657 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 1658 NEWLINES(2) O LINE 1658 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NEWLINES N PUSHI #0x00000002 p ASSPAR E CALL 1659 NEWLINE O LINE 1659 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NEWLINE E CALL 1660 I=0; I=8 %IF FAULTY#0 O LINE 1660 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000000 S ASSVAL O LINE 1660 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FAULTY N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH I N PUSHI #0x00000008 S ASSVAL : LOCATE L_0004 1661 COMREG(24)=I O LINE 1661 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COMREG N PUSHI #0x00000018 p ASSPAR E CALL @ PUSH I S ASSVAL 1662 %IF INHCODE=0 %THEN LPUT(7, 24, 0, ADDR(REGISTER(0))) 1663 ! SUMMARY INFO..REGISTER AS BUF 1664 ! PPROFILE O LINE 1662 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INHCODE N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH LPUT N PUSHI #0x00000007 p ASSPAR N PUSHI #0x00000018 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH ADDR @ PUSH REGISTER N PUSHI #0x00000000 a ACCESS p ASSPAR E CALL p ASSPAR E CALL : LOCATE L_0004 1665 %STOP O LINE 1665 "regression-compile-tmp/nrimp10s-77.imp" s 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 O LINE 1666 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_LOADDATA {lev=4 --> 3} 1681 %ROUTINE RECODE(%INTEGER S,F,AD) O LINE 1681 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RECODE (_lev0id0_lev1id1_lev2id3_RECODE) p1=V_0180 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_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 F 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 AD 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} 1682 %IF S#F %START O LINE 1682 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S @ PUSH F ? JUMPIF = L_0004 1683 PRINTSTRING(" O LINE 1683 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRINTSTRING ' PUSHS "\nCODE FOR LINE" p ASSPAR E CALL 1684 CODE FOR LINE"); WRITE(LINE,5) O LINE 1684 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRITE @ PUSH LINE p ASSPAR N PUSHI #0x00000005 p ASSPAR E CALL 1685 NCODE(S,F,AD) O LINE 1685 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NCODE @ PUSH S p ASSPAR @ PUSH F p ASSPAR @ PUSH AD p ASSPAR E CALL 1686 %FINISH O LINE 1686 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1687 %END 1688 !*DELEND O LINE 1687 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_RECODE {lev=4 --> 3} 1689 %ROUTINE CODEOUT O LINE 1689 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CODEOUT (_lev0id0_lev1id1_lev2id3_CODEOUT) p1=V_0178 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 O LINE 1690 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPCURR N PUSHI #0x00000000 ? JUMPIF <= L_0004 1692 RECODE(ADDR(CODE(0)), ADDR(CODE(PPCURR)), CABUF) %IF DCOMP#0 1693 !*DELEND O LINE 1692 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DCOMP N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH RECODE @ PUSH ADDR @ PUSH CODE N PUSHI #0x00000000 a ACCESS p ASSPAR E CALL p ASSPAR @ PUSH ADDR @ PUSH CODE @ PUSH PPCURR a ACCESS p ASSPAR E CALL p ASSPAR @ PUSH CABUF p ASSPAR E CALL : LOCATE L_0007 1694 LPUT(1, PPCURR, CABUF, ADDR(CODE(0))) %IF INHCODE=0 O LINE 1694 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INHCODE N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH LPUT N PUSHI #0x00000001 p ASSPAR @ PUSH PPCURR p ASSPAR @ PUSH CABUF p ASSPAR @ PUSH ADDR @ PUSH CODE N PUSHI #0x00000000 a ACCESS p ASSPAR E CALL p ASSPAR E CALL : LOCATE L_0007 1695 PPCURR=0; CABUF=CA O LINE 1695 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPCURR N PUSHI #0x00000000 S ASSVAL O LINE 1695 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CABUF @ PUSH CA S ASSVAL 1696 %FINISH O LINE 1696 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1697 %END O 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 O LINE 1698 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PLANT (_lev0id0_lev1id1_lev2id3_PLANT) p1=V_0176 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_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 } FINISH ) {lev=4} 1703 CODE(PPCURR)<-HALFWORD>>8 O LINE 1703 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE @ PUSH PPCURR a ACCESS @ PUSH HALFWORD N PUSHI #0x00000008 ] RSH j JAM 1704 CODE(PPCURR+1)<-HALFWORD O LINE 1704 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE @ PUSH PPCURR N PUSHI #0x00000001 + ADD a ACCESS @ PUSH HALFWORD j 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 O LINE 1705 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPCURR @ PUSH PPCURR N PUSHI #0x00000002 + ADD S ASSVAL 1715 CA=CA+2 O LINE 1715 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CA @ PUSH CA N PUSHI #0x00000002 + ADD S ASSVAL 1716 CODEOUT %IF PPCURR>=256 O LINE 1716 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPCURR N PUSHI #0x00000100 ? JUMPIF < L_0004 @ PUSH CODEOUT E CALL : LOCATE L_0004 1717 %END O 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 !*********************************************************************** O LINE 1718 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PCONST (_lev0id0_lev1id1_lev2id3_PCONST) p1=V_016a 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_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 } FINISH ) {lev=4} 1722 %INTEGER I 1723 ! %IF USE IMP=YES %THEN %START O LINE 1722 "regression-compile-tmp/nrimp10s-77.imp" $ DEF I 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 1724 %CYCLE I=24,-8,0 O LINE 1724 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000008 U NEGATE N PUSHI #0x00000000 N PUSHI #0x00000018 f FOR L_0003 1725 CODE(PPCURR)=WORD>>I&255 O LINE 1725 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE @ PUSH PPCURR a ACCESS @ PUSH WORD @ PUSH I ] RSH N PUSHI #0x000000ff & AND S ASSVAL 1726 PPCURR=PPCURR+1 O LINE 1726 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPCURR @ PUSH PPCURR N PUSHI #0x00000001 + ADD S 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 O LINE 1727 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1737 CA=CA+4 O LINE 1737 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CA @ PUSH CA N PUSHI #0x00000004 + ADD S ASSVAL 1738 CODE OUT %IF PPCURR>=256 O LINE 1738 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPCURR N PUSHI #0x00000100 ? JUMPIF < L_0004 @ PUSH CODEOUT E CALL : LOCATE L_0004 1739 %END O 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 !*********************************************************************** O LINE 1740 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PSF1 (_lev0id0_lev1id1_lev2id3_PSF1) p1=V_016b 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_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 K 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 N 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} 1746 %INTEGER KPP 1747 ! ABORT %UNLESS 0<=K<=2 %AND OPCODE&1=0 O LINE 1746 "regression-compile-tmp/nrimp10s-77.imp" $ DEF KPP 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 1748 %IF (K=0 %AND -64<=N<=63) %OR (K#0 %AND 0<=N<=511) %START O LINE 1748 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K N PUSHI #0x00000000 ? JUMPIF # L_0006 N PUSHI #0x00000040 U NEGATE @ PUSH N " JUMPIFD > L_0006 N PUSHI #0x0000003f ? JUMPIF <= L_0005 : LOCATE L_0006 @ PUSH K N PUSHI #0x00000000 ? JUMPIF = L_0004 N PUSHI #0x00000000 @ PUSH N " JUMPIFD > L_0004 N PUSHI #0x000001ff ? JUMPIF > L_0004 : LOCATE L_0005 1749 %IF K#0 %THEN N=N//4 1750 ! %IF USE IMP=YES %THEN %START O LINE 1749 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH N @ PUSH N N PUSHI #0x00000004 / QUOT S ASSVAL : LOCATE L_0007 1751 CODE(PPCURR)=OPCODE!K>>1 O LINE 1751 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE @ PUSH PPCURR a ACCESS @ PUSH OPCODE @ PUSH K N PUSHI #0x00000001 ] RSH ! OR S ASSVAL 1752 CODE(PPCURR+1)=(K&1)<<7!N&127 O LINE 1752 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE @ PUSH PPCURR N PUSHI #0x00000001 + ADD a ACCESS @ PUSH K N PUSHI #0x00000001 & AND N PUSHI #0x00000007 [ LSH @ PUSH N N PUSHI #0x0000007f & AND ! OR S 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 O LINE 1753 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPCURR @ PUSH PPCURR N PUSHI #0x00000002 + ADD S ASSVAL 1769 CA=CA+2 O LINE 1769 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CA @ PUSH CA N PUSHI #0x00000002 + ADD S ASSVAL 1770 CODEOUT %IF PPCURR>=256 O LINE 1770 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPCURR N PUSHI #0x00000100 ? JUMPIF < L_0007 @ PUSH CODEOUT E CALL : LOCATE L_0007 1771 %FINISH %ELSE %START O LINE 1771 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 1772 %IF K=0 %THEN KPP=0 %ELSE KPP=2 O LINE 1772 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH KPP N PUSHI #0x00000000 S ASSVAL F GOTO L_0006 : LOCATE L_0007 @ PUSH KPP N PUSHI #0x00000002 S ASSVAL : LOCATE L_0006 1773 PF1(OPCODE,K>>1<<1,KPP,N) O LINE 1773 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 @ PUSH OPCODE p ASSPAR @ PUSH K N PUSHI #0x00000001 ] RSH N PUSHI #0x00000001 [ LSH p ASSPAR @ PUSH KPP p ASSPAR @ PUSH N p ASSPAR E CALL 1774 %FINISH O LINE 1774 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 1775 %END O 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 !*********************************************************************** O LINE 1776 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PF1 (_lev0id0_lev1id1_lev2id3_PF1) p1=V_016c 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_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 KP 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 KPP 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 N 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} 1781 %INTEGER INC 1782 ! ABORT %UNLESS 0<=KP<=3 %AND 0<=KPP<=7 %AND OPCODE&1=0 O LINE 1781 "regression-compile-tmp/nrimp10s-77.imp" $ DEF INC p1=V_0185 a/tf=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 O LINE 1783 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INC N PUSHI #0x00000002 S ASSVAL 1784 %IF KPP=PC %THEN %START O LINE 1784 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KPP N PUSHI #0x00000004 ? JUMPIF # L_0004 1785 %IF N<0 %THEN N=N&16_7FFFFFFF %AND NOTE CREF(CA,N) O LINE 1785 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N N PUSHI #0x00000000 ? JUMPIF >= L_0007 @ PUSH N @ PUSH N N PUSHI #0x7fffffff & AND S ASSVAL @ PUSH NOTECREF @ PUSH CA p ASSPAR @ PUSH N p ASSPAR E CALL : LOCATE L_0007 1786 N=(N-CA)//2 O LINE 1786 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N @ PUSH CA - SUB N PUSHI #0x00000002 / QUOT S ASSVAL 1787 %FINISH O LINE 1787 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1788 %IF (1<>16&3) O LINE 1791 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE @ PUSH PPCURR N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000080 @ PUSH KP N PUSHI #0x00000005 [ LSH ! OR @ PUSH KPP N PUSHI #0x00000002 [ LSH ! OR @ PUSH N N PUSHI #0x00000010 ] RSH N PUSHI #0x00000003 & AND ! OR S ASSVAL 1792 CODE(PPCURR+2)=N>>8&255 O LINE 1792 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE @ PUSH PPCURR N PUSHI #0x00000002 + ADD a ACCESS @ PUSH N N PUSHI #0x00000008 ] RSH N PUSHI #0x000000ff & AND S 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 O LINE 1793 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE @ PUSH PPCURR N PUSHI #0x00000003 + ADD a ACCESS @ PUSH N N PUSHI #0x000000ff & AND S ASSVAL 1811 %IF KPP<=5 %THEN INC=4 O LINE 1811 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KPP N PUSHI #0x00000005 ? JUMPIF > L_0004 @ PUSH INC N PUSHI #0x00000004 S ASSVAL : LOCATE L_0004 1812 PPCURR=PPCURR+INC O LINE 1812 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPCURR @ PUSH PPCURR @ PUSH INC + ADD S ASSVAL 1813 CA=CA+INC O LINE 1813 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CA @ PUSH CA @ PUSH INC + ADD S ASSVAL 1814 CODEOUT %IF PPCURR>=256 O LINE 1814 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPCURR N PUSHI #0x00000100 ? JUMPIF < L_0004 @ PUSH CODEOUT E CALL : LOCATE L_0004 1815 %END O 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 !*********************************************************************** O LINE 1816 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PSORLF1 (_lev0id0_lev1id1_lev2id3_PSORLF1) p1=V_016d 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_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 KP 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 KPP 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 N 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} 1820 %INTEGER INC O LINE 1820 "regression-compile-tmp/nrimp10s-77.imp" $ DEF INC p1=V_0185 a/tf=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 O LINE 1821 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INC N PUSHI #0x00000002 S ASSVAL 1822 %IF (KPP=0=KP %AND -64<=N<=63) %OR (KPP=LNB %AND KP&1=0 %AND 0<=N<=511) %START O LINE 1822 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KPP N PUSHI #0x00000000 " JUMPIFD # L_0006 @ PUSH KP ? JUMPIF # L_0006 N PUSHI #0x00000040 U NEGATE @ PUSH N " JUMPIFD > L_0006 N PUSHI #0x0000003f ? JUMPIF <= L_0005 : LOCATE L_0006 @ PUSH KPP N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH KP N PUSHI #0x00000001 & AND N PUSHI #0x00000000 ? JUMPIF # L_0004 N PUSHI #0x00000000 @ PUSH N " JUMPIFD > L_0004 N PUSHI #0x000001ff ? JUMPIF > L_0004 : LOCATE L_0005 1823 %IF KPP=LNB %THEN KP=1+KP>>1 O LINE 1823 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KPP N PUSHI #0x00000002 ? JUMPIF # L_0007 @ PUSH KP N PUSHI #0x00000001 @ PUSH KP N PUSHI #0x00000001 ] RSH + ADD S ASSVAL : LOCATE L_0007 1824 %IF KP#0 %THEN N=N//4 1825 ! %IF USE IMP=YES %THEN %START O LINE 1824 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KP N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH N @ PUSH N N PUSHI #0x00000004 / QUOT S ASSVAL : LOCATE L_0007 1826 CODE(PPCURR)=OPCODE!KP>>1 O LINE 1826 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE @ PUSH PPCURR a ACCESS @ PUSH OPCODE @ PUSH KP N PUSHI #0x00000001 ] RSH ! OR S 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 O LINE 1827 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE @ PUSH PPCURR N PUSHI #0x00000001 + ADD a ACCESS @ PUSH KP N PUSHI #0x00000001 & AND N PUSHI #0x00000007 [ LSH @ PUSH N N PUSHI #0x0000007f & AND ! OR S ASSVAL 1841 %FINISH %ELSE %START O LINE 1841 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 1842 %IF KPP=PC %THEN %START O LINE 1842 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KPP N PUSHI #0x00000004 ? JUMPIF # L_0007 1843 %IF N<0 %THEN N=N&16_7FFFFFFF %AND NOTE CREF(CA,N) O LINE 1843 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N N PUSHI #0x00000000 ? JUMPIF >= L_000a @ PUSH N @ PUSH N N PUSHI #0x7fffffff & AND S ASSVAL @ PUSH NOTECREF @ PUSH CA p ASSPAR @ PUSH N p ASSPAR E CALL : LOCATE L_000a 1844 N=(N-CA)//2 O LINE 1844 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N @ PUSH CA - SUB N PUSHI #0x00000002 / QUOT S ASSVAL 1845 %FINISH O LINE 1845 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 1846 %IF (1<>16&3) O LINE 1849 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE @ PUSH PPCURR N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000004 @ PUSH KP ! OR N PUSHI #0x00000003 [ LSH @ PUSH KPP ! OR N PUSHI #0x00000002 [ LSH @ PUSH N N PUSHI #0x00000010 ] RSH N PUSHI #0x00000003 & AND ! OR S ASSVAL 1850 CODE(PPCURR+2)=N>>8&255 O LINE 1850 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE @ PUSH PPCURR N PUSHI #0x00000002 + ADD a ACCESS @ PUSH N N PUSHI #0x00000008 ] RSH N PUSHI #0x000000ff & AND S 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 O LINE 1851 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE @ PUSH PPCURR N PUSHI #0x00000003 + ADD a ACCESS @ PUSH N N PUSHI #0x000000ff & AND S ASSVAL 1869 %IF KPP<=5 %THEN INC=4 O LINE 1869 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KPP N PUSHI #0x00000005 ? JUMPIF > L_0007 @ PUSH INC N PUSHI #0x00000004 S ASSVAL : LOCATE L_0007 1870 %FINISH O LINE 1870 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 1871 CA=CA+INC; PPCURR=PPCURR+INC O LINE 1871 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CA @ PUSH CA @ PUSH INC + ADD S ASSVAL O LINE 1871 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPCURR @ PUSH PPCURR @ PUSH INC + ADD S ASSVAL 1872 CODEOUT %IF PPCURR>=256 O LINE 1872 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPCURR N PUSHI #0x00000100 ? JUMPIF < L_0004 @ PUSH CODEOUT E CALL : LOCATE L_0004 1873 %END O 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 O LINE 1874 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PF2 (_lev0id0_lev1id1_lev2id3_PF2) 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=4 --> 5, nested=0 --> 1} $ DEF OPCODE 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 H 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 Q 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 N 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 MASK p1=V_0185 a/tf=11 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_0186 a/tf=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) O LINE 1880 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PLANT @ PUSH OPCODE N PUSHI #0x00000008 [ LSH @ PUSH H N PUSHI #0x00000008 [ LSH ! OR @ PUSH Q N PUSHI #0x00000007 [ LSH ! OR @ PUSH N ! OR p ASSPAR E CALL 1881 %IF Q#0 %THEN PLANT(MASK<<8!FILLER) O LINE 1881 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH PLANT @ PUSH MASK N PUSHI #0x00000008 [ LSH @ PUSH FILLER ! OR p ASSPAR E CALL : LOCATE L_0004 1882 %END O 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 O LINE 1883 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PF3 (_lev0id0_lev1id1_lev2id3_PF3) p1=V_016f 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_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 MASK 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 KPPP 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 N 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} 1888 %IF KPPP=PC %THEN %START O LINE 1888 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KPPP N PUSHI #0x00000004 ? JUMPIF # L_0004 1889 %IF N<0 %THEN N=N&16_7FFFFFFF %AND NOTE CREF(CA,N) O LINE 1889 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N N PUSHI #0x00000000 ? JUMPIF >= L_0007 @ PUSH N @ PUSH N N PUSHI #0x7fffffff & AND S ASSVAL @ PUSH NOTECREF @ PUSH CA p ASSPAR @ PUSH N p ASSPAR E CALL : LOCATE L_0007 1890 N=(N-CA)//2 O LINE 1890 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N @ PUSH CA - SUB N PUSHI #0x00000002 / QUOT S ASSVAL 1891 %FINISH O LINE 1891 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1892 CODE(PPCURR)=OPCODE!MASK>>3&1 O LINE 1892 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE @ PUSH PPCURR a ACCESS @ PUSH OPCODE @ PUSH MASK N PUSHI #0x00000003 ] RSH N PUSHI #0x00000001 & AND ! OR S ASSVAL 1893 CODE(PPCURR+1)=(MASK&7)<<5!KPPP<<2!(N>>16&3) O LINE 1893 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE @ PUSH PPCURR N PUSHI #0x00000001 + ADD a ACCESS @ PUSH MASK N PUSHI #0x00000007 & AND N PUSHI #0x00000005 [ LSH @ PUSH KPPP N PUSHI #0x00000002 [ LSH ! OR @ PUSH N N PUSHI #0x00000010 ] RSH N PUSHI #0x00000003 & AND ! OR S ASSVAL 1894 PPCURR=PPCURR+2 O LINE 1894 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPCURR @ PUSH PPCURR N PUSHI #0x00000002 + ADD S ASSVAL 1895 CA=CA+2 O LINE 1895 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CA @ PUSH CA N PUSHI #0x00000002 + ADD S ASSVAL 1896 %IF KPPP<=5 %THEN %START O LINE 1896 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KPPP N PUSHI #0x00000005 ? JUMPIF > L_0004 1897 CODE(PPCURR)=N>>8&255 O LINE 1897 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE @ PUSH PPCURR a ACCESS @ PUSH N N PUSHI #0x00000008 ] RSH N PUSHI #0x000000ff & AND S ASSVAL 1898 CODE(PPCURR+1)=N&255 O LINE 1898 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE @ PUSH PPCURR N PUSHI #0x00000001 + ADD a ACCESS @ PUSH N N PUSHI #0x000000ff & AND S ASSVAL 1899 PPCURR=PPCURR+2; CA=CA+2 O LINE 1899 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPCURR @ PUSH PPCURR N PUSHI #0x00000002 + ADD S ASSVAL O LINE 1899 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CA @ PUSH CA N PUSHI #0x00000002 + ADD S ASSVAL 1900 %FINISH O LINE 1900 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1901 CODEOUT %IF PPCURR>=256 O LINE 1901 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPCURR N PUSHI #0x00000100 ? JUMPIF < L_0004 @ PUSH CODEOUT E CALL : LOCATE L_0004 1902 %END O 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 !*********************************************************************** O LINE 1903 "regression-compile-tmp/nrimp10s-77.imp" $ DEF NOTECREF (_lev0id0_lev1id1_lev2id3_NOTECREF) p1=V_0170 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_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 N 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 } FINISH ) {lev=4} 1909 %RECORD(LISTF)%NAME CELL {(LISTF) O LINE 1909 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CELL p1=V_0183 a/tf=42 b/format=11f c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 1910 CELL==ASLIST(CREFHEAD) O LINE 1910 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CELL @ PUSH ASLIST @ PUSH CREFHEAD a ACCESS Z ASSREF 1911 %IF CREFHEAD=0 %OR CELL_S3#0 %THEN PUSH(CREFHEAD,CA,0,0) %AND %RETURN O LINE 1911 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CREFHEAD N PUSHI #0x00000000 ? JUMPIF = L_0005 @ PUSH CELL n SELECT 3 N PUSHI #0x00000000 ? JUMPIF = L_0004 : LOCATE L_0005 @ PUSH PUSH @ PUSH CREFHEAD p ASSPAR @ PUSH CA p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL R RETURN : LOCATE L_0004 1912 %IF CELL_S2=0 %THEN CELL_S2=CA %ELSE CELL_S3=CA O LINE 1912 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CELL n SELECT 2 N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH CELL n SELECT 2 @ PUSH CA S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH CELL n SELECT 3 @ PUSH CA S ASSVAL : LOCATE L_0003 1913 %END O 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 !*********************************************************************** O LINE 1914 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PCLOD (_lev0id0_lev1id1_lev2id3_PCLOD) p1=V_0169 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_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 TO 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 } 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 O LINE 1918 "regression-compile-tmp/nrimp10s-77.imp" $ DEF I 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 1923 %END O LINE 1923 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_PCLOD {lev=4 --> 3} 1924 %ROUTINE CNOP(%INTEGER I, J) O LINE 1924 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CNOP (_lev0id0_lev1id1_lev2id3_CNOP) p1=V_0168 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_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 J 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 } FINISH ) {lev=4} 1925 PSF1(JUNC,0,1) %WHILE CA&(J-1)#I O LINE 1925 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH CA @ PUSH J N PUSHI #0x00000001 - SUB & AND @ PUSH I ? JUMPIF = L_0004 @ PUSH PSF1 N PUSHI #0x0000001a p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL B REPEAT L_0003 : LOCATE L_0004 1926 %END O LINE 1926 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CNOP {lev=4 --> 3} 1927 %ROUTINE PGLA(%INTEGER BDRY, L, INF ADR) O LINE 1927 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PGLA (_lev0id0_lev1id1_lev2id3_PGLA) 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=4 --> 5, nested=0 --> 1} $ DEF BDRY 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 L 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 INFADR 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} 1928 %INTEGER I, J O LINE 1928 "regression-compile-tmp/nrimp10s-77.imp" $ DEF I p1=V_0185 a/tf=11 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_0186 a/tf=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) O LINE 1929 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH GLACA S ASSVAL O LINE 1929 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GLACA @ PUSH J @ PUSH BDRY + ADD N PUSHI #0x00000001 - SUB @ PUSH BDRY U NEGATE & AND S ASSVAL 1930 GLACURR=GLACURR+GLACA-J; ! COMPLETE THE ROUNDING O LINE 1930 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GLACURR @ PUSH GLACURR @ PUSH GLACA + ADD @ PUSH J - SUB S ASSVAL 1931 %IF L+GLACURR>256 %THEN %START O LINE 1931 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH L @ PUSH GLACURR + ADD N PUSHI #0x00000100 ? JUMPIF <= L_0004 1932 %IF INHCODE=0 %THEN LPUT(2, GLACURR, GLACABUF, ADDR(GLABUF(0))) O LINE 1932 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INHCODE N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH LPUT N PUSHI #0x00000002 p ASSPAR @ PUSH GLACURR p ASSPAR @ PUSH GLACABUF p ASSPAR @ PUSH ADDR @ PUSH GLABUF N PUSHI #0x00000000 a ACCESS p ASSPAR E CALL p ASSPAR E CALL : LOCATE L_0007 1933 GLACURR=0; GLACABUF=GLACA O LINE 1933 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GLACURR N PUSHI #0x00000000 S ASSVAL O LINE 1933 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GLACABUF @ PUSH GLACA S ASSVAL 1934 %FINISH O LINE 1934 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 1935 %CYCLE I=0,1,L-1 O LINE 1935 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 @ PUSH L N PUSHI #0x00000001 - SUB N PUSHI #0x00000000 f FOR L_0003 1936 GLABUF(GLACURR+I)=BYTE INTEGER(I+INF ADR) O LINE 1936 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GLABUF @ PUSH GLACURR @ PUSH I + ADD a ACCESS @ PUSH BYTEINTEGER @ PUSH I @ PUSH INFADR + ADD p ASSPAR E CALL S ASSVAL 1937 %REPEAT O LINE 1937 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 1938 GLACA=GLACA+L; GLACURR=GLACURR+L O LINE 1938 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GLACA @ PUSH GLACA @ PUSH L + ADD S ASSVAL O LINE 1938 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GLACURR @ PUSH GLACURR @ PUSH L + ADD S ASSVAL 1939 %END O 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 !*********************************************************************** O LINE 1940 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PLUG (_lev0id0_lev1id1_lev2id3_PLUG) p1=V_0177 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_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 AT 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 VALUE 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 BYTES p1=V_0185 a/tf=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 O LINE 1944 "regression-compile-tmp/nrimp10s-77.imp" $ DEF WCABUF 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 1945 %INTEGER I, RELAD, BUFAD O LINE 1945 "regression-compile-tmp/nrimp10s-77.imp" $ DEF I 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 $ DEF RELAD p1=V_0188 a/tf=11 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_0189 a/tf=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)) O LINE 1946 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WCABUF @ PUSH CABUF Z ASSREF O LINE 1946 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BUFAD @ PUSH ADDR @ PUSH CODE N PUSHI #0x00000000 a ACCESS p ASSPAR E CALL S ASSVAL 1947 %IF AREA=2 %THEN WCABUF==GLACABUF %AND BUFAD=ADDR(GLABUF(0)) O LINE 1947 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH WCABUF @ PUSH GLACABUF Z ASSREF @ PUSH BUFAD @ PUSH ADDR @ PUSH GLABUF N PUSHI #0x00000000 a ACCESS p ASSPAR E CALL S ASSVAL : LOCATE L_0004 1948 RELAD=AT-WCABUF O LINE 1948 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RELAD @ PUSH AT @ PUSH WCABUF - SUB S ASSVAL 1949 %IF 0<=RELAD<=256 %AND AREA<=3 %THEN %START O LINE 1949 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 @ PUSH RELAD " JUMPIFD > L_0004 N PUSHI #0x00000100 ? JUMPIF > L_0004 @ PUSH AREA N PUSHI #0x00000003 ? JUMPIF > L_0004 1950 %CYCLE I=0,1,BYTES-1 O LINE 1950 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 @ PUSH BYTES N PUSHI #0x00000001 - SUB N PUSHI #0x00000000 f FOR L_0006 1951 BYTEINTEGER(RELAD+BUFAD+I)<-VALUE>>((BYTES-1-I)<<3) O LINE 1951 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BYTEINTEGER @ PUSH RELAD @ PUSH BUFAD + ADD @ PUSH I + ADD p ASSPAR E CALL @ PUSH VALUE @ PUSH BYTES N PUSHI #0x00000001 - SUB @ PUSH I - SUB N PUSHI #0x00000003 [ LSH ] RSH j JAM 1952 %REPEAT O LINE 1952 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0006 : LOCATE L_0007 1953 %FINISH %ELSE %START O LINE 1953 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 1954 %IF RELAD=-2 %THEN CODEOUT O LINE 1954 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RELAD N PUSHI #0x00000002 U NEGATE ? JUMPIF # L_0007 @ PUSH CODEOUT E CALL : LOCATE L_0007 1955 %IF INHCODE=0 %THEN LPUT(AREA,BYTES,AT,ADDR(VALUE)+4-BYTES) 1956 !*DELSTART O LINE 1955 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INHCODE N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH LPUT @ PUSH AREA p ASSPAR @ PUSH BYTES p ASSPAR @ PUSH AT p ASSPAR @ PUSH ADDR @ PUSH VALUE p ASSPAR E CALL N PUSHI #0x00000004 + ADD @ PUSH BYTES - SUB p ASSPAR E CALL : LOCATE L_0007 1957 NCODE(ADDR(VALUE)+4-BYTES,ADDR(VALUE)+4,AT) %IF DCOMP=1=AREA 1958 !*DELEND O LINE 1957 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DCOMP N PUSHI #0x00000001 " JUMPIFD # L_0007 @ PUSH AREA ? JUMPIF # L_0007 @ PUSH NCODE @ PUSH ADDR @ PUSH VALUE p ASSPAR E CALL N PUSHI #0x00000004 + ADD @ PUSH BYTES - SUB p ASSPAR @ PUSH ADDR @ PUSH VALUE p ASSPAR E CALL N PUSHI #0x00000004 + ADD p ASSPAR @ PUSH AT p ASSPAR E CALL : LOCATE L_0007 1959 %FINISH O LINE 1959 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 1960 %END 1961 O 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 !*********************************************************************** O LINE 1962 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PARAMDES (_lev0id0_lev1id1_lev2id3_PARAMDES) p1=V_0171 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_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 } FINISH ) {lev=4} 1967 %INTEGER K,DES O LINE 1967 "regression-compile-tmp/nrimp10s-77.imp" $ DEF K 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 DES 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 1968 K=DESADS(PREC) O LINE 1968 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH DESADS @ PUSH PREC a ACCESS S ASSVAL 1969 %RESULT=K %UNLESS K=0 O LINE 1969 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH K V RESULT : LOCATE L_0004 1970 %IF PREC=4 %THEN DES=16_58000002 %ELSE DES=PREC<<27!1 O LINE 1970 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000004 ? JUMPIF # L_0004 @ PUSH DES N PUSHI #0x58000002 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH DES @ PUSH PREC N PUSHI #0x0000001b [ LSH N PUSHI #0x00000001 ! OR S ASSVAL : LOCATE L_0003 1971 STORE CONST (K,4,ADDR(DES)) O LINE 1971 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STORECONST @ PUSH K p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH ADDR @ PUSH DES p ASSPAR E CALL p ASSPAR E CALL 1972 DESADS(PREC)=K O LINE 1972 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DESADS @ PUSH PREC a ACCESS @ PUSH K S ASSVAL 1973 %RESULT=K O LINE 1973 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K V RESULT 1974 %END O 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 !*********************************************************************** O LINE 1975 "regression-compile-tmp/nrimp10s-77.imp" $ DEF MAPDES (_lev0id0_lev1id1_lev2id3_MAPDES) p1=V_0172 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_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 } FINISH ) {lev=4} 1979 %INTEGER K,DES0,DES1 O LINE 1979 "regression-compile-tmp/nrimp10s-77.imp" $ DEF K 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 DES0 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 DES1 p1=V_0185 a/tf=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) O LINE 1980 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH DESADS @ PUSH PREC N PUSHI #0x00000008 + ADD a ACCESS S ASSVAL 1981 %RESULT=K %UNLESS K=0 O LINE 1981 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH K V RESULT : LOCATE L_0004 1982 %IF PREC=4 %THEN DES0=16_58000002 %ELSE DES0=16_03000000!PREC<<27 O LINE 1982 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000004 ? JUMPIF # L_0004 @ PUSH DES0 N PUSHI #0x58000002 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH DES0 N PUSHI #0x03000000 @ PUSH PREC N PUSHI #0x0000001b [ LSH ! OR S ASSVAL : LOCATE L_0003 1983 DES1=0; STORE CONST(K,8,ADDR(DES0)) O LINE 1983 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DES1 N PUSHI #0x00000000 S ASSVAL O LINE 1983 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STORECONST @ PUSH K p ASSPAR N PUSHI #0x00000008 p ASSPAR @ PUSH ADDR @ PUSH DES0 p ASSPAR E CALL p ASSPAR E CALL 1984 DESADS(PREC+8)=K O LINE 1984 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DESADS @ PUSH PREC N PUSHI #0x00000008 + ADD a ACCESS @ PUSH K S ASSVAL 1985 %RESULT=K O LINE 1985 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K V RESULT 1986 %END O 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 !*********************************************************************** O LINE 1987 "regression-compile-tmp/nrimp10s-77.imp" $ DEF SPECIALCONSTS (_lev0id0_lev1id1_lev2id3_SPECIALCONSTS) p1=V_0173 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_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 } FINISH ) {lev=4} 1992 {%CONST}%ownINTEGERARRAY SCS(0:5) = 16_40800000,0, 1993 16_41100000,0, 1994 1,0; O LINE 1992 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 N PUSHI #0x00000005 b BOUNDS $ DEF SCS p1=V_0183 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 N PUSHI #0x40800000 A INIT 1 N PUSHI #0x00000000 A INIT 1 N PUSHI #0x41100000 A INIT 1 N PUSHI #0x00000000 A INIT 1 N PUSHI #0x00000001 A INIT 1 N PUSHI #0x00000000 A INIT 1 1995 %INTEGER K O LINE 1995 "regression-compile-tmp/nrimp10s-77.imp" $ DEF K 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 1996 K=DESADS(WHICH+16) O LINE 1996 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH DESADS @ PUSH WHICH N PUSHI #0x00000010 + ADD a ACCESS S ASSVAL 1997 %RESULT=K %UNLESS K=0 O LINE 1997 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH K V RESULT : LOCATE L_0004 1998 STORE CONST(K,8,ADDR(SCS(2*WHICH))) O LINE 1998 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STORECONST @ PUSH K p ASSPAR N PUSHI #0x00000008 p ASSPAR @ PUSH ADDR @ PUSH SCS N PUSHI #0x00000002 @ PUSH WHICH * MUL a ACCESS p ASSPAR E CALL p ASSPAR E CALL 1999 DESADS(WHICH+16)=K O LINE 1999 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DESADS @ PUSH WHICH N PUSHI #0x00000010 + ADD a ACCESS @ PUSH K S ASSVAL 2000 %RESULT=K O LINE 2000 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K V RESULT 2001 %END O 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 !*********************************************************************** O LINE 2002 "regression-compile-tmp/nrimp10s-77.imp" $ DEF STORECONST (_lev0id0_lev1id1_lev2id3_STORECONST) p1=V_0174 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_0182 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_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 AD 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} 2008 %INTEGER I, J, K, C1, C2, C3, C4, LP O LINE 2008 "regression-compile-tmp/nrimp10s-77.imp" $ DEF I p1=V_0185 a/tf=11 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_0186 a/tf=11 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_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 $ DEF C1 p1=V_0188 a/tf=11 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_0189 a/tf=11 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_018a a/tf=11 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_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 $ DEF LP p1=V_018c a/tf=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 O LINE 2009 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LP @ PUSH L N PUSHI #0x00000004 / QUOT S ASSVAL O LINE 2009 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH C2 N PUSHI #0x00000000 S ASSVAL O LINE 2009 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH C3 N PUSHI #0x00000000 S ASSVAL O LINE 2009 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH C4 N PUSHI #0x00000000 S ASSVAL 2010 %CYCLE I=0,1,L-1 O LINE 2010 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 @ PUSH L N PUSHI #0x00000001 - SUB N PUSHI #0x00000000 f FOR L_0003 2011 BYTEINTEGER(ADDR(C1)+I)=BYTEINTEGER(AD+I) O LINE 2011 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BYTEINTEGER @ PUSH ADDR @ PUSH C1 p ASSPAR E CALL @ PUSH I + ADD p ASSPAR E CALL @ PUSH BYTEINTEGER @ PUSH AD @ PUSH I + ADD p ASSPAR E CALL S ASSVAL 2012 %REPEAT O LINE 2012 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 2013 %IF PARMOPT#0 %THEN ->SKIP O LINE 2013 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMOPT N PUSHI #0x00000000 ? JUMPIF = L_0004 J JUMP L_018d : LOCATE L_0004 2014 K=CONST BTM; ! AFTER STRINGS IN CTABLE O LINE 2014 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH CONSTBTM S ASSVAL 2015 %IF L=4 %THEN %START 2016 ! %IF USE IMP=YES %THEN %START O LINE 2015 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH L N 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 O LINE 2018 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTABLE n SELECT 1 @ PUSH K a ACCESS @ PUSH C1 ? JUMPIF # L_000a @ PUSH CONSTHOLE @ PUSH K ? JUMPIF = L_000a @ PUSH D N PUSHI #0x00000004 @ PUSH K * MUL N PUSHI #0x80000000 ! OR S ASSVAL R RETURN : LOCATE L_000a 2019 K=K+1 O LINE 2019 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH K N PUSHI #0x00000001 + ADD S 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 O LINE 2020 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0006 : LOCATE L_0007 2040 %FINISH %ELSE %START O LINE 2040 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 2041 J=CONSTPTR-LP O LINE 2041 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH CONSTPTR @ PUSH LP - SUB S ASSVAL 2042 %WHILE K<=J %CYCLE O 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 O LINE 2043 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTABLE n SELECT 1 @ PUSH K a ACCESS @ PUSH C1 ? JUMPIF # L_000a @ PUSH CTABLE n SELECT 1 @ PUSH K N PUSHI #0x00000001 + ADD a 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 O LINE 2044 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH L N PUSHI #0x00000008 ? JUMPIF = L_000e @ PUSH CTABLE n SELECT 1 @ PUSH K N PUSHI #0x00000002 + ADD a ACCESS @ PUSH C3 ? JUMPIF # L_000d @ PUSH CTABLE n SELECT 1 @ PUSH K N PUSHI #0x00000003 + ADD a ACCESS @ PUSH C4 ? JUMPIF # L_000d : LOCATE L_000e @ PUSH D N PUSHI #0x00000004 @ PUSH K * MUL N PUSHI #0x80000000 ! OR S ASSVAL R RETURN : LOCATE L_000d 2045 %FINISH O LINE 2045 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000a 2046 K=K+2 O LINE 2046 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH K N PUSHI #0x00000002 + ADD S ASSVAL 2047 %REPEAT O LINE 2047 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0006 : LOCATE L_0007 2048 %FINISH O LINE 2048 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 2049 SKIP: O LINE 2049 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_018d 2050 %IF L=4 %AND CONSTHOLE#0 %START O LINE 2050 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH L N PUSHI #0x00000004 ? JUMPIF # L_0004 @ PUSH CONSTHOLE N PUSHI #0x00000000 ? JUMPIF = L_0004 2051 CTABLE_val(CONSTHOLE)=C1 O LINE 2051 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTABLE n SELECT 1 @ PUSH CONSTHOLE a ACCESS @ PUSH C1 S ASSVAL 2052 D=4*CONSTHOLE!16_80000000 O LINE 2052 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D N PUSHI #0x00000004 @ PUSH CONSTHOLE * MUL N PUSHI #0x80000000 ! OR S ASSVAL 2053 CONSTHOLE=0 O LINE 2053 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTHOLE N PUSHI #0x00000000 S ASSVAL 2054 %RETURN O LINE 2054 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 2055 %FINISH O 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 O LINE 2056 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH L N PUSHI #0x00000004 ? JUMPIF <= L_0004 @ PUSH CONSTPTR N PUSHI #0x00000001 & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH CONSTHOLE @ PUSH CONSTPTR S ASSVAL @ PUSH CONSTPTR @ PUSH CONSTPTR N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0004 2057 D=4*CONST PTR!16_80000000 O LINE 2057 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D N PUSHI #0x00000004 @ PUSH CONSTPTR * MUL N PUSHI #0x80000000 ! OR S ASSVAL 2058 CTABLE_val(CONSTPTR)=C1 O LINE 2058 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTABLE n SELECT 1 @ PUSH CONSTPTR a ACCESS @ PUSH C1 S ASSVAL 2059 CTABLE_val(CONSTPTR+1)=C2 O LINE 2059 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTABLE n SELECT 1 @ PUSH CONSTPTR N PUSHI #0x00000001 + ADD a ACCESS @ PUSH C2 S ASSVAL 2060 %IF L=16 %THEN CTABLE_val(CONSTPTR+2)=C3 %AND CTABLE_val(CONSTPTR+3)=C4 O LINE 2060 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH L N PUSHI #0x00000010 ? JUMPIF # L_0004 @ PUSH CTABLE n SELECT 1 @ PUSH CONSTPTR N PUSHI #0x00000002 + ADD a ACCESS @ PUSH C3 S ASSVAL @ PUSH CTABLE n SELECT 1 @ PUSH CONSTPTR N PUSHI #0x00000003 + ADD a ACCESS @ PUSH C4 S ASSVAL : LOCATE L_0004 2061 CONST PTR=CONST PTR+LP O LINE 2061 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTPTR @ PUSH CONSTPTR @ PUSH LP + ADD S ASSVAL 2062 %IF CONST PTR>CONST LIMIT %THEN FAULT(107,0) O LINE 2062 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTPTR @ PUSH CONSTLIMIT ? JUMPIF <= L_0004 @ PUSH FAULT N PUSHI #0x0000006b p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 2063 %END O 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 !*********************************************************************** O LINE 2064 "regression-compile-tmp/nrimp10s-77.imp" $ DEF GETENV (_lev0id0_lev1id1_lev2id3_GETENV) 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=4 --> 5, nested=0 --> 1} $ DEF HEAD p1=V_0183 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 O LINE 2068 "regression-compile-tmp/nrimp10s-77.imp" $ DEF I 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 USE p1=V_0185 a/tf=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 O LINE 2069 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000007 N PUSHI #0x00000000 f FOR L_0003 2070 USE=GRUSE(I)&16_FF; ! MAIN USE ONLY O LINE 2070 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH USE @ PUSH GRUSE @ PUSH I a ACCESS N PUSHI #0x000000ff & AND S ASSVAL 2071 PUSH(HEAD, GRINF1(I), GRAT(I), I<<8!USE) %IF USE#0 O LINE 2071 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH USE N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH PUSH @ PUSH HEAD p ASSPAR @ PUSH GRINF1 @ PUSH I a ACCESS p ASSPAR @ PUSH GRAT @ PUSH I a ACCESS p ASSPAR @ PUSH I N PUSHI #0x00000008 [ LSH @ PUSH USE ! OR p ASSPAR E CALL : LOCATE L_0007 2072 %REPEAT O LINE 2072 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 2073 %END O 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 !*********************************************************************** O LINE 2074 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RESTORE (_lev0id0_lev1id1_lev2id3_RESTORE) 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=4 --> 5, nested=0 --> 1} $ DEF HEAD 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} 2078 %INTEGER I, R, USE, INF, AT O LINE 2078 "regression-compile-tmp/nrimp10s-77.imp" $ DEF I p1=V_0185 a/tf=11 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_0186 a/tf=11 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_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 $ DEF INF p1=V_0188 a/tf=11 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_0189 a/tf=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 O LINE 2079 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000007 N PUSHI #0x00000000 f FOR L_0003 2080 %IF REGISTER(I)>=0 %THEN GRUSE(I)=0 %AND GRINF1(I)=0 O LINE 2080 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REGISTER @ PUSH I a ACCESS N PUSHI #0x00000000 ? JUMPIF < L_0007 @ PUSH GRUSE @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL @ PUSH GRINF1 @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL : LOCATE L_0007 2081 %REPEAT O LINE 2081 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 2082 %WHILE HEAD#0 %CYCLE O LINE 2082 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH HEAD N PUSHI #0x00000000 ? JUMPIF = L_0004 2083 POP(HEAD, INF, AT, I) O LINE 2083 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH POP @ PUSH HEAD p ASSPAR @ PUSH INF p ASSPAR @ PUSH AT p ASSPAR @ PUSH I p ASSPAR E CALL 2084 R=I>>8; USE=I&255 O LINE 2084 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH I N PUSHI #0x00000008 ] RSH S ASSVAL O LINE 2084 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH USE @ PUSH I N PUSHI #0x000000ff & AND S ASSVAL 2085 %IF REGISTER(R)>=0 %THEN GRUSE(R)=USE %AND GRINF1(R)=INF O LINE 2085 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REGISTER @ PUSH R a ACCESS N PUSHI #0x00000000 ? JUMPIF < L_0007 @ PUSH GRUSE @ PUSH R a ACCESS @ PUSH USE S ASSVAL @ PUSH GRINF1 @ PUSH R a ACCESS @ PUSH INF S ASSVAL : LOCATE L_0007 2086 GRAT(R)=AT O LINE 2086 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRAT @ PUSH R a ACCESS @ PUSH AT S ASSVAL 2087 %REPEAT O LINE 2087 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 2088 %END O 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 !*********************************************************************** O LINE 2089 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RELOCATE (_lev0id0_lev1id1_lev2id3_RELOCATE) 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=4 --> 5, nested=0 --> 1} $ DEF GLARAD p1=V_0185 a/tf=11 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_0186 a/tf=11 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_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} 2096 %IF GLARAD<0 %THEN PGLA(4,4,ADDR(VALUE)) %AND GLARAD=GLACA-4 O LINE 2096 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GLARAD N PUSHI #0x00000000 ? JUMPIF >= L_0004 @ PUSH PGLA N PUSHI #0x00000004 p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH ADDR @ PUSH VALUE p ASSPAR E CALL p ASSPAR E CALL @ PUSH GLARAD @ PUSH GLACA N PUSHI #0x00000004 - SUB S ASSVAL : LOCATE L_0004 2097 LPUT(19,2,GLARAD,AREA) O LINE 2097 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LPUT N PUSHI #0x00000013 p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH GLARAD p ASSPAR @ PUSH AREA p ASSPAR E CALL 2098 %END O 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 !*********************************************************************** O LINE 2099 "regression-compile-tmp/nrimp10s-77.imp" $ DEF GXREF (_lev0id0_lev1id1_lev2id3_GXREF) 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=4 --> 5, nested=0 --> 1} $ DEF NAME p1=V_0186 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_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 $ DEF XTRA p1=V_0188 a/tf=11 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_0189 a/tf=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 O LINE 2107 "regression-compile-tmp/nrimp10s-77.imp" $ DEF LPUTNO p1=V_018a a/tf=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 O LINE 2108 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH LPUTNO N PUSHI #0x0000000f S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH LPUTNO @ PUSH MODE N PUSHI #0x0000000c + ADD S ASSVAL : LOCATE L_0003 2109 LPUT(LPUTNO,XTRA,AT,ADDR(NAME)) O LINE 2109 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LPUT @ PUSH LPUTNO p ASSPAR @ PUSH XTRA p ASSPAR @ PUSH AT p ASSPAR @ PUSH ADDR @ PUSH NAME p ASSPAR E CALL p ASSPAR E CALL 2110 %END O 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 !*********************************************************************** O LINE 2111 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CXREF (_lev0id0_lev1id1_lev2id3_CXREF) 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=4 --> 5, nested=0 --> 1} $ DEF NAME p1=V_0187 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_0188 a/tf=11 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_0189 a/tf=11 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_018a 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 O LINE 2117 "regression-compile-tmp/nrimp10s-77.imp" $ DEF Z1 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 $ DEF Z2 p1=V_018c a/tf=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 O LINE 2118 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Z1 N PUSHI #0x00000000 S ASSVAL O LINE 2118 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Z2 N PUSHI #0x00000000 S ASSVAL 2119 PGLA(8,8,ADDR(Z1)); ! 2 ZERO WORDS O LINE 2119 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PGLA N PUSHI #0x00000008 p ASSPAR N PUSHI #0x00000008 p ASSPAR @ PUSH ADDR @ PUSH Z1 p ASSPAR E CALL p ASSPAR E CALL 2120 AT=GLACA-8 O LINE 2120 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AT @ PUSH GLACA N PUSHI #0x00000008 - SUB S ASSVAL 2121 GXREF(NAME,MODE,XTRA,AT) O LINE 2121 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GXREF @ PUSH NAME p ASSPAR @ PUSH MODE p ASSPAR @ PUSH XTRA p ASSPAR @ PUSH AT p ASSPAR E CALL 2122 %END O 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 !*********************************************************************** O LINE 2123 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CODEDES (_lev0id0_lev1id1_lev2id3_CODEDES) 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=4 --> 5, nested=0 --> 1} $ DEF AT 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 } FINISH ) {lev=4} 2127 %INTEGER DESC1,DESC2 O LINE 2127 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DESC1 p1=V_0189 a/tf=11 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_018a a/tf=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 O LINE 2128 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DESC1 N PUSHI #0xe1000000 S ASSVAL O LINE 2128 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DESC2 N PUSHI #0x00000000 S ASSVAL 2129 %IF CDCOUNT=0 %THEN FIXED GLA(0)=DESC1 %AND AT=0 %ELSE PGLA(8,8,ADDR(DESC1)) %AND AT=GLACA-8 O LINE 2129 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CDCOUNT N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH FIXEDGLA N PUSHI #0x00000000 a ACCESS @ PUSH DESC1 S ASSVAL @ PUSH AT N PUSHI #0x00000000 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH PGLA N PUSHI #0x00000008 p ASSPAR N PUSHI #0x00000008 p ASSPAR @ PUSH ADDR @ PUSH DESC1 p ASSPAR E CALL p ASSPAR E CALL @ PUSH AT @ PUSH GLACA N PUSHI #0x00000008 - SUB S ASSVAL : LOCATE L_0003 2130 CDCOUNT=CDCOUNT+1 O LINE 2130 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CDCOUNT @ PUSH CDCOUNT N PUSHI #0x00000001 + ADD S ASSVAL 2131 %END O 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 !*********************************************************************** O LINE 2132 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DEFINEEP (_lev0id0_lev1id1_lev2id3_DEFINEEP) 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=4 --> 5, nested=0 --> 1} $ DEF NAME p1=V_0189 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_018a a/tf=11 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_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 $ DEF MAIN p1=V_018c a/tf=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) O LINE 2140 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AT N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH FIXEDGLA N PUSHI #0x00000001 a ACCESS @ PUSH ADR S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH PLUG N PUSHI #0x00000002 p ASSPAR @ PUSH AT N PUSHI #0x00000004 + ADD p ASSPAR @ PUSH ADR p ASSPAR N PUSHI #0x00000004 p ASSPAR E CALL : LOCATE L_0003 2141 RELOCATE(AT+4,ADR,1) O LINE 2141 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RELOCATE @ PUSH AT N PUSHI #0x00000004 + ADD p ASSPAR @ PUSH ADR p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 2142 LPUT(11,MAIN<<31!2,AT,ADDR(NAME)) %IF NAME#"" O LINE 2142 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAME ' PUSHS "" ? JUMPIF = L_0004 @ PUSH LPUT N PUSHI #0x0000000b p ASSPAR @ PUSH MAIN N PUSHI #0x0000001f [ LSH N PUSHI #0x00000002 ! OR p ASSPAR @ PUSH AT p ASSPAR @ PUSH ADDR @ PUSH NAME p ASSPAR E CALL p ASSPAR E CALL : LOCATE L_0004 2143 %END O 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 !*********************************************************************** O LINE 2144 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PROLOGUE (_lev0id0_lev1id1_lev2id3_PROLOGUE) 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=4 --> 5, nested=0 --> 1} } FINISH ) {lev=4} 2149 %INTEGERFNSPEC STRINGIN(%INTEGER POS) O LINE 2149 "regression-compile-tmp/nrimp10s-77.imp" $ DEF STRINGIN (_lev0id0_lev1id1_lev2id3_PROLOGUE_STRINGIN) p1=V_0189 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_018a a/tf=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) O LINE 2150 "regression-compile-tmp/nrimp10s-77.imp" $ DEF ERREXIT (_lev0id0_lev1id1_lev2id3_PROLOGUE_ERREXIT) 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 A 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 $ DEF B p1=V_018c a/tf=11 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_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} 2151 %INTEGER I, K, L, STCA O LINE 2151 "regression-compile-tmp/nrimp10s-77.imp" $ DEF I 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 $ DEF K p1=V_018c a/tf=11 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_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 STCA 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 2152 I=16_C2C2C2C2 O LINE 2152 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0xc2c2c2c2 S ASSVAL 2153 LPUT(4,4,0,ADDR(I)) O LINE 2153 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LPUT N PUSHI #0x00000004 p ASSPAR N PUSHI #0x00000004 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH ADDR @ PUSH I p ASSPAR E CALL p ASSPAR E CALL 2154 SSTL=4 O LINE 2154 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SSTL N PUSHI #0x00000004 S ASSVAL 2155 %CYCLE I=0, 1, 31 O LINE 2155 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x0000001f N PUSHI #0x00000000 f FOR L_0003 2156 PLABS(I)=0; PLINK(I)=0 O LINE 2156 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PLABS @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 2156 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PLINK @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL 2157 DESADS(I)=0 O LINE 2157 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DESADS @ PUSH I a ACCESS N PUSHI #0x00000000 S ASSVAL 2158 %REPEAT 2159 ! 2160 ! GENERATE THE FIXED-FLOAT CONSTANTS THAT MAY BE NEEDED 2161 ! O LINE 2158 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 2162 PLABS(1)=CA O LINE 2162 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PLABS N PUSHI #0x00000001 a ACCESS @ PUSH CA S ASSVAL 2163 %CYCLE I=0, 1, 1 O LINE 2163 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x00000001 N PUSHI #0x00000000 f FOR L_0003 2164 PCONST(UNASSPAT) O LINE 2164 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PCONST N PUSHI #0x81818181 p ASSPAR E 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 ! O LINE 2165 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 2182 PLABS(2)=CA O LINE 2182 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PLABS N PUSHI #0x00000002 a ACCESS @ PUSH CA S ASSVAL 2183 PSF1(PRCL,0,4) O LINE 2183 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000018 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR E CALL 2184 PSF1(JLK,0,1) O LINE 2184 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000001c p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 2185 PF1(STLN,0,TOS,0) O LINE 2185 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000005c p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2186 PF1(ST,0,TOS,0) O LINE 2186 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2187 PSF1(LXN,1,16) O LINE 2187 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000007e p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000010 p ASSPAR E CALL 2188 PSF1(RALN,0,9) O LINE 2188 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000006c p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000009 p ASSPAR E CALL 2189 PF1(CALL,2,XNB,40) O LINE 2189 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000001e p ASSPAR N PUSHI #0x00000002 p ASSPAR N PUSHI #0x00000003 p ASSPAR N PUSHI #0x00000028 p ASSPAR E 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 ! O LINE 2190 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000001a p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2201 %IF PARMDBUG#0 %THEN %START O LINE 2201 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMDBUG N PUSHI #0x00000000 ? JUMPIF = L_0004 2202 PLABS(3)=CA O LINE 2202 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PLABS N PUSHI #0x00000003 a ACCESS @ PUSH CA S ASSVAL 2203 CXREF("S#IMPMON",PARMDYNAMIC,2,K) O LINE 2203 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CXREF ' PUSHS "S#IMPMON" p ASSPAR @ PUSH PARMDYNAMIC p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH K p ASSPAR E CALL 2204 PSF1(PRCL,0,4) O LINE 2204 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000018 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR E CALL 2205 PF1(ST,0,TOS,0) O LINE 2205 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2206 PSF1(LXN,1,16) O LINE 2206 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000007e p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000010 p ASSPAR E CALL 2207 PSF1(RALN,0,6) O LINE 2207 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000006c p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR E CALL 2208 PF1(CALL,2,XNB,K) O LINE 2208 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000001e p ASSPAR N PUSHI #0x00000002 p ASSPAR N PUSHI #0x00000003 p ASSPAR @ PUSH K p ASSPAR E CALL 2209 PF1(JUNC,0,TOS,0) O LINE 2209 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000001a p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E 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 ! O LINE 2210 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 2226 %IF PARMCHK=1 %THEN %START; ! ONLY REQUIRED WITH CHKING O LINE 2226 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMCHK N PUSHI #0x00000001 ? JUMPIF # L_0004 2227 CNOP(0,4); K=CA O LINE 2227 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CNOP N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR E CALL O LINE 2227 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH CA S ASSVAL 2228 PCONST(16_58000000) O LINE 2228 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PCONST N PUSHI #0x58000000 p ASSPAR E CALL 2229 PLABS(4)=CA O LINE 2229 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PLABS N PUSHI #0x00000004 a ACCESS @ PUSH CA S ASSVAL 2230 PF3(JAT,12,0,13) O LINE 2230 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF3 N PUSHI #0x00000004 p ASSPAR N PUSHI #0x0000000c p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x0000000d p ASSPAR E CALL 2231 PF1(LSS,0,TOS,0) O LINE 2231 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2232 PF1(STSF,0,TOS,0) O LINE 2232 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000005e p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2233 PF1(LDTB,0,PC,K) O LINE 2233 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000074 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH K p ASSPAR E CALL 2234 PF1(LDA,0,TOS,0) O LINE 2234 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000072 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2235 PF1(ASF,0,BREG,0) O LINE 2235 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000006e p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000007 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2236 PSF1(MYB,0,4) O LINE 2236 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000002a p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR E CALL 2237 PF1(LDB,0,BREG,0) O LINE 2237 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000076 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000007 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2238 PF2(MVL,1,1,0,0,UNASSPAT&255) O LINE 2238 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF2 N PUSHI #0x000000b0 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x81818181 N PUSHI #0x000000ff & AND p ASSPAR E CALL 2239 PF1(ST,0,TOS,0) O LINE 2239 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2240 PF1(JUNC,0,TOS,0) O LINE 2240 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000001a p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2241 %FINISH 2242 ! 2243 ! SOME ERROR ROUTINES 2244 ! O LINE 2241 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 2245 ERR EXIT(5, 16_801, 0) %IF PARMOPT#0; ! UNASSIGNED VARIABLE O LINE 2245 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMOPT N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH ERREXIT N PUSHI #0x00000005 p ASSPAR N PUSHI #0x00000801 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 2246 ERR EXIT(6, 16_504, 0); ! SWITCH LABEL UNSET O LINE 2246 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ERREXIT N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000504 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2247 ERR EXIT(7, 16_505, 1); ! ILLEGEAL EXPONENTIATION O LINE 2247 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ERREXIT N PUSHI #0x00000007 p ASSPAR N PUSHI #0x00000505 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 2248 ERR EXIT(8,16_201, 0) %IF PARMOPT#0; ! EXCESS BLOCKS O LINE 2248 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMOPT N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH ERREXIT N PUSHI #0x00000008 p ASSPAR N PUSHI #0x00000201 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 2249 ERR EXIT(9, 16_601, 0); ! CAPACITY EXCEEDED O LINE 2249 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ERREXIT N PUSHI #0x00000009 p ASSPAR N PUSHI #0x00000601 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2250 ERR EXIT(10,21, 0) ; ! NO RESULT O LINE 2250 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ERREXIT N PUSHI #0x0000000a p ASSPAR N PUSHI #0x00000015 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2251 ERR EXIT(11,16_501, 0) %IF PARMOPT#0; ! CYCLE NOT VALID O LINE 2251 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMOPT N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH ERREXIT N PUSHI #0x0000000b p ASSPAR N PUSHI #0x00000501 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 2252 ERR EXIT(12,16_701,0); ! RES FAILS O LINE 2252 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ERREXIT N PUSHI #0x0000000c p ASSPAR N PUSHI #0x00000701 p ASSPAR N PUSHI #0x00000000 p ASSPAR E 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 ! O LINE 2253 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMOPT N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH ERREXIT N PUSHI #0x0000000d p ASSPAR N PUSHI #0x00000024 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 2257 CTABLE_val(0)=16_18000001 O LINE 2257 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTABLE n SELECT 1 N PUSHI #0x00000000 a ACCESS N PUSHI #0x18000001 S ASSVAL 2258 CTABLE_val(1)=4 O LINE 2258 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTABLE n SELECT 1 N PUSHI #0x00000001 a ACCESS N PUSHI #0x00000004 S ASSVAL 2259 STCA=8; L=ADDR(CTABLE_val(0)) O LINE 2259 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STCA N PUSHI #0x00000008 S ASSVAL O LINE 2259 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH L @ PUSH ADDR @ PUSH CTABLE n SELECT 1 N PUSHI #0x00000000 a ACCESS p ASSPAR E CALL S ASSVAL 2260 CONST PTR=2; ! IN CASE NO STRINGS O LINE 2260 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTPTR N PUSHI #0x00000002 S ASSVAL 2261 %WHILE STRLINK#0 %CYCLE O LINE 2261 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH STRLINK N PUSHI #0x00000000 ? JUMPIF = L_0004 2262 I=STRLINK; STRLINK=FROM AR4(I) O LINE 2262 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH STRLINK S ASSVAL O LINE 2262 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STRLINK @ PUSH FROMAR4 @ PUSH I p ASSPAR E CALL S ASSVAL 2263 TO AR4(I,STRINGIN(I+4)); ! CHANGE LINK TO STRING ADDR O LINE 2263 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TOAR4 @ PUSH I p ASSPAR @ PUSH STRINGIN @ PUSH I N PUSHI #0x00000004 + ADD p ASSPAR E CALL p ASSPAR E CALL 2264 %REPEAT O LINE 2264 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 2265 STRLINK=16_80000000 O LINE 2265 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STRLINK N PUSHI #0x80000000 S ASSVAL 2266 CONST BTM=CONST PTR O LINE 2266 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTBTM @ PUSH CONSTPTR S ASSVAL 2267 %IF PARMOPT#0 %THEN CTABLE_val(CONST PTR)=M'IDIA' %AND CONST PTR=CONST PTR+1 O LINE 2267 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMOPT N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH CTABLE n SELECT 1 @ PUSH CONSTPTR a ACCESS N PUSHI #0x49444941 S ASSVAL @ PUSH CONSTPTR @ PUSH CONSTPTR N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0004 2268 GXREF(MDEP,PARMDYNAMIC,2,40) O LINE 2268 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GXREF @ PUSH MDEP p ASSPAR @ PUSH PARMDYNAMIC p ASSPAR N PUSHI #0x00000002 p ASSPAR N PUSHI #0x00000028 p ASSPAR E CALL 2269 %IF PARMPROF#0 %THEN %START; ! ALLOCATE PROFILE COUNT AREA O LINE 2269 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMPROF N PUSHI #0x00000000 ? JUMPIF = L_0004 2270 I=16_38000001+LINE O LINE 2270 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x38000001 @ PUSH LINE + ADD S ASSVAL 2271 K=8 O LINE 2271 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K N PUSHI #0x00000008 S ASSVAL 2272 PARMPROF=GLACA O LINE 2272 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMPROF @ PUSH GLACA S ASSVAL 2273 PGLA(4,8,ADDR(I)) O LINE 2273 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PGLA N PUSHI #0x00000004 p ASSPAR N PUSHI #0x00000008 p ASSPAR @ PUSH ADDR @ PUSH I p ASSPAR E CALL p ASSPAR E CALL 2274 K=0 O LINE 2274 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K N PUSHI #0x00000000 S ASSVAL 2275 %CYCLE I=0,1,LINE O LINE 2275 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 @ PUSH LINE N PUSHI #0x00000000 f FOR L_0006 2276 PGLA(4,4,ADDR(K)) O LINE 2276 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PGLA N PUSHI #0x00000004 p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH ADDR @ PUSH K p ASSPAR E CALL p ASSPAR E CALL 2277 %REPEAT O LINE 2277 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0006 : LOCATE L_0007 2278 LINE=0 O LINE 2278 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LINE N PUSHI #0x00000000 S ASSVAL 2279 %FINISH O LINE 2279 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 2280 LEVEL=1 O LINE 2280 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x00000001 S ASSVAL 2281 %CYCLE I=0,1,31 O LINE 2281 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x0000001f N PUSHI #0x00000000 f FOR L_0003 2282 %IF PLINK(I)#0 %THEN CLEAR LIST(PLINK(I)) O LINE 2282 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PLINK @ PUSH I a ACCESS N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH CLEARLIST @ PUSH PLINK @ PUSH I a ACCESS p ASSPAR E CALL : LOCATE L_0007 2283 %REPEAT O LINE 2283 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 2284 %RETURN O LINE 2284 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 2285 %INTEGERFN STRINGIN(%INTEGER POS) 2286 !*********************************************************************** 2287 !* PUT A STRING INTO THE CONSTANT AREA CHECKING FOR DUPLICATES * 2288 !*********************************************************************** O LINE 2285 "regression-compile-tmp/nrimp10s-77.imp" $ DEF STRINGIN (_lev0id0_lev1id1_lev2id3_PROLOGUE_STRINGIN) p1=V_0189 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_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=5} 2289 %INTEGER J,K,IND,HD O LINE 2289 "regression-compile-tmp/nrimp10s-77.imp" $ DEF J 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 K 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 IND 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 HD 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 2290 %RECORD(LISTF)%NAME CELL{(LISTF) O LINE 2290 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CELL p1=V_0194 a/tf=42 b/format=11f c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2291 K=A(POS) O LINE 2291 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH A @ PUSH POS a ACCESS S ASSVAL 2292 %IF K=0 %THEN %RESULT=0 O LINE 2292 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K N PUSHI #0x00000000 ? JUMPIF # L_0004 N PUSHI #0x00000000 V RESULT : LOCATE L_0004 2293 IND=K&31; HD=PLINK(IND) O LINE 2293 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH IND @ PUSH K N PUSHI #0x0000001f & AND S ASSVAL O LINE 2293 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HD @ PUSH PLINK @ PUSH IND a ACCESS S ASSVAL 2294 %WHILE HD#0 %CYCLE O LINE 2294 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH HD N PUSHI #0x00000000 ? JUMPIF = L_0004 2295 CELL==ASLIST(HD) O LINE 2295 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CELL @ PUSH ASLIST @ PUSH HD a ACCESS Z ASSREF 2296 %IF CELL_S1=K %AND STRING(L+CELL_S2)=STRING(ADDR(A(POS))) %THEN %RESULT=CELL_S2-4 O LINE 2296 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CELL n SELECT 1 @ PUSH K ? JUMPIF # L_0007 @ PUSH STRING @ PUSH L @ PUSH CELL n SELECT 2 + ADD p ASSPAR E CALL @ PUSH STRING @ PUSH ADDR @ PUSH A @ PUSH POS a ACCESS p ASSPAR E CALL p ASSPAR E CALL ? JUMPIF # L_0007 @ PUSH CELL n SELECT 2 N PUSHI #0x00000004 - SUB V RESULT : LOCATE L_0007 2297 HD=CELL_LINK O LINE 2297 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HD @ PUSH CELL n SELECT 4 S ASSVAL 2298 %REPEAT O LINE 2298 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 2299 HD=STCA O LINE 2299 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HD @ PUSH STCA S ASSVAL 2300 BYTEINTEGER(L+STCA)=K; STCA=STCA+1 O LINE 2300 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BYTEINTEGER @ PUSH L @ PUSH STCA + ADD p ASSPAR E CALL @ PUSH K S ASSVAL O LINE 2300 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STCA @ PUSH STCA N PUSHI #0x00000001 + ADD S ASSVAL 2301 %CYCLE J=POS+1,1,POS+K O LINE 2301 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000001 @ PUSH POS @ PUSH K + ADD @ PUSH POS N PUSHI #0x00000001 + ADD f FOR L_0003 2302 BYTE INTEGER(L+STCA)=A(J) O LINE 2302 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BYTEINTEGER @ PUSH L @ PUSH STCA + ADD p ASSPAR E CALL @ PUSH A @ PUSH J a ACCESS S ASSVAL 2303 STCA=STCA+1 O LINE 2303 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STCA @ PUSH STCA N PUSHI #0x00000001 + ADD S ASSVAL 2304 %REPEAT O LINE 2304 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 2305 CONST PTR=((STCA+7)&(-8))>>2 O LINE 2305 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTPTR @ PUSH STCA N PUSHI #0x00000007 + ADD N PUSHI #0x00000008 U NEGATE & AND N PUSHI #0x00000002 ] RSH S ASSVAL 2306 PUSH(PLINK(IND),K,HD,0) O LINE 2306 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PUSH @ PUSH PLINK @ PUSH IND a ACCESS p ASSPAR @ PUSH K p ASSPAR @ PUSH HD p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2307 %RESULT=HD-4 O LINE 2307 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HD N PUSHI #0x00000004 - SUB V RESULT 2308 %END O 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 !*********************************************************************** O LINE 2309 "regression-compile-tmp/nrimp10s-77.imp" $ DEF ERREXIT (_lev0id0_lev1id1_lev2id3_PROLOGUE_ERREXIT) 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 LAB 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 $ DEF ERRNO 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 MODE 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 } FINISH ) {lev=5} 2313 PLABS(LAB)=CA O LINE 2313 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PLABS @ PUSH LAB a ACCESS @ PUSH CA S ASSVAL 2314 %IF MODE=0 %THEN PSF1(LSS,0,0) %ELSE PF1(LSS,0,BREG,0) O LINE 2314 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH PSF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL F GOTO L_0003 : LOCATE L_0004 @ PUSH PF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000007 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0003 2315 PSF1(LUH,0,ERRNO) O LINE 2315 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000006a p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH ERRNO p ASSPAR E CALL 2316 PSF1(JLK,0,(PLABS(2)-CA)//2) O LINE 2316 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000001c p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH PLABS N PUSHI #0x00000002 a ACCESS @ PUSH CA - SUB N PUSHI #0x00000002 / QUOT p ASSPAR E CALL 2317 %END O LINE 2317 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_PROLOGUE_ERREXIT {lev=5 --> 4} 2318 %END O LINE 2318 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_PROLOGUE {lev=4 --> 3} 2319 %ROUTINE CSS(%INTEGER P) O LINE 2319 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CSS (_lev0id0_lev1id1_lev2id3_CSS) p1=V_017c 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_0189 a/tf=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 O LINE 2320 "regression-compile-tmp/nrimp10s-77.imp" $ DEF MERGEINFO (_lev0id0_lev1id1_lev2id3_CSS_MERGEINFO) 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} } FINISH ) {lev=4} 2321 %ROUTINESPEC REDUCE ENV(%INTEGERNAME HEAD) O LINE 2321 "regression-compile-tmp/nrimp10s-77.imp" $ DEF REDUCEENV (_lev0id0_lev1id1_lev2id3_CSS_REDUCEENV) 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 HEAD 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 } FINISH ) {lev=4} 2322 %ROUTINESPEC ENTER JUMP(%INTEGER MASK,STAD,FLAG) O LINE 2322 "regression-compile-tmp/nrimp10s-77.imp" $ DEF ENTERJUMP (_lev0id0_lev1id1_lev2id3_CSS_ENTERJUMP) 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 MASK 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 STAD 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 $ DEF FLAG 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} 2323 %INTEGERFNSPEC ENTER LAB(%INTEGER M,FLAG) O LINE 2323 "regression-compile-tmp/nrimp10s-77.imp" $ DEF ENTERLAB (_lev0id0_lev1id1_lev2id3_CSS_ENTERLAB) 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 M 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 $ DEF FLAG 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} 2324 %ROUTINESPEC REMOVE LAB(%INTEGER LAB) O LINE 2324 "regression-compile-tmp/nrimp10s-77.imp" $ DEF REMOVELAB (_lev0id0_lev1id1_lev2id3_CSS_REMOVELAB) 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 LAB 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} 2325 %ROUTINESPEC CEND(%INTEGER KKK) O LINE 2325 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CEND (_lev0id0_lev1id1_lev2id3_CSS_CEND) 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 KKK 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 } FINISH ) {lev=4} 2326 %INTEGERFNSPEC CCOND(%INTEGER CTO,A,B) O LINE 2326 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CCOND (_lev0id0_lev1id1_lev2id3_CSS_CCOND) p1=V_0190 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_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 A 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 B 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} 2327 %ROUTINESPEC CHECK STOF O LINE 2327 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CHECKSTOF (_lev0id0_lev1id1_lev2id3_CSS_CHECKSTOF) 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} } FINISH ) {lev=4} 2328 %INTEGERFNSPEC REVERSE(%INTEGER MASK) O LINE 2328 "regression-compile-tmp/nrimp10s-77.imp" $ DEF REVERSE (_lev0id0_lev1id1_lev2id3_CSS_REVERSE) p1=V_0192 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_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} 2329 %ROUTINESPEC SET LINE O LINE 2329 "regression-compile-tmp/nrimp10s-77.imp" $ DEF SETLINE (_lev0id0_lev1id1_lev2id3_CSS_SETLINE) 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} } FINISH ) {lev=4} 2330 %INTEGERFNSPEC SET XORYNB(%INTEGER WHICH,RLEVEL) O LINE 2330 "regression-compile-tmp/nrimp10s-77.imp" $ DEF SETXORYNB (_lev0id0_lev1id1_lev2id3_CSS_SETXORYNB) p1=V_0194 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_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 RLEVEL 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} 2331 %INTEGERFNSPEC XORYNB(%INTEGER USE,INF) O LINE 2331 "regression-compile-tmp/nrimp10s-77.imp" $ DEF XORYNB (_lev0id0_lev1id1_lev2id3_CSS_XORYNB) p1=V_0195 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_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 $ DEF INF 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} 2332 %ROUTINESPEC GET IN ACC(%INTEGER ACC,SIZE,AC,AREA,DISP) O LINE 2332 "regression-compile-tmp/nrimp10s-77.imp" $ DEF GETINACC (_lev0id0_lev1id1_lev2id3_CSS_GETINACC) 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 ACC 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 $ DEF SIZE 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 AC 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 AREA 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 $ DEF DISP p1=V_019b a/tf=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 O LINE 2333 "regression-compile-tmp/nrimp10s-77.imp" $ DEF AREACODE (_lev0id0_lev1id1_lev2id3_CSS_AREACODE) p1=V_0197 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) O LINE 2334 "regression-compile-tmp/nrimp10s-77.imp" $ DEF AREACODE2 (_lev0id0_lev1id1_lev2id3_CSS_AREACODE2) p1=V_0198 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_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 } FINISH ) {lev=4} 2335 %ROUTINESPEC CUI(%INTEGER CODE) O LINE 2335 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CUI (_lev0id0_lev1id1_lev2id3_CSS_CUI) 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} $ DEF CODE 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} 2336 %ROUTINESPEC ASSIGN(%INTEGER A,B) O LINE 2336 "regression-compile-tmp/nrimp10s-77.imp" $ DEF ASSIGN (_lev0id0_lev1id1_lev2id3_CSS_ASSIGN) 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 A p1=V_019b a/tf=11 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_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} 2337 %ROUTINESPEC CSTART(%INTEGER CCRES,MODE) O LINE 2337 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CSTART (_lev0id0_lev1id1_lev2id3_CSS_CSTART) 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 CCRES 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 $ DEF MODE 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} 2338 %ROUTINESPEC CCYCBODY(%INTEGER UA,ELAB,CLAB) O LINE 2338 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CCYCBODY (_lev0id0_lev1id1_lev2id3_CSS_CCYCBODY) 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 UA 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 $ DEF ELAB 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 $ DEF CLAB p1=V_019f a/tf=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) O LINE 2339 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CLOOP (_lev0id0_lev1id1_lev2id3_CSS_CLOOP) 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 ALT 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 $ DEF MARKC p1=V_019f a/tf=11 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_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} 2340 %ROUTINESPEC CIFTHEN(%INTEGER MARKIU,MARKC,MARKUI,MARKE,MARKR,SKIP) O LINE 2340 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CIFTHEN (_lev0id0_lev1id1_lev2id3_CSS_CIFTHEN) 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} $ DEF MARKIU p1=V_019f a/tf=11 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_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 $ DEF MARKUI 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 MARKE 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 $ DEF MARKR 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 $ DEF SKIP p1=V_01a4 a/tf=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) O LINE 2341 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CREATEAH (_lev0id0_lev1id1_lev2id3_CSS_CREATEAH) p1=V_019f 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_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} 2342 %ROUTINESPEC TORP(%INTEGERNAME HEAD,BOT,NOPS) O LINE 2342 "regression-compile-tmp/nrimp10s-77.imp" $ DEF TORP (_lev0id0_lev1id1_lev2id3_CSS_TORP) 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 HEAD p1=V_01a1 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_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 $ DEF NOPS p1=V_01a3 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) O LINE 2343 "regression-compile-tmp/nrimp10s-77.imp" $ DEF INTEXP (_lev0id0_lev1id1_lev2id3_CSS_INTEXP) p1=V_01a1 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_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} 2344 %INTEGERFNSPEC CONSTEXP(%INTEGER PRECTYPE) O LINE 2344 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CONSTEXP (_lev0id0_lev1id1_lev2id3_CSS_CONSTEXP) 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 PRECTYPE 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} 2345 %ROUTINESPEC CSEXP(%INTEGER REG,MODE) O LINE 2345 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CSEXP (_lev0id0_lev1id1_lev2id3_CSS_CSEXP) p1=V_01a3 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_01a4 a/tf=11 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_01a5 a/tf=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) O LINE 2346 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CSTREXP (_lev0id0_lev1id1_lev2id3_CSS_CSTREXP) 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} $ DEF A p1=V_01a5 a/tf=11 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_01a6 a/tf=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) O LINE 2347 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CRES (_lev0id0_lev1id1_lev2id3_CSS_CRES) 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} $ DEF LAB p1=V_01a6 a/tf=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) O LINE 2348 "regression-compile-tmp/nrimp10s-77.imp" $ DEF EXPOP (_lev0id0_lev1id1_lev2id3_CSS_EXPOP) 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 A 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 $ DEF B 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 $ DEF C 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 $ DEF D p1=V_01aa a/tf=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) O LINE 2349 "regression-compile-tmp/nrimp10s-77.imp" $ DEF TESTAPP (_lev0id0_lev1id1_lev2id3_CSS_TESTAPP) 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 NUM p1=V_01a8 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 O LINE 2350 "regression-compile-tmp/nrimp10s-77.imp" $ DEF SKIPEXP (_lev0id0_lev1id1_lev2id3_CSS_SKIPEXP) 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} } FINISH ) {lev=4} 2351 %ROUTINESPEC SKIP APP O LINE 2351 "regression-compile-tmp/nrimp10s-77.imp" $ DEF SKIPAPP (_lev0id0_lev1id1_lev2id3_CSS_SKIPAPP) 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} 2352 %ROUTINESPEC NO APP O LINE 2352 "regression-compile-tmp/nrimp10s-77.imp" $ DEF NOAPP (_lev0id0_lev1id1_lev2id3_CSS_NOAPP) 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} } FINISH ) {lev=4} 2353 %INTEGERFNSPEC DOPE VECTOR(%INTEGER A,B,MODE,ID,%INTEGERNAME C,D) O LINE 2353 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DOPEVECTOR (_lev0id0_lev1id1_lev2id3_CSS_DOPEVECTOR) p1=V_01ab 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_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 B 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 MODE 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 ID 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 C p1=V_01b0 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_01b1 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) O LINE 2354 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DECLAREARRAYS (_lev0id0_lev1id1_lev2id3_CSS_DECLAREARRAYS) p1=V_01ac 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_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 B 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 } FINISH ) {lev=4} 2355 %ROUTINESPEC DECLARE SCALARS(%INTEGER A,B) O LINE 2355 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DECLARESCALARS (_lev0id0_lev1id1_lev2id3_CSS_DECLARESCALARS) p1=V_01ad 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_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 B 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 } FINISH ) {lev=4} 2356 %ROUTINESPEC MAKE DECS(%INTEGER Q) O LINE 2356 "regression-compile-tmp/nrimp10s-77.imp" $ DEF MAKEDECS (_lev0id0_lev1id1_lev2id3_CSS_MAKEDECS) p1=V_01ae 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_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 } FINISH ) {lev=4} 2357 %ROUTINESPEC SAVE AUX STACK O LINE 2357 "regression-compile-tmp/nrimp10s-77.imp" $ DEF SAVEAUXSTACK (_lev0id0_lev1id1_lev2id3_CSS_SAVEAUXSTACK) p1=V_01af 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 O LINE 2358 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RESETAUXSTACK (_lev0id0_lev1id1_lev2id3_CSS_RESETAUXSTACK) p1=V_01b0 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) O LINE 2359 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CRSPEC (_lev0id0_lev1id1_lev2id3_CSS_CRSPEC) p1=V_01b1 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_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 } FINISH ) {lev=4} 2360 %ROUTINESPEC CFPLIST(%INTEGERNAME A,B) O LINE 2360 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CFPLIST (_lev0id0_lev1id1_lev2id3_CSS_CFPLIST) p1=V_01b2 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_01b3 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_01b4 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 O LINE 2361 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CFPDEL (_lev0id0_lev1id1_lev2id3_CSS_CFPDEL) p1=V_01b3 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 O LINE 2362 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CLT (_lev0id0_lev1id1_lev2id3_CSS_CLT) p1=V_01b4 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) O LINE 2363 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CQN (_lev0id0_lev1id1_lev2id3_CSS_CQN) p1=V_01b5 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_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 } FINISH ) {lev=4} 2364 %ROUTINESPEC GET WSP(%INTEGERNAME PLACE,%INTEGER SIZE) O LINE 2364 "regression-compile-tmp/nrimp10s-77.imp" $ DEF GETWSP (_lev0id0_lev1id1_lev2id3_CSS_GETWSP) p1=V_01b6 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_01b7 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_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 } FINISH ) {lev=4} 2365 %ROUTINESPEC RETURN WSP(%INTEGER PLACE,SIZE) O LINE 2365 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RETURNWSP (_lev0id0_lev1id1_lev2id3_CSS_RETURNWSP) p1=V_01b7 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_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 SIZE 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 } FINISH ) {lev=4} 2366 %INTEGERFNSPEC TSEXP(%INTEGERNAME VALUE) O LINE 2366 "regression-compile-tmp/nrimp10s-77.imp" $ DEF TSEXP (_lev0id0_lev1id1_lev2id3_CSS_TSEXP) p1=V_01b8 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_01b9 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) O LINE 2367 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CRCALL (_lev0id0_lev1id1_lev2id3_CSS_CRCALL) p1=V_01b9 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_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 } FINISH ) {lev=4} 2368 %ROUTINESPEC NAMEOP(%INTEGER Z,REG,SIZE,NAMEP) O LINE 2368 "regression-compile-tmp/nrimp10s-77.imp" $ DEF NAMEOP (_lev0id0_lev1id1_lev2id3_CSS_NAMEOP) p1=V_01ba 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_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 REG 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 SIZE 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 NAMEP 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 } FINISH ) {lev=4} 2369 %ROUTINESPEC CNAME(%INTEGER Z,REG) O LINE 2369 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CNAME (_lev0id0_lev1id1_lev2id3_CSS_CNAME) p1=V_01bb 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_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 REG 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 } FINISH ) {lev=4} 2370 %ROUTINESPEC CANAME(%INTEGER Z,BS,DP) O LINE 2370 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CANAME (_lev0id0_lev1id1_lev2id3_CSS_CANAME) p1=V_01bc 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_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 BS 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 DP 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 } FINISH ) {lev=4} 2371 %ROUTINESPEC CSNAME(%INTEGER Z,REG) O LINE 2371 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CSNAME (_lev0id0_lev1id1_lev2id3_CSS_CSNAME) p1=V_01bd 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_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 REG 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 } FINISH ) {lev=4} 2372 %ROUTINESPEC TEST ASS(%INTEGER REG,TYPE,SIZE) O LINE 2372 "regression-compile-tmp/nrimp10s-77.imp" $ DEF TESTASS (_lev0id0_lev1id1_lev2id3_CSS_TESTASS) p1=V_01be 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_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 TYPE 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 SIZE 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 } FINISH ) {lev=4} 2373 %ROUTINESPEC COPY TAG(%INTEGER KK) O LINE 2373 "regression-compile-tmp/nrimp10s-77.imp" $ DEF COPYTAG (_lev0id0_lev1id1_lev2id3_CSS_COPYTAG) p1=V_01bf 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_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 } FINISH ) {lev=4} 2374 %ROUTINESPEC REDUCE TAG O LINE 2374 "regression-compile-tmp/nrimp10s-77.imp" $ DEF REDUCETAG (_lev0id0_lev1id1_lev2id3_CSS_REDUCETAG) p1=V_01c0 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) O LINE 2375 "regression-compile-tmp/nrimp10s-77.imp" $ DEF REPLACETAG (_lev0id0_lev1id1_lev2id3_CSS_REPLACETAG) p1=V_01c1 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_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 } FINISH ) {lev=4} 2376 %ROUTINESPEC RT JUMP(%INTEGER CODE,%INTEGERNAME L) O LINE 2376 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RTJUMP (_lev0id0_lev1id1_lev2id3_CSS_RTJUMP) p1=V_01c2 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_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 L p1=V_01c4 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) O LINE 2377 "regression-compile-tmp/nrimp10s-77.imp" $ DEF STORETAG (_lev0id0_lev1id1_lev2id3_CSS_STORETAG) p1=V_01c3 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_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 SLINK 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 } FINISH ) {lev=4} 2378 %ROUTINESPEC UNPACK O LINE 2378 "regression-compile-tmp/nrimp10s-77.imp" $ DEF UNPACK (_lev0id0_lev1id1_lev2id3_CSS_UNPACK) p1=V_01c4 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) O LINE 2379 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PACK (_lev0id0_lev1id1_lev2id3_CSS_PACK) p1=V_01c5 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_01c6 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) O LINE 2380 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DIAGPOINTER (_lev0id0_lev1id1_lev2id3_CSS_DIAGPOINTER) p1=V_01c6 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_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 } FINISH ) {lev=4} 2381 %ROUTINESPEC RDISPLAY(%INTEGER KK) O LINE 2381 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RDISPLAY (_lev0id0_lev1id1_lev2id3_CSS_RDISPLAY) p1=V_01c7 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_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 } FINISH ) {lev=4} 2382 %ROUTINESPEC RHEAD(%INTEGER KK) O LINE 2382 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RHEAD (_lev0id0_lev1id1_lev2id3_CSS_RHEAD) p1=V_01c8 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_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 } FINISH ) {lev=4} 2383 %ROUTINESPEC ODD ALIGN O LINE 2383 "regression-compile-tmp/nrimp10s-77.imp" $ DEF ODDALIGN (_lev0id0_lev1id1_lev2id3_CSS_ODDALIGN) p1=V_01c9 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) O LINE 2384 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PTROFFSET (_lev0id0_lev1id1_lev2id3_CSS_PTROFFSET) p1=V_01ca 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_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 } FINISH ) {lev=4} 2385 %ROUTINESPEC PPJ(%INTEGER MASK,N) O LINE 2385 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PPJ (_lev0id0_lev1id1_lev2id3_CSS_PPJ) p1=V_01cb 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_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 N 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 } FINISH ) {lev=4} 2386 %ROUTINESPEC CRFORMAT(%INTEGERNAME OPHEAD) O LINE 2386 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CRFORMAT (_lev0id0_lev1id1_lev2id3_CSS_CRFORMAT) p1=V_01cc 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_01cd 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) O LINE 2387 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DISPLACEMENT (_lev0id0_lev1id1_lev2id3_CSS_DISPLACEMENT) p1=V_01cd 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_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 } FINISH ) {lev=4} 2388 %INTEGERFNSPEC COPY RECORD TAG(%INTEGERNAME SUBS) O LINE 2388 "regression-compile-tmp/nrimp10s-77.imp" $ DEF COPYRECORDTAG (_lev0id0_lev1id1_lev2id3_CSS_COPYRECORDTAG) p1=V_01ce 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_01cf 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 O LINE 2389 "regression-compile-tmp/nrimp10s-77.imp" $ DEF SAVEIRS (_lev0id0_lev1id1_lev2id3_CSS_SAVEIRS) p1=V_01cf 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 O LINE 2390 "regression-compile-tmp/nrimp10s-77.imp" $ DEF COPYDR (_lev0id0_lev1id1_lev2id3_CSS_COPYDR) p1=V_01d0 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) O LINE 2391 "regression-compile-tmp/nrimp10s-77.imp" $ DEF BOOTOUT (_lev0id0_lev1id1_lev2id3_CSS_BOOTOUT) p1=V_01d1 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_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 } FINISH ) {lev=4} 2392 %ROUTINESPEC CHANGE RD(%INTEGER REG) O LINE 2392 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CHANGERD (_lev0id0_lev1id1_lev2id3_CSS_CHANGERD) p1=V_01d2 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_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 } FINISH ) {lev=4} 2393 %ROUTINESPEC FORGET(%INTEGER REG) O LINE 2393 "regression-compile-tmp/nrimp10s-77.imp" $ DEF FORGET (_lev0id0_lev1id1_lev2id3_CSS_FORGET) p1=V_01d3 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_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 } FINISH ) {lev=4} 2394 %ROUTINESPEC REMEMBER O LINE 2394 "regression-compile-tmp/nrimp10s-77.imp" $ DEF REMEMBER (_lev0id0_lev1id1_lev2id3_CSS_REMEMBER) p1=V_01d4 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) O LINE 2395 "regression-compile-tmp/nrimp10s-77.imp" $ DEF NOTEASSMENT (_lev0id0_lev1id1_lev2id3_CSS_NOTEASSMENT) p1=V_01d5 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_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 ASSOP 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 $ DEF VAR p1=V_01d8 a/tf=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) O LINE 2396 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 N PUSHI #0x00000018 b BOUNDS $ DEF SW p1=V_01d6 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) O LINE 2397 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RD p1=V_01d7 a/tf=44 b/format=1d7 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 O LINE 2399 "regression-compile-tmp/nrimp10s-77.imp" $ DEF SNDISP p1=V_01d8 a/tf=11 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_01d9 a/tf=11 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_01da a/tf=11 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_01db a/tf=11 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_01dc a/tf=11 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_01dd a/tf=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 O LINE 2400 "regression-compile-tmp/nrimp10s-77.imp" $ DEF TCELL 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 NUMMOD 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 JJ 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 JJJ 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 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 QQ 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 MARKER 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 REPORTUI 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 XDISP 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 MASK 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 BASE 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 AREA 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 ACCESS 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 DISP 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 EXTRN 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 CURRINST 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 VALUE 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 STRINGL 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 PTYPE 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 I 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 J 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 OLDI 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 USEBITS 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 TWSPHEAD 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 KKK 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 STRFNRES 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 MARKIU 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 MARKUI 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 MARKC 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 MARKE 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 MARKR 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 2404 %INTEGER LITL,ROUT,NAM,ARR,PREC,TYPE O LINE 2404 "regression-compile-tmp/nrimp10s-77.imp" $ DEF LITL 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 ROUT 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 NAM 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 ARR 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 PREC 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 TYPE 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 2405 %RECORD (RD) EXPOPND{(RD); ! RESULT RECORD FOR EXPOP O LINE 2405 "regression-compile-tmp/nrimp10s-77.imp" $ DEF EXPOPND p1=V_0203 a/tf=41 b/format=1d7 c/ostate=0 type=4 (record) form=1 (simple) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 2406 CURR INST=0 O LINE 2406 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CURRINST N PUSHI #0x00000000 S ASSVAL 2407 TWSPHEAD=0 O LINE 2407 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TWSPHEAD N PUSHI #0x00000000 S ASSVAL 2408 %INTEGERARRAY SGRUSE,SGRINF(0:7) O LINE 2408 "regression-compile-tmp/nrimp10s-77.imp" $ DEF SGRUSE p1=V_0204 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_0205 a/tf=1b b/format=1 c/ostate=100 type=1 (integer) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 N PUSHI #0x00000000 N PUSHI #0x00000007 d DIM 0001 0002 2409 ->SW(A(P)) O LINE 2409 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS W SJUMP 470 2410 SW(23): ! INCLUDE SOMETHING O LINE 2410 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000017 _ SLABEL 470 2411 SW(24): ! REDUNDANT SEP O LINE 2411 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000018 _ SLABEL 470 2412 SW(2): ! O LINE 2412 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000002 _ SLABEL 470 2413 CSSEXIT: LAST INST=CURR INST O LINE 2413 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0206 O LINE 2413 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LASTINST @ PUSH CURRINST S ASSVAL 2414 %WHILE TWSPHEAD#0 %CYCLE O LINE 2414 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH TWSPHEAD N PUSHI #0x00000000 ? JUMPIF = L_0004 2415 POP(TWSPHEAD,JJ,KK,QQ) O LINE 2415 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH POP @ PUSH TWSPHEAD p ASSPAR @ PUSH JJ p ASSPAR @ PUSH KK p ASSPAR @ PUSH QQ p ASSPAR E CALL 2416 RETURN WSP(JJ,KK) O LINE 2416 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RETURNWSP @ PUSH JJ p ASSPAR @ PUSH KK p ASSPAR E CALL 2417 %REPEAT O LINE 2417 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 2418 %RETURN O LINE 2418 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 2419 SW(1): !(UI)(S) O LINE 2419 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 _ SLABEL 470 2420 FAULT(57,0) %UNLESS LEVEL>=2 O LINE 2420 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF >= L_0004 @ PUSH FAULT N PUSHI #0x00000039 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 2421 MARKER=P+1+A(P+1)<<8+A(P+2) O LINE 2421 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKER @ PUSH P N PUSHI #0x00000001 + ADD @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000008 [ LSH + ADD @ PUSH A @ PUSH P N PUSHI #0x00000002 + ADD a ACCESS + ADD S ASSVAL 2422 P=P+3 O LINE 2422 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL 2423 ->LABFND %IF A(MARKER)=1 O LINE 2423 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH MARKER a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0004 J JUMP L_0207 : LOCATE L_0004 2424 %IF A(MARKER)=2 %THEN SET LINE %AND CUI(0) %AND ->CSSEXIT O LINE 2424 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH MARKER a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH SETLINE E CALL @ PUSH CUI N PUSHI #0x00000000 p ASSPAR E CALL J JUMP L_0206 : LOCATE L_0004 2425 MARKE=0; MARKR=0 O LINE 2425 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKE N PUSHI #0x00000000 S ASSVAL O LINE 2425 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKR N PUSHI #0x00000000 S ASSVAL 2426 MARKUI=P; MARKIU=MARKER+1 O LINE 2426 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKUI @ PUSH P S ASSVAL O LINE 2426 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKIU @ PUSH MARKER N PUSHI #0x00000001 + ADD S ASSVAL 2427 MARKC=MARKIU+1 O LINE 2427 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKC @ PUSH MARKIU N PUSHI #0x00000001 + ADD S ASSVAL 2428 %IF A(MARKER)=3 %THEN CIFTHEN(MARKIU,MARKC,MARKUI,0,0,NO) %AND ->CSSEXIT O LINE 2428 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH MARKER a ACCESS N PUSHI #0x00000003 ? JUMPIF # L_0004 @ PUSH CIFTHEN @ PUSH MARKIU p ASSPAR @ PUSH MARKC p ASSPAR @ PUSH MARKUI p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL J JUMP L_0206 : LOCATE L_0004 2429 CLOOP(A(MARKIU),MARKC+2,MARKUI) O LINE 2429 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CLOOP @ PUSH A @ PUSH MARKIU a ACCESS p ASSPAR @ PUSH MARKC N PUSHI #0x00000002 + ADD p ASSPAR @ PUSH MARKUI p ASSPAR E CALL 2430 ->CSSEXIT O LINE 2430 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 2431 LABFND: ->SWITCH %UNLESS A(P)=1 %AND A(P+5)=2; ! 1ST OF UI AND NO APP O LINE 2431 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0207 O LINE 2431 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0005 @ PUSH A @ PUSH P N PUSHI #0x00000005 + ADD a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0004 : LOCATE L_0005 J JUMP L_0208 : LOCATE L_0004 2432 ->SWITCH %UNLESS A(P+6)=2 %AND A(P+7)=2;! NO ENAMSE OR ASSNMNT O LINE 2432 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000006 + ADD a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0005 @ PUSH A @ PUSH P N PUSHI #0x00000007 + ADD a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0004 : LOCATE L_0005 J JUMP L_0208 : LOCATE L_0004 2433 JJ=ENTER LAB(FROM AR2(P+3),0); ->CSSEXIT O LINE 2433 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ @ PUSH ENTERLAB @ PUSH FROMAR2 @ PUSH P N PUSHI #0x00000003 + ADD p ASSPAR E CALL p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL S ASSVAL O LINE 2433 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 2434 SW(5): ! %CYCLE O LINE 2434 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000005 _ SLABEL 470 2435 FAULT(57,0) %UNLESS LEVEL>=2 O LINE 2435 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF >= L_0004 @ PUSH FAULT N PUSHI #0x00000039 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 2436 %IF A(P+5)=2 %THEN %START; ! OPEN CYCLE O LINE 2436 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000005 + ADD a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0004 2437 CLOOP(0,P+1,0) O LINE 2437 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CLOOP N PUSHI #0x00000000 p ASSPAR @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2438 %FINISH %ELSE %START O LINE 2438 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 2439 CLOOP(6,P+6,P+1) O LINE 2439 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CLOOP N PUSHI #0x00000006 p ASSPAR @ PUSH P N PUSHI #0x00000006 + ADD p ASSPAR @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR E CALL 2440 %FINISH O LINE 2440 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 2441 ->CSSEXIT 2442 ! O LINE 2441 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 2443 SW(6): ! REPEAT O LINE 2443 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000006 _ SLABEL 470 2444 ->CSSEXIT O LINE 2444 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 2445 SW(22): ! '%CONTROL' (CONST) O LINE 2445 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000016 _ SLABEL 470 2446 J=FROM AR4(P+2) O LINE 2446 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH FROMAR4 @ PUSH P N PUSHI #0x00000002 + ADD p ASSPAR E CALL S ASSVAL 2447 CODEOUT O LINE 2447 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODEOUT E CALL 2448 DCOMP=J>>28; ->CSSEXIT 2449 ! O LINE 2448 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DCOMP @ PUSH J N PUSHI #0x0000001c ] RSH S ASSVAL O LINE 2448 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 2450 SW(3): ! (%IU)(COND)%THEN(UI)(ELSE') O LINE 2450 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000003 _ SLABEL 470 2451 MARKIU=P+1; MARKC=MARKIU+3 O LINE 2451 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKIU @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 2451 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKC @ PUSH MARKIU N PUSHI #0x00000003 + ADD S ASSVAL 2452 MARKR=P+2+A(P+2)<<8+A(P+3); ! ! FROMAR2(P+2) O LINE 2452 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKR @ PUSH P N PUSHI #0x00000002 + ADD @ PUSH A @ PUSH P N PUSHI #0x00000002 + ADD a ACCESS N PUSHI #0x00000008 [ LSH + ADD @ PUSH A @ PUSH P N PUSHI #0x00000003 + ADD a ACCESS + ADD S ASSVAL 2453 MARKE=0 O LINE 2453 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKE N PUSHI #0x00000000 S ASSVAL 2454 %IF A(MARKR)=3 %THEN %START O LINE 2454 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH MARKR a ACCESS N PUSHI #0x00000003 ? JUMPIF # L_0004 2455 MARKE=MARKR+1+FROMAR2(MARKR+1) O LINE 2455 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKE @ PUSH MARKR N PUSHI #0x00000001 + ADD @ PUSH FROMAR2 @ PUSH MARKR N PUSHI #0x00000001 + ADD p ASSPAR E CALL + ADD S ASSVAL 2456 MARKUI=MARKR+3 O LINE 2456 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKUI @ PUSH MARKR N PUSHI #0x00000003 + ADD S ASSVAL 2457 %FINISH O LINE 2457 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 2458 CIFTHEN(MARKIU,MARKC,MARKUI,MARKE,MARKR,NO) O LINE 2458 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CIFTHEN @ PUSH MARKIU p ASSPAR @ PUSH MARKC p ASSPAR @ PUSH MARKUI p ASSPAR @ PUSH MARKE p ASSPAR @ PUSH MARKR p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2459 ->CSSEXIT O LINE 2459 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 2460 SW(4): 2461 ! '%FINISH(ELSE')(S) O LINE 2460 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000004 _ SLABEL 470 2462 ->CSSEXIT O LINE 2462 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 2463 SWITCH: %BEGIN; ! SWITCH LABEL O LINE 2463 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0208 O LINE 2463 "regression-compile-tmp/nrimp10s-77.imp" H BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id4 {lev=4 --> 5} 2464 %INTEGER HEAD,BASEPT,NAPS,FNAME O LINE 2464 "regression-compile-tmp/nrimp10s-77.imp" $ DEF HEAD p1=V_0209 a/tf=11 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_020a a/tf=11 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_020b a/tf=11 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_020c a/tf=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) O LINE 2465 "regression-compile-tmp/nrimp10s-77.imp" $ DEF BITS p1=V_020d a/tf=1b b/format=1 c/ostate=100 type=1 (integer) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 N PUSHI #0x00000000 N PUSHI #0x00000002 d DIM 0001 0001 2466 FORGET(-1) O LINE 2466 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FORGET N PUSHI #0x00000001 U NEGATE p ASSPAR E CALL 2467 FNAME=FROM AR2(P+3) O LINE 2467 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FNAME @ PUSH FROMAR2 @ PUSH P N PUSHI #0x00000003 + ADD p ASSPAR E CALL S ASSVAL 2468 %UNLESS A(P)=1 %AND A(P+5)=1 %THEN FAULT2(5,0,FNAME) %AND ->BEND 2469 ! 1ST OF UI + APP O LINE 2468 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0005 @ PUSH A @ PUSH P N PUSHI #0x00000005 + ADD a ACCESS N PUSHI #0x00000001 ? JUMPIF = L_0004 : LOCATE L_0005 @ PUSH FAULT2 N PUSHI #0x00000005 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH FNAME p ASSPAR E CALL J JUMP L_020e : LOCATE L_0004 2470 P=P+3; TEST APP(NAPS) O LINE 2470 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL O LINE 2470 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TESTAPP @ PUSH NAPS p ASSPAR E CALL 2471 P=P+6 O LINE 2471 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000006 + ADD S ASSVAL 2472 %UNLESS INTEXP(JJ)=0 %THEN FAULT2(41,0,0) %AND ->BEND 2473 ! UNLESS EXPRESSION EVALUATES AND O LINE 2472 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INTEXP @ PUSH JJ p ASSPAR E CALL N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH FAULT2 N PUSHI #0x00000029 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL J JUMP L_020e : LOCATE L_0004 2474 %UNLESS NAPS=1 %THEN FAULT2(21,NAPS-1,FNAME) %AND ->BEND 2475 ! NO REST OF APP O LINE 2474 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAPS N PUSHI #0x00000001 ? JUMPIF = L_0004 @ PUSH FAULT2 N PUSHI #0x00000015 p ASSPAR @ PUSH NAPS N PUSHI #0x00000001 - SUB p ASSPAR @ PUSH FNAME p ASSPAR E CALL J JUMP L_020e : 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 O LINE 2476 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000002 " JUMPIFD # L_0005 @ PUSH A @ PUSH P N PUSHI #0x00000002 + ADD a ACCESS ? JUMPIF = L_0004 : LOCATE L_0005 @ PUSH FAULT2 N PUSHI #0x00000005 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH FNAME p ASSPAR E CALL J JUMP L_020e : LOCATE L_0004 2478 COPY TAG(FNAME) O LINE 2478 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COPYTAG @ PUSH FNAME p ASSPAR E CALL 2479 HEAD=K O LINE 2479 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HEAD @ PUSH K S ASSVAL 2480 %IF OLDI#LEVEL %OR TYPE#6 %THEN FAULT(4,FNAME) %AND ->BEND O LINE 2480 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OLDI @ PUSH LEVEL ? JUMPIF # L_0005 @ PUSH TYPE N PUSHI #0x00000006 ? JUMPIF = L_0004 : LOCATE L_0005 @ PUSH FAULT N PUSHI #0x00000004 p ASSPAR @ PUSH FNAME p ASSPAR E CALL J JUMP L_020e : LOCATE L_0004 2481 FROM123(HEAD,BASEPT,KKK,KK); ! EXTRACT TABLE ADDR,LB & UB O LINE 2481 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FROM123 @ PUSH HEAD p ASSPAR @ PUSH BASEPT p ASSPAR @ PUSH KKK p ASSPAR @ PUSH KK p ASSPAR E CALL 2482 MLINK(HEAD); ! K POINTS TO BIT LIST O LINE 2482 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MLINK @ PUSH HEAD p ASSPAR E CALL 2483 ->INBD %IF KKK<=JJ<=KK O LINE 2483 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KKK @ PUSH JJ " JUMPIFD > L_0004 @ PUSH KK ? JUMPIF > L_0004 J JUMP L_020f : LOCATE L_0004 2484 FAULT2(50,JJ,FNAME); ->BEND O LINE 2484 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FAULT2 N PUSHI #0x00000032 p ASSPAR @ PUSH JJ p ASSPAR @ PUSH FNAME p ASSPAR E CALL O LINE 2484 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_020e 2485 INBD: Q=JJ-KKK O LINE 2485 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_020f O LINE 2485 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH JJ @ PUSH KKK - SUB S ASSVAL 2486 %WHILE Q>=96 %%CYCLE O LINE 2486 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH Q N PUSHI #0x00000060 ? JUMPIF < L_0004 2487 MLINK(HEAD) O LINE 2487 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MLINK @ PUSH HEAD p ASSPAR E CALL 2488 Q=Q-96 O LINE 2488 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000060 - SUB S 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 ! O LINE 2489 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 2494 FROM123(HEAD,BITS(0),BITS(1),BITS(2)) O LINE 2494 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FROM123 @ PUSH HEAD p ASSPAR @ PUSH BITS N PUSHI #0x00000000 a ACCESS p ASSPAR @ PUSH BITS N PUSHI #0x00000001 a ACCESS p ASSPAR @ PUSH BITS N PUSHI #0x00000002 a ACCESS p ASSPAR E CALL 2495 QQ=Q>>5; ! RIGHT WORD O LINE 2495 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH QQ @ PUSH Q N PUSHI #0x00000005 ] RSH S ASSVAL 2496 Q=Q&31; JJJ=1<CSSEXIT O LINE 2508 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_020e O LINE 2508 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_lev4id4 {lev=5 --> 4} O LINE 2508 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 2509 SW(7): ! (%WU)(SC)(COND)(RESTOFWU) O LINE 2509 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000007 _ SLABEL 470 2510 FAULT(57,0) %UNLESS LEVEL>=2 O LINE 2510 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF >= L_0004 @ PUSH FAULT N PUSHI #0x00000039 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 2511 MARKIU=P+1; ! TO WHILE/UNTIL O LINE 2511 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKIU @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 2512 MARKC=MARKIU+3; ! TO (SC)(COND) O LINE 2512 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKC @ PUSH MARKIU N PUSHI #0x00000003 + ADD S ASSVAL 2513 CLOOP(A(MARKIU)+3,MARKC,MARKIU+1+FROMAR2(MARKIU+1)) O LINE 2513 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CLOOP @ PUSH A @ PUSH MARKIU a ACCESS N PUSHI #0x00000003 + ADD p ASSPAR @ PUSH MARKC p ASSPAR @ PUSH MARKIU N PUSHI #0x00000001 + ADD @ PUSH FROMAR2 @ PUSH MARKIU N PUSHI #0x00000001 + ADD p ASSPAR E CALL + ADD p ASSPAR E CALL 2514 ->CSSEXIT 2515 ! O LINE 2514 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 2516 SW(8): ! SIMPLE DECLN O LINE 2516 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000008 _ SLABEL 470 2517 FAULT(57,0) %UNLESS LEVEL>=2 O LINE 2517 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF >= L_0004 @ PUSH FAULT N PUSHI #0x00000039 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 2518 FAULT(40,0) %IF NMDECS(LEVEL)&1#0 O LINE 2518 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NMDECS @ PUSH LEVEL a ACCESS N PUSHI #0x00000001 & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH FAULT N PUSHI #0x00000028 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 2519 QQ=P; P=P+5;CLT;ROUT=0; LITL=0 O LINE 2519 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH QQ @ PUSH P S ASSVAL O LINE 2519 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000005 + ADD S ASSVAL O LINE 2519 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CLT E CALL O LINE 2519 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUT N PUSHI #0x00000000 S ASSVAL O LINE 2519 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LITL N PUSHI #0x00000000 S ASSVAL 2520 %IF A(P)#1 %THEN %START; ! ARRAY DECLARATIONS O LINE 2520 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 ? JUMPIF = L_0004 2521 FAULT(70,0) %IF TYPE=5 %AND ACC=0 O LINE 2521 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000005 ? JUMPIF # L_0007 @ PUSH ACC N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH FAULT N PUSHI #0x00000046 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0007 2522 NAM=0 O LINE 2522 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000000 S ASSVAL 2523 SET LINE O LINE 2523 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SETLINE E CALL 2524 QQ=2-A(P+1); P=P+2; ! QQ=1 FOR ARRAYFORMATS O LINE 2524 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH QQ N PUSHI #0x00000002 @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS - SUB S ASSVAL O LINE 2524 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 2525 DECLARE ARRAYS(QQ,0) O LINE 2525 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DECLAREARRAYS @ PUSH QQ p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2526 %FINISH %ELSE %START O LINE 2526 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 2527 %IF A(QQ+1)=128 %THEN %START;! NOT LINKED&SHUFFLED O LINE 2527 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH QQ N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000080 ? JUMPIF # L_0007 2528 CQN(P+1); P=P+2 O LINE 2528 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CQN @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR E CALL O LINE 2528 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 2529 DECLARE SCALARS(1,0) O LINE 2529 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DECLARESCALARS N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2530 %FINISH O LINE 2530 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 2531 %FINISH O LINE 2531 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 2532 ->CSSEXIT 2533 ! O LINE 2532 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 2534 SW(9): ! %END O LINE 2534 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000009 _ SLABEL 470 2535 %BEGIN O LINE 2535 "regression-compile-tmp/nrimp10s-77.imp" H BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id5 {lev=4 --> 5} 2536 %SWITCH S(1:5) O LINE 2536 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 N PUSHI #0x00000005 b BOUNDS $ DEF S p1=V_0209 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)) O LINE 2537 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS W SJUMP 521 2538 S(1): ! ENDOFPROGRAM O LINE 2538 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 _ SLABEL 521 2539 S(2): ! ENDOFFILE O LINE 2539 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000002 _ SLABEL 521 2540 %IF CPRMODE=0 %THEN CPRMODE=2 O LINE 2540 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPRMODE N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH CPRMODE N PUSHI #0x00000002 S ASSVAL : LOCATE L_0004 2541 FAULT(15,0) %UNLESS LEVEL+CPRMODE=3 O LINE 2541 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL @ PUSH CPRMODE + ADD N PUSHI #0x00000003 ? JUMPIF = L_0004 @ PUSH FAULT N PUSHI #0x0000000f p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 2542 FAULT(56,0) %UNLESS A(P+1)=CPRMODE O LINE 2542 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS @ PUSH CPRMODE ? JUMPIF = L_0004 @ PUSH FAULT N PUSHI #0x00000038 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 2543 CEND(CPRMODE) O LINE 2543 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CEND @ PUSH CPRMODE p ASSPAR E CALL 2544 ->BEND O LINE 2544 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_020a 2545 S(3): ! ENDOFLIST O LINE 2545 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000003 _ SLABEL 521 2546 LIST=0; O LINE 2546 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LIST N PUSHI #0x00000000 S ASSVAL 2547 ->BEND O LINE 2547 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_020a 2548 S(4): ! END O LINE 2548 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000004 _ SLABEL 521 2549 CEND(FLAG(LEVEL)) O LINE 2549 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CEND @ PUSH FLAG @ PUSH LEVEL a ACCESS p ASSPAR E CALL 2550 BEND: %END O LINE 2550 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_020a O LINE 2550 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_lev4id5 {lev=5 --> 4} 2551 ->CSSEXIT 2552 ! O LINE 2551 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 2553 SW(11): O LINE 2553 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x0000000b _ SLABEL 470 2554 %BEGIN O LINE 2554 "regression-compile-tmp/nrimp10s-77.imp" H BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id6 {lev=4 --> 5} 2555 %INTEGER MARKER1,KK,KKK O LINE 2555 "regression-compile-tmp/nrimp10s-77.imp" $ DEF MARKER1 p1=V_0209 a/tf=11 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_020a a/tf=11 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_020b a/tf=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 O LINE 2556 "regression-compile-tmp/nrimp10s-77.imp" $ DEF XNAME p1=V_020c 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) O LINE 2557 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 2557 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKER1 @ PUSH FROMAR2 @ PUSH P p ASSPAR E CALL @ PUSH P + ADD S ASSVAL 2558 AGN: Q=P; KK=FROM AR2(MARKER1+5); ! KK ON NAME O LINE 2558 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_020d O LINE 2558 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH P S ASSVAL O LINE 2558 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KK @ PUSH FROMAR2 @ PUSH MARKER1 N PUSHI #0x00000005 + ADD p ASSPAR E CALL S ASSVAL 2559 EXTRN=A(P+2) O LINE 2559 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN @ PUSH A @ PUSH P N PUSHI #0x00000002 + ADD a ACCESS S ASSVAL 2560 LITL=EXTRN&3 O LINE 2560 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LITL @ PUSH EXTRN N PUSHI #0x00000003 & AND S ASSVAL 2561 %IF A(MARKER1)=1 %THEN %START;! P<%SPEC'>='%SPEC' O LINE 2561 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH MARKER1 a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0004 2562 P=P+3; CRSPEC(1-EXTRN>>2);! 0 FOR ROUTINESPEC 2563 ! 1 FOR EXTERNAL (ETC) SPEC O LINE 2562 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL O LINE 2562 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CRSPEC N PUSHI #0x00000001 @ PUSH EXTRN N PUSHI #0x00000002 ] RSH - SUB p ASSPAR E CALL 2564 ->BEND O LINE 2564 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_020e 2565 %FINISH O LINE 2565 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 2566 COPY TAG(KK) O LINE 2566 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COPYTAG @ PUSH KK p ASSPAR E CALL 2567 %IF OLDI=LEVEL %THEN %START O 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 ! O LINE 2568 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPRMODE N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH CPRMODE N PUSHI #0x00000002 S ASSVAL : LOCATE L_0007 2570 %IF (CPRMODE=2 %AND LEVEL=1) %START O LINE 2570 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPRMODE N PUSHI #0x00000002 ? JUMPIF # L_0007 @ PUSH LEVEL N PUSHI #0x00000001 ? JUMPIF # L_0007 2571 %IF EXTRN=3 %THEN EXTRN=2 O LINE 2571 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000003 ? JUMPIF # L_000a @ PUSH EXTRN N PUSHI #0x00000002 S ASSVAL : LOCATE L_000a 2572 XNAME<-STRING(DICTBASE+WORD(KK)) O LINE 2572 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XNAME @ PUSH STRING @ PUSH DICTBASE @ PUSH WORD @ PUSH KK a ACCESS + ADD p ASSPAR E CALL j JAM 2573 %IF EXTRN=1 %THEN XNAME<-"S#".XNAME O LINE 2573 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000001 ? JUMPIF # L_000a @ PUSH XNAME ' PUSHS "S#" @ PUSH XNAME . CONCAT j JAM : LOCATE L_000a 2574 %IF EXTRN=4 %THEN XNAME="" O LINE 2574 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000004 ? JUMPIF # L_000a @ PUSH XNAME ' PUSHS "" S ASSVAL : LOCATE L_000a 2575 JJ=MIDCELL; ! CODE DESCRIPTOR REL ADDR O LINE 2575 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ @ PUSH MIDCELL S ASSVAL 2576 %IF EXTRN#4 %THEN USEBITS=2 O LINE 2576 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000004 ? JUMPIF = L_000a @ PUSH USEBITS N PUSHI #0x00000002 S ASSVAL : LOCATE L_000a 2577 DEFINE EP(XNAME,CA,JJ,0) O LINE 2577 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DEFINEEP @ PUSH XNAME p ASSPAR @ PUSH CA p ASSPAR @ PUSH JJ p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2578 %IF JJ#0 %THEN PSF1(INCA,0,-JJ) O LINE 2578 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ N PUSHI #0x00000000 ? JUMPIF = L_000a @ PUSH PSF1 N PUSHI #0x00000014 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH JJ U NEGATE p ASSPAR E CALL : LOCATE L_000a 2579 %FINISH %ELSE %START; ! EXTERNALS IN PRGM OR WRNG LEVEL O LINE 2579 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 2580 FAULT(55,KK) %UNLESS EXTRN=4; EXTRN=4 O LINE 2580 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000004 ? JUMPIF = L_000a @ PUSH FAULT N PUSHI #0x00000037 p ASSPAR @ PUSH KK p ASSPAR E CALL : LOCATE L_000a O LINE 2580 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000004 S ASSVAL 2581 %FINISH O 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 O LINE 2582 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000003 + ADD a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH KKK @ PUSH LITL N PUSHI #0x0000000e [ LSH N PUSHI #0x00001000 ! OR S ASSVAL F GOTO L_0006 : LOCATE L_0007 2583 ROUT=1; P=P+4; ! FIGURE OUT PTYPE FOR FNS&MAPS O LINE 2583 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUT N PUSHI #0x00000001 S ASSVAL O LINE 2583 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000004 + ADD S ASSVAL 2584 CLT; ARR=0; NAM=0 O LINE 2584 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CLT E CALL O LINE 2584 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARR N PUSHI #0x00000000 S ASSVAL O LINE 2584 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000000 S ASSVAL 2585 %IF A(P)=2 %THEN NAM=2; ! SET NAME ARRAY BIT FOR MAPS O LINE 2585 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_000a @ PUSH NAM N PUSHI #0x00000002 S ASSVAL : LOCATE L_000a 2586 PACK(KKK); ! AND STORE PTYPE IN KKK O LINE 2586 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PACK @ PUSH KKK p ASSPAR E CALL 2587 %FINISH O LINE 2587 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 2588 %FINISH O LINE 2588 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 2589 %UNLESS OLDI=LEVEL %AND J=15 %AND PTYPE=KKK %START O LINE 2589 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OLDI @ PUSH LEVEL ? JUMPIF # L_0005 @ PUSH J N PUSHI #0x0000000f ? JUMPIF # L_0005 @ PUSH PTYPE @ PUSH KKK ? JUMPIF = L_0004 : LOCATE L_0005 2590 P=Q+3; CRSPEC(0); P=Q; ->AGN O LINE 2590 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH Q N PUSHI #0x00000003 + ADD S ASSVAL O LINE 2590 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CRSPEC N PUSHI #0x00000000 p ASSPAR E CALL O LINE 2590 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH Q S ASSVAL O LINE 2590 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_020d 2591 %FINISH O LINE 2591 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 2592 PTYPE=PTYPE!(EXTRN&3)<<14; ! DEAL WITH %ROUTINESPEC FOLLOWED 2593 ! BY %EXTERNALROUTINE O LINE 2592 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE @ PUSH PTYPE @ PUSH EXTRN N PUSHI #0x00000003 & AND N PUSHI #0x0000000e [ LSH ! OR S ASSVAL 2594 %BEGIN O LINE 2594 "regression-compile-tmp/nrimp10s-77.imp" H BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id6_lev5id7 {lev=5 --> 6} 2595 %INTEGER PTR,PTYPEP,CNT,PP O LINE 2595 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PTR 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 $ DEF PTYPEP 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 CNT 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 PP 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 2596 J=0; REPLACE TAG(KK);! BODY GIVEN SO UPDATE TAGS INFO O LINE 2596 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL O LINE 2596 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REPLACETAG @ PUSH KK p ASSPAR E CALL 2597 JJ=K; PLABEL=PLABEL-1 O LINE 2597 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ @ PUSH K S ASSVAL O LINE 2597 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PLABEL @ PUSH PLABEL N PUSHI #0x00000001 - SUB S ASSVAL 2598 %UNLESS COMPILER=1 %OR (CPRMODE=2 %AND LEVEL=1) %START O LINE 2598 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COMPILER N PUSHI #0x00000001 ? JUMPIF = L_0004 @ PUSH CPRMODE N PUSHI #0x00000002 ? JUMPIF # L_0005 @ PUSH LEVEL N PUSHI #0x00000001 ? JUMPIF = L_0004 : LOCATE L_0005 2599 %IF JROUND(LEVEL+1)=0 %START; ! NOT JUMP OUTSTANDING O LINE 2599 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JROUND @ PUSH LEVEL N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000000 ? JUMPIF # L_0007 2600 JROUND(LEVEL+1)=PLABEL O LINE 2600 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JROUND @ PUSH LEVEL N PUSHI #0x00000001 + ADD a ACCESS @ PUSH PLABEL S ASSVAL 2601 ENTER JUMP(15,PLABEL,0) O LINE 2601 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ENTERJUMP N PUSHI #0x0000000f p ASSPAR @ PUSH PLABEL p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2602 %FINISH O LINE 2602 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 2603 %FINISH O LINE 2603 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 2604 PTYPEP=PTYPE O LINE 2604 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPEP @ PUSH PTYPE S ASSVAL 2605 P=MARKER1+7 O LINE 2605 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH MARKER1 N PUSHI #0x00000007 + ADD S ASSVAL 2606 RHEAD(KK) O LINE 2606 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RHEAD @ PUSH KK p ASSPAR E CALL 2607 N=20; CNT=1 O LINE 2607 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N N PUSHI #0x00000014 S ASSVAL O LINE 2607 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CNT N PUSHI #0x00000001 S ASSVAL 2608 %WHILE A(P)=1 %CYCLE; ! WHILE SOME (MORE) FP PART O LINE 2608 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0004 2609 PP=P+1+FROMAR2(P+1) O LINE 2609 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PP @ PUSH P N PUSHI #0x00000001 + ADD @ PUSH FROMAR2 @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR E CALL + ADD S ASSVAL 2610 P=P+3 O LINE 2610 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL 2611 CFPDEL O LINE 2611 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CFPDEL E CALL 2612 PTR=P O LINE 2612 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTR @ PUSH P S ASSVAL 2613 {%UNTIL A(PTR-1)=2} %CYCLE; ! CYCLE DOWN NAMELIST O LINE 2613 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 2614 %IF JJ#0 %THEN %START O LINE 2614 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ N PUSHI #0x00000000 ? JUMPIF = L_000a 2615 FROM12(JJ,J,JJJ); ! EXTRACT PTYPE XTRA INFO O LINE 2615 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FROM12 @ PUSH JJ p ASSPAR @ PUSH J p ASSPAR @ PUSH JJJ p ASSPAR E CALL 2616 %UNLESS J>>16=PTYPE %AND(PTYPE#5 %OR JJJ>>16=ACC) %THEN FAULT2(9,CNT,KK) O LINE 2616 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000010 ] RSH @ PUSH PTYPE ? JUMPIF # L_000e @ PUSH PTYPE N PUSHI #0x00000005 ? JUMPIF # L_000d @ PUSH JJJ N PUSHI #0x00000010 ] RSH @ PUSH ACC ? JUMPIF = L_000d : LOCATE L_000e @ PUSH FAULT2 N PUSHI #0x00000009 p ASSPAR @ PUSH CNT p ASSPAR @ PUSH KK p ASSPAR E CALL : LOCATE L_000d 2617 %FINISH %ELSE FAULT2(8,0,KK);! MORE FPS THAN IN SPEC O LINE 2617 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0009 : LOCATE L_000a @ PUSH FAULT2 N PUSHI #0x00000008 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH KK p ASSPAR E CALL : LOCATE L_0009 2618 PTR=PTR+3 O LINE 2618 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTR @ PUSH PTR N PUSHI #0x00000003 + ADD S ASSVAL 2619 CNT=CNT+1 O LINE 2619 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CNT @ PUSH CNT N PUSHI #0x00000001 + ADD S ASSVAL 2620 MLINK(JJ) O LINE 2620 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MLINK @ PUSH JJ p ASSPAR E CALL 2621 %REPEAT %UNTIL A(PTR-1)=2 O LINE 2621 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH PTR N PUSHI #0x00000001 - SUB a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0007 B REPEAT L_0006 : LOCATE L_0007 2622 DECLARE SCALARS(0,0) O LINE 2622 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DECLARESCALARS N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2623 P=PP O LINE 2623 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH PP S ASSVAL 2624 %REPEAT; ! UNTIL NO MORE FP-PART O LINE 2624 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 2625 N=(N+3)&(-4); ! TO WORD BOUNDARY AFTER ALL SYSTEM 2626 ! STANDARD PARAMETERS HAVE BEEN DECLARED O LINE 2625 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N N PUSHI #0x00000003 + ADD N PUSHI #0x00000004 U NEGATE & AND S ASSVAL 2627 FAULT2(10,0,KK) %UNLESS JJ=0 O LINE 2627 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH FAULT2 N PUSHI #0x0000000a p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH KK p ASSPAR E CALL : LOCATE L_0004 2628 PTYPE=PTYPEP O LINE 2628 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE @ PUSH PTYPEP S ASSVAL 2629 %IF PTYPE&16_F0F=5 %THEN N=N+8;! STR FNS RESULT PARAM IS STACKED 2630 ! AS XTRA PARM JUST BEFORE DISPLAY O LINE 2629 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000f0f & AND N PUSHI #0x00000005 ? JUMPIF # L_0004 @ PUSH N @ PUSH N N PUSHI #0x00000008 + ADD S ASSVAL : LOCATE L_0004 2631 RDISPLAY(KK) O LINE 2631 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RDISPLAY @ PUSH KK p ASSPAR E CALL 2632 MAKE DECS(MARKER1+1) O LINE 2632 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MAKEDECS @ PUSH MARKER1 N PUSHI #0x00000001 + ADD p ASSPAR E CALL 2633 %END O LINE 2633 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_lev4id6_lev5id7 {lev=6 --> 5} 2634 BEND: %END; ->CSSEXIT 2635 ! O LINE 2634 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_020e O LINE 2634 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_lev4id6 {lev=5 --> 4} O LINE 2634 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 2636 SW(13): !REALS(LN) O LINE 2636 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x0000000d _ SLABEL 470 2637 FAULT(58,0) %UNLESS CPRMODE=0 O LINE 2637 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPRMODE N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH FAULT N PUSHI #0x0000003a p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 2638 ALL LONG=A(P+1)&1;->CSSEXIT 2639 ! O LINE 2638 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALLLONG @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000001 & AND S ASSVAL O LINE 2638 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 2640 SW(14): !%BEGIN O LINE 2640 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x0000000e _ SLABEL 470 2641 %BEGIN O LINE 2641 "regression-compile-tmp/nrimp10s-77.imp" H BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id8 {lev=4 --> 5} 2642 PTYPE=0 O LINE 2642 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000000 S ASSVAL 2643 %IF LEVEL=1 %AND RLEVEL=0 %AND CPRMODE=0 %START O LINE 2643 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH RLEVEL N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH CPRMODE N PUSHI #0x00000000 ? JUMPIF # L_0004 2644 CODE DES(JJ) O LINE 2644 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODEDES @ PUSH JJ p ASSPAR E CALL 2645 DEFINE EP(MAINEP, CA, JJ, 1) O LINE 2645 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DEFINEEP @ PUSH MAINEP p ASSPAR @ PUSH CA p ASSPAR @ PUSH JJ p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 2646 RLEVEL=1; RBASE=1 O LINE 2646 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RLEVEL N PUSHI #0x00000001 S ASSVAL O LINE 2646 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RBASE N PUSHI #0x00000001 S ASSVAL 2647 L(1)=0; M(1)=0; DIAGINF(1)=0; AUXSBASE(1)=0 O LINE 2647 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH L N PUSHI #0x00000001 a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 2647 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH M N PUSHI #0x00000001 a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 2647 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DIAGINF N PUSHI #0x00000001 a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 2647 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AUXSBASE N PUSHI #0x00000001 a ACCESS N PUSHI #0x00000000 S ASSVAL 2648 CPRMODE=1 O LINE 2648 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPRMODE N PUSHI #0x00000001 S ASSVAL 2649 N=24; NMAX=N O LINE 2649 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N N PUSHI #0x00000018 S ASSVAL O LINE 2649 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NMAX @ PUSH N S ASSVAL 2650 FORGET(-1) O LINE 2650 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FORGET N PUSHI #0x00000001 U NEGATE p ASSPAR E 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 ! O LINE 2651 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DIAGPOINTER @ PUSH LEVEL N PUSHI #0x00000001 + ADD p ASSPAR E CALL 2659 PSF1(STD,1,12) O LINE 2659 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000058 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x0000000c p ASSPAR E CALL 2660 PSF1(LXN,1,16) O LINE 2660 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000007e p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000010 p ASSPAR E 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 ! O LINE 2661 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000005c p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000003 p ASSPAR N PUSHI #0x00000014 p ASSPAR E CALL 2668 PF1(STLN,0,TOS,0) O LINE 2668 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000005c p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2669 PF1(LSS,0,TOS,0) O LINE 2669 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2670 PSF1(IAD,0,24) O LINE 2670 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x000000e0 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000018 p ASSPAR E CALL 2671 PF1(STSF,0,TOS,0) O LINE 2671 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000005e p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2672 PF1(ISB,0,TOS,0) O LINE 2672 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x000000e2 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2673 PSF1(ISH,0,-2) O LINE 2673 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x000000e8 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000002 U NEGATE p ASSPAR E CALL 2674 PF1(ST,0,BREG,0) O LINE 2674 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000007 p ASSPAR N PUSHI #0x00000000 p ASSPAR E 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 ! O LINE 2675 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000006e p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000007 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2682 PF1(MPSR,0,0,16_40C0) O LINE 2682 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000032 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x000040c0 p ASSPAR E CALL 2683 PTYPE=1 O LINE 2683 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000001 S ASSVAL 2684 %FINISH %ELSE SET LINE; ! SO 'ENTERED FROM LINE' IS OK O LINE 2684 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 @ PUSH SETLINE E CALL : LOCATE L_0003 2685 RHEAD(-1) O LINE 2685 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RHEAD N PUSHI #0x00000001 U NEGATE p ASSPAR E CALL 2686 RDISPLAY(-1) O LINE 2686 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RDISPLAY N PUSHI #0x00000001 U NEGATE p ASSPAR E CALL 2687 MAKE DECS(P+1) O LINE 2687 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MAKEDECS @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR E CALL 2688 %END O LINE 2688 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_lev4id8 {lev=5 --> 4} 2689 ->CSSEXIT 2690 ! O LINE 2689 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 2691 SW(15): 2692 ! '%ON'(EVENT')(N)(NLIST)'%START' O LINE 2691 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x0000000f _ SLABEL 470 2693 FAULT(57,0) %UNLESS LEVEL>=2 O LINE 2693 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF >= L_0004 @ PUSH FAULT N PUSHI #0x00000039 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 2694 FAULT(40,0) %IF NMDECS(LEVEL)&1#0 O LINE 2694 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NMDECS @ PUSH LEVEL a ACCESS N PUSHI #0x00000001 & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH FAULT N PUSHI #0x00000028 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 2695 NMDECS(LEVEL)=NMDECS(LEVEL)!16_11;! NO MORE DECS AND IN ONCOND O LINE 2695 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NMDECS @ PUSH LEVEL a ACCESS @ PUSH NMDECS @ PUSH LEVEL a ACCESS N PUSHI #0x00000011 ! OR S ASSVAL 2696 %IF STACK=0 %THEN %START O LINE 2696 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STACK N PUSHI #0x00000000 ? JUMPIF # L_0004 2697 SAVE AUX STACK O LINE 2697 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SAVEAUXSTACK E CALL 2698 DISP=AUXSBASE(LEVEL) O LINE 2698 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP @ PUSH AUXSBASE @ PUSH LEVEL a ACCESS S ASSVAL 2699 PSF1(LSS,2,DISP); ! SAVE TOP OF AUX STACK O LINE 2699 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH DISP p ASSPAR E CALL 2700 PSF1(ST,1,DISP+12) O LINE 2700 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH DISP N PUSHI #0x0000000c + ADD p ASSPAR E CALL 2701 %FINISH O LINE 2701 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 2702 GRUSE(ACCR)=0 O LINE 2702 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL 2703 PSF1(CPSR,1,N+8) O LINE 2703 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000034 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N N PUSHI #0x00000008 + ADD p ASSPAR E CALL 2704 PLABEL=PLABEL-1 O LINE 2704 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PLABEL @ PUSH PLABEL N PUSHI #0x00000001 - SUB S ASSVAL 2705 JJJ=PLABEL O LINE 2705 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJJ @ PUSH PLABEL S ASSVAL 2706 ENTER JUMP(15,JJJ,B'10'); ! JUMP ROUND ON BODY 2707 ! O LINE 2706 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ENTERJUMP N PUSHI #0x0000000f p ASSPAR @ PUSH JJJ p ASSPAR N PUSHI #0x00000002 p ASSPAR E CALL 2708 P=P+2; JJ=0; ! SET UP A BITMASK IN JJ O LINE 2708 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL O LINE 2708 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ N PUSHI #0x00000000 S ASSVAL 2709 {%UNTIL A(P-1)=2} %CYCLE; ! UNTIL NO MORE NLIST O LINE 2709 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 2710 KK=A(P) O LINE 2710 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KK @ PUSH A @ PUSH P a ACCESS S ASSVAL 2711 FAULT2(26,KK,0) %UNLESS 1<=KK<=14 O LINE 2711 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 @ PUSH KK " JUMPIFD > L_0008 N PUSHI #0x0000000e ? JUMPIF <= L_0007 : LOCATE L_0008 @ PUSH FAULT2 N PUSHI #0x0000001a p ASSPAR @ PUSH KK p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0007 2712 JJ=JJ!1<<(KK-1) O LINE 2712 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ @ PUSH JJ N PUSHI #0x00000001 @ PUSH KK N PUSHI #0x00000001 - SUB [ LSH ! OR S ASSVAL 2713 P=P+2 O LINE 2713 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 2714 %REPEAT %UNTIL A(P-1)=2 O LINE 2714 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 - SUB a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0004 B REPEAT L_0003 : LOCATE L_0004 2715 KK=CA; PGLA(4,4,ADDR(CA)) O LINE 2715 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KK @ PUSH CA S ASSVAL O LINE 2715 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PGLA N PUSHI #0x00000004 p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH ADDR @ PUSH CA p ASSPAR E CALL p ASSPAR E CALL 2716 RELOCATE(GLACA-4,KK,1); ! ENTRY ADDRESS IN PLT O LINE 2716 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RELOCATE @ PUSH GLACA N PUSHI #0x00000004 - SUB p ASSPAR @ PUSH KK p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 2717 ONWORD(LEVEL)=JJ<<18!(GLACA-4) O LINE 2717 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ONWORD @ PUSH LEVEL a ACCESS @ PUSH JJ N PUSHI #0x00000012 [ LSH @ PUSH GLACA N PUSHI #0x00000004 - SUB ! OR S ASSVAL 2718 FORGET(-1) O LINE 2718 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FORGET N PUSHI #0x00000001 U NEGATE p ASSPAR E CALL 2719 PSF1(ST,1,N); ! STORE EVENT,SUBEVENT&LINE O LINE 2719 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N p ASSPAR E CALL 2720 PSF1(MPSR,1,N+8) O LINE 2720 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000032 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N N PUSHI #0x00000008 + ADD p ASSPAR E CALL 2721 ONINF(LEVEL)=N; N=N+12 O LINE 2721 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ONINF @ PUSH LEVEL a ACCESS @ PUSH N S ASSVAL O LINE 2721 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N N PUSHI #0x0000000c + ADD S ASSVAL 2722 %IF STACK=0 %THEN %START O LINE 2722 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STACK N PUSHI #0x00000000 ? JUMPIF # L_0004 2723 PSF1(LSS,1,DISP+12); ! RESET AUX STACK TOP O LINE 2723 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH DISP N PUSHI #0x0000000c + ADD p ASSPAR E CALL 2724 PSF1(ST,2,DISP) O LINE 2724 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH DISP p ASSPAR E CALL 2725 %FINISH O LINE 2725 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 2726 CSTART(0,3) O LINE 2726 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CSTART N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000003 p ASSPAR E CALL 2727 NMDECS(LEVEL)=NMDECS(LEVEL)!!16_10;! NOT IN ONCOND O LINE 2727 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NMDECS @ PUSH LEVEL a ACCESS @ PUSH NMDECS @ PUSH LEVEL a ACCESS N PUSHI #0x00000010 % XOR S ASSVAL 2728 JJ=ENTER LAB(JJJ,B'111'); ! REPLACE ENVIRONMENT O LINE 2728 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ @ PUSH ENTERLAB @ PUSH JJJ p ASSPAR N PUSHI #0x00000007 p ASSPAR E CALL S ASSVAL 2729 ->CSSEXIT O LINE 2729 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 2730 SW(16): O LINE 2730 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000010 _ SLABEL 470 2731 FAULT(57,0) %UNLESS LEVEL>=2 O LINE 2731 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF >= L_0004 @ PUSH FAULT N PUSHI #0x00000039 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 2732 %BEGIN; ! %SWITCH (SWITCH LIST) O LINE 2732 "regression-compile-tmp/nrimp10s-77.imp" H BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id9 {lev=4 --> 5} 2733 %INTEGER Q,RANGE,KKK,KK,LB,PP,D0,D1,OPHEAD,V,ARRP,R O LINE 2733 "regression-compile-tmp/nrimp10s-77.imp" $ DEF Q p1=V_0209 a/tf=11 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_020a a/tf=11 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_020b a/tf=11 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_020c a/tf=11 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_020d a/tf=11 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_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 D0 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 $ DEF D1 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 OPHEAD 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 V 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 ARRP 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 R 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 2734 Q=P O LINE 2734 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH P S ASSVAL 2735 ARRP=1 O LINE 2735 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARRP N PUSHI #0x00000001 S ASSVAL 2736 %IF PARMOPT=0 %THEN ARRP=2 O LINE 2736 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMOPT N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH ARRP N PUSHI #0x00000002 S ASSVAL : LOCATE L_0004 2737 {%UNTIL A(Q)=2} %CYCLE; ! UNTIL NO'REST OF SW LIST' O LINE 2737 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 2738 P=P+3 O LINE 2738 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL 2739 P=P+3 %WHILE A(P)=1 O LINE 2739 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL B REPEAT L_0006 : LOCATE L_0007 2740 P=P+4; ! TO P(+') O LINE 2740 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000004 + ADD S ASSVAL 2741 KKK=INTEXP(LB); ! EXTRACT LOWER BOUND O LINE 2741 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KKK @ PUSH INTEXP @ PUSH LB p ASSPAR E CALL S ASSVAL 2742 P=P+3 O LINE 2742 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL 2743 KKK=KKK!INTEXP(KK); ! EXTRACT UPPER BOUND O LINE 2743 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KKK @ PUSH KKK @ PUSH INTEXP @ PUSH KK p ASSPAR E CALL ! OR S ASSVAL 2744 RANGE=(KK-LB+1) O LINE 2744 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RANGE @ PUSH KK @ PUSH LB - SUB N PUSHI #0x00000001 + ADD S ASSVAL 2745 %IF RANGE<=0 %OR KKK#0 %START O LINE 2745 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RANGE N PUSHI #0x00000000 ? JUMPIF <= L_0008 @ PUSH KKK N PUSHI #0x00000000 ? JUMPIF = L_0007 : LOCATE L_0008 2746 FAULT2(38,1-RANGE,FROMAR2(Q+1)) O LINE 2746 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FAULT2 N PUSHI #0x00000026 p ASSPAR N PUSHI #0x00000001 @ PUSH RANGE - SUB p ASSPAR @ PUSH FROMAR2 @ PUSH Q N PUSHI #0x00000001 + ADD p ASSPAR E CALL p ASSPAR E CALL 2747 LB=0; KK=10; RANGE=11 O LINE 2747 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LB N PUSHI #0x00000000 S ASSVAL O LINE 2747 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KK N PUSHI #0x0000000a S ASSVAL O LINE 2747 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RANGE N PUSHI #0x0000000b S ASSVAL 2748 %FINISH O 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 O LINE 2749 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GLACA N PUSHI #0x00000008 + ADD N PUSHI #0x00000004 @ PUSH LB * MUL - SUB N PUSHI #0x00000000 ? JUMPIF >= L_0007 @ PUSH ARRP N PUSHI #0x00000001 S ASSVAL : LOCATE L_0007 2750 PTYPE=16_56+ARRP<<8; ! WORD LABEL ARRAY O LINE 2750 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000056 @ PUSH ARRP N PUSHI #0x00000008 [ LSH + ADD S ASSVAL 2751 PP=P; P=Q+1 O LINE 2751 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PP @ PUSH P S ASSVAL O LINE 2751 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH Q N PUSHI #0x00000001 + ADD S ASSVAL 2752 {%UNTIL A(P-1)=2} %CYCLE; ! DOWN NAMELIST O LINE 2752 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 2753 K=FROM AR2(P) O LINE 2753 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH FROMAR2 @ PUSH P p ASSPAR E CALL S ASSVAL 2754 P=P+3 O LINE 2754 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S 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 ! O LINE 2755 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OPHEAD N PUSHI #0x00000000 S ASSVAL O LINE 2755 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH LB S ASSVAL 2760 {%UNTIL R>KK} %CYCLE O LINE 2760 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0009 2761 PUSH(OPHEAD,0,0,0) O LINE 2761 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PUSH @ PUSH OPHEAD p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 2762 R=R+96 O LINE 2762 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R N PUSHI #0x00000060 + ADD S 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 O LINE 2763 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH KK ? JUMPIF > L_000a B REPEAT L_0009 : LOCATE L_000a 2769 D1=(GLACA+15)&(-8); ! FIRST TABLE ENTRY O LINE 2769 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D1 @ PUSH GLACA N PUSHI #0x0000000f + ADD N PUSHI #0x00000008 U NEGATE & AND S ASSVAL 2770 D0=16_28000000!RANGE; ! SCALED WORD DES O LINE 2770 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D0 N PUSHI #0x28000000 @ PUSH RANGE ! OR S ASSVAL 2771 %IF ARRP=2 %THEN %START O LINE 2771 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARRP N PUSHI #0x00000002 ? JUMPIF # L_000a 2772 D0=D0!16_01000000 %UNLESS LB=0;! SET BCI BIT O LINE 2772 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LB N PUSHI #0x00000000 ? JUMPIF = L_000d @ PUSH D0 @ PUSH D0 N PUSHI #0x01000000 ! OR S ASSVAL : LOCATE L_000d 2773 D1=D1-4*LB O LINE 2773 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D1 @ PUSH D1 N PUSHI #0x00000004 @ PUSH LB * MUL - SUB S ASSVAL 2774 %FINISH O LINE 2774 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000a 2775 PGLA(8,8,ADDR(D0)) O LINE 2775 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PGLA N PUSHI #0x00000008 p ASSPAR N PUSHI #0x00000008 p ASSPAR @ PUSH ADDR @ PUSH D0 p ASSPAR E CALL p ASSPAR E CALL 2776 SNDISP=GLACA>>2-2; ! WORD PLT DISP O LINE 2776 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SNDISP @ PUSH GLACA N PUSHI #0x00000002 ] RSH N PUSHI #0x00000002 - SUB S ASSVAL 2777 RELOCATE(GLACA-4,D1,2); ! RELOCATE RELATIVE TO GLA O LINE 2777 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RELOCATE @ PUSH GLACA N PUSHI #0x00000004 - SUB p ASSPAR @ PUSH D1 p ASSPAR N PUSHI #0x00000002 p ASSPAR E CALL 2778 PUSH(OPHEAD,D1,LB,KK) O LINE 2778 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PUSH @ PUSH OPHEAD p ASSPAR @ PUSH D1 p ASSPAR @ PUSH LB p ASSPAR @ PUSH KK p ASSPAR E CALL 2779 KFORM=0; ACC=4 O LINE 2779 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KFORM N PUSHI #0x00000000 S ASSVAL O LINE 2779 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC N PUSHI #0x00000004 S 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 ! O LINE 2780 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000001 S ASSVAL O LINE 2780 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STORETAG @ PUSH K p ASSPAR @ PUSH OPHEAD p ASSPAR E CALL 2785 V=PLABS(6) O LINE 2785 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH V @ PUSH PLABS N PUSHI #0x00000006 a ACCESS S ASSVAL 2786 %CYCLE KKK=LB,1,KK O LINE 2786 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KKK N PUSHI #0x00000001 @ PUSH KK @ PUSH LB f FOR L_0009 2787 RELOCATE(-1,V,1); ! PLABS(6) RELOCATED BY HD OF CODE O LINE 2787 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RELOCATE N PUSHI #0x00000001 U NEGATE p ASSPAR @ PUSH V p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 2788 %REPEAT O LINE 2788 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0009 : LOCATE L_000a 2789 %REPEAT %UNTIL A(P-1)=2; ! FOR ANY MORE NAMES IN NAMELIST O LINE 2789 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 - SUB a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0007 B REPEAT L_0006 : LOCATE L_0007 2790 Q=PP; P=Q O LINE 2790 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH PP S ASSVAL O LINE 2790 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH Q S ASSVAL 2791 %REPEAT %UNTIL A(Q)=2; ! UNTIL A(Q)=2 O LINE 2791 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH Q a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0004 B REPEAT L_0003 : LOCATE L_0004 2792 %END;->CSSEXIT 2793 ! O LINE 2792 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_lev4id9 {lev=5 --> 4} O LINE 2792 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 2794 SW(17): LIST=1; ->CSSEXIT 2795 ! O LINE 2794 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000011 _ SLABEL 470 O LINE 2794 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LIST N PUSHI #0x00000001 S ASSVAL O LINE 2794 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 2796 SW(12): ! '%OWN' (TYPE)(OWNDEC) O LINE 2796 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x0000000c _ SLABEL 470 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 !*********************************************************************** O LINE 2797 "regression-compile-tmp/nrimp10s-77.imp" H BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id10 {lev=4 --> 5} 2808 %ROUTINESPEC CLEAR(%INTEGER L) O LINE 2808 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CLEAR (_lev0id0_lev1id1_lev2id3_CSS_lev4id10_CLEAR) p1=V_0209 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_020a a/tf=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) O LINE 2809 "regression-compile-tmp/nrimp10s-77.imp" $ DEF STAG (_lev0id0_lev1id1_lev2id3_CSS_lev4id10_STAG) p1=V_020a 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_020b a/tf=11 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_020c a/tf=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) O LINE 2810 "regression-compile-tmp/nrimp10s-77.imp" $ DEF XTRACTCONST (_lev0id0_lev1id1_lev2id3_CSS_lev4id10_XTRACTCONST) p1=V_020b 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_020c a/tf=11 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_020d a/tf=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) O LINE 2811 "regression-compile-tmp/nrimp10s-77.imp" $ DEF INITSPACE (_lev0id0_lev1id1_lev2id3_CSS_lev4id10_INITSPACE) p1=V_020c 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_020d a/tf=11 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_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=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 O LINE 2812 "regression-compile-tmp/nrimp10s-77.imp" $ DEF LENGTH p1=V_020d a/tf=11 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_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 PP 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 $ DEF SIGN 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 CBASE 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 MODE 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 UICONST 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 ICONST 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 TAGDISP 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 EPTYPE 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 EPDISP 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 AH1 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 AH2 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 $ DEF AH3 p1=V_021a a/tf=11 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_021b a/tf=11 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_021c a/tf=11 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_021d a/tf=11 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_021e a/tf=11 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_021f a/tf=11 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_0220 a/tf=11 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_0221 a/tf=11 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_0222 a/tf=11 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_0223 a/tf=11 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_0224 a/tf=11 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_0225 a/tf=11 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_0226 a/tf=11 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_0227 a/tf=11 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_0228 a/tf=11 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_0229 a/tf=11 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_022a a/tf=11 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_022b a/tf=11 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_022c a/tf=11 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_022d a/tf=11 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_022e a/tf=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 O LINE 2816 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RCONST p1=V_022f 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_0230 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 O LINE 2817 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 $ DEF ZERO p1=V_0231 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 A INIT 1 2818 %STRING(255) SCONST,NAMTXT O LINE 2818 "regression-compile-tmp/nrimp10s-77.imp" $ DEF SCONST p1=V_0232 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_0233 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 O LINE 2819 "regression-compile-tmp/nrimp10s-77.imp" $ DEF STPTR p1=V_0234 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 O LINE 2820 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LPUTP N PUSHI #0x00000005 S ASSVAL O LINE 2820 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STPTR @ PUSH USTPTR Z ASSREF 2822 EXTRN=A(P+1) O LINE 2822 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS S ASSVAL 2823 %IF EXTRN>=4 %THEN EXTRN=0; ! CONST & CONSTANT->0 O LINE 2823 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000004 ? JUMPIF < L_0004 @ PUSH EXTRN N PUSHI #0x00000000 S ASSVAL : LOCATE L_0004 2824 LITL=EXTRN O LINE 2824 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LITL @ PUSH EXTRN S ASSVAL 2825 %IF LITL<=1 %THEN LITL=LITL!!1 O LINE 2825 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LITL N PUSHI #0x00000001 ? JUMPIF > L_0004 @ PUSH LITL @ PUSH LITL N PUSHI #0x00000001 % XOR S ASSVAL : LOCATE L_0004 2826 KFORM=0; SNDISP=0 O LINE 2826 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KFORM N PUSHI #0x00000000 S ASSVAL O LINE 2826 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SNDISP N PUSHI #0x00000000 S ASSVAL 2827 CONSTS FOUND=0 O LINE 2827 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTSFOUND N PUSHI #0x00000000 S ASSVAL 2828 %IF EXTRN=0 %THEN LPUTP=4 %AND STPTR==SSTL O LINE 2828 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH LPUTP N PUSHI #0x00000004 S ASSVAL @ PUSH STPTR @ PUSH SSTL Z ASSREF : LOCATE L_0004 2829 P=P+3; CBASE=0 O LINE 2829 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL O LINE 2829 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CBASE N PUSHI #0x00000000 S ASSVAL 2830 MODE=A(P-1); ! MODE =1 FOR NORMAL OWNS O LINE 2830 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE @ PUSH A @ PUSH P N PUSHI #0x00000001 - SUB a ACCESS S ASSVAL 2831 ->RECORD %IF MODE>1; ! MODE =2 FOR OWN RECORDS O LINE 2831 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000001 ? JUMPIF <= L_0004 J JUMP L_0235 : LOCATE L_0004 2832 CLT; ! MODE =3 FOR OWN RECORD ARRAYS O LINE 2832 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CLT E CALL 2833 %IF A(P)=1 %THEN CQN(P+1) %ELSE ARR=1 %AND NAM=0 O LINE 2833 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH CQN @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR E CALL F GOTO L_0003 : LOCATE L_0004 @ PUSH ARR N PUSHI #0x00000001 S ASSVAL @ PUSH NAM N PUSHI #0x00000000 S ASSVAL : LOCATE L_0003 2834 %IF TYPE=5 %AND ACC=0=NAM %THEN FAULT(70,0) %AND ACC=2 O LINE 2834 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000005 ? JUMPIF # L_0004 @ PUSH ACC N PUSHI #0x00000000 " JUMPIFD # L_0004 @ PUSH NAM ? JUMPIF # L_0004 @ PUSH FAULT N PUSHI #0x00000046 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL @ PUSH ACC N PUSHI #0x00000002 S ASSVAL : LOCATE L_0004 2835 ROUT=0; PACK(PTYPE) O LINE 2835 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUT N PUSHI #0x00000000 S ASSVAL O LINE 2835 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PACK @ PUSH PTYPE p ASSPAR E CALL 2836 -> NON SCALAR %IF ARR#0 %AND NAM=0 O LINE 2836 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARR N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH NAM N PUSHI #0x00000000 ? JUMPIF # L_0004 J JUMP L_0236 : LOCATE L_0004 2837 P=P+1 O LINE 2837 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 2838 {%UNTIL A(MARK)=2} %CYCLE; ! UNTIL NULL O LINE 2838 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 2839 MARK= P+1+FROM AR2(P+1) O LINE 2839 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARK @ PUSH P N PUSHI #0x00000001 + ADD @ PUSH FROMAR2 @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR E CALL + ADD S ASSVAL 2840 NNAMES=1 O LINE 2840 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NNAMES N PUSHI #0x00000001 S ASSVAL 2841 PP=P+3; P=PP+2; ! PP ON FIRST NAME' O LINE 2841 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PP @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL O LINE 2841 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH PP N PUSHI #0x00000002 + ADD S ASSVAL 2842 %WHILE A(P)=1 %%CYCLE O LINE 2842 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0007 2843 NNAMES=NNAMES+1 O LINE 2843 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NNAMES @ PUSH NNAMES N PUSHI #0x00000001 + ADD S ASSVAL 2844 P=P+3 O LINE 2844 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL 2845 %REPEAT O LINE 2845 "regression-compile-tmp/nrimp10s-77.imp" B 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 ! O LINE 2846 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 2850 ICONST=0; UICONST=0 O LINE 2850 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ICONST N PUSHI #0x00000000 S ASSVAL O LINE 2850 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UICONST N PUSHI #0x00000000 S ASSVAL 2851 RCONST=0; LRCONST=0; SCONST="" O LINE 2851 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RCONST N PUSHI #0x00000000 S ASSVAL O LINE 2851 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LRCONST N PUSHI #0x00000000 S ASSVAL O LINE 2851 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SCONST ' PUSHS "" S ASSVAL 2852 SIGN=3; CTYPE=TYPE; CONSTSFOUND=0; CPREC=PREC O LINE 2852 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SIGN N PUSHI #0x00000003 S ASSVAL O LINE 2852 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTYPE @ PUSH TYPE S ASSVAL O LINE 2852 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTSFOUND N PUSHI #0x00000000 S ASSVAL O LINE 2852 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPREC @ PUSH PREC S ASSVAL 2853 %IF NAM#0 %THEN CTYPE=1 %AND CPREC=5 2854 ! O LINE 2853 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH CTYPE N PUSHI #0x00000001 S ASSVAL @ PUSH CPREC N PUSHI #0x00000005 S ASSVAL : LOCATE L_0007 2855 %IF A(P)=1 %THEN %START; ! CONSTANT GIVEN O LINE 2855 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0007 2856 P=P+1 O LINE 2856 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 2857 XTRACT CONST(CTYPE,CPREC) O LINE 2857 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XTRACTCONST @ PUSH CTYPE p ASSPAR @ PUSH CPREC p ASSPAR E CALL 2858 %FINISH 2859 ! O LINE 2858 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 2860 {%UNTIL NNAMES=0} %CYCLE; ! DOWN O LINE 2860 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 2861 J=0; K=FROM AR2(PP) O LINE 2861 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL O LINE 2861 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH FROMAR2 @ PUSH PP p ASSPAR E CALL S ASSVAL 2862 NAMTXT=STRING(DICTBASE+WORD(K)) O LINE 2862 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAMTXT @ PUSH STRING @ PUSH DICTBASE @ PUSH WORD @ PUSH K a ACCESS + ADD p ASSPAR E CALL S ASSVAL 2863 %IF NAM#0 %THEN %START; ! OWNNAMES AND ARRAYNAMES O LINE 2863 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000000 ? JUMPIF = L_000a 2864 %IF EXTRN=3 %THEN FAULT2(46,0,K);! NO EXTRINSIC NAMES O LINE 2864 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000003 ? JUMPIF # L_000d @ PUSH FAULT2 N PUSHI #0x0000002e p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH K p ASSPAR E CALL : LOCATE L_000d 2865 UICONST=16_FFFF!PREC<<27 O LINE 2865 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UICONST N PUSHI #0x0000ffff @ PUSH PREC N PUSHI #0x0000001b [ LSH ! OR S ASSVAL 2866 PGLA(8,ACC,ADDR(UICONST)) O LINE 2866 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PGLA N PUSHI #0x00000008 p ASSPAR @ PUSH ACC p ASSPAR @ PUSH ADDR @ PUSH UICONST p ASSPAR E CALL p ASSPAR E CALL 2867 TAGDISP=GLACA-ACC; EPDISP=TAGDISP O LINE 2867 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TAGDISP @ PUSH GLACA @ PUSH ACC - SUB S ASSVAL O LINE 2867 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EPDISP @ PUSH TAGDISP S ASSVAL 2868 %FINISH %ELSE %START O LINE 2868 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0009 : LOCATE L_000a 2869 %IF TYPE=5 %THEN %START; ! STRING O LINE 2869 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000005 ? JUMPIF # L_000d 2870 QQ=STPTR; AD=ADDR(SCONST) O LINE 2870 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH QQ @ PUSH STPTR S ASSVAL O LINE 2870 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AD @ PUSH ADDR @ PUSH SCONST p ASSPAR E CALL S ASSVAL 2871 %IF EXTRN=3 %THEN %START; ! EXTRINSIC STRINGS O LINE 2871 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000003 ? JUMPIF # L_0010 2872 AH3=0; AH2=PREC<<27!ACC; ! DUMMY STRING HEADER O LINE 2872 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AH3 N PUSHI #0x00000000 S ASSVAL O LINE 2872 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AH2 @ PUSH PREC N PUSHI #0x0000001b [ LSH @ PUSH ACC ! OR S ASSVAL 2873 %FINISH %ELSE %START O LINE 2873 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_000f : LOCATE L_0010 2874 LPUT(LPUTP,ACC,QQ,AD) %IF INHCODE=0;! O/P STRING O LINE 2874 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INHCODE N PUSHI #0x00000000 ? JUMPIF # L_0013 @ PUSH LPUT @ PUSH LPUTP p ASSPAR @ PUSH ACC p ASSPAR @ PUSH QQ p ASSPAR @ PUSH AD p ASSPAR E CALL : LOCATE L_0013 2875 STPTR=(STPTR+ACC+3)&(-4) O LINE 2875 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STPTR @ PUSH STPTR @ PUSH ACC + ADD N PUSHI #0x00000003 + ADD N PUSHI #0x00000004 U NEGATE & AND S ASSVAL 2876 AH3=QQ; AH2=3<<27!ACC O LINE 2876 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AH3 @ PUSH QQ S ASSVAL O LINE 2876 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AH2 N PUSHI #0x00000003 N PUSHI #0x0000001b [ LSH @ PUSH ACC ! OR S ASSVAL 2877 %FINISH O LINE 2877 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000f 2878 PGLA(8,8,ADDR(AH2)) O LINE 2878 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PGLA N PUSHI #0x00000008 p ASSPAR N PUSHI #0x00000008 p ASSPAR @ PUSH ADDR @ PUSH AH2 p ASSPAR E CALL p ASSPAR E CALL 2879 TAGDISP=GLACA-8 O LINE 2879 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TAGDISP @ PUSH GLACA N PUSHI #0x00000008 - SUB S ASSVAL 2880 %IF EXTRN=3 %THEN GXREF(NAMTXT,2,2<<24!ACC,TAGDISP+4) %ELSE RELOCATE(TAGDISP+4,AH3,LPUTP) O LINE 2880 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000003 ? JUMPIF # L_0010 @ PUSH GXREF @ PUSH NAMTXT p ASSPAR N PUSHI #0x00000002 p ASSPAR N PUSHI #0x00000002 N PUSHI #0x00000018 [ LSH @ PUSH ACC ! OR p ASSPAR @ PUSH TAGDISP N PUSHI #0x00000004 + ADD p ASSPAR E CALL F GOTO L_000f : LOCATE L_0010 @ PUSH RELOCATE @ PUSH TAGDISP N PUSHI #0x00000004 + ADD p ASSPAR @ PUSH AH3 p ASSPAR @ PUSH LPUTP p ASSPAR E CALL : LOCATE L_000f 2881 EPTYPE=5; EPDISP=QQ; ! DATA IN GLA SYMBOL TABLES O LINE 2881 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EPTYPE N PUSHI #0x00000005 S ASSVAL O LINE 2881 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EPDISP @ PUSH QQ S ASSVAL 2882 %FINISH %ELSE %START; ! INTEGER & REAL O LINE 2882 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_000c : LOCATE L_000d 2883 %IF EXTRN=3 %THEN %START; ! EXTRINSICS O LINE 2883 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000003 ? JUMPIF # L_0010 2884 PTYPE=PTYPE!1<<10; ! EXTRINSICS VIA PTR O LINE 2884 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE @ PUSH PTYPE N PUSHI #0x00000001 N PUSHI #0x0000000a [ LSH ! OR S ASSVAL 2885 AH2=PREC<<27; AH3=0 O LINE 2885 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AH2 @ PUSH PREC N PUSHI #0x0000001b [ LSH S ASSVAL O LINE 2885 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AH3 N PUSHI #0x00000000 S ASSVAL 2886 PGLA(8,8,ADDR(AH2)) O LINE 2886 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PGLA N PUSHI #0x00000008 p ASSPAR N PUSHI #0x00000008 p ASSPAR @ PUSH ADDR @ PUSH AH2 p ASSPAR E CALL p ASSPAR E CALL 2887 TAGDISP=GLACA-8 O LINE 2887 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TAGDISP @ PUSH GLACA N PUSHI #0x00000008 - SUB S ASSVAL 2888 GXREF(NAMTXT,2,2<<24!ACC,TAGDISP+4) O LINE 2888 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GXREF @ PUSH NAMTXT p ASSPAR N PUSHI #0x00000002 p ASSPAR N PUSHI #0x00000002 N PUSHI #0x00000018 [ LSH @ PUSH ACC ! OR p ASSPAR @ PUSH TAGDISP N PUSHI #0x00000004 + ADD p ASSPAR E CALL 2889 %FINISH %ELSE %START; ! OWN,EXTERNAL&CONST O LINE 2889 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_000f : LOCATE L_0010 2890 %IF TYPE=2 %THEN %START O LINE 2890 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000002 ? JUMPIF # L_0013 2891 AD=ADDR(RCONST) O LINE 2891 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AD @ PUSH ADDR @ PUSH RCONST p ASSPAR E CALL S ASSVAL 2892 %FINISH %ELSE %START; ! INTEGER VARIABLES O LINE 2892 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0012 : LOCATE L_0013 2893 AD=ADDR(ICONST)+4-ACC O LINE 2893 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AD @ PUSH ADDR @ PUSH ICONST p ASSPAR E CALL N PUSHI #0x00000004 + ADD @ PUSH ACC - SUB S ASSVAL 2894 %FINISH O LINE 2894 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0012 2895 %IF EXTRN#0 %THEN PGLA(ACC,ACC,AD); ! PUT CONSTANT INTO GLA O LINE 2895 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000000 ? JUMPIF = L_0013 @ PUSH PGLA @ PUSH ACC p ASSPAR @ PUSH ACC p ASSPAR @ PUSH AD p ASSPAR E CALL : LOCATE L_0013 2896 TAGDISP=GLACA-ACC; ! OFFSET OF VAR FOR TAGS O LINE 2896 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TAGDISP @ PUSH GLACA @ PUSH ACC - SUB S ASSVAL 2897 EPDISP=TAGDISP; ! AND FOR ENTRY DEFN O LINE 2897 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EPDISP @ PUSH TAGDISP S ASSVAL 2898 EPTYPE=2; ! DATA IN ADRESSABLE GLA O LINE 2898 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EPTYPE N PUSHI #0x00000002 S ASSVAL 2899 %FINISH O LINE 2899 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000f 2900 %FINISH O LINE 2900 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000c 2901 %FINISH O LINE 2901 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0009 2902 STAG(TAGDISP,ACC) O LINE 2902 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STAG @ PUSH TAGDISP p ASSPAR @ PUSH ACC p ASSPAR E CALL 2903 %IF EXTRN=0=NAM %START; ! CONST = LITERAL O LINE 2903 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000000 " JUMPIFD # L_000a @ PUSH NAM ? JUMPIF # L_000a 2904 REPLACE2(TAGS(K),INTEGER(AD&(-4)));! BYTES! O LINE 2904 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REPLACE2 @ PUSH TAGS @ PUSH K a ACCESS p ASSPAR @ PUSH INTEGER @ PUSH AD N PUSHI #0x00000004 U NEGATE & AND p ASSPAR E CALL p ASSPAR E CALL 2905 %IF PREC=6 %THEN REPLACE3(TAGS(K),INTEGER(AD+4)) O LINE 2905 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000006 ? JUMPIF # L_000d @ PUSH REPLACE3 @ PUSH TAGS @ PUSH K a ACCESS p ASSPAR @ PUSH INTEGER @ PUSH AD N PUSHI #0x00000004 + ADD p ASSPAR E CALL p ASSPAR E CALL : LOCATE L_000d 2906 %IF PREC=7 %THEN REPLACE3(TAGS(K),CONSTP) O LINE 2906 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000007 ? JUMPIF # L_000d @ PUSH REPLACE3 @ PUSH TAGS @ PUSH K a ACCESS p ASSPAR @ PUSH CONSTP p ASSPAR E CALL : LOCATE L_000d 2907 %FINISH O LINE 2907 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000a 2908 PP=PP+3 O LINE 2908 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PP @ PUSH PP N PUSHI #0x00000003 + ADD S ASSVAL 2909 NNAMES=NNAMES-1 O LINE 2909 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NNAMES @ PUSH NNAMES N PUSHI #0x00000001 - SUB S ASSVAL 2910 %REPEAT %UNTIL NNAMES=0; ! DOWN O LINE 2910 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NNAMES N PUSHI #0x00000000 ? JUMPIF = L_0007 B REPEAT L_0006 : LOCATE L_0007 2911 P=MARK O LINE 2911 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH MARK S ASSVAL 2912 %REPEAT %UNTIL A(MARK)=2; ! UNTIL NULL O LINE 2912 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH MARK a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0004 B REPEAT L_0003 : LOCATE L_0004 2913 ->BEND O LINE 2913 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0237 2914 RECORD: ! '%RECORD' 2915 !*********************************************************************** 2916 !* NO INITIALISATION OF OWN RECORDS ALLOWED SO THEY ARE ALL * 2917 !* CLEARED TO ZERO. * 2918 !*********************************************************************** O LINE 2914 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0235 2919 MARKER1=P+1+FROM AR2(P+1); ! TO FORMAT NAME O LINE 2919 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKER1 @ PUSH P N PUSHI #0x00000001 + ADD @ PUSH FROMAR2 @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR E CALL + ADD S ASSVAL 2920 FNAM=FROM AR2(MARKER1) O LINE 2920 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FNAM @ PUSH FROMAR2 @ PUSH MARKER1 p ASSPAR E CALL S ASSVAL 2921 COPYTAG(FNAM) O LINE 2921 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COPYTAG @ PUSH FNAM p ASSPAR E CALL 2922 FINF=TCELL O LINE 2922 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FINF @ PUSH TCELL S ASSVAL 2923 %IF PTYPE#4 %THEN FAULT(62,FNAM) %AND ->BEND O LINE 2923 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000004 ? JUMPIF = L_0004 @ PUSH FAULT N PUSHI #0x0000003e p ASSPAR @ PUSH FNAM p ASSPAR E CALL J JUMP L_0237 : LOCATE L_0004 2924 PTYPE=16_133!LITL<<14 O LINE 2924 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000133 @ PUSH LITL N PUSHI #0x0000000e [ LSH ! OR S ASSVAL 2925 KFORM=FINF; UNPACK O LINE 2925 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KFORM @ PUSH FINF S ASSVAL O LINE 2925 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UNPACK E CALL 2926 %IF MODE=3 %THEN FORMAT=2-A(P) %AND P=P+2 %AND ->RECIN O LINE 2926 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000003 ? JUMPIF # L_0004 @ PUSH FORMAT N PUSHI #0x00000002 @ PUSH A @ PUSH P a ACCESS - SUB S ASSVAL @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL J JUMP L_0238 : LOCATE L_0004 2927 P=P+1; BP=ACC; ! SIZE OF RECORD FROM FORMAT O LINE 2927 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 2927 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BP @ PUSH ACC S ASSVAL 2928 PTYPE=16_33; J=0 O LINE 2928 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000033 S ASSVAL O LINE 2928 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 2929 %IF A(P-1)#3 %THEN CQN(P-1) %AND PACK(PTYPE) O LINE 2929 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 - SUB a ACCESS N PUSHI #0x00000003 ? JUMPIF = L_0004 @ PUSH CQN @ PUSH P N PUSHI #0x00000001 - SUB p ASSPAR E CALL @ PUSH PACK @ PUSH PTYPE p ASSPAR E CALL : LOCATE L_0004 2930 P=P+1; PTSIZE=ACC; ! SIZE OF HOLE FOR POINTER O LINE 2930 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 2930 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTSIZE @ PUSH ACC S ASSVAL 2931 {%UNTIL A(P)=2} %CYCLE O LINE 2931 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 2932 P=P+1; K=FROM AR2(P) O LINE 2932 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 2932 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH FROMAR2 @ PUSH P p ASSPAR E CALL S ASSVAL 2933 NAMTXT=STRING(DICTBASE+WORD(K)) O LINE 2933 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAMTXT @ PUSH STRING @ PUSH DICTBASE @ PUSH WORD @ PUSH K a ACCESS + ADD p ASSPAR E CALL S ASSVAL 2934 %IF NAM#0 %THEN %START; ! OWNNAMES AND ARRAYNAMES O LINE 2934 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000000 ? JUMPIF = L_0007 2935 %IF EXTRN=3 %THEN FAULT2(46,0,K);! NO EXTRINSIC NAMES O LINE 2935 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000003 ? JUMPIF # L_000a @ PUSH FAULT2 N PUSHI #0x0000002e p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH K p ASSPAR E CALL : LOCATE L_000a 2936 UICONST=16_FFFF!PREC<<27 O LINE 2936 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UICONST N PUSHI #0x0000ffff @ PUSH PREC N PUSHI #0x0000001b [ LSH ! OR S ASSVAL 2937 PGLA(8,PTSIZE,ADDR(UICONST)) O LINE 2937 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PGLA N PUSHI #0x00000008 p ASSPAR @ PUSH PTSIZE p ASSPAR @ PUSH ADDR @ PUSH UICONST p ASSPAR E CALL p ASSPAR E CALL 2938 EPTYPE=2 O LINE 2938 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EPTYPE N PUSHI #0x00000002 S ASSVAL 2939 TAGDISP=GLACA-PTSIZE; EPDISP=TAGDISP O LINE 2939 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TAGDISP @ PUSH GLACA @ PUSH PTSIZE - SUB S ASSVAL O LINE 2939 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EPDISP @ PUSH TAGDISP S ASSVAL 2940 %FINISH %ELSE %START O LINE 2940 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 2941 %IF EXTRN=3 %THEN %START; ! EXTRINISIC O LINE 2941 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000003 ? JUMPIF # L_000a 2942 PTYPE=PTYPE!16_400; ! FORCE NAM=1 (IE VIA POINTER) O LINE 2942 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE @ PUSH PTYPE N PUSHI #0x00000400 ! OR S ASSVAL 2943 AH2=16_18000000+BP O LINE 2943 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AH2 N PUSHI #0x18000000 @ PUSH BP + ADD S ASSVAL 2944 AH3=0 O LINE 2944 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AH3 N PUSHI #0x00000000 S ASSVAL 2945 PGLA(8,8,ADDR(AH2)) O LINE 2945 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PGLA N PUSHI #0x00000008 p ASSPAR N PUSHI #0x00000008 p ASSPAR @ PUSH ADDR @ PUSH AH2 p ASSPAR E CALL p ASSPAR E CALL 2946 TAGDISP=GLACA-8 O LINE 2946 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TAGDISP @ PUSH GLACA N PUSHI #0x00000008 - SUB S ASSVAL 2947 GXREF(NAMTXT,2,2<<24!BP,TAGDISP+4); ! RELOCATE BY EXTERNAL O LINE 2947 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GXREF @ PUSH NAMTXT p ASSPAR N PUSHI #0x00000002 p ASSPAR N PUSHI #0x00000002 N PUSHI #0x00000018 [ LSH @ PUSH BP ! OR p ASSPAR @ PUSH TAGDISP N PUSHI #0x00000004 + ADD p ASSPAR E CALL 2948 %FINISH %ELSE %START O LINE 2948 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0009 : LOCATE L_000a 2949 EPDISP=(GLACA+15)&(-8) O LINE 2949 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EPDISP @ PUSH GLACA N PUSHI #0x0000000f + ADD N PUSHI #0x00000008 U NEGATE & AND S ASSVAL 2950 AH3=EPDISP O LINE 2950 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AH3 @ PUSH EPDISP S ASSVAL 2951 AH2=16_18000000+BP; ! TOP WORD OFDESRCIPTOR O LINE 2951 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AH2 N PUSHI #0x18000000 @ PUSH BP + ADD S ASSVAL 2952 PGLA(8,4,ADDR(AH2)); ! ADDED 18MAR76 TO FIX BUG O LINE 2952 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PGLA N PUSHI #0x00000008 p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH ADDR @ PUSH AH2 p ASSPAR E CALL p ASSPAR E CALL 2953 RELOCATE(-1,AH3,2); ! PUT DISP INTO GLA O LINE 2953 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RELOCATE N PUSHI #0x00000001 U NEGATE p ASSPAR @ PUSH AH3 p ASSPAR N PUSHI #0x00000002 p ASSPAR E CALL 2954 TAGDISP=EPDISP; ! AND RELOCATE REL APPROPIATE AREA O LINE 2954 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TAGDISP @ PUSH EPDISP S ASSVAL 2955 EPTYPE=2; ! DATA IN GLA TABLES O LINE 2955 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EPTYPE N PUSHI #0x00000002 S ASSVAL 2956 I=0; ICONST=0 O LINE 2956 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000000 S ASSVAL O LINE 2956 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ICONST N PUSHI #0x00000000 S ASSVAL 2957 %WHILE I= L_000d 2958 PGLA(4,4,ADDR(ICONST)) O LINE 2958 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PGLA N PUSHI #0x00000004 p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH ADDR @ PUSH ICONST p ASSPAR E CALL p ASSPAR E CALL 2959 I=I+4 O LINE 2959 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH I N PUSHI #0x00000004 + ADD S ASSVAL 2960 %REPEAT O LINE 2960 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_000c : LOCATE L_000d 2961 %FINISH O LINE 2961 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0009 2962 %FINISH O LINE 2962 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 2963 ACC=BP; ! ACC TO SIZE OF RECORD O LINE 2963 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC @ PUSH BP S ASSVAL 2964 STAG(TAGDISP,BP) O LINE 2964 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STAG @ PUSH TAGDISP p ASSPAR @ PUSH BP p ASSPAR E CALL 2965 P=P+2 O LINE 2965 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 2966 %REPEAT %UNTIL A(P)=2 O LINE 2966 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0004 B REPEAT L_0003 : LOCATE L_0004 2967 ->BEND O LINE 2967 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0237 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 !*********************************************************************** O LINE 2968 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0236 2974 P=P+1 O LINE 2974 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 2975 FORMAT=2-A(P) O LINE 2975 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FORMAT N PUSHI #0x00000002 @ PUSH A @ PUSH P a ACCESS - SUB S ASSVAL 2976 RECIN: PP=P+1; P=P+3; NNAMES=1 O LINE 2976 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0238 O LINE 2976 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PP @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 2976 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL O LINE 2976 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NNAMES N PUSHI #0x00000001 S ASSVAL 2977 K=FROM AR2(PP) O LINE 2977 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH FROMAR2 @ PUSH PP p ASSPAR E CALL S ASSVAL 2978 NAMTXT=STRING(DICTBASE+WORD(K)) O LINE 2978 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAMTXT @ PUSH STRING @ PUSH DICTBASE @ PUSH WORD @ PUSH K a ACCESS + ADD p ASSPAR E CALL S ASSVAL 2979 %IF TYPE>=3 %THEN BP=ACC %ELSE BP=BYTES(PREC) O LINE 2979 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000003 ? JUMPIF < L_0004 @ PUSH BP @ PUSH ACC S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH BP @ PUSH BYTES @ PUSH PREC a ACCESS S ASSVAL : LOCATE L_0003 2980 SACC=ACC; TYPEP=PTYPE O LINE 2980 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SACC @ PUSH ACC S ASSVAL O LINE 2980 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPEP @ PUSH PTYPE S ASSVAL 2981 AH4=12+DOPE VECTOR(TYPE,BP,0,K,QQ,LB) O LINE 2981 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AH4 N PUSHI #0x0000000c @ PUSH DOPEVECTOR @ PUSH TYPE p ASSPAR @ PUSH BP p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH K p ASSPAR @ PUSH QQ p ASSPAR @ PUSH LB p ASSPAR E CALL + ADD S ASSVAL 2982 SNDISP=AH4-12; ! DV DISP (+TOP BIT FLAG) O LINE 2982 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SNDISP @ PUSH AH4 N PUSHI #0x0000000c - SUB S ASSVAL 2983 %IF SNDISP=-1 %THEN SNDISP=0; ! BUM DOPE VECTOR O LINE 2983 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SNDISP N PUSHI #0x00000001 U NEGATE ? JUMPIF # L_0004 @ PUSH SNDISP N PUSHI #0x00000000 S ASSVAL : LOCATE L_0004 2984 SNDISP=(SNDISP&16_3FFFF)>>2; ! AS WORD DISPLACEMENT O LINE 2984 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SNDISP @ PUSH SNDISP N PUSHI #0x0003ffff & AND N PUSHI #0x00000002 ] RSH S ASSVAL 2985 DIMEN=J; ! SAVE NO OF DIMENESIONS O LINE 2985 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DIMEN @ PUSH J S ASSVAL 2986 ACC=SACC; PTYPE=TYPEP; UNPACK O LINE 2986 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC @ PUSH SACC S ASSVAL O LINE 2986 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE @ PUSH TYPEP S ASSVAL O LINE 2986 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UNPACK E CALL 2987 %IF LB=0 %AND J=1 %AND TYPE<=3 %THEN ARR=2 %AND PACK (PTYPE) O LINE 2987 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LB N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH J N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH TYPE N PUSHI #0x00000003 ? JUMPIF > L_0004 @ PUSH ARR N PUSHI #0x00000002 S ASSVAL @ PUSH PACK @ PUSH PTYPE p ASSPAR E CALL : LOCATE L_0004 2988 LENGTH=QQ//BP; ! NO OF ELEMENTS O LINE 2988 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LENGTH @ PUSH QQ @ PUSH BP / QUOT S ASSVAL 2989 SPOINT=STPTR O LINE 2989 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SPOINT @ PUSH STPTR S ASSVAL 2990 %IF MODE#3 %AND FORMAT=0 %THEN %START; ! NOT A RECORD ARRAY O LINE 2990 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000003 ? JUMPIF = L_0004 @ PUSH FORMAT N PUSHI #0x00000000 ? JUMPIF # L_0004 2991 %IF A(P)=1 %THEN P=P+1 %AND INIT SPACE(QQ,LENGTH) O LINE 2991 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL @ PUSH INITSPACE @ PUSH QQ p ASSPAR @ PUSH LENGTH p ASSPAR E CALL : LOCATE L_0007 2992 %FINISH O 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 O LINE 2993 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTSFOUND N PUSHI #0x00000000 ? JUMPIF # L_0004 2995 CONSTS FOUND=LENGTH O LINE 2995 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTSFOUND @ PUSH LENGTH S ASSVAL 2996 CLEAR(QQ) %UNLESS LENGTH<1 %OR EXTRN=3 %OR FORMAT#0 O LINE 2996 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LENGTH N PUSHI #0x00000001 ? JUMPIF < L_0007 @ PUSH EXTRN N PUSHI #0x00000003 ? JUMPIF = L_0007 @ PUSH FORMAT N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH CLEAR @ PUSH QQ p ASSPAR E CALL : LOCATE L_0007 2997 %FINISH %ELSE %START O LINE 2997 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 2998 FAULT2(49,0,K) %IF EXTRN=3 %OR FORMAT#0 O LINE 2998 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000003 ? JUMPIF = L_0008 @ PUSH FORMAT N PUSHI #0x00000000 ? JUMPIF = L_0007 : LOCATE L_0008 @ PUSH FAULT2 N PUSHI #0x00000031 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH K p ASSPAR E CALL : LOCATE L_0007 2999 %FINISH O 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 ! O LINE 3000 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000003 ? JUMPIF # L_0004 @ PUSH EPDISP N PUSHI #0x00000000 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH EPDISP @ PUSH SPOINT S ASSVAL : LOCATE L_0003 3005 J=DIMEN; ! RESET DIMENSIONS AFTER INITTING O LINE 3005 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH DIMEN S ASSVAL 3006 %IF TYPE<=2 %THEN AH1=PREC<<27!LENGTH %ELSE AH1=3<<27!1<<25!QQ O LINE 3006 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000002 ? JUMPIF > L_0004 @ PUSH AH1 @ PUSH PREC N PUSHI #0x0000001b [ LSH @ PUSH LENGTH ! OR S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH AH1 N PUSHI #0x00000003 N PUSHI #0x0000001b [ LSH N PUSHI #0x00000001 N PUSHI #0x00000019 [ LSH ! OR @ PUSH QQ ! OR S ASSVAL : LOCATE L_0003 3007 AH1=AH1!(1-PARMARR)<<24; ! SET BCI IF BASE TO BE SHIFTED O LINE 3007 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AH1 @ PUSH AH1 N PUSHI #0x00000001 @ PUSH PARMARR - SUB N PUSHI #0x00000018 [ LSH ! OR S ASSVAL 3008 %IF PREC=4 %THEN AH1=16_58000002 O LINE 3008 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000004 ? JUMPIF # L_0004 @ PUSH AH1 N PUSHI #0x58000002 S ASSVAL : LOCATE L_0004 3009 AH2=EPDISP O LINE 3009 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AH2 @ PUSH EPDISP S ASSVAL 3010 AH3=5<<27!3*J; ! DV DESPTR = WORD CHKD O LINE 3010 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AH3 N PUSHI #0x00000005 N PUSHI #0x0000001b [ LSH N PUSHI #0x00000003 @ PUSH J * MUL ! OR S ASSVAL 3011 %IF TYPE<=3 %AND PARMARR=0=FORMAT %AND PARMCHK=0 %AND J=1 %THEN AH2=AH2-BP*LB O LINE 3011 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000003 ? JUMPIF > L_0004 @ PUSH PARMARR N PUSHI #0x00000000 " JUMPIFD # L_0004 @ PUSH FORMAT ? JUMPIF # L_0004 @ PUSH PARMCHK N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH J N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH AH2 @ PUSH AH2 @ PUSH BP @ PUSH LB * MUL - SUB S ASSVAL : LOCATE L_0004 3012 PGLA(8,16,ADDR(AH1)) O LINE 3012 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PGLA N PUSHI #0x00000008 p ASSPAR N PUSHI #0x00000010 p ASSPAR @ PUSH ADDR @ PUSH AH1 p ASSPAR E CALL p ASSPAR E CALL 3013 TAGDISP=GLACA-16 O LINE 3013 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TAGDISP @ PUSH GLACA N PUSHI #0x00000010 - SUB S ASSVAL 3014 %IF EXTRN=3 %THEN %START; ! EXTRINSIC ARRAYS O LINE 3014 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000003 ? JUMPIF # L_0004 3015 GXREF(NAMTXT,2,2<<24!QQ,TAGDISP+4); ! RELOCATE ADDR(A(FIRST)) O LINE 3015 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GXREF @ PUSH NAMTXT p ASSPAR N PUSHI #0x00000002 p ASSPAR N PUSHI #0x00000002 N PUSHI #0x00000018 [ LSH @ PUSH QQ ! OR p ASSPAR @ PUSH TAGDISP N PUSHI #0x00000004 + ADD p ASSPAR E CALL 3016 %FINISH %ELSE %START O LINE 3016 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 3017 RELOCATE(TAGDISP+4,AH2,LPUTP);! RELOCATE ADDR(A(FIRST)) O LINE 3017 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RELOCATE @ PUSH TAGDISP N PUSHI #0x00000004 + ADD p ASSPAR @ PUSH AH2 p ASSPAR @ PUSH LPUTP p ASSPAR E CALL 3018 %FINISH O LINE 3018 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 3019 RELOCATE(TAGDISP+12,AH4,1); ! RELOCATE DV POINTER O LINE 3019 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RELOCATE @ PUSH TAGDISP N PUSHI #0x0000000c + ADD p ASSPAR @ PUSH AH4 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 3020 AH4=(AH4<<1>>3)!16_80000000 O LINE 3020 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AH4 @ PUSH AH4 N PUSHI #0x00000001 [ LSH N PUSHI #0x00000003 ] RSH N PUSHI #0x80000000 ! OR S ASSVAL 3021 NOTE CREF(AH4!(TAGDISP+12)>>2<<16,(AH4&16_FFFF)<<2) O LINE 3021 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NOTECREF @ PUSH AH4 @ PUSH TAGDISP N PUSHI #0x0000000c + ADD N PUSHI #0x00000002 ] RSH N PUSHI #0x00000010 [ LSH ! OR p ASSPAR @ PUSH AH4 N PUSHI #0x0000ffff & AND N PUSHI #0x00000002 [ LSH p ASSPAR E CALL 3022 EPTYPE=5; ! DATA IN GLA SYMBOL TABLES O LINE 3022 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EPTYPE N PUSHI #0x00000005 S ASSVAL 3023 STAG(TAGDISP,QQ) O LINE 3023 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STAG @ PUSH TAGDISP p ASSPAR @ PUSH QQ p ASSPAR E CALL 3024 -> BEND O LINE 3024 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0237 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 !*********************************************************************** O LINE 3025 "regression-compile-tmp/nrimp10s-77.imp" $ DEF INITSPACE (_lev0id0_lev1id1_lev2id3_CSS_lev4id10_INITSPACE) p1=V_020c 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_0239 a/tf=11 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_023a a/tf=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 O LINE 3031 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RF p1=V_023b a/tf=11 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_023c a/tf=11 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_023d a/tf=11 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_023e a/tf=11 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_023f a/tf=11 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_0240 a/tf=11 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_0241 a/tf=11 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_0242 a/tf=11 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_0243 a/tf=11 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_0244 a/tf=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) O LINE 3034 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SIZE N PUSHI #0x00001000 ? JUMPIF <= L_0004 @ PUSH WSIZE N PUSHI #0x00001000 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH WSIZE @ PUSH SIZE S ASSVAL : LOCATE L_0003 3036 SAVER=R; R=R+WSIZE+256 O LINE 3036 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SAVER @ PUSH R S ASSVAL O LINE 3036 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH R @ PUSH WSIZE + ADD N PUSHI #0x00000100 + ADD S ASSVAL 3037 %IF R>ARSIZE %THEN FAULT(102,0) O LINE 3037 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH ARSIZE ? JUMPIF <= L_0004 @ PUSH FAULT N PUSHI #0x00000066 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 3038 %byteintegerarray SP(0:WSIZE+256) 3039 {SP==ARRAY(ADDR(A(SAVER)),SPF) O LINE 3038 "regression-compile-tmp/nrimp10s-77.imp" $ DEF SP p1=V_0245 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 N PUSHI #0x00000000 @ PUSH WSIZE N PUSHI #0x00000100 + ADD d DIM 0001 0001 3040 %IF TYPE=1 %THEN AD=ADDR(ICONST)+4-ACC O LINE 3040 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH AD @ PUSH ADDR @ PUSH ICONST p ASSPAR E CALL N PUSHI #0x00000004 + ADD @ PUSH ACC - SUB S ASSVAL : LOCATE L_0004 3041 %IF TYPE=2 %THEN AD=ADDR(RCONST) O LINE 3041 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH AD @ PUSH ADDR @ PUSH RCONST p ASSPAR E CALL S ASSVAL : LOCATE L_0004 3042 %IF TYPE=5 %THEN AD=ADDR(SCONST) O LINE 3042 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000005 ? JUMPIF # L_0004 @ PUSH AD @ PUSH ADDR @ PUSH SCONST p ASSPAR E CALL S ASSVAL : LOCATE L_0004 3043 SPP=0; WRIT=0 O LINE 3043 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SPP N PUSHI #0x00000000 S ASSVAL O LINE 3043 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRIT N PUSHI #0x00000000 S ASSVAL 3044 ELSIZE=SIZE//NELS O LINE 3044 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ELSIZE @ PUSH SIZE @ PUSH NELS / QUOT S ASSVAL 3045 {%UNTIL A(P-1)=2} %CYCLE O LINE 3045 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 3046 XTRACT CONST(TYPE,PREC) O LINE 3046 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XTRACTCONST @ PUSH TYPE p ASSPAR @ PUSH PREC p ASSPAR E CALL 3047 %IF A(P)=1 %START; ! REPITITION FACTOR O LINE 3047 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0007 3048 P=P+1 O LINE 3048 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 3049 %IF INTEXP(RF)#0 %THEN FAULT(44,CONSTS FOUND) %AND RF=1 O LINE 3049 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INTEXP @ PUSH RF p ASSPAR E CALL N PUSHI #0x00000000 ? JUMPIF = L_000a @ PUSH FAULT N PUSHI #0x0000002c p ASSPAR @ PUSH CONSTSFOUND p ASSPAR E CALL @ PUSH RF N PUSHI #0x00000001 S ASSVAL : LOCATE L_000a 3050 P=P+1 O LINE 3050 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 3051 %FINISH %ELSE RF=1 %AND P=P+2 O LINE 3051 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 @ PUSH RF N PUSHI #0x00000001 S ASSVAL @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL : LOCATE L_0006 3052 FAULT(44,CONSTS FOUND) %IF RF<=0 O LINE 3052 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RF N PUSHI #0x00000000 ? JUMPIF > L_0007 @ PUSH FAULT N PUSHI #0x0000002c p ASSPAR @ PUSH CONSTSFOUND p ASSPAR E CALL : LOCATE L_0007 3053 %CYCLE I=RF,-1,1 O LINE 3053 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 U NEGATE N PUSHI #0x00000001 @ PUSH RF f FOR L_0006 3054 %CYCLE K=0,1,ELSIZE-1 O LINE 3054 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K N PUSHI #0x00000001 @ PUSH ELSIZE N PUSHI #0x00000001 - SUB N PUSHI #0x00000000 f FOR L_0009 3055 %IF CONSTS FOUND<=NELS %THEN SP(SPP)=BYTE INTEGER(AD+K) %AND SPP=SPP+1 O LINE 3055 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTSFOUND @ PUSH NELS ? JUMPIF > L_000d @ PUSH SP @ PUSH SPP a ACCESS @ PUSH BYTEINTEGER @ PUSH AD @ PUSH K + ADD p ASSPAR E CALL S ASSVAL @ PUSH SPP @ PUSH SPP N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_000d 3056 %REPEAT O LINE 3056 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0009 : LOCATE L_000a 3057 CONSTS FOUND=CONSTS FOUND+1 O LINE 3057 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTSFOUND @ PUSH CONSTSFOUND N PUSHI #0x00000001 + ADD S ASSVAL 3058 %IF SPP>=4096 %START; ! EMPTY BUFFER O LINE 3058 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SPP N PUSHI #0x00001000 ? JUMPIF < L_000a 3059 LPUT(LPUTP,SPP,STPTR+WRIT,ADDR(SP(0))) %IF INHCODE=0 O LINE 3059 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INHCODE N PUSHI #0x00000000 ? JUMPIF # L_000d @ PUSH LPUT @ PUSH LPUTP p ASSPAR @ PUSH SPP p ASSPAR @ PUSH STPTR @ PUSH WRIT + ADD p ASSPAR @ PUSH ADDR @ PUSH SP N PUSHI #0x00000000 a ACCESS p ASSPAR E CALL p ASSPAR E CALL : LOCATE L_000d 3060 WRIT=WRIT+SPP O LINE 3060 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WRIT @ PUSH WRIT @ PUSH SPP + ADD S ASSVAL 3061 SPP=0 O LINE 3061 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SPP N PUSHI #0x00000000 S ASSVAL 3062 %FINISH O LINE 3062 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000a 3063 %REPEAT O LINE 3063 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0006 : LOCATE L_0007 3064 %REPEAT %UNTIL A(P-1)=2; ! UNTIL P=%NULL O LINE 3064 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 - SUB a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0004 B REPEAT L_0003 : LOCATE L_0004 3065 %IF CONSTS FOUND#NELS %THEN FAULT(45,CONSTS FOUND) O LINE 3065 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTSFOUND @ PUSH NELS ? JUMPIF = L_0004 @ PUSH FAULT N PUSHI #0x0000002d p ASSPAR @ PUSH CONSTSFOUND p ASSPAR E CALL : LOCATE L_0004 3066 STPTR=(STPTR+3)&(-4) O LINE 3066 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STPTR @ PUSH STPTR N PUSHI #0x00000003 + ADD N PUSHI #0x00000004 U NEGATE & AND S ASSVAL 3067 LENGTH=(SIZE+3)&(-4) O LINE 3067 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LENGTH @ PUSH SIZE N PUSHI #0x00000003 + ADD N PUSHI #0x00000004 U NEGATE & AND S ASSVAL 3068 LPUT(LPUTP,LENGTH-WRIT,STPTR+WRIT,ADDR(SP(0))) %IF INHCODE=0 O LINE 3068 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INHCODE N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH LPUT @ PUSH LPUTP p ASSPAR @ PUSH LENGTH @ PUSH WRIT - SUB p ASSPAR @ PUSH STPTR @ PUSH WRIT + ADD p ASSPAR @ PUSH ADDR @ PUSH SP N PUSHI #0x00000000 a ACCESS p ASSPAR E CALL p ASSPAR E CALL : LOCATE L_0004 3069 STPTR=STPTR+LENGTH O LINE 3069 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STPTR @ PUSH STPTR @ PUSH LENGTH + ADD S ASSVAL 3070 R=SAVER O LINE 3070 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH SAVER S ASSVAL 3071 %END O LINE 3071 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_lev4id10_INITSPACE {lev=6 --> 5} 3072 %ROUTINE CLEAR(%INTEGER LENGTH) O LINE 3072 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CLEAR (_lev0id0_lev1id1_lev2id3_CSS_lev4id10_CLEAR) p1=V_0209 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_0239 a/tf=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) O LINE 3073 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STPTR @ PUSH STPTR N PUSHI #0x00000003 + ADD N PUSHI #0x00000004 U NEGATE & AND S ASSVAL 3074 LENGTH=(LENGTH+3)&(-4) O LINE 3074 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LENGTH @ PUSH LENGTH N PUSHI #0x00000003 + ADD N PUSHI #0x00000004 U NEGATE & AND S ASSVAL 3075 LPUT(LPUTP,LENGTH,STPTR,0)%IF INHCODE=0 O LINE 3075 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INHCODE N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH LPUT @ PUSH LPUTP p ASSPAR @ PUSH LENGTH p ASSPAR @ PUSH STPTR p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 3076 STPTR=STPTR+LENGTH O LINE 3076 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STPTR @ PUSH STPTR @ PUSH LENGTH + ADD S ASSVAL 3077 %END O LINE 3077 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_lev4id10_CLEAR {lev=6 --> 5} 3078 %ROUTINE STAG(%INTEGER J,DATALEN) O LINE 3078 "regression-compile-tmp/nrimp10s-77.imp" $ DEF STAG (_lev0id0_lev1id1_lev2id3_CSS_lev4id10_STAG) p1=V_020a 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_0239 a/tf=11 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_023a a/tf=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)) O LINE 3079 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH LPUT N PUSHI #0x0000000e p ASSPAR @ PUSH EPTYPE N PUSHI #0x00000018 [ LSH @ PUSH DATALEN ! OR p ASSPAR @ PUSH EPDISP p ASSPAR @ PUSH ADDR @ PUSH NAMTXT p ASSPAR E CALL p ASSPAR E CALL : LOCATE L_0004 3080 RBASE=CBASE O LINE 3080 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RBASE @ PUSH CBASE S ASSVAL 3081 STORE TAG(K,J) O LINE 3081 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STORETAG @ PUSH K p ASSPAR @ PUSH J p ASSPAR E CALL 3082 RBASE=RLEVEL O LINE 3082 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RBASE @ PUSH RLEVEL S ASSVAL 3083 %END O 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 !*********************************************************************** O LINE 3084 "regression-compile-tmp/nrimp10s-77.imp" $ DEF XTRACTCONST (_lev0id0_lev1id1_lev2id3_CSS_lev4id10_XTRACTCONST) p1=V_020b 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_0239 a/tf=11 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_023a a/tf=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 O LINE 3090 "regression-compile-tmp/nrimp10s-77.imp" $ DEF LENGTH p1=V_023b a/tf=11 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_023c a/tf=11 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_023d a/tf=11 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_023e a/tf=11 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_023f a/tf=11 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_0240 a/tf=11 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_0241 a/tf=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 O LINE 3091 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STYPE @ PUSH PTYPE S ASSVAL O LINE 3091 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SACC @ PUSH ACC S ASSVAL 3092 %IF CONTYPE=5 %THEN %START O LINE 3092 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONTYPE N PUSHI #0x00000005 ? JUMPIF # L_0004 3093 CTYPE=5 O LINE 3093 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTYPE N PUSHI #0x00000005 S 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 O LINE 3094 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000004 ? JUMPIF # L_0007 @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0007 @ PUSH A @ PUSH P N PUSHI #0x00000002 + ADD a ACCESS N PUSHI #0x00000035 ? JUMPIF # L_0007 @ PUSH A @ PUSH P @ PUSH A @ PUSH P N PUSHI #0x00000007 + ADD a ACCESS + ADD N PUSHI #0x00000008 + ADD a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0007 3095 SCONST=STRING(ADDR(A(P+7))) O LINE 3095 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SCONST @ PUSH STRING @ PUSH ADDR @ PUSH A @ PUSH P N PUSHI #0x00000007 + ADD a ACCESS p ASSPAR E CALL p ASSPAR E CALL S ASSVAL 3096 LENGTH=A(P+7) O LINE 3096 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LENGTH @ PUSH A @ PUSH P N PUSHI #0x00000007 + ADD a ACCESS S ASSVAL 3097 P=P+A(P+7)+9 O LINE 3097 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P @ PUSH A @ PUSH P N PUSHI #0x00000007 + ADD a ACCESS + ADD N PUSHI #0x00000009 + ADD S ASSVAL 3098 %FINISH %ELSE %START O LINE 3098 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 3099 FAULT(44,CONSTS FOUND); SCONST="" O LINE 3099 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FAULT N PUSHI #0x0000002c p ASSPAR @ PUSH CONSTSFOUND p ASSPAR E CALL O LINE 3099 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SCONST ' PUSHS "" S ASSVAL 3100 LENGTH=0; P=P-3; SKIP EXP O LINE 3100 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LENGTH N PUSHI #0x00000000 S ASSVAL O LINE 3100 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 - SUB S ASSVAL O LINE 3100 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SKIPEXP E CALL 3101 %FINISH O LINE 3101 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 3102 %FINISH %ELSE %START O LINE 3102 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 3103 MODE=CONPREC<<4!CONTYPE O LINE 3103 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE @ PUSH CONPREC N PUSHI #0x00000004 [ LSH @ PUSH CONTYPE ! OR S ASSVAL 3104 %IF CONPREC<5 %THEN MODE=CONTYPE!16_50 O LINE 3104 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONPREC N PUSHI #0x00000005 ? JUMPIF >= L_0007 @ PUSH MODE @ PUSH CONTYPE N PUSHI #0x00000050 ! OR S ASSVAL : LOCATE L_0007 3105 CONSTP=CONSTEXP(MODE) O LINE 3105 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTP @ PUSH CONSTEXP @ PUSH MODE p ASSPAR E CALL S ASSVAL 3106 %IF CONSTP=0 %THEN FAULT(41,0) %AND CONSTP=ADDR(ZERO);! CANT EVALUATE EXPT O LINE 3106 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTP N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH FAULT N PUSHI #0x00000029 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL @ PUSH CONSTP @ PUSH ADDR @ PUSH ZERO p ASSPAR E CALL S ASSVAL : LOCATE L_0007 3107 CTYPE=TYPE; CPREC=PREC O LINE 3107 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTYPE @ PUSH TYPE S ASSVAL O LINE 3107 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPREC @ PUSH PREC S ASSVAL 3108 %IF CTYPE=1 %THEN %START O LINE 3108 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTYPE N PUSHI #0x00000001 ? JUMPIF # L_0007 3109 ICONST=INTEGER(CONSTP) O LINE 3109 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ICONST @ PUSH INTEGER @ PUSH CONSTP p ASSPAR E CALL S ASSVAL 3110 %IF CONPREC=6 %THEN UICONST=ICONST %AND ICONST=INTEGER(CONSTP+4) O LINE 3110 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONPREC N PUSHI #0x00000006 ? JUMPIF # L_000a @ PUSH UICONST @ PUSH ICONST S ASSVAL @ PUSH ICONST @ PUSH INTEGER @ PUSH CONSTP N PUSHI #0x00000004 + ADD p ASSPAR E CALL S ASSVAL : LOCATE L_000a 3111 %FINISH %ELSE %START O LINE 3111 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 3112 RCONST=LONGREAL(CONSTP) O LINE 3112 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RCONST @ PUSH LONGREAL @ PUSH CONSTP p ASSPAR E CALL S ASSVAL 3113 %IF CONPREC=7 %THEN %START;! LONGLONGS UNALIGNED IN AR O LINE 3113 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONPREC N PUSHI #0x00000007 ? JUMPIF # L_000a 3114 %CYCLE I=0,1,15 O LINE 3114 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 N PUSHI #0x0000000f N PUSHI #0x00000000 f FOR L_000c 3115 BYTEINTEGER(ADDR(RCONST)+I)=BYTEINTEGER(CONSTP+I) O LINE 3115 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BYTEINTEGER @ PUSH ADDR @ PUSH RCONST p ASSPAR E CALL @ PUSH I + ADD p ASSPAR E CALL @ PUSH BYTEINTEGER @ PUSH CONSTP @ PUSH I + ADD p ASSPAR E CALL S ASSVAL 3116 %REPEAT O LINE 3116 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_000c : LOCATE L_000d 3117 %FINISH O LINE 3117 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000a 3118 %FINISH O LINE 3118 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 3119 %FINISH O 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 ! O LINE 3120 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE @ PUSH STYPE S ASSVAL O LINE 3120 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UNPACK E CALL O LINE 3120 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC @ PUSH SACC S 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) O LINE 3125 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000003 ? JUMPIF = L_0005 @ PUSH CTYPE N PUSHI #0x00000005 ? JUMPIF # L_0006 @ PUSH LENGTH @ PUSH ACC ? JUMPIF >= L_0005 : LOCATE L_0006 @ PUSH CONTYPE N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH CONPREC N PUSHI #0x00000003 ? JUMPIF # L_0006 @ PUSH ICONST N PUSHI #0x000000ff ? JUMPIF > L_0005 : LOCATE L_0006 @ PUSH CONPREC N PUSHI #0x00000004 ? JUMPIF # L_0004 @ PUSH ICONST N PUSHI #0x0000ffff ? JUMPIF <= L_0004 : LOCATE L_0005 @ PUSH FAULT N PUSHI #0x0000002c p ASSPAR @ PUSH CONSTSFOUND p ASSPAR E CALL : LOCATE L_0004 3126 %END O LINE 3126 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_lev4id10_XTRACTCONST {lev=6 --> 5} 3127 BEND: %END; ->CSSEXIT O LINE 3127 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0237 O LINE 3127 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_lev4id10 {lev=5 --> 4} O LINE 3127 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 3128 SW(18): O LINE 3128 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000012 _ SLABEL 470 3129 ABORT O LINE 3129 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ABORT E CALL 3130 SW(10): O LINE 3130 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x0000000a _ SLABEL 470 3131 %BEGIN; ! %RECORD (RDECLN) 3132 !*********************************************************************** 3133 !* RECORDS ARE ALLOCATED AT COMPILE TIME WHEN POSSIBLE * 3134 !* SEE CRFORMAT FOR ACTION ON RECORD FORMAT DECLARATIONS * 3135 !*********************************************************************** O LINE 3131 "regression-compile-tmp/nrimp10s-77.imp" H BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id11 {lev=4 --> 5} 3136 %INTEGER MODE,RECL,ALLOC,FNAM,FINF,NAME,OPHEAD O LINE 3136 "regression-compile-tmp/nrimp10s-77.imp" $ DEF MODE p1=V_0209 a/tf=11 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_020a a/tf=11 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_020b a/tf=11 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_020c a/tf=11 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_020d a/tf=11 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_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 OPHEAD 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 3137 P=P+1; MODE=A(P); SNDISP=0 O LINE 3137 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 3137 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE @ PUSH A @ PUSH P a ACCESS S ASSVAL O LINE 3137 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SNDISP N PUSHI #0x00000000 S ASSVAL 3138 %IF MODE=1 %THEN %START; ! DEAL WITH FORMAT O LINE 3138 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000001 ? JUMPIF # L_0004 3139 NAME=FROM AR2(P+1); P=P+3 O LINE 3139 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAME @ PUSH FROMAR2 @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR E CALL S ASSVAL O LINE 3139 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL 3140 CRFORMAT(OPHEAD); K=NAME O LINE 3140 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CRFORMAT @ PUSH OPHEAD p ASSPAR E CALL O LINE 3140 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH NAME S ASSVAL 3141 PTYPE=4; J=0 O LINE 3141 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000004 S ASSVAL O LINE 3141 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 3142 KFORM=OPHEAD O LINE 3142 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KFORM @ PUSH OPHEAD S ASSVAL 3143 STORE TAG(K,OPHEAD) O LINE 3143 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STORETAG @ PUSH K p ASSPAR @ PUSH OPHEAD p ASSPAR E CALL 3144 ->BEND O LINE 3144 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0210 3145 %FINISH O LINE 3145 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 3146 P=P+1; MARKER=P+FROM AR2(P) O LINE 3146 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 3146 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKER @ PUSH P @ PUSH FROMAR2 @ PUSH P p ASSPAR E CALL + ADD S ASSVAL 3147 FNAM=FROM AR2(MARKER); ! FORMAT NAME O LINE 3147 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FNAM @ PUSH FROMAR2 @ PUSH MARKER p ASSPAR E CALL S ASSVAL 3148 COPY TAG(FNAM) O LINE 3148 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COPYTAG @ PUSH FNAM p ASSPAR E CALL 3149 FINF=TCELL O LINE 3149 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FINF @ PUSH TCELL S ASSVAL 3150 %IF TYPE#4 %THEN %START O LINE 3150 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000004 ? JUMPIF = L_0004 3151 FINF=DUMMY FORMAT O LINE 3151 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FINF @ PUSH DUMMYFORMAT S ASSVAL 3152 ACC=4; FAULT(62,FNAM) O LINE 3152 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC N PUSHI #0x00000004 S ASSVAL O LINE 3152 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FAULT N PUSHI #0x0000003e p ASSPAR @ PUSH FNAM p ASSPAR E CALL 3153 %FINISH O LINE 3153 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 3154 RECL=ACC O LINE 3154 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RECL @ PUSH ACC S ASSVAL 3155 %IF MODE=2%THEN %START; ! '%RECORDSPEC' O LINE 3155 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000002 ? JUMPIF # L_0004 3156 COPY TAG(FROM AR2(P+2)) O LINE 3156 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COPYTAG @ PUSH FROMAR2 @ PUSH P N PUSHI #0x00000002 + ADD p ASSPAR E CALL p ASSPAR E CALL 3157 %IF A(P+4)=1 %AND TYPE=4 %START;! SPEC FOR FORMAT ELEMENT O LINE 3157 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000004 + ADD a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH TYPE N PUSHI #0x00000004 ? JUMPIF # L_0007 3158 P=P+5 O LINE 3158 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000005 + ADD S ASSVAL 3159 Q=DISPLACEMENT(TCELL) O LINE 3159 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH DISPLACEMENT @ PUSH TCELL p ASSPAR E CALL S ASSVAL 3160 UNPACK O LINE 3160 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UNPACK E CALL 3161 %FINISH O 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 O LINE 3162 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000003 ? JUMPIF # L_0007 @ PUSH NAM N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH FROM3 @ PUSH TCELL p ASSPAR E CALL N PUSHI #0x0000ffff & AND N PUSHI #0x00000000 ? JUMPIF # L_0007 3163 REPLACE3(TCELL,FINF!K<<16) O LINE 3163 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REPLACE3 @ PUSH TCELL p ASSPAR @ PUSH FINF @ PUSH K N PUSHI #0x00000010 [ LSH ! OR p ASSPAR E CALL 3164 REPLACE2(TCELL,SNDISP<<16!RECL) O LINE 3164 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REPLACE2 @ PUSH TCELL p ASSPAR @ PUSH SNDISP N PUSHI #0x00000010 [ LSH @ PUSH RECL ! OR p ASSPAR E CALL 3165 %FINISH %ELSE FAULT(63,0) O LINE 3165 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 @ PUSH FAULT N PUSHI #0x0000003f p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0006 3166 %FINISH %ELSE %START; ! RECORD DECLARATION O LINE 3166 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 3167 FAULT(57,0) %UNLESS LEVEL>=2 O LINE 3167 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF >= L_0007 @ PUSH FAULT N PUSHI #0x00000039 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0007 3168 FAULT(40,0) %IF NMDECS(LEVEL)&1#0 O LINE 3168 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NMDECS @ PUSH LEVEL a ACCESS N PUSHI #0x00000001 & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH FAULT N PUSHI #0x00000028 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0007 3169 TYPE=3; PREC=3; ROUT=0 O LINE 3169 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000003 S ASSVAL O LINE 3169 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000003 S ASSVAL O LINE 3169 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUT N PUSHI #0x00000000 S ASSVAL 3170 %IF A(P+2)=1 %THEN %START; ! SIMPLE RECORD AND RECORDNAMES O LINE 3170 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000002 + ADD a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0007 3171 ALLOC=ACC; CQN(P+3) O LINE 3171 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALLOC @ PUSH ACC S ASSVAL O LINE 3171 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CQN @ PUSH P N PUSHI #0x00000003 + ADD p ASSPAR E CALL 3172 ACC=ALLOC; P=P+4 O LINE 3172 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC @ PUSH ALLOC S ASSVAL O LINE 3172 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000004 + ADD S ASSVAL 3173 DECLARE SCALARS(1,FINF) O LINE 3173 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DECLARESCALARS N PUSHI #0x00000001 p ASSPAR @ PUSH FINF p ASSPAR E CALL 3174 %FINISH %ELSE %START; ! ARRAYS OF RECORDS O LINE 3174 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 3175 NAM=0 O LINE 3175 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000000 S ASSVAL 3176 Q=2-A(P+3); P=P+4; ! Q=1 FOR ARRAY FORMAT O LINE 3176 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q N PUSHI #0x00000002 @ PUSH A @ PUSH P N PUSHI #0x00000003 + ADD a ACCESS - SUB S ASSVAL O LINE 3176 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000004 + ADD S ASSVAL 3177 SET LINE O LINE 3177 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SETLINE E CALL 3178 DECLARE ARRAYS(Q,FINF) O LINE 3178 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DECLAREARRAYS @ PUSH Q p ASSPAR @ PUSH FINF p ASSPAR E CALL 3179 %FINISH O LINE 3179 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 3180 %FINISH O LINE 3180 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 3181 BEND: %END;->CSSEXIT 3182 ! O LINE 3181 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0210 O LINE 3181 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_lev4id11 {lev=5 --> 4} O LINE 3181 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 3183 SW(19): 3184 ! '*' (UCI) (S) O LINE 3183 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000013 _ SLABEL 470 3185 FAULT(57,0) %UNLESS LEVEL>=2 O LINE 3185 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF >= L_0004 @ PUSH FAULT N PUSHI #0x00000039 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 3186 %BEGIN O LINE 3186 "regression-compile-tmp/nrimp10s-77.imp" H BEGIN _lev0id0_lev1id1_lev2id3_CSS_lev4id12 {lev=4 --> 5} 3187 %ROUTINESPEC CIND O LINE 3187 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CIND (_lev0id0_lev1id1_lev2id3_CSS_lev4id12_CIND) p1=V_0209 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 O LINE 3188 "regression-compile-tmp/nrimp10s-77.imp" $ DEF FNAME p1=V_020a a/tf=11 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_020b a/tf=11 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_020c a/tf=11 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_020d a/tf=11 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_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 Q 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 $ DEF MASK 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 FILLER 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 3189 %SWITCH SW(1:5),F(1:3),POP(1:6),TOP(1:4) O LINE 3189 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 N PUSHI #0x00000005 b BOUNDS $ DEF SW p1=V_0212 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 N PUSHI #0x00000001 N PUSHI #0x00000003 b BOUNDS $ DEF F p1=V_0213 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 N PUSHI #0x00000001 N PUSHI #0x00000006 b BOUNDS $ DEF POP p1=V_0214 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 N PUSHI #0x00000001 N PUSHI #0x00000004 b BOUNDS $ DEF TOP p1=V_0215 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 O LINE 3190 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS S ASSVAL O LINE 3190 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 3191 OPCODE=CALL O LINE 3191 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OPCODE N PUSHI #0x0000001e S ASSVAL 3192 ->SW(ALT) O LINE 3192 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT W SJUMP 530 3193 SW(1):SW(2): O LINE 3193 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 _ SLABEL 530 O LINE 3193 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000002 _ SLABEL 530 3194 FNAME=FROM AR2(P) O LINE 3194 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FNAME @ PUSH FROMAR2 @ PUSH P p ASSPAR E CALL S ASSVAL 3195 COPY TAG(FNAME) O LINE 3195 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COPYTAG @ PUSH FNAME p ASSPAR E CALL 3196 FAULT(33,FNAME) %UNLESS ROUT=NAM=0 %AND ARR=0 %AND PREC>4 %AND I=RBASE %AND TYPE#7 O LINE 3196 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUT @ PUSH NAM " JUMPIFD # L_0005 N PUSHI #0x00000000 ? JUMPIF # L_0005 @ PUSH ARR N PUSHI #0x00000000 ? JUMPIF # L_0005 @ PUSH PREC N PUSHI #0x00000004 ? JUMPIF <= L_0005 @ PUSH I @ PUSH RBASE ? JUMPIF # L_0005 @ PUSH TYPE N PUSHI #0x00000007 ? JUMPIF # L_0004 : LOCATE L_0005 @ PUSH FAULT N PUSHI #0x00000021 p ASSPAR @ PUSH FNAME p ASSPAR E CALL : LOCATE L_0004 3197 %IF ALT=1 %THEN PSF1(ST,1,K) %ELSE GET IN ACC(ACCR,BYTES(PREC)>>2,0,LNB,K) O LINE 3197 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH PSF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH K p ASSPAR E CALL F GOTO L_0003 : LOCATE L_0004 @ PUSH GETINACC N PUSHI #0x00000000 p ASSPAR @ PUSH BYTES @ PUSH PREC a ACCESS N PUSHI #0x00000002 ] RSH p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH K p ASSPAR E CALL : LOCATE L_0003 3198 ->EXIT O LINE 3198 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0216 3199 SW(3): ! PUT (HEX HALFWORD) O LINE 3199 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000003 _ SLABEL 530 3200 TYPE=A(P) O LINE 3200 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE @ PUSH A @ PUSH P a ACCESS S ASSVAL 3201 PREC=TYPE>>4; TYPE=TYPE&7 O LINE 3201 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC @ PUSH TYPE N PUSHI #0x00000004 ] RSH S ASSVAL O LINE 3201 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE @ PUSH TYPE N PUSHI #0x00000007 & AND S ASSVAL 3202 FAULT(32,0) %UNLESS TYPE=1 %AND PREC<6 O LINE 3202 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000001 ? JUMPIF # L_0005 @ PUSH PREC N PUSHI #0x00000006 ? JUMPIF < L_0004 : LOCATE L_0005 @ PUSH FAULT N PUSHI #0x00000020 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 3203 %IF PREC=5 %THEN P=P+2 O LINE 3203 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000005 ? JUMPIF # L_0004 @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL : LOCATE L_0004 3204 PLANT(FROM AR2(P+1)) O LINE 3204 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PLANT @ PUSH FROMAR2 @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR E CALL p ASSPAR E CALL 3205 ->EXIT O LINE 3205 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0216 3206 SW(5): ! CNOP O LINE 3206 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000005 _ SLABEL 530 3207 CNOP(A(P),A(P+1)) O LINE 3207 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CNOP @ PUSH A @ PUSH P a ACCESS p ASSPAR @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS p ASSPAR E CALL 3208 ->EXIT O LINE 3208 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0216 3209 SW(4): ! ASSEMBLER O LINE 3209 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000004 _ SLABEL 530 3210 FORM=A(P); ! FORM=PRIMARY,SECONDARY OR 3RY O LINE 3210 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FORM @ PUSH A @ PUSH P a ACCESS S ASSVAL 3211 OPCODE=A(P+1) O LINE 3211 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OPCODE @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS S ASSVAL 3212 P=P+2; ->F(FORM) O LINE 3212 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL O LINE 3212 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FORM W SJUMP 531 3213 F(1): ! ALL PRIMARY FORMAT INSTRUCTIONS O LINE 3213 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 _ SLABEL 531 3214 ALT=A(P); P=P+1 O LINE 3214 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT @ PUSH A @ PUSH P a ACCESS S ASSVAL O LINE 3214 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 3215 ->POP(ALT) O LINE 3215 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT W SJUMP 532 3216 POP(1): ! LABELNAME O LINE 3216 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 _ SLABEL 532 3217 FNAME=FROM AR2(P); P=P+2 O LINE 3217 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FNAME @ PUSH FROMAR2 @ PUSH P p ASSPAR E CALL S ASSVAL O LINE 3217 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 3218 ENTER JUMP(OPCODE<<24!3<<23,FNAME,0) O LINE 3218 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ENTERJUMP @ PUSH OPCODE N PUSHI #0x00000018 [ LSH N PUSHI #0x00000003 N PUSHI #0x00000017 [ LSH ! OR p ASSPAR @ PUSH FNAME p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 3219 ->EXIT O LINE 3219 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0216 3220 POP(2): ! DIRECT SYMBOLIC O LINE 3220 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000002 _ SLABEL 532 3221 CIND O LINE 3221 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CIND E CALL 3222 POPI: PSORLF1(OPCODE,ACCESS,AREA,DISP) O LINE 3222 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0217 O LINE 3222 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSORLF1 @ PUSH OPCODE p ASSPAR @ PUSH ACCESS p ASSPAR @ PUSH AREA p ASSPAR @ PUSH DISP p ASSPAR E CALL 3223 ->EXIT O LINE 3223 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0216 3224 POP(3): ! INDIRECT SYMBOLIC O LINE 3224 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000003 _ SLABEL 532 3225 CIND O LINE 3225 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CIND E CALL 3226 ACCESS=4-A(P); P=P+1 O LINE 3226 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACCESS N PUSHI #0x00000004 @ PUSH A @ PUSH P a ACCESS - SUB S ASSVAL O LINE 3226 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 3227 ->POPI O LINE 3227 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0217 3228 POP(4): ! DR SYMBOLICALLY MODIFIED O LINE 3228 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000004 _ SLABEL 532 3229 CIND; ACCESS=1; ->POPI O LINE 3229 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CIND E CALL O LINE 3229 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACCESS N PUSHI #0x00000001 S ASSVAL O LINE 3229 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0217 3230 POP(5): ! (DR) & (DR+B) O LINE 3230 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000005 _ SLABEL 532 3231 ACCESS=4-A(P); AREA=7 O LINE 3231 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACCESS N PUSHI #0x00000004 @ PUSH A @ PUSH P a ACCESS - SUB S ASSVAL O LINE 3231 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000007 S ASSVAL 3232 DISP=0; P=P+1 O LINE 3232 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP N PUSHI #0x00000000 S ASSVAL O LINE 3232 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 3233 ->POPI O LINE 3233 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0217 3234 POP(6): ! B O LINE 3234 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000006 _ SLABEL 532 3235 ACCESS=0 O LINE 3235 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACCESS N PUSHI #0x00000000 S ASSVAL 3236 AREA=7; DISP=0; ->POPI O LINE 3236 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000007 S ASSVAL O LINE 3236 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP N PUSHI #0x00000000 S ASSVAL O LINE 3236 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0217 3237 F(2): ! SECONDARY (STORE-TO STORE)FORMAT O LINE 3237 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000002 _ SLABEL 531 3238 MASK=0; FILLER=0; Q=0; FNAME=0 O LINE 3238 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MASK N PUSHI #0x00000000 S ASSVAL O LINE 3238 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FILLER N PUSHI #0x00000000 S ASSVAL O LINE 3238 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q N PUSHI #0x00000000 S ASSVAL O LINE 3238 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FNAME N PUSHI #0x00000000 S ASSVAL 3239 H=2-A(P) O LINE 3239 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH H N PUSHI #0x00000002 @ PUSH A @ PUSH P a ACCESS - SUB S ASSVAL 3240 %IF H=0 %THEN FNAME=FROM AR2(P+1)-1 %AND P=P+2 O LINE 3240 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH H N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH FNAME @ PUSH FROMAR2 @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR E CALL N PUSHI #0x00000001 - SUB S ASSVAL @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL : LOCATE L_0004 3241 FAULT(32,0) %UNLESS 0<=FNAME<=127 O LINE 3241 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 @ PUSH FNAME " JUMPIFD > L_0005 N PUSHI #0x0000007f ? JUMPIF <= L_0004 : LOCATE L_0005 @ PUSH FAULT N PUSHI #0x00000020 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 3242 ALT=A(P+1); P=P+2 O LINE 3242 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS S ASSVAL O LINE 3242 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 3243 %IF ALT=1 %THEN %START O LINE 3243 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT N PUSHI #0x00000001 ? JUMPIF # L_0004 3244 Q=1 O LINE 3244 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q N PUSHI #0x00000001 S ASSVAL 3245 MASK=FROM AR2(P) O LINE 3245 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MASK @ PUSH FROMAR2 @ PUSH P p ASSPAR E CALL S ASSVAL 3246 FILLER=FROM AR2(P+2) O LINE 3246 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FILLER @ PUSH FROMAR2 @ PUSH P N PUSHI #0x00000002 + ADD p ASSPAR E CALL S ASSVAL 3247 P=P+4 O LINE 3247 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000004 + ADD S ASSVAL 3248 FAULT(32,0) %UNLESS 0<=MASK!FILLER<=255 O LINE 3248 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 @ PUSH MASK @ PUSH FILLER ! OR " JUMPIFD > L_0008 N PUSHI #0x000000ff ? JUMPIF <= L_0007 : LOCATE L_0008 @ PUSH FAULT N PUSHI #0x00000020 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0007 3249 %FINISH O LINE 3249 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 3250 PF2(OPCODE,H,Q,FNAME,MASK,FILLER) O LINE 3250 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF2 @ PUSH OPCODE p ASSPAR @ PUSH H p ASSPAR @ PUSH Q p ASSPAR @ PUSH FNAME p ASSPAR @ PUSH MASK p ASSPAR @ PUSH FILLER p ASSPAR E CALL 3251 ->EXIT O LINE 3251 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0216 3252 F(3): ! TERTIARY FORMAT O LINE 3252 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000003 _ SLABEL 531 3253 MASK=FROM AR2(P) O LINE 3253 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MASK @ PUSH FROMAR2 @ PUSH P p ASSPAR E CALL S ASSVAL 3254 ALT=A(P+2) O LINE 3254 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT @ PUSH A @ PUSH P N PUSHI #0x00000002 + ADD a ACCESS S ASSVAL 3255 FAULT(32,0) %UNLESS 0<=MASK<=15 O LINE 3255 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 @ PUSH MASK " JUMPIFD > L_0005 N PUSHI #0x0000000f ? JUMPIF <= L_0004 : LOCATE L_0005 @ PUSH FAULT N PUSHI #0x00000020 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 3256 P=P+3; ->TOP(ALT) O LINE 3256 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL O LINE 3256 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT W SJUMP 533 3257 TOP(1): ! LABEL O LINE 3257 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 _ SLABEL 533 3258 FNAME=FROM AR2(P); P=P+2 O LINE 3258 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FNAME @ PUSH FROMAR2 @ PUSH P p ASSPAR E CALL S ASSVAL O LINE 3258 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 3259 ENTER JUMP(OPCODE<<24!MASK<<21,FNAME,0) O LINE 3259 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ENTERJUMP @ PUSH OPCODE N PUSHI #0x00000018 [ LSH @ PUSH MASK N PUSHI #0x00000015 [ LSH ! OR p ASSPAR @ PUSH FNAME p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 3260 ->EXIT O LINE 3260 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0216 3261 TOP(2): ! SYMBOLIC OPERAND O LINE 3261 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000002 _ SLABEL 533 3262 CIND O LINE 3262 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CIND E CALL 3263 FAULT(32,0) %IF AREA>=6 O LINE 3263 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000006 ? JUMPIF < L_0004 @ PUSH FAULT N PUSHI #0x00000020 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 3264 %IF AREA=LNB %OR AREA=XNB %OR AREA=CTB %THEN DISP=DISP//4 O LINE 3264 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000002 ? JUMPIF = L_0005 @ PUSH AREA N PUSHI #0x00000003 ? JUMPIF = L_0005 @ PUSH AREA N PUSHI #0x00000005 ? JUMPIF # L_0004 : LOCATE L_0005 @ PUSH DISP @ PUSH DISP N PUSHI #0x00000004 / QUOT S ASSVAL : LOCATE L_0004 3265 TOPI: PF3(OPCODE,MASK,AREA,DISP) O LINE 3265 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0218 O LINE 3265 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF3 @ PUSH OPCODE p ASSPAR @ PUSH MASK p ASSPAR @ PUSH AREA p ASSPAR @ PUSH DISP p ASSPAR E CALL 3266 ->EXIT O LINE 3266 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0216 3267 TOP(3): ! (DR) & (DR+B) O LINE 3267 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000003 _ SLABEL 533 3268 DISP=0; AREA=8-A(P) O LINE 3268 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP N PUSHI #0x00000000 S ASSVAL O LINE 3268 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000008 @ PUSH A @ PUSH P a ACCESS - SUB S ASSVAL 3269 P=P+1; ->TOPI O LINE 3269 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 3269 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0218 3270 TOP(4): ! (DR+N) O LINE 3270 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000004 _ SLABEL 533 3271 DISP=FROM AR2(P); P=P+2 O LINE 3271 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP @ PUSH FROMAR2 @ PUSH P p ASSPAR E CALL S ASSVAL O LINE 3271 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 3272 AREA=1; ->TOPI O LINE 3272 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000001 S ASSVAL O LINE 3272 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0218 3273 %ROUTINE CIND 3274 !*********************************************************************** 3275 !* COMPILE A SYMBOLIC OPERAND BY SETTING ACCESS,AREA &DISP * 3276 !*********************************************************************** O LINE 3273 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CIND (_lev0id0_lev1id1_lev2id3_CSS_lev4id12_CIND) p1=V_0209 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 O LINE 3277 "regression-compile-tmp/nrimp10s-77.imp" $ DEF ALT 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 $ DEF AFN p1=V_021a a/tf=11 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_021b a/tf=11 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_021c a/tf=11 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_021d a/tf=11 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_021e a/tf=11 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_021f a/tf=11 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_0220 a/tf=11 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_0221 a/tf=11 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_0222 a/tf=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) O LINE 3278 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 N PUSHI #0x00000004 b BOUNDS $ DEF SW p1=V_0223 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) O LINE 3279 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AFN @ PUSH ADDR @ PUSH FN0 p ASSPAR E CALL S ASSVAL 3280 ALT=A(P); ACCESS=0 O LINE 3280 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT @ PUSH A @ PUSH P a ACCESS S ASSVAL O LINE 3280 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACCESS N PUSHI #0x00000000 S ASSVAL 3281 P=P+1; ->SW(ALT) O LINE 3281 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 3281 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT W SJUMP 547 3282 SW(1): ! (=')(PLUS')(ICONST) O LINE 3282 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 _ SLABEL 547 3283 P=P+1; ! PAST (=') O LINE 3283 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 3284 D=A(P); CTYPE=A(P+1) O LINE 3284 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D @ PUSH A @ PUSH P a ACCESS S ASSVAL O LINE 3284 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTYPE @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS S ASSVAL 3285 CPREC=CTYPE>>4; CTYPE=CTYPE&7 O LINE 3285 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPREC @ PUSH CTYPE N PUSHI #0x00000004 ] RSH S ASSVAL O LINE 3285 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTYPE @ PUSH CTYPE N PUSHI #0x00000007 & AND S ASSVAL 3286 %IF CPREC=4 %THEN FN0=FROM AR2(P+2) %ELSE %START O LINE 3286 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPREC N PUSHI #0x00000004 ? JUMPIF # L_0004 @ PUSH FN0 @ PUSH FROMAR2 @ PUSH P N PUSHI #0x00000002 + ADD p ASSPAR E CALL S ASSVAL F GOTO L_0003 : LOCATE L_0004 3287 %CYCLE JJ=0,1,BYTES(CPREC)-1 O LINE 3287 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ N PUSHI #0x00000001 @ PUSH BYTES @ PUSH CPREC a ACCESS N PUSHI #0x00000001 - SUB N PUSHI #0x00000000 f FOR L_0006 3288 BYTEINTEGER(AFN+JJ)=A(P+JJ+2) O LINE 3288 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BYTEINTEGER @ PUSH AFN @ PUSH JJ + ADD p ASSPAR E CALL @ PUSH A @ PUSH P @ PUSH JJ + ADD N PUSHI #0x00000002 + ADD a ACCESS S ASSVAL 3289 %REPEAT O LINE 3289 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0006 : LOCATE L_0007 3290 %FINISH O LINE 3290 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 3291 P=P+2+BYTES(CPREC) O LINE 3291 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD @ PUSH BYTES @ PUSH CPREC a ACCESS + ADD S ASSVAL 3292 %IF D=2 %THEN %START O LINE 3292 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D N PUSHI #0x00000002 ? JUMPIF # L_0004 3293 %IF CTYPE=2 %THEN FN0=FN0!!16_80000000 %ELSE %START O LINE 3293 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTYPE N PUSHI #0x00000002 ? JUMPIF # L_0007 @ PUSH FN0 @ PUSH FN0 N PUSHI #0x80000000 % XOR S ASSVAL F GOTO L_0006 : LOCATE L_0007 3294 %IF CPREC=6 %THEN LONGINTEGER(AFN)=-LONGINTEGER(AFN) %ELSE FN0=-FN0 O LINE 3294 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPREC N PUSHI #0x00000006 ? JUMPIF # L_000a @ PUSH LONGINTEGER @ PUSH AFN p ASSPAR E CALL @ PUSH LONGINTEGER @ PUSH AFN p ASSPAR E CALL U NEGATE S ASSVAL F GOTO L_0009 : LOCATE L_000a @ PUSH FN0 @ PUSH FN0 U NEGATE S ASSVAL : LOCATE L_0009 3295 %FINISH O LINE 3295 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 3296 %FINISH O 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 O LINE 3297 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0224 O LINE 3297 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTYPE N PUSHI #0x00000001 ? JUMPIF # L_0005 @ PUSH CPREC N PUSHI #0x00000005 ? JUMPIF > L_0005 N PUSHI #0xfffe0000 @ PUSH FN0 " JUMPIFD > L_0005 N PUSHI #0x0001ffff ? JUMPIF <= L_0004 : LOCATE L_0005 J JUMP L_0225 : LOCATE L_0004 3298 AREA=0; DISP=FN0 O LINE 3298 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000000 S ASSVAL O LINE 3298 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP @ PUSH FN0 S ASSVAL 3299 %RETURN O LINE 3299 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 3300 LIT: FAULT(32,0) %UNLESS 1<=CTYPE<=2 %AND 5<=CPREC<=7 O LINE 3300 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0225 O LINE 3300 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 @ PUSH CTYPE " JUMPIFD > L_0005 N PUSHI #0x00000002 ? JUMPIF > L_0005 N PUSHI #0x00000005 @ PUSH CPREC " JUMPIFD > L_0005 N PUSHI #0x00000007 ? JUMPIF <= L_0004 : LOCATE L_0005 @ PUSH FAULT N PUSHI #0x00000020 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 3301 STORE CONST(DISP,BYTES(CPREC),AFN) O LINE 3301 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STORECONST @ PUSH DISP p ASSPAR @ PUSH BYTES @ PUSH CPREC a ACCESS p ASSPAR @ PUSH AFN p ASSPAR E CALL 3302 AREA=PC; ACCESS=0 O LINE 3302 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000004 S ASSVAL O LINE 3302 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACCESS N PUSHI #0x00000000 S ASSVAL 3303 %RETURN O LINE 3303 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 3304 SW(2): ! (NAME)(OPTINC) O LINE 3304 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000002 _ SLABEL 547 3305 FN0=FROM AR2(P); P=P+2 O LINE 3305 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FN0 @ PUSH FROMAR2 @ PUSH P p ASSPAR E CALL S ASSVAL O LINE 3305 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 3306 COPY TAG(FN0) O LINE 3306 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COPYTAG @ PUSH FN0 p ASSPAR E CALL 3307 %IF (LITL=1 %AND ARR=0) %START O LINE 3307 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LITL N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH ARR N PUSHI #0x00000000 ? JUMPIF # L_0004 3308 CTYPE=TYPE; CPREC=PREC O LINE 3308 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTYPE @ PUSH TYPE S ASSVAL O LINE 3308 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPREC @ PUSH PREC S ASSVAL 3309 ALT=TAGS(FN0) O LINE 3309 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT @ PUSH TAGS @ PUSH FN0 a ACCESS S ASSVAL 3310 FROM123(ALT,D,FN0,FN1) O LINE 3310 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FROM123 @ PUSH ALT p ASSPAR @ PUSH D p ASSPAR @ PUSH FN0 p ASSPAR @ PUSH FN1 p ASSPAR E CALL 3311 %IF CPREC=7 %THEN AFN=FN1 O LINE 3311 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPREC N PUSHI #0x00000007 ? JUMPIF # L_0007 @ PUSH AFN @ PUSH FN1 S ASSVAL : LOCATE L_0007 3312 ->CNST O LINE 3312 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0224 3313 %FINISH O 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 O LINE 3314 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000006 ? JUMPIF >= L_0005 @ PUSH TYPE N PUSHI #0x00000004 ? JUMPIF = L_0005 @ PUSH ROUT N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH NAM N PUSHI #0x00000000 ? JUMPIF # L_0004 : LOCATE L_0005 @ PUSH FAULT N PUSHI #0x00000021 p ASSPAR @ PUSH FN0 p ASSPAR E CALL R RETURN : LOCATE L_0004 3315 %IF ROUT=1 %THEN K=FROM1(K) O LINE 3315 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUT N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH K @ PUSH FROM1 @ PUSH K p ASSPAR E CALL S ASSVAL : LOCATE L_0004 3316 AREA=LNB O LINE 3316 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000002 S ASSVAL 3317 %IF I#RBASE %THEN AREA=SET XORYNB(XNB,I) O LINE 3317 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH RBASE ? JUMPIF = L_0004 @ PUSH AREA @ PUSH SETXORYNB N PUSHI #0x00000003 p ASSPAR @ PUSH I p ASSPAR E CALL S ASSVAL : LOCATE L_0004 3318 ALT=A(P); D=FROM AR2(P+1) O LINE 3318 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT @ PUSH A @ PUSH P a ACCESS S ASSVAL O LINE 3318 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D @ PUSH FROMAR2 @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR E CALL S ASSVAL 3319 %IF ALT=1 %THEN K=K+D O LINE 3319 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH K @ PUSH K @ PUSH D + ADD S ASSVAL : LOCATE L_0004 3320 %IF ALT=2 %THEN K=K-D O LINE 3320 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH K @ PUSH K @ PUSH D - SUB S ASSVAL : LOCATE L_0004 3321 P=P+1; P=P+2 %IF ALT<=2 O LINE 3321 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 3321 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT N PUSHI #0x00000002 ? JUMPIF > L_0004 @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL : LOCATE L_0004 3322 DISP=K; %RETURN O LINE 3322 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP @ PUSH K S ASSVAL O LINE 3322 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 3323 SW(3): ! '('(REG)(OPTINC)')' O LINE 3323 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000003 _ SLABEL 547 3324 AREA=A(P)+1; ALT=A(P+1); P=P+2 O LINE 3324 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 + ADD S ASSVAL O LINE 3324 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS S ASSVAL O LINE 3324 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 3325 DISP=0 O LINE 3325 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP N PUSHI #0x00000000 S ASSVAL 3326 D=FROM AR2(P) O LINE 3326 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D @ PUSH FROMAR2 @ PUSH P p ASSPAR E CALL S ASSVAL 3327 %IF ALT=1 %THEN DISP=D O LINE 3327 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH DISP @ PUSH D S ASSVAL : LOCATE L_0004 3328 %IF ALT=2 %THEN FAULT(32,0) O LINE 3328 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH FAULT N PUSHI #0x00000020 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 3329 %IF AREA=PC %THEN DISP=CA+2*DISP %ELSE DISP=4*DISP O LINE 3329 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000004 ? JUMPIF # L_0004 @ PUSH DISP @ PUSH CA N PUSHI #0x00000002 @ PUSH DISP * MUL + ADD S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH DISP N PUSHI #0x00000004 @ PUSH DISP * MUL S ASSVAL : LOCATE L_0003 3330 P=P+2 %UNLESS ALT=3 O LINE 3330 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT N PUSHI #0x00000003 ? JUMPIF = L_0004 @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL : LOCATE L_0004 3331 %RETURN O LINE 3331 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 3332 SW(4): ! '%TOS' O LINE 3332 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000004 _ SLABEL 547 3333 AREA=6; DISP=0 O LINE 3333 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000006 S ASSVAL O LINE 3333 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP N PUSHI #0x00000000 S ASSVAL 3334 %END O LINE 3334 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_lev4id12_CIND {lev=6 --> 5} 3335 EXIT: GRUSE(ACCR)=0 O LINE 3335 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0216 O LINE 3335 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL 3336 GRUSE(DR)=0 O LINE 3336 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000001 a ACCESS N PUSHI #0x00000000 S ASSVAL 3337 GRUSE(BREG)=0 O LINE 3337 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000007 a ACCESS N PUSHI #0x00000000 S ASSVAL 3338 GRUSE(XNB)=0 %IF OPCODE=CALL %OR OPCODE=LXN %OR OPCODE=JLK %OR OPCODE=OUT O LINE 3338 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OPCODE N PUSHI #0x0000001e ? JUMPIF = L_0005 @ PUSH OPCODE N PUSHI #0x0000007e ? JUMPIF = L_0005 @ PUSH OPCODE N PUSHI #0x0000001c ? JUMPIF = L_0005 @ PUSH OPCODE N PUSHI #0x0000003c ? JUMPIF # L_0004 : LOCATE L_0005 @ PUSH GRUSE N PUSHI #0x00000003 a ACCESS N PUSHI #0x00000000 S ASSVAL : LOCATE L_0004 3339 GRUSE(CTB)=0 %IF OPCODE=CALL %OR OPCODE=LCT %OR OPCODE=JLK %OR OPCODE=OUT O LINE 3339 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OPCODE N PUSHI #0x0000001e ? JUMPIF = L_0005 @ PUSH OPCODE N PUSHI #0x00000030 ? JUMPIF = L_0005 @ PUSH OPCODE N PUSHI #0x0000001c ? JUMPIF = L_0005 @ PUSH OPCODE N PUSHI #0x0000003c ? JUMPIF # L_0004 : LOCATE L_0005 @ PUSH GRUSE N PUSHI #0x00000005 a ACCESS N PUSHI #0x00000000 S ASSVAL : LOCATE L_0004 3340 %END O LINE 3340 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_lev4id12 {lev=5 --> 4} 3341 ->CSSEXIT O LINE 3341 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 3342 SW(20): 3343 ! '%TRUSTEDPROGRAM' O LINE 3342 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000014 _ SLABEL 470 3344 COMPILER=1 %IF PARMARR=0 %AND PARMCHK=0; ->CSSEXIT O LINE 3344 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMARR N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH PARMCHK N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH COMPILER N PUSHI #0x00000001 S ASSVAL : LOCATE L_0004 O LINE 3344 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 3345 SW(21): ! '%MAINEP'(NAME) O LINE 3345 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000015 _ SLABEL 470 3346 KK=FROM AR2(P+1) O LINE 3346 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KK @ PUSH FROMAR2 @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR E CALL S ASSVAL 3347 FAULT(58,0) %UNLESS CPRMODE=0 O LINE 3347 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CPRMODE N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH FAULT N PUSHI #0x0000003a p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 3348 MAINEP<-STRING(DICTBASE+WORD(KK)) O LINE 3348 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MAINEP @ PUSH STRING @ PUSH DICTBASE @ PUSH WORD @ PUSH KK a ACCESS + ADD p ASSPAR E CALL j JAM 3349 ->CSSEXIT O LINE 3349 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0206 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 !*********************************************************************** O LINE 3350 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CRFORMAT (_lev0id0_lev1id1_lev2id3_CSS_CRFORMAT) p1=V_01cc 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_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 } 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 O LINE 3363 "regression-compile-tmp/nrimp10s-77.imp" $ DEF D1 p1=V_020a a/tf=11 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_020b a/tf=11 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_020c a/tf=11 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_020d a/tf=11 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_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 MRL 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 $ DEF UNSCAL 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 SC 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 DESC 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 FN 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 INC 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 Q 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 R 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 A0 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 A1 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 A2 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 $ DEF DV p1=V_021a a/tf=11 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_021b a/tf=11 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_021c a/tf=11 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_021d a/tf=11 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_021e a/tf=11 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_021f a/tf=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) O LINE 3364 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 N PUSHI #0x00000005 b BOUNDS $ DEF RFEL p1=V_0220 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) O LINE 3365 "regression-compile-tmp/nrimp10s-77.imp" $ DEF SN (_lev0id0_lev1id1_lev2id3_CSS_CRFORMAT_SN) p1=V_0221 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_0222 a/tf=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 O LINE 3366 "regression-compile-tmp/nrimp10s-77.imp" $ DEF ROUND (_lev0id0_lev1id1_lev2id3_CSS_CRFORMAT_ROUND) p1=V_0222 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 O LINE 3367 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NLIST N PUSHI #0x00000000 S ASSVAL O LINE 3367 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OPHEAD N PUSHI #0x00000000 S ASSVAL O LINE 3367 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FORM N PUSHI #0x00000000 S ASSVAL O LINE 3367 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC N PUSHI #0x00000000 S ASSVAL O LINE 3367 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OB N PUSHI #0x00000000 S ASSVAL 3368 MRL=0; INC=0; ! INC COUNTS DOWN RECORD O LINE 3368 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MRL N PUSHI #0x00000000 S ASSVAL O LINE 3368 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INC N PUSHI #0x00000000 S ASSVAL 3369 NEXT: ROUT=0; LITL=0; NAM=0; RFD=A(P) O LINE 3369 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0223 O LINE 3369 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUT N PUSHI #0x00000000 S ASSVAL O LINE 3369 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LITL N PUSHI #0x00000000 S ASSVAL O LINE 3369 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000000 S ASSVAL O LINE 3369 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RFD @ PUSH A @ PUSH P a ACCESS S ASSVAL 3370 %IF RFD<=2 %THEN P=P+1 %AND CLT O LINE 3370 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RFD N PUSHI #0x00000002 ? JUMPIF > L_0004 @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL @ PUSH CLT E CALL : LOCATE L_0004 3371 ->RFEL(RFD) O LINE 3371 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RFD W SJUMP 544 3372 RFEL(1): ! (TYPE) (QNAME')(NAMELIST) O LINE 3372 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 _ SLABEL 544 3373 CQN(P); P=P+1 O LINE 3373 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CQN @ PUSH P p ASSPAR E CALL O LINE 3373 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 3374 PACK(PTYPE); D2=0 O LINE 3374 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PACK @ PUSH PTYPE p ASSPAR E CALL O LINE 3374 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D2 N PUSHI #0x00000000 S ASSVAL 3375 RL=3 O LINE 3375 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RL N PUSHI #0x00000003 S ASSVAL 3376 %IF NAM=0 %AND 3<=PREC<=4 %THEN RL=PREC-3 O LINE 3376 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000000 ? JUMPIF # L_0004 N PUSHI #0x00000003 @ PUSH PREC " JUMPIFD > L_0004 N PUSHI #0x00000004 ? JUMPIF > L_0004 @ PUSH RL @ PUSH PREC N PUSHI #0x00000003 - SUB S ASSVAL : LOCATE L_0004 3377 AGN: ROUND ; J=0 O LINE 3377 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0224 O LINE 3377 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUND E CALL O LINE 3377 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 3378 {%UNTIL A(P-1)=2} %CYCLE O LINE 3378 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 3379 D1=INC; SN(P) O LINE 3379 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D1 @ PUSH INC S ASSVAL O LINE 3379 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SN @ PUSH P p ASSPAR E CALL 3380 P=P+3; INC=INC+ACC O LINE 3380 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL O LINE 3380 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INC @ PUSH INC @ PUSH ACC + ADD S ASSVAL 3381 %REPEAT %UNTIL A(P-1)=2 O LINE 3381 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 - SUB a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0004 B REPEAT L_0003 : LOCATE L_0004 3382 P=P+RFD>>2<<1; ! EXTRA 2 FOR RECORDS TO SKIP FORMAT O LINE 3382 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P @ PUSH RFD N PUSHI #0x00000002 ] RSH N PUSHI #0x00000001 [ LSH + ADD S ASSVAL 3383 TRY END: -> END %IF A(P)=2 O LINE 3383 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0225 O LINE 3383 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0004 J JUMP L_0226 : LOCATE L_0004 3384 P=P+1; -> NEXT O LINE 3384 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 3384 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0223 3385 RFEL(2):RFEL2: ! (TYPE)%ARRAY(NAMELIST)(BPAIR) O LINE 3385 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000002 _ SLABEL 544 O LINE 3385 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0227 3386 Q=P; ARR=1; PACK(PTYPE) O LINE 3386 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH P S ASSVAL O LINE 3386 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARR N PUSHI #0x00000001 S ASSVAL O LINE 3386 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PACK @ PUSH PTYPE p ASSPAR E CALL 3387 %IF TYPE<=2 %THEN UNSCAL=0 %AND SC=PREC %ELSE UNSCAL=1 %AND SC=3 O LINE 3387 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000002 ? JUMPIF > L_0004 @ PUSH UNSCAL N PUSHI #0x00000000 S ASSVAL @ PUSH SC @ PUSH PREC S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH UNSCAL N PUSHI #0x00000001 S ASSVAL @ PUSH SC N PUSHI #0x00000003 S ASSVAL : LOCATE L_0003 3388 %IF PREC=4 %THEN DESC=16_58000002 %ELSE DESC=SC<<27!UNSCAL<<25!(1-PARMARR)<<24 O LINE 3388 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000004 ? JUMPIF # L_0004 @ PUSH DESC N PUSHI #0x58000002 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH DESC @ PUSH SC N PUSHI #0x0000001b [ LSH @ PUSH UNSCAL N PUSHI #0x00000019 [ LSH ! OR N PUSHI #0x00000001 @ PUSH PARMARR - SUB N PUSHI #0x00000018 [ LSH ! OR S ASSVAL : LOCATE L_0003 3389 {%UNTIL A(P-1)=2} %CYCLE; ! UNTIL NULL O LINE 3389 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 3390 P=P+3 %UNTIL A(P-1)=2 3391 O LINE 3390 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL @ PUSH A @ PUSH P N PUSHI #0x00000001 - SUB a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0007 B REPEAT L_0006 : LOCATE L_0007 3392 TYPEP=PTYPE; SACC=ACC O LINE 3392 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPEP @ PUSH PTYPE S ASSVAL O LINE 3392 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SACC @ PUSH ACC S ASSVAL 3393 DV=DOPE VECTOR(TYPE,ACC,0,FROMAR2(Q),R,LB)+12 3394 ! DOPE VECTOR INTO SHAREABLE S.T. O LINE 3393 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DV @ PUSH DOPEVECTOR @ PUSH TYPE p ASSPAR @ PUSH ACC p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH FROMAR2 @ PUSH Q p ASSPAR E CALL p ASSPAR @ PUSH R p ASSPAR @ PUSH LB p ASSPAR E CALL N PUSHI #0x0000000c + ADD S ASSVAL 3395 ACC=SACC; PTYPE=TYPEP; UNPACK O LINE 3395 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC @ PUSH SACC S ASSVAL O LINE 3395 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE @ PUSH TYPEP S ASSVAL O LINE 3395 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UNPACK E CALL 3396 %IF TYPE=5 %OR (TYPE=1 %AND PREC=3) %THEN RL=0 %ELSE RL=3 O LINE 3396 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000005 ? JUMPIF = L_0008 @ PUSH TYPE N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH PREC N PUSHI #0x00000003 ? JUMPIF # L_0007 : LOCATE L_0008 @ PUSH RL N PUSHI #0x00000000 S ASSVAL F GOTO L_0006 : LOCATE L_0007 @ PUSH RL N PUSHI #0x00000003 S ASSVAL : LOCATE L_0006 3397 ROUND O LINE 3397 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUND E CALL 3398 {%UNTIL A(Q-1)=2} %CYCLE; ! HEAD INTO GLA FOR EACH ARRAY O LINE 3398 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 3399 A0=R; %IF UNSCAL=0 %THEN A0=A0//ACC O LINE 3399 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A0 @ PUSH R S ASSVAL O LINE 3399 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UNSCAL N PUSHI #0x00000000 ? JUMPIF # L_000a @ PUSH A0 @ PUSH A0 @ PUSH ACC / QUOT S ASSVAL : LOCATE L_000a 3400 %IF PREC=4 %THEN A0=0; ! STRING DESCRIPTORS ! O LINE 3400 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000004 ? JUMPIF # L_000a @ PUSH A0 N PUSHI #0x00000000 S ASSVAL : LOCATE L_000a 3401 A0=A0!DESC; A1=INC O LINE 3401 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A0 @ PUSH A0 @ PUSH DESC ! OR S ASSVAL O LINE 3401 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A1 @ PUSH INC S ASSVAL 3402 %IF TYPE<=3 %AND PARMARR=0=PARMCHK %AND J=1 %THEN A1=A1-LB*ACC O LINE 3402 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000003 ? JUMPIF > L_000a @ PUSH PARMARR N PUSHI #0x00000000 " JUMPIFD # L_000a @ PUSH PARMCHK ? JUMPIF # L_000a @ PUSH J N PUSHI #0x00000001 ? JUMPIF # L_000a @ PUSH A1 @ PUSH A1 @ PUSH LB @ PUSH ACC * MUL - SUB S ASSVAL : LOCATE L_000a 3403 A2=5<<27!3*J O LINE 3403 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A2 N PUSHI #0x00000005 N PUSHI #0x0000001b [ LSH N PUSHI #0x00000003 @ PUSH J * MUL ! OR S ASSVAL 3404 PGLA(4,16,ADDR(A0)) O LINE 3404 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PGLA N PUSHI #0x00000004 p ASSPAR N PUSHI #0x00000010 p ASSPAR @ PUSH ADDR @ PUSH A0 p ASSPAR E CALL p ASSPAR E CALL 3405 D1=GLACA-16 O LINE 3405 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D1 @ PUSH GLACA N PUSHI #0x00000010 - SUB S ASSVAL 3406 RELOCATE(D1+12,DV,1); ! RELOCATE DV POINTER O LINE 3406 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RELOCATE @ PUSH D1 N PUSHI #0x0000000c + ADD p ASSPAR @ PUSH DV p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 3407 NOTE CREF(16_80000000!(DV<<1>>3)!(D1+12)>>2<<16, (DV&16_FFFF)<<2) O LINE 3407 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NOTECREF N PUSHI #0x80000000 @ PUSH DV N PUSHI #0x00000001 [ LSH N PUSHI #0x00000003 ] RSH ! OR @ PUSH D1 N PUSHI #0x0000000c + ADD N PUSHI #0x00000002 ] RSH N PUSHI #0x00000010 [ LSH ! OR p ASSPAR @ PUSH DV N PUSHI #0x0000ffff & AND N PUSHI #0x00000002 [ LSH p ASSPAR E CALL 3408 D2=INC O LINE 3408 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D2 @ PUSH INC S ASSVAL 3409 SN(Q); INC=INC+R O LINE 3409 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SN @ PUSH Q p ASSPAR E CALL O LINE 3409 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INC @ PUSH INC @ PUSH R + ADD S ASSVAL 3410 Q=Q+3 O LINE 3410 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH Q N PUSHI #0x00000003 + ADD S ASSVAL 3411 %REPEAT %UNTIL A(Q-1)=2; ! HEAD INTO GLA FOR EACH ARRAY O LINE 3411 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH Q N PUSHI #0x00000001 - SUB a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0007 B REPEAT L_0006 : LOCATE L_0007 3412 P=P+1; Q=P O LINE 3412 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 3412 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH P S ASSVAL 3413 %REPEAT %UNTIL A(P-1)=2 O LINE 3413 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 - SUB a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0004 B REPEAT L_0003 : LOCATE L_0004 3414 P=P+2 %IF RFD=5 O LINE 3414 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RFD N PUSHI #0x00000005 ? JUMPIF # L_0004 @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL : LOCATE L_0004 3415 -> TRY END O LINE 3415 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0225 3416 RFEL(3): ! %RECORD (%ARRAY) %NAME O LINE 3416 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000003 _ SLABEL 544 3417 TYPE=3; PREC=3; NAM=1 O LINE 3417 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000003 S ASSVAL O LINE 3417 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000003 S ASSVAL O LINE 3417 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000001 S ASSVAL 3418 ARR=2-A(P+1); P=P+2 O LINE 3418 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARR N PUSHI #0x00000002 @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS - SUB S ASSVAL O LINE 3418 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 3419 PACK(PTYPE); D2=0 O LINE 3419 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PACK @ PUSH PTYPE p ASSPAR E CALL O LINE 3419 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D2 N PUSHI #0x00000000 S ASSVAL 3420 RL=3; ACC=8+8*ARR O LINE 3420 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RL N PUSHI #0x00000003 S ASSVAL O LINE 3420 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC N PUSHI #0x00000008 N PUSHI #0x00000008 @ PUSH ARR * MUL + ADD S ASSVAL 3421 FORM=0 O LINE 3421 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FORM N PUSHI #0x00000000 S ASSVAL 3422 ->AGN O LINE 3422 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0224 3423 RFEL(4): ! RECORDS IN RECORDS O LINE 3423 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000004 _ SLABEL 544 3424 RFEL(5): ! RECORDARRAYS IN RECORDS O LINE 3424 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000005 _ SLABEL 544 3425 Q=P+FROM AR2(P+1)+1 O LINE 3425 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH P @ PUSH FROMAR2 @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR E CALL + ADD N PUSHI #0x00000001 + ADD S ASSVAL 3426 FN=FROM AR2(Q) O LINE 3426 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FN @ PUSH FROMAR2 @ PUSH Q p ASSPAR E CALL S ASSVAL 3427 COPY TAG(FN); ! COPY FORMAT TAG & SET ACC O LINE 3427 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COPYTAG @ PUSH FN p ASSPAR E CALL 3428 FAULT(62,FN) %UNLESS PTYPE=4 O LINE 3428 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000004 ? JUMPIF = L_0004 @ PUSH FAULT N PUSHI #0x0000003e p ASSPAR @ PUSH FN p ASSPAR E CALL : LOCATE L_0004 3429 TYPE=3; PREC=3; FORM=TCELL O LINE 3429 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000003 S ASSVAL O LINE 3429 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000003 S ASSVAL O LINE 3429 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FORM @ PUSH TCELL S ASSVAL 3430 %IF RFD=4 %THEN %START O LINE 3430 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RFD N PUSHI #0x00000004 ? JUMPIF # L_0004 3431 PTYPE=16_33; P=P+3; D2=0 O LINE 3431 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000033 S ASSVAL O LINE 3431 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL O LINE 3431 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D2 N PUSHI #0x00000000 S ASSVAL 3432 RL=3; ->AGN O LINE 3432 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RL N PUSHI #0x00000003 S ASSVAL O LINE 3432 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0224 3433 %FINISH O LINE 3433 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 3434 P=P+3; ->RFEL2 O LINE 3434 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL O LINE 3434 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0227 3435 END: ! FINISH OFF O LINE 3435 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0226 3436 RL=MRL; ROUND O LINE 3436 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RL @ PUSH MRL S ASSVAL O LINE 3436 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUND E CALL 3437 ACC=INC; ! SIZE ROUNDED APPROPRIATELY O LINE 3437 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC @ PUSH INC S ASSVAL 3438 FAULT(98,0) %UNLESS INC<=16_7FFF O LINE 3438 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INC N PUSHI #0x00007fff ? JUMPIF <= L_0004 @ PUSH FAULT N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 3439 CLEAR LIST(NLIST) O LINE 3439 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CLEARLIST @ PUSH NLIST p ASSPAR E CALL 3440 %RETURN O LINE 3440 "regression-compile-tmp/nrimp10s-77.imp" R 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 !*********************************************************************** O LINE 3441 "regression-compile-tmp/nrimp10s-77.imp" $ DEF SN (_lev0id0_lev1id1_lev2id3_CSS_CRFORMAT_SN) p1=V_0221 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_0228 a/tf=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) O LINE 3446 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FNAME @ PUSH FROMAR2 @ PUSH Q p ASSPAR E CALL S ASSVAL 3447 FAULT2(61,0,FNAME) %UNLESS FIND(FNAME,NLIST)=-1 O LINE 3447 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FIND @ PUSH FNAME p ASSPAR @ PUSH NLIST p ASSPAR E CALL N PUSHI #0x00000001 U NEGATE ? JUMPIF = L_0004 @ PUSH FAULT2 N PUSHI #0x0000003d p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH FNAME p ASSPAR E CALL : LOCATE L_0004 3448 BINSERT(OPHEAD,OB,FNAME<<20!PTYPE<<4!J,D2<<16!ACC,D1<<16!FORM) O LINE 3448 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BINSERT @ PUSH OPHEAD p ASSPAR @ PUSH OB p ASSPAR @ PUSH FNAME N PUSHI #0x00000014 [ LSH @ PUSH PTYPE N PUSHI #0x00000004 [ LSH ! OR @ PUSH J ! OR p ASSPAR @ PUSH D2 N PUSHI #0x00000010 [ LSH @ PUSH ACC ! OR p ASSPAR @ PUSH D1 N PUSHI #0x00000010 [ LSH @ PUSH FORM ! OR p ASSPAR E CALL 3449 PUSH(NLIST,0,FNAME,0) O LINE 3449 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PUSH @ PUSH NLIST p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH FNAME p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 3450 %END O LINE 3450 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_CRFORMAT_SN {lev=6 --> 5} 3451 %ROUTINE ROUND O LINE 3451 "regression-compile-tmp/nrimp10s-77.imp" $ DEF ROUND (_lev0id0_lev1id1_lev2id3_CSS_CRFORMAT_ROUND) p1=V_0222 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 O LINE 3452 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RL @ PUSH MRL ? JUMPIF <= L_0004 @ PUSH MRL @ PUSH RL S ASSVAL : LOCATE L_0004 3453 INC=INC+1 %WHILE INC&RL#0 O LINE 3453 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH INC @ PUSH RL & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH INC @ PUSH INC N PUSHI #0x00000001 + ADD S ASSVAL B REPEAT L_0003 : LOCATE L_0004 3454 %END O LINE 3454 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_CRFORMAT_ROUND {lev=6 --> 5} 3455 %END; ! OF ROUTINE CRFORMAT O 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 !*********************************************************************** O LINE 3456 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DISPLACEMENT (_lev0id0_lev1id1_lev2id3_CSS_DISPLACEMENT) p1=V_01cd 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_0209 a/tf=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) O LINE 3462 "regression-compile-tmp/nrimp10s-77.imp" $ DEF FCELL p1=V_020a a/tf=42 b/format=11f c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF PCELL p1=V_020b a/tf=42 b/format=11f c/ostate=0 type=4 (record) form=2 (name) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 $ DEF LCELL p1=V_020c a/tf=42 b/format=11f 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 O LINE 3463 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RR p1=V_020d a/tf=11 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_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 ENAME 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 $ DEF CELL 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 3464 ENAME=A(P)<<8+A(P+1); CELL=0 O LINE 3464 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ENAME @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000008 [ LSH @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS + ADD S ASSVAL O LINE 3464 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CELL N PUSHI #0x00000000 S ASSVAL 3465 %IF LINK#0 %THEN %START; ! CHK RECORDSPEC NOT OMITTED O LINE 3465 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LINK N PUSHI #0x00000000 ? JUMPIF = L_0004 3466 FCELL==ASLIST(LINK); ! ONTO FORMAT TAG CELL O LINE 3466 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FCELL @ PUSH ASLIST @ PUSH LINK a ACCESS Z ASSREF 3467 LINK=FCELL_S3&16_7FFF; ! LINK TO SIDE CHAIN O LINE 3467 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LINK @ PUSH FCELL n SELECT 3 N PUSHI #0x00007fff & AND S ASSVAL 3468 CELL=LINK; II=-1; ACC=-1 O LINE 3468 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CELL @ PUSH LINK S ASSVAL O LINE 3468 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH II N PUSHI #0x00000001 U NEGATE S ASSVAL O LINE 3468 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC N PUSHI #0x00000001 U NEGATE S ASSVAL 3469 %WHILE LINK>0 %CYCLE O LINE 3469 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 @ PUSH LINK N PUSHI #0x00000000 ? JUMPIF <= L_0007 3470 LCELL==ASLIST(LINK) O LINE 3470 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LCELL @ PUSH ASLIST @ PUSH LINK a ACCESS Z ASSREF 3471 %IF LCELL_S1>>20=ENAME %START; ! RIGHT SUBNAME LOCATED O LINE 3471 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LCELL n SELECT 1 N PUSHI #0x00000014 ] RSH @ PUSH ENAME ? JUMPIF # L_000a 3472 TCELL=LINK O LINE 3472 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TCELL @ PUSH LINK S ASSVAL 3473 RR=LCELL_S1 O LINE 3473 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RR @ PUSH LCELL n SELECT 1 S ASSVAL 3474 SNDISP=LCELL_S2 O LINE 3474 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SNDISP @ PUSH LCELL n SELECT 2 S ASSVAL 3475 K=LCELL_S3 O LINE 3475 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH LCELL n SELECT 3 S ASSVAL 3476 J=RR&15; PTYPE=RR>>4&16_FFFF O LINE 3476 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH RR N PUSHI #0x0000000f & AND S ASSVAL O LINE 3476 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE @ PUSH RR N PUSHI #0x00000004 ] RSH N PUSHI #0x0000ffff & AND S ASSVAL 3477 ACC=SNDISP&16_FFFF; SNDISP=SNDISP&16_FFFF0000//16_10000 O LINE 3477 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC @ PUSH SNDISP N PUSHI #0x0000ffff & AND S ASSVAL O LINE 3477 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SNDISP @ PUSH SNDISP N PUSHI #0xffff0000 & AND N PUSHI #0x00010000 / QUOT S ASSVAL 3478 KFORM=K&16_FFFF; K=K>>16 O LINE 3478 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KFORM @ PUSH K N PUSHI #0x0000ffff & AND S ASSVAL O LINE 3478 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH K N PUSHI #0x00000010 ] RSH S ASSVAL 3479 %IF LINK#CELL %START; ! NOT TOP CELL OF FORMAT O LINE 3479 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LINK @ PUSH CELL ? JUMPIF = L_000d 3480 PCELL_LINK=LCELL_LINK O LINE 3480 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PCELL n SELECT 4 @ PUSH LCELL n SELECT 4 S ASSVAL 3481 LCELL_LINK=CELL O LINE 3481 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LCELL n SELECT 4 @ PUSH CELL S ASSVAL 3482 FCELL_S3=FCELL_S3&16_FFFF0000!LINK O LINE 3482 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FCELL n SELECT 3 @ PUSH FCELL n SELECT 3 N PUSHI #0xffff0000 & AND @ PUSH LINK ! OR S ASSVAL 3483 %FINISH; ! ARRANGING LIST WITH THIS SUBNAME 3484 ! AT THE TOP O LINE 3483 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000d 3485 %RESULT=K O LINE 3485 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K V RESULT 3486 %FINISH O LINE 3486 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000a 3487 PCELL==LCELL O LINE 3487 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PCELL @ PUSH LCELL Z ASSREF 3488 LINK=LCELL_LINK O LINE 3488 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LINK @ PUSH LCELL n SELECT 4 S ASSVAL 3489 %REPEAT O LINE 3489 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0006 : LOCATE L_0007 3490 %FINISH O LINE 3490 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 3491 FAULT(65,ENAME) O LINE 3491 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FAULT N PUSHI #0x00000041 p ASSPAR @ PUSH ENAME p ASSPAR E CALL 3492 %IF CELL>0 %THEN PUSH(ASLIST(CELL)_LINK,ENAME<<20!7<<4,0,0) O LINE 3492 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CELL N PUSHI #0x00000000 ? JUMPIF <= L_0004 @ PUSH PUSH @ PUSH ASLIST @ PUSH CELL a ACCESS n SELECT 4 p ASSPAR @ PUSH ENAME N PUSHI #0x00000014 [ LSH N PUSHI #0x00000007 N PUSHI #0x00000004 [ LSH ! OR p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 3493 PTYPE=7; TCELL=0 O LINE 3493 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000007 S ASSVAL O LINE 3493 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TCELL N PUSHI #0x00000000 S ASSVAL 3494 %RESULT=-1 O LINE 3494 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 U NEGATE V RESULT 3495 %END O 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 !*********************************************************************** O LINE 3496 "regression-compile-tmp/nrimp10s-77.imp" $ DEF COPYRECORDTAG (_lev0id0_lev1id1_lev2id3_CSS_COPYRECORDTAG) p1=V_01ce 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_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 } FINISH ) {lev=5} 3505 %INTEGER Q,FNAME O LINE 3505 "regression-compile-tmp/nrimp10s-77.imp" $ DEF Q p1=V_020a a/tf=11 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_020b a/tf=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 O LINE 3506 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SUBS N PUSHI #0x00000000 S ASSVAL 3507 {%UNTIL TYPE#3} %CYCLE O LINE 3507 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 3508 FNAME=KFORM O LINE 3508 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FNAME @ PUSH KFORM S ASSVAL 3509 P=P+2; SKIP APP O LINE 3509 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL O LINE 3509 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SKIPAPP E CALL 3510 %RESULT=0 %IF A(P)=2 %OR FNAME<=0;! NO (FURTHER) ENAME O LINE 3510 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0008 @ PUSH FNAME N PUSHI #0x00000000 ? JUMPIF > L_0007 : LOCATE L_0008 N PUSHI #0x00000000 V RESULT : LOCATE L_0007 3511 SUBS=SUBS+1 O LINE 3511 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SUBS @ PUSH SUBS N PUSHI #0x00000001 + ADD S ASSVAL 3512 P=P+1; Q=DISPLACEMENT (FNAME) O LINE 3512 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 3512 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH DISPLACEMENT @ PUSH FNAME p ASSPAR E CALL S ASSVAL 3513 UNPACK O LINE 3513 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UNPACK E CALL 3514 %REPEAT %UNTIL TYPE#3 O LINE 3514 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000003 ? JUMPIF # L_0004 B REPEAT L_0003 : LOCATE L_0004 3515 %RESULT=Q+1; ! GIVES 0 IF SUBNAME NOT KNOWN O LINE 3515 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q N PUSHI #0x00000001 + ADD V RESULT 3516 %END O 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 !*********************************************************************** O LINE 3517 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CRNAME (_lev0id0_lev1id1_lev2id3_CSS_CRNAME) p1=V_0209 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_020a a/tf=11 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_020b a/tf=11 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_020c a/tf=11 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_020d a/tf=11 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_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 DP 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 $ DEF NAMEP p1=V_0210 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 O LINE 3527 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DEPTH 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 FNAME 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 3528 %ROUTINESPEC CENAME(%INTEGER MODE,FNAME,BS,AR,DP,XD) O LINE 3528 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CENAME (_lev0id0_lev1id1_lev2id3_CSS_CRNAME_CENAME) p1=V_0213 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_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 FNAME 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 BS 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 AR 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 DP 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 XD 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 } FINISH ) {lev=5} 3529 DEPTH=0 O LINE 3529 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DEPTH N PUSHI #0x00000000 S ASSVAL 3530 FNAME=KFORM; ! POINTER TO FORMAT O LINE 3530 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FNAME @ PUSH KFORM S ASSVAL 3531 %IF ARR=0 %OR (Z=6 %AND A(P+2)=2) %START;! SIMPLE RECORD O LINE 3531 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARR N PUSHI #0x00000000 ? JUMPIF = L_0005 @ PUSH Z N PUSHI #0x00000006 ? JUMPIF # L_0004 @ PUSH A @ PUSH P N PUSHI #0x00000002 + ADD a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0004 : LOCATE L_0005 3532 %IF A(P+2)=2 %THEN P=P+3 %ELSE NO APP O LINE 3532 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000002 + ADD a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0007 @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL F GOTO L_0006 : LOCATE L_0007 @ PUSH NOAPP E CALL : LOCATE L_0006 3533 CENAME(MODE,FNAME,BS,AR,DP,0) O LINE 3533 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CENAME @ PUSH MODE p ASSPAR @ PUSH FNAME p ASSPAR @ PUSH BS p ASSPAR @ PUSH AR p ASSPAR @ PUSH DP p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 3534 %FINISH %ELSE %START O LINE 3534 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 3535 CANAME(ARR,BS,DP) O LINE 3535 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CANAME @ PUSH ARR p ASSPAR @ PUSH BS p ASSPAR @ PUSH DP p ASSPAR E CALL 3536 CENAME(ACCESS,FNAME,BASE,AREA,DISP,0) O LINE 3536 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CENAME @ PUSH ACCESS p ASSPAR @ PUSH FNAME p ASSPAR @ PUSH BASE p ASSPAR @ PUSH AREA p ASSPAR @ PUSH DISP p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 3537 %FINISH; %RETURN 3538 ! O LINE 3537 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 O LINE 3537 "regression-compile-tmp/nrimp10s-77.imp" R 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 !*********************************************************************** O LINE 3539 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CENAME (_lev0id0_lev1id1_lev2id3_CSS_CRNAME_CENAME) p1=V_0213 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_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 FNAME 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 BS 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 AR 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 DP 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 XD 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 } FINISH ) {lev=6} 3546 %ROUTINESPEC FETCH RAD O LINE 3546 "regression-compile-tmp/nrimp10s-77.imp" $ DEF FETCHRAD (_lev0id0_lev1id1_lev2id3_CSS_CRNAME_CENAME_FETCHRAD) p1=V_021a 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) O LINE 3547 "regression-compile-tmp/nrimp10s-77.imp" $ DEF LOCALISE (_lev0id0_lev1id1_lev2id3_CSS_CRNAME_CENAME_LOCALISE) p1=V_021b 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_021c a/tf=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 O LINE 3548 "regression-compile-tmp/nrimp10s-77.imp" $ DEF Q p1=V_021c a/tf=11 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_021d a/tf=11 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_021e a/tf=11 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_021f a/tf=11 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_0220 a/tf=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 O LINE 3549 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DEPTH @ PUSH DEPTH N PUSHI #0x00000001 + ADD S ASSVAL 3550 %IF A(P)=2 %THEN %START; ! ENAME MISSING O LINE 3550 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0004 3551 ACCESS=MODE; AREA=AR; XDISP=XD O LINE 3551 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACCESS @ PUSH MODE S ASSVAL O LINE 3551 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA @ PUSH AR S ASSVAL O LINE 3551 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XDISP @ PUSH XD S ASSVAL 3552 BASE=BS; DISP=DP; ! FOR POINTER O LINE 3552 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BASE @ PUSH BS S ASSVAL O LINE 3552 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP @ PUSH DP S ASSVAL 3553 %IF Z<14 %THEN %START; ! NOT A RECORD OPERATION O LINE 3553 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Z N PUSHI #0x0000000e ? JUMPIF >= L_0007 3554 %UNLESS 3<=Z<=4 %OR Z=6 %START; ! ADDR(RECORD) O LINE 3554 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000003 @ PUSH Z " JUMPIFD > L_000b N PUSHI #0x00000004 ? JUMPIF <= L_000a : LOCATE L_000b @ PUSH Z N PUSHI #0x00000006 ? JUMPIF = L_000a 3555 FAULT(64,0); BASE=RBASE; AREA=-1 O LINE 3555 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FAULT N PUSHI #0x00000040 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL O LINE 3555 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BASE @ PUSH RBASE S ASSVAL O LINE 3555 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000001 U NEGATE S ASSVAL 3556 DISP=0; ACCESS=0; PTYPE=1; UNPACK O LINE 3556 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP N PUSHI #0x00000000 S ASSVAL O LINE 3556 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 3556 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000001 S ASSVAL O LINE 3556 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UNPACK E CALL 3557 %FINISH O LINE 3557 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000a 3558 %FINISH O LINE 3558 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 3559 %RETURN O LINE 3559 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 3560 %FINISH O LINE 3560 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 3561 P=P+1; ! FIND OUT ABOUT SUBNAME O LINE 3561 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 3562 Q=DISPLACEMENT(FNAME); ! TCELL POINTS TO CELL HOLDING O LINE 3562 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH DISPLACEMENT @ PUSH FNAME p ASSPAR E CALL S ASSVAL 3563 UNPACK; ! INFO ABOUT THE SUBNAME O LINE 3563 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UNPACK E CALL 3564 %IF Q=-1=ACC %OR PTYPE=7 %START; ! WRONG SUBNAME(HAS BEEN FAULTED) O LINE 3564 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q N PUSHI #0x00000001 U NEGATE " JUMPIFD # L_0006 @ PUSH ACC ? JUMPIF = L_0005 : LOCATE L_0006 @ PUSH PTYPE N PUSHI #0x00000007 ? JUMPIF # L_0004 : LOCATE L_0005 3565 P=P+2; SKIP APP; P=P-3 O LINE 3565 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL O LINE 3565 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SKIPAPP E CALL O LINE 3565 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 - SUB S ASSVAL 3566 ACCESS=0; BASE=RBASE; DISP=0; AREA=-1 O LINE 3566 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 3566 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BASE @ PUSH RBASE S ASSVAL O LINE 3566 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP N PUSHI #0x00000000 S ASSVAL O LINE 3566 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000001 U NEGATE S ASSVAL 3567 %RETURN O LINE 3567 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 3568 %FINISH O LINE 3568 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 3569 NAMEP=(A(P)<<8!A(P+1))<<16!NAMEP; ! NAMEP=-1 UNALTERED ! O LINE 3569 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAMEP @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000008 [ LSH @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS ! OR N PUSHI #0x00000010 [ LSH @ PUSH NAMEP ! OR S ASSVAL 3570 ->AE %IF ARR=1; ! ARRAYS INCLUDING RECORDARRAYS O LINE 3570 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARR N PUSHI #0x00000001 ? JUMPIF # L_0004 J JUMP L_0221 : LOCATE L_0004 3571 %IF A(P+2)=2 %THEN P=P+3 %ELSE NO APP O LINE 3571 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000002 + ADD a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH NOAPP E 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 O LINE 3572 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000002 ? JUMPIF <= L_0005 @ PUSH TYPE N PUSHI #0x00000005 ? JUMPIF = L_0005 @ PUSH TYPE N PUSHI #0x00000003 ? JUMPIF # L_0004 @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0004 N PUSHI #0x00000003 @ PUSH Z " JUMPIFD > L_0006 N PUSHI #0x00000004 ? JUMPIF <= L_0005 : LOCATE L_0006 @ PUSH Z N PUSHI #0x00000006 ? JUMPIF # L_0004 : LOCATE L_0005 3573 ACCESS=MODE+4+4*NAM; BASE=BS; O LINE 3573 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACCESS @ PUSH MODE N PUSHI #0x00000004 + ADD N PUSHI #0x00000004 @ PUSH NAM * MUL + ADD S ASSVAL O LINE 3573 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BASE @ PUSH BS S ASSVAL 3574 AREA=AR; DISP=DP; XDISP=XD+Q O LINE 3574 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA @ PUSH AR S ASSVAL O LINE 3574 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP @ PUSH DP S ASSVAL O LINE 3574 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XDISP @ PUSH XD @ PUSH Q + ADD S ASSVAL 3575 %RETURN O LINE 3575 "regression-compile-tmp/nrimp10s-77.imp" R 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 ! O LINE 3576 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 3585 XD=XD+Q O LINE 3585 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XD @ PUSH XD @ PUSH Q + ADD S ASSVAL 3586 NAMEP=-1 O LINE 3586 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAMEP N PUSHI #0x00000001 U NEGATE S ASSVAL 3587 %IF NAM=1 %THEN %START O LINE 3587 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000001 ? JUMPIF # L_0004 3588 %IF MODE=0 %START O LINE 3588 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF # L_0007 3589 DP=DP+XD; XD=0; MODE=2 O LINE 3589 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DP @ PUSH DP @ PUSH XD + ADD S ASSVAL O LINE 3589 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XD N PUSHI #0x00000000 S ASSVAL O LINE 3589 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000002 S ASSVAL 3590 %FINISH %ELSE %START O LINE 3590 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 3591 LOCALISE(8); ! PICK UP RECNAME DESCR &STCK O LINE 3591 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LOCALISE N PUSHI #0x00000008 p ASSPAR E CALL 3592 AR=AREA; DP=DISP; BS=BASE O LINE 3592 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AR @ PUSH AREA S ASSVAL O LINE 3592 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DP @ PUSH DISP S ASSVAL O LINE 3592 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BS @ PUSH BASE S ASSVAL 3593 %FINISH O LINE 3593 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 3594 %FINISH O LINE 3594 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 3595 CENAME(MODE,KFORM,BS,AR,DP,XD) O LINE 3595 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CENAME @ PUSH MODE p ASSPAR @ PUSH KFORM p ASSPAR @ PUSH BS p ASSPAR @ PUSH AR p ASSPAR @ PUSH DP p ASSPAR @ PUSH XD p ASSPAR E CALL 3596 %RETURN O LINE 3596 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 3597 AE: ! ARRAYS AND ARRAYNAMES AS ELEMEN O LINE 3597 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0221 3598 FROM123(TCELL,Q,SNDISP,K) O LINE 3598 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FROM123 @ PUSH TCELL p ASSPAR @ PUSH Q p ASSPAR @ PUSH SNDISP p ASSPAR @ PUSH K p ASSPAR E CALL 3599 ACC=SNDISP&16_FFFF; SNDISP=SNDISP&16_FFFF0000//16_10000 O LINE 3599 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC @ PUSH SNDISP N PUSHI #0x0000ffff & AND S ASSVAL O LINE 3599 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SNDISP @ PUSH SNDISP N PUSHI #0xffff0000 & AND N PUSHI #0x00010000 / QUOT S ASSVAL 3600 KFORM=K&16_FFFF; K=K>>16 O LINE 3600 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KFORM @ PUSH K N PUSHI #0x0000ffff & AND S ASSVAL O LINE 3600 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH K N PUSHI #0x00000010 ] RSH S ASSVAL 3601 C=ACC; D=SNDISP; Q=K; QQ=KFORM O LINE 3601 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH C @ PUSH ACC S ASSVAL O LINE 3601 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D @ PUSH SNDISP S ASSVAL O LINE 3601 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH K S ASSVAL O LINE 3601 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH QQ @ PUSH KFORM S ASSVAL 3602 %IF (Z=6 %OR Z=12) %AND A(P+2)=2 %START;! 'GET ARRAYHEAD' CALL O LINE 3602 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Z N PUSHI #0x00000006 ? JUMPIF = L_0005 @ PUSH Z N PUSHI #0x0000000c ? JUMPIF # L_0004 : LOCATE L_0005 @ PUSH A @ PUSH P N PUSHI #0x00000002 + ADD a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0004 3603 P=P+3 O LINE 3603 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL 3604 %IF NAM=1 %THEN %START O LINE 3604 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000001 ? JUMPIF # L_0007 3605 ACCESS=MODE+8; BASE=BS O LINE 3605 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACCESS @ PUSH MODE N PUSHI #0x00000008 + ADD S ASSVAL O LINE 3605 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BASE @ PUSH BS S ASSVAL 3606 AREA=AR; DISP=DP; XDISP=XD+Q O LINE 3606 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA @ PUSH AR S ASSVAL O LINE 3606 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP @ PUSH DP S ASSVAL O LINE 3606 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XDISP @ PUSH XD @ PUSH Q + ADD S ASSVAL 3607 %RETURN O LINE 3607 "regression-compile-tmp/nrimp10s-77.imp" R 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 ! O LINE 3608 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 3613 NAMEP=-1 O LINE 3613 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAMEP N PUSHI #0x00000001 U NEGATE S ASSVAL 3614 FETCH RAD O LINE 3614 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FETCHRAD E CALL 3615 AREA=-1; DISP=Q O LINE 3615 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000001 U NEGATE S ASSVAL O LINE 3615 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP @ PUSH Q S ASSVAL 3616 BASE=0; ACCESS=0; O LINE 3616 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BASE N PUSHI #0x00000000 S ASSVAL O LINE 3616 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACCESS N PUSHI #0x00000000 S ASSVAL 3617 CREATE AH(1) O LINE 3617 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CREATEAH N PUSHI #0x00000001 p ASSPAR E CALL 3618 %FINISH %ELSE %START; ! ARRAY ELEMENTS IN RECORDS O LINE 3618 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 3619 NAMEP=-1 O LINE 3619 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAMEP N PUSHI #0x00000001 U NEGATE S ASSVAL 3620 %IF NAM=1 %THEN %START; ! ARRAYNAMES-FULLHEAD IN RECORD O LINE 3620 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000001 ? JUMPIF # L_0007 3621 XD=XD+Q O LINE 3621 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XD @ PUSH XD @ PUSH Q + ADD S ASSVAL 3622 LOCALISE(16); ! MOVE HEAD UNDER LNB O LINE 3622 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LOCALISE N PUSHI #0x00000010 p ASSPAR E CALL 3623 CANAME(3,BASE,DISP); ! ARRAY MODE SETS DISP,AREA&BASE O LINE 3623 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CANAME N PUSHI #0x00000003 p ASSPAR @ PUSH BASE p ASSPAR @ PUSH DISP p ASSPAR E CALL 3624 %FINISH %ELSE %START; ! ARRAY RELATIVE HEAD IN GLA O LINE 3624 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 3625 %IF MODE=0 %OR MODE=2 %%START O LINE 3625 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF = L_000b @ PUSH MODE N PUSHI #0x00000002 ? JUMPIF # L_000a : LOCATE L_000b 3626 %IF MODE=0 %THEN W=DP-4 %ELSE W=DP+4 O LINE 3626 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF # L_000d @ PUSH W @ PUSH DP N PUSHI #0x00000004 - SUB S ASSVAL F GOTO L_000c : LOCATE L_000d @ PUSH W @ PUSH DP N PUSHI #0x00000004 + ADD S ASSVAL : LOCATE L_000c 3627 %FINISH %ELSE %START O LINE 3627 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0009 : LOCATE L_000a 3628 FETCH RAD; ! RECORD ADDR TO ACC O LINE 3628 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FETCHRAD E CALL 3629 GET WSP(W,1) O LINE 3629 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GETWSP @ PUSH W p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 3630 PSF1(ST,1,W); XD=0 O LINE 3630 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH W p ASSPAR E CALL O LINE 3630 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XD N PUSHI #0x00000000 S ASSVAL 3631 BS=RBASE O LINE 3631 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BS @ PUSH RBASE S ASSVAL 3632 %FINISH O 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 O LINE 3633 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CANAME N PUSHI #0x00000003 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH Q p ASSPAR E CALL 3635 %IF PARMARR=0=PARMCHK %AND ACCESS=3 %AND (PREC=3 %OR TYPE>=3) %START O LINE 3635 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMARR N PUSHI #0x00000000 " JUMPIFD # L_000a @ PUSH PARMCHK ? JUMPIF # L_000a @ PUSH ACCESS N PUSHI #0x00000003 ? JUMPIF # L_000a @ PUSH PREC N PUSHI #0x00000003 ? JUMPIF = L_000b @ PUSH TYPE N PUSHI #0x00000003 ? JUMPIF < L_000a : LOCATE L_000b 3636 PSORLF1(ADB,0,AREA CODE2(BS),W) O LINE 3636 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSORLF1 N PUSHI #0x00000020 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH AREACODE2 @ PUSH BS p ASSPAR E CALL p ASSPAR @ PUSH W p ASSPAR E CALL 3637 PSF1(ADB,0,XD) %UNLESS XD=0 O LINE 3637 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XD N PUSHI #0x00000000 ? JUMPIF = L_000d @ PUSH PSF1 N PUSHI #0x00000020 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH XD p ASSPAR E CALL : LOCATE L_000d 3638 GRUSE(BREG)=0 O LINE 3638 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000007 a ACCESS N PUSHI #0x00000000 S ASSVAL 3639 %FINISH %ELSE %START O LINE 3639 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0009 : LOCATE L_000a 3640 GET IN ACC(DR,2,0,AREA CODE,Q) O LINE 3640 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GETINACC N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000002 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH AREACODE E CALL p ASSPAR @ PUSH Q p ASSPAR E CALL 3641 PSORLF1(INCA,0,AREA CODE2(BS),W) O LINE 3641 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSORLF1 N PUSHI #0x00000014 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH AREACODE2 @ PUSH BS p ASSPAR E CALL p ASSPAR @ PUSH W p ASSPAR E CALL 3642 %IF ACCESS=1 %THEN ACCESS=2 %AND AREA=7 %AND XD=XD+NUMMOD*BYTES(PREC) O LINE 3642 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACCESS N PUSHI #0x00000001 ? JUMPIF # L_000d @ PUSH ACCESS N PUSHI #0x00000002 S ASSVAL @ PUSH AREA N PUSHI #0x00000007 S ASSVAL @ PUSH XD @ PUSH XD @ PUSH NUMMOD @ PUSH BYTES @ PUSH PREC a ACCESS * MUL + ADD S ASSVAL : LOCATE L_000d 3643 PSF1(INCA,0,XD) %UNLESS XD=0 O LINE 3643 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XD N PUSHI #0x00000000 ? JUMPIF = L_000d @ PUSH PSF1 N PUSHI #0x00000014 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH XD p ASSPAR E CALL : LOCATE L_000d 3644 FORGET (DR) O LINE 3644 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FORGET N PUSHI #0x00000001 p ASSPAR E CALL 3645 AREA=7; DISP=0; ! AND ACCESS = 2 OR 3 ONLY O LINE 3645 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000007 S ASSVAL O LINE 3645 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP N PUSHI #0x00000000 S ASSVAL 3646 %IF TYPE=3 %AND A(P)=1 %START; ! WILL BE A FURTHER CALL 3647 ! ON ROUTINE CENAME O LINE 3646 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000003 ? JUMPIF # L_000d @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_000d 3648 GET WSP(DISP,2) O LINE 3648 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GETWSP @ PUSH DISP p ASSPAR N PUSHI #0x00000002 p ASSPAR E CALL 3649 PSF1(STD,1,DISP) O LINE 3649 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000058 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH DISP p ASSPAR E CALL 3650 AREA=LNB; BASE=RBASE O LINE 3650 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000002 S ASSVAL O LINE 3650 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BASE @ PUSH RBASE S ASSVAL 3651 %FINISH O LINE 3651 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000d 3652 %FINISH O LINE 3652 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0009 3653 %FINISH O LINE 3653 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 3654 %IF TYPE=3 %THEN CENAME(ACCESS,QQ,BASE,AREA,DISP,0) O LINE 3654 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000003 ? JUMPIF # L_0007 @ PUSH CENAME @ PUSH ACCESS p ASSPAR @ PUSH QQ p ASSPAR @ PUSH BASE p ASSPAR @ PUSH AREA p ASSPAR @ PUSH DISP p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0007 3655 %FINISH O LINE 3655 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 3656 %RETURN O LINE 3656 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 3657 %ROUTINE FETCH RAD 3658 !*********************************************************************** 3659 !* SET ACC TO 32 BIT ADDRESS OF RECORD. * 3660 !*********************************************************************** O LINE 3657 "regression-compile-tmp/nrimp10s-77.imp" $ DEF FETCHRAD (_lev0id0_lev1id1_lev2id3_CSS_CRNAME_CENAME_FETCHRAD) p1=V_021a 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 O LINE 3661 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACCESS @ PUSH MODE N PUSHI #0x00000004 + ADD S ASSVAL 3662 AREA=AR; BASE=BS O LINE 3662 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA @ PUSH AR S ASSVAL O LINE 3662 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BASE @ PUSH BS S ASSVAL 3663 DISP=DP; XDISP=XD O LINE 3663 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP @ PUSH DP S ASSVAL O LINE 3663 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XDISP @ PUSH XD S ASSVAL 3664 NAMEOP(4,ACCR,4,-1) O LINE 3664 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAMEOP N PUSHI #0x00000004 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR N PUSHI #0x00000001 U NEGATE p ASSPAR E CALL 3665 %END O 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 !*********************************************************************** O LINE 3666 "regression-compile-tmp/nrimp10s-77.imp" $ DEF LOCALISE (_lev0id0_lev1id1_lev2id3_CSS_CRNAME_CENAME_LOCALISE) p1=V_021b 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_0222 a/tf=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 O LINE 3671 "regression-compile-tmp/nrimp10s-77.imp" $ DEF HOLE p1=V_0223 a/tf=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 O LINE 3672 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACCESS @ PUSH MODE N PUSHI #0x00000004 + ADD S ASSVAL 3673 AREA=AR; BASE=BS; DISP=DP O LINE 3673 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA @ PUSH AR S ASSVAL O LINE 3673 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BASE @ PUSH BS S ASSVAL O LINE 3673 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP @ PUSH DP S ASSVAL 3674 XDISP=XD O LINE 3674 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XDISP @ PUSH XD S ASSVAL 3675 NAMEOP(2,ACCR,SIZE,-1) O LINE 3675 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAMEOP N PUSHI #0x00000002 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH SIZE p ASSPAR N PUSHI #0x00000001 U NEGATE p ASSPAR E CALL 3676 GET WSP(HOLE,SIZE>>2) O LINE 3676 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GETWSP @ PUSH HOLE p ASSPAR @ PUSH SIZE N PUSHI #0x00000002 ] RSH p ASSPAR E CALL 3677 PSF1(ST,1,HOLE) O LINE 3677 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH HOLE p ASSPAR E CALL 3678 MODE=2; AREA=LNB O LINE 3678 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000002 S ASSVAL O LINE 3678 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AREA N PUSHI #0x00000002 S ASSVAL 3679 BASE=RBASE; DISP=HOLE; XD=0 O LINE 3679 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BASE @ PUSH RBASE S ASSVAL O LINE 3679 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP @ PUSH HOLE S ASSVAL O LINE 3679 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XD N PUSHI #0x00000000 S ASSVAL 3680 %END; ! OF ROUTINE LOCALISE O LINE 3680 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_CRNAME_CENAME_LOCALISE {lev=7 --> 6} 3681 %END; ! OF ROUTINE CENAME O LINE 3681 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_CRNAME_CENAME {lev=6 --> 5} 3682 %END; ! OF ROUTINE CRNAME O 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 !*********************************************************************** O LINE 3683 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CSTREXP (_lev0id0_lev1id1_lev2id3_CSS_CSTREXP) p1=V_01a4 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_020a a/tf=11 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_020b a/tf=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 O LINE 3702 "regression-compile-tmp/nrimp10s-77.imp" $ DEF PP p1=V_020c a/tf=11 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_020d a/tf=11 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_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 REXP 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 $ DEF ERR 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 CLEN 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 KEEPWA 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 FNAM 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 3703 %INTEGERFNSPEC STROP(%INTEGER REG) O LINE 3703 "regression-compile-tmp/nrimp10s-77.imp" $ DEF STROP (_lev0id0_lev1id1_lev2id3_CSS_CSTREXP_STROP) p1=V_0214 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_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 } FINISH ) {lev=5} 3704 KEEPWA=MODE&16; MODE=MODE&15 O LINE 3704 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KEEPWA @ PUSH MODE N PUSHI #0x00000010 & AND S ASSVAL O LINE 3704 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE @ PUSH MODE N PUSHI #0x0000000f & AND S ASSVAL 3705 PP=P; STRINGL=0; FNAM=0; WKAREA=0 O LINE 3705 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PP @ PUSH P S ASSVAL O LINE 3705 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STRINGL N PUSHI #0x00000000 S ASSVAL O LINE 3705 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FNAM N PUSHI #0x00000000 S ASSVAL O LINE 3705 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WKAREA N PUSHI #0x00000000 S ASSVAL 3706 REXP=2-A(P+1+FROM AR2(P+1)); ! =0 %IF ONE OPERAND EXP O LINE 3706 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REXP N PUSHI #0x00000002 @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD @ PUSH FROMAR2 @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR E CALL + ADD a ACCESS - SUB S ASSVAL 3707 -> NORMAL %UNLESS A(P+3)=4 %AND REXP=0 %AND MODE=0 O LINE 3707 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000003 + ADD a ACCESS N PUSHI #0x00000004 ? JUMPIF # L_0005 @ PUSH REXP N PUSHI #0x00000000 ? JUMPIF # L_0005 @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF = L_0004 : LOCATE L_0005 J JUMP L_0215 : LOCATE L_0004 3708 -> SIMPLE %IF A(P+4)=2 O LINE 3708 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000004 + ADD a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0004 J JUMP L_0216 : 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) O LINE 3709 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000004 + ADD a ACCESS N PUSHI #0x00000001 ? JUMPIF = L_0004 J JUMP L_0215 : LOCATE L_0004 3714 SIMPLE: P=P+4 O LINE 3714 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0216 O LINE 3714 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000004 + ADD S ASSVAL 3715 ERR=STROP(REG) O LINE 3715 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ERR @ PUSH STROP @ PUSH REG p ASSPAR E CALL S ASSVAL 3716 -> ERROR %UNLESS ERR=0 O LINE 3716 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ERR N PUSHI #0x00000000 ? JUMPIF = L_0004 J JUMP L_0217 : LOCATE L_0004 3717 VALUE=WKAREA O LINE 3717 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH VALUE @ PUSH WKAREA S ASSVAL 3718 P=P+1; STRFNRES=0 O LINE 3718 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 3718 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STRFNRES N PUSHI #0x00000000 S ASSVAL 3719 %RETURN O LINE 3719 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 3720 ERROR: FAULT2(ERR,0,FNAM) O LINE 3720 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0217 O LINE 3720 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FAULT2 @ PUSH ERR p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH FNAM p ASSPAR E CALL 3721 BASE=RBASE; DISP=0 O LINE 3721 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BASE @ PUSH RBASE S ASSVAL O LINE 3721 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP N PUSHI #0x00000000 S ASSVAL 3722 VALUE=0; ACCESS=0 O LINE 3722 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH VALUE N PUSHI #0x00000000 S ASSVAL O LINE 3722 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACCESS N PUSHI #0x00000000 S ASSVAL 3723 P=PP; SKIP EXP O LINE 3723 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH PP S ASSVAL O LINE 3723 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SKIPEXP E CALL 3724 %RETURN O LINE 3724 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 3725 NORMAL: CLEN=0; P=P+3; ! LENGTH OF CONSTANT PART O LINE 3725 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0215 O LINE 3725 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CLEN N PUSHI #0x00000000 S ASSVAL O LINE 3725 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL 3726 ERR=72; ->ERROR %UNLESS A(P)=4 O LINE 3726 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ERR N PUSHI #0x00000048 S ASSVAL O LINE 3726 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000004 ? JUMPIF = L_0004 J JUMP L_0217 : LOCATE L_0004 3727 P=P+1 O LINE 3727 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 3728 GET WSP(WKAREA,268); ! GET NEXT OPERAND O LINE 3728 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GETWSP @ PUSH WKAREA p ASSPAR N PUSHI #0x0000010c p ASSPAR E CALL 3729 DOTS=0; ! NO OPERATORS YET O LINE 3729 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DOTS N PUSHI #0x00000000 S ASSVAL 3730 NEXT: STRINGL=0 O LINE 3730 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0218 O LINE 3730 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STRINGL N PUSHI #0x00000000 S ASSVAL 3731 ERR=STROP(DR); ! GET NEXT OPERAND O LINE 3731 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ERR @ PUSH STROP N PUSHI #0x00000001 p ASSPAR E CALL S ASSVAL 3732 -> ERROR %UNLESS ERR=0 O LINE 3732 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ERR N PUSHI #0x00000000 ? JUMPIF = L_0004 J JUMP L_0217 : LOCATE L_0004 3733 %IF REGISTER(ACCR)#0 %THEN BOOT OUT(ACCR) O LINE 3733 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REGISTER N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH BOOTOUT N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 3734 PSF1(LB,0,WKAREA); ! BYTE DISP FROM LNB O LINE 3734 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000007a p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH WKAREA p ASSPAR E CALL 3735 PPJ(0,19+DOTS); ! TO SUBROUTINE 19 OR 20 O LINE 3735 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPJ N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000013 @ PUSH DOTS + ADD p ASSPAR E CALL 3736 %IF A(P)=2 %THEN -> TIDY; ! NO MORE OPERATIONS O LINE 3736 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0004 J JUMP L_0219 : LOCATE L_0004 3737 ERR=72; -> ERROR %UNLESS A(P+1)=CONCOP; ! CONCATENATE O LINE 3737 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ERR N PUSHI #0x00000048 S ASSVAL O LINE 3737 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x0000000d ? JUMPIF = L_0004 J JUMP L_0217 : LOCATE L_0004 3738 DOTS=DOTS!1 O LINE 3738 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DOTS @ PUSH DOTS N PUSHI #0x00000001 ! OR S ASSVAL 3739 P=P+2; -> NEXT O LINE 3739 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL O LINE 3739 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0218 3740 TIDY: ! FINISH OFF O LINE 3740 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0219 3741 VALUE=WKAREA O LINE 3741 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH VALUE @ PUSH WKAREA S ASSVAL 3742 P=P+1; ! PAST REST OF EXPRN O LINE 3742 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 3743 RETURN WSP(WKAREA,268) %IF KEEPWA=0 O LINE 3743 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KEEPWA N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH RETURNWSP @ PUSH WKAREA p ASSPAR N PUSHI #0x0000010c p ASSPAR E CALL : LOCATE L_0004 3744 STRINGL=0 O LINE 3744 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STRINGL N PUSHI #0x00000000 S ASSVAL 3745 %RETURN O LINE 3745 "regression-compile-tmp/nrimp10s-77.imp" R 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 !*********************************************************************** O LINE 3746 "regression-compile-tmp/nrimp10s-77.imp" $ DEF STROP (_lev0id0_lev1id1_lev2id3_CSS_CSTREXP_STROP) p1=V_0214 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_021a a/tf=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 O LINE 3751 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CTYPE p1=V_021b a/tf=11 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_021c a/tf=11 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_021d a/tf=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 O LINE 3752 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE @ PUSH A @ PUSH P a ACCESS S ASSVAL 3753 %RESULT=75 %IF MODE>2 O LINE 3753 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000002 ? JUMPIF <= L_0004 N PUSHI #0x0000004b V RESULT : LOCATE L_0004 3754 %IF MODE#1 %THEN %START O LINE 3754 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000001 ? JUMPIF = L_0004 3755 CTYPE=A(P+1); ! GET CONST TYPE & LOSE AMCK FLAGS O LINE 3755 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTYPE @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS S ASSVAL 3756 %IF CTYPE=16_35 %THEN %START O LINE 3756 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTYPE N PUSHI #0x00000035 ? JUMPIF # L_0007 3757 STRINGL=A(P+6) O LINE 3757 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STRINGL @ PUSH A @ PUSH P N PUSHI #0x00000006 + ADD a ACCESS S ASSVAL 3758 DISP=FROM AR4(P+2) O LINE 3758 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP @ PUSH FROMAR4 @ PUSH P N PUSHI #0x00000002 + ADD p ASSPAR E CALL S ASSVAL 3759 P=P+STRINGL+7 O LINE 3759 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P @ PUSH STRINGL + ADD N PUSHI #0x00000007 + ADD S ASSVAL 3760 %FINISH %ELSE %RESULT=71 O LINE 3760 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 N PUSHI #0x00000047 V RESULT : LOCATE L_0006 3761 PF1(LDRL,0,PC,STRLINK) O LINE 3761 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000070 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH STRLINK p ASSPAR E CALL 3762 PSF1(INCA,0,DISP) %IF DISP#0 O LINE 3762 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISP N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH PSF1 N PUSHI #0x00000014 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH DISP p ASSPAR E CALL : LOCATE L_0007 3763 %IF STRINGL#1 %THEN %START O LINE 3763 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STRINGL N PUSHI #0x00000001 ? JUMPIF = L_0007 3764 %IF STRINGL<=63 %THEN PSF1(LDB,0,STRINGL) %ELSE PF1(LDB,2,7,0);! ((DR)) O LINE 3764 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STRINGL N PUSHI #0x0000003f ? JUMPIF > L_000a @ PUSH PSF1 N PUSHI #0x00000076 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH STRINGL p ASSPAR E CALL F GOTO L_0009 : LOCATE L_000a @ PUSH PF1 N PUSHI #0x00000076 p ASSPAR N PUSHI #0x00000002 p ASSPAR N PUSHI #0x00000007 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0009 3765 %FINISH O LINE 3765 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 3766 GRUSE(DR)=0 O LINE 3766 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000001 a ACCESS N PUSHI #0x00000000 S ASSVAL 3767 %IF REG=ACCR %THEN COPY DR O LINE 3767 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REG N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH COPYDR E CALL : LOCATE L_0007 3768 %FINISH %ELSE %START O LINE 3768 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 3769 P=P+1; ! MUST CHECK FIRST O LINE 3769 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 3770 REDUCE TAG; ! SINCE CNAME ONLY LOADS STRINGS 3771 ! AND LONGINTS TO DR! O LINE 3770 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REDUCETAG E CALL 3772 %IF 5#TYPE#7 %THEN FNAM=FROMAR2(P) %AND %RESULT=71 O LINE 3772 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000005 @ PUSH TYPE " JUMPIFD = L_0007 N PUSHI #0x00000007 ? JUMPIF = L_0007 @ PUSH FNAM @ PUSH FROMAR2 @ PUSH P p ASSPAR E CALL S ASSVAL N PUSHI #0x00000047 V RESULT : LOCATE L_0007 3773 CNAME(2,REG) O LINE 3773 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CNAME N PUSHI #0x00000002 p ASSPAR @ PUSH REG p ASSPAR E CALL 3774 STRINGL=0 O LINE 3774 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STRINGL N PUSHI #0x00000000 S ASSVAL 3775 %IF ROUT#0 %AND NAM<=1 %START;! WAS FUNCTION NOT MAP O LINE 3775 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUT N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH NAM N PUSHI #0x00000001 ? JUMPIF > L_0007 3776 %IF WKAREA=0 %AND KEEPWA#0 %THEN WKAREA=STRFNRES %ELSE RETURN WSP(STRFNRES,268) O LINE 3776 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WKAREA N PUSHI #0x00000000 ? JUMPIF # L_000a @ PUSH KEEPWA N PUSHI #0x00000000 ? JUMPIF = L_000a @ PUSH WKAREA @ PUSH STRFNRES S ASSVAL F GOTO L_0009 : LOCATE L_000a @ PUSH RETURNWSP @ PUSH STRFNRES p ASSPAR N PUSHI #0x0000010c p ASSPAR E CALL : LOCATE L_0009 3777 %FINISH O LINE 3777 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 3778 %FINISH O LINE 3778 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 3779 %RESULT=0 O LINE 3779 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000000 V RESULT 3780 %END; ! OF INTEGERFN STROP O LINE 3780 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_CSTREXP_STROP {lev=6 --> 5} 3781 %END; ! OF ROUTINE CSTREXP O 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 !********************************************************************** O LINE 3782 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CRES (_lev0id0_lev1id1_lev2id3_CSS_CRES) p1=V_01a5 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_020a a/tf=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 O LINE 3801 "regression-compile-tmp/nrimp10s-77.imp" $ DEF P1 p1=V_020b a/tf=11 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_020c a/tf=11 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_020d a/tf=11 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_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 LAST 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 $ DEF ERR 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 FNAM 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 3802 %RECORD (RD) R{(RD) O LINE 3802 "regression-compile-tmp/nrimp10s-77.imp" $ DEF R p1=V_0212 a/tf=41 b/format=1d7 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 O LINE 3803 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LAST N PUSHI #0x00000000 S ASSVAL O LINE 3803 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FNAM N PUSHI #0x00000000 S ASSVAL 3804 SEXPRN=0; ! RESOLUTION(BRKTD) EXPRESSNS O LINE 3804 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SEXPRN N PUSHI #0x00000000 S ASSVAL 3805 ERR=74; ! NORMAL CRES FAULT O LINE 3805 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ERR N PUSHI #0x0000004a S ASSVAL 3806 PSF1(INCA,0,1); ! TO FIRST CHAR O LINE 3806 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000014 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 3807 P1=P; P=P+3 O LINE 3807 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P1 @ PUSH P S ASSVAL O LINE 3807 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL 3808 ->RES %IF A(P)=4; ! LHS MUST BE A STRING 3809 ! BUT THIS CHECKED BEFORE CALL O LINE 3808 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000004 ? JUMPIF # L_0004 J JUMP L_0213 : LOCATE L_0004 3810 ERR=72 O LINE 3810 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ERR N PUSHI #0x00000048 S ASSVAL 3811 ERROR: FAULT2(ERR,0,FNAM) O LINE 3811 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0214 O LINE 3811 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FAULT2 @ PUSH ERR p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH FNAM p ASSPAR E CALL 3812 P=P1; SKIP EXP; %RETURN O LINE 3812 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P1 S ASSVAL O LINE 3812 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SKIPEXP E CALL O LINE 3812 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 3813 RES: P=P+1; ! TO P(OPERAND) O LINE 3813 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0213 O LINE 3813 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 3814 PSF1(PRCL,0,4) O LINE 3814 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000018 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR E CALL 3815 %IF SEXPRN=0 %THEN W=STD %ELSE W=ST O LINE 3815 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SEXPRN N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH W N PUSHI #0x00000058 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH W N PUSHI #0x00000048 S ASSVAL : LOCATE L_0003 3816 PF1(W,0,TOS,0) O LINE 3816 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 @ PUSH W p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 3817 %IF A(P)=3 %THEN PSF1(LSD,0,0) %AND GRUSE(ACCR)=0 %ELSE %START;! B OMITTED O LINE 3817 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000003 ? JUMPIF # L_0004 @ PUSH PSF1 N PUSHI #0x00000064 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL F GOTO L_0003 : LOCATE L_0004 3818 ->ERROR %UNLESS A(P)=1; ! P(OPERAND)=NAME O LINE 3818 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 ? JUMPIF = L_0007 J JUMP L_0214 : LOCATE L_0007 3819 P=P+1; P2=P O LINE 3819 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 3819 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P2 @ PUSH P S ASSVAL 3820 CNAME(3,ACCR) O LINE 3820 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CNAME N PUSHI #0x00000003 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 3821 %IF TYPE#5 %THEN ERR=71 %AND FNAM=FROMAR2(P2) %AND ->ERROR O LINE 3821 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000005 ? JUMPIF = L_0007 @ PUSH ERR N PUSHI #0x00000047 S ASSVAL @ PUSH FNAM @ PUSH FROMAR2 @ PUSH P2 p ASSPAR E CALL S ASSVAL J JUMP L_0214 : LOCATE L_0007 3822 %IF A(P+1)#CONCOP %THEN ERR=72 %AND ->ERROR O LINE 3822 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x0000000d ? JUMPIF = L_0007 @ PUSH ERR N PUSHI #0x00000048 S ASSVAL J JUMP L_0214 : LOCATE L_0007 3823 P=P+2 O LINE 3823 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 3824 %FINISH O LINE 3824 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 3825 PF1(ST,0,TOS,0); ! B (OR DUMMY) TO P2 O LINE 3825 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 3826 ->ERROR %UNLESS A(P)=3; ! P(OPERAND)='('(EXPR)')' O LINE 3826 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000003 ? JUMPIF = L_0004 J JUMP L_0214 : LOCATE L_0004 3827 SEXPRN=SEXPRN+1; P=P+1 O LINE 3827 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SEXPRN @ PUSH SEXPRN N PUSHI #0x00000001 + ADD S ASSVAL O LINE 3827 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 3828 CSTREXP(0,DR); ! TO REGISTER DR 3829 ! O LINE 3828 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CSTREXP N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 3830 PF1(STD,0,TOS,0) O LINE 3830 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000058 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 3831 PSF1(RALN,0,11) O LINE 3831 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000006c p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x0000000b p ASSPAR E CALL 3832 PPJ(-1,16) 3833 ! DEAL WITH CC#8 IE RESLN FAILED O LINE 3832 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPJ N PUSHI #0x00000001 U NEGATE p ASSPAR N PUSHI #0x00000010 p ASSPAR E CALL 3834 %IF LAB#0 %THEN ENTER JUMP(7,LAB,B'11') %ELSE PPJ(7,12) 3835 ! O LINE 3834 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LAB N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH ENTERJUMP N PUSHI #0x00000007 p ASSPAR @ PUSH LAB p ASSPAR N PUSHI #0x00000003 p ASSPAR E CALL F GOTO L_0003 : LOCATE L_0004 @ PUSH PPJ N PUSHI #0x00000007 p ASSPAR N PUSHI #0x0000000c p ASSPAR E CALL : LOCATE L_0003 3836 -> END %IF A(P)=2 O LINE 3836 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0004 J JUMP L_0215 : LOCATE L_0004 3837 %IF A(P+1)#CONCOP %THEN ERR=72 %AND ->ERROR O LINE 3837 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x0000000d ? JUMPIF = L_0004 @ PUSH ERR N PUSHI #0x00000048 S ASSVAL J JUMP L_0214 : LOCATE L_0004 3838 ->ERROR %UNLESS A(P+2)=1 O LINE 3838 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000002 + ADD a ACCESS N PUSHI #0x00000001 ? JUMPIF = L_0004 J JUMP L_0214 : LOCATE L_0004 3839 P2=P+1; P=P2+1 O LINE 3839 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P2 @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 3839 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P2 N PUSHI #0x00000001 + ADD S ASSVAL 3840 P=P+3 %AND SKIP APP %UNTIL A(P)=2 O LINE 3840 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL @ PUSH SKIPAPP E CALL @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0004 B REPEAT L_0003 : LOCATE L_0004 3841 %IF A(P+1)=1 %THEN P=P2 %AND ->RES O LINE 3841 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH P @ PUSH P2 S ASSVAL J JUMP L_0213 : LOCATE L_0004 3842 P1=P+1 O LINE 3842 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P1 @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 3843 REGISTER(ACCR)=1 O LINE 3843 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REGISTER N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000001 S ASSVAL 3844 OLINK(ACCR)=ADDR(R) O LINE 3844 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OLINK N PUSHI #0x00000000 a ACCESS @ PUSH ADDR @ PUSH R p ASSPAR E CALL S ASSVAL 3845 R_PTYPE=1; R_XB=ACCR O LINE 3845 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R n SELECT 2 N PUSHI #0x00000001 S ASSVAL O LINE 3845 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R n SELECT 3 N PUSHI #0x00000000 S ASSVAL 3846 R_FLAG=9 O LINE 3846 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R n SELECT 4 N PUSHI #0x00000009 S ASSVAL 3847 P=P2+2; CNAME(1,DR) O LINE 3847 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P2 N PUSHI #0x00000002 + ADD S ASSVAL O LINE 3847 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CNAME N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 3848 %IF R_FLAG#9 %THEN PF1(LSD,0,TOS,0) O LINE 3848 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R n SELECT 4 N PUSHI #0x00000009 ? JUMPIF = L_0004 @ PUSH PF1 N PUSHI #0x00000064 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 3849 REGISTER(ACCR)=0 O LINE 3849 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REGISTER N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL 3850 PF1(STUH,0,BREG,0) O LINE 3850 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000004a p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000007 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 3851 PF1(LUH,0,BREG,0) O LINE 3851 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000006a p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000007 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 3852 PF2(MVL,0,0,0,0,0) O LINE 3852 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF2 N PUSHI #0x000000b0 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 3853 %IF ROUT#0 %OR NAM#0 %THEN PPJ(0,18);! ASSNMNT CHECK (Q.V) O LINE 3853 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUT N PUSHI #0x00000000 ? JUMPIF # L_0005 @ PUSH NAM N PUSHI #0x00000000 ? JUMPIF = L_0004 : LOCATE L_0005 @ PUSH PPJ N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000012 p ASSPAR E CALL : LOCATE L_0004 3854 PF2(MV,1,1,0,0,UNASSPAT&255) O LINE 3854 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF2 N PUSHI #0x000000b2 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x81818181 N PUSHI #0x000000ff & AND p ASSPAR E CALL 3855 GRUSE(ACCR)=0 O LINE 3855 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL 3856 %IF PARMARR=1 %START O LINE 3856 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMARR N PUSHI #0x00000001 ? JUMPIF # L_0004 3857 PSF1(USH,0,8) O LINE 3857 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x000000c8 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000008 p ASSPAR E CALL 3858 PSF1(USH,0,-40) O LINE 3858 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x000000c8 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000028 U NEGATE p ASSPAR E CALL 3859 PPJ(36,9) O LINE 3859 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPJ N PUSHI #0x00000024 p ASSPAR N PUSHI #0x00000009 p ASSPAR E CALL 3860 %FINISH O LINE 3860 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 3861 P=P1 O LINE 3861 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P1 S ASSVAL 3862 END: O LINE 3862 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0215 3863 P=P+1 O LINE 3863 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 3864 %END O 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 !*********************************************************************** O LINE 3865 "regression-compile-tmp/nrimp10s-77.imp" $ DEF SAVEAUXSTACK (_lev0id0_lev1id1_lev2id3_CSS_SAVEAUXSTACK) p1=V_01af 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 O LINE 3875 "regression-compile-tmp/nrimp10s-77.imp" $ DEF XYNB p1=V_020a a/tf=11 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_020b a/tf=11 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_020c a/tf=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 O LINE 3876 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AUXST N PUSHI #0x00000000 ? JUMPIF # L_0004 3877 DR0=16_30000001; DR1=0 O LINE 3877 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DR0 N PUSHI #0x30000001 S ASSVAL O LINE 3877 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DR1 N PUSHI #0x00000000 S ASSVAL 3878 PGLA(8,8,ADDR(DR0)) O LINE 3878 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PGLA N PUSHI #0x00000008 p ASSPAR N PUSHI #0x00000008 p ASSPAR @ PUSH ADDR @ PUSH DR0 p ASSPAR E CALL p ASSPAR E CALL 3879 AUXST=GLACA-8 O LINE 3879 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AUXST @ PUSH GLACA N PUSHI #0x00000008 - SUB S ASSVAL 3880 GXREF(AUXSTEP,2,16_02000008,AUXST+4) O LINE 3880 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GXREF @ PUSH AUXSTEP p ASSPAR N PUSHI #0x00000002 p ASSPAR N PUSHI #0x02000008 p ASSPAR @ PUSH AUXST N PUSHI #0x00000004 + ADD p ASSPAR E CALL 3881 %FINISH O LINE 3881 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 3882 %IF AUXSBASE(LEVEL)=0 %START O LINE 3882 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AUXSBASE @ PUSH LEVEL a ACCESS N PUSHI #0x00000000 ? JUMPIF # L_0004 3883 XYNB=SET XORYNB(-1,-1) O LINE 3883 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XYNB @ PUSH SETXORYNB N PUSHI #0x00000001 U NEGATE p ASSPAR N PUSHI #0x00000001 U NEGATE p ASSPAR E CALL S ASSVAL 3884 PF1(LD,2,XYNB,AUXST) O LINE 3884 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000078 p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH XYNB p ASSPAR @ PUSH AUXST p ASSPAR E CALL 3885 %IF PARMOPT#0 %THEN %START O LINE 3885 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMOPT N PUSHI #0x00000000 ? JUMPIF = L_0007 3886 PF1(LSS,1,0,2); ! PICK UP STACKTOP O LINE 3886 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000002 p ASSPAR E CALL 3887 PSF1(ST,1,N+16) O LINE 3887 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N N PUSHI #0x00000010 + ADD p ASSPAR E CALL 3888 %FINISH O LINE 3888 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 3889 PF1(LSS,2,7,0) O LINE 3889 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000002 p ASSPAR N PUSHI #0x00000007 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 3890 PSF1(STD,1,N) O LINE 3890 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000058 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N p ASSPAR E CALL 3891 PSF1(ST,1,N+8) O LINE 3891 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N N PUSHI #0x00000008 + ADD p ASSPAR E CALL 3892 AUXSBASE(LEVEL)=N; N=N+16 O LINE 3892 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AUXSBASE @ PUSH LEVEL a ACCESS @ PUSH N S ASSVAL O LINE 3892 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N N PUSHI #0x00000010 + ADD S ASSVAL 3893 %IF PARMOPT#0 %THEN N=N+4 O LINE 3893 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMOPT N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH N @ PUSH N N PUSHI #0x00000004 + ADD S ASSVAL : LOCATE L_0007 3894 GRUSE(DR)=0; GRUSE(ACCR)=11; GRINF1(ACCR)=0 O LINE 3894 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000001 a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 3894 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x0000000b S ASSVAL O LINE 3894 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRINF1 N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL 3895 %FINISH O LINE 3895 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 3896 %END O 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 !*********************************************************************** O LINE 3897 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RESETAUXSTACK (_lev0id0_lev1id1_lev2id3_CSS_RESETAUXSTACK) p1=V_01b0 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 O LINE 3901 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AUXSBASE @ PUSH LEVEL a ACCESS N PUSHI #0x00000000 ? JUMPIF = L_0004 3902 PSF1(LB,1,AUXSBASE(LEVEL)+8) O LINE 3902 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000007a p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH AUXSBASE @ PUSH LEVEL a ACCESS N PUSHI #0x00000008 + ADD p ASSPAR E CALL 3903 PSF1(STB,2,AUXSBASE(LEVEL)) O LINE 3903 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000005a p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH AUXSBASE @ PUSH LEVEL a ACCESS p ASSPAR E CALL 3904 GRUSE(BREG)=0 O LINE 3904 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000007 a ACCESS N PUSHI #0x00000000 S ASSVAL 3905 %FINISH O LINE 3905 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 3906 %END O 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 !*********************************************************************** O LINE 3907 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RTEXIT (_lev0id0_lev1id1_lev2id3_CSS_RTEXIT) p1=V_020a 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 O LINE 3911 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RESETAUXSTACK E CALL 3912 PSF1(EXIT,0,-16_40) O LINE 3912 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000038 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000040 U NEGATE p ASSPAR E CALL 3913 %END O 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 !*********************************************************************** O LINE 3914 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CLAIMSTFRAME (_lev0id0_lev1id1_lev2id3_CSS_CLAIMSTFRAME) p1=V_020b 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_020c a/tf=11 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_020d a/tf=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 O LINE 3918 "regression-compile-tmp/nrimp10s-77.imp" $ DEF INSTR 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 WK 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 3919 WK=AT>>18; ! BYTES CLAIMED BY ENTRY SEQ O LINE 3919 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH WK @ PUSH AT N PUSHI #0x00000012 ] RSH S ASSVAL 3920 AT=AT&16_3FFFF; ! ADRR OF ASF INSTRN O LINE 3920 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AT @ PUSH AT N PUSHI #0x0003ffff & AND S ASSVAL 3921 INSTR=(ASF+12*PARMCHK)<<24!3<<23!(VALUE-WK+3)>>2 O LINE 3921 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INSTR N PUSHI #0x0000006e N PUSHI #0x0000000c @ PUSH PARMCHK * MUL + ADD N PUSHI #0x00000018 [ LSH N PUSHI #0x00000003 N PUSHI #0x00000017 [ LSH ! OR @ PUSH VALUE @ PUSH WK - SUB N PUSHI #0x00000003 + ADD N PUSHI #0x00000002 ] RSH ! OR S ASSVAL 3922 PLUG(1,AT,INSTR,4) O LINE 3922 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PLUG N PUSHI #0x00000001 p ASSPAR @ PUSH AT p ASSPAR @ PUSH INSTR p ASSPAR N PUSHI #0x00000004 p ASSPAR E CALL 3923 %END O 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 !*********************************************************************** O LINE 3924 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CEND (_lev0id0_lev1id1_lev2id3_CSS_CEND) p1=V_018f 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_020c a/tf=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 O LINE 3935 "regression-compile-tmp/nrimp10s-77.imp" $ DEF KP p1=V_020d a/tf=11 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_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 BIT 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 3936 %ROUTINESPEC DTABLE(%INTEGER LEVEL) O LINE 3936 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DTABLE (_lev0id0_lev1id1_lev2id3_CSS_CEND_DTABLE) p1=V_0210 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_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 } FINISH ) {lev=5} 3937 SET LINE %UNLESS KKK=2 O LINE 3937 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KKK N PUSHI #0x00000002 ? JUMPIF = L_0004 @ PUSH SETLINE E CALL : LOCATE L_0004 3938 FORGET(-1) O LINE 3938 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FORGET N PUSHI #0x00000001 U NEGATE p ASSPAR E CALL 3939 BIT=1<16_1000 %AND COMPILER=0 %AND LAST INST=0 %THEN PPJ(15,10); ! RUN FAULT 11 O LINE 3944 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KKK N PUSHI #0x00003fff & AND N PUSHI #0x00001000 ? JUMPIF <= L_0004 @ PUSH COMPILER N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH LASTINST N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH PPJ N PUSHI #0x0000000f p ASSPAR N PUSHI #0x0000000a p ASSPAR E 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 ! O LINE 3945 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH NMAX ? JUMPIF <= L_0004 @ PUSH NMAX @ PUSH N S ASSVAL : LOCATE L_0004 3950 %WHILE LABEL(LEVEL)#0 %CYCLE O LINE 3950 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH LABEL @ PUSH LEVEL a ACCESS N PUSHI #0x00000000 ? JUMPIF = L_0004 3951 POP(LABEL(LEVEL),I,J,KP) O LINE 3951 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH POP @ PUSH LABEL @ PUSH LEVEL a ACCESS p ASSPAR @ PUSH I p ASSPAR @ PUSH J p ASSPAR @ PUSH KP p ASSPAR E CALL 3952 I=I>>24 O LINE 3952 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH I N PUSHI #0x00000018 ] RSH S ASSVAL 3953 %IF J&16_FFFF#0 %THEN %START O LINE 3953 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x0000ffff & AND N PUSHI #0x00000000 ? JUMPIF = L_0007 3954 J=J&16_FFFF O LINE 3954 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH J N PUSHI #0x0000ffff & AND S ASSVAL 3955 %IF 0= L_000a @ PUSH MAXULAB ? JUMPIF > L_000a @ PUSH FAULT2 N PUSHI #0x0000000b p ASSPAR @ PUSH FROM3 @ PUSH J p ASSPAR E CALL p ASSPAR @ PUSH KP p ASSPAR E CALL : LOCATE L_000a 3956 CLEAR LIST(J) O LINE 3956 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CLEARLIST @ PUSH J p ASSPAR E CALL 3957 %FINISH %ELSE %START O LINE 3957 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 3958 %IF I=0 %AND KP= L_000a @ PUSH WARN N PUSHI #0x00000003 p ASSPAR @ PUSH KP p ASSPAR E CALL : LOCATE L_000a 3959 %FINISH O LINE 3959 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 3960 %REPEAT 3961 ! O LINE 3960 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 3962 %CYCLE JJ=0,1,4 O LINE 3962 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ N PUSHI #0x00000001 N PUSHI #0x00000004 N PUSHI #0x00000000 f FOR L_0003 3963 CLEAR LIST(AVL WSP(JJ,LEVEL));! RELEASE TEMPORARY LOCATIONS O LINE 3963 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CLEARLIST @ PUSH AVLWSP @ PUSH JJ i INDEX @ PUSH LEVEL a ACCESS p ASSPAR E CALL 3964 %REPEAT 3965 ! O LINE 3964 "regression-compile-tmp/nrimp10s-77.imp" B 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 ! O LINE 3966 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DTABLE @ PUSH LEVEL p ASSPAR E CALL 3974 NMAX=(NMAX+7)&(-8) O LINE 3974 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NMAX @ PUSH NMAX N PUSHI #0x00000007 + ADD N PUSHI #0x00000008 U NEGATE & AND S ASSVAL 3975 %IF KKK=2 %THEN %RETURN O LINE 3975 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KKK N PUSHI #0x00000002 ? JUMPIF # L_0004 R 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 ! O LINE 3976 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KKK N PUSHI #0x00001000 ? JUMPIF >= L_0005 @ PUSH KKK N PUSHI #0x00000001 ? JUMPIF # L_0004 : LOCATE L_0005 @ PUSH CLAIMSTFRAME @ PUSH SET @ PUSH RLEVEL a ACCESS p ASSPAR @ PUSH NMAX p ASSPAR E CALL : LOCATE L_0004 3980 %IF KKK&16_3FFF=16_1000 %AND LAST INST=0 %THEN RT EXIT O LINE 3980 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KKK N PUSHI #0x00003fff & AND N PUSHI #0x00001000 ? JUMPIF # L_0004 @ PUSH LASTINST N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH RTEXIT E CALL : LOCATE L_0004 3981 PPJ(15,21) %IF KKK=1 %AND LAST INST=0;! %STOP AT %ENDOFPROGRAM O LINE 3981 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KKK N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH LASTINST N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH PPJ N PUSHI #0x0000000f p ASSPAR N PUSHI #0x00000015 p ASSPAR E CALL : LOCATE L_0004 3982 %IF KKK=0 %THEN %START; ! BEGIN BLOCK EXIT O LINE 3982 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KKK N PUSHI #0x00000000 ? JUMPIF # L_0004 3983 %IF PARMTRACE=1 %THEN %START; ! RESTORE DIAGS POINTERS O LINE 3983 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMTRACE N PUSHI #0x00000001 ? JUMPIF # L_0007 3984 PSF1(LD,1,12) O LINE 3984 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000078 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x0000000c p ASSPAR E CALL 3985 DIAG POINTER(LEVEL-1) O LINE 3985 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DIAGPOINTER @ PUSH LEVEL N PUSHI #0x00000001 - SUB p ASSPAR E CALL 3986 PSF1(STD,1,12) O LINE 3986 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000058 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x0000000c p ASSPAR E CALL 3987 %FINISH O LINE 3987 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 3988 %IF STACK#0 %START O LINE 3988 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STACK N PUSHI #0x00000000 ? JUMPIF = L_0007 3989 JJ=NMDECS(LEVEL)>>14 O LINE 3989 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ @ PUSH NMDECS @ PUSH LEVEL a ACCESS N PUSHI #0x0000000e ] RSH S ASSVAL 3990 %IF JJ#0 %THEN %START; ! ARRAYS TO BE UNDECLARED O LINE 3990 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ N PUSHI #0x00000000 ? JUMPIF = L_000a 3991 PF1(STSF,0,TOS,0) O LINE 3991 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000005e p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 3992 PF1(LSS,0,TOS,0) O LINE 3992 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 3993 PSF1(ISB,1,JJ) O LINE 3993 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x000000e2 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH JJ p ASSPAR E CALL 3994 PSF1(USH,0,-2) O LINE 3994 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x000000c8 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000002 U NEGATE p ASSPAR E CALL 3995 PF1(ST,0,TOS,0) O LINE 3995 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 3996 PF1(ASF,0,TOS,0) O LINE 3996 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000006e p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 3997 GRUSE(ACCR)=0 O LINE 3997 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL 3998 %FINISH O LINE 3998 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000a 3999 %FINISH %ELSE RESET AUX STACK O LINE 3999 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 @ PUSH RESETAUXSTACK E CALL : LOCATE L_0006 4000 %FINISH 4001 ! 4002 ! RETURN TO PREVIOUS LEVEL PROVIDED THERE IS A VALID ONE ! 4003 ! O LINE 4000 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4004 %UNLESS LEVEL>2 %OR (LEVEL=2 %AND CPRMODE=2) %THEN %START O LINE 4004 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF > L_0004 @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF # L_0005 @ PUSH CPRMODE N PUSHI #0x00000002 ? JUMPIF = L_0004 : LOCATE L_0005 4005 %IF KKK=1 %AND LEVEL=2 %THEN KKK=2 %ELSE FAULT(14,0) %AND %STOP O LINE 4005 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KKK N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF # L_0007 @ PUSH KKK N PUSHI #0x00000002 S ASSVAL F GOTO L_0006 : LOCATE L_0007 @ PUSH FAULT N PUSHI #0x0000000e p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL s STOP : LOCATE L_0006 4006 %FINISH O LINE 4006 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4007 LEVEL=LEVEL-1 O LINE 4007 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL @ PUSH LEVEL N PUSHI #0x00000001 - SUB S ASSVAL 4008 %IF KKK>=16_1000 %THEN %START O LINE 4008 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KKK N PUSHI #0x00001000 ? JUMPIF < L_0004 4009 RLEVEL=RLEVEL-1 O LINE 4009 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RLEVEL @ PUSH RLEVEL N PUSHI #0x00000001 - SUB S ASSVAL 4010 RBASE=RLEVEL O LINE 4010 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RBASE @ PUSH RLEVEL S ASSVAL 4011 %FINISH 4012 ! 4013 ! RESTORE INFORMATION ABOUT THE (NEW) CURRENT LEVEL 4014 ! O LINE 4011 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4015 POP(LEVELINF,KP,N,KP) O LINE 4015 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH POP @ PUSH LEVELINF p ASSPAR @ PUSH KP p ASSPAR @ PUSH N p ASSPAR @ PUSH KP p ASSPAR E CALL 4016 NMAX=N>>16 %IF KKK>=16_1000 O LINE 4016 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KKK N PUSHI #0x00001000 ? JUMPIF < L_0004 @ PUSH NMAX @ PUSH N N PUSHI #0x00000010 ] RSH S ASSVAL : LOCATE L_0004 4017 N=N&16_7FFF O LINE 4017 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N N PUSHI #0x00007fff & AND S 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 ! O LINE 4018 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KKK N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH CEND @ PUSH KKK p ASSPAR E CALL : LOCATE L_0004 4023 %IF ASL WARN#0 %THEN ASL WARN=0 %AND EPILOGUE O LINE 4023 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASLWARN N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH ASLWARN N PUSHI #0x00000000 S ASSVAL @ PUSH EPILOGUE E CALL : LOCATE L_0004 4024 %IF KKK>=16_1000 %AND COMPILER=0 %AND(RLEVEL>0 %OR CPRMODE#2) %THEN %START O LINE 4024 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KKK N PUSHI #0x00001000 ? JUMPIF < L_0004 @ PUSH COMPILER N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH RLEVEL N PUSHI #0x00000000 ? JUMPIF > L_0005 @ PUSH CPRMODE N PUSHI #0x00000002 ? JUMPIF = L_0004 : LOCATE L_0005 4025 JJ=NEXTP+6 O LINE 4025 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ @ PUSH NEXTP N PUSHI #0x00000006 + ADD S ASSVAL 4026 %UNLESS A(NEXTP+5)=11 %AND A(JJ+FROMAR2(JJ))=2 %START O LINE 4026 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH NEXTP N PUSHI #0x00000005 + ADD a ACCESS N PUSHI #0x0000000b ? JUMPIF # L_0008 @ PUSH A @ PUSH JJ @ PUSH FROMAR2 @ PUSH JJ p ASSPAR E CALL + ADD a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0007 : LOCATE L_0008 4027 JJ=ENTER LAB(JROUND(LEVEL+1),0) O LINE 4027 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ @ PUSH ENTERLAB @ PUSH JROUND @ PUSH LEVEL N PUSHI #0x00000001 + ADD a ACCESS p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL S ASSVAL 4028 JROUND(LEVEL+1)=0 O LINE 4028 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JROUND @ PUSH LEVEL N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000000 S ASSVAL 4029 %FINISH O LINE 4029 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 4030 %FINISH O 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 ! O LINE 4031 "regression-compile-tmp/nrimp10s-77.imp" R 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 !*********************************************************************** O LINE 4070 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DTABLE (_lev0id0_lev1id1_lev2id3_CSS_CEND_DTABLE) p1=V_0210 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_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 } FINISH ) {lev=6} 4077 %STRING(31) RT NAME O LINE 4077 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RTNAME p1=V_0212 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 O LINE 4078 "regression-compile-tmp/nrimp10s-77.imp" $ DEF LOCALNAME p1=V_0213 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) O LINE 4079 "regression-compile-tmp/nrimp10s-77.imp" $ DEF LCELL p1=V_0214 a/tf=42 b/format=11f 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 O LINE 4080 "regression-compile-tmp/nrimp10s-77.imp" 4081 %INTEGER DPTR,LNUM,ML,KK,JJ,Q,DEND,BIT,S1,S2,S3,S4,LANGD,II O LINE 4081 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DPTR 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 LNUM 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 ML 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 KK 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 JJ 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 $ DEF Q p1=V_021a a/tf=11 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_021b a/tf=11 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_021c a/tf=11 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_021d a/tf=11 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_021e a/tf=11 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_021f a/tf=11 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_0220 a/tf=11 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_0221 a/tf=11 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_0222 a/tf=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 ! O LINE 4082 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DD p1=V_0223 a/tf=1b b/format=1 c/ostate=100 type=1 (integer) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 N PUSHI #0x00000000 N PUSHI #0x000001f4 d DIM 0001 0001 4086 BIT=1<>14<<30!LEVEL<<18; ! GET LITL FROM PTYPE O LINE 4087 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LANGD @ PUSH KKK N PUSHI #0x0000000e ] RSH N PUSHI #0x0000001e [ LSH @ PUSH LEVEL N PUSHI #0x00000012 [ LSH ! OR S ASSVAL 4088 %WHILE RAL(LEVEL)#0 %CYCLE O LINE 4088 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH RAL @ PUSH LEVEL a ACCESS N PUSHI #0x00000000 ? JUMPIF = L_0004 4089 POP(RAL(LEVEL),Q,JJ,KK) O LINE 4089 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH POP @ PUSH RAL @ PUSH LEVEL a ACCESS p ASSPAR @ PUSH Q p ASSPAR @ PUSH JJ p ASSPAR @ PUSH KK p ASSPAR E CALL 4090 PLUG(Q,JJ,KK!SSTL,4) O LINE 4090 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PLUG @ PUSH Q p ASSPAR @ PUSH JJ p ASSPAR @ PUSH KK @ PUSH SSTL ! OR p ASSPAR N PUSHI #0x00000004 p ASSPAR E CALL 4091 %REPEAT O LINE 4091 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 4092 PUSH(RAL(LEVEL-1),4,SSTL+4,LANGD) %IF PARMTRACE#0 O LINE 4092 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMTRACE N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH PUSH @ PUSH RAL @ PUSH LEVEL N PUSHI #0x00000001 - SUB a ACCESS p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH SSTL N PUSHI #0x00000004 + ADD p ASSPAR @ PUSH LANGD p ASSPAR E CALL : LOCATE L_0004 4093 DD(0)=L(LEVEL)<<16!(DIAGINF(LEVEL)) O LINE 4093 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DD N PUSHI #0x00000000 a ACCESS @ PUSH L @ PUSH LEVEL a ACCESS N PUSHI #0x00000010 [ LSH @ PUSH DIAGINF @ PUSH LEVEL a ACCESS ! OR S ASSVAL 4094 DD(1)=LANGD O LINE 4094 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DD N PUSHI #0x00000001 a ACCESS @ PUSH LANGD S ASSVAL 4095 DD(2)=DISPLAY(RLEVEL)<<16!FLAG(LEVEL)&16_3FFF O LINE 4095 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DD N PUSHI #0x00000002 a ACCESS @ PUSH DISPLAY @ PUSH RLEVEL a ACCESS N PUSHI #0x00000010 [ LSH @ PUSH FLAG @ PUSH LEVEL a ACCESS N PUSHI #0x00003fff & AND ! OR S ASSVAL 4096 ML=M(LEVEL); ! ROUTINE NAME(=0 FOR %BEGIN) O LINE 4096 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ML @ PUSH M @ PUSH LEVEL a ACCESS S ASSVAL 4097 LNUM=BYTEINTEGER(DICTBASE+ML); ! LENGTH OF THE NAME O LINE 4097 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LNUM @ PUSH BYTEINTEGER @ PUSH DICTBASE @ PUSH ML + ADD p ASSPAR E CALL S ASSVAL 4098 DPTR=4; DEND=0 O LINE 4098 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DPTR N PUSHI #0x00000004 S ASSVAL O LINE 4098 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DEND N PUSHI #0x00000000 S ASSVAL 4099 %IF LNUM=0 %THEN DD(3)=0 %ELSE %START O LINE 4099 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LNUM N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH DD N PUSHI #0x00000003 a ACCESS N PUSHI #0x00000000 S ASSVAL F GOTO L_0003 : LOCATE L_0004 4100 Q=DICTBASE+ML O LINE 4100 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH DICTBASE @ PUSH ML + ADD S ASSVAL 4101 RT NAME<-STRING(Q); ! FOR RTS MOVE IN 1ST 32 CHARS O LINE 4101 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RTNAME @ PUSH STRING @ PUSH Q p ASSPAR E CALL j JAM 4102 LNUM=BYTE INTEGER(ADDR(RT NAME)) O LINE 4102 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LNUM @ PUSH BYTEINTEGER @ PUSH ADDR @ PUSH RTNAME p ASSPAR E CALL p ASSPAR E CALL S ASSVAL 4103 STRING(ADDR(DD(3)))=RTNAME; ! AND UPDATE POINTER PAST O LINE 4103 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STRING @ PUSH ADDR @ PUSH DD N PUSHI #0x00000003 a ACCESS p ASSPAR E CALL p ASSPAR E CALL @ PUSH RTNAME S ASSVAL 4104 DPTR=DPTR+LNUM>>2; ! ACTUAL NO OF CHARS O LINE 4104 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DPTR @ PUSH DPTR @ PUSH LNUM N PUSHI #0x00000002 ] RSH + ADD S ASSVAL 4105 %FINISH O LINE 4105 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 4106 DD(DPTR)=ONWORD(LEVEL); ! ON CONDITION WORD O LINE 4106 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DD @ PUSH DPTR a ACCESS @ PUSH ONWORD @ PUSH LEVEL a ACCESS S ASSVAL 4107 DPTR=DPTR+1 O LINE 4107 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DPTR @ PUSH DPTR N PUSHI #0x00000001 + ADD S ASSVAL 4108 JJ=NAMES(LEVEL) O LINE 4108 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ @ PUSH NAMES @ PUSH LEVEL a ACCESS S ASSVAL 4109 %WHILE 0<=JJ<16_3FFF %CYCLE O LINE 4109 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 N PUSHI #0x00000000 @ PUSH JJ " JUMPIFD > L_0004 N PUSHI #0x00003fff ? JUMPIF >= L_0004 4110 LCELL==ASLIST(TAGS(JJ)) 4111 ! OBTAIN NEXT NAME FORM DECLNS O LINE 4110 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LCELL @ PUSH ASLIST @ PUSH TAGS @ PUSH JJ a ACCESS a ACCESS Z ASSREF 4112 %IF LCELL_S1&16_F000=0 %THEN WARN(2,JJ) 4113 ! 4114 ! GET ONLY THE MINIMUM OF DETALS NECESSARY 4115 ! O LINE 4112 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LCELL n SELECT 1 N PUSHI #0x0000f000 & AND N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH WARN N PUSHI #0x00000002 p ASSPAR @ PUSH JJ p ASSPAR E CALL : LOCATE L_0007 4116 S1=LCELL_S1; S2=LCELL_S2 O LINE 4116 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S1 @ PUSH LCELL n SELECT 1 S ASSVAL O LINE 4116 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S2 @ PUSH LCELL n SELECT 2 S ASSVAL 4117 S3=LCELL_S3; S4=LCELL_LINK O LINE 4117 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S3 @ PUSH LCELL n SELECT 3 S ASSVAL O LINE 4117 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH S4 @ PUSH LCELL n SELECT 4 S ASSVAL 4118 LCELL_LINK=ASL; ASL=TAGS(JJ) O LINE 4118 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LCELL n SELECT 4 @ PUSH ASL S ASSVAL O LINE 4118 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASL @ PUSH TAGS @ PUSH JJ a ACCESS S ASSVAL 4119 TAGS(JJ)=S4&16_3FFFF O LINE 4119 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TAGS @ PUSH JJ a ACCESS @ PUSH S4 N PUSHI #0x0003ffff & AND S ASSVAL 4120 PTYPE=S1>>16; TYPE=PTYPE&15 O LINE 4120 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE @ PUSH S1 N PUSHI #0x00000010 ] RSH S ASSVAL O LINE 4120 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE @ PUSH PTYPE N PUSHI #0x0000000f & AND S ASSVAL 4121 I=S1>>4&15 O LINE 4121 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH S1 N PUSHI #0x00000004 ] RSH N PUSHI #0x0000000f & AND S ASSVAL 4122 J=S1&15 O LINE 4122 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH S1 N PUSHI #0x0000000f & AND S ASSVAL 4123 K=S3>>16 4124 ! 4125 ! ALLOW OWNS (LITL=0) AND EXTERNALS (=2) NOT CONSTS(=1) OR EXTRINSIC(=3) 4126 ! O LINE 4123 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH S3 N PUSHI #0x00000010 ] RSH S ASSVAL 4127 %IF PARMDIAG#0 %AND PTYPE&16_7300<=16_200 %AND DPTR<497 %AND (TYPE=1 %OR TYPE=2 %OR TYPE=5) %START O LINE 4127 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMDIAG N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH PTYPE N PUSHI #0x00007300 & AND N PUSHI #0x00000200 ? JUMPIF > L_0007 @ PUSH DPTR N PUSHI #0x000001f1 ? JUMPIF >= L_0007 @ PUSH TYPE N PUSHI #0x00000001 ? JUMPIF = L_0008 @ PUSH TYPE N PUSHI #0x00000002 ? JUMPIF = L_0008 @ PUSH TYPE N PUSHI #0x00000005 ? JUMPIF # L_0007 : LOCATE L_0008 4128 Q=DICTBASE+WORD(JJ); ! ADDRESS OF NAME O LINE 4128 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH DICTBASE @ PUSH WORD @ PUSH JJ a ACCESS + ADD S ASSVAL 4129 %IF I=0 %THEN II=1 %ELSE II=0; ! GLA OR LNB BIT O LINE 4129 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000000 ? JUMPIF # L_000a @ PUSH II N PUSHI #0x00000001 S ASSVAL F GOTO L_0009 : LOCATE L_000a @ PUSH II N PUSHI #0x00000000 S ASSVAL : LOCATE L_0009 4130 DD(DPTR)=PTYPE<<20!II<<18!K O LINE 4130 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DD @ PUSH DPTR a ACCESS @ PUSH PTYPE N PUSHI #0x00000014 [ LSH @ PUSH II N PUSHI #0x00000012 [ LSH ! OR @ PUSH K ! OR S ASSVAL 4131 LOCAL NAME<-STRING(Q); ! TEXT OF NAME FROM DICTIONARY O LINE 4131 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LOCALNAME @ PUSH STRING @ PUSH Q p ASSPAR E CALL j JAM 4132 LNUM=BYTE INTEGER(ADDR(LOCAL NAME)) O LINE 4132 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LNUM @ PUSH BYTEINTEGER @ PUSH ADDR @ PUSH LOCALNAME p ASSPAR E CALL p ASSPAR E CALL S ASSVAL 4133 STRING(ADDR(DD(DPTR))+4)=LOCAL NAME;! MOVE IN NAME O LINE 4133 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STRING @ PUSH ADDR @ PUSH DD @ PUSH DPTR a ACCESS p ASSPAR E CALL N PUSHI #0x00000004 + ADD p ASSPAR E CALL @ PUSH LOCALNAME S ASSVAL 4134 DPTR=DPTR+(LNUM+8)>>2 O LINE 4134 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DPTR @ PUSH DPTR @ PUSH LNUM N PUSHI #0x00000008 + ADD N PUSHI #0x00000002 ] RSH + ADD S ASSVAL 4135 %FINISH O 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 O LINE 4136 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x0000000f ? JUMPIF # L_0007 @ PUSH S2 N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH FAULT2 N PUSHI #0x0000001c p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH JJ p ASSPAR E CALL : LOCATE L_0007 4138 %IF PTYPE&16_3000#0 %OR TYPE=4 %OR TYPE=6 %THEN CLEAR LIST(K) %ELSE %START O LINE 4138 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00003000 & AND N PUSHI #0x00000000 ? JUMPIF # L_0008 @ PUSH TYPE N PUSHI #0x00000004 ? JUMPIF = L_0008 @ PUSH TYPE N PUSHI #0x00000006 ? JUMPIF # L_0007 : LOCATE L_0008 @ PUSH CLEARLIST @ PUSH K p ASSPAR E CALL F GOTO L_0006 : LOCATE L_0007 4139 %IF I#0 %AND K>511 %AND PTYPE&LARRROUT=0 %AND TYPE#7 %THEN WARN(5,JJ) O LINE 4139 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000000 ? JUMPIF = L_000a @ PUSH K N PUSHI #0x000001ff ? JUMPIF <= L_000a @ PUSH PTYPE N PUSHI #0x0000f300 & AND N PUSHI #0x00000000 ? JUMPIF # L_000a @ PUSH TYPE N PUSHI #0x00000007 ? JUMPIF = L_000a @ PUSH WARN N PUSHI #0x00000005 p ASSPAR @ PUSH JJ p ASSPAR E CALL : LOCATE L_000a 4140 %FINISH O LINE 4140 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 4141 JJ=S4>>18 O LINE 4141 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ @ PUSH S4 N PUSHI #0x00000012 ] RSH S ASSVAL 4142 %REPEAT O LINE 4142 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 4143 DD(DPTR)=-1; ! 'END OF SEGMENT' MARK O LINE 4143 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DD @ PUSH DPTR a ACCESS N PUSHI #0x00000001 U NEGATE S ASSVAL 4144 DPTR=DPTR<<2+4 O LINE 4144 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DPTR @ PUSH DPTR N PUSHI #0x00000002 [ LSH N PUSHI #0x00000004 + ADD S ASSVAL 4145 %IF PARMTRACE=1 %THEN %START O LINE 4145 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMTRACE N PUSHI #0x00000001 ? JUMPIF # L_0004 4146 LPUT(4,DPTR,SSTL,ADDR(DD(0)));! ADD TO SHARABLE SYM TABS O LINE 4146 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LPUT N PUSHI #0x00000004 p ASSPAR @ PUSH DPTR p ASSPAR @ PUSH SSTL p ASSPAR @ PUSH ADDR @ PUSH DD N PUSHI #0x00000000 a ACCESS p ASSPAR E CALL p ASSPAR E CALL 4147 SSTL=SSTL+DPTR O LINE 4147 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SSTL @ PUSH SSTL @ PUSH DPTR + ADD S ASSVAL 4148 %FINISH O LINE 4148 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4149 %END; ! OF ROUTINE DTABLE O LINE 4149 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_CEND_DTABLE {lev=6 --> 5} 4150 %END O 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 !*********************************************************************** O LINE 4151 "regression-compile-tmp/nrimp10s-77.imp" $ DEF MAKEDECS (_lev0id0_lev1id1_lev2id3_CSS_MAKEDECS) p1=V_01ae 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_020c a/tf=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 O LINE 4155 "regression-compile-tmp/nrimp10s-77.imp" $ DEF QQ p1=V_020d a/tf=11 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_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 PRIO 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 $ DEF COUNT 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 SL 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 4156 %INTEGERNAME THEAD O LINE 4156 "regression-compile-tmp/nrimp10s-77.imp" $ DEF THEAD p1=V_0212 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) O LINE 4157 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CELL p1=V_0213 a/tf=42 b/format=11f 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) O LINE 4158 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SL @ PUSH LINE S ASSVAL O LINE 4158 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH QQ @ PUSH FROMAR4 @ PUSH Q p ASSPAR E CALL S ASSVAL 4159 HEAD=0; COUNT=0 O LINE 4159 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HEAD N PUSHI #0x00000000 S ASSVAL O LINE 4159 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COUNT N PUSHI #0x00000000 S ASSVAL 4160 %WHILE QQ#0 %CYCLE O LINE 4160 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH QQ N PUSHI #0x00000000 ? JUMPIF = L_0004 4161 COUNT=COUNT+1 O LINE 4161 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COUNT @ PUSH COUNT N PUSHI #0x00000001 + ADD S ASSVAL 4162 ABORT %UNLESS A(QQ+5)=8; ! LINE IS A DECLARATION O LINE 4162 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH QQ N PUSHI #0x00000005 + ADD a ACCESS N PUSHI #0x00000008 ? JUMPIF = L_0007 @ PUSH ABORT E CALL : LOCATE L_0007 4163 P=QQ+10; CLT O LINE 4163 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH QQ N PUSHI #0x0000000a + ADD S ASSVAL O LINE 4163 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CLT E CALL 4164 %IF PREC=3 %OR A(P)#1 %OR A(P+1)# 3 %START O LINE 4164 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000003 ? JUMPIF = L_0008 @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0008 @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000003 ? JUMPIF = L_0007 : LOCATE L_0008 4165 INSERT AT END(HEAD,16_FFFF,QQ,0) %IF A(P)=1 O LINE 4165 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_000a @ PUSH INSERTATEND @ PUSH HEAD p ASSPAR N PUSHI #0x0000ffff p ASSPAR @ PUSH QQ p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_000a 4166 %FINISH %ELSE %START O LINE 4166 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 4167 PRIO=PREC<<4!TYPE O LINE 4167 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRIO @ PUSH PREC N PUSHI #0x00000004 [ LSH @ PUSH TYPE ! OR S ASSVAL 4168 THEAD==HEAD O LINE 4168 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH THEAD @ PUSH HEAD Z ASSREF 4169 %CYCLE O LINE 4169 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0009 4170 CELL==ASLIST(THEAD) O LINE 4170 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CELL @ PUSH ASLIST @ PUSH THEAD a ACCESS Z ASSREF 4171 %IF THEAD=0 %OR PRIO= L_000d : LOCATE L_000e @ PUSH PUSH @ PUSH THEAD p ASSPAR @ PUSH PRIO p ASSPAR @ PUSH QQ p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL F GOTO L_000a : LOCATE L_000d 4172 THEAD==CELL_LINK O LINE 4172 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH THEAD @ PUSH CELL n SELECT 4 Z ASSREF 4173 %REPEAT O LINE 4173 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0009 : LOCATE L_000a 4174 %FINISH O LINE 4174 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 4175 QQ=FROM AR4(QQ+6) O LINE 4175 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH QQ @ PUSH FROMAR4 @ PUSH QQ N PUSHI #0x00000006 + ADD p ASSPAR E CALL S ASSVAL 4176 %REPEAT 4177 ! 4178 ! NOW MAKE THE ORDEREED DECLARATIONS 4179 ! FIRST GRAB TWO TEMPORARIES IF SPACE IS LIKELY TO BE TIGHT 4180 ! O LINE 4176 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 4181 %IF COUNT>=7 %START O LINE 4181 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COUNT N PUSHI #0x00000007 ? JUMPIF < L_0004 4182 GET WSP(QQ,2); ! A DIUBLE WORD O LINE 4182 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GETWSP @ PUSH QQ p ASSPAR N PUSHI #0x00000002 p ASSPAR E CALL 4183 %IF AVL WSP(1,LEVEL)=0 %THEN GET WSP(QQ,1) O LINE 4183 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AVLWSP N PUSHI #0x00000001 i INDEX @ PUSH LEVEL a ACCESS N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH GETWSP @ PUSH QQ p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL : LOCATE L_0007 4184 %FINISH O LINE 4184 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4185 %WHILE HEAD#0 %CYCLE O LINE 4185 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH HEAD N PUSHI #0x00000000 ? JUMPIF = L_0004 4186 POP(HEAD,PRIO,QQ,COUNT) O LINE 4186 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH POP @ PUSH HEAD p ASSPAR @ PUSH PRIO p ASSPAR @ PUSH QQ p ASSPAR @ PUSH COUNT p ASSPAR E CALL 4187 LINE=FROM AR2(QQ+3) O LINE 4187 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LINE @ PUSH FROMAR2 @ PUSH QQ N PUSHI #0x00000003 + ADD p ASSPAR E CALL S ASSVAL 4188 P=QQ+10; CLT O LINE 4188 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH QQ N PUSHI #0x0000000a + ADD S ASSVAL O LINE 4188 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CLT E CALL 4189 ROUT=0; LITL=0 O LINE 4189 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUT N PUSHI #0x00000000 S ASSVAL O LINE 4189 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LITL N PUSHI #0x00000000 S ASSVAL 4190 CQN(P+1); P=P+2 O LINE 4190 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CQN @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR E CALL O LINE 4190 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 4191 DECLARE SCALARS(1,0) O LINE 4191 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DECLARESCALARS N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4192 %REPEAT O LINE 4192 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 4193 LINE=SL O LINE 4193 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LINE @ PUSH SL S ASSVAL 4194 %END O 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 !*********************************************************************** O LINE 4195 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DECLARESCALARS (_lev0id0_lev1id1_lev2id3_CSS_DECLARESCALARS) p1=V_01ad 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_020c a/tf=11 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_020d a/tf=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 O LINE 4202 "regression-compile-tmp/nrimp10s-77.imp" $ DEF INC 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 Q 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 $ DEF SCHAIN 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 DMADE 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 NPARMS 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 D0 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 SCALNAME 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 TYPEP 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 4203 PACK(PTYPE); J=0 O LINE 4203 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PACK @ PUSH PTYPE p ASSPAR E CALL O LINE 4203 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000000 S ASSVAL 4204 INC=ACC; DMADE=0; SNDISP=0 O LINE 4204 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INC @ PUSH ACC S ASSVAL O LINE 4204 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DMADE N PUSHI #0x00000000 S ASSVAL O LINE 4204 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SNDISP N PUSHI #0x00000000 S ASSVAL 4205 %IF PTYPE=16_33 %THEN INC=(INC+3)&(-4) O LINE 4205 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000033 ? JUMPIF # L_0004 @ PUSH INC @ PUSH INC N PUSHI #0x00000003 + ADD N PUSHI #0x00000004 U NEGATE & AND S ASSVAL : LOCATE L_0004 4206 %IF NAM#0 %AND ROUT=0 %AND ARR=0 %THEN INC=8 O LINE 4206 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH ROUT N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH ARR N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH INC N PUSHI #0x00000008 S ASSVAL : LOCATE L_0004 4207 %IF NAM>0 %AND ARR>0 %THEN INC=16 O LINE 4207 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000000 ? JUMPIF <= L_0004 @ PUSH ARR N PUSHI #0x00000000 ? JUMPIF <= L_0004 @ PUSH INC N PUSHI #0x00000010 S ASSVAL : LOCATE L_0004 4208 %IF PTYPE=16_35 %AND ACC=0 %THEN FAULT(70,0) O LINE 4208 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000035 ? JUMPIF # L_0004 @ PUSH ACC N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH FAULT N PUSHI #0x00000046 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 4209 %IF PERMIT#0 %AND (INC=8 %OR INC=16) %THEN ODD ALIGN O LINE 4209 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PERMIT N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH INC N PUSHI #0x00000008 ? JUMPIF = L_0005 @ PUSH INC N PUSHI #0x00000010 ? JUMPIF # L_0004 : LOCATE L_0005 @ PUSH ODDALIGN E CALL : LOCATE L_0004 4210 %IF PTYPE=16_33 %OR (PTYPE=16_35 %AND PERMIT#0)%START O LINE 4210 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000033 ? JUMPIF = L_0005 @ PUSH PTYPE N PUSHI #0x00000035 ? JUMPIF # L_0004 @ PUSH PERMIT N PUSHI #0x00000000 ? JUMPIF = L_0004 : LOCATE L_0005 4211 D0=16_18000000+ACC O LINE 4211 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D0 N PUSHI #0x18000000 @ PUSH ACC + ADD S ASSVAL 4212 STORE CONST(Q,4,ADDR(D0)) O LINE 4212 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STORECONST @ PUSH Q p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH ADDR @ PUSH D0 p ASSPAR E CALL p ASSPAR E CALL 4213 PF1(LDTB,0,PC,Q) O LINE 4213 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000074 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH Q p ASSPAR E CALL 4214 GRUSE(DR)=0 O LINE 4214 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000001 a ACCESS N PUSHI #0x00000000 S ASSVAL 4215 %FINISH O LINE 4215 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4216 %IF PTYPE=16_35 %START O LINE 4216 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000035 ? JUMPIF # L_0004 4217 INC=8 O LINE 4217 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INC N PUSHI #0x00000008 S ASSVAL 4218 %IF PERMIT#0 %START O LINE 4218 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PERMIT N PUSHI #0x00000000 ? JUMPIF = L_0007 4219 PF1(STSF,0,TOS,0) O LINE 4219 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000005e p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4220 PF1(LDA,0,TOS,0) O LINE 4220 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000072 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4221 %FINISH O LINE 4221 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 4222 %FINISH O LINE 4222 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4223 N=(N+3)&(-4) O LINE 4223 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N N PUSHI #0x00000003 + ADD N PUSHI #0x00000004 U NEGATE & AND S ASSVAL 4224 %IF PTYPE=16_33 %THEN %START O LINE 4224 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000033 ? JUMPIF # L_0004 4225 PSF1(LDA,1,PTR OFFSET(RBASE)) O LINE 4225 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000072 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH PTROFFSET @ PUSH RBASE p ASSPAR E CALL p ASSPAR E CALL 4226 PSF1(INCA,0,N+8) O LINE 4226 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000014 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH N N PUSHI #0x00000008 + ADD p ASSPAR E CALL 4227 %FINISH O LINE 4227 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4228 {%UNTIL A(P-1)=2} %CYCLE; ! DOWN THE NAMELIST O LINE 4228 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 4229 DMADE=DMADE+1 O LINE 4229 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DMADE @ PUSH DMADE N PUSHI #0x00000001 + ADD S ASSVAL 4230 SCAL NAME=FROM AR2(P) O LINE 4230 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SCALNAME @ PUSH FROMAR2 @ PUSH P p ASSPAR E CALL S ASSVAL 4231 %IF PTYPE=16_31 %AND PERMIT=0 %THEN N=N+3;! BYTE PARAMS O LINE 4231 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000031 ? JUMPIF # L_0007 @ PUSH PERMIT N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH N @ PUSH N N PUSHI #0x00000003 + ADD S ASSVAL : LOCATE L_0007 4232 %IF PTYPE=16_41 %AND PERMIT=0 %THEN N=N+2 O LINE 4232 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000041 ? JUMPIF # L_0007 @ PUSH PERMIT N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH N @ PUSH N N PUSHI #0x00000002 + ADD S ASSVAL : LOCATE L_0007 4233 SCHAIN=N O LINE 4233 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SCHAIN @ PUSH N S ASSVAL 4234 KFORM=XTRA O LINE 4234 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KFORM @ PUSH XTRA S ASSVAL 4235 %IF ROUT=1 %THEN %START O LINE 4235 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUT N PUSHI #0x00000001 ? JUMPIF # L_0007 4236 TYPEP=PTYPE; ! CHANGED BY CFPLIST! O LINE 4236 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPEP @ PUSH PTYPE S ASSVAL 4237 Q=P O LINE 4237 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH P S ASSVAL 4238 P=P+3 %UNTIL A(P-1)=2; ! TO FPP O LINE 4238 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0009 @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL @ PUSH A @ PUSH P N PUSHI #0x00000001 - SUB a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_000a B REPEAT L_0009 : LOCATE L_000a 4239 CFPLIST(SCHAIN,NPARMS) O LINE 4239 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CFPLIST @ PUSH SCHAIN p ASSPAR @ PUSH NPARMS p ASSPAR E CALL 4240 P=Q O LINE 4240 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH Q S ASSVAL 4241 J=13 O LINE 4241 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x0000000d S ASSVAL 4242 KFORM=NPARMS; ! NO OF PARAMS OF FORMAL O LINE 4242 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KFORM @ PUSH NPARMS S ASSVAL 4243 ACC=N; ! DISPLACEMENT TO MIDCELL O LINE 4243 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC @ PUSH N S ASSVAL 4244 PTYPE=TYPEP; UNPACK O LINE 4244 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE @ PUSH TYPEP S ASSVAL O LINE 4244 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UNPACK E CALL 4245 %FINISH O LINE 4245 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 4246 P=P+3 O LINE 4246 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL 4247 %IF PTYPE=16_33 %THEN %START O LINE 4247 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000033 ? JUMPIF # L_0007 4248 PSF1(STD,1,N) O LINE 4248 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000058 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N p ASSPAR E CALL 4249 N=N+8; SCHAIN=N O LINE 4249 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N N PUSHI #0x00000008 + ADD S ASSVAL O LINE 4249 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SCHAIN @ PUSH N S ASSVAL 4250 %IF A(P-1)=1 %THEN PSF1(INCA,0,INC+8) O LINE 4250 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 - SUB a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_000a @ PUSH PSF1 N PUSHI #0x00000014 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH INC N PUSHI #0x00000008 + ADD p ASSPAR E CALL : LOCATE L_000a 4251 %FINISH O LINE 4251 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 4252 %IF PTYPE=16_35 %AND PERMIT#0 %START O LINE 4252 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00000035 ? JUMPIF # L_0007 @ PUSH PERMIT N PUSHI #0x00000000 ? JUMPIF = L_0007 4253 PSF1(STD,1,N) O LINE 4253 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000058 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N p ASSPAR E CALL 4254 %IF A(P-1)=1 %THEN PSF1(INCA,0,(ACC+3)&(-4)) %ELSE %START O LINE 4254 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 - SUB a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_000a @ PUSH PSF1 N PUSHI #0x00000014 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH ACC N PUSHI #0x00000003 + ADD N PUSHI #0x00000004 U NEGATE & AND p ASSPAR E CALL F GOTO L_0009 : LOCATE L_000a 4255 Q=((ACC+3)>>2)*DMADE O LINE 4255 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH Q @ PUSH ACC N PUSHI #0x00000003 + ADD N PUSHI #0x00000002 ] RSH @ PUSH DMADE * MUL S ASSVAL 4256 PSF1(ASF+12*PARMCHK,0,Q) O LINE 4256 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000006e N PUSHI #0x0000000c @ PUSH PARMCHK * MUL + ADD p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH Q p ASSPAR E CALL 4257 %IF PARMCHK#0 %THEN PPJ(0,4) O LINE 4257 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMCHK N PUSHI #0x00000000 ? JUMPIF = L_000d @ PUSH PPJ N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR E CALL : LOCATE L_000d 4258 %FINISH O LINE 4258 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0009 4259 %FINISH O LINE 4259 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 4260 STORE TAG(SCAL NAME,SCHAIN) O LINE 4260 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STORETAG @ PUSH SCALNAME p ASSPAR @ PUSH SCHAIN p ASSPAR E CALL 4261 N=N+INC O LINE 4261 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N @ PUSH INC + ADD S ASSVAL 4262 %REPEAT %UNTIL A(P-1)=2 O LINE 4262 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 - SUB a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0004 B REPEAT L_0003 : LOCATE L_0004 4263 N=(N+3)&(-4) %IF PERMIT#0;! NO ROUNDING AMONG PARAMS O LINE 4263 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PERMIT N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH N @ PUSH N N PUSHI #0x00000003 + ADD N PUSHI #0x00000004 U NEGATE & AND S ASSVAL : LOCATE L_0004 4264 %END O 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 !*********************************************************************** O LINE 4265 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DOPEVECTOR (_lev0id0_lev1id1_lev2id3_CSS_DOPEVECTOR) p1=V_01ab 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_020c a/tf=11 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_020d a/tf=11 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_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 IDEN 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 $ DEF ASIZE p1=V_0210 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_0211 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 O LINE 4283 "regression-compile-tmp/nrimp10s-77.imp" $ DEF I 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 JJ 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 K 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 ND 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 D 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 UNSCAL 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 M0 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 HEAD 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 $ DEF NOPS p1=V_021a a/tf=11 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_021b a/tf=11 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_021c a/tf=11 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_021d a/tf=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) O LINE 4284 "regression-compile-tmp/nrimp10s-77.imp" $ DEF LCELL p1=V_021e a/tf=42 b/format=11f 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) O LINE 4285 "regression-compile-tmp/nrimp10s-77.imp" $ DEF LBH p1=V_021f 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_0220 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_0221 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_0222 a/tf=1b b/format=1 c/ostate=100 type=1 (integer) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 N PUSHI #0x00000000 N PUSHI #0x0000000c d DIM 0001 0004 4286 %INTEGERARRAY DV(0:39); ! ENOUGH FOR 12 DIMENSIONS O LINE 4286 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DV p1=V_0223 a/tf=1b b/format=1 c/ostate=100 type=1 (integer) form=11 (array) special=0 () linkage=0 (auto) spec=0 indirect=0 unass=0 N PUSHI #0x00000000 N PUSHI #0x00000027 d DIM 0001 0001 4287 ND=0; NOPS=0; TYPEPP=0; PIN=P O LINE 4287 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ND N PUSHI #0x00000000 S ASSVAL O LINE 4287 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NOPS N PUSHI #0x00000000 S ASSVAL O LINE 4287 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPEPP N PUSHI #0x00000000 S ASSVAL O LINE 4287 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PIN @ PUSH P S ASSVAL 4288 %IF TYPEP>2 %OR (TYPEP=1 %AND PREC=4) %THEN UNSCAL=1 %AND M0=ELSIZE %ELSE UNSCAL=0 %AND M0=1 O LINE 4288 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPEP N PUSHI #0x00000002 ? JUMPIF > L_0005 @ PUSH TYPEP N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH PREC N PUSHI #0x00000004 ? JUMPIF # L_0004 : LOCATE L_0005 @ PUSH UNSCAL N PUSHI #0x00000001 S ASSVAL @ PUSH M0 @ PUSH ELSIZE S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH UNSCAL N PUSHI #0x00000000 S ASSVAL @ PUSH M0 N PUSHI #0x00000001 S ASSVAL : LOCATE L_0003 4289 {%UNTIL A(P)=2} %CYCLE O LINE 4289 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 4290 ND=ND+1; P=P+4 O LINE 4290 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ND @ PUSH ND N PUSHI #0x00000001 + ADD S ASSVAL O LINE 4290 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000004 + ADD S ASSVAL 4291 LBH(ND)=0; LBB(ND)=0 O LINE 4291 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LBH @ PUSH ND a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 4291 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LBB @ PUSH ND a ACCESS N PUSHI #0x00000000 S ASSVAL 4292 UBB(ND)=0; UBH(ND)=0 O LINE 4292 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UBB @ PUSH ND a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 4292 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UBH @ PUSH ND a ACCESS N PUSHI #0x00000000 S ASSVAL 4293 TORP(LBH(ND),LBB(ND),NOPS) O LINE 4293 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TORP @ PUSH LBH @ PUSH ND a ACCESS p ASSPAR @ PUSH LBB @ PUSH ND a ACCESS p ASSPAR @ PUSH NOPS p ASSPAR E CALL 4294 P=P+3 O LINE 4294 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL 4295 TYPEPP=TYPEPP!TYPE O LINE 4295 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPEPP @ PUSH TYPEPP @ PUSH TYPE ! OR S ASSVAL 4296 TORP(UBH(ND),UBB(ND),NOPS) O LINE 4296 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TORP @ PUSH UBH @ PUSH ND a ACCESS p ASSPAR @ PUSH UBB @ PUSH ND a ACCESS p ASSPAR @ PUSH NOPS p ASSPAR E CALL 4297 TYPEPP=TYPEPP!TYPE O LINE 4297 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPEPP @ PUSH TYPEPP @ PUSH TYPE ! OR S ASSVAL 4298 %REPEAT %UNTIL A(P)=2 O LINE 4298 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0004 B REPEAT L_0003 : LOCATE L_0004 4299 P=P+1 O LINE 4299 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 4300 ->NONCONST %UNLESS TYPEPP=1 %AND NOPS&16_40040000=0 4301 ! 4302 ! NOW ONE CAN WORK OUT AND FILL IN THE TRIPLES 4303 ! O LINE 4300 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPEPP N PUSHI #0x00000001 ? JUMPIF # L_0005 @ PUSH NOPS N PUSHI #0x40040000 & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 : LOCATE L_0005 J JUMP L_0224 : LOCATE L_0004 4304 PTR=1 O LINE 4304 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTR N PUSHI #0x00000001 S ASSVAL 4305 %CYCLE D=ND,-1,1 O LINE 4305 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D N PUSHI #0x00000001 U NEGATE N PUSHI #0x00000001 @ PUSH ND f FOR L_0003 4306 K=3*D O LINE 4306 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K N PUSHI #0x00000003 @ PUSH D * MUL S ASSVAL 4307 EXPOP(LBH(PTR),ACCR,NOPS,16_251) O LINE 4307 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXPOP @ PUSH LBH @ PUSH PTR a ACCESS p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH NOPS p ASSPAR N PUSHI #0x00000251 p ASSPAR E CALL 4308 EXPOPND_D=0 %AND FAULT(41,0) %UNLESS EXPOPND_FLAG<=1 %AND EXPOPND_PTYPE=16_51 O LINE 4308 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXPOPND n SELECT 4 N PUSHI #0x00000001 ? JUMPIF > L_0008 @ PUSH EXPOPND n SELECT 2 N PUSHI #0x00000051 ? JUMPIF = L_0007 : LOCATE L_0008 @ PUSH EXPOPND n SELECT 5 N PUSHI #0x00000000 S ASSVAL @ PUSH FAULT N PUSHI #0x00000029 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0007 4309 DV(K)=EXPOPND_D O LINE 4309 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DV @ PUSH K a ACCESS @ PUSH EXPOPND n SELECT 5 S ASSVAL 4310 DV(K+1)=M0 O LINE 4310 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DV @ PUSH K N PUSHI #0x00000001 + ADD a ACCESS @ PUSH M0 S ASSVAL 4311 EXPOP(UBH(PTR),ACCR,NOPS,16_251) O LINE 4311 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXPOP @ PUSH UBH @ PUSH PTR a ACCESS p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH NOPS p ASSPAR N PUSHI #0x00000251 p ASSPAR E CALL 4312 EXPOPND_D=10 %AND FAULT(41,0) %UNLESS EXPOPND_FLAG<=1 %AND EXPOPND_PTYPE=16_51 O LINE 4312 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXPOPND n SELECT 4 N PUSHI #0x00000001 ? JUMPIF > L_0008 @ PUSH EXPOPND n SELECT 2 N PUSHI #0x00000051 ? JUMPIF = L_0007 : LOCATE L_0008 @ PUSH EXPOPND n SELECT 5 N PUSHI #0x0000000a S ASSVAL @ PUSH FAULT N PUSHI #0x00000029 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0007 4313 JJ=EXPOPND_D O LINE 4313 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ @ PUSH EXPOPND n SELECT 5 S ASSVAL 4314 M0=M0*(JJ-DV(K)+1) O LINE 4314 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH M0 @ PUSH M0 @ PUSH JJ @ PUSH DV @ PUSH K a ACCESS - SUB N PUSHI #0x00000001 + ADD * MUL S ASSVAL 4315 FAULT2(38,1-M0,IDEN) %UNLESS JJ>=DV(K) O LINE 4315 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ @ PUSH DV @ PUSH K a ACCESS ? JUMPIF >= L_0007 @ PUSH FAULT2 N PUSHI #0x00000026 p ASSPAR N PUSHI #0x00000001 @ PUSH M0 - SUB p ASSPAR @ PUSH IDEN p ASSPAR E CALL : LOCATE L_0007 4316 DV(K+2)=M0 O LINE 4316 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DV @ PUSH K N PUSHI #0x00000002 + ADD a ACCESS @ PUSH M0 S ASSVAL 4317 PTR=PTR+1 O LINE 4317 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTR @ PUSH PTR N PUSHI #0x00000001 + ADD S ASSVAL 4318 %REPEAT 4319 ! O LINE 4318 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 4320 %IF UNSCAL=0 %THEN M0=M0*ELSIZE O LINE 4320 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UNSCAL N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH M0 @ PUSH M0 @ PUSH ELSIZE * MUL S ASSVAL : LOCATE L_0004 4321 %IF ND=1 %THEN LB=DV(3) O LINE 4321 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ND N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH LB @ PUSH DV N PUSHI #0x00000003 a ACCESS S ASSVAL : LOCATE L_0004 4322 ASIZE=M0 O LINE 4322 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASIZE @ PUSH M0 S ASSVAL 4323 DV(2)=ASIZE O LINE 4323 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DV N PUSHI #0x00000002 a ACCESS @ PUSH ASIZE S ASSVAL 4324 DV(1)=12 O LINE 4324 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DV N PUSHI #0x00000001 a ACCESS N PUSHI #0x0000000c S ASSVAL 4325 DV(0)=5<<27!3*ND; ! DESPTR FOR DV O LINE 4325 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DV N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000005 N PUSHI #0x0000001b [ LSH N PUSHI #0x00000003 @ PUSH ND * MUL ! OR S ASSVAL 4326 K=3*ND+2 O LINE 4326 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K N PUSHI #0x00000003 @ PUSH ND * MUL N PUSHI #0x00000002 + ADD S ASSVAL 4327 J=ND; ! DIMENSIONALITY FOR DECLN O LINE 4327 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH ND S ASSVAL 4328 HEAD=DVHEADS(ND) O LINE 4328 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HEAD @ PUSH DVHEADS @ PUSH ND a ACCESS S ASSVAL 4329 %WHILE HEAD#0 %CYCLE O LINE 4329 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH HEAD N PUSHI #0x00000000 ? JUMPIF = L_0004 4330 LCELL==ASLIST(HEAD) O LINE 4330 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LCELL @ PUSH ASLIST @ PUSH HEAD a ACCESS Z ASSREF 4331 %IF LCELL_S2=ASIZE %AND LCELL_S3=DV(5) %START O LINE 4331 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LCELL n SELECT 2 @ PUSH ASIZE ? JUMPIF # L_0007 @ PUSH LCELL n SELECT 3 @ PUSH DV N PUSHI #0x00000005 a ACCESS ? JUMPIF # L_0007 4332 %CYCLE D=0,1,K O LINE 4332 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D N PUSHI #0x00000001 @ PUSH K N PUSHI #0x00000000 f FOR L_0009 4333 ->ON %UNLESS DV(D)=CTABLE_val(D+LCELL_S1) O LINE 4333 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DV @ PUSH D a ACCESS @ PUSH CTABLE n SELECT 1 @ PUSH D @ PUSH LCELL n SELECT 1 + ADD a ACCESS ? JUMPIF = L_000d J JUMP L_0225 : LOCATE L_000d 4334 %REPEAT O LINE 4334 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0009 : LOCATE L_000a 4335 %RESULT=16_80000000!4*LCELL_S1 O LINE 4335 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x80000000 N PUSHI #0x00000004 @ PUSH LCELL n SELECT 1 * MUL ! OR V RESULT 4336 %FINISH O LINE 4336 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 4337 ON: O LINE 4337 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0225 4338 HEAD=LCELL_LINK O LINE 4338 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH HEAD @ PUSH LCELL n SELECT 4 S ASSVAL 4339 %REPEAT O LINE 4339 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 4340 %IF CONST PTR&1#0 %THEN CONST HOLE=CONST PTR %AND CONST PTR=CONST PTR+1 O LINE 4340 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTPTR N PUSHI #0x00000001 & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH CONSTHOLE @ PUSH CONSTPTR S ASSVAL @ PUSH CONSTPTR @ PUSH CONSTPTR N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0004 4341 I=4*CONST PTR!16_80000000 O LINE 4341 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000004 @ PUSH CONSTPTR * MUL N PUSHI #0x80000000 ! OR S ASSVAL 4342 PUSH(DVHEADS(ND),CONSTPTR,ASIZE,DV(5)) O LINE 4342 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PUSH @ PUSH DVHEADS @ PUSH ND a ACCESS p ASSPAR @ PUSH CONSTPTR p ASSPAR @ PUSH ASIZE p ASSPAR @ PUSH DV N PUSHI #0x00000005 a ACCESS p ASSPAR E CALL 4343 %CYCLE D=0,1,K O LINE 4343 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D N PUSHI #0x00000001 @ PUSH K N PUSHI #0x00000000 f FOR L_0003 4344 CTABLE_val(CONST PTR)=DV(D) O LINE 4344 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CTABLE n SELECT 1 @ PUSH CONSTPTR a ACCESS @ PUSH DV @ PUSH D a ACCESS S ASSVAL 4345 CONST PTR=CONST PTR+1 O LINE 4345 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTPTR @ PUSH CONSTPTR N PUSHI #0x00000001 + ADD S ASSVAL 4346 %REPEAT O LINE 4346 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 4347 %IF CONST PTR>CONST LIMIT %THEN FAULT(107,0) O LINE 4347 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CONSTPTR @ PUSH CONSTLIMIT ? JUMPIF <= L_0004 @ PUSH FAULT N PUSHI #0x0000006b p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 4348 WAYOUT: O LINE 4348 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0226 4349 %CYCLE D=ND,-1,1 O LINE 4349 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D N PUSHI #0x00000001 U NEGATE N PUSHI #0x00000001 @ PUSH ND f FOR L_0003 4350 ASLIST(LBB(D))_LINK=ASL O LINE 4350 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASLIST @ PUSH LBB @ PUSH D a ACCESS a ACCESS n SELECT 4 @ PUSH ASL S ASSVAL 4351 ASL=LBH(D) O LINE 4351 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASL @ PUSH LBH @ PUSH D a ACCESS S ASSVAL 4352 ASLIST(UBB(D))_LINK=ASL O LINE 4352 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASLIST @ PUSH UBB @ PUSH D a ACCESS a ACCESS n SELECT 4 @ PUSH ASL S ASSVAL 4353 ASL=UBH(D) O LINE 4353 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASL @ PUSH UBH @ PUSH D a ACCESS S ASSVAL 4354 %REPEAT O LINE 4354 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 4355 %RESULT =I O LINE 4355 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I V RESULT 4356 NONCONST: ! NOT A CONST DV O LINE 4356 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0224 4357 J=ND; I=-1 O LINE 4357 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH ND S ASSVAL O LINE 4357 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 U NEGATE S ASSVAL 4358 LB=0; ASIZE=ELSIZE O LINE 4358 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LB N PUSHI #0x00000000 S ASSVAL O LINE 4358 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASIZE @ PUSH ELSIZE S ASSVAL 4359 %IF MODE=0 %THEN FAULT(41,0) %ELSE P=PIN O LINE 4359 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MODE N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH FAULT N PUSHI #0x00000029 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL F GOTO L_0003 : LOCATE L_0004 @ PUSH P @ PUSH PIN S ASSVAL : LOCATE L_0003 4360 ->WAYOUT O LINE 4360 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0226 4361 %END 4362 O 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 !*********************************************************************** O LINE 4363 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DECLAREARRAYS (_lev0id0_lev1id1_lev2id3_CSS_DECLAREARRAYS) p1=V_01ac 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_020c a/tf=11 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_020d a/tf=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 O LINE 4378 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CLAIMAS (_lev0id0_lev1id1_lev2id3_CSS_DECLAREARRAYS_CLAIMAS) p1=V_020e 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 O LINE 4379 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DVDISP 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 $ DEF PP 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 DVF 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 ELSIZE 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 TOTSIZE 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 D0 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 D1 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 PTYPEP 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 ARRP 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 NN 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 ND 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 $ DEF II p1=V_021a a/tf=11 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_021b a/tf=11 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_021c a/tf=11 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_021d a/tf=11 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_021e a/tf=11 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_021f a/tf=11 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_0220 a/tf=11 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_0221 a/tf=11 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_0222 a/tf=11 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_0223 a/tf=11 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_0224 a/tf=11 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_0225 a/tf=11 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_0226 a/tf=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 O LINE 4382 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STACK N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH FLAG @ PUSH LEVEL a ACCESS N PUSHI #0x00000000 " JUMPIFD # L_0004 @ PUSH NMDECS @ PUSH LEVEL a ACCESS N PUSHI #0x0000000e ] RSH ? JUMPIF # L_0004 4383 PSF1(STSF,1,N) O LINE 4383 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000005e p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N p ASSPAR E CALL 4384 NMDECS(LEVEL)=NMDECS(LEVEL)!(N<<14) O LINE 4384 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NMDECS @ PUSH LEVEL a ACCESS @ PUSH NMDECS @ PUSH LEVEL a ACCESS @ PUSH N N PUSHI #0x0000000e [ LSH ! OR S ASSVAL 4385 N=N+4 O LINE 4385 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N N PUSHI #0x00000004 + ADD S ASSVAL 4386 %FINISH O LINE 4386 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4387 %IF STACK=0 %THEN SAVE AUX STACK O LINE 4387 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STACK N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH SAVEAUXSTACK E CALL : LOCATE L_0004 4388 ARRP=2*FORMAT+1; ARR=ARRP; PACK(PTYPEP) O LINE 4388 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARRP N PUSHI #0x00000002 @ PUSH FORMAT * MUL N PUSHI #0x00000001 + ADD S ASSVAL O LINE 4388 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARR @ PUSH ARRP S ASSVAL O LINE 4388 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PACK @ PUSH PTYPEP p ASSPAR E CALL 4389 ELSIZE=ACC O LINE 4389 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ELSIZE @ PUSH ACC S ASSVAL 4390 %IF TYPE>2 %OR (TYPE=1 %AND PREC=4) %THEN UNSCAL=1 %AND SC=3 %ELSE UNSCAL=0 %AND SC=PREC O LINE 4390 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000002 ? JUMPIF > L_0005 @ PUSH TYPE N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH PREC N PUSHI #0x00000004 ? JUMPIF # L_0004 : LOCATE L_0005 @ PUSH UNSCAL N PUSHI #0x00000001 S ASSVAL @ PUSH SC N PUSHI #0x00000003 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH UNSCAL N PUSHI #0x00000000 S ASSVAL @ PUSH SC @ PUSH PREC S ASSVAL : LOCATE L_0003 4391 DESC=SC<<27!UNSCAL<<25!(1-PARMARR)<<24;! ARRAY DESCRIPTOR SKELETON O LINE 4391 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DESC @ PUSH SC N PUSHI #0x0000001b [ LSH @ PUSH UNSCAL N PUSHI #0x00000019 [ LSH ! OR N PUSHI #0x00000001 @ PUSH PARMARR - SUB N PUSHI #0x00000018 [ LSH ! OR S ASSVAL 4392 %IF PREC=4 %THEN DESC=16_58000002 O LINE 4392 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000004 ? JUMPIF # L_0004 @ PUSH DESC N PUSHI #0x58000002 S ASSVAL : LOCATE L_0004 4393 START:NN=1; P=P+1; ! NO OF NAMES IN NAMELIST O LINE 4393 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0227 O LINE 4393 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NN N PUSHI #0x00000001 S ASSVAL O LINE 4393 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 4394 PP=P; CDV=0; PTYPEPP=PTYPEP O LINE 4394 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PP @ PUSH P S ASSVAL O LINE 4394 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CDV N PUSHI #0x00000000 S ASSVAL O LINE 4394 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPEPP @ PUSH PTYPEP S ASSVAL 4395 P=P+3 %AND NN=NN+1 %WHILE A(P+2)=1 O LINE 4395 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH A @ PUSH P N PUSHI #0x00000002 + ADD a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL @ PUSH NN @ PUSH NN N PUSHI #0x00000001 + ADD S ASSVAL B REPEAT L_0003 : LOCATE L_0004 4396 P=P+3 O LINE 4396 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL 4397 DVDISP=DOPE VECTOR(TYPE,ELSIZE,1,FROMAR2(PP),TOTSIZE,LWB) O LINE 4397 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DVDISP @ PUSH DOPEVECTOR @ PUSH TYPE p ASSPAR @ PUSH ELSIZE p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH FROMAR2 @ PUSH PP p ASSPAR E CALL p ASSPAR @ PUSH TOTSIZE p ASSPAR @ PUSH LWB p ASSPAR E CALL S ASSVAL 4398 ND=J O LINE 4398 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ND @ PUSH J S ASSVAL 4399 ->CONSTDV %UNLESS DVDISP=-1 4400 ! NORMAL CASE - PLANT CODE TO SET UP DOPE-VECTOR AT RUN TIME 4401 O LINE 4399 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DVDISP N PUSHI #0x00000001 U NEGATE ? JUMPIF = L_0004 J JUMP L_0228 : LOCATE L_0004 4402 DVF=0; TOTSIZE=16_FFFF O LINE 4402 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DVF N PUSHI #0x00000000 S ASSVAL O LINE 4402 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TOTSIZE N PUSHI #0x0000ffff S ASSVAL 4403 DVDISP=N; ! DVDISP IS D-V POSITION O LINE 4403 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DVDISP @ PUSH N S ASSVAL 4404 N=N+12*ND+12; ! CLAIM SPACE FOR THE D-V O LINE 4404 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N N PUSHI #0x0000000c @ PUSH ND * MUL + ADD N PUSHI #0x0000000c + ADD S ASSVAL 4405 FAULT(37,0) %IF ND>12; ! TOO MANY DIMENSIONS O LINE 4405 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ND N PUSHI #0x0000000c ? JUMPIF <= L_0004 @ PUSH FAULT N PUSHI #0x00000025 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 4406 D0=5<<27!3*ND; D1=12; ! DESCPTR FOR DV O LINE 4406 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D0 N PUSHI #0x00000005 N PUSHI #0x0000001b [ LSH N PUSHI #0x00000003 @ PUSH ND * MUL ! OR S ASSVAL O LINE 4406 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D1 N PUSHI #0x0000000c S ASSVAL 4407 STORE CONST(JJ,8,ADDR(D0)) O LINE 4407 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STORECONST @ PUSH JJ p ASSPAR N PUSHI #0x00000008 p ASSPAR @ PUSH ADDR @ PUSH D0 p ASSPAR E CALL p ASSPAR E CALL 4408 PF1(LD,0,PC,JJ) O LINE 4408 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000078 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH JJ p ASSPAR E CALL 4409 PSF1(STD,1,DVDISP) O LINE 4409 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000058 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH DVDISP p ASSPAR E CALL 4410 GRUSE(DR)=0 4411 O LINE 4410 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000001 a ACCESS N PUSHI #0x00000000 S ASSVAL 4412 %IF UNSCAL=0 %THEN JJ=1 %ELSE JJ=ELSIZE O LINE 4412 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UNSCAL N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH JJ N PUSHI #0x00000001 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH JJ @ PUSH ELSIZE S ASSVAL : LOCATE L_0003 4413 PSF1(LSS,0,JJ); ! M1 THE FIRST MULTIPLIER O LINE 4413 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH JJ p ASSPAR E CALL 4414 GRUSE(ACCR)=0 O LINE 4414 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL 4415 %CYCLE II=ND,-1,1 O LINE 4415 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH II N PUSHI #0x00000001 U NEGATE N PUSHI #0x00000001 @ PUSH ND f FOR L_0003 4416 P=P+1 O LINE 4416 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 4417 QQ=DVDISP+12*II; ! TRIPLE FOR IITH DIMENSION O LINE 4417 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH QQ @ PUSH DVDISP N PUSHI #0x0000000c @ PUSH II * MUL + ADD S ASSVAL 4418 PSF1(ST,1,QQ+4); ! STORE MULTIPLIER O LINE 4418 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH QQ N PUSHI #0x00000004 + ADD p ASSPAR E CALL 4419 CSEXP(ACCR,16_51); ! LOWER BOUND O LINE 4419 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CSEXP N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000051 p ASSPAR E CALL 4420 %IF ND=1 %AND PTYPEP&7<=3 %AND FORMAT=0 %AND GRUSE(ACCR)=5 %AND GRINF1(ACCR)=0 %THEN PTYPEPP=PTYPEPP+256 O LINE 4420 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ND N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH PTYPEP N PUSHI #0x00000007 & AND N PUSHI #0x00000003 ? JUMPIF > L_0007 @ PUSH FORMAT N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000005 ? JUMPIF # L_0007 @ PUSH GRINF1 N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH PTYPEPP @ PUSH PTYPEPP N PUSHI #0x00000100 + ADD S ASSVAL : LOCATE L_0007 4421 PSF1(ST,1,QQ); ! STORED IN DV O LINE 4421 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH QQ p ASSPAR E CALL 4422 CSEXP(ACCR,16_51); ! UPPER BOUND O LINE 4422 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CSEXP N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000051 p ASSPAR E CALL 4423 PSF1(ISB,1,QQ) O LINE 4423 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x000000e2 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH QQ p ASSPAR E CALL 4424 GRUSE(ACCR)=0 O LINE 4424 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL 4425 %IF COMPILER=0 %OR PARMARR#0 %START O LINE 4425 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COMPILER N PUSHI #0x00000000 ? JUMPIF = L_0008 @ PUSH PARMARR N PUSHI #0x00000000 ? JUMPIF = L_0007 : LOCATE L_0008 4426 PF3(JAF,6,0,3); ! JUMP UNLESS NEGATIVE O LINE 4426 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF3 N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000003 p ASSPAR E CALL 4427 PSF1(LSS,0,-1); ! SET UP -1 (ENSURES 0 ELEMENTS O LINE 4427 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000001 U NEGATE p ASSPAR E CALL 4428 %FINISH O LINE 4428 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 4429 PSF1(IAD,0,1); ! CONVERTED TO RANGE O LINE 4429 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x000000e0 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 4430 PSF1(IMY,1,QQ+4); ! RANGE*MULTIPLIER O LINE 4430 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x000000ea p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH QQ N PUSHI #0x00000004 + ADD p ASSPAR E CALL 4431 PSF1(ST,1,QQ+8); ! AND STORED IN DV O LINE 4431 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH QQ N PUSHI #0x00000008 + ADD p ASSPAR E CALL 4432 %REPEAT O LINE 4432 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 4433 P=P+1 O LINE 4433 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 4434 %IF UNSCAL=0 %AND ELSIZE#1 %THEN PSF1(IMY,0,ELSIZE) O LINE 4434 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UNSCAL N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH ELSIZE N PUSHI #0x00000001 ? JUMPIF = L_0004 @ PUSH PSF1 N PUSHI #0x000000ea p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH ELSIZE p ASSPAR E CALL : LOCATE L_0004 4435 PSF1(ST,1,DVDISP+8) O LINE 4435 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH DVDISP N PUSHI #0x00000008 + ADD p ASSPAR E CALL 4436 SNDISP=0; ! DV NOT AVAILABLE AT COMPILETIME O LINE 4436 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SNDISP N PUSHI #0x00000000 S ASSVAL 4437 ->DECL O LINE 4437 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0229 4438 CONSTDV: ! ONE DIMENSION - CONSTANT BOUNDS O LINE 4438 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0228 4439 DVF=1; CDV=1 O LINE 4439 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DVF N PUSHI #0x00000001 S ASSVAL O LINE 4439 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CDV N PUSHI #0x00000001 S 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 O LINE 4440 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ND N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH LWB N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH PTYPEP N PUSHI #0x0000000f & AND N PUSHI #0x00000003 ? JUMPIF > L_0004 @ PUSH FORMAT N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH PTYPEPP @ PUSH PTYPEP N PUSHI #0x00000100 + ADD S ASSVAL : LOCATE L_0004 4442 SNDISP=(DVDISP&16_FFFFFF)>>2 O LINE 4442 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SNDISP @ PUSH DVDISP N PUSHI #0x00ffffff & AND N PUSHI #0x00000002 ] RSH S ASSVAL 4443 DECL: ! MAKE DECLN - BOTH WAYS O LINE 4443 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0229 4444 J=ND O LINE 4444 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH ND S ASSVAL 4445 ODD ALIGN O LINE 4445 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ODDALIGN E CALL 4446 PTYPE=PTYPEPP; UNPACK O LINE 4446 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE @ PUSH PTYPEPP S ASSVAL O LINE 4446 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UNPACK E CALL 4447 %IF DVF#0 %THEN %START; ! ARRAY IS STRING OF LOCALS O LINE 4447 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DVF N PUSHI #0x00000000 ? JUMPIF = L_0004 4448 R=TOTSIZE O LINE 4448 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH R @ PUSH TOTSIZE S ASSVAL 4449 %IF UNSCAL=0 %THEN R=R//ELSIZE O LINE 4449 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UNSCAL N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH R @ PUSH R @ PUSH ELSIZE / QUOT S ASSVAL : LOCATE L_0007 4450 D0=DESC O LINE 4450 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D0 @ PUSH DESC S ASSVAL 4451 D0=D0!R %UNLESS PREC=4 O LINE 4451 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000004 ? JUMPIF = L_0007 @ PUSH D0 @ PUSH D0 @ PUSH R ! OR S ASSVAL : LOCATE L_0007 4452 STORE CONST(D1,4,ADDR(D0)) O LINE 4452 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STORECONST @ PUSH D1 p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH ADDR @ PUSH D0 p ASSPAR E CALL p ASSPAR E CALL 4453 PF1(LB,0,PC,D1) O LINE 4453 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000007a p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH D1 p ASSPAR E CALL 4454 %FINISH %ELSE %START O LINE 4454 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 4455 STORE CONST(D1,4,ADDR(DESC)) O LINE 4455 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STORECONST @ PUSH D1 p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH ADDR @ PUSH DESC p ASSPAR E CALL p ASSPAR E CALL 4456 PF1(LB,0,PC,D1) O LINE 4456 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000007a p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH D1 p ASSPAR E CALL 4457 PSF1(ADB,1,DVDISP+20) %UNLESS PREC=4 O LINE 4457 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000004 ? JUMPIF = L_0007 @ PUSH PSF1 N PUSHI #0x00000020 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH DVDISP N PUSHI #0x00000014 + ADD p ASSPAR E CALL : LOCATE L_0007 4458 %FINISH O LINE 4458 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 4459 %IF DVF#0 %THEN QQ=PC %ELSE QQ=LNB O LINE 4459 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DVF N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH QQ N PUSHI #0x00000004 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH QQ N PUSHI #0x00000002 S ASSVAL : LOCATE L_0003 4460 PSORLF1(LDRL,0,QQ,DVDISP) O LINE 4460 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSORLF1 N PUSHI #0x00000070 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH QQ p ASSPAR @ PUSH DVDISP p ASSPAR E CALL 4461 GRUSE(BREG)=0; GRUSE(DR)=0 O LINE 4461 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000007 a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 4461 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000001 a ACCESS N PUSHI #0x00000000 S ASSVAL 4462 %CYCLE JJJ=0,1,NN-1; ! DOWN NAMELIST O LINE 4462 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJJ N PUSHI #0x00000001 @ PUSH NN N PUSHI #0x00000001 - SUB N PUSHI #0x00000000 f FOR L_0003 4463 PSF1(STB,1,N+16*JJJ); ! ARRAY BOUND O LINE 4463 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000005a p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N N PUSHI #0x00000010 @ PUSH JJJ * MUL + ADD p ASSPAR E CALL 4464 PSF1(STD,1,N+8+16*JJJ); ! DV POINTER O LINE 4464 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000058 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N N PUSHI #0x00000008 + ADD N PUSHI #0x00000010 @ PUSH JJJ * MUL + ADD p ASSPAR E CALL 4465 %REPEAT O LINE 4465 "regression-compile-tmp/nrimp10s-77.imp" B 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 O LINE 4466 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMARR N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH PARMCHK N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH ND N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH TYPE N PUSHI #0x00000003 ? JUMPIF > L_0004 @ PUSH PTYPEPP N PUSHI #0x00000f00 & AND N PUSHI #0x00000200 ? JUMPIF = L_0004 @ PUSH ADJ N PUSHI #0x00000001 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH ADJ N PUSHI #0x00000000 S ASSVAL : LOCATE L_0003 4467 %CYCLE JJJ=0,1,NN-1; ! DOWN NAMELIST O LINE 4467 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJJ N PUSHI #0x00000001 @ PUSH NN N PUSHI #0x00000001 - SUB N PUSHI #0x00000000 f FOR L_0003 4468 %IF ADJ#0 %START; ! ADJUST DESC O LINE 4468 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ADJ N PUSHI #0x00000000 ? JUMPIF = L_0007 4469 %IF STACK#0 %START; ! ARRAY ON AUTOMATIC STACK O LINE 4469 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STACK N PUSHI #0x00000000 ? JUMPIF = L_000a 4470 PF1(STSF,0,BREG,0); ! CURRENT SF TO B O LINE 4470 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000005e p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000007 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4471 %IF DVF#0 %THEN PSF1(SBB,0,LWB*ELSIZE) %ELSE %START O LINE 4471 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DVF N PUSHI #0x00000000 ? JUMPIF = L_000d @ PUSH PSF1 N PUSHI #0x00000022 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH LWB @ PUSH ELSIZE * MUL p ASSPAR E CALL F GOTO L_000c : LOCATE L_000d 4472 %IF ELSIZE=1 %THEN PSF1(SBB,1,DVDISP+12) %ELSESTART O LINE 4472 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ELSIZE N PUSHI #0x00000001 ? JUMPIF # L_0010 @ PUSH PSF1 N PUSHI #0x00000022 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH DVDISP N PUSHI #0x0000000c + ADD p ASSPAR E CALL F GOTO L_000f : LOCATE L_0010 4473 PSF1(SLB,1,DVDISP+12) O LINE 4473 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000052 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH DVDISP N PUSHI #0x0000000c + ADD p ASSPAR E CALL 4474 PSF1(MYB,0,ELSIZE) O LINE 4474 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000002a p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH ELSIZE p ASSPAR E CALL 4475 PF1(SLB,0,TOS,0) O LINE 4475 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000052 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4476 PF1(SBB,0,TOS,0) O LINE 4476 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000022 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4477 %FINISH O LINE 4477 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000f 4478 %FINISH O LINE 4478 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000c 4479 PSF1(STB,1,N+4) O LINE 4479 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000005a p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N N PUSHI #0x00000004 + ADD p ASSPAR E CALL 4480 GRUSE(BREG)=0 O LINE 4480 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000007 a ACCESS N PUSHI #0x00000000 S ASSVAL 4481 %FINISH %ELSE %START; ! ARRAY ON AUX STACK O LINE 4481 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0009 : LOCATE L_000a 4482 %IF DVF#0 %START; ! CONST DOPE VECTOR O LINE 4482 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DVF N PUSHI #0x00000000 ? JUMPIF = L_000d 4483 %UNLESS GRUSE(ACCR)=11 %%START O LINE 4483 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x0000000b ? JUMPIF = L_0010 4484 PSF1(LSS,2,AUXSBASE(LEVEL)) O LINE 4484 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH AUXSBASE @ PUSH LEVEL a ACCESS p ASSPAR E CALL 4485 GRUSE(ACCR)=11; GRINF1(ACCR)=0 O LINE 4485 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x0000000b S ASSVAL O LINE 4485 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRINF1 N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL 4486 %FINISH O LINE 4486 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0010 4487 JJJJ=LWB*ELSIZE-GRINF1(ACCR) O LINE 4487 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJJJ @ PUSH LWB @ PUSH ELSIZE * MUL @ PUSH GRINF1 N PUSHI #0x00000000 a ACCESS - SUB S ASSVAL 4488 PSF1(ISB,0,JJJJ) %UNLESS JJJJ=0 O LINE 4488 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJJJ N PUSHI #0x00000000 ? JUMPIF = L_0010 @ PUSH PSF1 N PUSHI #0x000000e2 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH JJJJ p ASSPAR E CALL : LOCATE L_0010 4489 GRINF1(ACCR)=LWB*ELSIZE O LINE 4489 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRINF1 N PUSHI #0x00000000 a ACCESS @ PUSH LWB @ PUSH ELSIZE * MUL S ASSVAL 4490 %FINISH %ELSE %START; ! DYNAMIC ARRAYS O LINE 4490 "regression-compile-tmp/nrimp10s-77.imp" F 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 O LINE 4491 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x0000000b ? JUMPIF # L_0010 @ PUSH GRINF1 N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 ? JUMPIF # L_0010 @ PUSH ELSIZE N PUSHI #0x00000001 ? JUMPIF # L_0010 @ PUSH PSF1 N PUSHI #0x000000e2 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH DVDISP N PUSHI #0x0000000c + ADD p ASSPAR E CALL F GOTO L_000f : LOCATE L_0010 4492 PSF1(LSS,1,DVDISP+12) O LINE 4492 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH DVDISP N PUSHI #0x0000000c + ADD p ASSPAR E CALL 4493 PSF1(IMY,0,ELSIZE) %UNLESS ELSIZE=1 O LINE 4493 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ELSIZE N PUSHI #0x00000001 ? JUMPIF = L_0013 @ PUSH PSF1 N PUSHI #0x000000ea p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH ELSIZE p ASSPAR E CALL : LOCATE L_0013 4494 PSF1(IRSB,2,AUXSBASE(LEVEL)) O LINE 4494 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x000000e4 p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH AUXSBASE @ PUSH LEVEL a ACCESS p ASSPAR E CALL 4495 %FINISH O LINE 4495 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000f 4496 GRUSE(ACCR)=0 O LINE 4496 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL 4497 %FINISH O LINE 4497 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000c 4498 PSF1(ST,1,N+4) O LINE 4498 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N N PUSHI #0x00000004 + ADD p ASSPAR E CALL 4499 %FINISH O LINE 4499 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0009 4500 %FINISH %ELSE %START; ! NO ADJUSTMENT OF DESCRPT O LINE 4500 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 4501 %IF STACK#0 %THEN PSF1(STSF,1,N+4) %ELSE %START O LINE 4501 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STACK N PUSHI #0x00000000 ? JUMPIF = L_000a @ PUSH PSF1 N PUSHI #0x0000005e p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N N PUSHI #0x00000004 + ADD p ASSPAR E CALL F GOTO L_0009 : LOCATE L_000a 4502 PSF1(LSS,2,AUXSBASE(LEVEL)) %UNLESS GRUSE(ACCR)=11 %AND GRINF1(ACCR)=0 O LINE 4502 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x0000000b ? JUMPIF # L_000e @ PUSH GRINF1 N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 ? JUMPIF = L_000d : LOCATE L_000e @ PUSH PSF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH AUXSBASE @ PUSH LEVEL a ACCESS p ASSPAR E CALL : LOCATE L_000d 4503 PSF1(ST,1,N+4) O LINE 4503 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N N PUSHI #0x00000004 + ADD p ASSPAR E CALL 4504 GRUSE(ACCR)=11; GRINF1(ACCR)=0 O LINE 4504 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x0000000b S ASSVAL O LINE 4504 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRINF1 N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL 4505 %FINISH O LINE 4505 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0009 4506 %FINISH 4507 O LINE 4506 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 4508 ACC=ELSIZE; ! RESET ACC AFTER DV CMPLD O LINE 4508 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC @ PUSH ELSIZE S ASSVAL 4509 KFORM=FINF; ! FORMAT INFORMATION O LINE 4509 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KFORM @ PUSH FINF S ASSVAL 4510 K=FROM AR2(PP+3*JJJ) O LINE 4510 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH K @ PUSH FROMAR2 @ PUSH PP N PUSHI #0x00000003 @ PUSH JJJ * MUL + ADD p ASSPAR E CALL S ASSVAL 4511 STORE TAG(K,N) O LINE 4511 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STORETAG @ PUSH K p ASSPAR @ PUSH N p ASSPAR E CALL 4512 CLAIM AS %IF FORMAT = 0 O LINE 4512 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FORMAT N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH CLAIMAS E CALL : LOCATE L_0007 4513 N=N+16 O LINE 4513 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N N PUSHI #0x00000010 + ADD S ASSVAL 4514 %REPEAT O LINE 4514 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 4515 P=P+1; ! PAST REST OF ARRAYLIST O LINE 4515 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 4516 %IF A(P-1)=1 %THEN ->START O LINE 4516 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 - SUB a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0004 J JUMP L_0227 : LOCATE L_0004 4517 %RETURN O LINE 4517 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 4518 %ROUTINE CLAIM AS 4519 !*********************************************************************** 4520 !* CLAIM THE SPACE FOR AN ARRAY FROM STACK OR AUX STACK * 4521 !*********************************************************************** O LINE 4518 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CLAIMAS (_lev0id0_lev1id1_lev2id3_CSS_DECLAREARRAYS_CLAIMAS) p1=V_020e 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 O LINE 4522 "regression-compile-tmp/nrimp10s-77.imp" $ DEF T p1=V_022a a/tf=11 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_022b a/tf=11 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_022c a/tf=11 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_022d a/tf=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 O LINE 4523 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STACK N PUSHI #0x00000001 ? JUMPIF # L_0004 4524 %IF CDV=1 %THEN %START; ! CONSTANT BOUNDS O LINE 4524 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CDV N PUSHI #0x00000001 ? JUMPIF # L_0007 4525 T=(TOTSIZE+3)//4 O LINE 4525 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH T @ PUSH TOTSIZE N PUSHI #0x00000003 + ADD N PUSHI #0x00000004 / QUOT S ASSVAL 4526 PSF1(ASF+12*PARMCHK,0,T); ! ASF OR LB O LINE 4526 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000006e N PUSHI #0x0000000c @ PUSH PARMCHK * MUL + ADD p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH T p ASSPAR E CALL 4527 PPJ(0,4) %IF PARMCHK#0 O LINE 4527 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMCHK N PUSHI #0x00000000 ? JUMPIF = L_000a @ PUSH PPJ N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR E CALL : LOCATE L_000a 4528 %FINISH %ELSE %START; ! DYNAMIC BOUNDS O LINE 4528 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 4529 %IF PARMCHK=0 %AND PTYPEP&7<=2 %AND (ELSIZE=4 %OR ELSIZE=8) %START O LINE 4529 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMCHK N PUSHI #0x00000000 ? JUMPIF # L_000a @ PUSH PTYPEP N PUSHI #0x00000007 & AND N PUSHI #0x00000002 ? JUMPIF > L_000a @ PUSH ELSIZE N PUSHI #0x00000004 ? JUMPIF = L_000b @ PUSH ELSIZE N PUSHI #0x00000008 ? JUMPIF # L_000a : LOCATE L_000b 4530 PSF1(ASF,1,DVDISP+20); ! SIZE IN ELEMENTS WORD O LINE 4530 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000006e p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH DVDISP N PUSHI #0x00000014 + ADD p ASSPAR E CALL 4531 PSF1(ASF,1,DVDISP+20) %IF ELSIZE=8 O LINE 4531 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ELSIZE N PUSHI #0x00000008 ? JUMPIF # L_000d @ PUSH PSF1 N PUSHI #0x0000006e p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH DVDISP N PUSHI #0x00000014 + ADD p ASSPAR E CALL : LOCATE L_000d 4532 %FINISH %ELSE %START O LINE 4532 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0009 : LOCATE L_000a 4533 PSF1(LSS,1,DVDISP+8); ! ARRAY SIZE BYTES O LINE 4533 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH DVDISP N PUSHI #0x00000008 + ADD p ASSPAR E CALL 4534 PSF1(IAD,0,3) %IF ELSIZE&3#0 O LINE 4534 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ELSIZE N PUSHI #0x00000003 & AND N PUSHI #0x00000000 ? JUMPIF = L_000d @ PUSH PSF1 N PUSHI #0x000000e0 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000003 p ASSPAR E CALL : LOCATE L_000d 4535 PSF1(USH,0,-2); ! ARRAY SIZE WORDS O LINE 4535 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x000000c8 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000002 U NEGATE p ASSPAR E CALL 4536 PF1(ST,0,BREG,0) O LINE 4536 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000007 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4537 FORGET(BREG) O LINE 4537 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FORGET N PUSHI #0x00000007 p ASSPAR E CALL 4538 %IF PARMCHK#0 %THEN PPJ(0,4) %ELSE PF1(ASF,0,BREG,0) O LINE 4538 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMCHK N PUSHI #0x00000000 ? JUMPIF = L_000d @ PUSH PPJ N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR E CALL F GOTO L_000c : LOCATE L_000d @ PUSH PF1 N PUSHI #0x0000006e p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000007 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_000c 4539 %FINISH O LINE 4539 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0009 4540 %FINISH O LINE 4540 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 4541 CHECK STOF O LINE 4541 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CHECKSTOF E CALL 4542 %FINISH %ELSE %START O LINE 4542 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 4543 %UNLESS GRUSE(ACCR)=11 %AND (GRINF1(ACCR)=0 %OR CDV=1) %START O LINE 4543 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x0000000b ? JUMPIF # L_0008 @ PUSH GRINF1 N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH CDV N PUSHI #0x00000001 ? JUMPIF = L_0007 : LOCATE L_0008 4544 PSF1(LSS,2,AUXSBASE(LEVEL)) O LINE 4544 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH AUXSBASE @ PUSH LEVEL a ACCESS p ASSPAR E CALL 4545 GRUSE(ACCR)=11; GRINF1(ACCR)=0 O LINE 4545 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x0000000b S ASSVAL O LINE 4545 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRINF1 N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL 4546 %FINISH O LINE 4546 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 4547 %IF CDV=1 %THEN %START O LINE 4547 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CDV N PUSHI #0x00000001 ? JUMPIF # L_0007 4548 ADJMENT=(TOTSIZE+7)&(-8)+GRINF1(ACCR) O LINE 4548 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ADJMENT @ PUSH TOTSIZE N PUSHI #0x00000007 + ADD N PUSHI #0x00000008 U NEGATE & AND @ PUSH GRINF1 N PUSHI #0x00000000 a ACCESS + ADD S ASSVAL 4549 %IF ADJMENT<16_1FFFF %THEN B=0 %AND D=ADJMENT %ELSE %START O LINE 4549 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ADJMENT N PUSHI #0x0001ffff ? JUMPIF >= L_000a @ PUSH B N PUSHI #0x00000000 S ASSVAL @ PUSH D @ PUSH ADJMENT S ASSVAL F GOTO L_0009 : LOCATE L_000a 4550 STORE CONST(D,4,ADDR(ADJMENT)) O LINE 4550 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STORECONST @ PUSH D p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH ADDR @ PUSH ADJMENT p ASSPAR E CALL p ASSPAR E CALL 4551 B=PC O LINE 4551 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH B N PUSHI #0x00000004 S ASSVAL 4552 %FINISH O 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 O LINE 4553 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ADJ N PUSHI #0x00000001 ? JUMPIF # L_000a @ PUSH JJJ @ PUSH NN N PUSHI #0x00000001 - SUB ? JUMPIF = L_000a @ PUSH PARMOPT N PUSHI #0x00000000 ? JUMPIF # L_000a @ PUSH GRINF1 N PUSHI #0x00000000 a ACCESS @ PUSH ADJMENT S ASSVAL F GOTO L_0009 : LOCATE L_000a 4554 GRINF1(ACCR)=0 O LINE 4554 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRINF1 N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL 4555 PSORLF1(IAD,0,B,D) %UNLESS B=D=0 O LINE 4555 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH B @ PUSH D " JUMPIFD # L_000e N PUSHI #0x00000000 ? JUMPIF = L_000d : LOCATE L_000e @ PUSH PSORLF1 N PUSHI #0x000000e0 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH B p ASSPAR @ PUSH D p ASSPAR E CALL : LOCATE L_000d 4556 %FINISH O LINE 4556 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0009 4557 %FINISH %ELSE %START O LINE 4557 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 4558 B=LNB; D=DVDISP+8 O LINE 4558 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH B N PUSHI #0x00000002 S ASSVAL O LINE 4558 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH D @ PUSH DVDISP N PUSHI #0x00000008 + ADD S ASSVAL 4559 PSF1(IAD,1,D) O LINE 4559 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x000000e0 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH D p ASSPAR E CALL 4560 %UNLESS ELSIZE&7=0 %START O LINE 4560 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ELSIZE N PUSHI #0x00000007 & AND N PUSHI #0x00000000 ? JUMPIF = L_000a 4561 PSF1(IAD,0,7) O LINE 4561 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x000000e0 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000007 p ASSPAR E CALL 4562 PSF1(AND,0,-8) O LINE 4562 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000008a p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000008 U NEGATE p ASSPAR E CALL 4563 %FINISH O LINE 4563 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000a 4564 GRINF1(ACCR)=0 O LINE 4564 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRINF1 N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL 4565 %FINISH O 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) O LINE 4566 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJJ @ PUSH NN N PUSHI #0x00000001 - SUB ? JUMPIF = L_0008 @ PUSH ADJ N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH CDV N PUSHI #0x00000000 ? JUMPIF # L_0007 : LOCATE L_0008 @ PUSH PSF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH AUXSBASE @ PUSH LEVEL a ACCESS p ASSPAR E CALL : LOCATE L_0007 4567 %IF PARMOPT#0 %THEN %START O LINE 4567 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMOPT N PUSHI #0x00000000 ? JUMPIF = L_0007 4568 PSF1(ICP,1,AUXSBASE(LEVEL)+16) O LINE 4568 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x000000e6 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH AUXSBASE @ PUSH LEVEL a ACCESS N PUSHI #0x00000010 + ADD p ASSPAR E CALL 4569 PPJ(2,8) O LINE 4569 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPJ N PUSHI #0x00000002 p ASSPAR N PUSHI #0x00000008 p ASSPAR E CALL 4570 %FINISH O LINE 4570 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 4571 %IF PARMCHK#0 %START O LINE 4571 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMCHK N PUSHI #0x00000000 ? JUMPIF = L_0007 4572 PF1(LDTB,0,PC,PARAM DES(3)) O LINE 4572 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000074 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH PARAMDES N PUSHI #0x00000003 p ASSPAR E CALL p ASSPAR E CALL 4573 PSORLF1(LDB,0,B,D) O LINE 4573 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSORLF1 N PUSHI #0x00000076 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH B p ASSPAR @ PUSH D p ASSPAR E CALL 4574 PSF1(LDA,1,N+4) O LINE 4574 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000072 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N N PUSHI #0x00000004 + ADD p ASSPAR E CALL 4575 PF2(MVL,1,1,0,0,UNASSPAT&255) O LINE 4575 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF2 N PUSHI #0x000000b0 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x81818181 N PUSHI #0x000000ff & AND p ASSPAR E CALL 4576 GRUSE(DR)=0 O LINE 4576 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000001 a ACCESS N PUSHI #0x00000000 S ASSVAL 4577 %FINISH O LINE 4577 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 4578 %FINISH O LINE 4578 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 4579 %END O 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 O 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 !*********************************************************************** O LINE 4588 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CLT (_lev0id0_lev1id1_lev2id3_CSS_CLT) p1=V_01b4 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; O LINE 4594 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 N PUSHI #0x0000000a b BOUNDS $ DEF TYPEFLAG p1=V_020c 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 N PUSHI #0x00000051 A INIT 1 N PUSHI #0x00000052 A INIT 1 N PUSHI #0x00000000 A INIT 1 N PUSHI #0x00000031 A INIT 1 N PUSHI #0x00000035 A INIT 1 N PUSHI #0x00000041 A INIT 1 N PUSHI #0x00000000 A INIT 1 N PUSHI #0x00000062 A INIT 1 N PUSHI #0x00000061 A INIT 1 N PUSHI #0x00000072 A INIT 1 4597 %INTEGER ALT O LINE 4597 "regression-compile-tmp/nrimp10s-77.imp" $ DEF ALT p1=V_020d a/tf=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) O LINE 4598 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT @ PUSH A @ PUSH P a ACCESS S ASSVAL 4599 TYPE=TYPEFLAG(ALT) O LINE 4599 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE @ PUSH TYPEFLAG @ PUSH ALT a ACCESS S ASSVAL 4600 %IF TYPE=0 %THEN P=P+1 %AND TYPE=TYPEFLAG(A(P)+7) O LINE 4600 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL @ PUSH TYPE @ PUSH TYPEFLAG @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000007 + ADD a ACCESS S ASSVAL : LOCATE L_0004 4601 PREC=TYPE>>4 O LINE 4601 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC @ PUSH TYPE N PUSHI #0x00000004 ] RSH S ASSVAL 4602 TYPE=TYPE&7 O LINE 4602 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE @ PUSH TYPE N PUSHI #0x00000007 & AND S ASSVAL 4603 PREC=6 %IF TYPE=2 %AND ALL LONG#0 %AND PREC<=5;! DEAL WITH '%REALSLONG' O LINE 4603 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH ALLLONG N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH PREC N PUSHI #0x00000005 ? JUMPIF > L_0004 @ PUSH PREC N PUSHI #0x00000006 S ASSVAL : LOCATE L_0004 4604 ACC=BYTES(PREC) O LINE 4604 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC @ PUSH BYTES @ PUSH PREC a ACCESS S ASSVAL 4605 %IF TYPE=5 %THEN %START; ! P='%STRING' O LINE 4605 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000005 ? JUMPIF # L_0004 4606 %IF A(P+1)=1 %THEN %START;! MAX LENGTH GIVEN O LINE 4606 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0007 4607 P=P+2 O LINE 4607 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 4608 ACC=A(P)+1 O LINE 4608 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 + ADD S ASSVAL 4609 %FINISH %ELSE ACC=0 %AND P=P+1 O LINE 4609 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 @ PUSH ACC N PUSHI #0x00000000 S ASSVAL @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL : LOCATE L_0006 4610 %FINISH O LINE 4610 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4611 P=P+1 O LINE 4611 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 4612 %END O 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 !*********************************************************************** O LINE 4613 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CQN (_lev0id0_lev1id1_lev2id3_CSS_CQN) p1=V_01b5 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_020c a/tf=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 O LINE 4619 "regression-compile-tmp/nrimp10s-77.imp" $ DEF I p1=V_020d a/tf=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 O LINE 4620 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I @ PUSH A @ PUSH P a ACCESS S ASSVAL O LINE 4620 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000000 S ASSVAL O LINE 4620 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARR N PUSHI #0x00000000 S ASSVAL 4621 %IF I=1 %THEN ARR=1 %AND ACC=16;! ARRAYNAMES O LINE 4621 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH ARR N PUSHI #0x00000001 S ASSVAL @ PUSH ACC N PUSHI #0x00000010 S ASSVAL : LOCATE L_0004 4622 %IF I<=2 %THEN NAM=1; ! ARRAYNAMES & NAMES O LINE 4622 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000002 ? JUMPIF > L_0004 @ PUSH NAM N PUSHI #0x00000001 S ASSVAL : LOCATE L_0004 4623 %IF I=2 %THEN ACC=8; ! NAMES USE 8-BYTE DESCRIPTOR O LINE 4623 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH I N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH ACC N PUSHI #0x00000008 S ASSVAL : LOCATE L_0004 4624 %END O 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 !*********************************************************************** O LINE 4625 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CRSPEC (_lev0id0_lev1id1_lev2id3_CSS_CRSPEC) p1=V_01b1 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_020c a/tf=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 O LINE 4631 "regression-compile-tmp/nrimp10s-77.imp" $ DEF KK p1=V_020d a/tf=11 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_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 TYPEP 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 $ DEF OPHEAD 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 NPARMS 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 4632 %STRING(34) XNAME O LINE 4632 "regression-compile-tmp/nrimp10s-77.imp" $ DEF XNAME p1=V_0212 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 O LINE 4633 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LITL @ PUSH EXTRN N PUSHI #0x00000003 & AND S ASSVAL 4634 %IF A(P)=1 %THEN %START; ! P=%ROUTINE O LINE 4634 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0004 4635 TYPEP=LITL<<14!16_1000 O LINE 4635 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPEP @ PUSH LITL N PUSHI #0x0000000e [ LSH N PUSHI #0x00001000 ! OR S ASSVAL 4636 P=P+2; ! IGNORING ALT OF P(SPEC') O LINE 4636 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 4637 %FINISH %ELSE %START; ! P= O LINE 4637 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 4638 ROUT=1; ARR=0; P=P+1 O LINE 4638 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUT N PUSHI #0x00000001 S ASSVAL O LINE 4638 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARR N PUSHI #0x00000000 S ASSVAL O LINE 4638 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 4639 CLT; NAM=0 O LINE 4639 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CLT E CALL O LINE 4639 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000000 S ASSVAL 4640 %IF A(P)=2 %THEN NAM=2; ! 2 FOR MAP 0 FOR FN O LINE 4640 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0007 @ PUSH NAM N PUSHI #0x00000002 S ASSVAL : LOCATE L_0007 4641 PACK(TYPEP) O LINE 4641 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PACK @ PUSH TYPEP p ASSPAR E CALL 4642 P=P+2; ! AGAIN IGNORING ALT OF P(SPEC') O LINE 4642 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 4643 %FINISH O LINE 4643 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 4644 P=P+4; ! PAST HOLE FOR DECLINKS O LINE 4644 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000004 + ADD S ASSVAL 4645 KK=FROM AR2(P) O LINE 4645 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KK @ PUSH FROMAR2 @ PUSH P p ASSPAR E CALL S ASSVAL 4646 JJ=0 O LINE 4646 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ N PUSHI #0x00000000 S ASSVAL 4647 P=P+2 O LINE 4647 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 4648 CFPLIST(OPHEAD,NPARMS) O LINE 4648 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CFPLIST @ PUSH OPHEAD p ASSPAR @ PUSH NPARMS p ASSPAR E CALL 4649 %IF M=1 %THEN %START O LINE 4649 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH M N PUSHI #0x00000001 ? JUMPIF # L_0004 4650 XNAME<-STRING(DICTBASE+WORD(KK)) O LINE 4650 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XNAME @ PUSH STRING @ PUSH DICTBASE @ PUSH WORD @ PUSH KK a ACCESS + ADD p ASSPAR E CALL j JAM 4651 %IF EXTRN=1 %THEN XNAME<-"S#".XNAME O LINE 4651 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXTRN N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH XNAME ' PUSHS "S#" @ PUSH XNAME . CONCAT j JAM : LOCATE L_0007 4652 CXREF(XNAME,PARMDYNAMIC!(EXTRN//3),2,JJ); ! %STSTEM & %EXTERNAL =STATIC 4653 ! %DYNAMIC = DYNAMIC O LINE 4652 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CXREF @ PUSH XNAME p ASSPAR @ PUSH PARMDYNAMIC @ PUSH EXTRN N PUSHI #0x00000003 / QUOT ! OR p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH JJ p ASSPAR E CALL 4654 %FINISH O LINE 4654 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4655 %IF M=0 %AND RLEVEL=0 %THEN CODE DES(JJ) O LINE 4655 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH M N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH RLEVEL N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH CODEDES @ PUSH JJ p ASSPAR E CALL : LOCATE L_0004 4656 J=15-M; PTYPE=TYPEP O LINE 4656 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x0000000f @ PUSH M - SUB S ASSVAL O LINE 4656 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE @ PUSH TYPEP S ASSVAL 4657 KFORM=NPARMS O LINE 4657 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KFORM @ PUSH NPARMS S ASSVAL 4658 SNDISP=JJ>>16 O LINE 4658 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SNDISP @ PUSH JJ N PUSHI #0x00000010 ] RSH S ASSVAL 4659 ACC=JJ&16_FFFF O LINE 4659 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC @ PUSH JJ N PUSHI #0x0000ffff & AND S ASSVAL 4660 STORE TAG(KK,OPHEAD) O LINE 4660 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STORETAG @ PUSH KK p ASSPAR @ PUSH OPHEAD p ASSPAR E CALL 4661 %END O 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 !*********************************************************************** O LINE 4662 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CFPLIST (_lev0id0_lev1id1_lev2id3_CSS_CFPLIST) p1=V_01b2 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_020c 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_020d 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 O LINE 4674 "regression-compile-tmp/nrimp10s-77.imp" $ DEF OPBOT 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 PP 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 4675 OPHEAD=0; OPBOT=0 O LINE 4675 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OPHEAD N PUSHI #0x00000000 S ASSVAL O LINE 4675 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OPBOT N PUSHI #0x00000000 S ASSVAL 4676 NPARMS=0; ! ZERO PARAMETERS AS YET O LINE 4676 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NPARMS N PUSHI #0x00000000 S ASSVAL 4677 %WHILE A(P)=1 %CYCLE; ! WHILE SOME(MORE) FPS O LINE 4677 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0004 4678 PP=P+1+FROMAR2(P+1); ! TO NEXT FPDEL O LINE 4678 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PP @ PUSH P N PUSHI #0x00000001 + ADD @ PUSH FROMAR2 @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR E CALL + ADD S ASSVAL 4679 P=P+3; ! TO ALT OF FPDEL O LINE 4679 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL 4680 CFPDEL; ! GET TYPE & ACC FOR NEXT GROUP O LINE 4680 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CFPDEL E CALL 4681 {%UNTIL A(P-1)=2} %CYCLE; ! DOWN FOR EACH DEL O LINE 4681 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 4682 BINSERT(OPHEAD,OPBOT,PTYPE<<16,ACC<<16,0) O LINE 4682 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH BINSERT @ PUSH OPHEAD p ASSPAR @ PUSH OPBOT p ASSPAR @ PUSH PTYPE N PUSHI #0x00000010 [ LSH p ASSPAR @ PUSH ACC N PUSHI #0x00000010 [ LSH p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4683 NPARMS=NPARMS+1 O LINE 4683 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NPARMS @ PUSH NPARMS N PUSHI #0x00000001 + ADD S ASSVAL 4684 P=P+3 O LINE 4684 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000003 + ADD S ASSVAL 4685 %REPEAT %UNTIL A(P-1)=2; ! DOWN FOR EACH DEL O LINE 4685 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 - SUB a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_0007 B REPEAT L_0006 : LOCATE L_0007 4686 P=PP O LINE 4686 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH PP S ASSVAL 4687 %REPEAT O LINE 4687 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0003 : LOCATE L_0004 4688 P=P+1 O LINE 4688 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 4689 %END O 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 !*********************************************************************** O LINE 4690 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CFPDEL (_lev0id0_lev1id1_lev2id3_CSS_CFPDEL) p1=V_01b3 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) O LINE 4698 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 N PUSHI #0x00000004 b BOUNDS $ DEF FP p1=V_020c 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 O LINE 4699 "regression-compile-tmp/nrimp10s-77.imp" $ DEF FPALT p1=V_020d a/tf=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 O LINE 4700 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FPALT @ PUSH A @ PUSH P a ACCESS S ASSVAL O LINE 4700 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 4701 KFORM=0; LITL=0 O LINE 4701 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KFORM N PUSHI #0x00000000 S ASSVAL O LINE 4701 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LITL N PUSHI #0x00000000 S ASSVAL 4702 ->FP(FPALT) O LINE 4702 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FPALT W SJUMP 524 4703 FP(1): ! (TYPE)(%QNAME') O LINE 4703 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 _ SLABEL 524 4704 ROUT=0; CLT O LINE 4704 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUT N PUSHI #0x00000000 S ASSVAL O LINE 4704 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CLT E CALL 4705 CQN(P) O LINE 4705 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CQN @ PUSH P p ASSPAR E CALL 4706 FAULT(70,0) %IF TYPE=5 %AND ACC=0 O LINE 4706 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000005 ? JUMPIF # L_0004 @ PUSH ACC N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH FAULT N PUSHI #0x00000046 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 4707 P=P+1 O LINE 4707 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 4708 ->PK O LINE 4708 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_020e 4709 FP(2): ! RECORD(%ARRAY')%NAME O LINE 4709 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000002 _ SLABEL 524 4710 ARR=2-A(P); ROUT=0 O LINE 4710 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARR N PUSHI #0x00000002 @ PUSH A @ PUSH P a ACCESS - SUB S ASSVAL O LINE 4710 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUT N PUSHI #0x00000000 S ASSVAL 4711 ACC=8+8*ARR; TYPE=3; PREC=3 O LINE 4711 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC N PUSHI #0x00000008 N PUSHI #0x00000008 @ PUSH ARR * MUL + ADD S ASSVAL O LINE 4711 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000003 S ASSVAL O LINE 4711 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000003 S ASSVAL 4712 NAM=1; P=P+1; ->PK O LINE 4712 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000001 S ASSVAL O LINE 4712 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 4712 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_020e 4713 FP(3): ! (RT)(%NAME')(NAMELIST)(FPP) O LINE 4713 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000003 _ SLABEL 524 4714 ROUT=1; NAM=1 O LINE 4714 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUT N PUSHI #0x00000001 S ASSVAL O LINE 4714 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000001 S ASSVAL 4715 ARR=0 O LINE 4715 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARR N PUSHI #0x00000000 S ASSVAL 4716 %IF A(P)=1 %THEN %START; ! RT=%ROUITNE O LINE 4716 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0004 4717 TYPE=0; PREC=0 O LINE 4717 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL O LINE 4717 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000000 S ASSVAL 4718 P=P+2 O LINE 4718 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 4719 %FINISH %ELSE %START O LINE 4719 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 4720 P=P+1; CLT; ! RT=(TYPE)(FM) O LINE 4720 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 4720 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CLT E CALL 4721 NAM=1 O LINE 4721 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000001 S ASSVAL 4722 %IF A(P)=2 %THEN NAM=3; ! 1 FOR FN 3 FOR MAP O LINE 4722 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0007 @ PUSH NAM N PUSHI #0x00000003 S ASSVAL : LOCATE L_0007 4723 P=P+2; ! PAST (%NAME') WHICH IS IGNORED O LINE 4723 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 4724 %FINISH O LINE 4724 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 4725 ACC=16 O LINE 4725 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC N PUSHI #0x00000010 S ASSVAL 4726 ->PK O LINE 4726 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_020e 4727 FP(4): ! %NAME O LINE 4727 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000004 _ SLABEL 524 4728 ACC=8; NAM=1 O LINE 4728 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ACC N PUSHI #0x00000008 S ASSVAL O LINE 4728 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000001 S ASSVAL 4729 ROUT=0; TYPE=0 O LINE 4729 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ROUT N PUSHI #0x00000000 S ASSVAL O LINE 4729 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000000 S ASSVAL 4730 ARR=0; PREC=0 O LINE 4730 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARR N PUSHI #0x00000000 S ASSVAL O LINE 4730 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000000 S ASSVAL 4731 PK: PACK(PTYPE) O LINE 4731 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_020e O LINE 4731 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PACK @ PUSH PTYPE p ASSPAR E CALL 4732 %END O LINE 4732 "regression-compile-tmp/nrimp10s-77.imp" ; END _lev0id0_lev1id1_lev2id3_CSS_CFPDEL {lev=5 --> 4} 4733 %ROUTINE DIAG POINTER(%INTEGER LEVEL) O LINE 4733 "regression-compile-tmp/nrimp10s-77.imp" $ DEF DIAGPOINTER (_lev0id0_lev1id1_lev2id3_CSS_DIAGPOINTER) p1=V_01c6 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_020c a/tf=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 O LINE 4734 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMTRACE N PUSHI #0x00000000 ? JUMPIF = L_0004 4735 PUSH(RAL(LEVEL),1,CA,LDB<<24!3<<23) O LINE 4735 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PUSH @ PUSH RAL @ PUSH LEVEL a ACCESS p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH CA p ASSPAR N PUSHI #0x00000076 N PUSHI #0x00000018 [ LSH N PUSHI #0x00000003 N PUSHI #0x00000017 [ LSH ! OR p ASSPAR E CALL 4736 PF1(LDB,0,0,0) O LINE 4736 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000076 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4737 GRUSE(DR)=0 O LINE 4737 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000001 a ACCESS N PUSHI #0x00000000 S ASSVAL 4738 %FINISH O LINE 4738 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4739 %END O 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 !*********************************************************************** O LINE 4740 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RHEAD (_lev0id0_lev1id1_lev2id3_CSS_RHEAD) p1=V_01c8 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_020c a/tf=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 O LINE 4745 "regression-compile-tmp/nrimp10s-77.imp" $ DEF W1 p1=V_020d a/tf=11 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_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 INSRN 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 $ DEF AT 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 4746 PUSH(LEVELINF, 0, NMAX<<16!N, 0) O LINE 4746 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PUSH @ PUSH LEVELINF p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH NMAX N PUSHI #0x00000010 [ LSH @ PUSH N ! OR p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4747 LEVEL=LEVEL+1 O LINE 4747 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL @ PUSH LEVEL N PUSHI #0x00000001 + ADD S ASSVAL 4748 NMDECS(LEVEL)=0; AUXSBASE(LEVEL)=0 O LINE 4748 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NMDECS @ PUSH LEVEL a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 4748 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH AUXSBASE @ PUSH LEVEL a ACCESS N PUSHI #0x00000000 S ASSVAL 4749 NAMES(LEVEL)=-1 O LINE 4749 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAMES @ PUSH LEVEL a ACCESS N PUSHI #0x00000001 U NEGATE S ASSVAL 4750 ONINF(LEVEL)=0; ONWORD(LEVEL)=0 O LINE 4750 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ONINF @ PUSH LEVEL a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 4750 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ONWORD @ PUSH LEVEL a ACCESS N PUSHI #0x00000000 S ASSVAL 4751 %IF KK>=0 %THEN %START O LINE 4751 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KK N PUSHI #0x00000000 ? JUMPIF < L_0004 4752 RLEVEL=RLEVEL+1; RBASE=RLEVEL O LINE 4752 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RLEVEL @ PUSH RLEVEL N PUSHI #0x00000001 + ADD S ASSVAL O LINE 4752 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RBASE @ PUSH RLEVEL S ASSVAL 4753 %FINISH O LINE 4753 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4754 FAULT(34, 0) %IF LEVEL=MAX LEVELS O LINE 4754 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x0000001f ? JUMPIF # L_0004 @ PUSH FAULT N PUSHI #0x00000022 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 4755 FAULT(105, 0) %IF LEVEL>MAX LEVELS O LINE 4755 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x0000001f ? JUMPIF <= L_0004 @ PUSH FAULT N PUSHI #0x00000069 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 4756 %IF KK>=0 %AND RLEVEL>1 %START;! ROUTINE ENTRY O LINE 4756 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KK N PUSHI #0x00000000 ? JUMPIF < L_0004 @ PUSH RLEVEL N PUSHI #0x00000001 ? JUMPIF <= L_0004 4757 COPY TAG(KK); JJ=K; ! LIST OF JUMPS O LINE 4757 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COPYTAG @ PUSH KK p ASSPAR E CALL O LINE 4757 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH JJ @ PUSH K S ASSVAL 4758 J=MIDCELL O LINE 4758 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH MIDCELL S ASSVAL 4759 %IF J=0 %AND LEVEL>2 %START;! REPLACE 'NOT USED' BIT O LINE 4759 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000000 ? JUMPIF # L_0007 @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF <= L_0007 4760 REPLACE1(TAGS(KK), FROM1(TAGS(KK))&16_FFFF3FFF) O LINE 4760 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REPLACE1 @ PUSH TAGS @ PUSH KK a ACCESS p ASSPAR @ PUSH FROM1 @ PUSH TAGS @ PUSH KK a ACCESS p ASSPAR E CALL N PUSHI #0xffff3fff & AND p ASSPAR E CALL 4761 %FINISH 4762 ! 4763 ! NOW FILL ANY JUMPS TO THIS ROUTINE PLANTED SINCE 4764 ! THE ROUTINESPEC WAS COMPILED. SEE ALSO 'RT JUMP' 4765 ! O LINE 4761 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 4766 %WHILE J#0 %CYCLE O LINE 4766 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 @ PUSH J N PUSHI #0x00000000 ? JUMPIF = L_0007 4767 POP(J, INSRN, AT, W1) O LINE 4767 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH POP @ PUSH J p ASSPAR @ PUSH INSRN p ASSPAR @ PUSH AT p ASSPAR @ PUSH W1 p ASSPAR E CALL 4768 W3=CA-AT O LINE 4768 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH W3 @ PUSH CA @ PUSH AT - SUB S ASSVAL 4769 W3=W3//2 %IF INSRN>>25=CALL>>1 O LINE 4769 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INSRN N PUSHI #0x00000019 ] RSH N PUSHI #0x0000001e N PUSHI #0x00000001 ] RSH ? JUMPIF # L_000a @ PUSH W3 @ PUSH W3 N PUSHI #0x00000002 / QUOT S ASSVAL : LOCATE L_000a 4770 INSRN=INSRN+W3 O LINE 4770 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INSRN @ PUSH INSRN @ PUSH W3 + ADD S ASSVAL 4771 PLUG(1, AT, INSRN,4) O LINE 4771 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PLUG N PUSHI #0x00000001 p ASSPAR @ PUSH AT p ASSPAR @ PUSH INSRN p ASSPAR N PUSHI #0x00000004 p ASSPAR E CALL 4772 %REPEAT O LINE 4772 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_0006 : LOCATE L_0007 4773 REPLACE2(TAGS(KK), CA); ! NOTE ADDR FOR FUTURE CALLS O LINE 4773 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REPLACE2 @ PUSH TAGS @ PUSH KK a ACCESS p ASSPAR @ PUSH CA p ASSPAR E CALL 4774 %FINISH O 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) O LINE 4775 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KK N PUSHI #0x00000000 ? JUMPIF < L_0004 @ PUSH RLEVEL N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH DIAGPOINTER @ PUSH LEVEL p ASSPAR E CALL @ PUSH PSF1 N PUSHI #0x00000058 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x0000000c p ASSPAR E CALL : LOCATE L_0004 4776 %IF KK<0 %THEN W3=0 %ELSE W3=WORD(KK) O LINE 4776 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KK N PUSHI #0x00000000 ? JUMPIF >= L_0004 @ PUSH W3 N PUSHI #0x00000000 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH W3 @ PUSH WORD @ PUSH KK a ACCESS S ASSVAL : LOCATE L_0003 4777 L(LEVEL)=LINE; M(LEVEL)=W3 O LINE 4777 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH L @ PUSH LEVEL a ACCESS @ PUSH LINE S ASSVAL O LINE 4777 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH M @ PUSH LEVEL a ACCESS @ PUSH W3 S ASSVAL 4778 FLAG(LEVEL)=PTYPE; ! CURRENT BLOCK TYPE MARKER O LINE 4778 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FLAG @ PUSH LEVEL a ACCESS @ PUSH PTYPE S ASSVAL 4779 %END O 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 !*********************************************************************** O LINE 4780 "regression-compile-tmp/nrimp10s-77.imp" $ DEF RDISPLAY (_lev0id0_lev1id1_lev2id3_CSS_RDISPLAY) p1=V_01c7 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_020c a/tf=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 O LINE 4788 "regression-compile-tmp/nrimp10s-77.imp" $ DEF W1 p1=V_020d a/tf=11 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_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 STACK 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 $ DEF OP 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 INC 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 4789 %IF KK>=0 %OR LEVEL=2 %START; ! DISPLAY NEEDED O LINE 4789 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KK N PUSHI #0x00000000 ? JUMPIF >= L_0005 @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF # L_0004 : LOCATE L_0005 4790 STACK=0; DISPLAY(RLEVEL)=N O LINE 4790 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STACK N PUSHI #0x00000000 S ASSVAL O LINE 4790 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DISPLAY @ PUSH RLEVEL a ACCESS @ PUSH N S ASSVAL 4791 GRUSE(XNB)=0 O LINE 4791 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000003 a ACCESS N PUSHI #0x00000000 S ASSVAL 4792 GRUSE(CTB)=0; GRUSE(BREG)=0 O LINE 4792 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000005 a ACCESS N PUSHI #0x00000000 S ASSVAL O LINE 4792 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000007 a ACCESS N PUSHI #0x00000000 S ASSVAL 4793 %IF LEVEL#2 %THEN %START 4794 ! PF1(LXN,0,TOS,0) O LINE 4793 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF = L_0007 4795 GRUSE(XNB)=4; GRINF1(XNB)=RLEVEL-1; GRAT(XNB)=CA O LINE 4795 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000003 a ACCESS N PUSHI #0x00000004 S ASSVAL O LINE 4795 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRINF1 N PUSHI #0x00000003 a ACCESS @ PUSH RLEVEL N PUSHI #0x00000001 - SUB S ASSVAL O LINE 4795 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRAT N PUSHI #0x00000003 a ACCESS @ PUSH CA S ASSVAL 4796 PF1(LD,0,XNB,12); ! COPY PLT DESCRIPTOR O LINE 4796 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000078 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000003 p ASSPAR N PUSHI #0x0000000c p ASSPAR E CALL 4797 DIAG POINTER(LEVEL) O LINE 4797 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DIAGPOINTER @ PUSH LEVEL p ASSPAR E CALL 4798 PSF1(STD,1,12) O LINE 4798 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000058 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x0000000c p ASSPAR E CALL 4799 W1=RLEVEL-1; W2=DISPLAY(W1) O LINE 4799 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH W1 @ PUSH RLEVEL N PUSHI #0x00000001 - SUB S ASSVAL O LINE 4799 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH W2 @ PUSH DISPLAY @ PUSH W1 a ACCESS S ASSVAL 4800 %IF W1=1 %THEN PF1(STXN,0,TOS,0) %AND N=N+4 %ELSE %START O LINE 4800 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH W1 N PUSHI #0x00000001 ? JUMPIF # L_000a @ PUSH PF1 N PUSHI #0x0000004c p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL @ PUSH N @ PUSH N N PUSHI #0x00000004 + ADD S ASSVAL F GOTO L_0009 : LOCATE L_000a 4801 %WHILE W1>0 %CYCLE O LINE 4801 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000c @ PUSH W1 N PUSHI #0x00000000 ? JUMPIF <= L_000d 4802 OP=LSS; INC=1 O LINE 4802 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OP N PUSHI #0x00000062 S ASSVAL O LINE 4802 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH INC N PUSHI #0x00000001 S ASSVAL 4803 %IF W1>=2 %THEN OP=LSD %AND INC=2 O LINE 4803 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH W1 N PUSHI #0x00000002 ? JUMPIF < L_0010 @ PUSH OP N PUSHI #0x00000064 S ASSVAL @ PUSH INC N PUSHI #0x00000002 S ASSVAL : LOCATE L_0010 4804 %IF W1>=4 %THEN OP=LSQ %AND INC=4 O LINE 4804 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH W1 N PUSHI #0x00000004 ? JUMPIF < L_0010 @ PUSH OP N PUSHI #0x00000066 S ASSVAL @ PUSH INC N PUSHI #0x00000004 S ASSVAL : LOCATE L_0010 4805 PF1(OP+STACK,0,XNB,W2) O LINE 4805 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 @ PUSH OP @ PUSH STACK + ADD p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000003 p ASSPAR @ PUSH W2 p ASSPAR E CALL 4806 STACK=-32; N=N+4*INC O LINE 4806 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STACK N PUSHI #0x00000020 U NEGATE S ASSVAL O LINE 4806 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N N PUSHI #0x00000004 @ PUSH INC * MUL + ADD S ASSVAL 4807 W2=W2+4*INC; W1=W1-INC O LINE 4807 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH W2 @ PUSH W2 N PUSHI #0x00000004 @ PUSH INC * MUL + ADD S ASSVAL O LINE 4807 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH W1 @ PUSH W1 @ PUSH INC - SUB S ASSVAL 4808 %REPEAT O LINE 4808 "regression-compile-tmp/nrimp10s-77.imp" B REPEAT L_000c : LOCATE L_000d 4809 %FINISH O LINE 4809 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0009 4810 %FINISH O LINE 4810 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 4811 %IF STACK#0 %THEN PF1(ST,0,TOS,0); ! ST TOS O LINE 4811 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH STACK N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH PF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0007 4812 PF1(STLN,0,TOS,0) O LINE 4812 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000005c p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4813 N=N+4 O LINE 4813 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N N PUSHI #0x00000004 + ADD S 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 ! O LINE 4814 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4819 %IF PARMTRACE#0 %START O LINE 4819 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMTRACE N PUSHI #0x00000000 ? JUMPIF = L_0004 4820 PF1(LSS,0,PC,4*CONST BTM!16_80000000) %IF PARMOPT#0;! M'IDIA' O LINE 4820 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMOPT N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH PF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR N PUSHI #0x00000004 @ PUSH CONSTBTM * MUL N PUSHI #0x80000000 ! OR p ASSPAR E CALL : LOCATE L_0007 4821 %IF KK>=0 %OR LEVEL=2 %START O LINE 4821 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KK N PUSHI #0x00000000 ? JUMPIF >= L_0008 @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF # L_0007 : LOCATE L_0008 4822 %IF PARMOPT#0 %THEN %START O LINE 4822 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMOPT N PUSHI #0x00000000 ? JUMPIF = L_000a 4823 PSF1(SLSS,0,LINE) O LINE 4823 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000042 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH LINE p ASSPAR E CALL 4824 N=N+4 O LINE 4824 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N N PUSHI #0x00000004 + ADD S ASSVAL 4825 %FINISH %ELSE PSF1(LSS,0,LINE) O LINE 4825 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0009 : LOCATE L_000a @ PUSH PSF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH LINE p ASSPAR E CALL : LOCATE L_0009 4826 PF1(ST,0,TOS,0) O LINE 4826 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4827 %FINISH %ELSE %START O LINE 4827 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 4828 %IF PARMOPT#0 %THEN %START O LINE 4828 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMOPT N PUSHI #0x00000000 ? JUMPIF = L_000a 4829 PSF1(ST,1,N) O LINE 4829 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N p ASSPAR E CALL 4830 N=N+4 O LINE 4830 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N N PUSHI #0x00000004 + ADD S ASSVAL 4831 %FINISH O LINE 4831 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_000a 4832 PSF1(LSS,0,LINE) O LINE 4832 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH LINE p ASSPAR E CALL 4833 PSF1(ST,1,N) O LINE 4833 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH N p ASSPAR E CALL 4834 PSF1(LD,1,12); ! UPDATE BND FIELD O LINE 4834 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000078 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x0000000c p ASSPAR E CALL 4835 DIAG POINTER(LEVEL) O LINE 4835 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DIAGPOINTER @ PUSH LEVEL p ASSPAR E CALL 4836 PSF1(STD,1,12) O LINE 4836 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000058 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x0000000c p ASSPAR E CALL 4837 %FINISH O LINE 4837 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 4838 DIAGINF(LEVEL)=N O LINE 4838 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DIAGINF @ PUSH LEVEL a ACCESS @ PUSH N S ASSVAL 4839 N=N+4 O LINE 4839 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH N @ PUSH N N PUSHI #0x00000004 + ADD S ASSVAL 4840 GRUSE(ACCR)=0; ! NEEDED FOR %BEGIN BLOCKS O LINE 4840 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL 4841 %FINISH O LINE 4841 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4842 %IF PARMOPT#0 %AND KK>=0 %AND LEVEL=2 %START O LINE 4842 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMOPT N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH KK N PUSHI #0x00000000 ? JUMPIF < L_0004 @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF # L_0004 4843 PF1(STSF,0,BREG,0) O LINE 4843 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000005e p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000007 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4844 PF1(STLN,0,TOS,0) O LINE 4844 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000005c p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4845 PF1(SBB,0,TOS,0) O LINE 4845 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000022 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4846 PSF1(CPB,0,N) O LINE 4846 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000026 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH N p ASSPAR E CALL 4847 PPJ(7,13) O LINE 4847 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPJ N PUSHI #0x00000007 p ASSPAR N PUSHI #0x0000000d p ASSPAR E CALL 4848 %FINISH 4849 ! 4850 ! CLAIM (THE REST OF) THE STACK FRAME 4851 ! O LINE 4848 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4852 %IF KK>=0 %OR LEVEL=2 %START O LINE 4852 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KK N PUSHI #0x00000000 ? JUMPIF >= L_0005 @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF # L_0004 : LOCATE L_0005 4853 SET(RLEVEL)=N<<18!CA O LINE 4853 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SET @ PUSH RLEVEL a ACCESS @ PUSH N N PUSHI #0x00000012 [ LSH @ PUSH CA ! OR S ASSVAL 4854 NMAX=N O LINE 4854 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NMAX @ PUSH N S ASSVAL 4855 PF1(ASF+12*PARMCHK,0,0,0); ! ASF OR LB O LINE 4855 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000006e N PUSHI #0x0000000c @ PUSH PARMCHK * MUL + ADD p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4856 PPJ(0,4) %IF PARMCHK#0 O LINE 4856 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMCHK N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH PPJ N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR E CALL : LOCATE L_0007 4857 %FINISH 4858 ! O LINE 4857 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4859 %IF KK>=0 %AND PARMCHK#0 %START O LINE 4859 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KK N PUSHI #0x00000000 ? JUMPIF < L_0004 @ PUSH PARMCHK N PUSHI #0x00000000 ? JUMPIF = L_0004 4860 CHECK STOF; ! CHECK FOR STACK O'FLOW O LINE 4860 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CHECKSTOF E CALL 4861 %FINISH O LINE 4861 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4862 %IF PARMDBUG#0 %THEN SET LINE; ! TO CALL DBUG PACKAGE O LINE 4862 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMDBUG N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH SETLINE E CALL : LOCATE L_0004 4863 %END O 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 !*********************************************************************** O LINE 4864 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CHECKSTOF (_lev0id0_lev1id1_lev2id3_CSS_CHECKSTOF) p1=V_0191 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 ! O LINE 4868 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PARMOPT N PUSHI #0x00000000 ? JUMPIF = L_0004 4878 PF1(STSF,0,TOS,0) O LINE 4878 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000005e p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4879 PF1(LSS,0,TOS,0) O LINE 4879 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4880 PSF1(USH,0,14) O LINE 4880 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x000000c8 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x0000000e p ASSPAR E CALL 4881 PSF1(USH,0,-15) O LINE 4881 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x000000c8 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x0000000f U NEGATE p ASSPAR E CALL 4882 PF1(ICP,0,0,ST LIMIT>>1) O LINE 4882 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x000000e6 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH STLIMIT N PUSHI #0x00000001 ] RSH p ASSPAR E CALL 4883 PPJ(2,8) O LINE 4883 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPJ N PUSHI #0x00000002 p ASSPAR N PUSHI #0x00000008 p ASSPAR E CALL 4884 %FINISH O LINE 4884 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4885 %END; ! OF ROUTINE RHEAD O 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 !*********************************************************************** O LINE 4886 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CIOCP (_lev0id0_lev1id1_lev2id3_CSS_CIOCP) p1=V_020c 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_020d a/tf=11 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_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=5} 4891 %INTEGER XYNB,OP1,OP2 O LINE 4891 "regression-compile-tmp/nrimp10s-77.imp" $ DEF XYNB 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 $ DEF OP1 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 OP2 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 4892 %IF IOCPDISP=0 %THEN CXREF(IOCPEP,PARMDYNAMIC,2,IOCPDISP) O LINE 4892 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH IOCPDISP N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH CXREF @ PUSH IOCPEP p ASSPAR @ PUSH PARMDYNAMIC p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH IOCPDISP p ASSPAR E CALL : LOCATE L_0004 4893 %IF REGISTER(BREG)#0 %THEN BOOT OUT(BREG) O LINE 4893 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REGISTER N PUSHI #0x00000007 a ACCESS N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH BOOTOUT N PUSHI #0x00000007 p ASSPAR E CALL : LOCATE L_0004 4894 %IF REG=ACCR %THEN OP1=LUH %AND OP2=ST %ELSE OP1=LDTB %AND OP2=STD O LINE 4894 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REG N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH OP1 N PUSHI #0x0000006a S ASSVAL @ PUSH OP2 N PUSHI #0x00000048 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH OP1 N PUSHI #0x00000074 S ASSVAL @ PUSH OP2 N PUSHI #0x00000058 S ASSVAL : LOCATE L_0003 4895 PSF1(OP1,0,N) O LINE 4895 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 @ PUSH OP1 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH N p ASSPAR E CALL 4896 PSF1(PRCL,0,4) O LINE 4896 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000018 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR E CALL 4897 PF1(OP2,0,TOS,0) O LINE 4897 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 @ PUSH OP2 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4898 XYNB=SET XORYNB(-1,-1); ! TO PLT O LINE 4898 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XYNB @ PUSH SETXORYNB N PUSHI #0x00000001 U NEGATE p ASSPAR N PUSHI #0x00000001 U NEGATE p ASSPAR E CALL S ASSVAL 4899 PSF1(RALN,0,7) O LINE 4899 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000006c p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000007 p ASSPAR E CALL 4900 PF1(CALL,2,XYNB,IOCPDISP) O LINE 4900 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000001e p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH XYNB p ASSPAR @ PUSH IOCPDISP p ASSPAR E CALL 4901 FORGET(-1) O LINE 4901 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FORGET N PUSHI #0x00000001 U NEGATE p ASSPAR E CALL 4902 %END O 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 !*********************************************************************** O LINE 4903 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CUI (_lev0id0_lev1id1_lev2id3_CSS_CUI) p1=V_0199 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_020d a/tf=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 O LINE 4908 "regression-compile-tmp/nrimp10s-77.imp" $ DEF MARKER 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 J 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 $ DEF LNAME 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 TYPEP 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 PRECP 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 GWRDD 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 LWB 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 XYNB 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 ARRP 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 ALT 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 4909 %SWITCH SW(1:9) O LINE 4909 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 N PUSHI #0x00000009 b BOUNDS $ DEF SW p1=V_0218 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 O LINE 4910 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REPORTUI N PUSHI #0x00000000 S ASSVAL 4911 ALT=A(P) O LINE 4911 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT @ PUSH A @ PUSH P a ACCESS S ASSVAL 4912 ->SW(ALT) O LINE 4912 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT W SJUMP 536 4913 SW(1): ! (NAME)(APP)(ASSMNT?) O LINE 4913 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 _ SLABEL 536 4914 P=P+1; MARKER=P+FROMAR2(P) O LINE 4914 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 4914 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKER @ PUSH P @ PUSH FROMAR2 @ PUSH P p ASSPAR E CALL + ADD S ASSVAL 4915 %IF A(MARKER)=1 %THEN %START O LINE 4915 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH MARKER a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0004 4916 J=P+2; P=MARKER+2 O LINE 4916 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL O LINE 4916 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH MARKER N PUSHI #0x00000002 + ADD S ASSVAL 4917 ASSIGN(A(MARKER+1),J) O LINE 4917 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ASSIGN @ PUSH A @ PUSH MARKER N PUSHI #0x00000001 + ADD a ACCESS p ASSPAR @ PUSH J p ASSPAR E CALL 4918 %FINISH %ELSE %START O LINE 4918 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 4919 P=P+2 O LINE 4919 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 4920 CNAME(0,0) O LINE 4920 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CNAME N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4921 P=P+1 O LINE 4921 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 4922 %FINISH O LINE 4922 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 4923 AUI: J=A(P); P=P+1 O LINE 4923 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_0219 O LINE 4923 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH A @ PUSH P a ACCESS S ASSVAL O LINE 4923 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 4924 %IF J=1 %THEN CUI(CODE) O LINE 4924 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000001 ? JUMPIF # L_0004 @ PUSH CUI @ PUSH CODE p ASSPAR E CALL : LOCATE L_0004 4925 %RETURN O LINE 4925 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 4926 SW(2): ! -> (NAME)(APP) O LINE 4926 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000002 _ SLABEL 536 4927 NMDECS(LEVEL)=NMDECS(LEVEL)!1 O LINE 4927 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NMDECS @ PUSH LEVEL a ACCESS @ PUSH NMDECS @ PUSH LEVEL a ACCESS N PUSHI #0x00000001 ! OR S ASSVAL 4928 CURR INST=1 %IF CODE=0 O LINE 4928 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH CURRINST N PUSHI #0x00000001 S ASSVAL : LOCATE L_0004 4929 LNAME=FROM AR2(P+1) O LINE 4929 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LNAME @ PUSH FROMAR2 @ PUSH P N PUSHI #0x00000001 + ADD p ASSPAR E CALL S ASSVAL 4930 J=A(P+3); P=P+4 O LINE 4930 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH A @ PUSH P N PUSHI #0x00000003 + ADD a ACCESS S ASSVAL O LINE 4930 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000004 + ADD S ASSVAL 4931 %IF J=2 %THEN %START; ! SIMPLE LABEL O LINE 4931 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J N PUSHI #0x00000002 ? JUMPIF # L_0004 4932 ENTER JUMP(15,LNAME,0) O LINE 4932 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ENTERJUMP N PUSHI #0x0000000f p ASSPAR @ PUSH LNAME p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4933 REPORTUI=1 O LINE 4933 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REPORTUI N PUSHI #0x00000001 S ASSVAL 4934 %FINISH %ELSE %START; ! SWITCH LABELS O LINE 4934 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 4935 COPY TAG(LNAME) O LINE 4935 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COPYTAG @ PUSH LNAME p ASSPAR E CALL 4936 ARRP=ARR O LINE 4936 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARRP @ PUSH ARR S ASSVAL 4937 GWRDD=SNDISP<<2; ! BYTE DISP OF DESCRIPTOR IN PLT O LINE 4937 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GWRDD @ PUSH SNDISP N PUSHI #0x00000002 [ LSH S ASSVAL 4938 %UNLESS OLDI=LEVEL %AND TYPE=6 %START O LINE 4938 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH OLDI @ PUSH LEVEL ? JUMPIF # L_0008 @ PUSH TYPE N PUSHI #0x00000006 ? JUMPIF = L_0007 : LOCATE L_0008 4939 FAULT(4,LNAME); P=P-1; SKIP APP O LINE 4939 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FAULT N PUSHI #0x00000004 p ASSPAR @ PUSH LNAME p ASSPAR E CALL O LINE 4939 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 - SUB S ASSVAL O LINE 4939 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SKIPAPP E CALL 4940 %RETURN O LINE 4940 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 4941 %FINISH O LINE 4941 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 4942 LWB=FROM2(K); ! GET LOWER BOUND O LINE 4942 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH LWB @ PUSH FROM2 @ PUSH K p ASSPAR E CALL S ASSVAL 4943 CSEXP(BREG,16_51) O LINE 4943 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CSEXP N PUSHI #0x00000007 p ASSPAR N PUSHI #0x00000051 p ASSPAR E CALL 4944 %IF ARRP=1 %THEN PSF1(SBB,0,LWB) O LINE 4944 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ARRP N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH PSF1 N PUSHI #0x00000022 p ASSPAR N PUSHI #0x00000000 p ASSPAR @ PUSH LWB p ASSPAR E CALL : LOCATE L_0007 4945 XYNB=SET XORYNB(-1,-1); ! TO PLT O LINE 4945 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XYNB @ PUSH SETXORYNB N PUSHI #0x00000001 U NEGATE p ASSPAR N PUSHI #0x00000001 U NEGATE p ASSPAR E CALL S ASSVAL 4946 PF1(JUNC,3,XYNB,GWRDD); ! JUMP INDIRECT VIA WORD ARRAY 4947 ! OF 32 BIT RELOCATED ADDRESSES O LINE 4946 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000001a p ASSPAR N PUSHI #0x00000003 p ASSPAR @ PUSH XYNB p ASSPAR @ PUSH GWRDD p ASSPAR E CALL 4948 REPORTUI=1; FORGET(-1) O LINE 4948 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REPORTUI N PUSHI #0x00000001 S ASSVAL O LINE 4948 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FORGET N PUSHI #0x00000001 U NEGATE p ASSPAR E CALL 4949 %FINISH O LINE 4949 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0003 4950 %RETURN O LINE 4950 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 4951 SW(3): ! RETURN O LINE 4951 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000003 _ SLABEL 536 4952 FAULT(30,0) %UNLESS FLAG(LEVEL)&16_3FFF=16_1000 O LINE 4952 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FLAG @ PUSH LEVEL a ACCESS N PUSHI #0x00003fff & AND N PUSHI #0x00001000 ? JUMPIF = L_0004 @ PUSH FAULT N PUSHI #0x0000001e p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 4953 P=P+1 O LINE 4953 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 4954 RET: RT EXIT O LINE 4954 "regression-compile-tmp/nrimp10s-77.imp" L LABEL L_021a O LINE 4954 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH RTEXIT E CALL 4955 REPORT UI=1 O LINE 4955 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REPORTUI N PUSHI #0x00000001 S ASSVAL 4956 CURR INST=1 %IF CODE=0 O LINE 4956 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH CURRINST N PUSHI #0x00000001 S ASSVAL : LOCATE L_0004 4957 %RETURN O LINE 4957 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 4958 SW(4): ! %RESULT(ASSOP)(EXPR) O LINE 4958 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000004 _ SLABEL 536 4959 PTYPE=FLAG(LEVEL)&16_3FFF; UNPACK O LINE 4959 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE @ PUSH FLAG @ PUSH LEVEL a ACCESS N PUSHI #0x00003fff & AND S ASSVAL O LINE 4959 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH UNPACK E CALL 4960 %IF PTYPE>16_1000 %AND A(P+1)#3 %THEN %START;! ASSOP #'->' O LINE 4960 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PTYPE N PUSHI #0x00001000 ? JUMPIF <= L_0004 @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS N 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 O LINE 4961 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0007 @ PUSH NAM N PUSHI #0x00000000 ? JUMPIF = L_0007 @ PUSH A @ PUSH P N PUSHI #0x00000005 + ADD a ACCESS N PUSHI #0x00000004 ? JUMPIF # L_0007 @ PUSH A @ PUSH P N PUSHI #0x00000006 + ADD a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0007 4962 P=P+7; TYPEP=TYPE; PRECP=PREC O LINE 4962 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000007 + ADD S ASSVAL O LINE 4962 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPEP @ PUSH TYPE S ASSVAL O LINE 4962 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PRECP @ PUSH PREC S ASSVAL 4963 CNAME(4,ACCR) O LINE 4963 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CNAME N PUSHI #0x00000004 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4964 FAULT(81,0) %UNLESS A(P)=2; P=P+1 O LINE 4964 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P a ACCESS N PUSHI #0x00000002 ? JUMPIF = L_000a @ PUSH FAULT N PUSHI #0x00000051 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_000a O LINE 4964 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 4965 FAULT(83,0) %UNLESS TYPEP=TYPE %AND PRECP=PREC O 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 N PUSHI #0x00000053 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_000a 4966 ->RET O LINE 4966 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_021a 4967 %FINISH O LINE 4967 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 4968 %IF A(P+1)=2 %THEN %START; ! ASSOP='=' O LINE 4968 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000001 + ADD a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0007 4969 P=P+2 O LINE 4969 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL 4970 %IF NAM#0 %THEN TYPE=1; ! MAPS HAVE INTEGER RESULTS O LINE 4970 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000000 ? JUMPIF = L_000a @ PUSH TYPE N PUSHI #0x00000001 S ASSVAL : LOCATE L_000a 4971 %IF TYPE=5 %THEN %START O LINE 4971 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH TYPE N PUSHI #0x00000005 ? JUMPIF # L_000a 4972 CSTREXP(0,ACCR) O LINE 4972 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CSTREXP N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4973 PSF1(LD,1,DISPLAY(RBASE)-8); ! RESULT DESCRPT O LINE 4973 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000078 p ASSPAR N PUSHI #0x00000001 p ASSPAR @ PUSH DISPLAY @ PUSH RBASE a ACCESS N PUSHI #0x00000008 - SUB p ASSPAR E CALL 4974 PF1(IAD,0,PC,SPECIAL CONSTS(2)) O LINE 4974 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x000000e0 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR @ PUSH SPECIALCONSTS N PUSHI #0x00000002 p ASSPAR E CALL p ASSPAR E CALL 4975 PF2(MV,1,1,0,0,UNASSPAT&255) O LINE 4975 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF2 N PUSHI #0x000000b2 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x81818181 N PUSHI #0x000000ff & AND p ASSPAR E CALL 4976 PSF1(LDB,2,DISPLAY(RBASE)-8) O LINE 4976 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000076 p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH DISPLAY @ PUSH RBASE a ACCESS N PUSHI #0x00000008 - SUB p ASSPAR E CALL 4977 COPY DR O LINE 4977 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH COPYDR E CALL 4978 %FINISH %ELSE %START O LINE 4978 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0009 : LOCATE L_000a 4979 %IF PREC<5 %THEN PREC=5 O LINE 4979 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PREC N PUSHI #0x00000005 ? JUMPIF >= L_000d @ PUSH PREC N PUSHI #0x00000005 S ASSVAL : LOCATE L_000d 4980 %IF NAM=0 %THEN KK=PREC<<4!TYPE %ELSE KK=16_51 O LINE 4980 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NAM N PUSHI #0x00000000 ? JUMPIF # L_000d @ PUSH KK @ PUSH PREC N PUSHI #0x00000004 [ LSH @ PUSH TYPE ! OR S ASSVAL F GOTO L_000c : LOCATE L_000d @ PUSH KK N PUSHI #0x00000051 S ASSVAL : LOCATE L_000c 4981 CSEXP(ACCR,KK) O LINE 4981 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CSEXP N PUSHI #0x00000000 p ASSPAR @ PUSH KK p ASSPAR E CALL 4982 %FINISH; ->RET O LINE 4982 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0009 O LINE 4982 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_021a 4983 %FINISH O LINE 4983 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 4984 %FINISH O LINE 4984 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 4985 FAULT(31,0) O LINE 4985 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FAULT N PUSHI #0x0000001f p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4986 P=P+2; SKIP EXP; ! IGNORE SPURIOUS RESULT O LINE 4986 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000002 + ADD S ASSVAL O LINE 4986 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SKIPEXP E CALL 4987 %RETURN O LINE 4987 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 4988 SW(5): ! %MONITOR (AUI) O LINE 4988 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000005 _ SLABEL 536 4989 PSF1(LSD,0,0); ! ERR=0 & EXTRA =0 O LINE 4989 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000064 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 4990 PPJ(0,2); ! TO ERROR ROUTINE O LINE 4990 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPJ N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000002 p ASSPAR E CALL 4991 P=P+1; ->AUI O LINE 4991 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL O LINE 4991 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_0219 4992 SW(6): ! %STOP O LINE 4992 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000006 _ SLABEL 536 4993 PPJ(0,21) O LINE 4993 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PPJ N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000015 p ASSPAR E CALL 4994 P=P+1 O LINE 4994 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000001 + ADD S ASSVAL 4995 CURR INST=1 %IF CODE=0 O LINE 4995 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH CURRINST N PUSHI #0x00000001 S ASSVAL : LOCATE L_0004 4996 REPORTUI=1 O LINE 4996 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REPORTUI N PUSHI #0x00000001 S ASSVAL 4997 %RETURN O LINE 4997 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 4998 SW(7): !'%SIGNAL'(EVENT')(N)(OPEXPR) O LINE 4998 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000007 _ SLABEL 536 4999 PSF1(PRCL,0,4) O LINE 4999 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000018 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000004 p ASSPAR E CALL 5000 PSF1(JLK,0,1); ! STACK DUMMY PC O LINE 5000 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000001c p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 5001 %IF NMDECS(LEVEL)&16 #0 %START;! IN AN 'ON' GROUP O LINE 5001 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH NMDECS @ PUSH LEVEL a ACCESS N PUSHI #0x00000010 & AND N PUSHI #0x00000000 ? JUMPIF = L_0004 5002 %IF FLAG(LEVEL)<=2 %START; ! IN A BEGIN BLOCK O LINE 5002 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH FLAG @ PUSH LEVEL a ACCESS N PUSHI #0x00000002 ? JUMPIF > L_0007 5003 PSF1(LD,1,12); ! SO RESET DIAG POINTER O LINE 5003 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000078 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x0000000c p ASSPAR E CALL 5004 DIAGPOINTER(LEVEL-1); ! TO NEXT OUTER BLOCK O LINE 5004 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH DIAGPOINTER @ PUSH LEVEL N PUSHI #0x00000001 - SUB p ASSPAR E CALL 5005 PSF1(STD,1,12) O LINE 5005 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000058 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x0000000c p ASSPAR E CALL 5006 PF1(STLN,0,TOS,0) O LINE 5006 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000005c p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 5007 %FINISH %ELSE %START; ! 'ON IN A RT/FN/MAP O LINE 5007 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0006 : LOCATE L_0007 5008 PSF1(LSS,1,0); ! GET PREVIOUS LNB O LINE 5008 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000001 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 5009 PF1(ST,0,TOS,0); ! AND STACK THAT O LINE 5009 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 5010 %FINISH O LINE 5010 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0006 5011 %FINISH %ELSE PF1(STLN,0,TOS,0) O LINE 5011 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 @ PUSH PF1 N PUSHI #0x0000005c p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0003 5012 GRUSE(ACCR)=0 O LINE 5012 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH GRUSE N PUSHI #0x00000000 a ACCESS N PUSHI #0x00000000 S ASSVAL 5013 J=A(P+2); ! EVENT NO O LINE 5013 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH J @ PUSH A @ PUSH P N PUSHI #0x00000002 + ADD a ACCESS S ASSVAL 5014 FAULT2(26,J,0) %UNLESS 1<=J<=15 O LINE 5014 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 @ PUSH J " JUMPIFD > L_0005 N PUSHI #0x0000000f ? JUMPIF <= L_0004 : LOCATE L_0005 @ PUSH FAULT2 N PUSHI #0x0000001a p ASSPAR @ PUSH J p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 5015 %IF A(P+3)=1 %START; ! SUBEVENT SPECIFIED O LINE 5015 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH A @ PUSH P N PUSHI #0x00000003 + ADD a ACCESS N PUSHI #0x00000001 ? JUMPIF # L_0004 5016 P=P+4; CSEXP(ACCR,16_51) O LINE 5016 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH P N PUSHI #0x00000004 + ADD S ASSVAL O LINE 5016 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CSEXP N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000051 p ASSPAR E CALL 5017 PF1(AND,0,0,255) O LINE 5017 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000008a p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x000000ff p ASSPAR E CALL 5018 PF1(OR,0,0,256*J) O LINE 5018 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000008c p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000100 @ PUSH J * MUL p ASSPAR E CALL 5019 %FINISH %ELSE PF1(LSS,0,0,256*J) O LINE 5019 "regression-compile-tmp/nrimp10s-77.imp" F GOTO L_0003 : LOCATE L_0004 @ PUSH PF1 N PUSHI #0x00000062 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000100 @ PUSH J * MUL p ASSPAR E CALL : LOCATE L_0003 5020 PSF1(SLSS,0,0) O LINE 5020 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x00000042 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 5021 PF1(ST,0,TOS,0) O LINE 5021 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x00000048 p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000006 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL 5022 XYNB=SET XORYNB(-1,-1); ! TO PLT O LINE 5022 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH XYNB @ PUSH SETXORYNB N PUSHI #0x00000001 U NEGATE p ASSPAR N PUSHI #0x00000001 U NEGATE p ASSPAR E CALL S ASSVAL 5023 PSF1(RALN,0,9) O LINE 5023 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PSF1 N PUSHI #0x0000006c p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000009 p ASSPAR E CALL 5024 PF1(CALL,2,XYNB,40) O LINE 5024 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PF1 N PUSHI #0x0000001e p ASSPAR N PUSHI #0x00000002 p ASSPAR @ PUSH XYNB p ASSPAR N PUSHI #0x00000028 p ASSPAR E CALL 5025 CURR INST=1 %IF CODE=0 O LINE 5025 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH CURRINST N PUSHI #0x00000001 S ASSVAL : LOCATE L_0004 5026 REPORTUI=1; %RETURN O LINE 5026 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REPORTUI N PUSHI #0x00000001 S ASSVAL O LINE 5026 "regression-compile-tmp/nrimp10s-77.imp" R RETURN 5027 SW(8): ! %EXIT O LINE 5027 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000008 _ SLABEL 536 5028 SW(9): ! %CONTINUE O LINE 5028 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000009 _ SLABEL 536 5029 ALT=ALT&7; ! 0 FOR EXIT 1 FOR CONTINUE O LINE 5029 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALT @ PUSH ALT N PUSHI #0x00000007 & AND S ASSVAL 5030 %IF EXITLAB=0 %THEN FAULT2(54+ALT,0,0) %AND %RETURN O LINE 5030 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH EXITLAB N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH FAULT2 N PUSHI #0x00000036 @ PUSH ALT + ADD p ASSPAR N PUSHI #0x00000000 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL R RETURN : LOCATE L_0004 5031 KK=INTEGER(ADDR(EXITLAB)+4*ALT) O LINE 5031 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH KK @ PUSH INTEGER @ PUSH ADDR @ PUSH EXITLAB p ASSPAR E CALL N PUSHI #0x00000004 @ PUSH ALT * MUL + ADD p ASSPAR E CALL S ASSVAL 5032 ENTER JUMP(15,KK,B'10') O LINE 5032 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ENTERJUMP N PUSHI #0x0000000f p ASSPAR @ PUSH KK p ASSPAR N PUSHI #0x00000002 p ASSPAR E CALL 5033 REPORTUI=1 O LINE 5033 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH REPORTUI N PUSHI #0x00000001 S ASSVAL 5034 CURR INST=1 %IF CODE=0 O LINE 5034 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CODE N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH CURRINST N PUSHI #0x00000001 S ASSVAL : LOCATE L_0004 5035 %END O 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 !*********************************************************************** O LINE 5036 "regression-compile-tmp/nrimp10s-77.imp" $ DEF CIFTHEN (_lev0id0_lev1id1_lev2id3_CSS_CIFTHEN) p1=V_019e 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_020d a/tf=11 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_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 MARKUI 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 $ DEF MARKE 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 MARKR 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 SKIP 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 } FINISH ) {lev=5} 5046 %INTEGER ALTUI,CCRES,ELRES,THENLAB,ELSELAB,USERLAB,REPORT,START,ELSEALT,K O LINE 5046 "regression-compile-tmp/nrimp10s-77.imp" $ DEF ALTUI 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 CCRES 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 ELRES 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 THENLAB 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 ELSELAB 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 USERLAB 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 REPORT 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 $ DEF START p1=V_021a a/tf=11 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_021b a/tf=11 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_021c a/tf=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 O LINE 5047 "regression-compile-tmp/nrimp10s-77.imp" 5048 %SWITCH ESW(1:NULL ELSE) O LINE 5048 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000001 N PUSHI #0x00000004 b BOUNDS $ DEF ESW p1=V_021d 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 O LINE 5049 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SKIP N PUSHI #0x00000001 ? JUMPIF = L_0004 @ PUSH SETLINE E CALL : LOCATE L_0004 5050 MARKIU=A(MARKIU); ! ALT OF IU 1=%IF,2=%UNLESS O LINE 5050 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKIU @ PUSH A @ PUSH MARKIU a ACCESS S ASSVAL 5051 PLABEL=PLABEL-1 O LINE 5051 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH PLABEL @ PUSH PLABEL N PUSHI #0x00000001 - SUB S ASSVAL 5052 THENLAB=PLABEL O LINE 5052 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH THENLAB @ PUSH PLABEL S ASSVAL 5053 START=0; ! NO START IN CONDITION YET O LINE 5053 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH START N PUSHI #0x00000000 S ASSVAL 5054 ELSELAB=0; ! MEANS NO ELSE CLAUSE O LINE 5054 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ELSELAB N PUSHI #0x00000000 S ASSVAL 5055 P=MARKC O LINE 5055 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH MARKC S ASSVAL 5056 %IF MARKR>0 %AND A(MARKR)<=2 %THEN START=1;! '%START' OR '%THENSTART' O LINE 5056 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKR N PUSHI #0x00000000 ? JUMPIF <= L_0004 @ PUSH A @ PUSH MARKR a ACCESS N PUSHI #0x00000002 ? JUMPIF > L_0004 @ PUSH START N PUSHI #0x00000001 S ASSVAL : LOCATE L_0004 5057 %IF MARKE#0 %AND LEVEL<2 %AND START=0 %THEN FAULT(57,0) O LINE 5057 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKE N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH LEVEL N PUSHI #0x00000002 ? JUMPIF >= L_0004 @ PUSH START N PUSHI #0x00000000 ? JUMPIF # L_0004 @ PUSH FAULT N PUSHI #0x00000039 p ASSPAR N PUSHI #0x00000000 p ASSPAR E CALL : LOCATE L_0004 5058 USERLAB=-1 O LINE 5058 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH USERLAB N PUSHI #0x00000001 U NEGATE S ASSVAL 5059 %IF START#0 %THEN ALTUI=0 %ELSE ALTUI=A(MARKUI) O LINE 5059 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH START N PUSHI #0x00000000 ? JUMPIF = L_0004 @ PUSH ALTUI N PUSHI #0x00000000 S ASSVAL F GOTO L_0003 : LOCATE L_0004 @ PUSH ALTUI @ PUSH A @ PUSH MARKUI a ACCESS S ASSVAL : LOCATE L_0003 5060 %IF ALTUI=2 %AND A(MARKUI+3)=2 %THEN USERLAB=FROM AR2(MARKUI+1); ! UI = SIMPLE LABEL O LINE 5060 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALTUI N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH A @ PUSH MARKUI N PUSHI #0x00000003 + ADD a ACCESS N PUSHI #0x00000002 ? JUMPIF # L_0004 @ PUSH USERLAB @ PUSH FROMAR2 @ PUSH MARKUI N PUSHI #0x00000001 + ADD p ASSPAR E CALL S ASSVAL : LOCATE L_0004 5061 %IF 8<=ALTUI<=9 %AND EXITLAB#0 %START; ! VALID EXIT O LINE 5061 "regression-compile-tmp/nrimp10s-77.imp" N PUSHI #0x00000008 @ PUSH ALTUI " JUMPIFD > L_0004 N PUSHI #0x00000009 ? JUMPIF > L_0004 @ PUSH EXITLAB N PUSHI #0x00000000 ? JUMPIF = L_0004 5062 %IF ALTUI=8 %THEN USERLAB=EXITLAB %ELSE USERLAB=CONTLAB O LINE 5062 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH ALTUI N PUSHI #0x00000008 ? JUMPIF # L_0007 @ PUSH USERLAB @ PUSH EXITLAB S ASSVAL F GOTO L_0006 : LOCATE L_0007 @ PUSH USERLAB @ PUSH CONTLAB S ASSVAL : LOCATE L_0006 5063 %FINISH 5064 ! O LINE 5063 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 5065 %IF SKIP=YES %THEN %START; ! NO CODE NEEDED O LINE 5065 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH SKIP N PUSHI #0x00000001 ? JUMPIF # L_0004 5066 %IF START#0 %START O LINE 5066 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH START N PUSHI #0x00000000 ? JUMPIF = L_0007 5067 P=MARKR+1 O LINE 5067 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH P @ PUSH MARKR N PUSHI #0x00000001 + ADD S ASSVAL 5068 CSTART(2,1); ! NO CODE O LINE 5068 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CSTART N PUSHI #0x00000002 p ASSPAR N PUSHI #0x00000001 p ASSPAR E CALL 5069 MARKE=P O LINE 5069 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH MARKE @ PUSH P S ASSVAL 5070 %FINISH O LINE 5070 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0007 5071 CCRES=1; ! NO CODE FOR ELSE O LINE 5071 "regression-compile-tmp/nrimp10s-77.imp" @ PUSH CCRES N PUSHI #0x00000001 S ASSVAL 5072 ->ELSE O LINE 5072 "regression-compile-tmp/nrimp10s-77.imp" J JUMP L_021e 5073 %FINISH 5074 ! O LINE 5073 "regression-compile-tmp/nrimp10s-77.imp" : LOCATE L_0004 5075 %IF USERLAB>=0 %THEN %START; ! FIRST UI IS'->'