#include // 1 ! Missing COMREG, IOCP, CONSOURCE, LPUT, CPUTIME, NCODE // 2 // 3 {%MAINEP ICL9CEZIMP // 4 {%TRUSTEDPROGRAM // 5 %BEGIN #line 5 "regression-compile-tmp/nrimp10s-77.imp" int main(int argc, char **argv) { _imp_initialise(argc, argv); // 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 // 53 %CONSTINTEGER RELEASE=10 // 54 %CONSTINTEGER YES=1,NO=0 // 55 %CONSTINTEGER USE IMP=YES // 56 %CONSTINTEGER VMEB=NO // 57 %CONSTSTRING(9) LADATE="28 Jan 81"; ! LAST ALTERED #line 57 "regression-compile-tmp/nrimp10s-77.imp" const _imp_string /*%string(9)*/ LADATE = _imp_str_literal("28 Jan 81"); // 58 %INTEGER I, J, K #line 58 "regression-compile-tmp/nrimp10s-77.imp" int I; #line 58 "regression-compile-tmp/nrimp10s-77.imp" int J; #line 58 "regression-compile-tmp/nrimp10s-77.imp" int K; // 59 ! PRODUCED BY OLDPS FROM NRIMPPS8 ON 16/12/80 // 60 %CONSTBYTEINTEGERARRAY CLETT(0: 500)= 1, #line 60 "regression-compile-tmp/nrimp10s-77.imp" const unsigned char CLETT[501] = { 1, 43, 1, 45, 1, 40, 1, 41, 1, 44, 2, 201, 198, 6, 213, 206, 204, 197, 211, 211, 5, 215, 200, 201, 204, 197, 5, 213, 206, 212, 201, 204, 3, 198, 207, 210, 1, 61, 4, 210, 197, 193, 204, 7, 201, 206, 212, 197, 199, 197, 210, 8, 204, 207, 206, 199, 210, 197, 193, 204, 4, 204, 207, 206, 199, 11, 194, 217, 212, 197, 201, 206, 212, 197, 199, 197, 210, 6, 211, 212, 210, 201, 206, 199, 11, 200, 193, 204, 198, 201, 206, 212, 197, 199, 197, 210, 7, 210, 207, 213, 212, 201, 206, 197, 2, 198, 206, 3, 205, 193, 208, 8, 198, 213, 206, 195, 212, 201, 207, 206, 6, 210, 197, 195, 207, 210, 196, 4, 206, 193, 205, 197, 5, 193, 210, 210, 193, 217, 9, 193, 210, 210, 193, 217, 206, 193, 205, 197, 9, 207, 198, 208, 210, 207, 199, 210, 193, 205, 6, 207, 198, 198, 201, 204, 197, 6, 207, 198, 204, 201, 211, 212, 6, 198, 207, 210, 205, 193, 212, 4, 211, 208, 197, 195, 3, 206, 207, 212, 3, 193, 206, 196, 2, 207, 210, 1, 58, 6, 206, 207, 210, 205, 193, 204, 3, 207, 215, 206, 8, 197, 216, 212, 197, 210, 206, 193, 204, 9, 197, 216, 212, 210, 201, 206, 211, 201, 195, 8, 195, 207, 206, 211, 212, 193, 206, 212, 5, 195, 207, 206, 211, 212, 5, 197, 214, 197, 206, 212, 5, 211, 212, 193, 210, 212, 9, 212, 200, 197, 206, 211, 212, 193, 210, 212, 4, 212, 200, 197, 206, 9, 197, 204, 211, 197, 211, 212, 193, 210, 212, 4, 197, 204, 211, 197, 1, 95, 6, 211, 217, 211, 212, 197, 205, 7, 196, 217, 206, 193, 205, 201, 195, 2, 42, 61, 1, 42, 4, 80, 85, 84, 95, 5, 67, 78, 79, 80, 95, 2, 204, 61, 1, 60, 1, 62, 4, 40, 196, 210, 43, 2, 196, 210, 1, 194, 3, 212, 207, 211, 3, 204, 206, 194, 3, 216, 206, 194, 2, 208, 195, 3, 195, 212, 194, 2, 45, 62, 6, 210, 197, 212, 213, 210, 206, 6, 210, 197, 211, 213, 204, 212, 7, 205, 207, 206, 201, 212, 207, 210, 4, 211, 212, 207, 208, 6, 211, 201, 199, 206, 193, 204, 4, 197, 216, 201, 212, 8, 195, 207, 206, 212, 201, 206, 213, 197, 6, 198, 201, 206, 201, 211, 200, 5, 195, 217, 195, 204, 197, 6, 210, 197, 208, 197, 193, 212, 3, 197, 206, 196, 5, 210, 197, 193, 204, 211, 5, 194, 197, 199, 201, 206, 2, 207, 206, 6, 211, 215, 201, 212, 195, 200, 4, 204, 201, 211, 212, 7, 211, 208, 197, 195, 201, 193, 204, 14, 212, 210, 213, 211, 212, 197, 196, 208, 210, 207, 199, 210, 193, 205, 6, 205, 193, 201, 206, 197, 208, 7, 195, 207, 206, 212, 210, 207, 204, 7, 201, 206, 195, 204, 213, 196, 197, }; // 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 // 101 {%CONST}%ownINTEGERARRAY SYMBOL(1300: 2213)= 1307, #line 101 "regression-compile-tmp/nrimp10s-77.imp" static int SYMBOL[914] = { 1307, 1303, 0, 1305, 2, 1307, 1000, 1319, 1312, 1001, 1357, 1824, 1315, 1003, 1020, 1319, 4, 1336, 6, 1329, 1323, 1001, 1014, 1325, 1003, 1329, 4, 1329, 6, 1336, 1336, 1010, 1028, 1319, 1011, 1350, 1343, 1343, 1010, 1028, 1307, 1011, 1343, 1350, 1348, 1026, 1307, 999, 1350, 1000, 1357, 1355, 1026, 1319, 999, 1357, 1000, 1365, 1363, 4, 1336, 1365, 6, 1365, 1000, 1372, 1370, 8, 1336, 999, 1372, 1000, 1377, 1375, 10, 1377, 13, 1401, 1384, 20, 1010, 1542, 1562, 1011, 1390, 26, 1010, 1542, 1562, 1011, 1401, 32, 1010, 1001, 36, 1336, 8, 1336, 8, 1336, 1011, 1408, 1406, 8, 1001, 999, 1408, 1000, 1415, 1411, 38, 1413, 43, 1415, 51, 1430, 1418, 43, 1420, 38, 1423, 60, 1408, 1425, 65, 1428, 77, 1925, 1430, 84, 1437, 1433, 96, 1437, 1031, 1415, 1437, 1444, 1440, 104, 1442, 107, 1444, 111, 1466, 1450, 1415, 1476, 1001, 1401, 1456, 120, 1466, 127, 1001, 1401, 1462, 1430, 1471, 1001, 1401, 1483, 1466, 127, 1001, 1401, 1471, 1469, 132, 1471, 1000, 1476, 1474, 127, 1476, 1000, 1483, 1479, 138, 1481, 127, 1483, 1000, 1493, 1491, 4, 1010, 1444, 1011, 1493, 6, 1493, 1000, 1502, 1500, 1030, 1010, 1444, 1011, 999, 1502, 1000, 1513, 1506, 148, 1016, 1508, 158, 1511, 165, 1018, 1513, 1016, 1518, 1516, 172, 1518, 1000, 1542, 1526, 172, 1001, 4, 1876, 1869, 6, 1535, 179, 1010, 1001, 1818, 1011, 4, 1001, 6, 1542, 1010, 1615, 1011, 4, 1001, 6, 1556, 1548, 1336, 1032, 1336, 1556, 1553, 4, 1542, 1562, 6, 1556, 184, 1542, 1562, 1560, 1037, 1336, 1562, 1000, 1573, 1567, 188, 1542, 1573, 1571, 192, 1542, 1580, 1573, 1000, 1580, 1578, 188, 1542, 999, 1580, 1000, 1587, 1585, 192, 1542, 999, 1587, 1000, 1595, 1591, 1033, 1336, 1593, 195, 1595, 1000, 1601, 1599, 179, 1008, 1601, 1015, 1606, 1604, 60, 1606, 197, 1615, 1613, 8, 1336, 195, 1336, 1606, 1615, 1000, 1624, 1620, 1476, 1001, 1401, 1624, 132, 1513, 1624, 1630, 1630, 1001, 1401, 1832, 1630, 1636, 1634, 8, 1624, 1636, 1000, 1652, 1646, 1476, 1010, 1001, 1401, 1840, 1011, 1652, 1006, 1652, 132, 1513, 1001, 1832, 1701, 1663, 1661, 8, 1010, 1001, 1401, 1840, 1011, 1652, 1663, 1000, 1674, 1666, 204, 1668, 208, 1670, 217, 1672, 227, 1674, 236, 1701, 1678, 1415, 1636, 1689, 120, 1476, 1010, 1001, 1401, 1011, 4, 1001, 6, 1006, 1701, 120, 132, 1513, 1010, 1001, 1832, 1011, 4, 1001, 6, 1006, 1711, 1709, 36, 1028, 1319, 1350, 1722, 1711, 1711, 1000, 1722, 1720, 8, 1012, 1028, 1319, 1350, 1722, 999, 1722, 1000, 1731, 1729, 4, 1028, 1319, 1350, 6, 1731, 1000, 1738, 1736, 8, 1009, 999, 1738, 1000, 1743, 1741, 242, 1743, 1000, 1749, 1747, 8, 1336, 1749, 1000, 1762, 1760, 8, 1001, 1401, 4, 1336, 195, 1336, 6, 999, 1762, 1000, 1769, 1767, 26, 1542, 1562, 1769, 1000, 1782, 1772, 1019, 1774, 1006, 1779, 1372, 1542, 1562, 1006, 1782, 1377, 1006, 1795, 1786, 248, 1034, 1789, 254, 1034, 1795, 264, 1010, 2060, 1011, 1801, 1801, 1799, 188, 2060, 1801, 1000, 1818, 1805, 269, 1034, 1813, 279, 1372, 1010, 1542, 1562, 1011, 1782, 1816, 279, 2060, 1818, 1000, 1824, 1822, 284, 1001, 1824, 1000, 1832, 1830, 284, 1001, 1357, 1824, 1832, 1000, 1840, 1840, 4, 1336, 195, 1336, 1606, 6, 1848, 1846, 36, 1028, 1319, 1350, 1848, 1000, 1858, 1852, 286, 1013, 1854, 208, 1856, 293, 1858, 1000, 1869, 1867, 1001, 36, 1336, 8, 1336, 8, 1336, 1869, 1000, 1876, 1874, 8, 1876, 999, 1876, 1000, 1916, 1882, 1415, 1476, 1001, 1401, 1889, 1415, 132, 1001, 1401, 1832, 1916, 1895, 120, 1466, 127, 1001, 1401, 1904, 120, 1010, 1001, 1401, 1011, 4, 1001, 6, 1916, 120, 132, 1010, 1001, 1401, 1832, 1916, 1011, 4, 1001, 6, 1925, 1923, 8, 1001, 1401, 1832, 999, 1925, 1000, 1932, 1930, 4, 1009, 6, 1932, 1000, 1950, 1936, 301, 1001, 1939, 304, 1001, 1942, 306, 1002, 1945, 1022, 1950, 1950, 311, 1009, 8, 1009, 1964, 1954, 1023, 1964, 1959, 1024, 317, 2003, 2008, 1964, 1025, 1005, 8, 1987, 1987, 1969, 320, 1001, 322, 1971, 2036, 1976, 4, 2036, 2025, 6, 1980, 324, 2036, 6, 1985, 4, 329, 2025, 6, 1987, 332, 2003, 1992, 320, 1001, 322, 1994, 2036, 1999, 4, 329, 2025, 6, 2003, 324, 1005, 6, 2008, 2006, 329, 2008, 1005, 2016, 2014, 8, 1005, 8, 1005, 2016, 1000, 2025, 2020, 0, 1005, 2023, 2, 1005, 2025, 1000, 2031, 2029, 0, 332, 2031, 1000, 2036, 2034, 36, 2036, 1000, 2051, 2041, 2031, 1300, 1003, 2044, 1001, 2016, 2049, 4, 2051, 2016, 6, 2051, 334, 2060, 2054, 338, 2056, 342, 2058, 346, 2060, 349, 2093, 2069, 1010, 1001, 1357, 1824, 1011, 1587, 1795, 2073, 353, 1001, 1357, 2075, 356, 2079, 363, 1033, 1336, 2082, 370, 1795, 2084, 378, 2089, 383, 1738, 1009, 1743, 2091, 390, 2093, 395, 2214, 2100, 1027, 1010, 2060, 1011, 1769, 2102, 1007, 2110, 1372, 1010, 1542, 1562, 1011, 1782, 1006, 2115, 404, 1035, 1801, 1006, 2120, 411, 1029, 1858, 1006, 2125, 417, 1036, 1762, 1006, 2130, 1377, 411, 1029, 1006, 2136, 1031, 1008, 1415, 1615, 1006, 2140, 424, 1502, 1006, 2144, 120, 1518, 1006, 2153, 1010, 1848, 1430, 1011, 1595, 1001, 1483, 1006, 2156, 1663, 1674, 2160, 428, 1601, 1006, 2164, 434, 1015, 1006, 2173, 440, 1021, 1738, 1009, 1731, 248, 1034, 1006, 2184, 443, 1001, 1401, 4, 1336, 195, 1336, 6, 1749, 1006, 2188, 450, 1006, 1017, 2193, 455, 127, 1001, 1006, 2197, 304, 1932, 1006, 2200, 463, 1006, 2204, 478, 1001, 1006, 2208, 485, 1003, 1006, 2212, 493, 1003, 1038, 2214, 1006, }; // 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 // 195 %CONSTINTEGER SS= 2093 // 196 // 197 ! // 198 %CONST %BYTE %INTEGER %ARRAY I TO E TAB(0 : 127) = {%C #line 198 "regression-compile-tmp/nrimp10s-77.imp" const unsigned char ITOETAB[128] = { 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 21, 64, 12, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 79, 127, 123, 91, 108, 80, 125, 77, 93, 92, 78, 107, 96, 75, 97, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 122, 94, 76, 126, 110, 111, 124, 193, 194, 195, 196, 197, 198, 199, 200, 201, 209, 210, 211, 212, 213, 214, 215, 216, 217, 226, 227, 228, 229, 230, 231, 232, 233, 74, 95, 90, 106, 109, 124, 129, 130, 131, 132, 133, 134, 135, 136, 137, 145, 146, 147, 148, 149, 150, 151, 152, 153, 162, 163, 164, 165, 166, 167, 168, 169, 192, 64, 208, 64, 64, }; // 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 // 215 %CONSTINTEGERARRAY OPC(0:126)=0, #line 215 "regression-compile-tmp/nrimp10s-77.imp" const int OPC[127] = { 0, 541737795, 541737300, 541737286, 0, 0, 0, 0, 542523724, 541284676, 1229865793, 1297040452, 1347568460, 538976330, 541740107, 1128352844, 541148226, 542327362, 1145389642, 541282370, 542329159, 541940034, 542526809, 1129335106, 541868884, 1297109842, 1129337682, 1398031188, 1163413844, 1163085144, 542070100, 541147988, 538989388, 1397510995, 1397510980, 1397510993, 538989396, 1398035784, 1398036558, 1229212741, 542329924, 542329922, 1413760323, 1229865812, 542331972, 542331970, 1398033486, 1398035270, 538976332, 541872979, 541872964, 541872977, 1381127235, 541873480, 1380011086, 541152070, 1279545932, 541869121, 1279546434, 541869122, 538987588, 538987586, 541871182, 541874254, 542393160, 1095648339, 542069331, 1313165651, 1163415617, 541150788, 538988370, 542000465, 538988619, 541675091, 1398100043, 541415504, 1129270593, 541344854, 1146242134, 1145914454, 1398228305, 1398230597, 541282387, 542397522, 541477972, 541672534, 1230128214, 1229800534, 541939276, 538987862, 1128812374, 541282125, 541477208, 542262358, 1381123158, 1380210244, 542458180, 542462786, 1431458626, 542458704, 542462792, 542265172, 542328915, 542328922, 541344068, 541348674, 1146245954, 541344592, 541348680, 541347161, 1145919812, 1128417614, 541671748, 541676354, 1230132034, 541672272, 541676360, 541674841, 1229805892, 1128547651, 542261572, 542266178, 1381126978, 542262096, 542266179, 542264665, 1380800836, }; // 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'; // 232 %CONSTBYTEINTEGERARRAY ONE CASE(0 : 127) = {%C #line 232 "regression-compile-tmp/nrimp10s-77.imp" const unsigned char ONECASE[128] = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 123, 124, 125, 126, 127, }; // 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; // 241 %CONSTINTEGERARRAY TSNAME (0:62)=16_1000(8), #line 241 "regression-compile-tmp/nrimp10s-77.imp" const int TSNAME[63] = { 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4097, 4096, 4096, 4096, 4096, 4096, 4097, 4194, 4097, 4097, 4194, 4096, 4096, 82, 81, 98, 4194, 4194, 4194, 4194, 4194, 4194, 4194, 4096, 49, 81, 4194, 4194, 49, 4096, 81, 98, 4096, 4096, 53, 4096, 4149, 49, 53, 4149, 51, 0, 4096, 49, 82, 81, 97, 114, 97, 114, 81, 98, 4177, 65, 4096, }; // 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 ! // 250 %OWNINTEGERARRAY FIXED GLA(0:11)=0, #line 250 "regression-compile-tmp/nrimp10s-77.imp" static int FIXEDGLA[12] = { 0, 1342177280, 0, 0, (-1), 0, 0, 0, 0, 0, 0, 0, }; // 251 16_50000000,0(2),-1,0,0(6); // 252 %CONSTBYTEINTEGERARRAY BYTES(0:7)=0(3),1,2,4,8,16; #line 252 "regression-compile-tmp/nrimp10s-77.imp" const unsigned char BYTES[8] = { 0, 0, 0, 1, 2, 4, 8, 16, }; // 253 %CONSTBYTEINTEGERARRAY TRTAB(0:255)=0(48), #line 253 "regression-compile-tmp/nrimp10s-77.imp" const unsigned char TRTAB[256] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 0, 0, 0, 0, 0, 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, [123 ... 255] = 0 }; // 254 1(10),0(7),2(26),0(6),2(26),0(5),0(128) // 255 %CONSTINTEGER MAXLEVELS=31,CONCOP=13,FIXEDGLALEN=48 // 256 %CONSTINTEGER JOBBERBIT=16_40000000; ! SET IN JOBBER MODE // 257 %CONSTINTEGER CEBIT=1; ! SET IN COMPILER ENVIRONMENT // 258 %CONSTINTEGER MAXDICT=16_100; ! SET FOR MAX OF EVERYTHING // 259 ! // 260 ! THE PRINCIPAL OPCODES ARE HERE DEFINED AS THEIR MNEMONICS(AMENDED) // 261 ! // 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 // 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 // 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 // 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 // 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 // 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 ! // 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 ! // 283 %CONSTINTEGER ACCR=0,DR=1,LNB=2,XNB=3,PC=4,CTB=5,TOS=6,BREG=7 // 284 %CONSTBYTEINTEGERARRAY LDCODE(0:7)=0,16_78,16_7C,16_7E,0,48,0,16_7A; #line 284 "regression-compile-tmp/nrimp10s-77.imp" const unsigned char LDCODE[8] = { 0, 120, 124, 126, 0, 48, 0, 122, }; // 285 ! // 286 %CONSTSTRING(8)MDEP="S#NDIAG" #line 286 "regression-compile-tmp/nrimp10s-77.imp" const _imp_string /*%string(8)*/ MDEP = _imp_str_literal("S#NDIAG"); // 287 %CONSTSTRING(8)IOCPEP="S#IOCP"; ! EP FOR IOCP #line 287 "regression-compile-tmp/nrimp10s-77.imp" const _imp_string /*%string(8)*/ IOCPEP = _imp_str_literal("S#IOCP"); // 288 %CONSTSTRING(11)AUXSTEP="ICL9CEAUXST";! DATA REF FOR INDIRECT AUX ST #line 288 "regression-compile-tmp/nrimp10s-77.imp" const _imp_string /*%string(11)*/ AUXSTEP = _imp_str_literal("ICL9CEAUXST"); // 289 %CONSTINTEGER SNPT=16_1006; ! SPECIALNAME PTYPE // 290 %CONSTINTEGER COMMALT=2,ENDALT=9,UNASSPAT=16_81818181,DECALT=8 // 291 ! // 292 %INTEGER DICTBASE, CONSTPTR, CONSTBTM, DFHEAD, CONSTHOLE, WKFILEAD, {%C #line 292 "regression-compile-tmp/nrimp10s-77.imp" int DICTBASE; #line 292 "regression-compile-tmp/nrimp10s-77.imp" int CONSTPTR; #line 292 "regression-compile-tmp/nrimp10s-77.imp" int CONSTBTM; #line 292 "regression-compile-tmp/nrimp10s-77.imp" int DFHEAD; #line 292 "regression-compile-tmp/nrimp10s-77.imp" int CONSTHOLE; #line 292 "regression-compile-tmp/nrimp10s-77.imp" int WKFILEAD; #line 292 "regression-compile-tmp/nrimp10s-77.imp" int WKFILEK; #line 292 "regression-compile-tmp/nrimp10s-77.imp" int DUMMYFORMAT; #line 292 "regression-compile-tmp/nrimp10s-77.imp" int P1SIZE; #line 292 "regression-compile-tmp/nrimp10s-77.imp" int LEVELINF; #line 292 "regression-compile-tmp/nrimp10s-77.imp" int IOCPDISP; #line 292 "regression-compile-tmp/nrimp10s-77.imp" int PARMBITS1; #line 292 "regression-compile-tmp/nrimp10s-77.imp" int PARMBITS2; #line 292 "regression-compile-tmp/nrimp10s-77.imp" int PARMLET; // 293 WKFILEK, DUMMYFORMAT, P1SIZE, LEVELINF, IOCPDISP, PARMBITS1, {%C // 294 PARMBITS2,PARMLET // 295 ! // 296 %INTEGER ASL, NNAMES, ARSIZE, CABUF, PPCURR, CONSTLIMIT, OLDLINE, {%C #line 296 "regression-compile-tmp/nrimp10s-77.imp" int ASL; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int NNAMES; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int ARSIZE; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int CABUF; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int PPCURR; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int CONSTLIMIT; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int OLDLINE; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int LINE; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int LENGTH; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int NEXTP; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int SNUM; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int RLEVEL; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int NMAX; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int USTPTR; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int PLABEL; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int LEVEL; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int CA; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int LASTNAME; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int CDCOUNT; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int ASLCURBTM; #line 296 "regression-compile-tmp/nrimp10s-77.imp" int PARMDYNAMIC; // 297 LINE, LENGTH, NEXTP, SNUM, RLEVEL, NMAX, USTPTR, PLABEL,{%C // 298 LEVEL, CA, LASTNAME, CDCOUNT, ASL CUR BTM, PARMDYNAMIC // 299 ! // 300 %INTEGER FAULTY, HIT, INHCODE, IMPS, TTOPUT, LIST, PARMDIAG, {%C #line 300 "regression-compile-tmp/nrimp10s-77.imp" int FAULTY; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int HIT; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int INHCODE; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int IMPS; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int TTOPUT; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int LIST; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int PARMDIAG; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int WARNFLAG; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int PARMTRACE; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int PARMLINE; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int PARMOPT; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int CTYPE; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int DCOMP; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int CPRMODE; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int PARMCHK; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int PARMARR; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int ALLLONG; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int PARMDBUG; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int COMPILER; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int LASTINST; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int SMAP; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int STACK; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int AUXST; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int PARMY; #line 300 "regression-compile-tmp/nrimp10s-77.imp" int BFFLAG; // 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 ! // 305 %INTEGER RBASE, N, FREE FORMAT, PARMPROF, EXITLAB, CONTLAB, {%C #line 305 "regression-compile-tmp/nrimp10s-77.imp" int RBASE; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int N; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int FREEFORMAT; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int PARMPROF; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int EXITLAB; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int CONTLAB; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int Q; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int R; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int S; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int NEST; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int FNAME; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int LDPTR; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int GLACA; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int GLACABUF; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int GLACURR; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int CREFHEAD; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int SSTL; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int QMAX; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int STMTS; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int LASTAT; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int FILEADDR; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int FILEPTR; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int FILEEND; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int FILESIZE; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int LASTEND; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int BIMSTR; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int STLIMIT; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int STRLINK; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int RECTB; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int ASLWARN; #line 305 "regression-compile-tmp/nrimp10s-77.imp" int IHEAD; // 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 ! // 311 %INTEGER MAX ULAB, SFLABEL #line 311 "regression-compile-tmp/nrimp10s-77.imp" int MAXULAB; #line 311 "regression-compile-tmp/nrimp10s-77.imp" int SFLABEL; // 312 %LONGREAL CVALUE, IMAX, CTIME #line 312 "regression-compile-tmp/nrimp10s-77.imp" double CVALUE; #line 312 "regression-compile-tmp/nrimp10s-77.imp" double IMAX; #line 312 "regression-compile-tmp/nrimp10s-77.imp" double CTIME; // 313 %STRING(31)MAINEP #line 313 "regression-compile-tmp/nrimp10s-77.imp" _imp_string /*%string(31)*/ MAINEP; // 314 %RECORDFORMAT LISTF(%INTEGER S1,S2,S3,LINK) #line 314 "regression-compile-tmp/nrimp10s-77.imp" typedef struct LISTF LISTF; struct LISTF { int S1; int S2; int S3; int LINK; }; // 315 %INTEGER LOGEPDISP,EXPEPDISP #line 315 "regression-compile-tmp/nrimp10s-77.imp" int LOGEPDISP; #line 315 "regression-compile-tmp/nrimp10s-77.imp" int EXPEPDISP; // 316 ! // 317 %SYSTEMINTEGERMAPSPEC COMREG(%INTEGER N) #line 317 "regression-compile-tmp/nrimp10s-77.imp" extern int /*map*/*comreg( int N ); // 318 %BEGIN #line 318 "regression-compile-tmp/nrimp10s-77.imp" void _BLOCK_1_LEVEL_1_(void) { // 319 FILE ADDR=COMREG(46); ! SOURCE FILE IF CLEAN #line 319 "regression-compile-tmp/nrimp10s-77.imp" FILEADDR = *comreg(46); // 320 PARMBITS1=COMREG(27) #line 320 "regression-compile-tmp/nrimp10s-77.imp" PARMBITS1 = *comreg(27); // 321 PARMBITS2=COMREG(28) #line 321 "regression-compile-tmp/nrimp10s-77.imp" PARMBITS2 = *comreg(28); // 322 WKFILEAD=COMREG(14) #line 322 "regression-compile-tmp/nrimp10s-77.imp" WKFILEAD = *comreg(14); // 323 {WKFILEK=INTEGER(WKFILEAD+8)>>10 // 324 wkfilek = 128 #line 324 "regression-compile-tmp/nrimp10s-77.imp" WKFILEK = 128; // 325 %IF FILE ADDR<=0 %THEN FILESIZE=64000 %AND FILE ADDR=0 %ELSESTART #line 325 "regression-compile-tmp/nrimp10s-77.imp" if (((FILEADDR) > (0))) goto L_0002; #line 325 "regression-compile-tmp/nrimp10s-77.imp" FILESIZE = 64000; #line 325 "regression-compile-tmp/nrimp10s-77.imp" FILEADDR = 0; #line 325 "regression-compile-tmp/nrimp10s-77.imp" goto L_0003; #line 325 "regression-compile-tmp/nrimp10s-77.imp" L_0002:; // 326 FILE PTR=FILE ADDR+INTEGER(FILE ADDR+4) #line 326 "regression-compile-tmp/nrimp10s-77.imp" FILEPTR = (((int)(FILEADDR)) + (*_imp_INTEGER((((int)(FILEADDR)) + (4))))); // 327 FILE END=FILE ADDR+INTEGER(FILE ADDR) #line 327 "regression-compile-tmp/nrimp10s-77.imp" FILEEND = (((int)(FILEADDR)) + (*_imp_INTEGER(FILEADDR))); // 328 FILE SIZE=INTEGER(FILE ADDR) #line 328 "regression-compile-tmp/nrimp10s-77.imp" FILESIZE = *_imp_INTEGER(FILEADDR); // 329 %FINISH #line 329 "regression-compile-tmp/nrimp10s-77.imp" L_0003:; // 330 NNAMES=255 #line 330 "regression-compile-tmp/nrimp10s-77.imp" NNAMES = 255; // 331 %IF FILESIZE>10000 %THEN NNAMES=511 #line 331 "regression-compile-tmp/nrimp10s-77.imp" if (((FILESIZE) <= (10000))) goto L_0004; #line 331 "regression-compile-tmp/nrimp10s-77.imp" NNAMES = 511; #line 331 "regression-compile-tmp/nrimp10s-77.imp" L_0004:; // 332 %IF PARMBITS1&JOBBER BIT=0 %START #line 332 "regression-compile-tmp/nrimp10s-77.imp" if (((((PARMBITS1) & (1073741824))) != (0))) goto L_0005; // 333 %IF FILESIZE>32000 %THEN NNAMES=1023 #line 333 "regression-compile-tmp/nrimp10s-77.imp" if (((FILESIZE) <= (32000))) goto L_0006; #line 333 "regression-compile-tmp/nrimp10s-77.imp" NNAMES = 1023; #line 333 "regression-compile-tmp/nrimp10s-77.imp" L_0006:; // 334 %IF FILESIZE>256*1024 %OR PARMBITS2&MAXDICT#0 %OR WKFILEK>512 %THEN NNAMES=2047 #line 334 "regression-compile-tmp/nrimp10s-77.imp" if (((FILESIZE) > ((((int)(256)) * (1024))))) goto L_0007; #line 334 "regression-compile-tmp/nrimp10s-77.imp" if (((((PARMBITS2) & (256))) != (0))) goto L_0007; #line 334 "regression-compile-tmp/nrimp10s-77.imp" if (((WKFILEK) <= (512))) goto L_0008; #line 334 "regression-compile-tmp/nrimp10s-77.imp" L_0007:; #line 334 "regression-compile-tmp/nrimp10s-77.imp" NNAMES = 2047; #line 334 "regression-compile-tmp/nrimp10s-77.imp" L_0008:; // 335 %FINISH #line 335 "regression-compile-tmp/nrimp10s-77.imp" L_0005:; // 336 ASL=3*NNAMES #line 336 "regression-compile-tmp/nrimp10s-77.imp" ASL = (((int)(3)) * (NNAMES)); // 337 ASL=4095 %IF ASL>4095 %AND PARMBITS2&MAXDICT=0;! STAY WITHIN 128K AUXSTACK #line 337 "regression-compile-tmp/nrimp10s-77.imp" if (((ASL) <= (4095))) goto L_0009; #line 337 "regression-compile-tmp/nrimp10s-77.imp" if (((((PARMBITS2) & (256))) != (0))) goto L_0009; #line 337 "regression-compile-tmp/nrimp10s-77.imp" ASL = 4095; #line 337 "regression-compile-tmp/nrimp10s-77.imp" L_0009:; // 338 ARSIZE=WKFILEK*768-300 #line 338 "regression-compile-tmp/nrimp10s-77.imp" ARSIZE = (((int)((((int)(WKFILEK)) * (768)))) - (300)); // 339 {%END ... extra block level enables dynamic array bound declarations ... // 340 {%BYTEINTEGERARRAYFORMAT AF(0:ARSIZE) // 341 {%BYTEINTEGERARRAYNAME A // 342 %byteintegerarray A(0:WKFILEK*1024) #line 342 "regression-compile-tmp/nrimp10s-77.imp" unsigned char A[(((unsigned char)((((int)(WKFILEK)) * (1024)))) + (1))]; // 343 %RECORD(LISTF)%ARRAY ASLIST(0:ASL){(LISTF) #line 343 "regression-compile-tmp/nrimp10s-77.imp" LISTF ASLIST[((ASL) + ((int)(1)))]; // 344 %INTEGERARRAY WORD, TAGS(0:NNAMES) #line 344 "regression-compile-tmp/nrimp10s-77.imp" int WORD[((NNAMES) + ((int)(1)))]; #line 344 "regression-compile-tmp/nrimp10s-77.imp" int TAGS[((NNAMES) + ((int)(1)))]; // 345 %INTEGERARRAY DVHEADS(0:12) #line 345 "regression-compile-tmp/nrimp10s-77.imp" int DVHEADS[13]; // 346 %INTEGERFNSPEC FROMAR4(%INTEGER PTR) #line 346 "regression-compile-tmp/nrimp10s-77.imp" auto int FROMAR4( int PTR ); // 347 %INTEGERFNSPEC FROMAR2(%INTEGER PTR) #line 347 "regression-compile-tmp/nrimp10s-77.imp" auto int FROMAR2( int PTR ); // 348 %ROUTINESPEC TOAR8(%INTEGER PTR, %LONGREAL VALUE) #line 348 "regression-compile-tmp/nrimp10s-77.imp" auto void TOAR8( int PTR, double VALUE ); // 349 %ROUTINESPEC TOAR4(%INTEGER PTR, VALUE) #line 349 "regression-compile-tmp/nrimp10s-77.imp" auto void TOAR4( int PTR, int VALUE ); // 350 %ROUTINESPEC TOAR2(%INTEGER PTR,VALUE) #line 350 "regression-compile-tmp/nrimp10s-77.imp" auto void TOAR2( int PTR, int VALUE ); // 351 %ROUTINESPEC WARN(%INTEGER N,V) #line 351 "regression-compile-tmp/nrimp10s-77.imp" auto void WARN( int N, int V ); // 352 %ROUTINESPEC FAULT2(%INTEGER N,VAL,IDEN) #line 352 "regression-compile-tmp/nrimp10s-77.imp" auto void FAULT2( int N, int VAL, int IDEN ); // 353 %ROUTINESPEC FAULT(%INTEGER N, VALUE) #line 353 "regression-compile-tmp/nrimp10s-77.imp" auto void FAULT( int N, int VALUE ); // 354 %STRING(255)%FNSPEC PRINTNAME(%INTEGER N) #line 354 "regression-compile-tmp/nrimp10s-77.imp" auto _imp_string /*%string(255)*/ PRINTNAME( int N ); // 355 %INTEGERFNSPEC MORE SPACE #line 355 "regression-compile-tmp/nrimp10s-77.imp" auto int MORESPACE( void ); // 356 !%INTEGERFNSPEC NEWCELL // 357 %ROUTINESPEC INSERTATEND(%INTEGERNAME S, %INTEGER A, B, C) #line 357 "regression-compile-tmp/nrimp10s-77.imp" auto void INSERTATEND( int /*name*/*S, int A, int B, int C ); // 358 %ROUTINESPEC FROM12(%INTEGER CELL, %INTEGERNAME S1, S2) #line 358 "regression-compile-tmp/nrimp10s-77.imp" auto void FROM12( int CELL, int /*name*/*S1, int /*name*/*S2 ); // 359 %ROUTINESPEC FROM123(%INTEGER CELL, %INTEGERNAME S1, S2, S3) #line 359 "regression-compile-tmp/nrimp10s-77.imp" auto void FROM123( int CELL, int /*name*/*S1, int /*name*/*S2, int /*name*/*S3 ); // 360 %ROUTINESPEC POP(%INTEGERNAME C, P, Q, R) #line 360 "regression-compile-tmp/nrimp10s-77.imp" auto void POP( int /*name*/*C, int /*name*/*P, int /*name*/*Q, int /*name*/*R ); // 361 %ROUTINESPEC PUSH(%INTEGERNAME C, %INTEGER S1, S2, S3) #line 361 "regression-compile-tmp/nrimp10s-77.imp" auto void PUSH( int /*name*/*C, int S1, int S2, int S3 ); // 362 %INTEGERFNSPEC FIND(%INTEGER LAB, LIST) #line 362 "regression-compile-tmp/nrimp10s-77.imp" auto int FIND( int LAB, int LIST ); // 363 %ROUTINESPEC MLINK(%INTEGERNAME CELL) #line 363 "regression-compile-tmp/nrimp10s-77.imp" auto void MLINK( int /*name*/*CELL ); // 364 %ROUTINESPEC REPLACE1(%INTEGER CELL, S1) #line 364 "regression-compile-tmp/nrimp10s-77.imp" auto void REPLACE1( int CELL, int S1 ); // 365 %ROUTINESPEC REPLACE2(%INTEGER CELL, S2) #line 365 "regression-compile-tmp/nrimp10s-77.imp" auto void REPLACE2( int CELL, int S2 ); // 366 %ROUTINESPEC REPLACE3(%INTEGER CELL,S3) #line 366 "regression-compile-tmp/nrimp10s-77.imp" auto void REPLACE3( int CELL, int S3 ); // 367 %ROUTINESPEC REPLACE123(%INTEGER CELL,A1,A2,S3) #line 367 "regression-compile-tmp/nrimp10s-77.imp" auto void REPLACE123( int CELL, int A1, int A2, int S3 ); // 368 %INTEGERFNSPEC FROM2(%INTEGER CELL) #line 368 "regression-compile-tmp/nrimp10s-77.imp" auto int FROM2( int CELL ); // 369 %INTEGERFNSPEC FROM1(%INTEGER CELL) #line 369 "regression-compile-tmp/nrimp10s-77.imp" auto int FROM1( int CELL ); // 370 %INTEGERFNSPEC FROM3(%INTEGER CELL) #line 370 "regression-compile-tmp/nrimp10s-77.imp" auto int FROM3( int CELL ); // 371 %ROUTINESPEC BINSERT(%INTEGERNAME T,B,%INTEGER S1,S2,S3) #line 371 "regression-compile-tmp/nrimp10s-77.imp" auto void BINSERT( int /*name*/*T, int /*name*/*B, int S1, int S2, int S3 ); // 372 %ROUTINESPEC CLEARLIST(%INTEGERNAME HEAD) #line 372 "regression-compile-tmp/nrimp10s-77.imp" auto void CLEARLIST( int /*name*/*HEAD ); // 373 %STRING(255)%FNSPEC MESSAGE(%INTEGER N) #line 373 "regression-compile-tmp/nrimp10s-77.imp" auto _imp_string /*%string(255)*/ MESSAGE( int N ); // 374 %SYSTEMROUTINESPEC LPUT(%INTEGER A, B, C, D) #line 374 "regression-compile-tmp/nrimp10s-77.imp" extern void lput( int A, int B, int C, int D ); // 375 %SYSTEMLONGREALFNSPEC CPUTIME #line 375 "regression-compile-tmp/nrimp10s-77.imp" extern double cputime( void ); // 376 !*DELSTART // 377 %SYSTEMROUTINESPEC NCODE(%INTEGER START, FINISH, CA) #line 377 "regression-compile-tmp/nrimp10s-77.imp" extern void ncode( int START, int FINISH, int CA ); // 378 %ROUTINESPEC PRINTLIST(%INTEGER HEAD) #line 378 "regression-compile-tmp/nrimp10s-77.imp" auto void PRINTLIST( int HEAD ); // 379 %ROUTINESPEC PRHEX(%INTEGER VALUE,PLACES) #line 379 "regression-compile-tmp/nrimp10s-77.imp" auto void PRHEX( int VALUE, int PLACES ); // 380 %ROUTINESPEC CHECK ASL #line 380 "regression-compile-tmp/nrimp10s-77.imp" auto void CHECKASL( void ); // 381 !*DELEND // 382 %IF VMEB=NO %THEN %START #line 382 "regression-compile-tmp/nrimp10s-77.imp" if (((0) != (0))) goto L_000a; // 383 %SYSTEMROUTINESPEC CONSOURCE(%STRING(31)FILE,%INTEGERNAME AD) #line 383 "regression-compile-tmp/nrimp10s-77.imp" extern void consource( _imp_string /*%string(31)*/ FILE, int /*name*/*AD ); // 384 %FINISH #line 384 "regression-compile-tmp/nrimp10s-77.imp" L_000a:; // 385 ! START OF COMPILATION // 386 {A==ARRAY(WKFILE AD+256*WKFILEK, AF) // 387 %BEGIN #line 387 "regression-compile-tmp/nrimp10s-77.imp" void _BLOCK_2_LEVEL_2_(void) { // 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 !*********************************************************************** // 394 %ROUTINESPEC READ LINE(%INTEGER MODE,CHAR) #line 394 "regression-compile-tmp/nrimp10s-77.imp" auto void READLINE( int MODE, int CHAR ); // 395 %INTEGERFNSPEC COMPARE(%INTEGER P) #line 395 "regression-compile-tmp/nrimp10s-77.imp" auto int COMPARE( int P ); // 396 %ROUTINESPEC PNAME(%INTEGER MODE) #line 396 "regression-compile-tmp/nrimp10s-77.imp" auto void PNAME( int MODE ); // 397 %ROUTINESPEC CONST(%INTEGER MODE) #line 397 "regression-compile-tmp/nrimp10s-77.imp" auto void CONST( int MODE ); // 398 %ROUTINESPEC TEXTTEXT(%INTEGER EBCDIC) #line 398 "regression-compile-tmp/nrimp10s-77.imp" auto void TEXTTEXT( int EBCDIC ); // 399 %INTEGER CCSIZE,DSIZE,NEXT,ATLINE1,STARSTART #line 399 "regression-compile-tmp/nrimp10s-77.imp" int CCSIZE; #line 399 "regression-compile-tmp/nrimp10s-77.imp" int DSIZE; #line 399 "regression-compile-tmp/nrimp10s-77.imp" int NEXT; #line 399 "regression-compile-tmp/nrimp10s-77.imp" int ATLINE1; #line 399 "regression-compile-tmp/nrimp10s-77.imp" int STARSTART; // 400 CCSIZE=1000; DSIZE=7*NNAMES #line 400 "regression-compile-tmp/nrimp10s-77.imp" CCSIZE = 1000; #line 400 "regression-compile-tmp/nrimp10s-77.imp" DSIZE = (((int)(7)) * (NNAMES)); // 401 %INTEGERARRAY DISPLAY,SFS(0:MAXLEVELS) #line 401 "regression-compile-tmp/nrimp10s-77.imp" int DISPLAY[32]; #line 401 "regression-compile-tmp/nrimp10s-77.imp" int SFS[32]; // 402 %BYTEINTEGERARRAY TLINE(-60:161),CC(0:CCSIZE),LETT(0:DSIZE+20) #line 402 "regression-compile-tmp/nrimp10s-77.imp" unsigned char TLINE[222]; #line 402 "regression-compile-tmp/nrimp10s-77.imp" unsigned char CC[((CCSIZE) + ((int)(1)))]; #line 402 "regression-compile-tmp/nrimp10s-77.imp" unsigned char LETT[(((unsigned char)((((int)(DSIZE)) + (20)))) + (1))]; // 403 %LONGINTEGER ATL0,ASYM0 #line 403 "regression-compile-tmp/nrimp10s-77.imp" long long int ATL0; #line 403 "regression-compile-tmp/nrimp10s-77.imp" long long int ASYM0; // 404 %CONSTBYTEINTEGERARRAY ILETT(0: 500)= 11, #line 404 "regression-compile-tmp/nrimp10s-77.imp" const unsigned char ILETT[501] = { 11, 83, 69, 76, 69, 67, 84, 73, 78, 80, 85, 84, 12, 83, 69, 76, 69, 67, 84, 79, 85, 84, 80, 85, 84, 7, 78, 69, 87, 76, 73, 78, 69, 5, 83, 80, 65, 67, 69, 10, 83, 75, 73, 80, 83, 89, 77, 66, 79, 76, 10, 82, 69, 65, 68, 83, 84, 82, 73, 78, 71, 8, 78, 69, 87, 76, 73, 78, 69, 83, 6, 83, 80, 65, 67, 69, 83, 10, 78, 69, 88, 84, 83, 89, 77, 66, 79, 76, 11, 80, 82, 73, 78, 84, 83, 89, 77, 66, 79, 76, 10, 82, 69, 65, 68, 83, 89, 77, 66, 79, 76, 4, 82, 69, 65, 68, 5, 87, 82, 73, 84, 69, 7, 78, 69, 87, 80, 65, 71, 69, 4, 65, 68, 68, 82, 6, 65, 82, 67, 83, 73, 78, 3, 73, 78, 84, 5, 73, 78, 84, 80, 84, 6, 70, 82, 65, 67, 80, 84, 5, 80, 82, 73, 78, 84, 7, 80, 82, 73, 78, 84, 70, 76, 4, 82, 69, 65, 76, 7, 73, 78, 84, 69, 71, 69, 82, 3, 77, 79, 68, 6, 65, 82, 67, 67, 79, 83, 4, 83, 81, 82, 84, 3, 76, 79, 71, 3, 83, 73, 78, 3, 67, 79, 83, 3, 84, 65, 78, 3, 69, 88, 80, 11, 67, 76, 79, 83, 69, 83, 84, 82, 69, 65, 77, 11, 66, 89, 84, 69, 73, 78, 84, 69, 71, 69, 82, 8, 69, 86, 69, 78, 84, 73, 78, 70, 6, 82, 65, 68, 73, 85, 83, 6, 65, 82, 67, 84, 65, 78, 6, 76, 69, 78, 71, 84, 72, 11, 80, 82, 73, 78, 84, 83, 84, 82, 73, 78, 71, 2, 78, 76, 8, 76, 79, 78, 71, 82, 69, 65, 76, 7, 80, 82, 73, 78, 84, 67, 72, 6, 82, 69, 65, 68, 67, 72, 6, 83, 84, 82, 73, 78, 71, 8, 82, 69, 65, 68, 73, 84, 69, 77, 8, 78, 69, 88, 84, 73, 84, 69, 77, 6, 67, 72, 65, 82, 78, 79, 8, 84, 79, 83, 84, 82, 73, 78, 71, 10, 70, 82, 79, 77, 83, 84, 82, 73, 78, 71, 6, 82, 69, 67, 79, 82, 68, 5, 65, 82, 82, 65, 89, 10, 83, 69, 84, 77, 65, 82, 71, 73, 78, 83, 4, 73, 77, 79, 68, 2, 80, 73, 9, 69, 86, 69, 78, 84, 76, 73, 78, 69, 11, 76, 79, 78, 71, 73, 78, 84, 69, 71, 69, 82, 12, 76, 79, 78, 71, 76, 79, 78, 71, 82, 69, 65, 76, 9, 76, 69, 78, 71, 84, 72, 69, 78, 73, 9, 76, 69, 78, 71, 84, 72, 69, 78, 82, 8, 83, 72, 79, 82, 84, 69, 78, 73, 8, 83, 72, 79, 82, 84, 69, 78, 82, 6, 78, 69, 88, 84, 67, 72, 11, 72, 65, 76, 70, 73, 78, 84, 69, 71, 69, 82, 8, 80, 80, 82, 79, 70, 73, 76, 69, 255, }; // 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; // 439 IMAX=(-1)>>1;PLABEL=24999 #line 439 "regression-compile-tmp/nrimp10s-77.imp" IMAX = (int)((((unsigned int)((-1))) >> (1))); #line 439 "regression-compile-tmp/nrimp10s-77.imp" PLABEL = 24999; // 440 LETT(0)=0 #line 440 "regression-compile-tmp/nrimp10s-77.imp" LETT[0] = 0; // 441 ATLINE1=ADDR(TLINE(1)) #line 441 "regression-compile-tmp/nrimp10s-77.imp" ATLINE1 = _imp_ADDR(&TLINE[61]); // 442 INTEGER(ADDR(ATL0)+4)=ATLINE1-1 #line 442 "regression-compile-tmp/nrimp10s-77.imp" *_imp_INTEGER((((int)(_imp_ADDR(&ATL0))) + (4))) = (((int)(ATLINE1)) - (1)); // 443 INTEGER(ADDR(ATL0))=16_18000100 #line 443 "regression-compile-tmp/nrimp10s-77.imp" *_imp_INTEGER(_imp_ADDR(&ATL0)) = 402653440; // 444 INTEGER(ADDR(ASYM0))=16_28000C00 #line 444 "regression-compile-tmp/nrimp10s-77.imp" *_imp_INTEGER(_imp_ADDR(&ASYM0)) = 671091712; // 445 INTEGER(ADDR(ASYM0)+4)=ADDR(SYMBOL(1300))-4*1300 #line 445 "regression-compile-tmp/nrimp10s-77.imp" *_imp_INTEGER((((int)(_imp_ADDR(&ASYM0))) + (4))) = ((_imp_ADDR(&(SYMBOL-1300)[1300])) - ((int)((((int)(4)) * (1300))))); // 446 N=12; #line 446 "regression-compile-tmp/nrimp10s-77.imp" N = 12; // 447 MAX ULAB=NNAMES+16384; ! LARGEST VALID USER LABEL #line 447 "regression-compile-tmp/nrimp10s-77.imp" MAXULAB = (((int)(NNAMES)) + (16384)); // 448 GLACURR=0; GLACA=FIXEDGLALEN; GLACABUF=GLACA #line 448 "regression-compile-tmp/nrimp10s-77.imp" GLACURR = 0; #line 448 "regression-compile-tmp/nrimp10s-77.imp" GLACA = 48; #line 448 "regression-compile-tmp/nrimp10s-77.imp" GLACABUF = GLACA; // 449 PARMOPT=1 ; PARMARR=1; LAST INST=0 #line 449 "regression-compile-tmp/nrimp10s-77.imp" PARMOPT = 1; #line 449 "regression-compile-tmp/nrimp10s-77.imp" PARMARR = 1; #line 449 "regression-compile-tmp/nrimp10s-77.imp" LASTINST = 0; // 450 PARMLINE=1; PARMTRACE=1; PARMDIAG=1 #line 450 "regression-compile-tmp/nrimp10s-77.imp" PARMLINE = 1; #line 450 "regression-compile-tmp/nrimp10s-77.imp" PARMTRACE = 1; #line 450 "regression-compile-tmp/nrimp10s-77.imp" PARMDIAG = 1; // 451 LIST=1; SFLABEL=20999; PARMCHK=1 #line 451 "regression-compile-tmp/nrimp10s-77.imp" LIST = 1; #line 451 "regression-compile-tmp/nrimp10s-77.imp" SFLABEL = 20999; #line 451 "regression-compile-tmp/nrimp10s-77.imp" PARMCHK = 1; // 452 EXITLAB=0; CONTLAB=0 #line 452 "regression-compile-tmp/nrimp10s-77.imp" EXITLAB = 0; #line 452 "regression-compile-tmp/nrimp10s-77.imp" CONTLAB = 0; // 453 CABUF=0; PPCURR=0; OLDLINE=0; COMPILER=0 #line 453 "regression-compile-tmp/nrimp10s-77.imp" CABUF = 0; #line 453 "regression-compile-tmp/nrimp10s-77.imp" PPCURR = 0; #line 453 "regression-compile-tmp/nrimp10s-77.imp" OLDLINE = 0; #line 453 "regression-compile-tmp/nrimp10s-77.imp" COMPILER = 0; // 454 RLEVEL=0; NMAX=0; USTPTR=0 #line 454 "regression-compile-tmp/nrimp10s-77.imp" RLEVEL = 0; #line 454 "regression-compile-tmp/nrimp10s-77.imp" NMAX = 0; #line 454 "regression-compile-tmp/nrimp10s-77.imp" USTPTR = 0; // 455 LEVEL=0; CA=0; LASTAT=0 #line 455 "regression-compile-tmp/nrimp10s-77.imp" LEVEL = 0; #line 455 "regression-compile-tmp/nrimp10s-77.imp" CA = 0; #line 455 "regression-compile-tmp/nrimp10s-77.imp" LASTAT = 0; // 456 FAULTY=0; WARNFLAG=0; ALLLONG=0; INHCODE=0 #line 456 "regression-compile-tmp/nrimp10s-77.imp" FAULTY = 0; #line 456 "regression-compile-tmp/nrimp10s-77.imp" WARNFLAG = 0; #line 456 "regression-compile-tmp/nrimp10s-77.imp" ALLLONG = 0; #line 456 "regression-compile-tmp/nrimp10s-77.imp" INHCODE = 0; // 457 DCOMP=0; BFFLAG=0; CPRMODE=0 #line 457 "regression-compile-tmp/nrimp10s-77.imp" DCOMP = 0; #line 457 "regression-compile-tmp/nrimp10s-77.imp" BFFLAG = 0; #line 457 "regression-compile-tmp/nrimp10s-77.imp" CPRMODE = 0; // 458 NEXT=1; LDPTR=0 #line 458 "regression-compile-tmp/nrimp10s-77.imp" NEXT = 1; #line 458 "regression-compile-tmp/nrimp10s-77.imp" LDPTR = 0; // 459 IOCPDISP=0; CREFHEAD=0; AUXST=0 #line 459 "regression-compile-tmp/nrimp10s-77.imp" IOCPDISP = 0; #line 459 "regression-compile-tmp/nrimp10s-77.imp" CREFHEAD = 0; #line 459 "regression-compile-tmp/nrimp10s-77.imp" AUXST = 0; // 460 RBASE=10; LOGEPDISP=0; EXPEPDISP=0; STRLINK=0 #line 460 "regression-compile-tmp/nrimp10s-77.imp" RBASE = 10; #line 460 "regression-compile-tmp/nrimp10s-77.imp" LOGEPDISP = 0; #line 460 "regression-compile-tmp/nrimp10s-77.imp" EXPEPDISP = 0; #line 460 "regression-compile-tmp/nrimp10s-77.imp" STRLINK = 0; // 461 RECTB=0; IHEAD=0 #line 461 "regression-compile-tmp/nrimp10s-77.imp" RECTB = 0; #line 461 "regression-compile-tmp/nrimp10s-77.imp" IHEAD = 0; // 462 SSTL=0; STMTS=1; SNUM=0; LEVELINF=0 #line 462 "regression-compile-tmp/nrimp10s-77.imp" SSTL = 0; #line 462 "regression-compile-tmp/nrimp10s-77.imp" STMTS = 1; #line 462 "regression-compile-tmp/nrimp10s-77.imp" SNUM = 0; #line 462 "regression-compile-tmp/nrimp10s-77.imp" LEVELINF = 0; // 463 CDCOUNT=0 #line 463 "regression-compile-tmp/nrimp10s-77.imp" CDCOUNT = 0; // 464 BIMSTR=0 #line 464 "regression-compile-tmp/nrimp10s-77.imp" BIMSTR = 0; // 465 LOGEPDISP=0; EXPEPDISP=0 #line 465 "regression-compile-tmp/nrimp10s-77.imp" LOGEPDISP = 0; #line 465 "regression-compile-tmp/nrimp10s-77.imp" EXPEPDISP = 0; // 466 MAINEP="S#GO"; ! DEFAULT MAIN ENTRY #line 466 "regression-compile-tmp/nrimp10s-77.imp" MAINEP = _imp_str_literal("S#GO"); // 467 DICTBASE=ADDR(LETT(0)) #line 467 "regression-compile-tmp/nrimp10s-77.imp" DICTBASE = _imp_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 ! // 472 LPUT(0,0,0,0) #line 472 "regression-compile-tmp/nrimp10s-77.imp" lput(0, 0, 0, 0); // 473 CTIME=CPUTIME #line 473 "regression-compile-tmp/nrimp10s-77.imp" CTIME = cputime(); // 474 I=COMREG(27) #line 474 "regression-compile-tmp/nrimp10s-77.imp" I = *comreg(27); // 475 STLIMIT=16_1F000 #line 475 "regression-compile-tmp/nrimp10s-77.imp" STLIMIT = 126976; // 476 %IF I>>24&1#0 %THEN STLIMIT=COMREG(48)-4096 #line 476 "regression-compile-tmp/nrimp10s-77.imp" if ((((((int)((((unsigned int)(I)) >> (24)))) & (1))) == (0))) goto L_000b; #line 476 "regression-compile-tmp/nrimp10s-77.imp" STLIMIT = ((*(int *)(comreg(48))) - (4096)); #line 476 "regression-compile-tmp/nrimp10s-77.imp" L_000b:; // 477 %IF I&2=2 %THEN LIST=0 #line 477 "regression-compile-tmp/nrimp10s-77.imp" if (((((I) & (2))) != (2))) goto L_000c; #line 477 "regression-compile-tmp/nrimp10s-77.imp" LIST = 0; #line 477 "regression-compile-tmp/nrimp10s-77.imp" L_000c:; // 478 %IF I&4=4 %THEN PARMDIAG=0 #line 478 "regression-compile-tmp/nrimp10s-77.imp" if (((((I) & (4))) != (4))) goto L_000d; #line 478 "regression-compile-tmp/nrimp10s-77.imp" PARMDIAG = 0; #line 478 "regression-compile-tmp/nrimp10s-77.imp" L_000d:; // 479 %IF I&16_800000#0 %THEN PARMLINE=0 #line 479 "regression-compile-tmp/nrimp10s-77.imp" if (((((I) & (8388608))) == (0))) goto L_000e; #line 479 "regression-compile-tmp/nrimp10s-77.imp" PARMLINE = 0; #line 479 "regression-compile-tmp/nrimp10s-77.imp" L_000e:; // 480 %IF I&16=16 %THEN PARMCHK=0 #line 480 "regression-compile-tmp/nrimp10s-77.imp" if (((((I) & (16))) != (16))) goto L_000f; #line 480 "regression-compile-tmp/nrimp10s-77.imp" PARMCHK = 0; #line 480 "regression-compile-tmp/nrimp10s-77.imp" L_000f:; // 481 %IF I&32=32 %THEN PARMARR=0 #line 481 "regression-compile-tmp/nrimp10s-77.imp" if (((((I) & (32))) != (32))) goto L_0010; #line 481 "regression-compile-tmp/nrimp10s-77.imp" PARMARR = 0; #line 481 "regression-compile-tmp/nrimp10s-77.imp" L_0010:; // 482 PARMPROF=(I>>15&1)!(I>>7&1); ! USE MAP OR PROFILE BIT PRO TEM #line 482 "regression-compile-tmp/nrimp10s-77.imp" PARMPROF = (((((int)((((unsigned int)(I)) >> (15)))) & (1))) | ((((int)((((unsigned int)(I)) >> (7)))) & (1)))); // 483 PARMDYNAMIC=I>>20&1 #line 483 "regression-compile-tmp/nrimp10s-77.imp" PARMDYNAMIC = (((int)((((unsigned int)(I)) >> (20)))) & (1)); // 484 PARMLET=I>>13&1 #line 484 "regression-compile-tmp/nrimp10s-77.imp" PARMLET = (((int)((((unsigned int)(I)) >> (13)))) & (1)); // 485 DCOMP=I>>14&1; ! PARM CODE OR D #line 485 "regression-compile-tmp/nrimp10s-77.imp" DCOMP = (((int)((((unsigned int)(I)) >> (14)))) & (1)); // 486 PARMDBUG=I>>18&1 #line 486 "regression-compile-tmp/nrimp10s-77.imp" PARMDBUG = (((int)((((unsigned int)(I)) >> (18)))) & (1)); // 487 %IF I&64=64 %THEN PARMTRACE=0 %AND PARMDIAG=0 #line 487 "regression-compile-tmp/nrimp10s-77.imp" if (((((I) & (64))) != (64))) goto L_0011; #line 487 "regression-compile-tmp/nrimp10s-77.imp" PARMTRACE = 0; #line 487 "regression-compile-tmp/nrimp10s-77.imp" PARMDIAG = 0; #line 487 "regression-compile-tmp/nrimp10s-77.imp" L_0011:; // 488 FREE FORMAT=I&16_80000 #line 488 "regression-compile-tmp/nrimp10s-77.imp" FREEFORMAT = ((I) & (524288)); // 489 STACK=I>>3&1 #line 489 "regression-compile-tmp/nrimp10s-77.imp" STACK = (((int)((((unsigned int)(I)) >> (3)))) & (1)); // 490 SMAP=I>>26&1; ! USE PARMZ BIT FOR DUMPING WKFILE #line 490 "regression-compile-tmp/nrimp10s-77.imp" SMAP = (((int)((((unsigned int)(I)) >> (26)))) & (1)); // 491 TTOPUT=COMREG(40) #line 491 "regression-compile-tmp/nrimp10s-77.imp" TTOPUT = *comreg(40); // 492 %IF I&(1<<16)#0 %THEN %START #line 492 "regression-compile-tmp/nrimp10s-77.imp" if (((((I) & (((1) << (16))))) == (0))) goto L_0012; // 493 PARMARR=0; PARMOPT=0 #line 493 "regression-compile-tmp/nrimp10s-77.imp" PARMARR = 0; #line 493 "regression-compile-tmp/nrimp10s-77.imp" PARMOPT = 0; // 494 PARMLINE=0; PARMCHK=0; PARMDIAG=0 #line 494 "regression-compile-tmp/nrimp10s-77.imp" PARMLINE = 0; #line 494 "regression-compile-tmp/nrimp10s-77.imp" PARMCHK = 0; #line 494 "regression-compile-tmp/nrimp10s-77.imp" PARMDIAG = 0; // 495 %FINISH #line 495 "regression-compile-tmp/nrimp10s-77.imp" L_0012:; // 496 PARMTRACE=PARMTRACE!PARMOPT; ! ALLOW NOTRACE ONLY WITH OPT #line 496 "regression-compile-tmp/nrimp10s-77.imp" PARMTRACE = ((PARMTRACE) | (PARMOPT)); // 497 IMPS=I>>23&1; ! BIT SET IF IMPS REQUESTED #line 497 "regression-compile-tmp/nrimp10s-77.imp" IMPS = (((int)((((unsigned int)(I)) >> (23)))) & (1)); // 498 IMPS=1; ! FOR TESTING #line 498 "regression-compile-tmp/nrimp10s-77.imp" IMPS = 1; // 499 NEWLINES(3); SPACES(14) #line 499 "regression-compile-tmp/nrimp10s-77.imp" _imp_NEWLINES(3); #line 499 "regression-compile-tmp/nrimp10s-77.imp" _imp_SPACES(14); // 500 PRINTSTRING("ERCC. Imp") #line 500 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_str_literal("ERCC. Imp")); // 501 %IF IMPS#0 %THEN PRINTSYMBOL('s') #line 501 "regression-compile-tmp/nrimp10s-77.imp" if (((IMPS) == (0))) goto L_0013; #line 501 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSYMBOL(115); #line 501 "regression-compile-tmp/nrimp10s-77.imp" L_0013:; // 502 PRINTSTRING(" Compiler Release") #line 502 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_str_literal(" Compiler Release")); // 503 WRITE(RELEASE,1) #line 503 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(10, 1); // 504 PRINTSTRING(" Version ".LADATE) #line 504 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(" Version "),(_imp_string)LADATE)); // 505 NEWLINES(3) #line 505 "regression-compile-tmp/nrimp10s-77.imp" _imp_NEWLINES(3); // 506 WRITE(NNAMES,5); WRITE(ASL,5) #line 506 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(NNAMES, 5); #line 506 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(ASL, 5); // 507 NEWLINE #line 507 "regression-compile-tmp/nrimp10s-77.imp" _imp_NEWLINE(); // 508 ASL WARN=0 #line 508 "regression-compile-tmp/nrimp10s-77.imp" ASLWARN = 0; // 509 ASL CUR BTM=ASL-240 #line 509 "regression-compile-tmp/nrimp10s-77.imp" ASLCURBTM = (((int)(ASL)) - (240)); // 510 CONST LIMIT=4*ASL CUR BTM-8 #line 510 "regression-compile-tmp/nrimp10s-77.imp" CONSTLIMIT = (((int)((((int)(4)) * (ASLCURBTM)))) - (8)); // 511 %CYCLE I=ASL CUR BTM,1,ASL-1 #line 511 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = ASLCURBTM; _increment = 1; _final = (((int)(ASL)) - (1)); I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = ASLCURBTM, 1, (((int)(ASL)) - (1))"); I -= _increment; _control -= _increment; L_0014:; if (I == _final) goto L_0015; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 512 ASLIST(I+1)_LINK=I #line 512 "regression-compile-tmp/nrimp10s-77.imp" ASLIST[(((int)(I)) + (1))].LINK = I; // 513 %REPEAT #line 513 "regression-compile-tmp/nrimp10s-77.imp" goto L_0014; #line 513 "regression-compile-tmp/nrimp10s-77.imp" L_0015:; // 514 ASLIST(ASL CUR BTM)_LINK=0 #line 514 "regression-compile-tmp/nrimp10s-77.imp" ASLIST[ASLCURBTM].LINK = 0; // 515 ASLIST(0)_S1=-1 #line 515 "regression-compile-tmp/nrimp10s-77.imp" ASLIST[0].S1 = (-1); // 516 ASLIST(0)_S2=-1 #line 516 "regression-compile-tmp/nrimp10s-77.imp" ASLIST[0].S2 = (-1); // 517 ASLIST(0)_S3=-1 #line 517 "regression-compile-tmp/nrimp10s-77.imp" ASLIST[0].S3 = (-1); // 518 ASLIST(0)_LINK=0 #line 518 "regression-compile-tmp/nrimp10s-77.imp" ASLIST[0].LINK = 0; // 519 %CYCLE I=0,1,NNAMES #line 519 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = NNAMES; I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, NNAMES"); I -= _increment; _control -= _increment; L_0017:; if (I == _final) goto L_0018; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 520 WORD(I)=0; TAGS(I)=0; #line 520 "regression-compile-tmp/nrimp10s-77.imp" WORD[I] = 0; #line 520 "regression-compile-tmp/nrimp10s-77.imp" TAGS[I] = 0; // 521 %REPEAT #line 521 "regression-compile-tmp/nrimp10s-77.imp" goto L_0017; #line 521 "regression-compile-tmp/nrimp10s-77.imp" L_0018:; // 522 %CYCLE I=0,1,12 #line 522 "regression-compile-tmp/nrimp10s-77.imp" I = (-1); if ((((12)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 12"); L_001a:; if (I == 12) goto L_001b; I += 1; // 523 DVHEADS(I)=0 #line 523 "regression-compile-tmp/nrimp10s-77.imp" DVHEADS[I] = 0; // 524 %REPEAT #line 524 "regression-compile-tmp/nrimp10s-77.imp" goto L_001a; #line 524 "regression-compile-tmp/nrimp10s-77.imp" L_001b:; // 525 ! // 526 ! NOW DECLARE THE SPECIAL NAMES WHICH ARE IN ARRAY ILETT. // 527 ! // 528 K=0; NEXT=1 #line 528 "regression-compile-tmp/nrimp10s-77.imp" K = 0; #line 528 "regression-compile-tmp/nrimp10s-77.imp" NEXT = 1; // 529 I=ILETT(0) #line 529 "regression-compile-tmp/nrimp10s-77.imp" I = ILETT[0]; // 530 %WHILE I<255 %CYCLE #line 530 "regression-compile-tmp/nrimp10s-77.imp" L_001d:; #line 530 "regression-compile-tmp/nrimp10s-77.imp" if (((I) >= (255))) goto L_001e; // 531 %CYCLE J=I,-1,1 #line 531 "regression-compile-tmp/nrimp10s-77.imp" J = ((I) + ((int)(1))); if ((((1)-(I)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle J = I, (-1), 1"); L_0020:; if (J == 1) goto L_0021; J += (-1); // 532 CC(J)=ILETT(K+J) #line 532 "regression-compile-tmp/nrimp10s-77.imp" CC[J] = ILETT[(((int)(K)) + (J))]; // 533 %REPEAT #line 533 "regression-compile-tmp/nrimp10s-77.imp" goto L_0020; #line 533 "regression-compile-tmp/nrimp10s-77.imp" L_0021:; // 534 CC(I+1)=';' #line 534 "regression-compile-tmp/nrimp10s-77.imp" CC[(((int)(I)) + (1))] = 59; // 535 R=2; Q=1; PNAME(1) #line 535 "regression-compile-tmp/nrimp10s-77.imp" R = 2; #line 535 "regression-compile-tmp/nrimp10s-77.imp" Q = 1; #line 535 "regression-compile-tmp/nrimp10s-77.imp" PNAME(1); // 536 PUSH(TAGS(LASTNAME),SNPT<<16!16_8000,0,SNUM<<16) #line 536 "regression-compile-tmp/nrimp10s-77.imp" PUSH(&TAGS[LASTNAME], ((((4102) << (16))) | (32768)), 0, ((SNUM) << (16))); // 537 SNUM=SNUM+1 #line 537 "regression-compile-tmp/nrimp10s-77.imp" SNUM = (((int)(SNUM)) + (1)); // 538 K=K+I+1; I=ILETT(K) #line 538 "regression-compile-tmp/nrimp10s-77.imp" K = (((int)((((int)(K)) + (I)))) + (1)); #line 538 "regression-compile-tmp/nrimp10s-77.imp" I = ILETT[K]; // 539 %REPEAT #line 539 "regression-compile-tmp/nrimp10s-77.imp" goto L_001d; #line 539 "regression-compile-tmp/nrimp10s-77.imp" L_001e:; // 540 ! // 541 COMREG(24)=16; ! RETURN CODE #line 541 "regression-compile-tmp/nrimp10s-77.imp" *comreg(24) = 16; // 542 DUMMY FORMAT=0; ! DUMMY RECORD FORMAT #line 542 "regression-compile-tmp/nrimp10s-77.imp" DUMMYFORMAT = 0; // 543 DFHEAD=0 #line 543 "regression-compile-tmp/nrimp10s-77.imp" DFHEAD = 0; // 544 PUSH(DFHEAD,0,0,0) #line 544 "regression-compile-tmp/nrimp10s-77.imp" PUSH(&DFHEAD, 0, 0, 0); // 545 PUSH(DUMMY FORMAT,0,0,DFHEAD); ! FOR BETTER ERROR RECOVERY #line 545 "regression-compile-tmp/nrimp10s-77.imp" PUSH(&DUMMYFORMAT, 0, 0, DFHEAD); // 546 LINE=0; LENGTH=0; Q=1 #line 546 "regression-compile-tmp/nrimp10s-77.imp" LINE = 0; #line 546 "regression-compile-tmp/nrimp10s-77.imp" LENGTH = 0; #line 546 "regression-compile-tmp/nrimp10s-77.imp" Q = 1; // 547 R=1; LEVEL=1 #line 547 "regression-compile-tmp/nrimp10s-77.imp" R = 1; #line 547 "regression-compile-tmp/nrimp10s-77.imp" LEVEL = 1; // 548 %CYCLE #line 548 "regression-compile-tmp/nrimp10s-77.imp" L_0023:; // 549 %IF Q>=LENGTH %THEN QMAX=1 %AND READ LINE(0,0) #line 549 "regression-compile-tmp/nrimp10s-77.imp" if (((Q) < (LENGTH))) goto L_0026; #line 549 "regression-compile-tmp/nrimp10s-77.imp" QMAX = 1; #line 549 "regression-compile-tmp/nrimp10s-77.imp" READLINE(0, 0); #line 549 "regression-compile-tmp/nrimp10s-77.imp" L_0026:; // 550 WARNFLAG=0 #line 550 "regression-compile-tmp/nrimp10s-77.imp" WARNFLAG = 0; // 551 STARSTART=R #line 551 "regression-compile-tmp/nrimp10s-77.imp" STARSTART = R; // 552 R=R+3 #line 552 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (3)); // 553 OLDLINE=LINE #line 553 "regression-compile-tmp/nrimp10s-77.imp" OLDLINE = LINE; // 554 A(R)=LINE>>8 #line 554 "regression-compile-tmp/nrimp10s-77.imp" A[R] = (int)((((unsigned int)(LINE)) >> (8))); // 555 A(R+1)=LINE&255 #line 555 "regression-compile-tmp/nrimp10s-77.imp" A[(((int)(R)) + (1))] = ((LINE) & (255)); // 556 R=R+2 #line 556 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (2)); // 557 %IF COMPARE(SS)=0 %THEN %START #line 557 "regression-compile-tmp/nrimp10s-77.imp" if (((COMPARE(2093)) != (0))) goto L_0027; // 558 FAULT(100,ADDR(CC(0))) #line 558 "regression-compile-tmp/nrimp10s-77.imp" FAULT(100, _imp_ADDR(&CC[0])); // 559 R=STARSTART #line 559 "regression-compile-tmp/nrimp10s-77.imp" R = STARSTART; // 560 %FINISH %ELSE %START #line 560 "regression-compile-tmp/nrimp10s-77.imp" goto L_0028; #line 560 "regression-compile-tmp/nrimp10s-77.imp" L_0027:; // 561 FAULT(102, 0) %IF R>ARSIZE #line 561 "regression-compile-tmp/nrimp10s-77.imp" if (((R) <= (ARSIZE))) goto L_0029; #line 561 "regression-compile-tmp/nrimp10s-77.imp" FAULT(102, 0); #line 561 "regression-compile-tmp/nrimp10s-77.imp" L_0029:; // 562 %IF A(STARSTART+5)=COMMALT %THEN R=STARSTART %ELSE %START #line 562 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(STARSTART)) + (5))]) != (2))) goto L_002a; #line 562 "regression-compile-tmp/nrimp10s-77.imp" R = STARSTART; #line 562 "regression-compile-tmp/nrimp10s-77.imp" goto L_002b; #line 562 "regression-compile-tmp/nrimp10s-77.imp" L_002a:; // 563 I=R-STARSTART #line 563 "regression-compile-tmp/nrimp10s-77.imp" I = (((int)(R)) - (STARSTART)); // 564 A(STARSTART)=I>>16 #line 564 "regression-compile-tmp/nrimp10s-77.imp" A[STARSTART] = (int)((((unsigned int)(I)) >> (16))); // 565 A(STARSTART+1)=I>>8&255 #line 565 "regression-compile-tmp/nrimp10s-77.imp" A[(((int)(STARSTART)) + (1))] = (((int)((((unsigned int)(I)) >> (8)))) & (255)); // 566 A(STARSTART+2)=I&255 #line 566 "regression-compile-tmp/nrimp10s-77.imp" A[(((int)(STARSTART)) + (2))] = ((I) & (255)); // 567 %IF A(STARSTART+5)=DECALT %AND LEVEL>1 %THEN %START #line 567 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(STARSTART)) + (5))]) != (8))) goto L_002c; #line 567 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) <= (1))) goto L_002c; // 568 %IF SFS(LEVEL)=0 %THEN %START #line 568 "regression-compile-tmp/nrimp10s-77.imp" if (((SFS[LEVEL]) != (0))) goto L_002d; // 569 TO AR4(DISPLAY(LEVEL),STARSTART) #line 569 "regression-compile-tmp/nrimp10s-77.imp" TOAR4(DISPLAY[LEVEL], STARSTART); // 570 DISPLAY(LEVEL)=STARSTART+6 #line 570 "regression-compile-tmp/nrimp10s-77.imp" DISPLAY[LEVEL] = (((int)(STARSTART)) + (6)); // 571 %FINISH %ELSE A(STARSTART+6)=128;! FLAG AS UNLINKED #line 571 "regression-compile-tmp/nrimp10s-77.imp" goto L_002e; #line 571 "regression-compile-tmp/nrimp10s-77.imp" L_002d:; #line 571 "regression-compile-tmp/nrimp10s-77.imp" A[(((int)(STARSTART)) + (6))] = 128; #line 571 "regression-compile-tmp/nrimp10s-77.imp" L_002e:; // 572 %FINISH #line 572 "regression-compile-tmp/nrimp10s-77.imp" L_002c:; // 573 !*DELSTART // 574 %IF SMAP#0 %THEN %START #line 574 "regression-compile-tmp/nrimp10s-77.imp" if (((SMAP) == (0))) goto L_002f; // 575 NEWLINE; WRITE(LINE, 5) #line 575 "regression-compile-tmp/nrimp10s-77.imp" _imp_NEWLINE(); #line 575 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(LINE, 5); // 576 WRITE(STARSTART,5); NEWLINE; J=0 #line 576 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(STARSTART, 5); #line 576 "regression-compile-tmp/nrimp10s-77.imp" _imp_NEWLINE(); #line 576 "regression-compile-tmp/nrimp10s-77.imp" J = 0; // 577 %CYCLE I=STARSTART, 1, R-1 #line 577 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = STARSTART; _increment = 1; _final = (((int)(R)) - (1)); I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = STARSTART, 1, (((int)(R)) - (1))"); I -= _increment; _control -= _increment; L_0030:; if (I == _final) goto L_0031; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 578 WRITE(A(I), 5) #line 578 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(A[I], 5); // 579 J=J+1 #line 579 "regression-compile-tmp/nrimp10s-77.imp" J = (((int)(J)) + (1)); // 580 %IF J>=20 %THEN NEWLINE %AND J=0 #line 580 "regression-compile-tmp/nrimp10s-77.imp" if (((J) < (20))) goto L_0033; #line 580 "regression-compile-tmp/nrimp10s-77.imp" _imp_NEWLINE(); #line 580 "regression-compile-tmp/nrimp10s-77.imp" J = 0; #line 580 "regression-compile-tmp/nrimp10s-77.imp" L_0033:; // 581 %REPEAT #line 581 "regression-compile-tmp/nrimp10s-77.imp" goto L_0030; #line 581 "regression-compile-tmp/nrimp10s-77.imp" L_0031:; // 582 NEWLINE #line 582 "regression-compile-tmp/nrimp10s-77.imp" _imp_NEWLINE(); // 583 %FINISH #line 583 "regression-compile-tmp/nrimp10s-77.imp" L_002f:; // 584 !*DELEND // 585 %EXIT %IF A(STARSTART+5)=ENDALT %AND 1<=A(STARSTART+6)<=2;! ENDOF PROG OR FILE #line 585 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(STARSTART)) + (5))]) != (9))) goto L_0034; #line 585 "regression-compile-tmp/nrimp10s-77.imp" if ((((1) > (A[(((int)(STARSTART)) + (6))]))) || (((A[(((int)(STARSTART)) + (6))]) > (2)))) goto L_0034; #line 585 "regression-compile-tmp/nrimp10s-77.imp" goto L_0024; #line 585 "regression-compile-tmp/nrimp10s-77.imp" L_0034:; // 586 %IF LEVEL=0 %THEN FAULT(14, 0) %AND %EXIT #line 586 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) != (0))) goto L_0035; #line 586 "regression-compile-tmp/nrimp10s-77.imp" FAULT(14, 0); #line 586 "regression-compile-tmp/nrimp10s-77.imp" goto L_0024; #line 586 "regression-compile-tmp/nrimp10s-77.imp" L_0035:; // 587 %FINISH #line 587 "regression-compile-tmp/nrimp10s-77.imp" L_002b:; // 588 %FINISH #line 588 "regression-compile-tmp/nrimp10s-77.imp" L_0028:; // 589 %REPEAT #line 589 "regression-compile-tmp/nrimp10s-77.imp" goto L_0023; #line 589 "regression-compile-tmp/nrimp10s-77.imp" L_0024:; // 590 TO AR8(R,0); R=R+8 #line 590 "regression-compile-tmp/nrimp10s-77.imp" TOAR8(R, 0); #line 590 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (8)); // 591 %IF R+NEXT>ARSIZE %THEN FAULT(102,0) #line 591 "regression-compile-tmp/nrimp10s-77.imp" if ((((((int)(R)) + (NEXT))) <= (ARSIZE))) goto L_0036; #line 591 "regression-compile-tmp/nrimp10s-77.imp" FAULT(102, 0); #line 591 "regression-compile-tmp/nrimp10s-77.imp" L_0036:; // 592 P1SIZE=R #line 592 "regression-compile-tmp/nrimp10s-77.imp" P1SIZE = R; // 593 ! %IF USE IMP=YES %THEN %START // 594 %CYCLE I=0,1,NEXT #line 594 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = NEXT; I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, NEXT"); I -= _increment; _control -= _increment; L_0037:; if (I == _final) goto L_0038; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 595 A(R+I)=LETT(I) #line 595 "regression-compile-tmp/nrimp10s-77.imp" A[(((int)(R)) + (I))] = LETT[I]; // 596 %REPEAT #line 596 "regression-compile-tmp/nrimp10s-77.imp" goto L_0037; #line 596 "regression-compile-tmp/nrimp10s-77.imp" L_0038:; // 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 // 606 DICTBASE=ADDR(A(R)) #line 606 "regression-compile-tmp/nrimp10s-77.imp" DICTBASE = _imp_ADDR(&A[R]); // 607 R=R+NEXT+1 #line 607 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)((((int)(R)) + (NEXT)))) + (1)); // 608 ->BEND #line 608 "regression-compile-tmp/nrimp10s-77.imp" goto U_1000; // 609 %ROUTINE READ LINE(%INTEGER MODE,CHAR) #line 609 "regression-compile-tmp/nrimp10s-77.imp" void READLINE( int MODE, int CHAR ) #line 609 "regression-compile-tmp/nrimp10s-77.imp" { // 610 %ROUTINESPEC GET LINE #line 610 "regression-compile-tmp/nrimp10s-77.imp" auto void GETLINE( void ); // 611 %INTEGER DEL, LL, LP #line 611 "regression-compile-tmp/nrimp10s-77.imp" int DEL; #line 611 "regression-compile-tmp/nrimp10s-77.imp" int LL; #line 611 "regression-compile-tmp/nrimp10s-77.imp" int LP; // 612 LL=0; LP=0; Q=1 #line 612 "regression-compile-tmp/nrimp10s-77.imp" LL = 0; #line 612 "regression-compile-tmp/nrimp10s-77.imp" LP = 0; #line 612 "regression-compile-tmp/nrimp10s-77.imp" Q = 1; // 613 LENGTH=0; DEL=0 #line 613 "regression-compile-tmp/nrimp10s-77.imp" LENGTH = 0; #line 613 "regression-compile-tmp/nrimp10s-77.imp" DEL = 0; // 614 NEXT: #line 614 "regression-compile-tmp/nrimp10s-77.imp" U_1001:; // 615 ! %IF USE IMP=YES %THEN %START // 616 LP=LP+1 #line 616 "regression-compile-tmp/nrimp10s-77.imp" LP = (((int)(LP)) + (1)); // 617 %IF LP>LL %THEN GET LINE %AND LP=1 #line 617 "regression-compile-tmp/nrimp10s-77.imp" if (((LP) <= (LL))) goto L_003a; #line 617 "regression-compile-tmp/nrimp10s-77.imp" GETLINE(); #line 617 "regression-compile-tmp/nrimp10s-77.imp" LP = 1; #line 617 "regression-compile-tmp/nrimp10s-77.imp" L_003a:; // 618 I=TLINE(LP) #line 618 "regression-compile-tmp/nrimp10s-77.imp" I = TLINE[((LP) + ((int)(60)))]; // 619 %IF MODE=0 %THEN %START #line 619 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) != (0))) goto L_003b; // 620 %IF I='%' %THEN DEL=128 %AND ->NEXT #line 620 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (37))) goto L_003c; #line 620 "regression-compile-tmp/nrimp10s-77.imp" DEL = 128; #line 620 "regression-compile-tmp/nrimp10s-77.imp" goto U_1001; #line 620 "regression-compile-tmp/nrimp10s-77.imp" L_003c:; // 621 I=ONE CASE(I) #line 621 "regression-compile-tmp/nrimp10s-77.imp" I = ONECASE[I]; // 622 %IF 'A'<=I<='Z' %THEN I=I!DEL %ELSE %START #line 622 "regression-compile-tmp/nrimp10s-77.imp" if ((((65) > (I))) || (((I) > (90)))) goto L_003d; #line 622 "regression-compile-tmp/nrimp10s-77.imp" I = ((I) | (DEL)); #line 622 "regression-compile-tmp/nrimp10s-77.imp" goto L_003e; #line 622 "regression-compile-tmp/nrimp10s-77.imp" L_003d:; // 623 DEL=0 #line 623 "regression-compile-tmp/nrimp10s-77.imp" DEL = 0; // 624 ->NEXT %IF I=' ' #line 624 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (32))) goto L_003f; #line 624 "regression-compile-tmp/nrimp10s-77.imp" goto U_1001; #line 624 "regression-compile-tmp/nrimp10s-77.imp" L_003f:; // 625 %FINISH #line 625 "regression-compile-tmp/nrimp10s-77.imp" L_003e:; // 626 LENGTH=LENGTH+1 #line 626 "regression-compile-tmp/nrimp10s-77.imp" LENGTH = (((int)(LENGTH)) + (1)); // 627 CC(LENGTH)=I #line 627 "regression-compile-tmp/nrimp10s-77.imp" CC[LENGTH] = I; // 628 %IF I='''' %OR I=34 %THEN MODE=1 %AND CHAR=I #line 628 "regression-compile-tmp/nrimp10s-77.imp" if (((I) == (39))) goto L_0022; #line 628 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (34))) goto L_0040; #line 628 "regression-compile-tmp/nrimp10s-77.imp" L_0022:; #line 628 "regression-compile-tmp/nrimp10s-77.imp" MODE = 1; #line 628 "regression-compile-tmp/nrimp10s-77.imp" CHAR = I; #line 628 "regression-compile-tmp/nrimp10s-77.imp" L_0040:; // 629 %FINISH %ELSE %START #line 629 "regression-compile-tmp/nrimp10s-77.imp" goto L_0041; #line 629 "regression-compile-tmp/nrimp10s-77.imp" L_003b:; // 630 LENGTH=LENGTH+1 #line 630 "regression-compile-tmp/nrimp10s-77.imp" LENGTH = (((int)(LENGTH)) + (1)); // 631 CC(LENGTH)=I #line 631 "regression-compile-tmp/nrimp10s-77.imp" CC[LENGTH] = I; // 632 %IF I=CHAR %THEN MODE=0 #line 632 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (CHAR))) goto L_0042; #line 632 "regression-compile-tmp/nrimp10s-77.imp" MODE = 0; #line 632 "regression-compile-tmp/nrimp10s-77.imp" L_0042:; // 633 %FINISH #line 633 "regression-compile-tmp/nrimp10s-77.imp" L_0041:; // 634 ->NEXT %UNLESS I=NL #line 634 "regression-compile-tmp/nrimp10s-77.imp" if (((I) == (10))) goto L_0043; #line 634 "regression-compile-tmp/nrimp10s-77.imp" goto U_1001; #line 634 "regression-compile-tmp/nrimp10s-77.imp" L_0043:; // 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 // 697 %IF CC(LENGTH-1)='C'+128 %THEN LENGTH=LENGTH-2 %AND ->NEXT #line 697 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(LENGTH)) - (1))]) != (195))) goto L_0044; #line 697 "regression-compile-tmp/nrimp10s-77.imp" LENGTH = (((int)(LENGTH)) - (2)); #line 697 "regression-compile-tmp/nrimp10s-77.imp" goto U_1001; #line 697 "regression-compile-tmp/nrimp10s-77.imp" L_0044:; // 698 FAULT(101,0) %IF LENGTH>CCSIZE #line 698 "regression-compile-tmp/nrimp10s-77.imp" if (((LENGTH) <= (CCSIZE))) goto L_0045; #line 698 "regression-compile-tmp/nrimp10s-77.imp" FAULT(101, 0); #line 698 "regression-compile-tmp/nrimp10s-77.imp" L_0045:; // 699 %RETURN #line 699 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 700 %ROUTINE GET LINE #line 700 "regression-compile-tmp/nrimp10s-77.imp" void GETLINE( void ) #line 700 "regression-compile-tmp/nrimp10s-77.imp" { // 701 %SYSTEMROUTINESPEC IOCP(%INTEGER A,B) #line 701 "regression-compile-tmp/nrimp10s-77.imp" extern void iocp( int A, int B ); // 702 %CONSTBYTEINTEGERARRAY ITOI(0:255)={%C #line 702 "regression-compile-tmp/nrimp10s-77.imp" const unsigned char ITOI[256] = { 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 10, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 25, 26, 32, 32, 32, 32, 32, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 32, 26, 26, 26, 26, 26, 10, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 92, 38, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 35, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 35, 26, 26, 26, 26, 26, 94, [224 ... 255] = 26 }; // 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); // 718 %INTEGER K #line 718 "regression-compile-tmp/nrimp10s-77.imp" int K; // 719 LL=0 #line 719 "regression-compile-tmp/nrimp10s-77.imp" LL = 0; // 720 %IF FILE ADDR=0 %THEN %START; ! SOURCE NOT A 'CLEAN' FILE #line 720 "regression-compile-tmp/nrimp10s-77.imp" if (((FILEADDR) != (0))) goto L_0046; // 721 {%UNTIL K=NL} %CYCLE #line 721 "regression-compile-tmp/nrimp10s-77.imp" L_0047:; // 722 READ SYMBOL(K) #line 722 "regression-compile-tmp/nrimp10s-77.imp" _imp_READSYMBOL(&K); // 723 TLINE(LL+1)=ITOI(K) #line 723 "regression-compile-tmp/nrimp10s-77.imp" TLINE[(((unsigned char)((((int)(LL)) + (1)))) + (60))] = ITOI[K]; // 724 LL=LL+1 #line 724 "regression-compile-tmp/nrimp10s-77.imp" LL = (((int)(LL)) + (1)); // 725 %REPEAT %UNTIL K=NL #line 725 "regression-compile-tmp/nrimp10s-77.imp" if (((K) == (10))) goto L_0048; #line 725 "regression-compile-tmp/nrimp10s-77.imp" goto L_0047; #line 725 "regression-compile-tmp/nrimp10s-77.imp" L_0048:; // 726 %FINISH %ELSE %START #line 726 "regression-compile-tmp/nrimp10s-77.imp" goto L_004a; #line 726 "regression-compile-tmp/nrimp10s-77.imp" L_0046:; // 727 %IF FILEPTR>=FILE END %START #line 727 "regression-compile-tmp/nrimp10s-77.imp" if (((FILEPTR) < (FILEEND))) goto L_004b; // 728 %IF IHEAD#0 %THEN POP(IHEAD,FILEADDR,FILEPTR,FILEEND) %AND GETLINE %AND %RETURN #line 728 "regression-compile-tmp/nrimp10s-77.imp" if (((IHEAD) == (0))) goto L_004c; #line 728 "regression-compile-tmp/nrimp10s-77.imp" POP(&IHEAD, &FILEADDR, &FILEPTR, &FILEEND); #line 728 "regression-compile-tmp/nrimp10s-77.imp" GETLINE(); #line 728 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 728 "regression-compile-tmp/nrimp10s-77.imp" L_004c:; // 729 %SIGNAL %EVENT 9,1 #line 729 "regression-compile-tmp/nrimp10s-77.imp" _imp_signal(9, 1, 0, ""); // 730 %FINISH #line 730 "regression-compile-tmp/nrimp10s-77.imp" L_004b:; // 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 // 757 IMP: #line 757 "regression-compile-tmp/nrimp10s-77.imp" U_1002:; // 758 {%UNTIL K=NL %OR K=0} %CYCLE #line 758 "regression-compile-tmp/nrimp10s-77.imp" L_004d:; // 759 K=BYTE INTEGER(FILEPTR); ! NEXT CHAR FROM SORCE FILE #line 759 "regression-compile-tmp/nrimp10s-77.imp" K = *_imp_BYTEINTEGER(FILEPTR); // 760 FILE PTR=FILE PTR+1 #line 760 "regression-compile-tmp/nrimp10s-77.imp" FILEPTR = (((int)(FILEPTR)) + (1)); // 761 TLINE(LL+1)=ITOI(K) #line 761 "regression-compile-tmp/nrimp10s-77.imp" TLINE[(((unsigned char)((((int)(LL)) + (1)))) + (60))] = ITOI[K]; // 762 LL=LL+1 #line 762 "regression-compile-tmp/nrimp10s-77.imp" LL = (((int)(LL)) + (1)); // 763 %REPEAT %UNTIL K=NL %OR K=0 #line 763 "regression-compile-tmp/nrimp10s-77.imp" if (((K) == (10))) goto L_004e; #line 763 "regression-compile-tmp/nrimp10s-77.imp" if (((K) == (0))) goto L_004e; #line 763 "regression-compile-tmp/nrimp10s-77.imp" goto L_004d; #line 763 "regression-compile-tmp/nrimp10s-77.imp" L_004e:; // 764 OLIST: #line 764 "regression-compile-tmp/nrimp10s-77.imp" U_1003:; // 765 %FINISH #line 765 "regression-compile-tmp/nrimp10s-77.imp" L_004a:; // 766 ! %IF MODE=0 %AND LL=1 %THEN GET LINE %AND %RETURN // 767 ! LINE=LINE+1 %UNLESS MODE=0 %AND LENGTH>0 // 768 LINE=LINE+1; ! COUNT ALL LINES #line 768 "regression-compile-tmp/nrimp10s-77.imp" LINE = (((int)(LINE)) + (1)); // 769 %IF LIST#0 %THEN %START #line 769 "regression-compile-tmp/nrimp10s-77.imp" if (((LIST) == (0))) goto L_0050; // 770 %IF MODE=0 %AND LENGTH>0 %THEN PRINTSTRING(" C") %ELSE WRITE(LINE, 5) #line 770 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) != (0))) goto L_0051; #line 770 "regression-compile-tmp/nrimp10s-77.imp" if (((LENGTH) <= (0))) goto L_0051; #line 770 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_str_literal(" C")); #line 770 "regression-compile-tmp/nrimp10s-77.imp" goto L_0052; #line 770 "regression-compile-tmp/nrimp10s-77.imp" L_0051:; #line 770 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(LINE, 5); #line 770 "regression-compile-tmp/nrimp10s-77.imp" L_0052:; // 771 ! SPACES(8) // 772 %CYCLE K=-7,1,0 #line 772 "regression-compile-tmp/nrimp10s-77.imp" K = (-8); if ((((0)-((-7))) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle K = (-7), 1, 0"); L_0053:; if (K == 0) goto L_0054; K += 1; // 773 TLINE(K)=' ' #line 773 "regression-compile-tmp/nrimp10s-77.imp" TLINE[((K) + ((int)(60)))] = 32; // 774 %REPEAT #line 774 "regression-compile-tmp/nrimp10s-77.imp" goto L_0053; #line 774 "regression-compile-tmp/nrimp10s-77.imp" L_0054:; // 775 %IF MODE#0 %THEN TLINE(-7)=M'"' #line 775 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) == (0))) goto L_0056; #line 775 "regression-compile-tmp/nrimp10s-77.imp" TLINE[53] = 34; #line 775 "regression-compile-tmp/nrimp10s-77.imp" L_0056:; // 776 TLINE(-8)=LL+8 #line 776 "regression-compile-tmp/nrimp10s-77.imp" TLINE[52] = (((int)(LL)) + (8)); // 777 IOCP(15,ADDR(TLINE(-8))) #line 777 "regression-compile-tmp/nrimp10s-77.imp" iocp(15, _imp_ADDR(&TLINE[52])); // 778 %FINISH #line 778 "regression-compile-tmp/nrimp10s-77.imp" L_0050:; // 779 %IF FREE FORMAT=0 %AND LL>73 %THEN TLINE(73)=10 %AND LL=73 #line 779 "regression-compile-tmp/nrimp10s-77.imp" if (((FREEFORMAT) != (0))) goto L_0057; #line 779 "regression-compile-tmp/nrimp10s-77.imp" if (((LL) <= (73))) goto L_0057; #line 779 "regression-compile-tmp/nrimp10s-77.imp" TLINE[133] = 10; #line 779 "regression-compile-tmp/nrimp10s-77.imp" LL = 73; #line 779 "regression-compile-tmp/nrimp10s-77.imp" L_0057:; // 780 %END #line 780 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block GETLINE at level 5 // 781 %END #line 781 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block READLINE at level 4 // 782 %INTEGERFN COMPARE(%INTEGER P) #line 782 "regression-compile-tmp/nrimp10s-77.imp" int COMPARE( int P ) #line 782 "regression-compile-tmp/nrimp10s-77.imp" { // 783 %INTEGER I, J, ITEM, RA, RL, RP, RQ, RR, RS, MARKER, SSL, ALT, PP #line 783 "regression-compile-tmp/nrimp10s-77.imp" int I; #line 783 "regression-compile-tmp/nrimp10s-77.imp" int J; #line 783 "regression-compile-tmp/nrimp10s-77.imp" int ITEM; #line 783 "regression-compile-tmp/nrimp10s-77.imp" int RA; #line 783 "regression-compile-tmp/nrimp10s-77.imp" int RL; #line 783 "regression-compile-tmp/nrimp10s-77.imp" int RP; #line 783 "regression-compile-tmp/nrimp10s-77.imp" int RQ; #line 783 "regression-compile-tmp/nrimp10s-77.imp" int RR; #line 783 "regression-compile-tmp/nrimp10s-77.imp" int RS; #line 783 "regression-compile-tmp/nrimp10s-77.imp" int MARKER; #line 783 "regression-compile-tmp/nrimp10s-77.imp" int SSL; #line 783 "regression-compile-tmp/nrimp10s-77.imp" int ALT; #line 783 "regression-compile-tmp/nrimp10s-77.imp" int PP; // 784 %OWNINTEGER SAVECOMP; ! FOR CHECKING DSIDED CONDS #line 784 "regression-compile-tmp/nrimp10s-77.imp" static int SAVECOMP; // 785 %SWITCH BIP(999:1038) #line 785 "regression-compile-tmp/nrimp10s-77.imp" static int sw1_BIP_idx; static const void * /*SWITCH*/ sw1_BIP[40] = { &&sw1_BIP_999, &&sw1_BIP_1000, &&sw1_BIP_1001, &&sw1_BIP_1002, &&sw1_BIP_1003, &&sw1_BIP_1004, &&sw1_BIP_1005, &&sw1_BIP_1006, &&sw1_BIP_1007, &&sw1_BIP_1008, &&sw1_BIP_1009, &&sw1_BIP_1010, &&sw1_BIP_1011, &&sw1_BIP_1012, &&sw1_BIP_1013, &&sw1_BIP_1014, &&sw1_BIP_1015, &&sw1_BIP_1016, &&sw1_BIP_1017, &&sw1_BIP_1018, &&sw1_BIP_1019, &&sw1_BIP_1020, &&sw1_BIP_1021, &&sw1_BIP_1022, &&sw1_BIP_1023, &&sw1_BIP_1024, &&sw1_BIP_1025, &&sw1_BIP_1026, &&sw1_BIP_1027, &&sw1_BIP_1028, &&sw1_BIP_1029, &&sw1_BIP_1030, &&sw1_BIP_1031, &&sw1_BIP_1032, &&sw1_BIP_1033, &&sw1_BIP_1034, &&sw1_BIP_1035, &&sw1_BIP_1036, &&sw1_BIP_1037, &&sw1_BIP_1038, }; // 786 ! %IF USE IMP=YES %THEN %START // 787 RP=SYMBOL(P) #line 787 "regression-compile-tmp/nrimp10s-77.imp" RP = (SYMBOL-1300)[P]; // 788 RL=LEVEL #line 788 "regression-compile-tmp/nrimp10s-77.imp" RL = LEVEL; // 789 P=P+1 #line 789 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 790 PP=P; ! ROUTINE REALLY STARTS HERE #line 790 "regression-compile-tmp/nrimp10s-77.imp" PP = P; // 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 // 803 COMM: #line 803 "regression-compile-tmp/nrimp10s-77.imp" U_1004:; // 804 ! %IF USE IMP=YES %THEN %START // 805 RQ=Q; ! RESET VALUES OF LINE&AR PTRS #line 805 "regression-compile-tmp/nrimp10s-77.imp" RQ = Q; // 806 RR=R #line 806 "regression-compile-tmp/nrimp10s-77.imp" RR = R; // 807 SSL=STRLINK; ! SAVE STRING LINK #line 807 "regression-compile-tmp/nrimp10s-77.imp" SSL = STRLINK; // 808 ALT=1; ! FIRST ALTERNATIVE TO BE TRIED #line 808 "regression-compile-tmp/nrimp10s-77.imp" ALT = 1; // 809 RA=SYMBOL(P); ! RA TO NEXT PHRASE ALTERNATIVE #line 809 "regression-compile-tmp/nrimp10s-77.imp" RA = (SYMBOL-1300)[P]; // 810 RS=P #line 810 "regression-compile-tmp/nrimp10s-77.imp" 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 // 822 UPR: R=R+1 #line 822 "regression-compile-tmp/nrimp10s-77.imp" U_1005:; #line 822 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (1)); // 823 SUCC: ! SUCCESS ON TO NEXT ITEM #line 823 "regression-compile-tmp/nrimp10s-77.imp" U_1006:; // 824 ! %IF USE IMP=YES %THEN %START // 825 RS=RS+1; ! RS=NEXT ALTERNATIVE MEANS THAT #line 825 "regression-compile-tmp/nrimp10s-77.imp" RS = (((int)(RS)) + (1)); // 826 ! THIS ALT HAS BEEN COMPLETED SO // 827 ! EXIT WITH HIT=1 // 828 %IF RS=RA %THEN ->FINI #line 828 "regression-compile-tmp/nrimp10s-77.imp" if (((RS) != (RA))) goto L_0058; #line 828 "regression-compile-tmp/nrimp10s-77.imp" goto U_1007; #line 828 "regression-compile-tmp/nrimp10s-77.imp" L_0058:; // 829 ITEM=SYMBOL(RS); ! NEXT BRICK IN THE CURRENT ALT #line 829 "regression-compile-tmp/nrimp10s-77.imp" ITEM = (SYMBOL-1300)[RS]; // 830 %IF ITEM<999 %THEN ->LIT #line 830 "regression-compile-tmp/nrimp10s-77.imp" if (((ITEM) >= (999))) goto L_0059; #line 830 "regression-compile-tmp/nrimp10s-77.imp" goto U_1008; #line 830 "regression-compile-tmp/nrimp10s-77.imp" L_0059:; // 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 // 842 %IF ITEM<1300 %THEN ->BIP(ITEM) #line 842 "regression-compile-tmp/nrimp10s-77.imp" if (((ITEM) >= (1300))) goto L_005a; #line 842 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_idx = ITEM; if ((999 <= sw1_BIP_idx) && (sw1_BIP_idx <= 1038)) goto *(sw1_BIP-999)[sw1_BIP_idx]; /* Bounds=999:1038 */ else { /*_imp_signal(8, 2, sw1_BIP_idx);*/ fprintf(stderr, "%%SWITCH index BIP(%d) not in range 999:1038 at %s:%d\n", sw1_BIP_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } #line 842 "regression-compile-tmp/nrimp10s-77.imp" L_005a:; // 843 ! BRICK IS A PHRASE TYPE // 844 ! %IF USE IMP=YES %THEN %START // 845 %IF COMPARE(ITEM)=0 %THEN ->FAIL #line 845 "regression-compile-tmp/nrimp10s-77.imp" if (((COMPARE(ITEM)) != (0))) goto L_005b; #line 845 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 845 "regression-compile-tmp/nrimp10s-77.imp" L_005b:; // 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 // 859 ->SUCC #line 859 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 860 LIT: ! BRICK IS LITERAL #line 860 "regression-compile-tmp/nrimp10s-77.imp" U_1008:; // 861 ! %IF USE IMP=YES %THEN %START // 862 I=CC(Q); ! OBTAIN CURRENT CHARACTER #line 862 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 863 ->FAIL %UNLESS I=CLETT(ITEM+1) #line 863 "regression-compile-tmp/nrimp10s-77.imp" if (((I) == (CLETT[(((int)(ITEM)) + (1))]))) goto L_005c; #line 863 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 863 "regression-compile-tmp/nrimp10s-77.imp" L_005c:; // 864 Q=Q+1 #line 864 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); // 865 K=CLETT(ITEM)+ITEM #line 865 "regression-compile-tmp/nrimp10s-77.imp" K = (((int)(CLETT[ITEM])) + (ITEM)); // 866 ITEM=ITEM+2 #line 866 "regression-compile-tmp/nrimp10s-77.imp" ITEM = (((int)(ITEM)) + (2)); // 867 %WHILE ITEM<=K %CYCLE #line 867 "regression-compile-tmp/nrimp10s-77.imp" L_005d:; #line 867 "regression-compile-tmp/nrimp10s-77.imp" if (((ITEM) > (K))) goto L_005e; // 868 ->FAIL %UNLESS CC(Q)=CLETT(ITEM) #line 868 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[Q]) == (CLETT[ITEM]))) goto L_0060; #line 868 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 868 "regression-compile-tmp/nrimp10s-77.imp" L_0060:; // 869 Q=Q+1 #line 869 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); // 870 ITEM=ITEM+1 #line 870 "regression-compile-tmp/nrimp10s-77.imp" ITEM = (((int)(ITEM)) + (1)); // 871 %REPEAT; ! CHECK IT WITH LITERAL DICT ENTRY #line 871 "regression-compile-tmp/nrimp10s-77.imp" goto L_005d; #line 871 "regression-compile-tmp/nrimp10s-77.imp" L_005e:; // 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 // 885 ->SUCC; ! MATCHED SUCCESSFULLY #line 885 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 886 FAIL: ! FAILURE - NOTE POSITION REACHD #line 886 "regression-compile-tmp/nrimp10s-77.imp" U_1009:; // 887 ! %IF USE IMP=YES %THEN %START // 888 %IF RA=RP %THEN ->TFAIL; ! TOTAL FAILURE NO ALT TO TRY #line 888 "regression-compile-tmp/nrimp10s-77.imp" if (((RA) != (RP))) goto L_0061; #line 888 "regression-compile-tmp/nrimp10s-77.imp" goto U_100a; #line 888 "regression-compile-tmp/nrimp10s-77.imp" L_0061:; // 889 QMAX=Q %IF Q>QMAX #line 889 "regression-compile-tmp/nrimp10s-77.imp" if (((Q) <= (QMAX))) goto L_0062; #line 889 "regression-compile-tmp/nrimp10s-77.imp" QMAX = Q; #line 889 "regression-compile-tmp/nrimp10s-77.imp" L_0062:; // 890 Q=RQ; ! RESET LINE AND A.R. POINTERS #line 890 "regression-compile-tmp/nrimp10s-77.imp" Q = RQ; // 891 R=RR+1; ! AVOID GOING VIA UPR: #line 891 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(RR)) + (1)); // 892 STRLINK=SSL #line 892 "regression-compile-tmp/nrimp10s-77.imp" STRLINK = SSL; // 893 ALT=ALT+1; ! MOVE TO NEXT ALT OF PHRASE #line 893 "regression-compile-tmp/nrimp10s-77.imp" ALT = (((int)(ALT)) + (1)); // 894 RS=RA #line 894 "regression-compile-tmp/nrimp10s-77.imp" RS = RA; // 895 RA=SYMBOL(RA) #line 895 "regression-compile-tmp/nrimp10s-77.imp" RA = (SYMBOL-1300)[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 // 915 ->SUCC #line 915 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 916 TFAIL: #line 916 "regression-compile-tmp/nrimp10s-77.imp" U_100a:; // 917 LEVEL=RL #line 917 "regression-compile-tmp/nrimp10s-77.imp" LEVEL = RL; // 918 ! %IF USE IMP=YES %THEN %START // 919 %RESULT=0 #line 919 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return 0; // 920 ! %FINISH %ELSE %START // 921 ! *LSS_0; *J_%TOS // 922 ! %FINISH // 923 BIP(999): ! REPEATED PHRASE #line 923 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_999:; // 924 A(RR)=ALT; P=PP #line 924 "regression-compile-tmp/nrimp10s-77.imp" A[RR] = ALT; #line 924 "regression-compile-tmp/nrimp10s-77.imp" P = PP; // 925 ->COMM #line 925 "regression-compile-tmp/nrimp10s-77.imp" goto U_1004; // 926 BIP(1000):FINI: ! NULL ALWAYS LAST & OK #line 926 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1000:; #line 926 "regression-compile-tmp/nrimp10s-77.imp" U_1007:; // 927 A(RR)=ALT #line 927 "regression-compile-tmp/nrimp10s-77.imp" A[RR] = ALT; // 928 ! %IF USE IMP=YES %THEN %START // 929 %RESULT=1 #line 929 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return 1; // 930 ! %FINISH %ELSE %START // 931 ! *LSS_1; *J_%TOS // 932 ! %FINISH // 933 BIP(1001): ! PHRASE NAME #line 933 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1001:; // 934 BIP(1004): ! PHRASE OLDNAME #line 934 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1004:; // 935 I=CC(Q); ! OBTAIN CURRENT CHARACTER #line 935 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 936 ->FAIL %UNLESS TRTAB(I)=2 #line 936 "regression-compile-tmp/nrimp10s-77.imp" if (((TRTAB[I]) == (2))) goto L_0063; #line 936 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 936 "regression-compile-tmp/nrimp10s-77.imp" L_0063:; // 937 PNAME(ITEM-1004) #line 937 "regression-compile-tmp/nrimp10s-77.imp" PNAME((((int)(ITEM)) - (1004))); // 938 ->SUCC %IF HIT=1; ->FAIL #line 938 "regression-compile-tmp/nrimp10s-77.imp" if (((HIT) != (1))) goto L_0064; #line 938 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; #line 938 "regression-compile-tmp/nrimp10s-77.imp" L_0064:; #line 938 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; // 939 BIP(1002): ! PHRASE INTEGER CONSTANT #line 939 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1002:; // 940 BIP(1003): ! PHRASE CONST #line 940 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1003:; // 941 CONST(ITEM-1003) #line 941 "regression-compile-tmp/nrimp10s-77.imp" CONST((((int)(ITEM)) - (1003))); // 942 ->FAIL %IF HIT=0 #line 942 "regression-compile-tmp/nrimp10s-77.imp" if (((HIT) != (0))) goto L_0065; #line 942 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 942 "regression-compile-tmp/nrimp10s-77.imp" L_0065:; // 943 ->SUCC #line 943 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 944 BIP(1005): ! PHRASE N #line 944 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1005:; // 945 I=CC(Q); ! OBTAIN CURRENT CHARACTER #line 945 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 946 ->FAIL %UNLESS '0'<=I<='9' #line 946 "regression-compile-tmp/nrimp10s-77.imp" if ((((48) > (I))) || (((I) <= (57)))) goto L_0066; #line 946 "regression-compile-tmp/nrimp10s-77.imp" L_005f:; #line 946 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 946 "regression-compile-tmp/nrimp10s-77.imp" L_0066:; // 947 S=0 #line 947 "regression-compile-tmp/nrimp10s-77.imp" S = 0; // 948 %WHILE '0'<=I<='9' %CYCLE #line 948 "regression-compile-tmp/nrimp10s-77.imp" L_0067:; #line 948 "regression-compile-tmp/nrimp10s-77.imp" if ((((48) > (I))) || (((I) > (57)))) goto L_0068; // 949 S=10*S+I&15 #line 949 "regression-compile-tmp/nrimp10s-77.imp" S = ((((((int)(10)) * (S)))) + (((I) & (15)))); // 950 Q=Q+1; I=CC(Q) #line 950 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 950 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 951 %REPEAT #line 951 "regression-compile-tmp/nrimp10s-77.imp" goto L_0067; #line 951 "regression-compile-tmp/nrimp10s-77.imp" L_0068:; // 952 TOAR2(R,S) #line 952 "regression-compile-tmp/nrimp10s-77.imp" TOAR2(R, S); // 953 R=R+2; ->SUCC #line 953 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (2)); #line 953 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 954 BIP(1006): ! PHRASE S=SEPARATOR #line 954 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1006:; // 955 I=CC(Q); ! OBTAIN CURRENT CHARACTER #line 955 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 956 ->SUCC %IF I=NL #line 956 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (10))) goto L_006a; #line 956 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; #line 956 "regression-compile-tmp/nrimp10s-77.imp" L_006a:; // 957 ->FAIL %UNLESS I=';' #line 957 "regression-compile-tmp/nrimp10s-77.imp" if (((I) == (59))) goto L_006b; #line 957 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 957 "regression-compile-tmp/nrimp10s-77.imp" L_006b:; // 958 Q=Q+1; ->SUCC #line 958 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 958 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 959 BIP(1007): #line 959 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1007:; // 960 ! PHRASE COMMENT TEXT // 961 I=CC(Q); ! OBTAIN CURRENT CHARACTER #line 961 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 962 J=I #line 962 "regression-compile-tmp/nrimp10s-77.imp" J = I; // 963 ->TX %IF I=';' %OR I=NL #line 963 "regression-compile-tmp/nrimp10s-77.imp" if (((I) == (59))) goto L_0069; #line 963 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (10))) goto L_006c; #line 963 "regression-compile-tmp/nrimp10s-77.imp" L_0069:; #line 963 "regression-compile-tmp/nrimp10s-77.imp" goto U_100b; #line 963 "regression-compile-tmp/nrimp10s-77.imp" L_006c:; // 964 ->FAIL %UNLESS I='!' %OR I='|' %OR (I='C'+128 %AND CC(Q+1)='O'+128 %AND CC(Q+2)=CC(Q+3)='M'+128 %AND CC(Q+4)='E'+128 %AND CC(Q+5)='N'+128 %AND CC(Q+6)='T'+128) #line 964 "regression-compile-tmp/nrimp10s-77.imp" if (((I) == (33))) goto L_006d; #line 964 "regression-compile-tmp/nrimp10s-77.imp" if (((I) == (124))) goto L_006d; #line 964 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (195))) goto L_006e; #line 964 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) + (1))]) != (207))) goto L_006e; #line 964 "regression-compile-tmp/nrimp10s-77.imp" if ((((CC[(((int)(Q)) + (2))]) != (CC[(((int)(Q)) + (3))]))) || (((CC[(((int)(Q)) + (3))]) != (205)))) goto L_006e; #line 964 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) + (4))]) != (197))) goto L_006e; #line 964 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) + (5))]) != (206))) goto L_006e; #line 964 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) + (6))]) == (212))) goto L_006d; #line 964 "regression-compile-tmp/nrimp10s-77.imp" L_006e:; #line 964 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 964 "regression-compile-tmp/nrimp10s-77.imp" L_006d:; // 965 Q=Q+1+6*(I>>7); J=CC(Q) #line 965 "regression-compile-tmp/nrimp10s-77.imp" Q = ((((((int)(Q)) + (1)))) + (((6) * ((int)((int)((((unsigned int)(I)) >> (7)))))))); #line 965 "regression-compile-tmp/nrimp10s-77.imp" J = CC[Q]; // 966 %CYCLE #line 966 "regression-compile-tmp/nrimp10s-77.imp" L_006f:; // 967 %EXIT %IF J=NL %OR J=';' #line 967 "regression-compile-tmp/nrimp10s-77.imp" if (((J) == (10))) goto L_0055; #line 967 "regression-compile-tmp/nrimp10s-77.imp" if (((J) != (59))) goto L_0072; #line 967 "regression-compile-tmp/nrimp10s-77.imp" L_0055:; #line 967 "regression-compile-tmp/nrimp10s-77.imp" goto L_0070; #line 967 "regression-compile-tmp/nrimp10s-77.imp" L_0072:; // 968 Q=Q+1; J=CC(Q) #line 968 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 968 "regression-compile-tmp/nrimp10s-77.imp" J = CC[Q]; // 969 %REPEAT #line 969 "regression-compile-tmp/nrimp10s-77.imp" goto L_006f; #line 969 "regression-compile-tmp/nrimp10s-77.imp" L_0070:; // 970 TX: Q=Q+1 %IF J=';' #line 970 "regression-compile-tmp/nrimp10s-77.imp" U_100b:; #line 970 "regression-compile-tmp/nrimp10s-77.imp" if (((J) != (59))) goto L_0073; #line 970 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 970 "regression-compile-tmp/nrimp10s-77.imp" L_0073:; // 971 ->SUCC #line 971 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 972 BIP(1008): ! PHRASE BIGHOLE #line 972 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1008:; // 973 TO AR4(R,0) #line 973 "regression-compile-tmp/nrimp10s-77.imp" TOAR4(R, 0); // 974 R=R+4; ->SUCC #line 974 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (4)); #line 974 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 975 BIP(1009): ! PHRASE N255 #line 975 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1009:; // 976 I=CC(Q); ! OBTAIN CURRENT CHARACTER #line 976 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 977 ->FAIL %UNLESS '0'<=I<='9' #line 977 "regression-compile-tmp/nrimp10s-77.imp" if ((((48) > (I))) || (((I) <= (57)))) goto L_0074; #line 977 "regression-compile-tmp/nrimp10s-77.imp" L_0071:; #line 977 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 977 "regression-compile-tmp/nrimp10s-77.imp" L_0074:; // 978 S=0 #line 978 "regression-compile-tmp/nrimp10s-77.imp" S = 0; // 979 %WHILE '0'<=I<='9' %CYCLE #line 979 "regression-compile-tmp/nrimp10s-77.imp" L_0075:; #line 979 "regression-compile-tmp/nrimp10s-77.imp" if ((((48) > (I))) || (((I) > (57)))) goto L_0076; // 980 S=10*S+I&15 #line 980 "regression-compile-tmp/nrimp10s-77.imp" S = ((((((int)(10)) * (S)))) + (((I) & (15)))); // 981 Q=Q+1; I=CC(Q) #line 981 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 981 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 982 %REPEAT #line 982 "regression-compile-tmp/nrimp10s-77.imp" goto L_0075; #line 982 "regression-compile-tmp/nrimp10s-77.imp" L_0076:; // 983 ->FAIL %UNLESS 0<=S<=255 #line 983 "regression-compile-tmp/nrimp10s-77.imp" if ((((0) > (S))) || (((S) <= (255)))) goto L_0078; #line 983 "regression-compile-tmp/nrimp10s-77.imp" L_0077:; #line 983 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 983 "regression-compile-tmp/nrimp10s-77.imp" L_0078:; // 984 A(R)=S; ->UPR #line 984 "regression-compile-tmp/nrimp10s-77.imp" A[R] = S; #line 984 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; // 985 BIP(1010): ! PHRASE HOLE #line 985 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1010:; // 986 MARKER=R; R=R+2; ->SUCC #line 986 "regression-compile-tmp/nrimp10s-77.imp" MARKER = R; #line 986 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (2)); #line 986 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 987 BIP(1011): ! PHRASE MARK #line 987 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1011:; // 988 I=R-MARKER #line 988 "regression-compile-tmp/nrimp10s-77.imp" I = (((int)(R)) - (MARKER)); // 989 A(MARKER+1)<-I #line 989 "regression-compile-tmp/nrimp10s-77.imp" A[(((int)(MARKER)) + (1))] = I; // 990 A(MARKER)<-I>>8 #line 990 "regression-compile-tmp/nrimp10s-77.imp" A[MARKER] = (int)((((unsigned int)(I)) >> (8))); // 991 ->SUCC #line 991 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 992 BIP(1012): ! PHRASE READLINE? #line 992 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1012:; // 993 I=CC(Q); ! OBTAIN CURRENT CHARACTER #line 993 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 994 %WHILE I=NL %%CYCLE #line 994 "regression-compile-tmp/nrimp10s-77.imp" L_0079:; #line 994 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (10))) goto L_007a; // 995 READLINE(0,0) #line 995 "regression-compile-tmp/nrimp10s-77.imp" READLINE(0, 0); // 996 RQ=1 #line 996 "regression-compile-tmp/nrimp10s-77.imp" RQ = 1; // 997 I=CC(Q) #line 997 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 998 %REPEAT #line 998 "regression-compile-tmp/nrimp10s-77.imp" goto L_0079; #line 998 "regression-compile-tmp/nrimp10s-77.imp" L_007a:; // 999 FAULT(102,0) %IF R>ARSIZE #line 999 "regression-compile-tmp/nrimp10s-77.imp" if (((R) <= (ARSIZE))) goto L_007c; #line 999 "regression-compile-tmp/nrimp10s-77.imp" FAULT(102, 0); #line 999 "regression-compile-tmp/nrimp10s-77.imp" L_007c:; // 1000 ->SUCC #line 1000 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1001 BIP(1013): ! PHRASE CHECKIMPS #line 1001 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1013:; // 1002 ->FAIL %UNLESS IMPS=1; ->SUCC #line 1002 "regression-compile-tmp/nrimp10s-77.imp" if (((IMPS) == (1))) goto L_007d; #line 1002 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 1002 "regression-compile-tmp/nrimp10s-77.imp" L_007d:; #line 1002 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1003 BIP(1014): ! PHRASE DUMMY APP #line 1003 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1014:; // 1004 A(R)=2; A(R+1)=2 #line 1004 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 2; #line 1004 "regression-compile-tmp/nrimp10s-77.imp" A[(((int)(R)) + (1))] = 2; // 1005 R=R+2; ->SUCC #line 1005 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (2)); #line 1005 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1006 BIP(1015): ! PHRASE DOWN=NEW TEXT LEVEL #line 1006 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1015:; // 1007 LEVEL=LEVEL+1 #line 1007 "regression-compile-tmp/nrimp10s-77.imp" LEVEL = (((int)(LEVEL)) + (1)); // 1008 TO AR4(R,0) #line 1008 "regression-compile-tmp/nrimp10s-77.imp" TOAR4(R, 0); // 1009 DISPLAY(LEVEL)=R #line 1009 "regression-compile-tmp/nrimp10s-77.imp" DISPLAY[LEVEL] = R; // 1010 SFS(LEVEL)=0 #line 1010 "regression-compile-tmp/nrimp10s-77.imp" SFS[LEVEL] = 0; // 1011 R=R+4 #line 1011 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (4)); // 1012 ->SUCC #line 1012 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1013 BIP(1016): ! PHRASE UP 1 TEXTUAL LEVEL #line 1013 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1016:; // 1014 DISPLAY(LEVEL)=0 #line 1014 "regression-compile-tmp/nrimp10s-77.imp" DISPLAY[LEVEL] = 0; // 1015 %WHILE SFS(LEVEL)#0 %CYCLE #line 1015 "regression-compile-tmp/nrimp10s-77.imp" L_007e:; #line 1015 "regression-compile-tmp/nrimp10s-77.imp" if (((SFS[LEVEL]) == (0))) goto L_007f; // 1016 POP(SFS(LEVEL),I,J,K) #line 1016 "regression-compile-tmp/nrimp10s-77.imp" POP(&SFS[LEVEL], &I, &J, &K); // 1017 %IF I=1 %THEN FAULT2(53,K,0); ! FINISH MISSING #line 1017 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (1))) goto L_0081; #line 1017 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(53, K, 0); #line 1017 "regression-compile-tmp/nrimp10s-77.imp" L_0081:; // 1018 %IF I=2 %THEN FAULT2(13,K,0); ! %REPEAT MISSING #line 1018 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (2))) goto L_0082; #line 1018 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(13, K, 0); #line 1018 "regression-compile-tmp/nrimp10s-77.imp" L_0082:; // 1019 %REPEAT #line 1019 "regression-compile-tmp/nrimp10s-77.imp" goto L_007e; #line 1019 "regression-compile-tmp/nrimp10s-77.imp" L_007f:; // 1020 LEVEL=LEVEL-1 #line 1020 "regression-compile-tmp/nrimp10s-77.imp" LEVEL = (((int)(LEVEL)) - (1)); // 1021 ->SUCC #line 1021 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1022 BIP(1017): ! PHRASE LISTON #line 1022 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1017:; // 1023 LIST=1; ->SUCC #line 1023 "regression-compile-tmp/nrimp10s-77.imp" LIST = 1; #line 1023 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1024 BIP(1018): ! PHRASE LISTOFF #line 1024 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1018:; // 1025 LIST=0; ->SUCC #line 1025 "regression-compile-tmp/nrimp10s-77.imp" LIST = 0; #line 1025 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1026 BIP(1019): ! PHRASE COLON FOR LABEL #line 1026 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1019:; // 1027 ->FAIL %UNLESS CC(Q-1)=':' #line 1027 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) - (1))]) == (58))) goto L_0083; #line 1027 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 1027 "regression-compile-tmp/nrimp10s-77.imp" L_0083:; // 1028 ->SUCC #line 1028 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1029 BIP(1020): ! PHRASE NOTE CONST #line 1029 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1020:; // 1030 %IF CTYPE=5 %THEN TOAR4(S-4,STRLINK) %AND STRLINK=S-4 #line 1030 "regression-compile-tmp/nrimp10s-77.imp" if (((CTYPE) != (5))) goto L_0084; #line 1030 "regression-compile-tmp/nrimp10s-77.imp" TOAR4((((int)(S)) - (4)), STRLINK); #line 1030 "regression-compile-tmp/nrimp10s-77.imp" STRLINK = (((int)(S)) - (4)); #line 1030 "regression-compile-tmp/nrimp10s-77.imp" L_0084:; // 1031 ->SUCC #line 1031 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1032 BIP(1021): ! TRACE FOR ON CONDITIONS #line 1032 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1021:; // 1033 PARMTRACE=1; ->SUCC #line 1033 "regression-compile-tmp/nrimp10s-77.imp" PARMTRACE = 1; #line 1033 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1034 BIP(1022): ! SET MNEMONIC #line 1034 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1022:; // 1035 I=CC(Q); ! OBTAIN CURRENT CHARACTER #line 1035 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1036 S=M' ' #line 1036 "regression-compile-tmp/nrimp10s-77.imp" S = 538976288; // 1037 %WHILE 'A'<=I<='Z' %CYCLE #line 1037 "regression-compile-tmp/nrimp10s-77.imp" L_0085:; #line 1037 "regression-compile-tmp/nrimp10s-77.imp" if ((((65) > (I))) || (((I) > (90)))) goto L_0086; // 1038 S=S<<8!I; Q=Q+1; I=CC(Q) #line 1038 "regression-compile-tmp/nrimp10s-77.imp" S = ((((S) << (8))) | (I)); #line 1038 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1038 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1039 %REPEAT #line 1039 "regression-compile-tmp/nrimp10s-77.imp" goto L_0085; #line 1039 "regression-compile-tmp/nrimp10s-77.imp" L_0086:; // 1040 ->FAIL %UNLESS I='_' %AND S#M' ' #line 1040 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (95))) goto L_0087; #line 1040 "regression-compile-tmp/nrimp10s-77.imp" if (((S) != (538976288))) goto L_0088; #line 1040 "regression-compile-tmp/nrimp10s-77.imp" L_0087:; #line 1040 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 1040 "regression-compile-tmp/nrimp10s-77.imp" L_0088:; // 1041 Q=Q+1; ->SUCC #line 1041 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1041 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1042 BIP(1023): ! PRIMARY FORMAT MNEMOINC #line 1042 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1023:; // 1043 %CYCLE I=7,1,126 #line 1043 "regression-compile-tmp/nrimp10s-77.imp" I = 6; if ((((126)-(7)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 7, 1, 126"); L_0089:; if (I == 126) goto L_008a; I += 1; // 1044 ->PFND %IF OPC(I)=S #line 1044 "regression-compile-tmp/nrimp10s-77.imp" if (((OPC[I]) != (S))) goto L_008c; #line 1044 "regression-compile-tmp/nrimp10s-77.imp" goto U_100c; #line 1044 "regression-compile-tmp/nrimp10s-77.imp" L_008c:; // 1045 %REPEAT #line 1045 "regression-compile-tmp/nrimp10s-77.imp" goto L_0089; #line 1045 "regression-compile-tmp/nrimp10s-77.imp" L_008a:; // 1046 ->FAIL #line 1046 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; // 1047 PFND: #line 1047 "regression-compile-tmp/nrimp10s-77.imp" U_100c:; // 1048 ->FAIL %IF 8<=I>>3<=11 %AND I&7<=3 #line 1048 "regression-compile-tmp/nrimp10s-77.imp" if ((((8) > ((int)((((unsigned int)(I)) >> (3)))))) || ((((int)((((unsigned int)(I)) >> (3)))) > (11)))) goto L_008d; #line 1048 "regression-compile-tmp/nrimp10s-77.imp" if (((((I) & (7))) > (3))) goto L_008d; #line 1048 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 1048 "regression-compile-tmp/nrimp10s-77.imp" L_008d:; // 1049 A(R)=2*I; ->UPR #line 1049 "regression-compile-tmp/nrimp10s-77.imp" A[R] = (((int)(2)) * (I)); #line 1049 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; // 1050 BIP(1024): ! SECONDARY FORMAT MNEMONIC #line 1050 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1024:; // 1051 %CYCLE I=64,8,88 #line 1051 "regression-compile-tmp/nrimp10s-77.imp" I = 56; if ((((88)-(64)) % (8)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 64, 8, 88"); L_008e:; if (I == 88) goto L_008f; I += 8; // 1052 %CYCLE J=0,1,3 #line 1052 "regression-compile-tmp/nrimp10s-77.imp" J = (-1); if ((((3)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 0, 1, 3"); L_0091:; if (J == 3) goto L_0092; J += 1; // 1053 ->SFND %IF OPC(I+J)=S #line 1053 "regression-compile-tmp/nrimp10s-77.imp" if (((OPC[(((int)(I)) + (J))]) != (S))) goto L_0094; #line 1053 "regression-compile-tmp/nrimp10s-77.imp" goto U_100d; #line 1053 "regression-compile-tmp/nrimp10s-77.imp" L_0094:; // 1054 %REPEAT #line 1054 "regression-compile-tmp/nrimp10s-77.imp" goto L_0091; #line 1054 "regression-compile-tmp/nrimp10s-77.imp" L_0092:; // 1055 %REPEAT #line 1055 "regression-compile-tmp/nrimp10s-77.imp" goto L_008e; #line 1055 "regression-compile-tmp/nrimp10s-77.imp" L_008f:; // 1056 ->FAIL #line 1056 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; // 1057 SFND: A(R)=2*(I+J); ->UPR #line 1057 "regression-compile-tmp/nrimp10s-77.imp" U_100d:; #line 1057 "regression-compile-tmp/nrimp10s-77.imp" A[R] = ((2) * ((int)((((int)(I)) + (J))))); #line 1057 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; // 1058 BIP(1025): ! TERTIARY FORMAT MNEMONIC #line 1058 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1025:; // 1059 %CYCLE I=3,-1,1 #line 1059 "regression-compile-tmp/nrimp10s-77.imp" I = 4; if ((((1)-(3)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle I = 3, (-1), 1"); L_0095:; if (I == 1) goto L_0096; I += (-1); // 1060 %IF OPC(I)=S %THEN A(R)=2*I %AND ->UPR #line 1060 "regression-compile-tmp/nrimp10s-77.imp" if (((OPC[I]) != (S))) goto L_0098; #line 1060 "regression-compile-tmp/nrimp10s-77.imp" A[R] = (((int)(2)) * (I)); #line 1060 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1060 "regression-compile-tmp/nrimp10s-77.imp" L_0098:; // 1061 %REPEAT; ->FAIL #line 1061 "regression-compile-tmp/nrimp10s-77.imp" goto L_0095; #line 1061 "regression-compile-tmp/nrimp10s-77.imp" L_0096:; #line 1061 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; // 1062 BIP(1026): ! P(OP)=+,-,&,****,**,*,!!,!, #line 1062 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1026:; // 1063 ! //,/,>>,<<,.,\\,\; // 1064 I=CC(Q); ! OBTAIN CURRENT CHARACTER #line 1064 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1065 ->FAIL %UNLESS 32>((I-32)&31)&16_4237000A#0 #line 1065 "regression-compile-tmp/nrimp10s-77.imp" if ((((32) >= (I))) || (((I) >= (127)))) goto L_0097; #line 1065 "regression-compile-tmp/nrimp10s-77.imp" if ((((((int)((((unsigned int)((-2147483648))) >> ((((((int)(I)) - (32))) & (31)))))) & (1110900746))) != (0))) goto L_0099; #line 1065 "regression-compile-tmp/nrimp10s-77.imp" L_0097:; #line 1065 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 1065 "regression-compile-tmp/nrimp10s-77.imp" L_0099:; // 1066 Q=Q+1 #line 1066 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); // 1067 %IF I='+' %THEN A(R)=1 %AND ->UPR #line 1067 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (43))) goto L_009a; #line 1067 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 1; #line 1067 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1067 "regression-compile-tmp/nrimp10s-77.imp" L_009a:; // 1068 %IF I='-' %THEN A(R)=2 %AND ->UPR #line 1068 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (45))) goto L_009b; #line 1068 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 2; #line 1068 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1068 "regression-compile-tmp/nrimp10s-77.imp" L_009b:; // 1069 %IF I='&' %THEN A(R)=3 %AND ->UPR #line 1069 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (38))) goto L_009c; #line 1069 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 3; #line 1069 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1069 "regression-compile-tmp/nrimp10s-77.imp" L_009c:; // 1070 J=CC(Q) #line 1070 "regression-compile-tmp/nrimp10s-77.imp" J = CC[Q]; // 1071 %IF I='*' %THEN %START #line 1071 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (42))) goto L_009d; // 1072 %IF J#I %THEN A(R)=6 %AND ->UPR #line 1072 "regression-compile-tmp/nrimp10s-77.imp" if (((J) == (I))) goto L_009e; #line 1072 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 6; #line 1072 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1072 "regression-compile-tmp/nrimp10s-77.imp" L_009e:; // 1073 %IF CC(Q+1)=I=CC(Q+2) %THEN A(R)=4 %AND Q=Q+3 %AND ->UPR #line 1073 "regression-compile-tmp/nrimp10s-77.imp" if ((((CC[(((int)(Q)) + (1))]) != (I))) || (((I) != (CC[(((int)(Q)) + (2))])))) goto L_009f; #line 1073 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 4; #line 1073 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (3)); #line 1073 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1073 "regression-compile-tmp/nrimp10s-77.imp" L_009f:; // 1074 A(R)=5; Q=Q+1; ->UPR #line 1074 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 5; #line 1074 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1074 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; // 1075 %FINISH #line 1075 "regression-compile-tmp/nrimp10s-77.imp" L_009d:; // 1076 %IF I='/' %THEN %START #line 1076 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (47))) goto L_00a0; // 1077 %IF J#I %THEN A(R)=10 %AND ->UPR #line 1077 "regression-compile-tmp/nrimp10s-77.imp" if (((J) == (I))) goto L_00a1; #line 1077 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 10; #line 1077 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1077 "regression-compile-tmp/nrimp10s-77.imp" L_00a1:; // 1078 A(R)=9; Q=Q+1; ->UPR #line 1078 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 9; #line 1078 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1078 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; // 1079 %FINISH #line 1079 "regression-compile-tmp/nrimp10s-77.imp" L_00a0:; // 1080 %IF I='!' %THEN %START #line 1080 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (33))) goto L_00a2; // 1081 %IF J#I %THEN A(R)=8 %AND ->UPR #line 1081 "regression-compile-tmp/nrimp10s-77.imp" if (((J) == (I))) goto L_00a3; #line 1081 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 8; #line 1081 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1081 "regression-compile-tmp/nrimp10s-77.imp" L_00a3:; // 1082 A(R)=7; Q=Q+1; ->UPR #line 1082 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 7; #line 1082 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1082 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; // 1083 %FINISH #line 1083 "regression-compile-tmp/nrimp10s-77.imp" L_00a2:; // 1084 %IF I='.' %THEN A(R)=13 %AND ->UPR #line 1084 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (46))) goto L_00a4; #line 1084 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 13; #line 1084 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1084 "regression-compile-tmp/nrimp10s-77.imp" L_00a4:; // 1085 %IF I=J='<' %THEN A(R)=12 %AND Q=Q+1 %AND ->UPR #line 1085 "regression-compile-tmp/nrimp10s-77.imp" if ((((I) != (J))) || (((J) != (60)))) goto L_00a5; #line 1085 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 12; #line 1085 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1085 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1085 "regression-compile-tmp/nrimp10s-77.imp" L_00a5:; // 1086 %IF I=J='>' %THEN A(R)=11 %AND Q=Q+1 %AND ->UPR #line 1086 "regression-compile-tmp/nrimp10s-77.imp" if ((((I) != (J))) || (((J) != (62)))) goto L_00a6; #line 1086 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 11; #line 1086 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1086 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1086 "regression-compile-tmp/nrimp10s-77.imp" L_00a6:; // 1087 %IF I='\' %THEN %START #line 1087 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (92))) goto L_00a7; // 1088 %IF J#I %THEN A(R)=15 %AND ->UPR #line 1088 "regression-compile-tmp/nrimp10s-77.imp" if (((J) == (I))) goto L_00a8; #line 1088 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 15; #line 1088 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1088 "regression-compile-tmp/nrimp10s-77.imp" L_00a8:; // 1089 Q=Q+1; A(R)=14; ->UPR #line 1089 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1089 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 14; #line 1089 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; // 1090 %FINISH #line 1090 "regression-compile-tmp/nrimp10s-77.imp" L_00a7:; // 1091 ->FAIL #line 1091 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; // 1092 BIP(1027): ! PHRASE CHECK UI #line 1092 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1027:; // 1093 I=CC(Q); ! OBTAIN CURRENT CHARACTER #line 1093 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1094 ->SUCC %IF TRTAB(I)=2 %OR I='-' #line 1094 "regression-compile-tmp/nrimp10s-77.imp" if (((TRTAB[I]) == (2))) goto L_00a9; #line 1094 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (45))) goto L_00aa; #line 1094 "regression-compile-tmp/nrimp10s-77.imp" L_00a9:; #line 1094 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; #line 1094 "regression-compile-tmp/nrimp10s-77.imp" L_00aa:; // 1095 ->SUCC %IF 16_80000000>>(I&31)&16_14043000#0 #line 1095 "regression-compile-tmp/nrimp10s-77.imp" if ((((((int)((((unsigned int)((-2147483648))) >> (((I) & (31)))))) & (335818752))) == (0))) goto L_00ab; #line 1095 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; #line 1095 "regression-compile-tmp/nrimp10s-77.imp" L_00ab:; // 1096 ->FAIL #line 1096 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; // 1097 BIP(1028): ! P(+')=+,-,\,0 #line 1097 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1028:; // 1098 I=CC(Q); ! OBTAIN CURRENT CHARACTER #line 1098 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1099 %IF I='\' %OR I=16_7E %THEN A(R)=3 %AND Q=Q+1 %AND ->UPR #line 1099 "regression-compile-tmp/nrimp10s-77.imp" if (((I) == (92))) goto L_00ac; #line 1099 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (126))) goto L_00ad; #line 1099 "regression-compile-tmp/nrimp10s-77.imp" L_00ac:; #line 1099 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 3; #line 1099 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1099 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1099 "regression-compile-tmp/nrimp10s-77.imp" L_00ad:; // 1100 %IF I='-' %THEN A(R)=2 %AND Q=Q+1 %AND ->UPR #line 1100 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (45))) goto L_00ae; #line 1100 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 2; #line 1100 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1100 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1100 "regression-compile-tmp/nrimp10s-77.imp" L_00ae:; // 1101 %IF I='+' %THEN A(R)=1 %AND Q=Q+1 %AND ->UPR #line 1101 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (43))) goto L_00af; #line 1101 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 1; #line 1101 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1101 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1101 "regression-compile-tmp/nrimp10s-77.imp" L_00af:; // 1102 A(R)=4; ->UPR #line 1102 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 4; #line 1102 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; // 1103 BIP(1029): ! PHRASE NOTE CYCLE #line 1103 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1029:; // 1104 TOAR4(R,0) #line 1104 "regression-compile-tmp/nrimp10s-77.imp" TOAR4(R, 0); // 1105 PUSH(SFS(LEVEL),2,R,LINE) #line 1105 "regression-compile-tmp/nrimp10s-77.imp" PUSH(&SFS[LEVEL], 2, R, LINE); // 1106 R=R+4 #line 1106 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (4)); // 1107 ->SUCC #line 1107 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1108 BIP(1030): ! P(,')=',',0 #line 1108 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1030:; // 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 ! // 1114 I=CC(Q); ! OBTAIN CURRENT CHARACTER #line 1114 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1115 %IF I=')' %THEN ->FAIL #line 1115 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (41))) goto L_00b0; #line 1115 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 1115 "regression-compile-tmp/nrimp10s-77.imp" L_00b0:; // 1116 %IF I=',' %THEN Q=Q+1 #line 1116 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (44))) goto L_00b1; #line 1116 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1116 "regression-compile-tmp/nrimp10s-77.imp" L_00b1:; // 1117 ->SUCC #line 1117 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1118 BIP(1031): ! PHRASE CHECKTYPE IE ENSURE #line 1118 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1031:; // 1119 ! FIRST LETTER IS(B,H,I,L,R,S) & // 1120 ! 3RD LETTER IS (A,L,N,R,T) // 1121 I=CC(Q); ! OBTAIN CURRENT CHARACTER #line 1121 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1122 ->FAIL %UNLESS I>128 %AND 16_80000000>>(I&31)&16_20C83000#0 %AND 16_80000000>>(CC(Q+2)&31)&16_400A2800#0 #line 1122 "regression-compile-tmp/nrimp10s-77.imp" if (((I) <= (128))) goto L_00b2; #line 1122 "regression-compile-tmp/nrimp10s-77.imp" if ((((((int)((((unsigned int)((-2147483648))) >> (((I) & (31)))))) & (549990400))) == (0))) goto L_00b2; #line 1122 "regression-compile-tmp/nrimp10s-77.imp" if ((((((int)((((unsigned int)((-2147483648))) >> (((CC[(((int)(Q)) + (2))]) & (31)))))) & (1074407424))) != (0))) goto L_00b3; #line 1122 "regression-compile-tmp/nrimp10s-77.imp" L_00b2:; #line 1122 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 1122 "regression-compile-tmp/nrimp10s-77.imp" L_00b3:; // 1123 ->SUCC #line 1123 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1124 BIP(1032): ! PHRASE COMP1 #line 1124 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1032:; // 1125 BIP(1037): ! PHRASE COMP2(IS 2ND HALF OF DSIDED) #line 1125 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1037:; // 1126 I=CC(Q); ! OBTAIN CURRENT CHARACTER #line 1126 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1127 ->FAIL %UNLESS 32>(I&31)&16_1004000E#0 #line 1127 "regression-compile-tmp/nrimp10s-77.imp" if ((((32) >= (I))) || (((I) > (92)))) goto L_00b4; #line 1127 "regression-compile-tmp/nrimp10s-77.imp" if ((((((int)((((unsigned int)((-2147483648))) >> (((I) & (31)))))) & (268697614))) != (0))) goto L_00b5; #line 1127 "regression-compile-tmp/nrimp10s-77.imp" L_00b4:; #line 1127 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 1127 "regression-compile-tmp/nrimp10s-77.imp" L_00b5:; // 1128 ! '='=1,'>='=2,'>'=3 // 1129 ! '#' OR '\='=4,'<='=5,'<'=6 // 1130 ! 7UNUSED,'->'=8,'=='=9 // 1131 ! '##' OR '\==' =10 // 1132 %IF I='=' %THEN %START #line 1132 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (61))) goto L_00b6; // 1133 %IF CC(Q+1)=I %THEN J=9 %AND ->JOIN1 #line 1133 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) + (1))]) != (I))) goto L_00b7; #line 1133 "regression-compile-tmp/nrimp10s-77.imp" J = 9; #line 1133 "regression-compile-tmp/nrimp10s-77.imp" goto U_100e; #line 1133 "regression-compile-tmp/nrimp10s-77.imp" L_00b7:; // 1134 J=1; ->JOIN #line 1134 "regression-compile-tmp/nrimp10s-77.imp" J = 1; #line 1134 "regression-compile-tmp/nrimp10s-77.imp" goto U_100f; // 1135 %FINISH #line 1135 "regression-compile-tmp/nrimp10s-77.imp" L_00b6:; // 1136 %IF I='#' %THEN %START #line 1136 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (35))) goto L_00b8; // 1137 %IF CC(Q+1)=I %THEN J=10 %AND ->JOIN1 #line 1137 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) + (1))]) != (I))) goto L_00b9; #line 1137 "regression-compile-tmp/nrimp10s-77.imp" J = 10; #line 1137 "regression-compile-tmp/nrimp10s-77.imp" goto U_100e; #line 1137 "regression-compile-tmp/nrimp10s-77.imp" L_00b9:; // 1138 J=4; ->JOIN #line 1138 "regression-compile-tmp/nrimp10s-77.imp" J = 4; #line 1138 "regression-compile-tmp/nrimp10s-77.imp" goto U_100f; // 1139 %FINISH #line 1139 "regression-compile-tmp/nrimp10s-77.imp" L_00b8:; // 1140 %IF I='\' %AND CC(Q+1)='=' %THEN %START #line 1140 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (92))) goto L_00ba; #line 1140 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) + (1))]) != (61))) goto L_00ba; // 1141 Q=Q+1 #line 1141 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); // 1142 %IF CC(Q+1)='=' %THEN J=10 %AND ->JOIN1 #line 1142 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) + (1))]) != (61))) goto L_00bb; #line 1142 "regression-compile-tmp/nrimp10s-77.imp" J = 10; #line 1142 "regression-compile-tmp/nrimp10s-77.imp" goto U_100e; #line 1142 "regression-compile-tmp/nrimp10s-77.imp" L_00bb:; // 1143 J=4; ->JOIN #line 1143 "regression-compile-tmp/nrimp10s-77.imp" J = 4; #line 1143 "regression-compile-tmp/nrimp10s-77.imp" goto U_100f; // 1144 %FINISH #line 1144 "regression-compile-tmp/nrimp10s-77.imp" L_00ba:; // 1145 %IF I='>' %THEN %START #line 1145 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (62))) goto L_00bc; // 1146 %IF CC(Q+1)='=' %THEN J=2 %AND ->JOIN1 #line 1146 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) + (1))]) != (61))) goto L_00bd; #line 1146 "regression-compile-tmp/nrimp10s-77.imp" J = 2; #line 1146 "regression-compile-tmp/nrimp10s-77.imp" goto U_100e; #line 1146 "regression-compile-tmp/nrimp10s-77.imp" L_00bd:; // 1147 J=3; ->JOIN #line 1147 "regression-compile-tmp/nrimp10s-77.imp" J = 3; #line 1147 "regression-compile-tmp/nrimp10s-77.imp" goto U_100f; // 1148 %FINISH #line 1148 "regression-compile-tmp/nrimp10s-77.imp" L_00bc:; // 1149 %IF I='<' %THEN %START #line 1149 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (60))) goto L_00be; // 1150 %IF CC(Q+1)='=' %THEN J=5 %AND ->JOIN1 #line 1150 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) + (1))]) != (61))) goto L_00bf; #line 1150 "regression-compile-tmp/nrimp10s-77.imp" J = 5; #line 1150 "regression-compile-tmp/nrimp10s-77.imp" goto U_100e; #line 1150 "regression-compile-tmp/nrimp10s-77.imp" L_00bf:; // 1151 J=6; ->JOIN #line 1151 "regression-compile-tmp/nrimp10s-77.imp" J = 6; #line 1151 "regression-compile-tmp/nrimp10s-77.imp" goto U_100f; // 1152 %FINISH #line 1152 "regression-compile-tmp/nrimp10s-77.imp" L_00be:; // 1153 %IF I='-' %AND CC(Q+1)='>' %THEN J=8 %AND ->JOIN1 #line 1153 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (45))) goto L_00c0; #line 1153 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) + (1))]) != (62))) goto L_00c0; #line 1153 "regression-compile-tmp/nrimp10s-77.imp" J = 8; #line 1153 "regression-compile-tmp/nrimp10s-77.imp" goto U_100e; #line 1153 "regression-compile-tmp/nrimp10s-77.imp" L_00c0:; // 1154 ->FAIL #line 1154 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; // 1155 JOIN1:Q=Q+1 #line 1155 "regression-compile-tmp/nrimp10s-77.imp" U_100e:; #line 1155 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); // 1156 JOIN: Q=Q+1 #line 1156 "regression-compile-tmp/nrimp10s-77.imp" U_100f:; #line 1156 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); // 1157 A(R)=J #line 1157 "regression-compile-tmp/nrimp10s-77.imp" A[R] = J; // 1158 %IF ITEM=1032 %THEN SAVECOMP=J %AND ->UPR #line 1158 "regression-compile-tmp/nrimp10s-77.imp" if (((ITEM) != (1032))) goto L_00c1; #line 1158 "regression-compile-tmp/nrimp10s-77.imp" SAVECOMP = J; #line 1158 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1158 "regression-compile-tmp/nrimp10s-77.imp" L_00c1:; // 1159 ! SAVE J TO CHECK DSIDED // 1160 %IF SAVECOMP>6 %OR J>6 %THEN Q=Q-1 %AND ->FAIL;! ILLEGAL DSIDED #line 1160 "regression-compile-tmp/nrimp10s-77.imp" if (((SAVECOMP) > (6))) goto L_00c2; #line 1160 "regression-compile-tmp/nrimp10s-77.imp" if (((J) <= (6))) goto L_00c3; #line 1160 "regression-compile-tmp/nrimp10s-77.imp" L_00c2:; #line 1160 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) - (1)); #line 1160 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 1160 "regression-compile-tmp/nrimp10s-77.imp" L_00c3:; // 1161 ->UPR; ! NB OWNS WONT WORK IF #line 1161 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; // 1162 ! COND EXPRS ALLOWED AS THE // 1163 ! CAN BE NESTED! // 1164 BIP(1033): ! P(ASSOP)- ==,=,<-,-> #line 1164 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1033:; // 1165 I=CC(Q); ! OBTAIN CURRENT CHARACTER #line 1165 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1166 %IF I='=' %THEN %START #line 1166 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (61))) goto L_00c4; // 1167 %IF CC(Q+1)='=' %THEN A(R)=1 %AND Q=Q+2 %AND ->UPR #line 1167 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) + (1))]) != (61))) goto L_00c5; #line 1167 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 1; #line 1167 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (2)); #line 1167 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1167 "regression-compile-tmp/nrimp10s-77.imp" L_00c5:; // 1168 A(R)=2; Q=Q+1; ->UPR #line 1168 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 2; #line 1168 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1168 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; // 1169 %FINISH #line 1169 "regression-compile-tmp/nrimp10s-77.imp" L_00c4:; // 1170 %IF I='<' %AND CC(Q+1)='-' %THEN A(R)=3 %AND Q=Q+2 %AND ->UPR #line 1170 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (60))) goto L_00c6; #line 1170 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) + (1))]) != (45))) goto L_00c6; #line 1170 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 3; #line 1170 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (2)); #line 1170 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1170 "regression-compile-tmp/nrimp10s-77.imp" L_00c6:; // 1171 %IF I='-' %AND CC(Q+1)='>' %THEN A(R)=4 %AND Q=Q+2 %AND ->UPR #line 1171 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (45))) goto L_00c7; #line 1171 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) + (1))]) != (62))) goto L_00c7; #line 1171 "regression-compile-tmp/nrimp10s-77.imp" A[R] = 4; #line 1171 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (2)); #line 1171 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1171 "regression-compile-tmp/nrimp10s-77.imp" L_00c7:; // 1172 ->FAIL #line 1172 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; // 1173 BIP(1034): ! NOTE START #line 1173 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1034:; // 1174 TOAR4(R,0); ! HOLE FOR FORWARD PTR #line 1174 "regression-compile-tmp/nrimp10s-77.imp" TOAR4(R, 0); // 1175 PUSH(SFS(LEVEL),1,R,LINE) #line 1175 "regression-compile-tmp/nrimp10s-77.imp" PUSH(&SFS[LEVEL], 1, R, LINE); // 1176 R=R+4 #line 1176 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (4)); // 1177 ->SUCC #line 1177 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1178 BIP(1035): ! NOTE FINISH #line 1178 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1035:; // 1179 %IF SFS(LEVEL)=0 %THEN FAULT2(51,0,0) %AND ->SUCC #line 1179 "regression-compile-tmp/nrimp10s-77.imp" if (((SFS[LEVEL]) != (0))) goto L_00c8; #line 1179 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(51, 0, 0); #line 1179 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; #line 1179 "regression-compile-tmp/nrimp10s-77.imp" L_00c8:; // 1180 POP(SFS(LEVEL),I,J,K) #line 1180 "regression-compile-tmp/nrimp10s-77.imp" POP(&SFS[LEVEL], &I, &J, &K); // 1181 %IF I=2 %THEN FAULT2(59,K,0) #line 1181 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (2))) goto L_00c9; #line 1181 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(59, K, 0); #line 1181 "regression-compile-tmp/nrimp10s-77.imp" L_00c9:; // 1182 TOAR4(J,STARSTART) #line 1182 "regression-compile-tmp/nrimp10s-77.imp" TOAR4(J, STARSTART); // 1183 ->SUCC #line 1183 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1184 BIP(1036): ! NOTE REPEAT #line 1184 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1036:; // 1185 %IF SFS(LEVEL)=0 %THEN FAULT2(1,0,0) %AND ->SUCC #line 1185 "regression-compile-tmp/nrimp10s-77.imp" if (((SFS[LEVEL]) != (0))) goto L_00ca; #line 1185 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(1, 0, 0); #line 1185 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; #line 1185 "regression-compile-tmp/nrimp10s-77.imp" L_00ca:; // 1186 POP(SFS(LEVEL),I,J,K) #line 1186 "regression-compile-tmp/nrimp10s-77.imp" POP(&SFS[LEVEL], &I, &J, &K); // 1187 %IF I=1 %THEN FAULT2(52,K,0); ! START INSTEAD OF CYCLE #line 1187 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (1))) goto L_00cb; #line 1187 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(52, K, 0); #line 1187 "regression-compile-tmp/nrimp10s-77.imp" L_00cb:; // 1188 TOAR4(J,STARSTART) #line 1188 "regression-compile-tmp/nrimp10s-77.imp" TOAR4(J, STARSTART); // 1189 ->SUCC #line 1189 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1190 BIP(1038): ! INCLUDE "FILE" #line 1190 "regression-compile-tmp/nrimp10s-77.imp" sw1_BIP_1038:; // 1191 ->FAIL %IF VMEB=YES #line 1191 "regression-compile-tmp/nrimp10s-77.imp" if (((0) != (1))) goto L_00cc; #line 1191 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 1191 "regression-compile-tmp/nrimp10s-77.imp" L_00cc:; // 1192 I=CC(Q) #line 1192 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1193 ->FAIL %UNLESS I=NL %OR I=';' #line 1193 "regression-compile-tmp/nrimp10s-77.imp" if (((I) == (10))) goto L_00cd; #line 1193 "regression-compile-tmp/nrimp10s-77.imp" if (((I) == (59))) goto L_00cd; #line 1193 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 1193 "regression-compile-tmp/nrimp10s-77.imp" L_00cd:; // 1194 Q=Q+1 %IF I=';' #line 1194 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (59))) goto L_00ce; #line 1194 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1194 "regression-compile-tmp/nrimp10s-77.imp" L_00ce:; // 1195 ->FAIL %UNLESS CTYPE=5 #line 1195 "regression-compile-tmp/nrimp10s-77.imp" if (((CTYPE) == (5))) goto L_00cf; #line 1195 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 1195 "regression-compile-tmp/nrimp10s-77.imp" L_00cf:; // 1196 PUSH(IHEAD,FILEADDR,FILEPTR,FILEEND) #line 1196 "regression-compile-tmp/nrimp10s-77.imp" PUSH(&IHEAD, FILEADDR, FILEPTR, FILEEND); // 1197 CONSOURCE(STRING(ADDR(A(S))),FILEADDR);! DEPARTS IF FAILS #line 1197 "regression-compile-tmp/nrimp10s-77.imp" consource(*_imp_STRING(_imp_ADDR(&A[S])), &FILEADDR); // 1198 FILEPTR=FILEADDR+INTEGER(FILEADDR+4) #line 1198 "regression-compile-tmp/nrimp10s-77.imp" FILEPTR = (((int)(FILEADDR)) + (*_imp_INTEGER((((int)(FILEADDR)) + (4))))); // 1199 FILEEND=FILEADDR+INTEGER(FILEADDR) #line 1199 "regression-compile-tmp/nrimp10s-77.imp" FILEEND = (((int)(FILEADDR)) + (*_imp_INTEGER(FILEADDR))); // 1200 ->SUCC #line 1200 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; // 1201 %END; !OF ROUTINE 'COMPARE' #line 1201 "regression-compile-tmp/nrimp10s-77.imp" } // End of block COMPARE at level 4 // 1202 %ROUTINE PNAME(%INTEGER MODE) #line 1202 "regression-compile-tmp/nrimp10s-77.imp" void PNAME( int MODE ) #line 1202 "regression-compile-tmp/nrimp10s-77.imp" { // 1203 !*********************************************************************** // 1204 !* MODE=0 FOR OLD NAME(ALREADY IN DICT), MODE=1 FOR NEW NAME * // 1205 !*********************************************************************** // 1206 %CONSTINTEGERARRAY HASH(0:7)=71,47,97,79,29,37,53,59; #line 1206 "regression-compile-tmp/nrimp10s-77.imp" const int HASH[8] = { 71, 47, 97, 79, 29, 37, 53, 59, }; // 1207 %INTEGER JJ, KK, LL, FQ, FS, T, S, I #line 1207 "regression-compile-tmp/nrimp10s-77.imp" int JJ; #line 1207 "regression-compile-tmp/nrimp10s-77.imp" int KK; #line 1207 "regression-compile-tmp/nrimp10s-77.imp" int LL; #line 1207 "regression-compile-tmp/nrimp10s-77.imp" int FQ; #line 1207 "regression-compile-tmp/nrimp10s-77.imp" int FS; #line 1207 "regression-compile-tmp/nrimp10s-77.imp" int T; #line 1207 "regression-compile-tmp/nrimp10s-77.imp" int S; #line 1207 "regression-compile-tmp/nrimp10s-77.imp" int I; // 1208 %LONGINTEGER DRDES,ACCDES #line 1208 "regression-compile-tmp/nrimp10s-77.imp" long long int DRDES; #line 1208 "regression-compile-tmp/nrimp10s-77.imp" long long int ACCDES; // 1209 HIT=0; FQ=Q; FS=CC(Q) #line 1209 "regression-compile-tmp/nrimp10s-77.imp" HIT = 0; #line 1209 "regression-compile-tmp/nrimp10s-77.imp" FQ = Q; #line 1209 "regression-compile-tmp/nrimp10s-77.imp" FS = CC[Q]; // 1210 %RETURN %UNLESS TRTAB(FS)=2 %AND M'"'#CC(Q+1)#M'''' #line 1210 "regression-compile-tmp/nrimp10s-77.imp" if (((TRTAB[FS]) != (2))) goto L_00d0; #line 1210 "regression-compile-tmp/nrimp10s-77.imp" if ((((34) == (CC[(((int)(Q)) + (1))]))) || (((CC[(((int)(Q)) + (1))]) != (39)))) goto L_00d1; #line 1210 "regression-compile-tmp/nrimp10s-77.imp" L_00d0:; #line 1210 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 1210 "regression-compile-tmp/nrimp10s-77.imp" L_00d1:; // 1211 ! 1ST CHAR MUST BE LETTER // 1212 T=1 #line 1212 "regression-compile-tmp/nrimp10s-77.imp" T = 1; // 1213 LETT(NEXT+1)=FS; JJ=71*FS #line 1213 "regression-compile-tmp/nrimp10s-77.imp" LETT[(((int)(NEXT)) + (1))] = FS; #line 1213 "regression-compile-tmp/nrimp10s-77.imp" JJ = (((int)(71)) * (FS)); // 1214 ! %IF USE IMP=YES %THEN %START // 1215 %CYCLE #line 1215 "regression-compile-tmp/nrimp10s-77.imp" L_00d2:; // 1216 Q=Q+1 #line 1216 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); // 1217 I=CC(Q) #line 1217 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1218 %EXIT %IF TRTAB(I)=0 #line 1218 "regression-compile-tmp/nrimp10s-77.imp" if (((TRTAB[I]) != (0))) goto L_00d5; #line 1218 "regression-compile-tmp/nrimp10s-77.imp" goto L_00d3; #line 1218 "regression-compile-tmp/nrimp10s-77.imp" L_00d5:; // 1219 JJ=JJ+HASH(T) %IF T<=7 #line 1219 "regression-compile-tmp/nrimp10s-77.imp" if (((T) > (7))) goto L_00d6; #line 1219 "regression-compile-tmp/nrimp10s-77.imp" JJ = (((int)(JJ)) + (HASH[T])); #line 1219 "regression-compile-tmp/nrimp10s-77.imp" L_00d6:; // 1220 T=T+1 #line 1220 "regression-compile-tmp/nrimp10s-77.imp" T = (((int)(T)) + (1)); // 1221 LETT(NEXT+T)=I #line 1221 "regression-compile-tmp/nrimp10s-77.imp" LETT[(((int)(NEXT)) + (T))] = I; // 1222 %REPEAT #line 1222 "regression-compile-tmp/nrimp10s-77.imp" goto L_00d2; #line 1222 "regression-compile-tmp/nrimp10s-77.imp" L_00d3:; // 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 // 1248 LETT(NEXT)=T; ! INSERT LENGTH #line 1248 "regression-compile-tmp/nrimp10s-77.imp" LETT[NEXT] = T; // 1249 S=T+1 #line 1249 "regression-compile-tmp/nrimp10s-77.imp" S = (((int)(T)) + (1)); // 1250 FAULT(103,0) %IF NEXT+S>DSIZE;!DICTIONARY OVERFLOW #line 1250 "regression-compile-tmp/nrimp10s-77.imp" if ((((((int)(NEXT)) + (S))) <= (DSIZE))) goto L_00d7; #line 1250 "regression-compile-tmp/nrimp10s-77.imp" FAULT(103, 0); #line 1250 "regression-compile-tmp/nrimp10s-77.imp" L_00d7:; // 1251 JJ=(JJ+113*T)&NNAMES #line 1251 "regression-compile-tmp/nrimp10s-77.imp" JJ = ((((JJ) + ((int)((((int)(113)) * (T)))))) & (NNAMES)); // 1252 ! %IF USE IMP=YES %THEN %START // 1253 %CYCLE KK=JJ, 1, NNAMES #line 1253 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = JJ; _increment = 1; _final = NNAMES; KK = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = JJ, 1, NNAMES"); KK -= _increment; _control -= _increment; L_00d8:; if (KK == _final) goto L_00d9; KK += _increment; _control += _increment; if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */ } // 1254 LL=WORD(KK) #line 1254 "regression-compile-tmp/nrimp10s-77.imp" LL = WORD[KK]; // 1255 ->HOLE %IF LL=0; ! NAME NOT KNOWN #line 1255 "regression-compile-tmp/nrimp10s-77.imp" if (((LL) != (0))) goto L_00db; #line 1255 "regression-compile-tmp/nrimp10s-77.imp" goto U_1010; #line 1255 "regression-compile-tmp/nrimp10s-77.imp" L_00db:; // 1256 ->FND %IF STRING(ADDR(LETT(NEXT)))=STRING(ADDR(LETT(LL))) #line 1256 "regression-compile-tmp/nrimp10s-77.imp" if ((_imp_strcmp(*_imp_STRING(_imp_ADDR(&LETT[NEXT])), *_imp_STRING(_imp_ADDR(&LETT[LL]))) != 0)) goto L_00dc; #line 1256 "regression-compile-tmp/nrimp10s-77.imp" goto U_1011; #line 1256 "regression-compile-tmp/nrimp10s-77.imp" L_00dc:; // 1257 %REPEAT #line 1257 "regression-compile-tmp/nrimp10s-77.imp" goto L_00d8; #line 1257 "regression-compile-tmp/nrimp10s-77.imp" L_00d9:; // 1258 %CYCLE KK=0,1,JJ #line 1258 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = JJ; KK = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 0, 1, JJ"); KK -= _increment; _control -= _increment; L_00dd:; if (KK == _final) goto L_00de; KK += _increment; _control += _increment; if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */ } // 1259 LL=WORD(KK) #line 1259 "regression-compile-tmp/nrimp10s-77.imp" LL = WORD[KK]; // 1260 ->HOLE %IF LL=0; ! NAME NOT KNOWN #line 1260 "regression-compile-tmp/nrimp10s-77.imp" if (((LL) != (0))) goto L_00e0; #line 1260 "regression-compile-tmp/nrimp10s-77.imp" goto U_1010; #line 1260 "regression-compile-tmp/nrimp10s-77.imp" L_00e0:; // 1261 ->FND %IF STRING(ADDR(LETT(NEXT)))=STRING(ADDR(LETT(LL))) #line 1261 "regression-compile-tmp/nrimp10s-77.imp" if ((_imp_strcmp(*_imp_STRING(_imp_ADDR(&LETT[NEXT])), *_imp_STRING(_imp_ADDR(&LETT[LL]))) != 0)) goto L_00e1; #line 1261 "regression-compile-tmp/nrimp10s-77.imp" goto U_1011; #line 1261 "regression-compile-tmp/nrimp10s-77.imp" L_00e1:; // 1262 %REPEAT #line 1262 "regression-compile-tmp/nrimp10s-77.imp" goto L_00dd; #line 1262 "regression-compile-tmp/nrimp10s-77.imp" L_00de:; // 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 // 1297 FAULT(104, 0); ! TOO MANY NAMES #line 1297 "regression-compile-tmp/nrimp10s-77.imp" FAULT(104, 0); // 1298 HOLE: %IF MODE=0 %THEN Q=FQ %AND %RETURN #line 1298 "regression-compile-tmp/nrimp10s-77.imp" U_1010:; #line 1298 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) != (0))) goto L_00e2; #line 1298 "regression-compile-tmp/nrimp10s-77.imp" Q = FQ; #line 1298 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 1298 "regression-compile-tmp/nrimp10s-77.imp" L_00e2:; // 1299 WORD(KK)=NEXT; NEXT=NEXT+S #line 1299 "regression-compile-tmp/nrimp10s-77.imp" WORD[KK] = NEXT; #line 1299 "regression-compile-tmp/nrimp10s-77.imp" NEXT = (((int)(NEXT)) + (S)); // 1300 FND: LASTAT=FQ; HIT=1; LASTNAME=KK #line 1300 "regression-compile-tmp/nrimp10s-77.imp" U_1011:; #line 1300 "regression-compile-tmp/nrimp10s-77.imp" LASTAT = FQ; #line 1300 "regression-compile-tmp/nrimp10s-77.imp" HIT = 1; #line 1300 "regression-compile-tmp/nrimp10s-77.imp" LASTNAME = KK; // 1301 A(R+1)<-LASTNAME #line 1301 "regression-compile-tmp/nrimp10s-77.imp" A[(((int)(R)) + (1))] = LASTNAME; // 1302 A(R)=LASTNAME>>8; R=R+2 #line 1302 "regression-compile-tmp/nrimp10s-77.imp" A[R] = (int)((((unsigned int)(LASTNAME)) >> (8))); #line 1302 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (2)); // 1303 LASTEND=Q #line 1303 "regression-compile-tmp/nrimp10s-77.imp" LASTEND = Q; // 1304 %END #line 1304 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PNAME at level 4 // 1305 // 1306 // 1307 %ROUTINE CONST(%INTEGER MODE) #line 1307 "regression-compile-tmp/nrimp10s-77.imp" void CONST( int MODE ) #line 1307 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 1312 %INTEGER Z, DOTSEEN, EBCDIC, FS, CPREC, RR, S, T, SS #line 1312 "regression-compile-tmp/nrimp10s-77.imp" int Z; #line 1312 "regression-compile-tmp/nrimp10s-77.imp" int DOTSEEN; #line 1312 "regression-compile-tmp/nrimp10s-77.imp" int EBCDIC; #line 1312 "regression-compile-tmp/nrimp10s-77.imp" int FS; #line 1312 "regression-compile-tmp/nrimp10s-77.imp" int CPREC; #line 1312 "regression-compile-tmp/nrimp10s-77.imp" int RR; #line 1312 "regression-compile-tmp/nrimp10s-77.imp" int S; #line 1312 "regression-compile-tmp/nrimp10s-77.imp" int T; #line 1312 "regression-compile-tmp/nrimp10s-77.imp" int SS; // 1313 {%LONG}%LONGREAL X,CVALUE,DUMMY #line 1313 "regression-compile-tmp/nrimp10s-77.imp" double X; #line 1313 "regression-compile-tmp/nrimp10s-77.imp" double CVALUE; #line 1313 "regression-compile-tmp/nrimp10s-77.imp" double DUMMY; // 1314 %CONST{%LONG}%LONGREAL TEN=10.0 {R'41A00000000000000000000000000000' #line 1314 "regression-compile-tmp/nrimp10s-77.imp" const double TEN = 10.0; // 1315 CPREC=5; RR=R; R=R+1 #line 1315 "regression-compile-tmp/nrimp10s-77.imp" CPREC = 5; #line 1315 "regression-compile-tmp/nrimp10s-77.imp" RR = R; #line 1315 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (1)); // 1316 DOTSEEN=0; HIT=0 #line 1316 "regression-compile-tmp/nrimp10s-77.imp" DOTSEEN = 0; #line 1316 "regression-compile-tmp/nrimp10s-77.imp" HIT = 0; // 1317 CVALUE=0; DUMMY=0; FS=CC(Q) #line 1317 "regression-compile-tmp/nrimp10s-77.imp" CVALUE = 0; #line 1317 "regression-compile-tmp/nrimp10s-77.imp" DUMMY = 0; #line 1317 "regression-compile-tmp/nrimp10s-77.imp" FS = CC[Q]; // 1318 S=0; ->N %IF M'0'<=FS<=M'9' #line 1318 "regression-compile-tmp/nrimp10s-77.imp" S = 0; #line 1318 "regression-compile-tmp/nrimp10s-77.imp" if ((((48) > (FS))) || (((FS) > (57)))) goto L_00e3; #line 1318 "regression-compile-tmp/nrimp10s-77.imp" goto U_1012; #line 1318 "regression-compile-tmp/nrimp10s-77.imp" L_00e3:; // 1319 ->DOT %IF FS='.' %AND MODE=0 %AND '0'<=CC(Q+1)<='9' #line 1319 "regression-compile-tmp/nrimp10s-77.imp" if (((FS) != (46))) goto L_00e4; #line 1319 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) != (0))) goto L_00e4; #line 1319 "regression-compile-tmp/nrimp10s-77.imp" if ((((48) > (CC[(((int)(Q)) + (1))]))) || (((CC[(((int)(Q)) + (1))]) > (57)))) goto L_00e4; #line 1319 "regression-compile-tmp/nrimp10s-77.imp" goto U_1013; #line 1319 "regression-compile-tmp/nrimp10s-77.imp" L_00e4:; // 1320 ! 1 DIDT MIN // 1321 CTYPE=1; EBCDIC=0 #line 1321 "regression-compile-tmp/nrimp10s-77.imp" CTYPE = 1; #line 1321 "regression-compile-tmp/nrimp10s-77.imp" EBCDIC = 0; // 1322 ->QUOTE %IF FS=M'''' #line 1322 "regression-compile-tmp/nrimp10s-77.imp" if (((FS) != (39))) goto L_00e5; #line 1322 "regression-compile-tmp/nrimp10s-77.imp" goto U_1004; #line 1322 "regression-compile-tmp/nrimp10s-77.imp" L_00e5:; // 1323 ->STR2 %IF FS=34 #line 1323 "regression-compile-tmp/nrimp10s-77.imp" if (((FS) != (34))) goto L_00e6; #line 1323 "regression-compile-tmp/nrimp10s-77.imp" goto U_1005; #line 1323 "regression-compile-tmp/nrimp10s-77.imp" L_00e6:; // 1324 ->NOTQUOTE %UNLESS CC(Q+1)=M''''; Q=Q+2 #line 1324 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) + (1))]) == (39))) goto L_00e7; #line 1324 "regression-compile-tmp/nrimp10s-77.imp" goto U_1006; #line 1324 "regression-compile-tmp/nrimp10s-77.imp" L_00e7:; #line 1324 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (2)); // 1325 ->HEX %IF FS='X' #line 1325 "regression-compile-tmp/nrimp10s-77.imp" if (((FS) != (88))) goto L_00e8; #line 1325 "regression-compile-tmp/nrimp10s-77.imp" goto U_1007; #line 1325 "regression-compile-tmp/nrimp10s-77.imp" L_00e8:; // 1326 ->MULT %IF FS='M' #line 1326 "regression-compile-tmp/nrimp10s-77.imp" if (((FS) != (77))) goto L_00e9; #line 1326 "regression-compile-tmp/nrimp10s-77.imp" goto U_1008; #line 1326 "regression-compile-tmp/nrimp10s-77.imp" L_00e9:; // 1327 ->BIN %IF FS=M'B' #line 1327 "regression-compile-tmp/nrimp10s-77.imp" if (((FS) != (66))) goto L_00ea; #line 1327 "regression-compile-tmp/nrimp10s-77.imp" goto U_1009; #line 1327 "regression-compile-tmp/nrimp10s-77.imp" L_00ea:; // 1328 ->RHEX %IF FS='R' %AND MODE=0 #line 1328 "regression-compile-tmp/nrimp10s-77.imp" if (((FS) != (82))) goto L_00eb; #line 1328 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) != (0))) goto L_00eb; #line 1328 "regression-compile-tmp/nrimp10s-77.imp" goto U_100a; #line 1328 "regression-compile-tmp/nrimp10s-77.imp" L_00eb:; // 1329 ->OCT %IF FS='K' #line 1329 "regression-compile-tmp/nrimp10s-77.imp" if (((FS) != (75))) goto L_00ec; #line 1329 "regression-compile-tmp/nrimp10s-77.imp" goto U_100b; #line 1329 "regression-compile-tmp/nrimp10s-77.imp" L_00ec:; // 1330 %IF FS='C' %THEN EBCDIC=1 %AND ->MULT #line 1330 "regression-compile-tmp/nrimp10s-77.imp" if (((FS) != (67))) goto L_00ed; #line 1330 "regression-compile-tmp/nrimp10s-77.imp" EBCDIC = 1; #line 1330 "regression-compile-tmp/nrimp10s-77.imp" goto U_1008; #line 1330 "regression-compile-tmp/nrimp10s-77.imp" L_00ed:; // 1331 %IF FS='D' %AND MODE=0 %THEN %START #line 1331 "regression-compile-tmp/nrimp10s-77.imp" if (((FS) != (68))) goto L_00ee; #line 1331 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) != (0))) goto L_00ee; // 1332 CPREC=7 #line 1332 "regression-compile-tmp/nrimp10s-77.imp" CPREC = 7; // 1333 %IF M'0'<=CC(Q)<=M'9' %THEN ->N #line 1333 "regression-compile-tmp/nrimp10s-77.imp" if ((((48) > (CC[Q]))) || (((CC[Q]) > (57)))) goto L_00ef; #line 1333 "regression-compile-tmp/nrimp10s-77.imp" goto U_1012; #line 1333 "regression-compile-tmp/nrimp10s-77.imp" L_00ef:; // 1334 %IF CC(Q)='.' %THEN ->DOT #line 1334 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[Q]) != (46))) goto L_00f0; #line 1334 "regression-compile-tmp/nrimp10s-77.imp" goto U_1013; #line 1334 "regression-compile-tmp/nrimp10s-77.imp" L_00f0:; // 1335 %FINISH #line 1335 "regression-compile-tmp/nrimp10s-77.imp" L_00ee:; // 1336 Q=Q-2; %RETURN #line 1336 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) - (2)); #line 1336 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1337 QUOTE: ! SINGLE CH BETWEEN QUOTES #line 1337 "regression-compile-tmp/nrimp10s-77.imp" U_1004:; // 1338 %IF CC(Q+2)=M'''' %THEN %START #line 1338 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) + (2))]) != (39))) goto L_00f1; // 1339 S=CC(Q+1) #line 1339 "regression-compile-tmp/nrimp10s-77.imp" S = CC[(((int)(Q)) + (1))]; // 1340 Q=Q+3 #line 1340 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (3)); // 1341 %IF S#M'''' %THEN ->IEND #line 1341 "regression-compile-tmp/nrimp10s-77.imp" if (((S) == (39))) goto L_00f2; #line 1341 "regression-compile-tmp/nrimp10s-77.imp" goto U_100c; #line 1341 "regression-compile-tmp/nrimp10s-77.imp" L_00f2:; // 1342 %IF CC(Q)=M'''' %THEN Q=Q+1 %AND ->IEND #line 1342 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[Q]) != (39))) goto L_00f3; #line 1342 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1342 "regression-compile-tmp/nrimp10s-77.imp" goto U_100c; #line 1342 "regression-compile-tmp/nrimp10s-77.imp" L_00f3:; // 1343 %FINISH #line 1343 "regression-compile-tmp/nrimp10s-77.imp" L_00f1:; // 1344 %RETURN; ! NOT VALID #line 1344 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1345 NOTQUOTE: ! CHECK FOR E"...." #line 1345 "regression-compile-tmp/nrimp10s-77.imp" U_1006:; // 1346 %RETURN %UNLESS FS='E' %AND CC(Q+1)=M'"' #line 1346 "regression-compile-tmp/nrimp10s-77.imp" if (((FS) != (69))) goto L_00df; #line 1346 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[(((int)(Q)) + (1))]) == (34))) goto L_00f4; #line 1346 "regression-compile-tmp/nrimp10s-77.imp" L_00df:; #line 1346 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 1346 "regression-compile-tmp/nrimp10s-77.imp" L_00f4:; // 1347 EBCDIC=1; Q=Q+1 #line 1347 "regression-compile-tmp/nrimp10s-77.imp" EBCDIC = 1; #line 1347 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); // 1348 STR2: ! DOUBLE QUOTED STRING #line 1348 "regression-compile-tmp/nrimp10s-77.imp" U_1005:; // 1349 A(RR)=16_35; TEXTTEXT(EBCDIC) #line 1349 "regression-compile-tmp/nrimp10s-77.imp" A[RR] = 53; #line 1349 "regression-compile-tmp/nrimp10s-77.imp" TEXTTEXT(EBCDIC); // 1350 CTYPE=5; %RETURN #line 1350 "regression-compile-tmp/nrimp10s-77.imp" CTYPE = 5; #line 1350 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1351 HEX: T=0; ! HEX CONSTANTS #line 1351 "regression-compile-tmp/nrimp10s-77.imp" U_1007:; #line 1351 "regression-compile-tmp/nrimp10s-77.imp" T = 0; // 1352 %CYCLE #line 1352 "regression-compile-tmp/nrimp10s-77.imp" L_00f5:; // 1353 I=CC(Q); Q=Q+1 #line 1353 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; #line 1353 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); // 1354 %EXIT %IF I=M'''' #line 1354 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (39))) goto L_00f8; #line 1354 "regression-compile-tmp/nrimp10s-77.imp" goto L_00f6; #line 1354 "regression-compile-tmp/nrimp10s-77.imp" L_00f8:; // 1355 T=T+1 #line 1355 "regression-compile-tmp/nrimp10s-77.imp" T = (((int)(T)) + (1)); // 1356 %RETURN %UNLESS ('0'<=I<='9' %OR 'A'<=I<='F') %AND T<17 #line 1356 "regression-compile-tmp/nrimp10s-77.imp" if ((((48) > (I))) || (((I) <= (57)))) goto L_00fa; #line 1356 "regression-compile-tmp/nrimp10s-77.imp" L_00f9:; #line 1356 "regression-compile-tmp/nrimp10s-77.imp" if ((((65) > (I))) || (((I) > (70)))) goto L_0093; #line 1356 "regression-compile-tmp/nrimp10s-77.imp" L_00fa:; #line 1356 "regression-compile-tmp/nrimp10s-77.imp" if (((T) < (17))) goto L_00fb; #line 1356 "regression-compile-tmp/nrimp10s-77.imp" L_0093:; #line 1356 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 1356 "regression-compile-tmp/nrimp10s-77.imp" L_00fb:; // 1357 %IF T=9 %THEN SS=S %AND S=0 #line 1357 "regression-compile-tmp/nrimp10s-77.imp" if (((T) != (9))) goto L_00fc; #line 1357 "regression-compile-tmp/nrimp10s-77.imp" SS = S; #line 1357 "regression-compile-tmp/nrimp10s-77.imp" S = 0; #line 1357 "regression-compile-tmp/nrimp10s-77.imp" L_00fc:; // 1358 S=S<<4+I&15+9*I>>6 #line 1358 "regression-compile-tmp/nrimp10s-77.imp" S = ((((((((S) << (4)))) + (((I) & (15)))))) + (((9) * ((int)((int)((((unsigned int)(I)) >> (6)))))))); // 1359 %REPEAT #line 1359 "regression-compile-tmp/nrimp10s-77.imp" goto L_00f5; #line 1359 "regression-compile-tmp/nrimp10s-77.imp" L_00f6:; // 1360 %IF T>8 %START #line 1360 "regression-compile-tmp/nrimp10s-77.imp" if (((T) <= (8))) goto L_00fd; // 1361 Z=4*(T-8) #line 1361 "regression-compile-tmp/nrimp10s-77.imp" Z = ((4) * ((int)((((int)(T)) - (8))))); // 1362 S=S!(SS<>(32-Z); CPREC=6 #line 1363 "regression-compile-tmp/nrimp10s-77.imp" SS = (int)((((unsigned int)(SS)) >> ((((int)(32)) - (Z))))); #line 1363 "regression-compile-tmp/nrimp10s-77.imp" CPREC = 6; // 1364 %FINISH #line 1364 "regression-compile-tmp/nrimp10s-77.imp" L_00fd:; // 1365 IEND: %IF CPREC=6 %THEN TOAR4(R,SS) %AND R=R+4 #line 1365 "regression-compile-tmp/nrimp10s-77.imp" U_100c:; #line 1365 "regression-compile-tmp/nrimp10s-77.imp" if (((CPREC) != (6))) goto L_00fe; #line 1365 "regression-compile-tmp/nrimp10s-77.imp" TOAR4(R, SS); #line 1365 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (4)); #line 1365 "regression-compile-tmp/nrimp10s-77.imp" L_00fe:; // 1366 %IF CPREC=5 %AND 0<=S<=16_7FFF %START #line 1366 "regression-compile-tmp/nrimp10s-77.imp" if (((CPREC) != (5))) goto L_00ff; #line 1366 "regression-compile-tmp/nrimp10s-77.imp" if ((((0) > (S))) || (((S) > (32767)))) goto L_00ff; // 1367 CPREC=4; TOAR2(R,S); R=R+2 #line 1367 "regression-compile-tmp/nrimp10s-77.imp" CPREC = 4; #line 1367 "regression-compile-tmp/nrimp10s-77.imp" TOAR2(R, S); #line 1367 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (2)); // 1368 %FINISH %ELSE TOAR4(R,S) %AND R=R+4 #line 1368 "regression-compile-tmp/nrimp10s-77.imp" goto L_0100; #line 1368 "regression-compile-tmp/nrimp10s-77.imp" L_00ff:; #line 1368 "regression-compile-tmp/nrimp10s-77.imp" TOAR4(R, S); #line 1368 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (4)); #line 1368 "regression-compile-tmp/nrimp10s-77.imp" L_0100:; // 1369 HIT=1 %UNLESS MODE#0 %AND CPREC=6 #line 1369 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) == (0))) goto L_00f7; #line 1369 "regression-compile-tmp/nrimp10s-77.imp" if (((CPREC) == (6))) goto L_0101; #line 1369 "regression-compile-tmp/nrimp10s-77.imp" L_00f7:; #line 1369 "regression-compile-tmp/nrimp10s-77.imp" HIT = 1; #line 1369 "regression-compile-tmp/nrimp10s-77.imp" L_0101:; // 1370 A(RR)=CPREC<<4!CTYPE #line 1370 "regression-compile-tmp/nrimp10s-77.imp" A[RR] = ((((CPREC) << (4))) | (CTYPE)); // 1371 %RETURN #line 1371 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1372 RHEX: ! REAL HEX CONSTANTS #line 1372 "regression-compile-tmp/nrimp10s-77.imp" U_100a:; // 1373 T=0 #line 1373 "regression-compile-tmp/nrimp10s-77.imp" T = 0; // 1374 %CYCLE #line 1374 "regression-compile-tmp/nrimp10s-77.imp" L_0102:; // 1375 I=CC(Q); Q=Q+1 #line 1375 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; #line 1375 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); // 1376 %IF T&7=0 %AND T#0 %START #line 1376 "regression-compile-tmp/nrimp10s-77.imp" if (((((T) & (7))) != (0))) goto L_0105; #line 1376 "regression-compile-tmp/nrimp10s-77.imp" if (((T) == (0))) goto L_0105; // 1377 TOAR4(R,S); R=R+4; S=0 #line 1377 "regression-compile-tmp/nrimp10s-77.imp" TOAR4(R, S); #line 1377 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (4)); #line 1377 "regression-compile-tmp/nrimp10s-77.imp" S = 0; // 1378 %FINISH #line 1378 "regression-compile-tmp/nrimp10s-77.imp" L_0105:; // 1379 %EXIT %IF I=M''''; T=T+1 #line 1379 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (39))) goto L_0106; #line 1379 "regression-compile-tmp/nrimp10s-77.imp" goto L_0103; #line 1379 "regression-compile-tmp/nrimp10s-77.imp" L_0106:; #line 1379 "regression-compile-tmp/nrimp10s-77.imp" T = (((int)(T)) + (1)); // 1380 %RETURN %UNLESS '0'<=I<='9' %OR 'A'<=I<='F' #line 1380 "regression-compile-tmp/nrimp10s-77.imp" if ((((48) > (I))) || (((I) <= (57)))) goto L_0108; #line 1380 "regression-compile-tmp/nrimp10s-77.imp" L_0107:; #line 1380 "regression-compile-tmp/nrimp10s-77.imp" if ((((65) > (I))) || (((I) <= (70)))) goto L_0108; #line 1380 "regression-compile-tmp/nrimp10s-77.imp" L_0109:; #line 1380 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 1380 "regression-compile-tmp/nrimp10s-77.imp" L_0108:; // 1381 S=S<<4+I&15+9*I>>6 #line 1381 "regression-compile-tmp/nrimp10s-77.imp" S = ((((((((S) << (4)))) + (((I) & (15)))))) + (((9) * ((int)((int)((((unsigned int)(I)) >> (6)))))))); // 1382 %REPEAT #line 1382 "regression-compile-tmp/nrimp10s-77.imp" goto L_0102; #line 1382 "regression-compile-tmp/nrimp10s-77.imp" L_0103:; // 1383 %RETURN %UNLESS T=8 %OR T=16 %OR T=32 #line 1383 "regression-compile-tmp/nrimp10s-77.imp" if (((T) == (8))) goto L_010a; #line 1383 "regression-compile-tmp/nrimp10s-77.imp" if (((T) == (16))) goto L_010a; #line 1383 "regression-compile-tmp/nrimp10s-77.imp" if (((T) == (32))) goto L_010a; #line 1383 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 1383 "regression-compile-tmp/nrimp10s-77.imp" L_010a:; // 1384 %IF T=32 %THEN CPREC=7 %ELSE CPREC=4+T//8 #line 1384 "regression-compile-tmp/nrimp10s-77.imp" if (((T) != (32))) goto L_010b; #line 1384 "regression-compile-tmp/nrimp10s-77.imp" CPREC = 7; #line 1384 "regression-compile-tmp/nrimp10s-77.imp" goto L_010c; #line 1384 "regression-compile-tmp/nrimp10s-77.imp" L_010b:; #line 1384 "regression-compile-tmp/nrimp10s-77.imp" CPREC = ((4) + (((long)((long)((int)(T)) / (long)((int)(8)))))); #line 1384 "regression-compile-tmp/nrimp10s-77.imp" L_010c:; // 1385 A(RR)=CPREC<<4!2 #line 1385 "regression-compile-tmp/nrimp10s-77.imp" A[RR] = ((((CPREC) << (4))) | (2)); // 1386 HIT=1; %RETURN #line 1386 "regression-compile-tmp/nrimp10s-77.imp" HIT = 1; #line 1386 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1387 OCT: ! OCTAL CONSTANTS #line 1387 "regression-compile-tmp/nrimp10s-77.imp" U_100b:; // 1388 T=0 #line 1388 "regression-compile-tmp/nrimp10s-77.imp" T = 0; // 1389 %CYCLE #line 1389 "regression-compile-tmp/nrimp10s-77.imp" L_010d:; // 1390 I=CC(Q); Q=Q+1; T=T+1 #line 1390 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; #line 1390 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1390 "regression-compile-tmp/nrimp10s-77.imp" T = (((int)(T)) + (1)); // 1391 %EXIT %IF I=M'''' #line 1391 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (39))) goto L_0110; #line 1391 "regression-compile-tmp/nrimp10s-77.imp" goto L_010e; #line 1391 "regression-compile-tmp/nrimp10s-77.imp" L_0110:; // 1392 %RETURN %UNLESS '0'<=I<='7' %AND T<12 #line 1392 "regression-compile-tmp/nrimp10s-77.imp" if ((((48) > (I))) || (((I) > (55)))) goto L_0111; #line 1392 "regression-compile-tmp/nrimp10s-77.imp" if (((T) < (12))) goto L_0112; #line 1392 "regression-compile-tmp/nrimp10s-77.imp" L_0111:; #line 1392 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 1392 "regression-compile-tmp/nrimp10s-77.imp" L_0112:; // 1393 S=S<<3!(I&7) #line 1393 "regression-compile-tmp/nrimp10s-77.imp" S = ((((S) << (3))) | (((I) & (7)))); // 1394 %REPEAT #line 1394 "regression-compile-tmp/nrimp10s-77.imp" goto L_010d; #line 1394 "regression-compile-tmp/nrimp10s-77.imp" L_010e:; // 1395 ->IEND #line 1395 "regression-compile-tmp/nrimp10s-77.imp" goto U_100c; // 1396 MULT: T=0; ! MULTIPLE CONSTANTS #line 1396 "regression-compile-tmp/nrimp10s-77.imp" U_1008:; #line 1396 "regression-compile-tmp/nrimp10s-77.imp" T = 0; // 1397 %CYCLE #line 1397 "regression-compile-tmp/nrimp10s-77.imp" L_0113:; // 1398 I=CC(Q); Q=Q+1; T=T+1 #line 1398 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; #line 1398 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1398 "regression-compile-tmp/nrimp10s-77.imp" T = (((int)(T)) + (1)); // 1399 %IF I=M'''' %THEN %START #line 1399 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (39))) goto L_0116; // 1400 %IF CC(Q)#M'''' %THEN %EXIT %ELSE Q=Q+1 #line 1400 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[Q]) == (39))) goto L_0117; #line 1400 "regression-compile-tmp/nrimp10s-77.imp" goto L_0114; #line 1400 "regression-compile-tmp/nrimp10s-77.imp" L_0117:; #line 1400 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); // 1401 %FINISH #line 1401 "regression-compile-tmp/nrimp10s-77.imp" L_0116:; // 1402 %RETURN %IF T>=5 #line 1402 "regression-compile-tmp/nrimp10s-77.imp" if (((T) < (5))) goto L_0118; #line 1402 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 1402 "regression-compile-tmp/nrimp10s-77.imp" L_0118:; // 1403 %IF EBCDIC#0 %THEN I=ITOETAB(I) #line 1403 "regression-compile-tmp/nrimp10s-77.imp" if (((EBCDIC) == (0))) goto L_0119; #line 1403 "regression-compile-tmp/nrimp10s-77.imp" I = ITOETAB[I]; #line 1403 "regression-compile-tmp/nrimp10s-77.imp" L_0119:; // 1404 S=S<<8!I #line 1404 "regression-compile-tmp/nrimp10s-77.imp" S = ((((S) << (8))) | (I)); // 1405 %REPEAT #line 1405 "regression-compile-tmp/nrimp10s-77.imp" goto L_0113; #line 1405 "regression-compile-tmp/nrimp10s-77.imp" L_0114:; // 1406 ->IEND #line 1406 "regression-compile-tmp/nrimp10s-77.imp" goto U_100c; // 1407 BIN: T=0; ! BINARY CONST #line 1407 "regression-compile-tmp/nrimp10s-77.imp" U_1009:; #line 1407 "regression-compile-tmp/nrimp10s-77.imp" T = 0; // 1408 %CYCLE #line 1408 "regression-compile-tmp/nrimp10s-77.imp" L_011a:; // 1409 I=CC(Q); Q=Q+1; T=T+1 #line 1409 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; #line 1409 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1409 "regression-compile-tmp/nrimp10s-77.imp" T = (((int)(T)) + (1)); // 1410 %EXIT %IF I=M'''' #line 1410 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (39))) goto L_011d; #line 1410 "regression-compile-tmp/nrimp10s-77.imp" goto L_011b; #line 1410 "regression-compile-tmp/nrimp10s-77.imp" L_011d:; // 1411 %RETURN %UNLESS '0'<=I<='1' %AND T<33 #line 1411 "regression-compile-tmp/nrimp10s-77.imp" if ((((48) > (I))) || (((I) > (49)))) goto L_011e; #line 1411 "regression-compile-tmp/nrimp10s-77.imp" if (((T) < (33))) goto L_011f; #line 1411 "regression-compile-tmp/nrimp10s-77.imp" L_011e:; #line 1411 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 1411 "regression-compile-tmp/nrimp10s-77.imp" L_011f:; // 1412 S=S<<1!I&1 #line 1412 "regression-compile-tmp/nrimp10s-77.imp" S = ((((S) << (1))) | (((I) & (1)))); // 1413 %REPEAT #line 1413 "regression-compile-tmp/nrimp10s-77.imp" goto L_011a; #line 1413 "regression-compile-tmp/nrimp10s-77.imp" L_011b:; // 1414 ->IEND #line 1414 "regression-compile-tmp/nrimp10s-77.imp" goto U_100c; // 1415 N: ! CONSTANT STARTS WITH DIGIT #line 1415 "regression-compile-tmp/nrimp10s-77.imp" U_1012:; // 1416 I=CC(Q) #line 1416 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1417 {%UNTIL IM'9'} %CYCLE #line 1417 "regression-compile-tmp/nrimp10s-77.imp" L_0120:; /*Warning: potential loss of precision converting from integer AST_BINOP (((I) & (15)) - 0 bytes) to real AST_BINOP ((((double)(TEN)) * (CVALUE)) - 0 bytes) detected at ast.c line 108 */ // 1418 CVALUE=TEN*CVALUE+(I&15) #line 1418 "regression-compile-tmp/nrimp10s-77.imp" CVALUE = (((((double)(TEN)) * (CVALUE))) + ((((I) & (15))))); // 1419 Q=Q+1; I=CC(Q); ! ONTO NEXT CHAR #line 1419 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1419 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1420 %REPEAT %UNTIL IM'9' #line 1420 "regression-compile-tmp/nrimp10s-77.imp" if (((I) < (48))) goto L_0121; #line 1420 "regression-compile-tmp/nrimp10s-77.imp" if (((I) > (57))) goto L_0121; #line 1420 "regression-compile-tmp/nrimp10s-77.imp" goto L_0120; #line 1420 "regression-compile-tmp/nrimp10s-77.imp" L_0121:; // 1421 ->ALPHA %UNLESS MODE=0 %AND I='.' #line 1421 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) != (0))) goto L_0122; #line 1421 "regression-compile-tmp/nrimp10s-77.imp" if (((I) == (46))) goto L_0123; #line 1421 "regression-compile-tmp/nrimp10s-77.imp" L_0122:; #line 1421 "regression-compile-tmp/nrimp10s-77.imp" goto U_100d; #line 1421 "regression-compile-tmp/nrimp10s-77.imp" L_0123:; // 1422 DOT: Q=Q+1; X=TEN; I=CC(Q) #line 1422 "regression-compile-tmp/nrimp10s-77.imp" U_1013:; #line 1422 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1422 "regression-compile-tmp/nrimp10s-77.imp" X = TEN; #line 1422 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1423 DOTSEEN=1; ! CONSTANT HAS DECIMAL POINT #line 1423 "regression-compile-tmp/nrimp10s-77.imp" DOTSEEN = 1; // 1424 %WHILE M'0'<=I<=M'9' %CYCLE #line 1424 "regression-compile-tmp/nrimp10s-77.imp" L_0124:; #line 1424 "regression-compile-tmp/nrimp10s-77.imp" if ((((48) > (I))) || (((I) > (57)))) goto L_0125; // 1425 CVALUE=CVALUE+(I&15)/X #line 1425 "regression-compile-tmp/nrimp10s-77.imp" CVALUE = ((CVALUE) + (((double)((double)((((I) & (15)))) / (double)((double)(X)))))); // 1426 X=TEN*X; Q=Q+1; I=CC(Q) #line 1426 "regression-compile-tmp/nrimp10s-77.imp" X = (((double)(TEN)) * (X)); #line 1426 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1426 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1427 %REPEAT #line 1427 "regression-compile-tmp/nrimp10s-77.imp" goto L_0124; #line 1427 "regression-compile-tmp/nrimp10s-77.imp" L_0125:; // 1428 ALPHA: ! TEST FOR EXPONENT #line 1428 "regression-compile-tmp/nrimp10s-77.imp" U_100d:; // 1429 %IF MODE=0 %AND CC(Q)='@' %THEN %START #line 1429 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) != (0))) goto L_0127; #line 1429 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[Q]) != (64))) goto L_0127; // 1430 Q=Q+1; X=CVALUE #line 1430 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1430 "regression-compile-tmp/nrimp10s-77.imp" X = CVALUE; // 1431 Z=1; I=CC(Q) #line 1431 "regression-compile-tmp/nrimp10s-77.imp" Z = 1; #line 1431 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1432 %IF I='-' %THEN Z=-1 #line 1432 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (45))) goto L_0128; #line 1432 "regression-compile-tmp/nrimp10s-77.imp" Z = (-1); #line 1432 "regression-compile-tmp/nrimp10s-77.imp" L_0128:; // 1433 %IF I='+' %OR I='-' %THEN Q=Q+1 #line 1433 "regression-compile-tmp/nrimp10s-77.imp" if (((I) == (43))) goto L_0129; #line 1433 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (45))) goto L_012a; #line 1433 "regression-compile-tmp/nrimp10s-77.imp" L_0129:; #line 1433 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1433 "regression-compile-tmp/nrimp10s-77.imp" L_012a:; // 1434 CONST(2) #line 1434 "regression-compile-tmp/nrimp10s-77.imp" CONST(2); // 1435 %IF HIT=0 %THEN %RETURN #line 1435 "regression-compile-tmp/nrimp10s-77.imp" if (((HIT) != (0))) goto L_012b; #line 1435 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 1435 "regression-compile-tmp/nrimp10s-77.imp" L_012b:; // 1436 HIT=0 #line 1436 "regression-compile-tmp/nrimp10s-77.imp" HIT = 0; // 1437 R=RR+1 #line 1437 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(RR)) + (1)); // 1438 %IF A(R)>>4#4 %THEN %RETURN; ! EXPONENT MUST BE HALFINTEGER #line 1438 "regression-compile-tmp/nrimp10s-77.imp" if ((((unsigned char)((((unsigned char)(A[R])) >> (4)))) == (4))) goto L_012c; #line 1438 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 1438 "regression-compile-tmp/nrimp10s-77.imp" L_012c:; // 1439 S=FROM AR2(R+1)*Z #line 1439 "regression-compile-tmp/nrimp10s-77.imp" S = (((int)(FROMAR2((((int)(R)) + (1))))) * (Z)); // 1440 %IF S=-99 %THEN CVALUE=0 %ELSE %START #line 1440 "regression-compile-tmp/nrimp10s-77.imp" if (((S) != ((-99)))) goto L_012d; #line 1440 "regression-compile-tmp/nrimp10s-77.imp" CVALUE = 0; #line 1440 "regression-compile-tmp/nrimp10s-77.imp" goto L_012e; #line 1440 "regression-compile-tmp/nrimp10s-77.imp" L_012d:; // 1441 ! %IF USE IMP=NO %THEN %START // 1442 ! *MPSR_16_8080; ! MASK OUT REAL OVERFLOW // 1443 ! %FINISH // 1444 %WHILE S>0 %CYCLE #line 1444 "regression-compile-tmp/nrimp10s-77.imp" L_012f:; #line 1444 "regression-compile-tmp/nrimp10s-77.imp" if (((S) <= (0))) goto L_0130; // 1445 S=S-1 #line 1445 "regression-compile-tmp/nrimp10s-77.imp" S = (((int)(S)) - (1)); // 1446 CVALUE=CVALUE*TEN #line 1446 "regression-compile-tmp/nrimp10s-77.imp" CVALUE = (((double)(CVALUE)) * (TEN)); // 1447 ! %IF USE IMP=NO %THEN %START // 1448 ! *JAT_15, // 1449 ! %FINISH // 1450 %REPEAT #line 1450 "regression-compile-tmp/nrimp10s-77.imp" goto L_012f; #line 1450 "regression-compile-tmp/nrimp10s-77.imp" L_0130:; // 1451 %WHILE S<0 %AND CVALUE#0 %CYCLE #line 1451 "regression-compile-tmp/nrimp10s-77.imp" L_0132:; #line 1451 "regression-compile-tmp/nrimp10s-77.imp" if (((S) >= (0))) goto L_0133; #line 1451 "regression-compile-tmp/nrimp10s-77.imp" if (((CVALUE) == (0))) goto L_0133; // 1452 S=S+1 #line 1452 "regression-compile-tmp/nrimp10s-77.imp" S = (((int)(S)) + (1)); // 1453 CVALUE=CVALUE/TEN #line 1453 "regression-compile-tmp/nrimp10s-77.imp" CVALUE = (double)((double)((double)(CVALUE)) / (double)((double)(TEN))); // 1454 %REPEAT #line 1454 "regression-compile-tmp/nrimp10s-77.imp" goto L_0132; #line 1454 "regression-compile-tmp/nrimp10s-77.imp" L_0133:; // 1455 %FINISH #line 1455 "regression-compile-tmp/nrimp10s-77.imp" L_012e:; // 1456 %FINISH #line 1456 "regression-compile-tmp/nrimp10s-77.imp" L_0127:; // 1457 ! SEE IF IT IS INTEGER // 1458 %IF FS='D' %THEN %START #line 1458 "regression-compile-tmp/nrimp10s-77.imp" if (((FS) != (68))) goto L_0135; // 1459 I=CC(Q) #line 1459 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1460 %IF I='''' %THEN Q=Q+1 %ELSE %RETURN #line 1460 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (39))) goto L_0136; #line 1460 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1460 "regression-compile-tmp/nrimp10s-77.imp" goto L_0137; #line 1460 "regression-compile-tmp/nrimp10s-77.imp" L_0136:; #line 1460 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 1460 "regression-compile-tmp/nrimp10s-77.imp" L_0137:; // 1461 DOTSEEN=1; ! ENSURE NOT TAKEN AS INTEGER #line 1461 "regression-compile-tmp/nrimp10s-77.imp" DOTSEEN = 1; // 1462 %FINISH #line 1462 "regression-compile-tmp/nrimp10s-77.imp" L_0135:; // 1463 %IF DOTSEEN=1 %OR CVALUE>IMAX %OR FRACPT(CVALUE)#0 %THEN CTYPE=2 %ELSE CTYPE=1 %AND S=INT(CVALUE) #line 1463 "regression-compile-tmp/nrimp10s-77.imp" if (((DOTSEEN) == (1))) goto L_0126; #line 1463 "regression-compile-tmp/nrimp10s-77.imp" if (((CVALUE) > (IMAX))) goto L_0126; #line 1463 "regression-compile-tmp/nrimp10s-77.imp" if (((_imp_FRACPT(CVALUE)) == (0))) goto L_0138; #line 1463 "regression-compile-tmp/nrimp10s-77.imp" L_0126:; #line 1463 "regression-compile-tmp/nrimp10s-77.imp" CTYPE = 2; #line 1463 "regression-compile-tmp/nrimp10s-77.imp" goto L_0139; #line 1463 "regression-compile-tmp/nrimp10s-77.imp" L_0138:; #line 1463 "regression-compile-tmp/nrimp10s-77.imp" CTYPE = 1; #line 1463 "regression-compile-tmp/nrimp10s-77.imp" S = _imp_INT(CVALUE); #line 1463 "regression-compile-tmp/nrimp10s-77.imp" L_0139:; // 1464 %IF CTYPE=1 %THEN ->IEND #line 1464 "regression-compile-tmp/nrimp10s-77.imp" if (((CTYPE) != (1))) goto L_013a; #line 1464 "regression-compile-tmp/nrimp10s-77.imp" goto U_100c; #line 1464 "regression-compile-tmp/nrimp10s-77.imp" L_013a:; // 1465 %IF CPREC=5 %THEN CPREC=6; ! NO 32 BIT REAL CONSTS #line 1465 "regression-compile-tmp/nrimp10s-77.imp" if (((CPREC) != (5))) goto L_013b; #line 1465 "regression-compile-tmp/nrimp10s-77.imp" CPREC = 6; #line 1465 "regression-compile-tmp/nrimp10s-77.imp" L_013b:; // 1466 %IF CPREC=6 %THEN %START #line 1466 "regression-compile-tmp/nrimp10s-77.imp" if (((CPREC) != (6))) goto L_013c; // 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 // 1476 %FINISH #line 1476 "regression-compile-tmp/nrimp10s-77.imp" L_013c:; // 1477 TOAR8(R,CVALUE); R=R+8 #line 1477 "regression-compile-tmp/nrimp10s-77.imp" TOAR8(R, CVALUE); #line 1477 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (8)); // 1478 %IF CPREC=7 %THEN TOAR8(R,LONGREAL(ADDR(CVALUE)+8)) %AND R=R+8 #line 1478 "regression-compile-tmp/nrimp10s-77.imp" if (((CPREC) != (7))) goto L_013d; #line 1478 "regression-compile-tmp/nrimp10s-77.imp" TOAR8(R, *_imp_LONGREAL((((int)(_imp_ADDR(&CVALUE))) + (8)))); #line 1478 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (8)); #line 1478 "regression-compile-tmp/nrimp10s-77.imp" L_013d:; // 1479 A(RR)=CPREC<<4+CTYPE #line 1479 "regression-compile-tmp/nrimp10s-77.imp" A[RR] = (((int)(((CPREC) << (4)))) + (CTYPE)); // 1480 HIT=1 #line 1480 "regression-compile-tmp/nrimp10s-77.imp" HIT = 1; // 1481 FAIL: %END #line 1481 "regression-compile-tmp/nrimp10s-77.imp" U_100e:; #line 1481 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CONST at level 4 // 1482 %ROUTINE TEXTTEXT(%INTEGER EBCDIC) #line 1482 "regression-compile-tmp/nrimp10s-77.imp" void TEXTTEXT( int EBCDIC ) #line 1482 "regression-compile-tmp/nrimp10s-77.imp" { // 1483 !*********************************************************************** // 1484 !* PROCESSES TEXT BETWEEN DOUBLE QUOTES AND STORES IN ISO OR EBCDIC * // 1485 !*********************************************************************** // 1486 %INTEGER J, II #line 1486 "regression-compile-tmp/nrimp10s-77.imp" int J; #line 1486 "regression-compile-tmp/nrimp10s-77.imp" int II; // 1487 %CONSTINTEGER QU='"' // 1488 I=CC(Q) #line 1488 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1489 S=R+4; R=R+5; HIT=0 #line 1489 "regression-compile-tmp/nrimp10s-77.imp" S = (((int)(R)) + (4)); #line 1489 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (5)); #line 1489 "regression-compile-tmp/nrimp10s-77.imp" HIT = 0; // 1490 %RETURN %UNLESS I=QU; ! FAIL UNLESS INITIAL QUOTE #line 1490 "regression-compile-tmp/nrimp10s-77.imp" if (((I) == (34))) goto L_013e; #line 1490 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 1490 "regression-compile-tmp/nrimp10s-77.imp" L_013e:; // 1491 Q=Q+1 #line 1491 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); // 1492 %CYCLE #line 1492 "regression-compile-tmp/nrimp10s-77.imp" L_013f:; // 1493 I=CC(Q) #line 1493 "regression-compile-tmp/nrimp10s-77.imp" I = CC[Q]; // 1494 %IF EBCDIC#0 %THEN II=ITOETAB(I) %ELSE II=I #line 1494 "regression-compile-tmp/nrimp10s-77.imp" if (((EBCDIC) == (0))) goto L_0142; #line 1494 "regression-compile-tmp/nrimp10s-77.imp" II = ITOETAB[I]; #line 1494 "regression-compile-tmp/nrimp10s-77.imp" goto L_0143; #line 1494 "regression-compile-tmp/nrimp10s-77.imp" L_0142:; #line 1494 "regression-compile-tmp/nrimp10s-77.imp" II = I; #line 1494 "regression-compile-tmp/nrimp10s-77.imp" L_0143:; // 1495 A(R)=II; R=R+1 #line 1495 "regression-compile-tmp/nrimp10s-77.imp" A[R] = II; #line 1495 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (1)); // 1496 %IF I=QU %THEN %START #line 1496 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (34))) goto L_0144; // 1497 Q=Q+1 #line 1497 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); // 1498 %IF CC(Q)#QU %THEN %EXIT #line 1498 "regression-compile-tmp/nrimp10s-77.imp" if (((CC[Q]) == (34))) goto L_0145; #line 1498 "regression-compile-tmp/nrimp10s-77.imp" goto L_0140; #line 1498 "regression-compile-tmp/nrimp10s-77.imp" L_0145:; // 1499 %FINISH #line 1499 "regression-compile-tmp/nrimp10s-77.imp" L_0144:; // 1500 %IF I=10 %THEN READLINE(1,QU) %ELSE Q=Q+1 #line 1500 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (10))) goto L_0146; #line 1500 "regression-compile-tmp/nrimp10s-77.imp" READLINE(1, 34); #line 1500 "regression-compile-tmp/nrimp10s-77.imp" goto L_0147; #line 1500 "regression-compile-tmp/nrimp10s-77.imp" L_0146:; #line 1500 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (1)); #line 1500 "regression-compile-tmp/nrimp10s-77.imp" L_0147:; // 1501 FAULT(106,0) %IF R-S>256 #line 1501 "regression-compile-tmp/nrimp10s-77.imp" if ((((((int)(R)) - (S))) <= (256))) goto L_0148; #line 1501 "regression-compile-tmp/nrimp10s-77.imp" FAULT(106, 0); #line 1501 "regression-compile-tmp/nrimp10s-77.imp" L_0148:; // 1502 %REPEAT #line 1502 "regression-compile-tmp/nrimp10s-77.imp" goto L_013f; #line 1502 "regression-compile-tmp/nrimp10s-77.imp" L_0140:; // 1503 R=R-1; J=R-S-1 #line 1503 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) - (1)); #line 1503 "regression-compile-tmp/nrimp10s-77.imp" J = (((int)((((int)(R)) - (S)))) - (1)); // 1504 A(S)=J; HIT=1 #line 1504 "regression-compile-tmp/nrimp10s-77.imp" A[S] = J; #line 1504 "regression-compile-tmp/nrimp10s-77.imp" HIT = 1; // 1505 %END #line 1505 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block TEXTTEXT at level 4 // 1506 BEND:%END; ! OF BLOCK CONTAINING PASS 1 #line 1506 "regression-compile-tmp/nrimp10s-77.imp" U_1000:; #line 1506 "regression-compile-tmp/nrimp10s-77.imp" return; } // End of block _BLOCK_2_LEVEL_2_ at level 3 _BLOCK_2_LEVEL_2_(); // 1507 %IF LEVEL>1 %THEN FAULT(15, 0) #line 1507 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) <= (1))) goto L_0149; #line 1507 "regression-compile-tmp/nrimp10s-77.imp" FAULT(15, 0); #line 1507 "regression-compile-tmp/nrimp10s-77.imp" L_0149:; // 1508 I=0 #line 1508 "regression-compile-tmp/nrimp10s-77.imp" I = 0; // 1509 NEWLINE #line 1509 "regression-compile-tmp/nrimp10s-77.imp" _imp_NEWLINE(); // 1510 %IF FAULTY=0 %THEN %START #line 1510 "regression-compile-tmp/nrimp10s-77.imp" if (((FAULTY) != (0))) goto L_014a; // 1511 WRITE(LINE, 5) #line 1511 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(LINE, 5); // 1512 PRINT STRING(" LINES ANALYSED IN") #line 1512 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_str_literal(" LINES ANALYSED IN")); /*Warning: potential loss of precision converting from integer AST_ICONST (1000 - 4 bytes) to real AST_BINOP ((((double)(cputime())) - (CTIME)) - 0 bytes) detected at ast.c line 108 */ // 1513 WRITE(INT(1000*(CPUTIME-CTIME)),5) #line 1513 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(_imp_INT((((1000)) * ((((double)(cputime())) - (CTIME))))), 5); // 1514 PRINT STRING(" MSECS - SIZE=") #line 1514 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_str_literal(" MSECS - SIZE=")); // 1515 WRITE(P1SIZE, 5) #line 1515 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(P1SIZE, 5); // 1516 %IF LINE>90 %AND LIST#0 %THEN NEWPAGE %ELSE NEWLINE #line 1516 "regression-compile-tmp/nrimp10s-77.imp" if (((LINE) <= (90))) goto L_014b; #line 1516 "regression-compile-tmp/nrimp10s-77.imp" if (((LIST) == (0))) goto L_014b; #line 1516 "regression-compile-tmp/nrimp10s-77.imp" _imp_NEWPAGE(); #line 1516 "regression-compile-tmp/nrimp10s-77.imp" goto L_014c; #line 1516 "regression-compile-tmp/nrimp10s-77.imp" L_014b:; #line 1516 "regression-compile-tmp/nrimp10s-77.imp" _imp_NEWLINE(); #line 1516 "regression-compile-tmp/nrimp10s-77.imp" L_014c:; // 1517 %FINISH %ELSE %START #line 1517 "regression-compile-tmp/nrimp10s-77.imp" goto L_014d; #line 1517 "regression-compile-tmp/nrimp10s-77.imp" L_014a:; // 1518 PRINTSTRING("CODE GENERATION NOT ATTEMPTED #line 1518 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_str_literal("CODE GENERATION NOT ATTEMPTED\n")); // 1519 ") // 1520 COMREG(24)=8 #line 1520 "regression-compile-tmp/nrimp10s-77.imp" *comreg(24) = 8; // 1521 COMREG(47)=FAULTY #line 1521 "regression-compile-tmp/nrimp10s-77.imp" *comreg(47) = FAULTY; // 1522 %STOP #line 1522 "regression-compile-tmp/nrimp10s-77.imp" exit(0); // 1523 %FINISH #line 1523 "regression-compile-tmp/nrimp10s-77.imp" L_014d:; // 1524 %BEGIN #line 1524 "regression-compile-tmp/nrimp10s-77.imp" void _BLOCK_3_LEVEL_2_(void) { // 1525 !*********************************************************************** // 1526 !* SECOND OR CODE GENERATING PASS * // 1527 !*********************************************************************** // 1528 %INTEGERARRAY REGISTER, GRUSE, GRAT, GRINF1, GRINF2, OLINK(0:7) #line 1528 "regression-compile-tmp/nrimp10s-77.imp" int REGISTER[8]; #line 1528 "regression-compile-tmp/nrimp10s-77.imp" int GRUSE[8]; #line 1528 "regression-compile-tmp/nrimp10s-77.imp" int GRAT[8]; #line 1528 "regression-compile-tmp/nrimp10s-77.imp" int GRINF1[8]; #line 1528 "regression-compile-tmp/nrimp10s-77.imp" int GRINF2[8]; #line 1528 "regression-compile-tmp/nrimp10s-77.imp" int OLINK[8]; // 1529 %BYTEINTEGERARRAY CODE, GLABUF(0:268) #line 1529 "regression-compile-tmp/nrimp10s-77.imp" unsigned char CODE[269]; #line 1529 "regression-compile-tmp/nrimp10s-77.imp" unsigned char GLABUF[269]; // 1530 %INTEGERARRAY PLABS, DESADS, PLINK(0:31) #line 1530 "regression-compile-tmp/nrimp10s-77.imp" int PLABS[32]; #line 1530 "regression-compile-tmp/nrimp10s-77.imp" int DESADS[32]; #line 1530 "regression-compile-tmp/nrimp10s-77.imp" int PLINK[32]; // 1531 %INTEGERARRAY SET, STACKBASE, RAL, FLAG, L, M, NMDECS, ONWORD, ONINF,{%C #line 1531 "regression-compile-tmp/nrimp10s-77.imp" int SET[32]; #line 1531 "regression-compile-tmp/nrimp10s-77.imp" int STACKBASE[32]; #line 1531 "regression-compile-tmp/nrimp10s-77.imp" int RAL[32]; #line 1531 "regression-compile-tmp/nrimp10s-77.imp" int FLAG[32]; #line 1531 "regression-compile-tmp/nrimp10s-77.imp" int L[32]; #line 1531 "regression-compile-tmp/nrimp10s-77.imp" int M[32]; #line 1531 "regression-compile-tmp/nrimp10s-77.imp" int NMDECS[32]; #line 1531 "regression-compile-tmp/nrimp10s-77.imp" int ONWORD[32]; #line 1531 "regression-compile-tmp/nrimp10s-77.imp" int ONINF[32]; #line 1531 "regression-compile-tmp/nrimp10s-77.imp" int JUMP[32]; #line 1531 "regression-compile-tmp/nrimp10s-77.imp" int LABEL[32]; #line 1531 "regression-compile-tmp/nrimp10s-77.imp" int JROUND[32]; #line 1531 "regression-compile-tmp/nrimp10s-77.imp" int DIAGINF[32]; #line 1531 "regression-compile-tmp/nrimp10s-77.imp" int DISPLAY[32]; #line 1531 "regression-compile-tmp/nrimp10s-77.imp" int AUXSBASE[32]; #line 1531 "regression-compile-tmp/nrimp10s-77.imp" int NAMES[32]; // 1532 JUMP, LABEL, JROUND, DIAGINF, DISPLAY, {%C // 1533 AUXSBASE, NAMES (0:MAXLEVELS) // 1534 %INTEGERARRAY AVL WSP(0:4,0:MAXLEVELS) #line 1534 "regression-compile-tmp/nrimp10s-77.imp" int AVLWSP[5][32]; // 1535 %recordformat rcf(%integerarray val(0:12* 2047 {NNAMES})) { unfortunately we can't have a dynamically-sized array in a record. Largest possible is 2047. #line 1535 "regression-compile-tmp/nrimp10s-77.imp" typedef struct RCF RCF; struct RCF { int VAL[24565]; }; // 1536 %record (rcf) %name CTABLE #line 1536 "regression-compile-tmp/nrimp10s-77.imp" RCF /*name*/*CTABLE; // 1537 {%INTEGERARRAYFORMAT CF(0:12*NNAMES) - Imp77 doesn't support ARRAY() mapping. // 1538 {%INTEGERARRAY(1)%NAME CTABLE // 1539 %ROUTINESPEC CNOP(%INTEGER I, J) #line 1539 "regression-compile-tmp/nrimp10s-77.imp" auto void CNOP( int I, int J ); // 1540 %ROUTINESPEC PCLOD(%INTEGER FROM, TO) #line 1540 "regression-compile-tmp/nrimp10s-77.imp" auto void PCLOD( int FROM, int TO ); // 1541 %ROUTINESPEC PCONST(%INTEGER X) #line 1541 "regression-compile-tmp/nrimp10s-77.imp" auto void PCONST( int X ); // 1542 %ROUTINESPEC PSF1(%INTEGER OPCODE,K,N) #line 1542 "regression-compile-tmp/nrimp10s-77.imp" auto void PSF1( int OPCODE, int K, int N ); // 1543 %ROUTINESPEC PF1(%INTEGER OPCODE,KP,KPP,N) #line 1543 "regression-compile-tmp/nrimp10s-77.imp" auto void PF1( int OPCODE, int KP, int KPP, int N ); // 1544 %ROUTINESPEC PSORLF1(%INTEGER OPCODE,KP,KPP,N) #line 1544 "regression-compile-tmp/nrimp10s-77.imp" auto void PSORLF1( int OPCODE, int KP, int KPP, int N ); // 1545 %ROUTINESPEC PF2(%INTEGER OPCODE,H,Q,N,MASK,FILLER) #line 1545 "regression-compile-tmp/nrimp10s-77.imp" auto void PF2( int OPCODE, int H, int Q, int N, int MASK, int FILLER ); // 1546 %ROUTINESPEC PF3(%INTEGER OPCODE,MASK,KPPP,N) #line 1546 "regression-compile-tmp/nrimp10s-77.imp" auto void PF3( int OPCODE, int MASK, int KPPP, int N ); // 1547 %ROUTINESPEC NOTE CREF(%INTEGER CA,VAL) #line 1547 "regression-compile-tmp/nrimp10s-77.imp" auto void NOTECREF( int CA, int VAL ); // 1548 %INTEGERFNSPEC PARAM DES(%INTEGER PREC) #line 1548 "regression-compile-tmp/nrimp10s-77.imp" auto int PARAMDES( int PREC ); // 1549 %INTEGERFNSPEC MAPDES(%INTEGER PREC) #line 1549 "regression-compile-tmp/nrimp10s-77.imp" auto int MAPDES( int PREC ); // 1550 %INTEGERFNSPEC SPECIAL CONSTS(%INTEGER WHICH) #line 1550 "regression-compile-tmp/nrimp10s-77.imp" auto int SPECIALCONSTS( int WHICH ); // 1551 %ROUTINESPEC STORE CONST(%INTEGERNAME D,%INTEGER L,AD) #line 1551 "regression-compile-tmp/nrimp10s-77.imp" auto void STORECONST( int /*name*/*D, int L, int AD ); // 1552 %ROUTINESPEC DUMP CONSTS #line 1552 "regression-compile-tmp/nrimp10s-77.imp" auto void DUMPCONSTS( void ); // 1553 %ROUTINESPEC PLANT(%INTEGER VALUE) #line 1553 "regression-compile-tmp/nrimp10s-77.imp" auto void PLANT( int VALUE ); // 1554 %ROUTINESPEC PLUG(%INTEGER I, J, K, BYTES) #line 1554 "regression-compile-tmp/nrimp10s-77.imp" auto void PLUG( int I, int J, int K, int BYTES ); // 1555 %ROUTINESPEC CODEOUT #line 1555 "regression-compile-tmp/nrimp10s-77.imp" auto void CODEOUT( void ); // 1556 %ROUTINESPEC PROLOGUE #line 1556 "regression-compile-tmp/nrimp10s-77.imp" auto void PROLOGUE( void ); // 1557 %ROUTINESPEC EPILOGUE #line 1557 "regression-compile-tmp/nrimp10s-77.imp" auto void EPILOGUE( void ); // 1558 %ROUTINESPEC COMPILE A STMNT #line 1558 "regression-compile-tmp/nrimp10s-77.imp" auto void COMPILEASTMNT( void ); // 1559 %ROUTINESPEC CSS(%INTEGER P) #line 1559 "regression-compile-tmp/nrimp10s-77.imp" auto void CSS( int P ); // 1560 %ROUTINESPEC LOAD DATA #line 1560 "regression-compile-tmp/nrimp10s-77.imp" auto void LOADDATA( void ); // 1561 %ROUTINESPEC ABORT #line 1561 "regression-compile-tmp/nrimp10s-77.imp" auto void ABORT( void ); // 1562 !*DELSTART // 1563 %ROUTINESPEC PRINT USE #line 1563 "regression-compile-tmp/nrimp10s-77.imp" auto void PRINTUSE( void ); // 1564 !*DELEND // 1565 %CYCLE I=0,1,7 #line 1565 "regression-compile-tmp/nrimp10s-77.imp" I = (-1); if ((((7)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 7"); L_014e:; if (I == 7) goto L_014f; I += 1; // 1566 REGISTER(I)=0; GRUSE(I)=0; GRINF1(I)=0; GRAT(I)=0 #line 1566 "regression-compile-tmp/nrimp10s-77.imp" REGISTER[I] = 0; #line 1566 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[I] = 0; #line 1566 "regression-compile-tmp/nrimp10s-77.imp" GRINF1[I] = 0; #line 1566 "regression-compile-tmp/nrimp10s-77.imp" GRAT[I] = 0; // 1567 GRINF2(I)=0 #line 1567 "regression-compile-tmp/nrimp10s-77.imp" GRINF2[I] = 0; // 1568 %REPEAT #line 1568 "regression-compile-tmp/nrimp10s-77.imp" goto L_014e; #line 1568 "regression-compile-tmp/nrimp10s-77.imp" L_014f:; // 1569 %CYCLE I=0, 1, MAXLEVELS #line 1569 "regression-compile-tmp/nrimp10s-77.imp" I = (-1); if ((((31)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 31"); L_0151:; if (I == 31) goto L_0152; I += 1; // 1570 SET(I)=0; STACKBASE(I)=0; RAL(I)=0 #line 1570 "regression-compile-tmp/nrimp10s-77.imp" SET[I] = 0; #line 1570 "regression-compile-tmp/nrimp10s-77.imp" STACKBASE[I] = 0; #line 1570 "regression-compile-tmp/nrimp10s-77.imp" RAL[I] = 0; // 1571 JUMP(I)=0; JROUND(I)=0 #line 1571 "regression-compile-tmp/nrimp10s-77.imp" JUMP[I] = 0; #line 1571 "regression-compile-tmp/nrimp10s-77.imp" JROUND[I] = 0; // 1572 LABEL(I)=0; FLAG(I)=0 #line 1572 "regression-compile-tmp/nrimp10s-77.imp" LABEL[I] = 0; #line 1572 "regression-compile-tmp/nrimp10s-77.imp" FLAG[I] = 0; // 1573 L(I)=0; M(I)=0; DIAGINF(I)=0 #line 1573 "regression-compile-tmp/nrimp10s-77.imp" L[I] = 0; #line 1573 "regression-compile-tmp/nrimp10s-77.imp" M[I] = 0; #line 1573 "regression-compile-tmp/nrimp10s-77.imp" DIAGINF[I] = 0; // 1574 DISPLAY(I)=0; ONWORD(I)=0; ONINF(I)=0 #line 1574 "regression-compile-tmp/nrimp10s-77.imp" DISPLAY[I] = 0; #line 1574 "regression-compile-tmp/nrimp10s-77.imp" ONWORD[I] = 0; #line 1574 "regression-compile-tmp/nrimp10s-77.imp" ONINF[I] = 0; // 1575 NAMES(I)=-1 #line 1575 "regression-compile-tmp/nrimp10s-77.imp" NAMES[I] = (-1); // 1576 %CYCLE J=0,1,4 #line 1576 "regression-compile-tmp/nrimp10s-77.imp" J = (-1); if ((((4)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 0, 1, 4"); L_0154:; if (J == 4) goto L_0155; J += 1; // 1577 AVL WSP(J,I)=0 #line 1577 "regression-compile-tmp/nrimp10s-77.imp" AVLWSP[J][I] = 0; // 1578 %REPEAT #line 1578 "regression-compile-tmp/nrimp10s-77.imp" goto L_0154; #line 1578 "regression-compile-tmp/nrimp10s-77.imp" L_0155:; // 1579 %REPEAT #line 1579 "regression-compile-tmp/nrimp10s-77.imp" goto L_0151; #line 1579 "regression-compile-tmp/nrimp10s-77.imp" L_0152:; // 1580 {CTABLE==ARRAY(ADDR(ASLIST(1)),CF) // 1581 CTABLE==RECORD(ADDR(ASLIST(1))) #line 1581 "regression-compile-tmp/nrimp10s-77.imp" CTABLE = (RCF *) _imp_RECORD(_imp_ADDR(&ASLIST[1])); // 1582 CONST HOLE=0 #line 1582 "regression-compile-tmp/nrimp10s-77.imp" CONSTHOLE = 0; // 1583 PROLOGUE #line 1583 "regression-compile-tmp/nrimp10s-77.imp" PROLOGUE(); // 1584 LINE=0 #line 1584 "regression-compile-tmp/nrimp10s-77.imp" LINE = 0; // 1585 NEXTP=1; LEVEL=1; STMTS=0 #line 1585 "regression-compile-tmp/nrimp10s-77.imp" NEXTP = 1; #line 1585 "regression-compile-tmp/nrimp10s-77.imp" LEVEL = 1; #line 1585 "regression-compile-tmp/nrimp10s-77.imp" STMTS = 0; // 1586 RLEVEL=0; RBASE=0 #line 1586 "regression-compile-tmp/nrimp10s-77.imp" RLEVEL = 0; #line 1586 "regression-compile-tmp/nrimp10s-77.imp" RBASE = 0; // 1587 %WHILE A(NEXTP+3)!A(NEXTP+4)#0 %CYCLE #line 1587 "regression-compile-tmp/nrimp10s-77.imp" L_0157:; #line 1587 "regression-compile-tmp/nrimp10s-77.imp" if (((((A[(((int)(NEXTP)) + (3))]) | (A[(((int)(NEXTP)) + (4))]))) == (0))) goto L_0158; // 1588 COMPILE A STMNT #line 1588 "regression-compile-tmp/nrimp10s-77.imp" COMPILEASTMNT(); // 1589 %REPEAT #line 1589 "regression-compile-tmp/nrimp10s-77.imp" goto L_0157; #line 1589 "regression-compile-tmp/nrimp10s-77.imp" L_0158:; // 1590 LINE=99999 #line 1590 "regression-compile-tmp/nrimp10s-77.imp" LINE = 99999; // 1591 EPILOGUE #line 1591 "regression-compile-tmp/nrimp10s-77.imp" EPILOGUE(); // 1592 LOAD DATA #line 1592 "regression-compile-tmp/nrimp10s-77.imp" LOADDATA(); // 1593 %STOP #line 1593 "regression-compile-tmp/nrimp10s-77.imp" exit(0); // 1594 %ROUTINE COMPILE A STMNT #line 1594 "regression-compile-tmp/nrimp10s-77.imp" void COMPILEASTMNT( void ) #line 1594 "regression-compile-tmp/nrimp10s-77.imp" { // 1595 %INTEGER I #line 1595 "regression-compile-tmp/nrimp10s-77.imp" int I; // 1596 !*DELSTART // 1597 %IF DCOMP#0 %AND CA>CABUF %THEN CODEOUT %AND PRINTUSE #line 1597 "regression-compile-tmp/nrimp10s-77.imp" if (((DCOMP) == (0))) goto L_015a; #line 1597 "regression-compile-tmp/nrimp10s-77.imp" if (((CA) <= (CABUF))) goto L_015a; #line 1597 "regression-compile-tmp/nrimp10s-77.imp" CODEOUT(); #line 1597 "regression-compile-tmp/nrimp10s-77.imp" PRINTUSE(); #line 1597 "regression-compile-tmp/nrimp10s-77.imp" L_015a:; // 1598 !*DELEND // 1599 I=NEXTP #line 1599 "regression-compile-tmp/nrimp10s-77.imp" I = NEXTP; // 1600 NEXTP=NEXTP+A(NEXTP)<<16+A(NEXTP+1)<<8+A(NEXTP+2) #line 1600 "regression-compile-tmp/nrimp10s-77.imp" NEXTP = (((unsigned char)((((((NEXTP) + ((int)(((A[NEXTP]) << (16))))))) + (((A[(((int)(NEXTP)) + (1))]) << (8)))))) + (A[(((int)(NEXTP)) + (2))])); // 1601 LINE=A(I+3)<<8+A(I+4) #line 1601 "regression-compile-tmp/nrimp10s-77.imp" LINE = (((unsigned char)(((A[(((int)(I)) + (3))]) << (8)))) + (A[(((int)(I)) + (4))])); // 1602 STMTS=STMTS+1 #line 1602 "regression-compile-tmp/nrimp10s-77.imp" STMTS = (((int)(STMTS)) + (1)); // 1603 CSS(I+5) #line 1603 "regression-compile-tmp/nrimp10s-77.imp" CSS((((int)(I)) + (5))); // 1604 ! CHECK ASL %IF LINE&7=0 // 1605 %END #line 1605 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block COMPILEASTMNT at level 4 // 1606 %ROUTINE LOAD DATA #line 1606 "regression-compile-tmp/nrimp10s-77.imp" void LOADDATA( void ) #line 1606 "regression-compile-tmp/nrimp10s-77.imp" { // 1607 !*********************************************************************** // 1608 !* PASS INFORMATION TO LPUT TO ENABLE IT TO GENERATE THE * // 1609 !* LOADER DATA AND COMPLETE THE PROGRAM FILE. * // 1610 !*********************************************************************** // 1611 %INTEGER LANGFLAG,PARMS #line 1611 "regression-compile-tmp/nrimp10s-77.imp" int LANGFLAG; #line 1611 "regression-compile-tmp/nrimp10s-77.imp" int PARMS; // 1612 GLACA=(GLACA+7)&(-8) #line 1612 "regression-compile-tmp/nrimp10s-77.imp" GLACA = (((((int)(GLACA)) + (7))) & ((-8))); // 1613 USTPTR=(USTPTR+7)&(-8) #line 1613 "regression-compile-tmp/nrimp10s-77.imp" USTPTR = (((((int)(USTPTR)) + (7))) & ((-8))); // 1614 CODE OUT #line 1614 "regression-compile-tmp/nrimp10s-77.imp" CODEOUT(); // 1615 CNOP(0, 8) #line 1615 "regression-compile-tmp/nrimp10s-77.imp" CNOP(0, 8); // 1616 DUMP CONSTS #line 1616 "regression-compile-tmp/nrimp10s-77.imp" DUMPCONSTS(); // 1617 %IF PARMTRACE=0 %THEN LANGFLAG=6 %ELSE LANGFLAG=1 #line 1617 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMTRACE) != (0))) goto L_015b; #line 1617 "regression-compile-tmp/nrimp10s-77.imp" LANGFLAG = 6; #line 1617 "regression-compile-tmp/nrimp10s-77.imp" goto L_015c; #line 1617 "regression-compile-tmp/nrimp10s-77.imp" L_015b:; #line 1617 "regression-compile-tmp/nrimp10s-77.imp" LANGFLAG = 1; #line 1617 "regression-compile-tmp/nrimp10s-77.imp" L_015c:; // 1618 LANGFLAG=LANGFLAG<<24 #line 1618 "regression-compile-tmp/nrimp10s-77.imp" LANGFLAG = ((LANGFLAG) << (24)); // 1619 PARMS=(PARMDIAG<<1!PARMLINE)<<1!PARMTRACE #line 1619 "regression-compile-tmp/nrimp10s-77.imp" PARMS = ((((((((PARMDIAG) << (1))) | (PARMLINE))) << (1))) | (PARMTRACE)); // 1620 FIXED GLA(4)=LANGFLAG!1<<16!(CPRMODE&1)<<8!PARMS;! LANG RLSE & MAINPROG #line 1620 "regression-compile-tmp/nrimp10s-77.imp" FIXEDGLA[4] = ((((((LANGFLAG) | (((1) << (16))))) | (((((CPRMODE) & (1))) << (8))))) | (PARMS)); // 1621 I=GLACA-GLACABUF #line 1621 "regression-compile-tmp/nrimp10s-77.imp" I = (((int)(GLACA)) - (GLACABUF)); // 1622 %IF INHCODE=0 %THEN %START #line 1622 "regression-compile-tmp/nrimp10s-77.imp" if (((INHCODE) != (0))) goto L_015d; // 1623 LPUT(2, I, GLACABUF, ADDR(GLABUF(0))) %UNLESS I=0 #line 1623 "regression-compile-tmp/nrimp10s-77.imp" if (((I) == (0))) goto L_015e; #line 1623 "regression-compile-tmp/nrimp10s-77.imp" lput(2, I, GLACABUF, _imp_ADDR(&GLABUF[0])); #line 1623 "regression-compile-tmp/nrimp10s-77.imp" L_015e:; // 1624 ! BACK OF GLAP // 1625 LPUT(2, FIXEDGLALEN, 0, ADDR(FIXED GLA(0)));! FRONT OF GLAP #line 1625 "regression-compile-tmp/nrimp10s-77.imp" lput(2, 48, 0, _imp_ADDR(&FIXEDGLA[0])); // 1626 LPUT(19,2,8,5); ! RELOCATE GLA ST ADDRESS #line 1626 "regression-compile-tmp/nrimp10s-77.imp" lput(19, 2, 8, 5); // 1627 LPUT(19,2,12,4); ! RELOCATE CODE ST ADDRESS #line 1627 "regression-compile-tmp/nrimp10s-77.imp" lput(19, 2, 12, 4); // 1628 I=16_E2E2E2E2 #line 1628 "regression-compile-tmp/nrimp10s-77.imp" I = (-488447262); // 1629 LPUT(4, 4, SSTL, ADDR(I)) #line 1629 "regression-compile-tmp/nrimp10s-77.imp" lput(4, 4, SSTL, _imp_ADDR(&I)); // 1630 ! // 1631 %FINISH #line 1631 "regression-compile-tmp/nrimp10s-77.imp" L_015d:; // 1632 SSTL=(SSTL+11)&(-8) #line 1632 "regression-compile-tmp/nrimp10s-77.imp" SSTL = (((((int)(SSTL)) + (11))) & ((-8))); // 1633 PRINTSTRING(" #line 1633 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_str_literal("\nCODE")); // 1634 CODE") // 1635 WRITE(CA, 6); PRINTSTRING(" BYTES GLAP") #line 1635 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(CA, 6); #line 1635 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_str_literal(" BYTES GLAP")); // 1636 WRITE(GLACA, 3); PRINTSTRING("+") #line 1636 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(GLACA, 3); #line 1636 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_str_literal("+")); // 1637 WRITE(USTPTR, 1); PRINTSTRING(" BYTES DIAG TABLES") #line 1637 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(USTPTR, 1); #line 1637 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_str_literal(" BYTES DIAG TABLES")); // 1638 WRITE(SSTL, 3); PRINTSTRING(" BYTES #line 1638 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(SSTL, 3); #line 1638 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_str_literal(" BYTES\nTOTAL")); // 1639 TOTAL") // 1640 REGISTER(0)=CA; REGISTER(1)=GLACA #line 1640 "regression-compile-tmp/nrimp10s-77.imp" REGISTER[0] = CA; #line 1640 "regression-compile-tmp/nrimp10s-77.imp" REGISTER[1] = GLACA; // 1641 REGISTER(2)=0 #line 1641 "regression-compile-tmp/nrimp10s-77.imp" REGISTER[2] = 0; // 1642 REGISTER(3)=SSTL #line 1642 "regression-compile-tmp/nrimp10s-77.imp" REGISTER[3] = SSTL; // 1643 REGISTER(4)=USTPTR #line 1643 "regression-compile-tmp/nrimp10s-77.imp" REGISTER[4] = USTPTR; // 1644 K=CA+GLACA+SSTL+USTPTR; REGISTER(5)=K #line 1644 "regression-compile-tmp/nrimp10s-77.imp" K = (((int)((((int)((((int)(CA)) + (GLACA)))) + (SSTL)))) + (USTPTR)); #line 1644 "regression-compile-tmp/nrimp10s-77.imp" REGISTER[5] = K; // 1645 WRITE(K, 5); PRINTSTRING(" BYTES") #line 1645 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(K, 5); #line 1645 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_str_literal(" BYTES")); // 1646 NEWLINE; PRINT CH(13); ! MARKER FOR COMP TO PRINT #line 1646 "regression-compile-tmp/nrimp10s-77.imp" _imp_NEWLINE(); #line 1646 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTCH(13); // 1647 !SUMMARY // 1648 %IF FAULTY=0 %THEN %START #line 1648 "regression-compile-tmp/nrimp10s-77.imp" if (((FAULTY) != (0))) goto L_015f; // 1649 WRITE(STMTS, 7); PRINTSTRING(" STATEMENTS COMPILED IN") #line 1649 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(STMTS, 7); #line 1649 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_str_literal(" STATEMENTS COMPILED IN")); /*Warning: potential loss of precision converting from integer AST_ICONST (1000 - 4 bytes) to real AST_BINOP ((((double)(cputime())) - (CTIME)) - 0 bytes) detected at ast.c line 108 */ // 1650 WRITE(INT(1000*(CPUTIME-CTIME)),5) #line 1650 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(_imp_INT((((1000)) * ((((double)(cputime())) - (CTIME))))), 5); // 1651 PRINTSTRING(" MSECS") #line 1651 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_str_literal(" MSECS")); // 1652 COMREG(47)=STMTS; ! NO OF STMTS FOR COMPER #line 1652 "regression-compile-tmp/nrimp10s-77.imp" *comreg(47) = STMTS; // 1653 %FINISH %ELSE %START #line 1653 "regression-compile-tmp/nrimp10s-77.imp" goto L_0160; #line 1653 "regression-compile-tmp/nrimp10s-77.imp" L_015f:; // 1654 PRINTSTRING("PROGRAM CONTAINS"); WRITE(FAULTY, 2) #line 1654 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_str_literal("PROGRAM CONTAINS")); #line 1654 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(FAULTY, 2); // 1655 PRINTSTRING(" FAULT"); PRINTSYMBOL('S') %IF FAULTY>1 #line 1655 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_str_literal(" FAULT")); #line 1655 "regression-compile-tmp/nrimp10s-77.imp" if (((FAULTY) <= (1))) goto L_0161; #line 1655 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSYMBOL(83); #line 1655 "regression-compile-tmp/nrimp10s-77.imp" L_0161:; // 1656 COMREG(47)=FAULTY; ! NO OF FAULTS FOR COMPER #line 1656 "regression-compile-tmp/nrimp10s-77.imp" *comreg(47) = FAULTY; // 1657 %FINISH #line 1657 "regression-compile-tmp/nrimp10s-77.imp" L_0160:; // 1658 NEWLINES(2) #line 1658 "regression-compile-tmp/nrimp10s-77.imp" _imp_NEWLINES(2); // 1659 NEWLINE #line 1659 "regression-compile-tmp/nrimp10s-77.imp" _imp_NEWLINE(); // 1660 I=0; I=8 %IF FAULTY#0 #line 1660 "regression-compile-tmp/nrimp10s-77.imp" I = 0; #line 1660 "regression-compile-tmp/nrimp10s-77.imp" if (((FAULTY) == (0))) goto L_0162; #line 1660 "regression-compile-tmp/nrimp10s-77.imp" I = 8; #line 1660 "regression-compile-tmp/nrimp10s-77.imp" L_0162:; // 1661 COMREG(24)=I #line 1661 "regression-compile-tmp/nrimp10s-77.imp" *comreg(24) = I; // 1662 %IF INHCODE=0 %THEN LPUT(7, 24, 0, ADDR(REGISTER(0))) #line 1662 "regression-compile-tmp/nrimp10s-77.imp" if (((INHCODE) != (0))) goto L_0163; #line 1662 "regression-compile-tmp/nrimp10s-77.imp" lput(7, 24, 0, _imp_ADDR(®ISTER[0])); #line 1662 "regression-compile-tmp/nrimp10s-77.imp" L_0163:; // 1663 ! SUMMARY INFO..REGISTER AS BUF // 1664 ! PPROFILE // 1665 %STOP #line 1665 "regression-compile-tmp/nrimp10s-77.imp" exit(0); // 1666 %END #line 1666 "regression-compile-tmp/nrimp10s-77.imp" return; } // End of block LOADDATA at level 4 // 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 // 1681 %ROUTINE RECODE(%INTEGER S,F,AD) #line 1681 "regression-compile-tmp/nrimp10s-77.imp" void RECODE( int S, int F, int AD ) #line 1681 "regression-compile-tmp/nrimp10s-77.imp" { // 1682 %IF S#F %START #line 1682 "regression-compile-tmp/nrimp10s-77.imp" if (((S) == (F))) goto L_0164; // 1683 PRINTSTRING(" #line 1683 "regression-compile-tmp/nrimp10s-77.imp" _imp_PRINTSTRING(_imp_str_literal("\nCODE FOR LINE")); // 1684 CODE FOR LINE"); WRITE(LINE,5) #line 1684 "regression-compile-tmp/nrimp10s-77.imp" _imp_WRITE(LINE, 5); // 1685 NCODE(S,F,AD) #line 1685 "regression-compile-tmp/nrimp10s-77.imp" ncode(S, F, AD); // 1686 %FINISH #line 1686 "regression-compile-tmp/nrimp10s-77.imp" L_0164:; // 1687 %END #line 1687 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block RECODE at level 4 // 1688 !*DELEND // 1689 %ROUTINE CODEOUT #line 1689 "regression-compile-tmp/nrimp10s-77.imp" void CODEOUT( void ) #line 1689 "regression-compile-tmp/nrimp10s-77.imp" { // 1690 %IF PPCURR>0 %THEN %START #line 1690 "regression-compile-tmp/nrimp10s-77.imp" if (((PPCURR) <= (0))) goto L_0165; // 1691 !*DELSTART // 1692 RECODE(ADDR(CODE(0)), ADDR(CODE(PPCURR)), CABUF) %IF DCOMP#0 #line 1692 "regression-compile-tmp/nrimp10s-77.imp" if (((DCOMP) == (0))) goto L_0166; #line 1692 "regression-compile-tmp/nrimp10s-77.imp" RECODE(_imp_ADDR(&CODE[0]), _imp_ADDR(&CODE[PPCURR]), CABUF); #line 1692 "regression-compile-tmp/nrimp10s-77.imp" L_0166:; // 1693 !*DELEND // 1694 LPUT(1, PPCURR, CABUF, ADDR(CODE(0))) %IF INHCODE=0 #line 1694 "regression-compile-tmp/nrimp10s-77.imp" if (((INHCODE) != (0))) goto L_0167; #line 1694 "regression-compile-tmp/nrimp10s-77.imp" lput(1, PPCURR, CABUF, _imp_ADDR(&CODE[0])); #line 1694 "regression-compile-tmp/nrimp10s-77.imp" L_0167:; // 1695 PPCURR=0; CABUF=CA #line 1695 "regression-compile-tmp/nrimp10s-77.imp" PPCURR = 0; #line 1695 "regression-compile-tmp/nrimp10s-77.imp" CABUF = CA; // 1696 %FINISH #line 1696 "regression-compile-tmp/nrimp10s-77.imp" L_0165:; // 1697 %END #line 1697 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CODEOUT at level 4 // 1698 %ROUTINE PLANT(%INTEGER HALFWORD) #line 1698 "regression-compile-tmp/nrimp10s-77.imp" void PLANT( int HALFWORD ) #line 1698 "regression-compile-tmp/nrimp10s-77.imp" { // 1699 !*********************************************************************** // 1700 !* ADD A HALF WORD OF BINARY TO THE BUFFER * // 1701 !*********************************************************************** // 1702 ! %IF USE IMP=YES %THEN %START // 1703 CODE(PPCURR)<-HALFWORD>>8 #line 1703 "regression-compile-tmp/nrimp10s-77.imp" CODE[PPCURR] = (int)((((unsigned int)(HALFWORD)) >> (8))); // 1704 CODE(PPCURR+1)<-HALFWORD #line 1704 "regression-compile-tmp/nrimp10s-77.imp" CODE[(((int)(PPCURR)) + (1))] = HALFWORD; // 1705 PPCURR=PPCURR+2 #line 1705 "regression-compile-tmp/nrimp10s-77.imp" PPCURR = (((int)(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 // 1715 CA=CA+2 #line 1715 "regression-compile-tmp/nrimp10s-77.imp" CA = (((int)(CA)) + (2)); // 1716 CODEOUT %IF PPCURR>=256 #line 1716 "regression-compile-tmp/nrimp10s-77.imp" if (((PPCURR) < (256))) goto L_0168; #line 1716 "regression-compile-tmp/nrimp10s-77.imp" CODEOUT(); #line 1716 "regression-compile-tmp/nrimp10s-77.imp" L_0168:; // 1717 %END #line 1717 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PLANT at level 4 // 1718 %ROUTINE PCONST(%INTEGER WORD) #line 1718 "regression-compile-tmp/nrimp10s-77.imp" void PCONST( int WORD ) #line 1718 "regression-compile-tmp/nrimp10s-77.imp" { // 1719 !*********************************************************************** // 1720 !* ADD A WORD OF BINARY TO THE BUFFER * // 1721 !*********************************************************************** // 1722 %INTEGER I #line 1722 "regression-compile-tmp/nrimp10s-77.imp" int I; // 1723 ! %IF USE IMP=YES %THEN %START // 1724 %CYCLE I=24,-8,0 #line 1724 "regression-compile-tmp/nrimp10s-77.imp" I = 32; if ((((0)-(24)) % ((-8))) != 0) _imp_signal(5,1,0,"Illegal cycle I = 24, (-8), 0"); L_0169:; if (I == 0) goto L_016a; I += (-8); // 1725 CODE(PPCURR)=WORD>>I&255 #line 1725 "regression-compile-tmp/nrimp10s-77.imp" CODE[PPCURR] = (((int)((((unsigned int)(WORD)) >> (I)))) & (255)); // 1726 PPCURR=PPCURR+1 #line 1726 "regression-compile-tmp/nrimp10s-77.imp" PPCURR = (((int)(PPCURR)) + (1)); // 1727 %REPEAT #line 1727 "regression-compile-tmp/nrimp10s-77.imp" goto L_0169; #line 1727 "regression-compile-tmp/nrimp10s-77.imp" L_016a:; // 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 // 1737 CA=CA+4 #line 1737 "regression-compile-tmp/nrimp10s-77.imp" CA = (((int)(CA)) + (4)); // 1738 CODE OUT %IF PPCURR>=256 #line 1738 "regression-compile-tmp/nrimp10s-77.imp" if (((PPCURR) < (256))) goto L_016c; #line 1738 "regression-compile-tmp/nrimp10s-77.imp" CODEOUT(); #line 1738 "regression-compile-tmp/nrimp10s-77.imp" L_016c:; // 1739 %END #line 1739 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PCONST at level 4 // 1740 %ROUTINE PSF1(%INTEGER OPCODE,K,N) #line 1740 "regression-compile-tmp/nrimp10s-77.imp" void PSF1( int OPCODE, int K, int N ) #line 1740 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 1746 %INTEGER KPP #line 1746 "regression-compile-tmp/nrimp10s-77.imp" int KPP; // 1747 ! ABORT %UNLESS 0<=K<=2 %AND OPCODE&1=0 // 1748 %IF (K=0 %AND -64<=N<=63) %OR (K#0 %AND 0<=N<=511) %START #line 1748 "regression-compile-tmp/nrimp10s-77.imp" if (((K) != (0))) goto L_016d; #line 1748 "regression-compile-tmp/nrimp10s-77.imp" if (((((-64)) > (N))) || (((N) <= (63)))) goto L_016b; #line 1748 "regression-compile-tmp/nrimp10s-77.imp" L_016d:; #line 1748 "regression-compile-tmp/nrimp10s-77.imp" if (((K) == (0))) goto L_016e; #line 1748 "regression-compile-tmp/nrimp10s-77.imp" if ((((0) > (N))) || (((N) > (511)))) goto L_016e; #line 1748 "regression-compile-tmp/nrimp10s-77.imp" L_016b:; // 1749 %IF K#0 %THEN N=N//4 #line 1749 "regression-compile-tmp/nrimp10s-77.imp" if (((K) == (0))) goto L_016f; #line 1749 "regression-compile-tmp/nrimp10s-77.imp" N = (long)((long)((int)(N)) / (long)((int)(4))); #line 1749 "regression-compile-tmp/nrimp10s-77.imp" L_016f:; // 1750 ! %IF USE IMP=YES %THEN %START // 1751 CODE(PPCURR)=OPCODE!K>>1 #line 1751 "regression-compile-tmp/nrimp10s-77.imp" CODE[PPCURR] = ((OPCODE) | ((int)((((unsigned int)(K)) >> (1))))); // 1752 CODE(PPCURR+1)=(K&1)<<7!N&127 #line 1752 "regression-compile-tmp/nrimp10s-77.imp" CODE[(((int)(PPCURR)) + (1))] = ((((((K) & (1))) << (7))) | (((N) & (127)))); // 1753 PPCURR=PPCURR+2 #line 1753 "regression-compile-tmp/nrimp10s-77.imp" PPCURR = (((int)(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 // 1769 CA=CA+2 #line 1769 "regression-compile-tmp/nrimp10s-77.imp" CA = (((int)(CA)) + (2)); // 1770 CODEOUT %IF PPCURR>=256 #line 1770 "regression-compile-tmp/nrimp10s-77.imp" if (((PPCURR) < (256))) goto L_0170; #line 1770 "regression-compile-tmp/nrimp10s-77.imp" CODEOUT(); #line 1770 "regression-compile-tmp/nrimp10s-77.imp" L_0170:; // 1771 %FINISH %ELSE %START #line 1771 "regression-compile-tmp/nrimp10s-77.imp" goto L_0171; #line 1771 "regression-compile-tmp/nrimp10s-77.imp" L_016e:; // 1772 %IF K=0 %THEN KPP=0 %ELSE KPP=2 #line 1772 "regression-compile-tmp/nrimp10s-77.imp" if (((K) != (0))) goto L_0172; #line 1772 "regression-compile-tmp/nrimp10s-77.imp" KPP = 0; #line 1772 "regression-compile-tmp/nrimp10s-77.imp" goto L_0173; #line 1772 "regression-compile-tmp/nrimp10s-77.imp" L_0172:; #line 1772 "regression-compile-tmp/nrimp10s-77.imp" KPP = 2; #line 1772 "regression-compile-tmp/nrimp10s-77.imp" L_0173:; // 1773 PF1(OPCODE,K>>1<<1,KPP,N) #line 1773 "regression-compile-tmp/nrimp10s-77.imp" PF1(OPCODE, (((int)((((unsigned int)(K)) >> (1)))) << (1)), KPP, N); // 1774 %FINISH #line 1774 "regression-compile-tmp/nrimp10s-77.imp" L_0171:; // 1775 %END #line 1775 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PSF1 at level 4 // 1776 %ROUTINE PF1(%INTEGER OPCODE,KP,KPP,N) #line 1776 "regression-compile-tmp/nrimp10s-77.imp" void PF1( int OPCODE, int KP, int KPP, int N ) #line 1776 "regression-compile-tmp/nrimp10s-77.imp" { // 1777 !*********************************************************************** // 1778 !* PLANT THE NORMAL FORMS OF PRIMARY FORMAT INSTRNS(IE THOSE * // 1779 !* WHICH DO NOT DEPEND ON THE SIZE OF N) * // 1780 !*********************************************************************** // 1781 %INTEGER INC #line 1781 "regression-compile-tmp/nrimp10s-77.imp" int INC; // 1782 ! ABORT %UNLESS 0<=KP<=3 %AND 0<=KPP<=7 %AND OPCODE&1=0 // 1783 INC=2 #line 1783 "regression-compile-tmp/nrimp10s-77.imp" INC = 2; // 1784 %IF KPP=PC %THEN %START #line 1784 "regression-compile-tmp/nrimp10s-77.imp" if (((KPP) != (4))) goto L_0174; // 1785 %IF N<0 %THEN N=N&16_7FFFFFFF %AND NOTE CREF(CA,N) #line 1785 "regression-compile-tmp/nrimp10s-77.imp" if (((N) >= (0))) goto L_0175; #line 1785 "regression-compile-tmp/nrimp10s-77.imp" N = ((N) & (2147483647)); #line 1785 "regression-compile-tmp/nrimp10s-77.imp" NOTECREF(CA, N); #line 1785 "regression-compile-tmp/nrimp10s-77.imp" L_0175:; // 1786 N=(N-CA)//2 #line 1786 "regression-compile-tmp/nrimp10s-77.imp" N = (long)((long)(((((int)(N)) - (CA)))) / (long)((int)(2))); // 1787 %FINISH #line 1787 "regression-compile-tmp/nrimp10s-77.imp" L_0174:; // 1788 %IF (1<>16&3) #line 1791 "regression-compile-tmp/nrimp10s-77.imp" CODE[(((int)(PPCURR)) + (1))] = ((((((128) | (((KP) << (5))))) | (((KPP) << (2))))) | ((((int)((((unsigned int)(N)) >> (16)))) & (3)))); // 1792 CODE(PPCURR+2)=N>>8&255 #line 1792 "regression-compile-tmp/nrimp10s-77.imp" CODE[(((int)(PPCURR)) + (2))] = (((int)((((unsigned int)(N)) >> (8)))) & (255)); // 1793 CODE(PPCURR+3)=N&255 #line 1793 "regression-compile-tmp/nrimp10s-77.imp" CODE[(((int)(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 // 1811 %IF KPP<=5 %THEN INC=4 #line 1811 "regression-compile-tmp/nrimp10s-77.imp" if (((KPP) > (5))) goto L_0177; #line 1811 "regression-compile-tmp/nrimp10s-77.imp" INC = 4; #line 1811 "regression-compile-tmp/nrimp10s-77.imp" L_0177:; // 1812 PPCURR=PPCURR+INC #line 1812 "regression-compile-tmp/nrimp10s-77.imp" PPCURR = (((int)(PPCURR)) + (INC)); // 1813 CA=CA+INC #line 1813 "regression-compile-tmp/nrimp10s-77.imp" CA = (((int)(CA)) + (INC)); // 1814 CODEOUT %IF PPCURR>=256 #line 1814 "regression-compile-tmp/nrimp10s-77.imp" if (((PPCURR) < (256))) goto L_0178; #line 1814 "regression-compile-tmp/nrimp10s-77.imp" CODEOUT(); #line 1814 "regression-compile-tmp/nrimp10s-77.imp" L_0178:; // 1815 %END #line 1815 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PF1 at level 4 // 1816 %ROUTINE PSORLF1(%INTEGER OPCODE,KP,KPP,N) #line 1816 "regression-compile-tmp/nrimp10s-77.imp" void PSORLF1( int OPCODE, int KP, int KPP, int N ) #line 1816 "regression-compile-tmp/nrimp10s-77.imp" { // 1817 !*********************************************************************** // 1818 !* AS PF1 BUT CUT VALID FORMS TO SHORT FORM * // 1819 !*********************************************************************** // 1820 %INTEGER INC #line 1820 "regression-compile-tmp/nrimp10s-77.imp" int INC; // 1821 INC=2 #line 1821 "regression-compile-tmp/nrimp10s-77.imp" INC = 2; // 1822 %IF (KPP=0=KP %AND -64<=N<=63) %OR (KPP=LNB %AND KP&1=0 %AND 0<=N<=511) %START #line 1822 "regression-compile-tmp/nrimp10s-77.imp" if ((((KPP) != (0))) || (((0) != (KP)))) goto L_0179; #line 1822 "regression-compile-tmp/nrimp10s-77.imp" if (((((-64)) > (N))) || (((N) <= (63)))) goto L_017a; #line 1822 "regression-compile-tmp/nrimp10s-77.imp" L_0179:; #line 1822 "regression-compile-tmp/nrimp10s-77.imp" if (((KPP) != (2))) goto L_017b; #line 1822 "regression-compile-tmp/nrimp10s-77.imp" if (((((KP) & (1))) != (0))) goto L_017b; #line 1822 "regression-compile-tmp/nrimp10s-77.imp" if ((((0) > (N))) || (((N) > (511)))) goto L_017b; #line 1822 "regression-compile-tmp/nrimp10s-77.imp" L_017a:; // 1823 %IF KPP=LNB %THEN KP=1+KP>>1 #line 1823 "regression-compile-tmp/nrimp10s-77.imp" if (((KPP) != (2))) goto L_017c; #line 1823 "regression-compile-tmp/nrimp10s-77.imp" KP = ((1) + ((int)((int)((((unsigned int)(KP)) >> (1)))))); #line 1823 "regression-compile-tmp/nrimp10s-77.imp" L_017c:; // 1824 %IF KP#0 %THEN N=N//4 #line 1824 "regression-compile-tmp/nrimp10s-77.imp" if (((KP) == (0))) goto L_017d; #line 1824 "regression-compile-tmp/nrimp10s-77.imp" N = (long)((long)((int)(N)) / (long)((int)(4))); #line 1824 "regression-compile-tmp/nrimp10s-77.imp" L_017d:; // 1825 ! %IF USE IMP=YES %THEN %START // 1826 CODE(PPCURR)=OPCODE!KP>>1 #line 1826 "regression-compile-tmp/nrimp10s-77.imp" CODE[PPCURR] = ((OPCODE) | ((int)((((unsigned int)(KP)) >> (1))))); // 1827 CODE(PPCURR+1)=(KP&1)<<7!(N&127) #line 1827 "regression-compile-tmp/nrimp10s-77.imp" CODE[(((int)(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 // 1841 %FINISH %ELSE %START #line 1841 "regression-compile-tmp/nrimp10s-77.imp" goto L_017e; #line 1841 "regression-compile-tmp/nrimp10s-77.imp" L_017b:; // 1842 %IF KPP=PC %THEN %START #line 1842 "regression-compile-tmp/nrimp10s-77.imp" if (((KPP) != (4))) goto L_017f; // 1843 %IF N<0 %THEN N=N&16_7FFFFFFF %AND NOTE CREF(CA,N) #line 1843 "regression-compile-tmp/nrimp10s-77.imp" if (((N) >= (0))) goto L_0180; #line 1843 "regression-compile-tmp/nrimp10s-77.imp" N = ((N) & (2147483647)); #line 1843 "regression-compile-tmp/nrimp10s-77.imp" NOTECREF(CA, N); #line 1843 "regression-compile-tmp/nrimp10s-77.imp" L_0180:; // 1844 N=(N-CA)//2 #line 1844 "regression-compile-tmp/nrimp10s-77.imp" N = (long)((long)(((((int)(N)) - (CA)))) / (long)((int)(2))); // 1845 %FINISH #line 1845 "regression-compile-tmp/nrimp10s-77.imp" L_017f:; // 1846 %IF (1<>16&3) #line 1849 "regression-compile-tmp/nrimp10s-77.imp" CODE[(((int)(PPCURR)) + (1))] = ((((((((((4) | (KP))) << (3))) | (KPP))) << (2))) | ((((int)((((unsigned int)(N)) >> (16)))) & (3)))); // 1850 CODE(PPCURR+2)=N>>8&255 #line 1850 "regression-compile-tmp/nrimp10s-77.imp" CODE[(((int)(PPCURR)) + (2))] = (((int)((((unsigned int)(N)) >> (8)))) & (255)); // 1851 CODE(PPCURR+3)=N&255 #line 1851 "regression-compile-tmp/nrimp10s-77.imp" CODE[(((int)(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 // 1869 %IF KPP<=5 %THEN INC=4 #line 1869 "regression-compile-tmp/nrimp10s-77.imp" if (((KPP) > (5))) goto L_0182; #line 1869 "regression-compile-tmp/nrimp10s-77.imp" INC = 4; #line 1869 "regression-compile-tmp/nrimp10s-77.imp" L_0182:; // 1870 %FINISH #line 1870 "regression-compile-tmp/nrimp10s-77.imp" L_017e:; // 1871 CA=CA+INC; PPCURR=PPCURR+INC #line 1871 "regression-compile-tmp/nrimp10s-77.imp" CA = (((int)(CA)) + (INC)); #line 1871 "regression-compile-tmp/nrimp10s-77.imp" PPCURR = (((int)(PPCURR)) + (INC)); // 1872 CODEOUT %IF PPCURR>=256 #line 1872 "regression-compile-tmp/nrimp10s-77.imp" if (((PPCURR) < (256))) goto L_0183; #line 1872 "regression-compile-tmp/nrimp10s-77.imp" CODEOUT(); #line 1872 "regression-compile-tmp/nrimp10s-77.imp" L_0183:; // 1873 %END #line 1873 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PSORLF1 at level 4 // 1874 %ROUTINE PF2(%INTEGER OPCODE,H,Q,N,MASK,FILLER) #line 1874 "regression-compile-tmp/nrimp10s-77.imp" void PF2( int OPCODE, int H, int Q, int N, int MASK, int FILLER ) #line 1874 "regression-compile-tmp/nrimp10s-77.imp" { // 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 // 1880 PLANT(OPCODE<<8!H<<8!Q<<7!N) #line 1880 "regression-compile-tmp/nrimp10s-77.imp" PLANT(((((((((OPCODE) << (8))) | (((H) << (8))))) | (((Q) << (7))))) | (N))); // 1881 %IF Q#0 %THEN PLANT(MASK<<8!FILLER) #line 1881 "regression-compile-tmp/nrimp10s-77.imp" if (((Q) == (0))) goto L_0184; #line 1881 "regression-compile-tmp/nrimp10s-77.imp" PLANT(((((MASK) << (8))) | (FILLER))); #line 1881 "regression-compile-tmp/nrimp10s-77.imp" L_0184:; // 1882 %END #line 1882 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PF2 at level 4 // 1883 %ROUTINE PF3(%INTEGER OPCODE,MASK,KPPP,N) #line 1883 "regression-compile-tmp/nrimp10s-77.imp" void PF3( int OPCODE, int MASK, int KPPP, int N ) #line 1883 "regression-compile-tmp/nrimp10s-77.imp" { // 1884 !*********************************************************************** // 1885 !* PLANT THE TERTIARY(JUMP) FORMAT INSTRUCTIONS * // 1886 !*********************************************************************** // 1887 ! ABORT %UNLESS 0<=MASK<=15 %AND 0<=KPPP<=7 %AND OPCODE&1=0 // 1888 %IF KPPP=PC %THEN %START #line 1888 "regression-compile-tmp/nrimp10s-77.imp" if (((KPPP) != (4))) goto L_0185; // 1889 %IF N<0 %THEN N=N&16_7FFFFFFF %AND NOTE CREF(CA,N) #line 1889 "regression-compile-tmp/nrimp10s-77.imp" if (((N) >= (0))) goto L_0186; #line 1889 "regression-compile-tmp/nrimp10s-77.imp" N = ((N) & (2147483647)); #line 1889 "regression-compile-tmp/nrimp10s-77.imp" NOTECREF(CA, N); #line 1889 "regression-compile-tmp/nrimp10s-77.imp" L_0186:; // 1890 N=(N-CA)//2 #line 1890 "regression-compile-tmp/nrimp10s-77.imp" N = (long)((long)(((((int)(N)) - (CA)))) / (long)((int)(2))); // 1891 %FINISH #line 1891 "regression-compile-tmp/nrimp10s-77.imp" L_0185:; // 1892 CODE(PPCURR)=OPCODE!MASK>>3&1 #line 1892 "regression-compile-tmp/nrimp10s-77.imp" CODE[PPCURR] = ((OPCODE) | ((((int)((((unsigned int)(MASK)) >> (3)))) & (1)))); // 1893 CODE(PPCURR+1)=(MASK&7)<<5!KPPP<<2!(N>>16&3) #line 1893 "regression-compile-tmp/nrimp10s-77.imp" CODE[(((int)(PPCURR)) + (1))] = ((((((((MASK) & (7))) << (5))) | (((KPPP) << (2))))) | ((((int)((((unsigned int)(N)) >> (16)))) & (3)))); // 1894 PPCURR=PPCURR+2 #line 1894 "regression-compile-tmp/nrimp10s-77.imp" PPCURR = (((int)(PPCURR)) + (2)); // 1895 CA=CA+2 #line 1895 "regression-compile-tmp/nrimp10s-77.imp" CA = (((int)(CA)) + (2)); // 1896 %IF KPPP<=5 %THEN %START #line 1896 "regression-compile-tmp/nrimp10s-77.imp" if (((KPPP) > (5))) goto L_0187; // 1897 CODE(PPCURR)=N>>8&255 #line 1897 "regression-compile-tmp/nrimp10s-77.imp" CODE[PPCURR] = (((int)((((unsigned int)(N)) >> (8)))) & (255)); // 1898 CODE(PPCURR+1)=N&255 #line 1898 "regression-compile-tmp/nrimp10s-77.imp" CODE[(((int)(PPCURR)) + (1))] = ((N) & (255)); // 1899 PPCURR=PPCURR+2; CA=CA+2 #line 1899 "regression-compile-tmp/nrimp10s-77.imp" PPCURR = (((int)(PPCURR)) + (2)); #line 1899 "regression-compile-tmp/nrimp10s-77.imp" CA = (((int)(CA)) + (2)); // 1900 %FINISH #line 1900 "regression-compile-tmp/nrimp10s-77.imp" L_0187:; // 1901 CODEOUT %IF PPCURR>=256 #line 1901 "regression-compile-tmp/nrimp10s-77.imp" if (((PPCURR) < (256))) goto L_0188; #line 1901 "regression-compile-tmp/nrimp10s-77.imp" CODEOUT(); #line 1901 "regression-compile-tmp/nrimp10s-77.imp" L_0188:; // 1902 %END #line 1902 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PF3 at level 4 // 1903 %ROUTINE NOTE CREF(%INTEGER CA,N) #line 1903 "regression-compile-tmp/nrimp10s-77.imp" void NOTECREF( int CA, int N ) #line 1903 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 1909 %RECORD(LISTF)%NAME CELL {(LISTF) #line 1909 "regression-compile-tmp/nrimp10s-77.imp" LISTF /*name*/*CELL; // 1910 CELL==ASLIST(CREFHEAD) #line 1910 "regression-compile-tmp/nrimp10s-77.imp" CELL = &ASLIST[CREFHEAD]; // 1911 %IF CREFHEAD=0 %OR CELL_S3#0 %THEN PUSH(CREFHEAD,CA,0,0) %AND %RETURN #line 1911 "regression-compile-tmp/nrimp10s-77.imp" if (((CREFHEAD) == (0))) goto L_0189; #line 1911 "regression-compile-tmp/nrimp10s-77.imp" if (((CELL->S3) == (0))) goto L_018a; #line 1911 "regression-compile-tmp/nrimp10s-77.imp" L_0189:; #line 1911 "regression-compile-tmp/nrimp10s-77.imp" PUSH(&CREFHEAD, CA, 0, 0); #line 1911 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 1911 "regression-compile-tmp/nrimp10s-77.imp" L_018a:; // 1912 %IF CELL_S2=0 %THEN CELL_S2=CA %ELSE CELL_S3=CA #line 1912 "regression-compile-tmp/nrimp10s-77.imp" if (((CELL->S2) != (0))) goto L_018b; #line 1912 "regression-compile-tmp/nrimp10s-77.imp" CELL->S2 = CA; #line 1912 "regression-compile-tmp/nrimp10s-77.imp" goto L_018c; #line 1912 "regression-compile-tmp/nrimp10s-77.imp" L_018b:; #line 1912 "regression-compile-tmp/nrimp10s-77.imp" CELL->S3 = CA; #line 1912 "regression-compile-tmp/nrimp10s-77.imp" L_018c:; // 1913 %END #line 1913 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block NOTECREF at level 4 // 1914 %ROUTINE PCLOD(%INTEGER FROM, TO) #line 1914 "regression-compile-tmp/nrimp10s-77.imp" void PCLOD( int FROM, int TO ) #line 1914 "regression-compile-tmp/nrimp10s-77.imp" { // 1915 !*********************************************************************** // 1916 !* PLANT A SERIES OF INTRUNS FROM ARRAY FIXED CODE * // 1917 !*********************************************************************** // 1918 %INTEGER I #line 1918 "regression-compile-tmp/nrimp10s-77.imp" int I; // 1919 !%CONSTINTEGERARRAY FIXED CODE(0:127) // 1920 ! %CYCLE I=FROM, 1, TO // 1921 ! PCONST(FIXED CODE(I)) // 1922 ! %REPEAT // 1923 %END #line 1923 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PCLOD at level 4 // 1924 %ROUTINE CNOP(%INTEGER I, J) #line 1924 "regression-compile-tmp/nrimp10s-77.imp" void CNOP( int I, int J ) #line 1924 "regression-compile-tmp/nrimp10s-77.imp" { // 1925 PSF1(JUNC,0,1) %WHILE CA&(J-1)#I #line 1925 "regression-compile-tmp/nrimp10s-77.imp" L_018d:; #line 1925 "regression-compile-tmp/nrimp10s-77.imp" if (((((CA) & ((((int)(J)) - (1))))) == (I))) goto L_018e; #line 1925 "regression-compile-tmp/nrimp10s-77.imp" PSF1(26, 0, 1); #line 1925 "regression-compile-tmp/nrimp10s-77.imp" goto L_018d; #line 1925 "regression-compile-tmp/nrimp10s-77.imp" L_018e:; // 1926 %END #line 1926 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CNOP at level 4 // 1927 %ROUTINE PGLA(%INTEGER BDRY, L, INF ADR) #line 1927 "regression-compile-tmp/nrimp10s-77.imp" void PGLA( int BDRY, int L, int INFADR ) #line 1927 "regression-compile-tmp/nrimp10s-77.imp" { // 1928 %INTEGER I, J #line 1928 "regression-compile-tmp/nrimp10s-77.imp" int I; #line 1928 "regression-compile-tmp/nrimp10s-77.imp" int J; // 1929 J=GLACA; GLACA=(J+BDRY-1)&(-BDRY) #line 1929 "regression-compile-tmp/nrimp10s-77.imp" J = GLACA; #line 1929 "regression-compile-tmp/nrimp10s-77.imp" GLACA = (((((int)((((int)(J)) + (BDRY)))) - (1))) & ((-(BDRY)))); // 1930 GLACURR=GLACURR+GLACA-J; ! COMPLETE THE ROUNDING #line 1930 "regression-compile-tmp/nrimp10s-77.imp" GLACURR = (((int)((((int)(GLACURR)) + (GLACA)))) - (J)); // 1931 %IF L+GLACURR>256 %THEN %START #line 1931 "regression-compile-tmp/nrimp10s-77.imp" if ((((((int)(L)) + (GLACURR))) <= (256))) goto L_0190; // 1932 %IF INHCODE=0 %THEN LPUT(2, GLACURR, GLACABUF, ADDR(GLABUF(0))) #line 1932 "regression-compile-tmp/nrimp10s-77.imp" if (((INHCODE) != (0))) goto L_0191; #line 1932 "regression-compile-tmp/nrimp10s-77.imp" lput(2, GLACURR, GLACABUF, _imp_ADDR(&GLABUF[0])); #line 1932 "regression-compile-tmp/nrimp10s-77.imp" L_0191:; // 1933 GLACURR=0; GLACABUF=GLACA #line 1933 "regression-compile-tmp/nrimp10s-77.imp" GLACURR = 0; #line 1933 "regression-compile-tmp/nrimp10s-77.imp" GLACABUF = GLACA; // 1934 %FINISH #line 1934 "regression-compile-tmp/nrimp10s-77.imp" L_0190:; // 1935 %CYCLE I=0,1,L-1 #line 1935 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = (((int)(L)) - (1)); I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, (((int)(L)) - (1))"); I -= _increment; _control -= _increment; L_0192:; if (I == _final) goto L_0193; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 1936 GLABUF(GLACURR+I)=BYTE INTEGER(I+INF ADR) #line 1936 "regression-compile-tmp/nrimp10s-77.imp" GLABUF[(((int)(GLACURR)) + (I))] = *_imp_BYTEINTEGER((((int)(I)) + (INFADR))); // 1937 %REPEAT #line 1937 "regression-compile-tmp/nrimp10s-77.imp" goto L_0192; #line 1937 "regression-compile-tmp/nrimp10s-77.imp" L_0193:; // 1938 GLACA=GLACA+L; GLACURR=GLACURR+L #line 1938 "regression-compile-tmp/nrimp10s-77.imp" GLACA = (((int)(GLACA)) + (L)); #line 1938 "regression-compile-tmp/nrimp10s-77.imp" GLACURR = (((int)(GLACURR)) + (L)); // 1939 %END #line 1939 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PGLA at level 4 // 1940 %ROUTINE PLUG(%INTEGER AREA, AT, VALUE, BYTES) #line 1940 "regression-compile-tmp/nrimp10s-77.imp" void PLUG( int AREA, int AT, int VALUE, int BYTES ) #line 1940 "regression-compile-tmp/nrimp10s-77.imp" { // 1941 !*********************************************************************** // 1942 !* WRITE UP TO ONE WORD INTO OBJECT FILE OUT OF SEQUENCE * // 1943 !*********************************************************************** // 1944 %INTEGERNAME WCABUF #line 1944 "regression-compile-tmp/nrimp10s-77.imp" int /*name*/*WCABUF; // 1945 %INTEGER I, RELAD, BUFAD #line 1945 "regression-compile-tmp/nrimp10s-77.imp" int I; #line 1945 "regression-compile-tmp/nrimp10s-77.imp" int RELAD; #line 1945 "regression-compile-tmp/nrimp10s-77.imp" int BUFAD; // 1946 WCABUF==CABUF; BUFAD=ADDR(CODE(0)) #line 1946 "regression-compile-tmp/nrimp10s-77.imp" WCABUF = &CABUF; #line 1946 "regression-compile-tmp/nrimp10s-77.imp" BUFAD = _imp_ADDR(&CODE[0]); // 1947 %IF AREA=2 %THEN WCABUF==GLACABUF %AND BUFAD=ADDR(GLABUF(0)) #line 1947 "regression-compile-tmp/nrimp10s-77.imp" if (((AREA) != (2))) goto L_0195; #line 1947 "regression-compile-tmp/nrimp10s-77.imp" WCABUF = &GLACABUF; #line 1947 "regression-compile-tmp/nrimp10s-77.imp" BUFAD = _imp_ADDR(&GLABUF[0]); #line 1947 "regression-compile-tmp/nrimp10s-77.imp" L_0195:; // 1948 RELAD=AT-WCABUF #line 1948 "regression-compile-tmp/nrimp10s-77.imp" RELAD = (((int)(AT)) - (*WCABUF)); // 1949 %IF 0<=RELAD<=256 %AND AREA<=3 %THEN %START #line 1949 "regression-compile-tmp/nrimp10s-77.imp" if ((((0) > (RELAD))) || (((RELAD) > (256)))) goto L_0196; #line 1949 "regression-compile-tmp/nrimp10s-77.imp" if (((AREA) > (3))) goto L_0196; // 1950 %CYCLE I=0,1,BYTES-1 #line 1950 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = (((int)(BYTES)) - (1)); I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, (((int)(BYTES)) - (1))"); I -= _increment; _control -= _increment; L_0197:; if (I == _final) goto L_0198; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 1951 BYTEINTEGER(RELAD+BUFAD+I)<-VALUE>>((BYTES-1-I)<<3) #line 1951 "regression-compile-tmp/nrimp10s-77.imp" *_imp_BYTEINTEGER((((int)((((int)(RELAD)) + (BUFAD)))) + (I))) = (int)((((unsigned int)(VALUE)) >> ((((((int)((((int)(BYTES)) - (1)))) - (I))) << (3))))); // 1952 %REPEAT #line 1952 "regression-compile-tmp/nrimp10s-77.imp" goto L_0197; #line 1952 "regression-compile-tmp/nrimp10s-77.imp" L_0198:; // 1953 %FINISH %ELSE %START #line 1953 "regression-compile-tmp/nrimp10s-77.imp" goto L_019a; #line 1953 "regression-compile-tmp/nrimp10s-77.imp" L_0196:; // 1954 %IF RELAD=-2 %THEN CODEOUT #line 1954 "regression-compile-tmp/nrimp10s-77.imp" if (((RELAD) != ((-2)))) goto L_019b; #line 1954 "regression-compile-tmp/nrimp10s-77.imp" CODEOUT(); #line 1954 "regression-compile-tmp/nrimp10s-77.imp" L_019b:; // 1955 %IF INHCODE=0 %THEN LPUT(AREA,BYTES,AT,ADDR(VALUE)+4-BYTES) #line 1955 "regression-compile-tmp/nrimp10s-77.imp" if (((INHCODE) != (0))) goto L_019c; #line 1955 "regression-compile-tmp/nrimp10s-77.imp" lput(AREA, BYTES, AT, (((int)((((int)(_imp_ADDR(&VALUE))) + (4)))) - (BYTES))); #line 1955 "regression-compile-tmp/nrimp10s-77.imp" L_019c:; // 1956 !*DELSTART // 1957 NCODE(ADDR(VALUE)+4-BYTES,ADDR(VALUE)+4,AT) %IF DCOMP=1=AREA #line 1957 "regression-compile-tmp/nrimp10s-77.imp" if ((((DCOMP) != (1))) || (((1) != (AREA)))) goto L_019d; #line 1957 "regression-compile-tmp/nrimp10s-77.imp" ncode((((int)((((int)(_imp_ADDR(&VALUE))) + (4)))) - (BYTES)), (((int)(_imp_ADDR(&VALUE))) + (4)), AT); #line 1957 "regression-compile-tmp/nrimp10s-77.imp" L_019d:; // 1958 !*DELEND // 1959 %FINISH #line 1959 "regression-compile-tmp/nrimp10s-77.imp" L_019a:; // 1960 %END #line 1960 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PLUG at level 4 // 1961 // 1962 %INTEGERFN PARAM DES(%INTEGER PREC) #line 1962 "regression-compile-tmp/nrimp10s-77.imp" int PARAMDES( int PREC ) #line 1962 "regression-compile-tmp/nrimp10s-77.imp" { // 1963 !*********************************************************************** // 1964 !* SET UP BNDED L=1 DESRIPTOR FOR PASSING VARIABLE BY REFERENCE * // 1965 !* ONLY THE TOP HALF IS SET UP * // 1966 !*********************************************************************** // 1967 %INTEGER K,DES #line 1967 "regression-compile-tmp/nrimp10s-77.imp" int K; #line 1967 "regression-compile-tmp/nrimp10s-77.imp" int DES; // 1968 K=DESADS(PREC) #line 1968 "regression-compile-tmp/nrimp10s-77.imp" K = DESADS[PREC]; // 1969 %RESULT=K %UNLESS K=0 #line 1969 "regression-compile-tmp/nrimp10s-77.imp" if (((K) == (0))) goto L_019e; #line 1969 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return K; #line 1969 "regression-compile-tmp/nrimp10s-77.imp" L_019e:; // 1970 %IF PREC=4 %THEN DES=16_58000002 %ELSE DES=PREC<<27!1 #line 1970 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) != (4))) goto L_019f; #line 1970 "regression-compile-tmp/nrimp10s-77.imp" DES = 1476395010; #line 1970 "regression-compile-tmp/nrimp10s-77.imp" goto L_01a0; #line 1970 "regression-compile-tmp/nrimp10s-77.imp" L_019f:; #line 1970 "regression-compile-tmp/nrimp10s-77.imp" DES = ((((PREC) << (27))) | (1)); #line 1970 "regression-compile-tmp/nrimp10s-77.imp" L_01a0:; // 1971 STORE CONST (K,4,ADDR(DES)) #line 1971 "regression-compile-tmp/nrimp10s-77.imp" STORECONST(&K, 4, _imp_ADDR(&DES)); // 1972 DESADS(PREC)=K #line 1972 "regression-compile-tmp/nrimp10s-77.imp" DESADS[PREC] = K; // 1973 %RESULT=K #line 1973 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return K; // 1974 %END #line 1974 "regression-compile-tmp/nrimp10s-77.imp" } // End of block PARAMDES at level 4 // 1975 %INTEGERFN MAPDES(%INTEGER PREC) #line 1975 "regression-compile-tmp/nrimp10s-77.imp" int MAPDES( int PREC ) #line 1975 "regression-compile-tmp/nrimp10s-77.imp" { // 1976 !*********************************************************************** // 1977 !* SET UP 8BIT ZERO ADDRESS UNSCALED BCI DESCRTR FOR MAPPING * // 1978 !*********************************************************************** // 1979 %INTEGER K,DES0,DES1 #line 1979 "regression-compile-tmp/nrimp10s-77.imp" int K; #line 1979 "regression-compile-tmp/nrimp10s-77.imp" int DES0; #line 1979 "regression-compile-tmp/nrimp10s-77.imp" int DES1; // 1980 K=DESADS(PREC+8) #line 1980 "regression-compile-tmp/nrimp10s-77.imp" K = DESADS[(((int)(PREC)) + (8))]; // 1981 %RESULT=K %UNLESS K=0 #line 1981 "regression-compile-tmp/nrimp10s-77.imp" if (((K) == (0))) goto L_01a1; #line 1981 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return K; #line 1981 "regression-compile-tmp/nrimp10s-77.imp" L_01a1:; // 1982 %IF PREC=4 %THEN DES0=16_58000002 %ELSE DES0=16_03000000!PREC<<27 #line 1982 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) != (4))) goto L_01a2; #line 1982 "regression-compile-tmp/nrimp10s-77.imp" DES0 = 1476395010; #line 1982 "regression-compile-tmp/nrimp10s-77.imp" goto L_01a3; #line 1982 "regression-compile-tmp/nrimp10s-77.imp" L_01a2:; #line 1982 "regression-compile-tmp/nrimp10s-77.imp" DES0 = ((50331648) | (((PREC) << (27)))); #line 1982 "regression-compile-tmp/nrimp10s-77.imp" L_01a3:; // 1983 DES1=0; STORE CONST(K,8,ADDR(DES0)) #line 1983 "regression-compile-tmp/nrimp10s-77.imp" DES1 = 0; #line 1983 "regression-compile-tmp/nrimp10s-77.imp" STORECONST(&K, 8, _imp_ADDR(&DES0)); // 1984 DESADS(PREC+8)=K #line 1984 "regression-compile-tmp/nrimp10s-77.imp" DESADS[(((int)(PREC)) + (8))] = K; // 1985 %RESULT=K #line 1985 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return K; // 1986 %END #line 1986 "regression-compile-tmp/nrimp10s-77.imp" } // End of block MAPDES at level 4 // 1987 %INTEGERFN SPECIAL CONSTS(%INTEGER WHICH) #line 1987 "regression-compile-tmp/nrimp10s-77.imp" int SPECIALCONSTS( int WHICH ) #line 1987 "regression-compile-tmp/nrimp10s-77.imp" { // 1988 !*********************************************************************** // 1989 !* PUTS CERTAIN SPECIAL CONSTANTS INTO THE CONSTANT TABLE ON * // 1990 !* DEMAND AND REMEMBERS THEIR POSN TO AVOID SEARCHONG * // 1991 !*********************************************************************** // 1992 {%CONST}%ownINTEGERARRAY SCS(0:5) = 16_40800000,0, #line 1992 "regression-compile-tmp/nrimp10s-77.imp" static int SCS[6] = { 1082130432, 0, 1091567616, 0, 1, 0, }; // 1993 16_41100000,0, // 1994 1,0; // 1995 %INTEGER K #line 1995 "regression-compile-tmp/nrimp10s-77.imp" int K; // 1996 K=DESADS(WHICH+16) #line 1996 "regression-compile-tmp/nrimp10s-77.imp" K = DESADS[(((int)(WHICH)) + (16))]; // 1997 %RESULT=K %UNLESS K=0 #line 1997 "regression-compile-tmp/nrimp10s-77.imp" if (((K) == (0))) goto L_01a4; #line 1997 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return K; #line 1997 "regression-compile-tmp/nrimp10s-77.imp" L_01a4:; // 1998 STORE CONST(K,8,ADDR(SCS(2*WHICH))) #line 1998 "regression-compile-tmp/nrimp10s-77.imp" STORECONST(&K, 8, _imp_ADDR(&SCS[(((int)(2)) * (WHICH))])); // 1999 DESADS(WHICH+16)=K #line 1999 "regression-compile-tmp/nrimp10s-77.imp" DESADS[(((int)(WHICH)) + (16))] = K; // 2000 %RESULT=K #line 2000 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return K; // 2001 %END #line 2001 "regression-compile-tmp/nrimp10s-77.imp" } // End of block SPECIALCONSTS at level 4 // 2002 %ROUTINE STORE CONST(%INTEGERNAME D, %INTEGER L, AD) #line 2002 "regression-compile-tmp/nrimp10s-77.imp" void STORECONST( int /*name*/*D, int L, int AD ) #line 2002 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 2008 %INTEGER I, J, K, C1, C2, C3, C4, LP #line 2008 "regression-compile-tmp/nrimp10s-77.imp" int I; #line 2008 "regression-compile-tmp/nrimp10s-77.imp" int J; #line 2008 "regression-compile-tmp/nrimp10s-77.imp" int K; #line 2008 "regression-compile-tmp/nrimp10s-77.imp" int C1; #line 2008 "regression-compile-tmp/nrimp10s-77.imp" int C2; #line 2008 "regression-compile-tmp/nrimp10s-77.imp" int C3; #line 2008 "regression-compile-tmp/nrimp10s-77.imp" int C4; #line 2008 "regression-compile-tmp/nrimp10s-77.imp" int LP; // 2009 LP=L//4; C2=0; C3=0; C4=0 #line 2009 "regression-compile-tmp/nrimp10s-77.imp" LP = (long)((long)((int)(L)) / (long)((int)(4))); #line 2009 "regression-compile-tmp/nrimp10s-77.imp" C2 = 0; #line 2009 "regression-compile-tmp/nrimp10s-77.imp" C3 = 0; #line 2009 "regression-compile-tmp/nrimp10s-77.imp" C4 = 0; // 2010 %CYCLE I=0,1,L-1 #line 2010 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = (((int)(L)) - (1)); I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, (((int)(L)) - (1))"); I -= _increment; _control -= _increment; L_01a5:; if (I == _final) goto L_01a6; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 2011 BYTEINTEGER(ADDR(C1)+I)=BYTEINTEGER(AD+I) #line 2011 "regression-compile-tmp/nrimp10s-77.imp" *_imp_BYTEINTEGER((((int)(_imp_ADDR(&C1))) + (I))) = *_imp_BYTEINTEGER((((int)(AD)) + (I))); // 2012 %REPEAT #line 2012 "regression-compile-tmp/nrimp10s-77.imp" goto L_01a5; #line 2012 "regression-compile-tmp/nrimp10s-77.imp" L_01a6:; // 2013 %IF PARMOPT#0 %THEN ->SKIP #line 2013 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMOPT) == (0))) goto L_01a8; #line 2013 "regression-compile-tmp/nrimp10s-77.imp" goto U_1014; #line 2013 "regression-compile-tmp/nrimp10s-77.imp" L_01a8:; // 2014 K=CONST BTM; ! AFTER STRINGS IN CTABLE #line 2014 "regression-compile-tmp/nrimp10s-77.imp" K = CONSTBTM; // 2015 %IF L=4 %THEN %START #line 2015 "regression-compile-tmp/nrimp10s-77.imp" if (((L) != (4))) goto L_01a9; // 2016 ! %IF USE IMP=YES %THEN %START // 2017 %WHILE K= (CONSTPTR))) goto L_01ab; // 2018 %IF CTABLE_val(K)=C1 %AND CONSTHOLE#K %THEN D=4*K!16_80000000 %AND %RETURN #line 2018 "regression-compile-tmp/nrimp10s-77.imp" if (((CTABLE->VAL[K]) != (C1))) goto L_01ad; #line 2018 "regression-compile-tmp/nrimp10s-77.imp" if (((CONSTHOLE) == (K))) goto L_01ad; #line 2018 "regression-compile-tmp/nrimp10s-77.imp" *D = (((((int)(4)) * (K))) | ((-2147483648))); #line 2018 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 2018 "regression-compile-tmp/nrimp10s-77.imp" L_01ad:; // 2019 K=K+1 #line 2019 "regression-compile-tmp/nrimp10s-77.imp" K = (((int)(K)) + (1)); // 2020 %REPEAT #line 2020 "regression-compile-tmp/nrimp10s-77.imp" goto L_01aa; #line 2020 "regression-compile-tmp/nrimp10s-77.imp" L_01ab:; // 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 // 2040 %FINISH %ELSE %START #line 2040 "regression-compile-tmp/nrimp10s-77.imp" goto L_01ae; #line 2040 "regression-compile-tmp/nrimp10s-77.imp" L_01a9:; // 2041 J=CONSTPTR-LP #line 2041 "regression-compile-tmp/nrimp10s-77.imp" J = (((int)(CONSTPTR)) - (LP)); // 2042 %WHILE K<=J %CYCLE #line 2042 "regression-compile-tmp/nrimp10s-77.imp" L_01af:; #line 2042 "regression-compile-tmp/nrimp10s-77.imp" if (((K) > (J))) goto L_01b0; // 2043 %IF CTABLE_val(K)=C1 %AND CTABLE_val(K+1)=C2 %AND (CONSTHOLE=K+LP) %START #line 2043 "regression-compile-tmp/nrimp10s-77.imp" if (((CTABLE->VAL[K]) != (C1))) goto L_01b2; #line 2043 "regression-compile-tmp/nrimp10s-77.imp" if (((CTABLE->VAL[(((int)(K)) + (1))]) != (C2))) goto L_01b2; #line 2043 "regression-compile-tmp/nrimp10s-77.imp" if (((CONSTHOLE) < (K))) goto L_0134; #line 2043 "regression-compile-tmp/nrimp10s-77.imp" if (((CONSTHOLE) < ((((int)(K)) + (LP))))) goto L_01b2; #line 2043 "regression-compile-tmp/nrimp10s-77.imp" L_0134:; // 2044 %IF L=8 %OR (CTABLE_val(K+2)=C3 %AND CTABLE_val(K+3)=C4) %THEN D=4*K!16_80000000 %AND %RETURN #line 2044 "regression-compile-tmp/nrimp10s-77.imp" if (((L) == (8))) goto L_01b3; #line 2044 "regression-compile-tmp/nrimp10s-77.imp" if (((CTABLE->VAL[(((int)(K)) + (2))]) != (C3))) goto L_01b4; #line 2044 "regression-compile-tmp/nrimp10s-77.imp" if (((CTABLE->VAL[(((int)(K)) + (3))]) != (C4))) goto L_01b4; #line 2044 "regression-compile-tmp/nrimp10s-77.imp" L_01b3:; #line 2044 "regression-compile-tmp/nrimp10s-77.imp" *D = (((((int)(4)) * (K))) | ((-2147483648))); #line 2044 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 2044 "regression-compile-tmp/nrimp10s-77.imp" L_01b4:; // 2045 %FINISH #line 2045 "regression-compile-tmp/nrimp10s-77.imp" L_01b2:; // 2046 K=K+2 #line 2046 "regression-compile-tmp/nrimp10s-77.imp" K = (((int)(K)) + (2)); // 2047 %REPEAT #line 2047 "regression-compile-tmp/nrimp10s-77.imp" goto L_01af; #line 2047 "regression-compile-tmp/nrimp10s-77.imp" L_01b0:; // 2048 %FINISH #line 2048 "regression-compile-tmp/nrimp10s-77.imp" L_01ae:; // 2049 SKIP: #line 2049 "regression-compile-tmp/nrimp10s-77.imp" U_1014:; // 2050 %IF L=4 %AND CONSTHOLE#0 %START #line 2050 "regression-compile-tmp/nrimp10s-77.imp" if (((L) != (4))) goto L_01b5; #line 2050 "regression-compile-tmp/nrimp10s-77.imp" if (((CONSTHOLE) == (0))) goto L_01b5; // 2051 CTABLE_val(CONSTHOLE)=C1 #line 2051 "regression-compile-tmp/nrimp10s-77.imp" CTABLE->VAL[CONSTHOLE] = C1; // 2052 D=4*CONSTHOLE!16_80000000 #line 2052 "regression-compile-tmp/nrimp10s-77.imp" *D = (((((int)(4)) * (CONSTHOLE))) | ((-2147483648))); // 2053 CONSTHOLE=0 #line 2053 "regression-compile-tmp/nrimp10s-77.imp" CONSTHOLE = 0; // 2054 %RETURN #line 2054 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 2055 %FINISH #line 2055 "regression-compile-tmp/nrimp10s-77.imp" L_01b5:; // 2056 %IF L>4 %AND CONST PTR&1#0 %THEN CONSTHOLE=CONST PTR %AND CONSTPTR=CONST PTR+1 #line 2056 "regression-compile-tmp/nrimp10s-77.imp" if (((L) <= (4))) goto L_01b6; #line 2056 "regression-compile-tmp/nrimp10s-77.imp" if (((((CONSTPTR) & (1))) == (0))) goto L_01b6; #line 2056 "regression-compile-tmp/nrimp10s-77.imp" CONSTHOLE = CONSTPTR; #line 2056 "regression-compile-tmp/nrimp10s-77.imp" CONSTPTR = (((int)(CONSTPTR)) + (1)); #line 2056 "regression-compile-tmp/nrimp10s-77.imp" L_01b6:; // 2057 D=4*CONST PTR!16_80000000 #line 2057 "regression-compile-tmp/nrimp10s-77.imp" *D = (((((int)(4)) * (CONSTPTR))) | ((-2147483648))); // 2058 CTABLE_val(CONSTPTR)=C1 #line 2058 "regression-compile-tmp/nrimp10s-77.imp" CTABLE->VAL[CONSTPTR] = C1; // 2059 CTABLE_val(CONSTPTR+1)=C2 #line 2059 "regression-compile-tmp/nrimp10s-77.imp" CTABLE->VAL[(((int)(CONSTPTR)) + (1))] = C2; // 2060 %IF L=16 %THEN CTABLE_val(CONSTPTR+2)=C3 %AND CTABLE_val(CONSTPTR+3)=C4 #line 2060 "regression-compile-tmp/nrimp10s-77.imp" if (((L) != (16))) goto L_01b7; #line 2060 "regression-compile-tmp/nrimp10s-77.imp" CTABLE->VAL[(((int)(CONSTPTR)) + (2))] = C3; #line 2060 "regression-compile-tmp/nrimp10s-77.imp" CTABLE->VAL[(((int)(CONSTPTR)) + (3))] = C4; #line 2060 "regression-compile-tmp/nrimp10s-77.imp" L_01b7:; // 2061 CONST PTR=CONST PTR+LP #line 2061 "regression-compile-tmp/nrimp10s-77.imp" CONSTPTR = (((int)(CONSTPTR)) + (LP)); // 2062 %IF CONST PTR>CONST LIMIT %THEN FAULT(107,0) #line 2062 "regression-compile-tmp/nrimp10s-77.imp" if (((CONSTPTR) <= (CONSTLIMIT))) goto L_01b8; #line 2062 "regression-compile-tmp/nrimp10s-77.imp" FAULT(107, 0); #line 2062 "regression-compile-tmp/nrimp10s-77.imp" L_01b8:; // 2063 %END #line 2063 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block STORECONST at level 4 // 2064 %ROUTINE GET ENV(%INTEGERNAME HEAD) #line 2064 "regression-compile-tmp/nrimp10s-77.imp" void GETENV( int /*name*/*HEAD ) #line 2064 "regression-compile-tmp/nrimp10s-77.imp" { // 2065 !*********************************************************************** // 2066 !* SAVE A COPY OF THE REGISTER STATE FOR FUTURE REFERENCE * // 2067 !*********************************************************************** // 2068 %INTEGER I, USE #line 2068 "regression-compile-tmp/nrimp10s-77.imp" int I; #line 2068 "regression-compile-tmp/nrimp10s-77.imp" int USE; // 2069 %CYCLE I=0, 1, 7 #line 2069 "regression-compile-tmp/nrimp10s-77.imp" I = (-1); if ((((7)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 7"); L_01b9:; if (I == 7) goto L_01ba; I += 1; // 2070 USE=GRUSE(I)&16_FF; ! MAIN USE ONLY #line 2070 "regression-compile-tmp/nrimp10s-77.imp" USE = ((GRUSE[I]) & (255)); // 2071 PUSH(HEAD, GRINF1(I), GRAT(I), I<<8!USE) %IF USE#0 #line 2071 "regression-compile-tmp/nrimp10s-77.imp" if (((USE) == (0))) goto L_01bc; #line 2071 "regression-compile-tmp/nrimp10s-77.imp" PUSH(HEAD, GRINF1[I], GRAT[I], ((((I) << (8))) | (USE))); #line 2071 "regression-compile-tmp/nrimp10s-77.imp" L_01bc:; // 2072 %REPEAT #line 2072 "regression-compile-tmp/nrimp10s-77.imp" goto L_01b9; #line 2072 "regression-compile-tmp/nrimp10s-77.imp" L_01ba:; // 2073 %END #line 2073 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block GETENV at level 4 // 2074 %ROUTINE RESTORE(%INTEGER HEAD) #line 2074 "regression-compile-tmp/nrimp10s-77.imp" void RESTORE( int HEAD ) #line 2074 "regression-compile-tmp/nrimp10s-77.imp" { // 2075 !*********************************************************************** // 2076 !* RESET THE REGISTERS TO ENVIRONMENT IN LIST HEADED BY 'HEAD' * // 2077 !*********************************************************************** // 2078 %INTEGER I, R, USE, INF, AT #line 2078 "regression-compile-tmp/nrimp10s-77.imp" int I; #line 2078 "regression-compile-tmp/nrimp10s-77.imp" int R; #line 2078 "regression-compile-tmp/nrimp10s-77.imp" int USE; #line 2078 "regression-compile-tmp/nrimp10s-77.imp" int INF; #line 2078 "regression-compile-tmp/nrimp10s-77.imp" int AT; // 2079 %CYCLE I=0, 1, 7 #line 2079 "regression-compile-tmp/nrimp10s-77.imp" I = (-1); if ((((7)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 7"); L_01bd:; if (I == 7) goto L_01be; I += 1; // 2080 %IF REGISTER(I)>=0 %THEN GRUSE(I)=0 %AND GRINF1(I)=0 #line 2080 "regression-compile-tmp/nrimp10s-77.imp" if (((REGISTER[I]) < (0))) goto L_01c0; #line 2080 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[I] = 0; #line 2080 "regression-compile-tmp/nrimp10s-77.imp" GRINF1[I] = 0; #line 2080 "regression-compile-tmp/nrimp10s-77.imp" L_01c0:; // 2081 %REPEAT #line 2081 "regression-compile-tmp/nrimp10s-77.imp" goto L_01bd; #line 2081 "regression-compile-tmp/nrimp10s-77.imp" L_01be:; // 2082 %WHILE HEAD#0 %CYCLE #line 2082 "regression-compile-tmp/nrimp10s-77.imp" L_01c1:; #line 2082 "regression-compile-tmp/nrimp10s-77.imp" if (((HEAD) == (0))) goto L_01c2; // 2083 POP(HEAD, INF, AT, I) #line 2083 "regression-compile-tmp/nrimp10s-77.imp" POP(&HEAD, &INF, &AT, &I); // 2084 R=I>>8; USE=I&255 #line 2084 "regression-compile-tmp/nrimp10s-77.imp" R = (int)((((unsigned int)(I)) >> (8))); #line 2084 "regression-compile-tmp/nrimp10s-77.imp" USE = ((I) & (255)); // 2085 %IF REGISTER(R)>=0 %THEN GRUSE(R)=USE %AND GRINF1(R)=INF #line 2085 "regression-compile-tmp/nrimp10s-77.imp" if (((REGISTER[R]) < (0))) goto L_01c4; #line 2085 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[R] = USE; #line 2085 "regression-compile-tmp/nrimp10s-77.imp" GRINF1[R] = INF; #line 2085 "regression-compile-tmp/nrimp10s-77.imp" L_01c4:; // 2086 GRAT(R)=AT #line 2086 "regression-compile-tmp/nrimp10s-77.imp" GRAT[R] = AT; // 2087 %REPEAT #line 2087 "regression-compile-tmp/nrimp10s-77.imp" goto L_01c1; #line 2087 "regression-compile-tmp/nrimp10s-77.imp" L_01c2:; // 2088 %END #line 2088 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block RESTORE at level 4 // 2089 %ROUTINE RELOCATE(%INTEGER GLARAD,VALUE,AREA) #line 2089 "regression-compile-tmp/nrimp10s-77.imp" void RELOCATE( int GLARAD, int VALUE, int AREA ) #line 2089 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 2096 %IF GLARAD<0 %THEN PGLA(4,4,ADDR(VALUE)) %AND GLARAD=GLACA-4 #line 2096 "regression-compile-tmp/nrimp10s-77.imp" if (((GLARAD) >= (0))) goto L_01c5; #line 2096 "regression-compile-tmp/nrimp10s-77.imp" PGLA(4, 4, _imp_ADDR(&VALUE)); #line 2096 "regression-compile-tmp/nrimp10s-77.imp" GLARAD = (((int)(GLACA)) - (4)); #line 2096 "regression-compile-tmp/nrimp10s-77.imp" L_01c5:; // 2097 LPUT(19,2,GLARAD,AREA) #line 2097 "regression-compile-tmp/nrimp10s-77.imp" lput(19, 2, GLARAD, AREA); // 2098 %END #line 2098 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block RELOCATE at level 4 // 2099 %ROUTINE GXREF(%STRING(31) NAME,%INTEGER MODE,XTRA,AT) #line 2099 "regression-compile-tmp/nrimp10s-77.imp" void GXREF( _imp_string /*%string(31)*/ NAME, int MODE, int XTRA, int AT ) #line 2099 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 2107 %INTEGER LPUTNO #line 2107 "regression-compile-tmp/nrimp10s-77.imp" int LPUTNO; // 2108 %IF MODE=2 %THEN LPUTNO=15 %ELSE LPUTNO=MODE+12 #line 2108 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) != (2))) goto L_01c6; #line 2108 "regression-compile-tmp/nrimp10s-77.imp" LPUTNO = 15; #line 2108 "regression-compile-tmp/nrimp10s-77.imp" goto L_01c7; #line 2108 "regression-compile-tmp/nrimp10s-77.imp" L_01c6:; #line 2108 "regression-compile-tmp/nrimp10s-77.imp" LPUTNO = (((int)(MODE)) + (12)); #line 2108 "regression-compile-tmp/nrimp10s-77.imp" L_01c7:; // 2109 LPUT(LPUTNO,XTRA,AT,ADDR(NAME)) #line 2109 "regression-compile-tmp/nrimp10s-77.imp" lput(LPUTNO, XTRA, AT, _imp_ADDR(&NAME)); // 2110 %END #line 2110 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block GXREF at level 4 // 2111 %ROUTINE CXREF(%STRING(255) NAME,%INTEGER MODE,XTRA,%INTEGERNAME AT) #line 2111 "regression-compile-tmp/nrimp10s-77.imp" void CXREF( _imp_string /*%string(255)*/ NAME, int MODE, int XTRA, int /*name*/*AT ) #line 2111 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 2117 %INTEGER Z1,Z2 #line 2117 "regression-compile-tmp/nrimp10s-77.imp" int Z1; #line 2117 "regression-compile-tmp/nrimp10s-77.imp" int Z2; // 2118 Z1=0; Z2=0 #line 2118 "regression-compile-tmp/nrimp10s-77.imp" Z1 = 0; #line 2118 "regression-compile-tmp/nrimp10s-77.imp" Z2 = 0; // 2119 PGLA(8,8,ADDR(Z1)); ! 2 ZERO WORDS #line 2119 "regression-compile-tmp/nrimp10s-77.imp" PGLA(8, 8, _imp_ADDR(&Z1)); // 2120 AT=GLACA-8 #line 2120 "regression-compile-tmp/nrimp10s-77.imp" *AT = (((int)(GLACA)) - (8)); // 2121 GXREF(NAME,MODE,XTRA,AT) #line 2121 "regression-compile-tmp/nrimp10s-77.imp" GXREF(NAME, MODE, XTRA, *AT); // 2122 %END #line 2122 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CXREF at level 4 // 2123 %ROUTINE CODEDES(%INTEGERNAME AT) #line 2123 "regression-compile-tmp/nrimp10s-77.imp" void CODEDES( int /*name*/*AT ) #line 2123 "regression-compile-tmp/nrimp10s-77.imp" { // 2124 !*********************************************************************** // 2125 !* PUT A CODE DESCRIPTOR INTO THE PLT FOR USE BY DEFINE EP * // 2126 !*********************************************************************** // 2127 %INTEGER DESC1,DESC2 #line 2127 "regression-compile-tmp/nrimp10s-77.imp" int DESC1; #line 2127 "regression-compile-tmp/nrimp10s-77.imp" int DESC2; // 2128 DESC1=16_E1000000; DESC2=0 #line 2128 "regression-compile-tmp/nrimp10s-77.imp" DESC1 = (-520093696); #line 2128 "regression-compile-tmp/nrimp10s-77.imp" DESC2 = 0; // 2129 %IF CDCOUNT=0 %THEN FIXED GLA(0)=DESC1 %AND AT=0 %ELSE PGLA(8,8,ADDR(DESC1)) %AND AT=GLACA-8 #line 2129 "regression-compile-tmp/nrimp10s-77.imp" if (((CDCOUNT) != (0))) goto L_01c8; #line 2129 "regression-compile-tmp/nrimp10s-77.imp" FIXEDGLA[0] = DESC1; #line 2129 "regression-compile-tmp/nrimp10s-77.imp" *AT = 0; #line 2129 "regression-compile-tmp/nrimp10s-77.imp" goto L_01c9; #line 2129 "regression-compile-tmp/nrimp10s-77.imp" L_01c8:; #line 2129 "regression-compile-tmp/nrimp10s-77.imp" PGLA(8, 8, _imp_ADDR(&DESC1)); #line 2129 "regression-compile-tmp/nrimp10s-77.imp" *AT = (((int)(GLACA)) - (8)); #line 2129 "regression-compile-tmp/nrimp10s-77.imp" L_01c9:; // 2130 CDCOUNT=CDCOUNT+1 #line 2130 "regression-compile-tmp/nrimp10s-77.imp" CDCOUNT = (((int)(CDCOUNT)) + (1)); // 2131 %END #line 2131 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CODEDES at level 4 // 2132 %ROUTINE DEFINE EP(%STRING(255)NAME, %INTEGER ADR,AT,MAIN) #line 2132 "regression-compile-tmp/nrimp10s-77.imp" void DEFINEEP( _imp_string /*%string(255)*/ NAME, int ADR, int AT, int MAIN ) #line 2132 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 2140 %IF AT=0 %THEN FIXED GLA(1)=ADR %ELSE PLUG(2,AT+4,ADR,4) #line 2140 "regression-compile-tmp/nrimp10s-77.imp" if (((AT) != (0))) goto L_01ca; #line 2140 "regression-compile-tmp/nrimp10s-77.imp" FIXEDGLA[1] = ADR; #line 2140 "regression-compile-tmp/nrimp10s-77.imp" goto L_01cb; #line 2140 "regression-compile-tmp/nrimp10s-77.imp" L_01ca:; #line 2140 "regression-compile-tmp/nrimp10s-77.imp" PLUG(2, (((int)(AT)) + (4)), ADR, 4); #line 2140 "regression-compile-tmp/nrimp10s-77.imp" L_01cb:; // 2141 RELOCATE(AT+4,ADR,1) #line 2141 "regression-compile-tmp/nrimp10s-77.imp" RELOCATE((((int)(AT)) + (4)), ADR, 1); // 2142 LPUT(11,MAIN<<31!2,AT,ADDR(NAME)) %IF NAME#"" #line 2142 "regression-compile-tmp/nrimp10s-77.imp" if ((_imp_strcmp(NAME, _imp_str_literal("")) == 0)) goto L_01cc; #line 2142 "regression-compile-tmp/nrimp10s-77.imp" lput(11, ((((MAIN) << (31))) | (2)), AT, _imp_ADDR(&NAME)); #line 2142 "regression-compile-tmp/nrimp10s-77.imp" L_01cc:; // 2143 %END #line 2143 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DEFINEEP at level 4 // 2144 %ROUTINE PROLOGUE #line 2144 "regression-compile-tmp/nrimp10s-77.imp" void PROLOGUE( void ) #line 2144 "regression-compile-tmp/nrimp10s-77.imp" { // 2145 !*********************************************************************** // 2146 !* GENERATES THE SUBROUTINE THAT ALWAYS ARE REQUIRED ONTO THE * // 2147 !* FRONT OF THE OBJECT PROGRAM WHERE THEY ARE DIRECTLY ADDRESABLE* // 2148 !*********************************************************************** // 2149 %INTEGERFNSPEC STRINGIN(%INTEGER POS) #line 2149 "regression-compile-tmp/nrimp10s-77.imp" auto int STRINGIN( int POS ); // 2150 %ROUTINESPEC ERR EXIT(%INTEGER A, B, C) #line 2150 "regression-compile-tmp/nrimp10s-77.imp" auto void ERREXIT( int A, int B, int C ); // 2151 %INTEGER I, K, L, STCA #line 2151 "regression-compile-tmp/nrimp10s-77.imp" int I; #line 2151 "regression-compile-tmp/nrimp10s-77.imp" int K; #line 2151 "regression-compile-tmp/nrimp10s-77.imp" int L; #line 2151 "regression-compile-tmp/nrimp10s-77.imp" int STCA; // 2152 I=16_C2C2C2C2 #line 2152 "regression-compile-tmp/nrimp10s-77.imp" I = (-1027423550); // 2153 LPUT(4,4,0,ADDR(I)) #line 2153 "regression-compile-tmp/nrimp10s-77.imp" lput(4, 4, 0, _imp_ADDR(&I)); // 2154 SSTL=4 #line 2154 "regression-compile-tmp/nrimp10s-77.imp" SSTL = 4; // 2155 %CYCLE I=0, 1, 31 #line 2155 "regression-compile-tmp/nrimp10s-77.imp" I = (-1); if ((((31)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 31"); L_01cd:; if (I == 31) goto L_01ce; I += 1; // 2156 PLABS(I)=0; PLINK(I)=0 #line 2156 "regression-compile-tmp/nrimp10s-77.imp" PLABS[I] = 0; #line 2156 "regression-compile-tmp/nrimp10s-77.imp" PLINK[I] = 0; // 2157 DESADS(I)=0 #line 2157 "regression-compile-tmp/nrimp10s-77.imp" DESADS[I] = 0; // 2158 %REPEAT #line 2158 "regression-compile-tmp/nrimp10s-77.imp" goto L_01cd; #line 2158 "regression-compile-tmp/nrimp10s-77.imp" L_01ce:; // 2159 ! // 2160 ! GENERATE THE FIXED-FLOAT CONSTANTS THAT MAY BE NEEDED // 2161 ! // 2162 PLABS(1)=CA #line 2162 "regression-compile-tmp/nrimp10s-77.imp" PLABS[1] = CA; // 2163 %CYCLE I=0, 1, 1 #line 2163 "regression-compile-tmp/nrimp10s-77.imp" I = (-1); if ((((1)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 1"); L_01d0:; if (I == 1) goto L_01d1; I += 1; // 2164 PCONST(UNASSPAT) #line 2164 "regression-compile-tmp/nrimp10s-77.imp" PCONST((-2122219135)); // 2165 %REPEAT #line 2165 "regression-compile-tmp/nrimp10s-77.imp" goto L_01d0; #line 2165 "regression-compile-tmp/nrimp10s-77.imp" L_01d1:; // 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 ! // 2182 PLABS(2)=CA #line 2182 "regression-compile-tmp/nrimp10s-77.imp" PLABS[2] = CA; // 2183 PSF1(PRCL,0,4) #line 2183 "regression-compile-tmp/nrimp10s-77.imp" PSF1(24, 0, 4); // 2184 PSF1(JLK,0,1) #line 2184 "regression-compile-tmp/nrimp10s-77.imp" PSF1(28, 0, 1); // 2185 PF1(STLN,0,TOS,0) #line 2185 "regression-compile-tmp/nrimp10s-77.imp" PF1(92, 0, 6, 0); // 2186 PF1(ST,0,TOS,0) #line 2186 "regression-compile-tmp/nrimp10s-77.imp" PF1(72, 0, 6, 0); // 2187 PSF1(LXN,1,16) #line 2187 "regression-compile-tmp/nrimp10s-77.imp" PSF1(126, 1, 16); // 2188 PSF1(RALN,0,9) #line 2188 "regression-compile-tmp/nrimp10s-77.imp" PSF1(108, 0, 9); // 2189 PF1(CALL,2,XNB,40) #line 2189 "regression-compile-tmp/nrimp10s-77.imp" PF1(30, 2, 3, 40); // 2190 PF1(JUNC,0,TOS,0) #line 2190 "regression-compile-tmp/nrimp10s-77.imp" PF1(26, 0, 6, 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 ! // 2201 %IF PARMDBUG#0 %THEN %START #line 2201 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMDBUG) == (0))) goto L_01d3; // 2202 PLABS(3)=CA #line 2202 "regression-compile-tmp/nrimp10s-77.imp" PLABS[3] = CA; // 2203 CXREF("S#IMPMON",PARMDYNAMIC,2,K) #line 2203 "regression-compile-tmp/nrimp10s-77.imp" CXREF(_imp_str_literal("S#IMPMON"), PARMDYNAMIC, 2, &K); // 2204 PSF1(PRCL,0,4) #line 2204 "regression-compile-tmp/nrimp10s-77.imp" PSF1(24, 0, 4); // 2205 PF1(ST,0,TOS,0) #line 2205 "regression-compile-tmp/nrimp10s-77.imp" PF1(72, 0, 6, 0); // 2206 PSF1(LXN,1,16) #line 2206 "regression-compile-tmp/nrimp10s-77.imp" PSF1(126, 1, 16); // 2207 PSF1(RALN,0,6) #line 2207 "regression-compile-tmp/nrimp10s-77.imp" PSF1(108, 0, 6); // 2208 PF1(CALL,2,XNB,K) #line 2208 "regression-compile-tmp/nrimp10s-77.imp" PF1(30, 2, 3, K); // 2209 PF1(JUNC,0,TOS,0) #line 2209 "regression-compile-tmp/nrimp10s-77.imp" PF1(26, 0, 6, 0); // 2210 %FINISH #line 2210 "regression-compile-tmp/nrimp10s-77.imp" L_01d3:; // 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 ! // 2226 %IF PARMCHK=1 %THEN %START; ! ONLY REQUIRED WITH CHKING #line 2226 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMCHK) != (1))) goto L_01d4; // 2227 CNOP(0,4); K=CA #line 2227 "regression-compile-tmp/nrimp10s-77.imp" CNOP(0, 4); #line 2227 "regression-compile-tmp/nrimp10s-77.imp" K = CA; // 2228 PCONST(16_58000000) #line 2228 "regression-compile-tmp/nrimp10s-77.imp" PCONST(1476395008); // 2229 PLABS(4)=CA #line 2229 "regression-compile-tmp/nrimp10s-77.imp" PLABS[4] = CA; // 2230 PF3(JAT,12,0,13) #line 2230 "regression-compile-tmp/nrimp10s-77.imp" PF3(4, 12, 0, 13); // 2231 PF1(LSS,0,TOS,0) #line 2231 "regression-compile-tmp/nrimp10s-77.imp" PF1(98, 0, 6, 0); // 2232 PF1(STSF,0,TOS,0) #line 2232 "regression-compile-tmp/nrimp10s-77.imp" PF1(94, 0, 6, 0); // 2233 PF1(LDTB,0,PC,K) #line 2233 "regression-compile-tmp/nrimp10s-77.imp" PF1(116, 0, 4, K); // 2234 PF1(LDA,0,TOS,0) #line 2234 "regression-compile-tmp/nrimp10s-77.imp" PF1(114, 0, 6, 0); // 2235 PF1(ASF,0,BREG,0) #line 2235 "regression-compile-tmp/nrimp10s-77.imp" PF1(110, 0, 7, 0); // 2236 PSF1(MYB,0,4) #line 2236 "regression-compile-tmp/nrimp10s-77.imp" PSF1(42, 0, 4); // 2237 PF1(LDB,0,BREG,0) #line 2237 "regression-compile-tmp/nrimp10s-77.imp" PF1(118, 0, 7, 0); // 2238 PF2(MVL,1,1,0,0,UNASSPAT&255) #line 2238 "regression-compile-tmp/nrimp10s-77.imp" PF2(176, 1, 1, 0, 0, (((-2122219135)) & (255))); // 2239 PF1(ST,0,TOS,0) #line 2239 "regression-compile-tmp/nrimp10s-77.imp" PF1(72, 0, 6, 0); // 2240 PF1(JUNC,0,TOS,0) #line 2240 "regression-compile-tmp/nrimp10s-77.imp" PF1(26, 0, 6, 0); // 2241 %FINISH #line 2241 "regression-compile-tmp/nrimp10s-77.imp" L_01d4:; // 2242 ! // 2243 ! SOME ERROR ROUTINES // 2244 ! // 2245 ERR EXIT(5, 16_801, 0) %IF PARMOPT#0; ! UNASSIGNED VARIABLE #line 2245 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMOPT) == (0))) goto L_01d5; #line 2245 "regression-compile-tmp/nrimp10s-77.imp" ERREXIT(5, 2049, 0); #line 2245 "regression-compile-tmp/nrimp10s-77.imp" L_01d5:; // 2246 ERR EXIT(6, 16_504, 0); ! SWITCH LABEL UNSET #line 2246 "regression-compile-tmp/nrimp10s-77.imp" ERREXIT(6, 1284, 0); // 2247 ERR EXIT(7, 16_505, 1); ! ILLEGEAL EXPONENTIATION #line 2247 "regression-compile-tmp/nrimp10s-77.imp" ERREXIT(7, 1285, 1); // 2248 ERR EXIT(8,16_201, 0) %IF PARMOPT#0; ! EXCESS BLOCKS #line 2248 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMOPT) == (0))) goto L_01d6; #line 2248 "regression-compile-tmp/nrimp10s-77.imp" ERREXIT(8, 513, 0); #line 2248 "regression-compile-tmp/nrimp10s-77.imp" L_01d6:; // 2249 ERR EXIT(9, 16_601, 0); ! CAPACITY EXCEEDED #line 2249 "regression-compile-tmp/nrimp10s-77.imp" ERREXIT(9, 1537, 0); // 2250 ERR EXIT(10,21, 0) ; ! NO RESULT #line 2250 "regression-compile-tmp/nrimp10s-77.imp" ERREXIT(10, 21, 0); // 2251 ERR EXIT(11,16_501, 0) %IF PARMOPT#0; ! CYCLE NOT VALID #line 2251 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMOPT) == (0))) goto L_01d7; #line 2251 "regression-compile-tmp/nrimp10s-77.imp" ERREXIT(11, 1281, 0); #line 2251 "regression-compile-tmp/nrimp10s-77.imp" L_01d7:; // 2252 ERR EXIT(12,16_701,0); ! RES FAILS #line 2252 "regression-compile-tmp/nrimp10s-77.imp" ERREXIT(12, 1793, 0); // 2253 ERR EXIT(13,36,0) %IF PARMOPT#0; ! WRONG NO OF PARAMS #line 2253 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMOPT) == (0))) goto L_01d8; #line 2253 "regression-compile-tmp/nrimp10s-77.imp" ERREXIT(13, 36, 0); #line 2253 "regression-compile-tmp/nrimp10s-77.imp" L_01d8:; // 2254 ! // 2255 ! PUT THE STRINGS ONTO THE FRONT OF CONSTANT AREA // 2256 ! // 2257 CTABLE_val(0)=16_18000001 #line 2257 "regression-compile-tmp/nrimp10s-77.imp" CTABLE->VAL[0] = 402653185; // 2258 CTABLE_val(1)=4 #line 2258 "regression-compile-tmp/nrimp10s-77.imp" CTABLE->VAL[1] = 4; // 2259 STCA=8; L=ADDR(CTABLE_val(0)) #line 2259 "regression-compile-tmp/nrimp10s-77.imp" STCA = 8; #line 2259 "regression-compile-tmp/nrimp10s-77.imp" L = _imp_ADDR(&CTABLE->VAL[0]); // 2260 CONST PTR=2; ! IN CASE NO STRINGS #line 2260 "regression-compile-tmp/nrimp10s-77.imp" CONSTPTR = 2; // 2261 %WHILE STRLINK#0 %CYCLE #line 2261 "regression-compile-tmp/nrimp10s-77.imp" L_01d9:; #line 2261 "regression-compile-tmp/nrimp10s-77.imp" if (((STRLINK) == (0))) goto L_01da; // 2262 I=STRLINK; STRLINK=FROM AR4(I) #line 2262 "regression-compile-tmp/nrimp10s-77.imp" I = STRLINK; #line 2262 "regression-compile-tmp/nrimp10s-77.imp" STRLINK = FROMAR4(I); // 2263 TO AR4(I,STRINGIN(I+4)); ! CHANGE LINK TO STRING ADDR #line 2263 "regression-compile-tmp/nrimp10s-77.imp" TOAR4(I, STRINGIN((((int)(I)) + (4)))); // 2264 %REPEAT #line 2264 "regression-compile-tmp/nrimp10s-77.imp" goto L_01d9; #line 2264 "regression-compile-tmp/nrimp10s-77.imp" L_01da:; // 2265 STRLINK=16_80000000 #line 2265 "regression-compile-tmp/nrimp10s-77.imp" STRLINK = (-2147483648); // 2266 CONST BTM=CONST PTR #line 2266 "regression-compile-tmp/nrimp10s-77.imp" CONSTBTM = CONSTPTR; // 2267 %IF PARMOPT#0 %THEN CTABLE_val(CONST PTR)=M'IDIA' %AND CONST PTR=CONST PTR+1 #line 2267 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMOPT) == (0))) goto L_01dc; #line 2267 "regression-compile-tmp/nrimp10s-77.imp" CTABLE->VAL[CONSTPTR] = 1229211969; #line 2267 "regression-compile-tmp/nrimp10s-77.imp" CONSTPTR = (((int)(CONSTPTR)) + (1)); #line 2267 "regression-compile-tmp/nrimp10s-77.imp" L_01dc:; // 2268 GXREF(MDEP,PARMDYNAMIC,2,40) #line 2268 "regression-compile-tmp/nrimp10s-77.imp" GXREF(MDEP, PARMDYNAMIC, 2, 40); // 2269 %IF PARMPROF#0 %THEN %START; ! ALLOCATE PROFILE COUNT AREA #line 2269 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMPROF) == (0))) goto L_01dd; // 2270 I=16_38000001+LINE #line 2270 "regression-compile-tmp/nrimp10s-77.imp" I = (((int)(939524097)) + (LINE)); // 2271 K=8 #line 2271 "regression-compile-tmp/nrimp10s-77.imp" K = 8; // 2272 PARMPROF=GLACA #line 2272 "regression-compile-tmp/nrimp10s-77.imp" PARMPROF = GLACA; // 2273 PGLA(4,8,ADDR(I)) #line 2273 "regression-compile-tmp/nrimp10s-77.imp" PGLA(4, 8, _imp_ADDR(&I)); // 2274 K=0 #line 2274 "regression-compile-tmp/nrimp10s-77.imp" K = 0; // 2275 %CYCLE I=0,1,LINE #line 2275 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = LINE; I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, LINE"); I -= _increment; _control -= _increment; L_01de:; if (I == _final) goto L_01df; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 2276 PGLA(4,4,ADDR(K)) #line 2276 "regression-compile-tmp/nrimp10s-77.imp" PGLA(4, 4, _imp_ADDR(&K)); // 2277 %REPEAT #line 2277 "regression-compile-tmp/nrimp10s-77.imp" goto L_01de; #line 2277 "regression-compile-tmp/nrimp10s-77.imp" L_01df:; // 2278 LINE=0 #line 2278 "regression-compile-tmp/nrimp10s-77.imp" LINE = 0; // 2279 %FINISH #line 2279 "regression-compile-tmp/nrimp10s-77.imp" L_01dd:; // 2280 LEVEL=1 #line 2280 "regression-compile-tmp/nrimp10s-77.imp" LEVEL = 1; // 2281 %CYCLE I=0,1,31 #line 2281 "regression-compile-tmp/nrimp10s-77.imp" I = (-1); if ((((31)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 31"); L_01e1:; if (I == 31) goto L_01e2; I += 1; // 2282 %IF PLINK(I)#0 %THEN CLEAR LIST(PLINK(I)) #line 2282 "regression-compile-tmp/nrimp10s-77.imp" if (((PLINK[I]) == (0))) goto L_01e4; #line 2282 "regression-compile-tmp/nrimp10s-77.imp" CLEARLIST(&PLINK[I]); #line 2282 "regression-compile-tmp/nrimp10s-77.imp" L_01e4:; // 2283 %REPEAT #line 2283 "regression-compile-tmp/nrimp10s-77.imp" goto L_01e1; #line 2283 "regression-compile-tmp/nrimp10s-77.imp" L_01e2:; // 2284 %RETURN #line 2284 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 2285 %INTEGERFN STRINGIN(%INTEGER POS) #line 2285 "regression-compile-tmp/nrimp10s-77.imp" int STRINGIN( int POS ) #line 2285 "regression-compile-tmp/nrimp10s-77.imp" { // 2286 !*********************************************************************** // 2287 !* PUT A STRING INTO THE CONSTANT AREA CHECKING FOR DUPLICATES * // 2288 !*********************************************************************** // 2289 %INTEGER J,K,IND,HD #line 2289 "regression-compile-tmp/nrimp10s-77.imp" int J; #line 2289 "regression-compile-tmp/nrimp10s-77.imp" int K; #line 2289 "regression-compile-tmp/nrimp10s-77.imp" int IND; #line 2289 "regression-compile-tmp/nrimp10s-77.imp" int HD; // 2290 %RECORD(LISTF)%NAME CELL{(LISTF) #line 2290 "regression-compile-tmp/nrimp10s-77.imp" LISTF /*name*/*CELL; // 2291 K=A(POS) #line 2291 "regression-compile-tmp/nrimp10s-77.imp" K = A[POS]; // 2292 %IF K=0 %THEN %RESULT=0 #line 2292 "regression-compile-tmp/nrimp10s-77.imp" if (((K) != (0))) goto L_01e5; #line 2292 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 2292 "regression-compile-tmp/nrimp10s-77.imp" L_01e5:; // 2293 IND=K&31; HD=PLINK(IND) #line 2293 "regression-compile-tmp/nrimp10s-77.imp" IND = ((K) & (31)); #line 2293 "regression-compile-tmp/nrimp10s-77.imp" HD = PLINK[IND]; // 2294 %WHILE HD#0 %CYCLE #line 2294 "regression-compile-tmp/nrimp10s-77.imp" L_01e6:; #line 2294 "regression-compile-tmp/nrimp10s-77.imp" if (((HD) == (0))) goto L_01e7; // 2295 CELL==ASLIST(HD) #line 2295 "regression-compile-tmp/nrimp10s-77.imp" CELL = &ASLIST[HD]; // 2296 %IF CELL_S1=K %AND STRING(L+CELL_S2)=STRING(ADDR(A(POS))) %THEN %RESULT=CELL_S2-4 #line 2296 "regression-compile-tmp/nrimp10s-77.imp" if (((CELL->S1) != (K))) goto L_01e9; #line 2296 "regression-compile-tmp/nrimp10s-77.imp" if ((_imp_strcmp(*_imp_STRING((((int)(L)) + (CELL->S2))), *_imp_STRING(_imp_ADDR(&A[POS]))) != 0)) goto L_01e9; #line 2296 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return (((int)(CELL->S2)) - (4)); #line 2296 "regression-compile-tmp/nrimp10s-77.imp" L_01e9:; // 2297 HD=CELL_LINK #line 2297 "regression-compile-tmp/nrimp10s-77.imp" HD = CELL->LINK; // 2298 %REPEAT #line 2298 "regression-compile-tmp/nrimp10s-77.imp" goto L_01e6; #line 2298 "regression-compile-tmp/nrimp10s-77.imp" L_01e7:; // 2299 HD=STCA #line 2299 "regression-compile-tmp/nrimp10s-77.imp" HD = STCA; // 2300 BYTEINTEGER(L+STCA)=K; STCA=STCA+1 #line 2300 "regression-compile-tmp/nrimp10s-77.imp" *_imp_BYTEINTEGER((((int)(L)) + (STCA))) = K; #line 2300 "regression-compile-tmp/nrimp10s-77.imp" STCA = (((int)(STCA)) + (1)); // 2301 %CYCLE J=POS+1,1,POS+K #line 2301 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = (((int)(POS)) + (1)); _increment = 1; _final = (((int)(POS)) + (K)); J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = (((int)(POS)) + (1)), 1, (((int)(POS)) + (K))"); J -= _increment; _control -= _increment; L_01ea:; if (J == _final) goto L_01eb; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 2302 BYTE INTEGER(L+STCA)=A(J) #line 2302 "regression-compile-tmp/nrimp10s-77.imp" *_imp_BYTEINTEGER((((int)(L)) + (STCA))) = A[J]; // 2303 STCA=STCA+1 #line 2303 "regression-compile-tmp/nrimp10s-77.imp" STCA = (((int)(STCA)) + (1)); // 2304 %REPEAT #line 2304 "regression-compile-tmp/nrimp10s-77.imp" goto L_01ea; #line 2304 "regression-compile-tmp/nrimp10s-77.imp" L_01eb:; // 2305 CONST PTR=((STCA+7)&(-8))>>2 #line 2305 "regression-compile-tmp/nrimp10s-77.imp" CONSTPTR = (((((((((int)(STCA)) + (7))) & ((-8))))) >> (2))); // 2306 PUSH(PLINK(IND),K,HD,0) #line 2306 "regression-compile-tmp/nrimp10s-77.imp" PUSH(&PLINK[IND], K, HD, 0); // 2307 %RESULT=HD-4 #line 2307 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return (((int)(HD)) - (4)); // 2308 %END #line 2308 "regression-compile-tmp/nrimp10s-77.imp" } // End of block STRINGIN at level 5 // 2309 %ROUTINE ERR EXIT(%INTEGER LAB, ERRNO, MODE) #line 2309 "regression-compile-tmp/nrimp10s-77.imp" void ERREXIT( int LAB, int ERRNO, int MODE ) #line 2309 "regression-compile-tmp/nrimp10s-77.imp" { // 2310 !*********************************************************************** // 2311 !* MODE=0 FOR DUMMY(ZERO) XTRA - MODE=1 XTRA IN BREG * // 2312 !*********************************************************************** // 2313 PLABS(LAB)=CA #line 2313 "regression-compile-tmp/nrimp10s-77.imp" PLABS[LAB] = CA; // 2314 %IF MODE=0 %THEN PSF1(LSS,0,0) %ELSE PF1(LSS,0,BREG,0) #line 2314 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) != (0))) goto L_01ed; #line 2314 "regression-compile-tmp/nrimp10s-77.imp" PSF1(98, 0, 0); #line 2314 "regression-compile-tmp/nrimp10s-77.imp" goto L_01ee; #line 2314 "regression-compile-tmp/nrimp10s-77.imp" L_01ed:; #line 2314 "regression-compile-tmp/nrimp10s-77.imp" PF1(98, 0, 7, 0); #line 2314 "regression-compile-tmp/nrimp10s-77.imp" L_01ee:; // 2315 PSF1(LUH,0,ERRNO) #line 2315 "regression-compile-tmp/nrimp10s-77.imp" PSF1(106, 0, ERRNO); // 2316 PSF1(JLK,0,(PLABS(2)-CA)//2) #line 2316 "regression-compile-tmp/nrimp10s-77.imp" PSF1(28, 0, ((long)((long)(((((int)(PLABS[2])) - (CA)))) / (long)((int)(2))))); // 2317 %END #line 2317 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block ERREXIT at level 5 // 2318 %END #line 2318 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PROLOGUE at level 4 // 2319 %ROUTINE CSS(%INTEGER P) #line 2319 "regression-compile-tmp/nrimp10s-77.imp" void CSS( int P ) #line 2319 "regression-compile-tmp/nrimp10s-77.imp" { // 2320 %ROUTINESPEC MERGE INFO #line 2320 "regression-compile-tmp/nrimp10s-77.imp" auto void MERGEINFO( void ); // 2321 %ROUTINESPEC REDUCE ENV(%INTEGERNAME HEAD) #line 2321 "regression-compile-tmp/nrimp10s-77.imp" auto void REDUCEENV( int /*name*/*HEAD ); // 2322 %ROUTINESPEC ENTER JUMP(%INTEGER MASK,STAD,FLAG) #line 2322 "regression-compile-tmp/nrimp10s-77.imp" auto void ENTERJUMP( int MASK, int STAD, int FLAG ); // 2323 %INTEGERFNSPEC ENTER LAB(%INTEGER M,FLAG) #line 2323 "regression-compile-tmp/nrimp10s-77.imp" auto int ENTERLAB( int M, int FLAG ); // 2324 %ROUTINESPEC REMOVE LAB(%INTEGER LAB) #line 2324 "regression-compile-tmp/nrimp10s-77.imp" auto void REMOVELAB( int LAB ); // 2325 %ROUTINESPEC CEND(%INTEGER KKK) #line 2325 "regression-compile-tmp/nrimp10s-77.imp" auto void CEND( int KKK ); // 2326 %INTEGERFNSPEC CCOND(%INTEGER CTO,A,B) #line 2326 "regression-compile-tmp/nrimp10s-77.imp" auto int CCOND( int CTO, int A, int B ); // 2327 %ROUTINESPEC CHECK STOF #line 2327 "regression-compile-tmp/nrimp10s-77.imp" auto void CHECKSTOF( void ); // 2328 %INTEGERFNSPEC REVERSE(%INTEGER MASK) #line 2328 "regression-compile-tmp/nrimp10s-77.imp" auto int REVERSE( int MASK ); // 2329 %ROUTINESPEC SET LINE #line 2329 "regression-compile-tmp/nrimp10s-77.imp" auto void SETLINE( void ); // 2330 %INTEGERFNSPEC SET XORYNB(%INTEGER WHICH,RLEVEL) #line 2330 "regression-compile-tmp/nrimp10s-77.imp" auto int SETXORYNB( int WHICH, int RLEVEL ); // 2331 %INTEGERFNSPEC XORYNB(%INTEGER USE,INF) #line 2331 "regression-compile-tmp/nrimp10s-77.imp" auto int XORYNB( int USE, int INF ); // 2332 %ROUTINESPEC GET IN ACC(%INTEGER ACC,SIZE,AC,AREA,DISP) #line 2332 "regression-compile-tmp/nrimp10s-77.imp" auto void GETINACC( int ACC, int SIZE, int AC, int AREA, int DISP ); // 2333 %INTEGERFNSPEC AREA CODE #line 2333 "regression-compile-tmp/nrimp10s-77.imp" auto int AREACODE( void ); // 2334 %INTEGERFNSPEC AREA CODE2(%INTEGER BS) #line 2334 "regression-compile-tmp/nrimp10s-77.imp" auto int AREACODE2( int BS ); // 2335 %ROUTINESPEC CUI(%INTEGER CODE) #line 2335 "regression-compile-tmp/nrimp10s-77.imp" auto void CUI( int CODE ); // 2336 %ROUTINESPEC ASSIGN(%INTEGER A,B) #line 2336 "regression-compile-tmp/nrimp10s-77.imp" auto void ASSIGN( int A, int B ); // 2337 %ROUTINESPEC CSTART(%INTEGER CCRES,MODE) #line 2337 "regression-compile-tmp/nrimp10s-77.imp" auto void CSTART( int CCRES, int MODE ); // 2338 %ROUTINESPEC CCYCBODY(%INTEGER UA,ELAB,CLAB) #line 2338 "regression-compile-tmp/nrimp10s-77.imp" auto void CCYCBODY( int UA, int ELAB, int CLAB ); // 2339 %ROUTINESPEC CLOOP(%INTEGER ALT,MARKC,MARKUI) #line 2339 "regression-compile-tmp/nrimp10s-77.imp" auto void CLOOP( int ALT, int MARKC, int MARKUI ); // 2340 %ROUTINESPEC CIFTHEN(%INTEGER MARKIU,MARKC,MARKUI,MARKE,MARKR,SKIP) #line 2340 "regression-compile-tmp/nrimp10s-77.imp" auto void CIFTHEN( int MARKIU, int MARKC, int MARKUI, int MARKE, int MARKR, int SKIP ); // 2341 %ROUTINESPEC CREATE AH(%INTEGER MODE) #line 2341 "regression-compile-tmp/nrimp10s-77.imp" auto void CREATEAH( int MODE ); // 2342 %ROUTINESPEC TORP(%INTEGERNAME HEAD,BOT,NOPS) #line 2342 "regression-compile-tmp/nrimp10s-77.imp" auto void TORP( int /*name*/*HEAD, int /*name*/*BOT, int /*name*/*NOPS ); // 2343 %INTEGERFNSPEC INTEXP(%INTEGERNAME VALUE) #line 2343 "regression-compile-tmp/nrimp10s-77.imp" auto int INTEXP( int /*name*/*VALUE ); // 2344 %INTEGERFNSPEC CONSTEXP(%INTEGER PRECTYPE) #line 2344 "regression-compile-tmp/nrimp10s-77.imp" auto int CONSTEXP( int PRECTYPE ); // 2345 %ROUTINESPEC CSEXP(%INTEGER REG,MODE) #line 2345 "regression-compile-tmp/nrimp10s-77.imp" auto void CSEXP( int REG, int MODE ); // 2346 %ROUTINESPEC CSTREXP(%INTEGER A,B) #line 2346 "regression-compile-tmp/nrimp10s-77.imp" auto void CSTREXP( int A, int B ); // 2347 %ROUTINESPEC CRES(%INTEGER LAB) #line 2347 "regression-compile-tmp/nrimp10s-77.imp" auto void CRES( int LAB ); // 2348 %ROUTINESPEC EXPOP(%INTEGER A,B,C,D) #line 2348 "regression-compile-tmp/nrimp10s-77.imp" auto void EXPOP( int A, int B, int C, int D ); // 2349 %ROUTINESPEC TEST APP(%INTEGERNAME NUM) #line 2349 "regression-compile-tmp/nrimp10s-77.imp" auto void TESTAPP( int /*name*/*NUM ); // 2350 %ROUTINESPEC SKIP EXP #line 2350 "regression-compile-tmp/nrimp10s-77.imp" auto void SKIPEXP( void ); // 2351 %ROUTINESPEC SKIP APP #line 2351 "regression-compile-tmp/nrimp10s-77.imp" auto void SKIPAPP( void ); // 2352 %ROUTINESPEC NO APP #line 2352 "regression-compile-tmp/nrimp10s-77.imp" auto void NOAPP( void ); // 2353 %INTEGERFNSPEC DOPE VECTOR(%INTEGER A,B,MODE,ID,%INTEGERNAME C,D) #line 2353 "regression-compile-tmp/nrimp10s-77.imp" auto int DOPEVECTOR( int A, int B, int MODE, int ID, int /*name*/*C, int /*name*/*D ); // 2354 %ROUTINESPEC DECLARE ARRAYS(%INTEGER A,B) #line 2354 "regression-compile-tmp/nrimp10s-77.imp" auto void DECLAREARRAYS( int A, int B ); // 2355 %ROUTINESPEC DECLARE SCALARS(%INTEGER A,B) #line 2355 "regression-compile-tmp/nrimp10s-77.imp" auto void DECLARESCALARS( int A, int B ); // 2356 %ROUTINESPEC MAKE DECS(%INTEGER Q) #line 2356 "regression-compile-tmp/nrimp10s-77.imp" auto void MAKEDECS( int Q ); // 2357 %ROUTINESPEC SAVE AUX STACK #line 2357 "regression-compile-tmp/nrimp10s-77.imp" auto void SAVEAUXSTACK( void ); // 2358 %ROUTINESPEC RESET AUX STACK #line 2358 "regression-compile-tmp/nrimp10s-77.imp" auto void RESETAUXSTACK( void ); // 2359 %ROUTINESPEC CRSPEC(%INTEGER M) #line 2359 "regression-compile-tmp/nrimp10s-77.imp" auto void CRSPEC( int M ); // 2360 %ROUTINESPEC CFPLIST(%INTEGERNAME A,B) #line 2360 "regression-compile-tmp/nrimp10s-77.imp" auto void CFPLIST( int /*name*/*A, int /*name*/*B ); // 2361 %ROUTINESPEC CFPDEL #line 2361 "regression-compile-tmp/nrimp10s-77.imp" auto void CFPDEL( void ); // 2362 %ROUTINESPEC CLT #line 2362 "regression-compile-tmp/nrimp10s-77.imp" auto void CLT( void ); // 2363 %ROUTINESPEC CQN(%INTEGER P) #line 2363 "regression-compile-tmp/nrimp10s-77.imp" auto void CQN( int P ); // 2364 %ROUTINESPEC GET WSP(%INTEGERNAME PLACE,%INTEGER SIZE) #line 2364 "regression-compile-tmp/nrimp10s-77.imp" auto void GETWSP( int /*name*/*PLACE, int SIZE ); // 2365 %ROUTINESPEC RETURN WSP(%INTEGER PLACE,SIZE) #line 2365 "regression-compile-tmp/nrimp10s-77.imp" auto void RETURNWSP( int PLACE, int SIZE ); // 2366 %INTEGERFNSPEC TSEXP(%INTEGERNAME VALUE) #line 2366 "regression-compile-tmp/nrimp10s-77.imp" auto int TSEXP( int /*name*/*VALUE ); // 2367 %ROUTINESPEC CRCALL(%INTEGER RTNAME) #line 2367 "regression-compile-tmp/nrimp10s-77.imp" auto void CRCALL( int RTNAME ); // 2368 %ROUTINESPEC NAMEOP(%INTEGER Z,REG,SIZE,NAMEP) #line 2368 "regression-compile-tmp/nrimp10s-77.imp" auto void NAMEOP( int Z, int REG, int SIZE, int NAMEP ); // 2369 %ROUTINESPEC CNAME(%INTEGER Z,REG) #line 2369 "regression-compile-tmp/nrimp10s-77.imp" auto void CNAME( int Z, int REG ); // 2370 %ROUTINESPEC CANAME(%INTEGER Z,BS,DP) #line 2370 "regression-compile-tmp/nrimp10s-77.imp" auto void CANAME( int Z, int BS, int DP ); // 2371 %ROUTINESPEC CSNAME(%INTEGER Z,REG) #line 2371 "regression-compile-tmp/nrimp10s-77.imp" auto void CSNAME( int Z, int REG ); // 2372 %ROUTINESPEC TEST ASS(%INTEGER REG,TYPE,SIZE) #line 2372 "regression-compile-tmp/nrimp10s-77.imp" auto void TESTASS( int REG, int TYPE, int SIZE ); // 2373 %ROUTINESPEC COPY TAG(%INTEGER KK) #line 2373 "regression-compile-tmp/nrimp10s-77.imp" auto void COPYTAG( int KK ); // 2374 %ROUTINESPEC REDUCE TAG #line 2374 "regression-compile-tmp/nrimp10s-77.imp" auto void REDUCETAG( void ); // 2375 %ROUTINESPEC REPLACE TAG (%INTEGER KK) #line 2375 "regression-compile-tmp/nrimp10s-77.imp" auto void REPLACETAG( int KK ); // 2376 %ROUTINESPEC RT JUMP(%INTEGER CODE,%INTEGERNAME L) #line 2376 "regression-compile-tmp/nrimp10s-77.imp" auto void RTJUMP( int CODE, int /*name*/*L ); // 2377 %ROUTINESPEC STORE TAG(%INTEGER KK,SLINK) #line 2377 "regression-compile-tmp/nrimp10s-77.imp" auto void STORETAG( int KK, int SLINK ); // 2378 %ROUTINESPEC UNPACK #line 2378 "regression-compile-tmp/nrimp10s-77.imp" auto void UNPACK( void ); // 2379 %ROUTINESPEC PACK(%INTEGERNAME PTYPE) #line 2379 "regression-compile-tmp/nrimp10s-77.imp" auto void PACK( int /*name*/*PTYPE ); // 2380 %ROUTINESPEC DIAG POINTER(%INTEGER LEVEL) #line 2380 "regression-compile-tmp/nrimp10s-77.imp" auto void DIAGPOINTER( int LEVEL ); // 2381 %ROUTINESPEC RDISPLAY(%INTEGER KK) #line 2381 "regression-compile-tmp/nrimp10s-77.imp" auto void RDISPLAY( int KK ); // 2382 %ROUTINESPEC RHEAD(%INTEGER KK) #line 2382 "regression-compile-tmp/nrimp10s-77.imp" auto void RHEAD( int KK ); // 2383 %ROUTINESPEC ODD ALIGN #line 2383 "regression-compile-tmp/nrimp10s-77.imp" auto void ODDALIGN( void ); // 2384 %INTEGERFNSPEC PTR OFFSET(%INTEGER RLEV) #line 2384 "regression-compile-tmp/nrimp10s-77.imp" auto int PTROFFSET( int RLEV ); // 2385 %ROUTINESPEC PPJ(%INTEGER MASK,N) #line 2385 "regression-compile-tmp/nrimp10s-77.imp" auto void PPJ( int MASK, int N ); // 2386 %ROUTINESPEC CRFORMAT(%INTEGERNAME OPHEAD) #line 2386 "regression-compile-tmp/nrimp10s-77.imp" auto void CRFORMAT( int /*name*/*OPHEAD ); // 2387 %INTEGERFNSPEC DISPLACEMENT(%INTEGER LINK) #line 2387 "regression-compile-tmp/nrimp10s-77.imp" auto int DISPLACEMENT( int LINK ); // 2388 %INTEGERFNSPEC COPY RECORD TAG(%INTEGERNAME SUBS) #line 2388 "regression-compile-tmp/nrimp10s-77.imp" auto int COPYRECORDTAG( int /*name*/*SUBS ); // 2389 %ROUTINESPEC SAVE IRS #line 2389 "regression-compile-tmp/nrimp10s-77.imp" auto void SAVEIRS( void ); // 2390 %ROUTINESPEC COPY DR #line 2390 "regression-compile-tmp/nrimp10s-77.imp" auto void COPYDR( void ); // 2391 %ROUTINESPEC BOOT OUT(%INTEGER REG) #line 2391 "regression-compile-tmp/nrimp10s-77.imp" auto void BOOTOUT( int REG ); // 2392 %ROUTINESPEC CHANGE RD(%INTEGER REG) #line 2392 "regression-compile-tmp/nrimp10s-77.imp" auto void CHANGERD( int REG ); // 2393 %ROUTINESPEC FORGET(%INTEGER REG) #line 2393 "regression-compile-tmp/nrimp10s-77.imp" auto void FORGET( int REG ); // 2394 %ROUTINESPEC REMEMBER #line 2394 "regression-compile-tmp/nrimp10s-77.imp" auto void REMEMBER( void ); // 2395 %ROUTINESPEC NOTE ASSMENT(%INTEGER REG,ASSOP,VAR) #line 2395 "regression-compile-tmp/nrimp10s-77.imp" auto void NOTEASSMENT( int REG, int ASSOP, int VAR ); // 2396 %SWITCH SW(1:24) #line 2396 "regression-compile-tmp/nrimp10s-77.imp" static int sw2_SW_idx; static const void * /*SWITCH*/ sw2_SW[24] = { &&sw2_SW_1, &&sw2_SW_2, &&sw2_SW_3, &&sw2_SW_4, &&sw2_SW_5, &&sw2_SW_6, &&sw2_SW_7, &&sw2_SW_8, &&sw2_SW_9, &&sw2_SW_10, &&sw2_SW_11, &&sw2_SW_12, &&sw2_SW_13, &&sw2_SW_14, &&sw2_SW_15, &&sw2_SW_16, &&sw2_SW_17, &&sw2_SW_18, &&sw2_SW_19, &&sw2_SW_20, &&sw2_SW_21, &&sw2_SW_22, &&sw2_SW_23, &&sw2_SW_24, }; // 2397 %RECORDFORMAT RD(%BYTEINTEGER UPTYPE,PTYPE,XB,FLAG,{%C #line 2397 "regression-compile-tmp/nrimp10s-77.imp" typedef struct RD RD; struct RD { unsigned char UPTYPE; unsigned char PTYPE; unsigned char XB; unsigned char FLAG; int D; int XTRA; }; // 2398 %INTEGER D,XTRA) // 2399 %INTEGER SNDISP,ACC,K,KFORM,STNAME,MIDCELL #line 2399 "regression-compile-tmp/nrimp10s-77.imp" int SNDISP; #line 2399 "regression-compile-tmp/nrimp10s-77.imp" int ACC; #line 2399 "regression-compile-tmp/nrimp10s-77.imp" int K; #line 2399 "regression-compile-tmp/nrimp10s-77.imp" int KFORM; #line 2399 "regression-compile-tmp/nrimp10s-77.imp" int STNAME; #line 2399 "regression-compile-tmp/nrimp10s-77.imp" int MIDCELL; // 2400 %INTEGER TCELL,NUMMOD,JJ,JJJ,KK,QQ,MARKER,REPORTUI,XDISP,MASK, {%C #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int TCELL; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int NUMMOD; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int JJ; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int JJJ; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int KK; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int QQ; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int MARKER; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int REPORTUI; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int XDISP; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int MASK; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int BASE; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int AREA; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int ACCESS; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int DISP; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int EXTRN; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int CURRINST; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int VALUE; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int STRINGL; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int PTYPE; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int I; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int J; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int OLDI; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int USEBITS; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int TWSPHEAD; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int KKK; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int STRFNRES; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int MARKIU; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int MARKUI; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int MARKC; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int MARKE; #line 2400 "regression-compile-tmp/nrimp10s-77.imp" int MARKR; // 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 // 2404 %INTEGER LITL,ROUT,NAM,ARR,PREC,TYPE #line 2404 "regression-compile-tmp/nrimp10s-77.imp" int LITL; #line 2404 "regression-compile-tmp/nrimp10s-77.imp" int ROUT; #line 2404 "regression-compile-tmp/nrimp10s-77.imp" int NAM; #line 2404 "regression-compile-tmp/nrimp10s-77.imp" int ARR; #line 2404 "regression-compile-tmp/nrimp10s-77.imp" int PREC; #line 2404 "regression-compile-tmp/nrimp10s-77.imp" int TYPE; // 2405 %RECORD (RD) EXPOPND{(RD); ! RESULT RECORD FOR EXPOP #line 2405 "regression-compile-tmp/nrimp10s-77.imp" RD EXPOPND; // 2406 CURR INST=0 #line 2406 "regression-compile-tmp/nrimp10s-77.imp" CURRINST = 0; // 2407 TWSPHEAD=0 #line 2407 "regression-compile-tmp/nrimp10s-77.imp" TWSPHEAD = 0; // 2408 %INTEGERARRAY SGRUSE,SGRINF(0:7) #line 2408 "regression-compile-tmp/nrimp10s-77.imp" int SGRUSE[8]; #line 2408 "regression-compile-tmp/nrimp10s-77.imp" int SGRINF[8]; // 2409 ->SW(A(P)) #line 2409 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_idx = A[P]; if ((1 <= sw2_SW_idx) && (sw2_SW_idx <= 24)) goto *(sw2_SW-1)[sw2_SW_idx]; /* Bounds=1:24 */ else { /*_imp_signal(8, 2, sw2_SW_idx);*/ fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:24 at %s:%d\n", sw2_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 2410 SW(23): ! INCLUDE SOMETHING #line 2410 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_23:; // 2411 SW(24): ! REDUNDANT SEP #line 2411 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_24:; // 2412 SW(2): ! #line 2412 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_2:; // 2413 CSSEXIT: LAST INST=CURR INST #line 2413 "regression-compile-tmp/nrimp10s-77.imp" U_1015:; #line 2413 "regression-compile-tmp/nrimp10s-77.imp" LASTINST = CURRINST; // 2414 %WHILE TWSPHEAD#0 %CYCLE #line 2414 "regression-compile-tmp/nrimp10s-77.imp" L_01ef:; #line 2414 "regression-compile-tmp/nrimp10s-77.imp" if (((TWSPHEAD) == (0))) goto L_01f0; // 2415 POP(TWSPHEAD,JJ,KK,QQ) #line 2415 "regression-compile-tmp/nrimp10s-77.imp" POP(&TWSPHEAD, &JJ, &KK, &QQ); // 2416 RETURN WSP(JJ,KK) #line 2416 "regression-compile-tmp/nrimp10s-77.imp" RETURNWSP(JJ, KK); // 2417 %REPEAT #line 2417 "regression-compile-tmp/nrimp10s-77.imp" goto L_01ef; #line 2417 "regression-compile-tmp/nrimp10s-77.imp" L_01f0:; // 2418 %RETURN #line 2418 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 2419 SW(1): !(UI)(S) #line 2419 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_1:; // 2420 FAULT(57,0) %UNLESS LEVEL>=2 #line 2420 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) >= (2))) goto L_01f2; #line 2420 "regression-compile-tmp/nrimp10s-77.imp" FAULT(57, 0); #line 2420 "regression-compile-tmp/nrimp10s-77.imp" L_01f2:; // 2421 MARKER=P+1+A(P+1)<<8+A(P+2) #line 2421 "regression-compile-tmp/nrimp10s-77.imp" MARKER = (((unsigned char)(((((((int)(P)) + (1)))) + (((A[(((int)(P)) + (1))]) << (8)))))) + (A[(((int)(P)) + (2))])); // 2422 P=P+3 #line 2422 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); // 2423 ->LABFND %IF A(MARKER)=1 #line 2423 "regression-compile-tmp/nrimp10s-77.imp" if (((A[MARKER]) != (1))) goto L_01f3; #line 2423 "regression-compile-tmp/nrimp10s-77.imp" goto U_1016; #line 2423 "regression-compile-tmp/nrimp10s-77.imp" L_01f3:; // 2424 %IF A(MARKER)=2 %THEN SET LINE %AND CUI(0) %AND ->CSSEXIT #line 2424 "regression-compile-tmp/nrimp10s-77.imp" if (((A[MARKER]) != (2))) goto L_01f4; #line 2424 "regression-compile-tmp/nrimp10s-77.imp" SETLINE(); #line 2424 "regression-compile-tmp/nrimp10s-77.imp" CUI(0); #line 2424 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; #line 2424 "regression-compile-tmp/nrimp10s-77.imp" L_01f4:; // 2425 MARKE=0; MARKR=0 #line 2425 "regression-compile-tmp/nrimp10s-77.imp" MARKE = 0; #line 2425 "regression-compile-tmp/nrimp10s-77.imp" MARKR = 0; // 2426 MARKUI=P; MARKIU=MARKER+1 #line 2426 "regression-compile-tmp/nrimp10s-77.imp" MARKUI = P; #line 2426 "regression-compile-tmp/nrimp10s-77.imp" MARKIU = (((int)(MARKER)) + (1)); // 2427 MARKC=MARKIU+1 #line 2427 "regression-compile-tmp/nrimp10s-77.imp" MARKC = (((int)(MARKIU)) + (1)); // 2428 %IF A(MARKER)=3 %THEN CIFTHEN(MARKIU,MARKC,MARKUI,0,0,NO) %AND ->CSSEXIT #line 2428 "regression-compile-tmp/nrimp10s-77.imp" if (((A[MARKER]) != (3))) goto L_01f5; #line 2428 "regression-compile-tmp/nrimp10s-77.imp" CIFTHEN(MARKIU, MARKC, MARKUI, 0, 0, 0); #line 2428 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; #line 2428 "regression-compile-tmp/nrimp10s-77.imp" L_01f5:; // 2429 CLOOP(A(MARKIU),MARKC+2,MARKUI) #line 2429 "regression-compile-tmp/nrimp10s-77.imp" CLOOP(A[MARKIU], (((int)(MARKC)) + (2)), MARKUI); // 2430 ->CSSEXIT #line 2430 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 2431 LABFND: ->SWITCH %UNLESS A(P)=1 %AND A(P+5)=2; ! 1ST OF UI AND NO APP #line 2431 "regression-compile-tmp/nrimp10s-77.imp" U_1016:; #line 2431 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (1))) goto L_01f1; #line 2431 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (5))]) == (2))) goto L_01f6; #line 2431 "regression-compile-tmp/nrimp10s-77.imp" L_01f1:; #line 2431 "regression-compile-tmp/nrimp10s-77.imp" goto U_1017; #line 2431 "regression-compile-tmp/nrimp10s-77.imp" L_01f6:; // 2432 ->SWITCH %UNLESS A(P+6)=2 %AND A(P+7)=2;! NO ENAMSE OR ASSNMNT #line 2432 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (6))]) != (2))) goto L_01f7; #line 2432 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (7))]) == (2))) goto L_01f8; #line 2432 "regression-compile-tmp/nrimp10s-77.imp" L_01f7:; #line 2432 "regression-compile-tmp/nrimp10s-77.imp" goto U_1017; #line 2432 "regression-compile-tmp/nrimp10s-77.imp" L_01f8:; // 2433 JJ=ENTER LAB(FROM AR2(P+3),0); ->CSSEXIT #line 2433 "regression-compile-tmp/nrimp10s-77.imp" JJ = ENTERLAB(FROMAR2((((int)(P)) + (3))), 0); #line 2433 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 2434 SW(5): ! %CYCLE #line 2434 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_5:; // 2435 FAULT(57,0) %UNLESS LEVEL>=2 #line 2435 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) >= (2))) goto L_01f9; #line 2435 "regression-compile-tmp/nrimp10s-77.imp" FAULT(57, 0); #line 2435 "regression-compile-tmp/nrimp10s-77.imp" L_01f9:; // 2436 %IF A(P+5)=2 %THEN %START; ! OPEN CYCLE #line 2436 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (5))]) != (2))) goto L_01fa; // 2437 CLOOP(0,P+1,0) #line 2437 "regression-compile-tmp/nrimp10s-77.imp" CLOOP(0, (((int)(P)) + (1)), 0); // 2438 %FINISH %ELSE %START #line 2438 "regression-compile-tmp/nrimp10s-77.imp" goto L_01fb; #line 2438 "regression-compile-tmp/nrimp10s-77.imp" L_01fa:; // 2439 CLOOP(6,P+6,P+1) #line 2439 "regression-compile-tmp/nrimp10s-77.imp" CLOOP(6, (((int)(P)) + (6)), (((int)(P)) + (1))); // 2440 %FINISH #line 2440 "regression-compile-tmp/nrimp10s-77.imp" L_01fb:; // 2441 ->CSSEXIT #line 2441 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 2442 ! // 2443 SW(6): ! REPEAT #line 2443 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_6:; // 2444 ->CSSEXIT #line 2444 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 2445 SW(22): ! '%CONTROL' (CONST) #line 2445 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_22:; // 2446 J=FROM AR4(P+2) #line 2446 "regression-compile-tmp/nrimp10s-77.imp" J = FROMAR4((((int)(P)) + (2))); // 2447 CODEOUT #line 2447 "regression-compile-tmp/nrimp10s-77.imp" CODEOUT(); // 2448 DCOMP=J>>28; ->CSSEXIT #line 2448 "regression-compile-tmp/nrimp10s-77.imp" DCOMP = (int)((((unsigned int)(J)) >> (28))); #line 2448 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 2449 ! // 2450 SW(3): ! (%IU)(COND)%THEN(UI)(ELSE') #line 2450 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_3:; // 2451 MARKIU=P+1; MARKC=MARKIU+3 #line 2451 "regression-compile-tmp/nrimp10s-77.imp" MARKIU = (((int)(P)) + (1)); #line 2451 "regression-compile-tmp/nrimp10s-77.imp" MARKC = (((int)(MARKIU)) + (3)); // 2452 MARKR=P+2+A(P+2)<<8+A(P+3); ! ! FROMAR2(P+2) #line 2452 "regression-compile-tmp/nrimp10s-77.imp" MARKR = (((unsigned char)(((((((int)(P)) + (2)))) + (((A[(((int)(P)) + (2))]) << (8)))))) + (A[(((int)(P)) + (3))])); // 2453 MARKE=0 #line 2453 "regression-compile-tmp/nrimp10s-77.imp" MARKE = 0; // 2454 %IF A(MARKR)=3 %THEN %START #line 2454 "regression-compile-tmp/nrimp10s-77.imp" if (((A[MARKR]) != (3))) goto L_01fc; // 2455 MARKE=MARKR+1+FROMAR2(MARKR+1) #line 2455 "regression-compile-tmp/nrimp10s-77.imp" MARKE = (((int)((((int)(MARKR)) + (1)))) + (FROMAR2((((int)(MARKR)) + (1))))); // 2456 MARKUI=MARKR+3 #line 2456 "regression-compile-tmp/nrimp10s-77.imp" MARKUI = (((int)(MARKR)) + (3)); // 2457 %FINISH #line 2457 "regression-compile-tmp/nrimp10s-77.imp" L_01fc:; // 2458 CIFTHEN(MARKIU,MARKC,MARKUI,MARKE,MARKR,NO) #line 2458 "regression-compile-tmp/nrimp10s-77.imp" CIFTHEN(MARKIU, MARKC, MARKUI, MARKE, MARKR, 0); // 2459 ->CSSEXIT #line 2459 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 2460 SW(4): #line 2460 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_4:; // 2461 ! '%FINISH(ELSE')(S) // 2462 ->CSSEXIT #line 2462 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 2463 SWITCH: %BEGIN; ! SWITCH LABEL #line 2463 "regression-compile-tmp/nrimp10s-77.imp" U_1017:; #line 2463 "regression-compile-tmp/nrimp10s-77.imp" void _BLOCK_4_LEVEL_4_(void) { // 2464 %INTEGER HEAD,BASEPT,NAPS,FNAME #line 2464 "regression-compile-tmp/nrimp10s-77.imp" int HEAD; #line 2464 "regression-compile-tmp/nrimp10s-77.imp" int BASEPT; #line 2464 "regression-compile-tmp/nrimp10s-77.imp" int NAPS; #line 2464 "regression-compile-tmp/nrimp10s-77.imp" int FNAME; // 2465 %INTEGERARRAY BITS(0:2) #line 2465 "regression-compile-tmp/nrimp10s-77.imp" int BITS[3]; // 2466 FORGET(-1) #line 2466 "regression-compile-tmp/nrimp10s-77.imp" FORGET((-1)); // 2467 FNAME=FROM AR2(P+3) #line 2467 "regression-compile-tmp/nrimp10s-77.imp" FNAME = FROMAR2((((int)(P)) + (3))); // 2468 %UNLESS A(P)=1 %AND A(P+5)=1 %THEN FAULT2(5,0,FNAME) %AND ->BEND #line 2468 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (1))) goto L_01fd; #line 2468 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (5))]) == (1))) goto L_01fe; #line 2468 "regression-compile-tmp/nrimp10s-77.imp" L_01fd:; #line 2468 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(5, 0, FNAME); #line 2468 "regression-compile-tmp/nrimp10s-77.imp" goto U_1018; #line 2468 "regression-compile-tmp/nrimp10s-77.imp" L_01fe:; // 2469 ! 1ST OF UI + APP // 2470 P=P+3; TEST APP(NAPS) #line 2470 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); #line 2470 "regression-compile-tmp/nrimp10s-77.imp" TESTAPP(&NAPS); // 2471 P=P+6 #line 2471 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (6)); // 2472 %UNLESS INTEXP(JJ)=0 %THEN FAULT2(41,0,0) %AND ->BEND #line 2472 "regression-compile-tmp/nrimp10s-77.imp" if (((INTEXP(&JJ)) == (0))) goto L_01ff; #line 2472 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(41, 0, 0); #line 2472 "regression-compile-tmp/nrimp10s-77.imp" goto U_1018; #line 2472 "regression-compile-tmp/nrimp10s-77.imp" L_01ff:; // 2473 ! UNLESS EXPRESSION EVALUATES AND // 2474 %UNLESS NAPS=1 %THEN FAULT2(21,NAPS-1,FNAME) %AND ->BEND #line 2474 "regression-compile-tmp/nrimp10s-77.imp" if (((NAPS) == (1))) goto L_0200; #line 2474 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(21, (((int)(NAPS)) - (1)), FNAME); #line 2474 "regression-compile-tmp/nrimp10s-77.imp" goto U_1018; #line 2474 "regression-compile-tmp/nrimp10s-77.imp" L_0200:; // 2475 ! NO REST OF APP // 2476 %UNLESS A(P+1)=2=A(P+2) %THEN FAULT2(5,0,FNAME) %AND ->BEND #line 2476 "regression-compile-tmp/nrimp10s-77.imp" if ((((A[(((int)(P)) + (1))]) != (2))) || (((2) == (A[(((int)(P)) + (2))])))) goto L_0202; #line 2476 "regression-compile-tmp/nrimp10s-77.imp" L_0201:; #line 2476 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(5, 0, FNAME); #line 2476 "regression-compile-tmp/nrimp10s-77.imp" goto U_1018; #line 2476 "regression-compile-tmp/nrimp10s-77.imp" L_0202:; // 2477 ! NO ENAME OR REST OF ASSIGMENT // 2478 COPY TAG(FNAME) #line 2478 "regression-compile-tmp/nrimp10s-77.imp" COPYTAG(FNAME); // 2479 HEAD=K #line 2479 "regression-compile-tmp/nrimp10s-77.imp" HEAD = K; // 2480 %IF OLDI#LEVEL %OR TYPE#6 %THEN FAULT(4,FNAME) %AND ->BEND #line 2480 "regression-compile-tmp/nrimp10s-77.imp" if (((OLDI) != (LEVEL))) goto L_0203; #line 2480 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) == (6))) goto L_0204; #line 2480 "regression-compile-tmp/nrimp10s-77.imp" L_0203:; #line 2480 "regression-compile-tmp/nrimp10s-77.imp" FAULT(4, FNAME); #line 2480 "regression-compile-tmp/nrimp10s-77.imp" goto U_1018; #line 2480 "regression-compile-tmp/nrimp10s-77.imp" L_0204:; // 2481 FROM123(HEAD,BASEPT,KKK,KK); ! EXTRACT TABLE ADDR,LB & UB #line 2481 "regression-compile-tmp/nrimp10s-77.imp" FROM123(HEAD, &BASEPT, &KKK, &KK); // 2482 MLINK(HEAD); ! K POINTS TO BIT LIST #line 2482 "regression-compile-tmp/nrimp10s-77.imp" MLINK(&HEAD); // 2483 ->INBD %IF KKK<=JJ<=KK #line 2483 "regression-compile-tmp/nrimp10s-77.imp" if ((((KKK) > (JJ))) || (((JJ) > (KK)))) goto L_0205; #line 2483 "regression-compile-tmp/nrimp10s-77.imp" goto U_1019; #line 2483 "regression-compile-tmp/nrimp10s-77.imp" L_0205:; // 2484 FAULT2(50,JJ,FNAME); ->BEND #line 2484 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(50, JJ, FNAME); #line 2484 "regression-compile-tmp/nrimp10s-77.imp" goto U_1018; // 2485 INBD: Q=JJ-KKK #line 2485 "regression-compile-tmp/nrimp10s-77.imp" U_1019:; #line 2485 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(JJ)) - (KKK)); // 2486 %WHILE Q>=96 %%CYCLE #line 2486 "regression-compile-tmp/nrimp10s-77.imp" L_0206:; #line 2486 "regression-compile-tmp/nrimp10s-77.imp" if (((Q) < (96))) goto L_0207; // 2487 MLINK(HEAD) #line 2487 "regression-compile-tmp/nrimp10s-77.imp" MLINK(&HEAD); // 2488 Q=Q-96 #line 2488 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) - (96)); // 2489 %REPEAT #line 2489 "regression-compile-tmp/nrimp10s-77.imp" goto L_0206; #line 2489 "regression-compile-tmp/nrimp10s-77.imp" L_0207:; // 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 ! // 2494 FROM123(HEAD,BITS(0),BITS(1),BITS(2)) #line 2494 "regression-compile-tmp/nrimp10s-77.imp" FROM123(HEAD, &BITS[0], &BITS[1], &BITS[2]); // 2495 QQ=Q>>5; ! RIGHT WORD #line 2495 "regression-compile-tmp/nrimp10s-77.imp" QQ = (int)((((unsigned int)(Q)) >> (5))); // 2496 Q=Q&31; JJJ=1<CSSEXIT #line 2508 "regression-compile-tmp/nrimp10s-77.imp" U_1018:; #line 2508 "regression-compile-tmp/nrimp10s-77.imp" return; } // End of block _BLOCK_4_LEVEL_4_ at level 5 _BLOCK_4_LEVEL_4_(); #line 2508 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 2509 SW(7): ! (%WU)(SC)(COND)(RESTOFWU) #line 2509 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_7:; // 2510 FAULT(57,0) %UNLESS LEVEL>=2 #line 2510 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) >= (2))) goto L_020b; #line 2510 "regression-compile-tmp/nrimp10s-77.imp" FAULT(57, 0); #line 2510 "regression-compile-tmp/nrimp10s-77.imp" L_020b:; // 2511 MARKIU=P+1; ! TO WHILE/UNTIL #line 2511 "regression-compile-tmp/nrimp10s-77.imp" MARKIU = (((int)(P)) + (1)); // 2512 MARKC=MARKIU+3; ! TO (SC)(COND) #line 2512 "regression-compile-tmp/nrimp10s-77.imp" MARKC = (((int)(MARKIU)) + (3)); // 2513 CLOOP(A(MARKIU)+3,MARKC,MARKIU+1+FROMAR2(MARKIU+1)) #line 2513 "regression-compile-tmp/nrimp10s-77.imp" CLOOP((((int)(A[MARKIU])) + (3)), MARKC, (((int)((((int)(MARKIU)) + (1)))) + (FROMAR2((((int)(MARKIU)) + (1)))))); // 2514 ->CSSEXIT #line 2514 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 2515 ! // 2516 SW(8): ! SIMPLE DECLN #line 2516 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_8:; // 2517 FAULT(57,0) %UNLESS LEVEL>=2 #line 2517 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) >= (2))) goto L_020c; #line 2517 "regression-compile-tmp/nrimp10s-77.imp" FAULT(57, 0); #line 2517 "regression-compile-tmp/nrimp10s-77.imp" L_020c:; // 2518 FAULT(40,0) %IF NMDECS(LEVEL)&1#0 #line 2518 "regression-compile-tmp/nrimp10s-77.imp" if (((((NMDECS[LEVEL]) & (1))) == (0))) goto L_020d; #line 2518 "regression-compile-tmp/nrimp10s-77.imp" FAULT(40, 0); #line 2518 "regression-compile-tmp/nrimp10s-77.imp" L_020d:; // 2519 QQ=P; P=P+5;CLT;ROUT=0; LITL=0 #line 2519 "regression-compile-tmp/nrimp10s-77.imp" QQ = P; #line 2519 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (5)); #line 2519 "regression-compile-tmp/nrimp10s-77.imp" CLT(); #line 2519 "regression-compile-tmp/nrimp10s-77.imp" ROUT = 0; #line 2519 "regression-compile-tmp/nrimp10s-77.imp" LITL = 0; // 2520 %IF A(P)#1 %THEN %START; ! ARRAY DECLARATIONS #line 2520 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) == (1))) goto L_020e; // 2521 FAULT(70,0) %IF TYPE=5 %AND ACC=0 #line 2521 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (5))) goto L_020f; #line 2521 "regression-compile-tmp/nrimp10s-77.imp" if (((ACC) != (0))) goto L_020f; #line 2521 "regression-compile-tmp/nrimp10s-77.imp" FAULT(70, 0); #line 2521 "regression-compile-tmp/nrimp10s-77.imp" L_020f:; // 2522 NAM=0 #line 2522 "regression-compile-tmp/nrimp10s-77.imp" NAM = 0; // 2523 SET LINE #line 2523 "regression-compile-tmp/nrimp10s-77.imp" SETLINE(); // 2524 QQ=2-A(P+1); P=P+2; ! QQ=1 FOR ARRAYFORMATS #line 2524 "regression-compile-tmp/nrimp10s-77.imp" QQ = ((2) - ((int)(A[(((int)(P)) + (1))]))); #line 2524 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 2525 DECLARE ARRAYS(QQ,0) #line 2525 "regression-compile-tmp/nrimp10s-77.imp" DECLAREARRAYS(QQ, 0); // 2526 %FINISH %ELSE %START #line 2526 "regression-compile-tmp/nrimp10s-77.imp" goto L_0210; #line 2526 "regression-compile-tmp/nrimp10s-77.imp" L_020e:; // 2527 %IF A(QQ+1)=128 %THEN %START;! NOT LINKED&SHUFFLED #line 2527 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(QQ)) + (1))]) != (128))) goto L_0211; // 2528 CQN(P+1); P=P+2 #line 2528 "regression-compile-tmp/nrimp10s-77.imp" CQN((((int)(P)) + (1))); #line 2528 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 2529 DECLARE SCALARS(1,0) #line 2529 "regression-compile-tmp/nrimp10s-77.imp" DECLARESCALARS(1, 0); // 2530 %FINISH #line 2530 "regression-compile-tmp/nrimp10s-77.imp" L_0211:; // 2531 %FINISH #line 2531 "regression-compile-tmp/nrimp10s-77.imp" L_0210:; // 2532 ->CSSEXIT #line 2532 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 2533 ! // 2534 SW(9): ! %END #line 2534 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_9:; // 2535 %BEGIN #line 2535 "regression-compile-tmp/nrimp10s-77.imp" void _BLOCK_5_LEVEL_4_(void) { // 2536 %SWITCH S(1:5) #line 2536 "regression-compile-tmp/nrimp10s-77.imp" static int sw3_S_idx; static const void * /*SWITCH*/ sw3_S[5] = { &&sw3_S_1, &&sw3_S_2, &&sw3_S_3, &&sw3_S_4, &&sw3_S_5, }; // 2537 -> S(A(P+1)) #line 2537 "regression-compile-tmp/nrimp10s-77.imp" sw3_S_idx = A[(((int)(P)) + (1))]; if ((1 <= sw3_S_idx) && (sw3_S_idx <= 5)) goto *(sw3_S-1)[sw3_S_idx]; /* Bounds=1:5 */ else { /*_imp_signal(8, 2, sw3_S_idx);*/ fprintf(stderr, "%%SWITCH index S(%d) not in range 1:5 at %s:%d\n", sw3_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 2538 S(1): ! ENDOFPROGRAM #line 2538 "regression-compile-tmp/nrimp10s-77.imp" sw3_S_1:; // 2539 S(2): ! ENDOFFILE #line 2539 "regression-compile-tmp/nrimp10s-77.imp" sw3_S_2:; // 2540 %IF CPRMODE=0 %THEN CPRMODE=2 #line 2540 "regression-compile-tmp/nrimp10s-77.imp" if (((CPRMODE) != (0))) goto L_0212; #line 2540 "regression-compile-tmp/nrimp10s-77.imp" CPRMODE = 2; #line 2540 "regression-compile-tmp/nrimp10s-77.imp" L_0212:; // 2541 FAULT(15,0) %UNLESS LEVEL+CPRMODE=3 #line 2541 "regression-compile-tmp/nrimp10s-77.imp" if ((((((int)(LEVEL)) + (CPRMODE))) == (3))) goto L_0213; #line 2541 "regression-compile-tmp/nrimp10s-77.imp" FAULT(15, 0); #line 2541 "regression-compile-tmp/nrimp10s-77.imp" L_0213:; // 2542 FAULT(56,0) %UNLESS A(P+1)=CPRMODE #line 2542 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (1))]) == (CPRMODE))) goto L_0214; #line 2542 "regression-compile-tmp/nrimp10s-77.imp" FAULT(56, 0); #line 2542 "regression-compile-tmp/nrimp10s-77.imp" L_0214:; // 2543 CEND(CPRMODE) #line 2543 "regression-compile-tmp/nrimp10s-77.imp" CEND(CPRMODE); // 2544 ->BEND #line 2544 "regression-compile-tmp/nrimp10s-77.imp" goto U_101a; // 2545 S(3): ! ENDOFLIST #line 2545 "regression-compile-tmp/nrimp10s-77.imp" sw3_S_3:; // 2546 LIST=0; #line 2546 "regression-compile-tmp/nrimp10s-77.imp" LIST = 0; // 2547 ->BEND #line 2547 "regression-compile-tmp/nrimp10s-77.imp" goto U_101a; // 2548 S(4): ! END #line 2548 "regression-compile-tmp/nrimp10s-77.imp" sw3_S_4:; // 2549 CEND(FLAG(LEVEL)) #line 2549 "regression-compile-tmp/nrimp10s-77.imp" CEND(FLAG[LEVEL]); // 2550 BEND: %END #line 2550 "regression-compile-tmp/nrimp10s-77.imp" U_101a:; #line 2550 "regression-compile-tmp/nrimp10s-77.imp" return; sw3_S_5:; /*_imp_signal(6,3,sw3_S_idx,"SWITCH LABEL NOT SET - sw3_S");*/ fprintf(stderr, "%%SWITCH LABEL NOT SET - sw3_S(%d): at line %s:%d", sw3_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // End of block _BLOCK_5_LEVEL_4_ at level 5 _BLOCK_5_LEVEL_4_(); // 2551 ->CSSEXIT #line 2551 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 2552 ! // 2553 SW(11): #line 2553 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_11:; // 2554 %BEGIN #line 2554 "regression-compile-tmp/nrimp10s-77.imp" void _BLOCK_6_LEVEL_4_(void) { // 2555 %INTEGER MARKER1,KK,KKK #line 2555 "regression-compile-tmp/nrimp10s-77.imp" int MARKER1; #line 2555 "regression-compile-tmp/nrimp10s-77.imp" int KK; #line 2555 "regression-compile-tmp/nrimp10s-77.imp" int KKK; // 2556 %STRING(34)XNAME #line 2556 "regression-compile-tmp/nrimp10s-77.imp" _imp_string /*%string(34)*/ XNAME; // 2557 P=P+1; MARKER1=FROM AR2(P)+P; ! (SEX)(RT)(SPEC')(NAME)(FPP) #line 2557 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 2557 "regression-compile-tmp/nrimp10s-77.imp" MARKER1 = (((int)(FROMAR2(P))) + (P)); // 2558 AGN: Q=P; KK=FROM AR2(MARKER1+5); ! KK ON NAME #line 2558 "regression-compile-tmp/nrimp10s-77.imp" U_101b:; #line 2558 "regression-compile-tmp/nrimp10s-77.imp" Q = P; #line 2558 "regression-compile-tmp/nrimp10s-77.imp" KK = FROMAR2((((int)(MARKER1)) + (5))); // 2559 EXTRN=A(P+2) #line 2559 "regression-compile-tmp/nrimp10s-77.imp" EXTRN = A[(((int)(P)) + (2))]; // 2560 LITL=EXTRN&3 #line 2560 "regression-compile-tmp/nrimp10s-77.imp" LITL = ((EXTRN) & (3)); // 2561 %IF A(MARKER1)=1 %THEN %START;! P<%SPEC'>='%SPEC' #line 2561 "regression-compile-tmp/nrimp10s-77.imp" if (((A[MARKER1]) != (1))) goto L_0215; // 2562 P=P+3; CRSPEC(1-EXTRN>>2);! 0 FOR ROUTINESPEC #line 2562 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); #line 2562 "regression-compile-tmp/nrimp10s-77.imp" CRSPEC(((1) - ((int)((int)((((unsigned int)(EXTRN)) >> (2))))))); // 2563 ! 1 FOR EXTERNAL (ETC) SPEC // 2564 ->BEND #line 2564 "regression-compile-tmp/nrimp10s-77.imp" goto U_1018; // 2565 %FINISH #line 2565 "regression-compile-tmp/nrimp10s-77.imp" L_0215:; // 2566 COPY TAG(KK) #line 2566 "regression-compile-tmp/nrimp10s-77.imp" COPYTAG(KK); // 2567 %IF OLDI=LEVEL %THEN %START #line 2567 "regression-compile-tmp/nrimp10s-77.imp" if (((OLDI) != (LEVEL))) goto L_0216; // 2568 %IF CPRMODE=0 %THEN CPRMODE=2;! FLAG AS FILE OF ROUTINES #line 2568 "regression-compile-tmp/nrimp10s-77.imp" if (((CPRMODE) != (0))) goto L_0217; #line 2568 "regression-compile-tmp/nrimp10s-77.imp" CPRMODE = 2; #line 2568 "regression-compile-tmp/nrimp10s-77.imp" L_0217:; // 2569 ! // 2570 %IF (CPRMODE=2 %AND LEVEL=1) %START #line 2570 "regression-compile-tmp/nrimp10s-77.imp" if (((CPRMODE) != (2))) goto L_0218; #line 2570 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) != (1))) goto L_0218; // 2571 %IF EXTRN=3 %THEN EXTRN=2 #line 2571 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) != (3))) goto L_0219; #line 2571 "regression-compile-tmp/nrimp10s-77.imp" EXTRN = 2; #line 2571 "regression-compile-tmp/nrimp10s-77.imp" L_0219:; // 2572 XNAME<-STRING(DICTBASE+WORD(KK)) #line 2572 "regression-compile-tmp/nrimp10s-77.imp" XNAME = *_imp_STRING((((int)(DICTBASE)) + (WORD[KK]))); // 2573 %IF EXTRN=1 %THEN XNAME<-"S#".XNAME #line 2573 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) != (1))) goto L_021a; #line 2573 "regression-compile-tmp/nrimp10s-77.imp" XNAME = _imp_join((_imp_string)_imp_str_literal("S#"),(_imp_string)XNAME); #line 2573 "regression-compile-tmp/nrimp10s-77.imp" L_021a:; // 2574 %IF EXTRN=4 %THEN XNAME="" #line 2574 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) != (4))) goto L_021b; #line 2574 "regression-compile-tmp/nrimp10s-77.imp" XNAME = _imp_str_literal(""); #line 2574 "regression-compile-tmp/nrimp10s-77.imp" L_021b:; // 2575 JJ=MIDCELL; ! CODE DESCRIPTOR REL ADDR #line 2575 "regression-compile-tmp/nrimp10s-77.imp" JJ = MIDCELL; // 2576 %IF EXTRN#4 %THEN USEBITS=2 #line 2576 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) == (4))) goto L_021c; #line 2576 "regression-compile-tmp/nrimp10s-77.imp" USEBITS = 2; #line 2576 "regression-compile-tmp/nrimp10s-77.imp" L_021c:; // 2577 DEFINE EP(XNAME,CA,JJ,0) #line 2577 "regression-compile-tmp/nrimp10s-77.imp" DEFINEEP(XNAME, CA, JJ, 0); // 2578 %IF JJ#0 %THEN PSF1(INCA,0,-JJ) #line 2578 "regression-compile-tmp/nrimp10s-77.imp" if (((JJ) == (0))) goto L_021d; #line 2578 "regression-compile-tmp/nrimp10s-77.imp" PSF1(20, 0, (-(JJ))); #line 2578 "regression-compile-tmp/nrimp10s-77.imp" L_021d:; // 2579 %FINISH %ELSE %START; ! EXTERNALS IN PRGM OR WRNG LEVEL #line 2579 "regression-compile-tmp/nrimp10s-77.imp" goto L_021e; #line 2579 "regression-compile-tmp/nrimp10s-77.imp" L_0218:; // 2580 FAULT(55,KK) %UNLESS EXTRN=4; EXTRN=4 #line 2580 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) == (4))) goto L_021f; #line 2580 "regression-compile-tmp/nrimp10s-77.imp" FAULT(55, KK); #line 2580 "regression-compile-tmp/nrimp10s-77.imp" L_021f:; #line 2580 "regression-compile-tmp/nrimp10s-77.imp" EXTRN = 4; // 2581 %FINISH #line 2581 "regression-compile-tmp/nrimp10s-77.imp" L_021e:; // 2582 %IF A(P+3)=1 %THEN KKK=LITL<<14!16_1000 %ELSE %START #line 2582 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (3))]) != (1))) goto L_0220; #line 2582 "regression-compile-tmp/nrimp10s-77.imp" KKK = ((((LITL) << (14))) | (4096)); #line 2582 "regression-compile-tmp/nrimp10s-77.imp" goto L_0221; #line 2582 "regression-compile-tmp/nrimp10s-77.imp" L_0220:; // 2583 ROUT=1; P=P+4; ! FIGURE OUT PTYPE FOR FNS&MAPS #line 2583 "regression-compile-tmp/nrimp10s-77.imp" ROUT = 1; #line 2583 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (4)); // 2584 CLT; ARR=0; NAM=0 #line 2584 "regression-compile-tmp/nrimp10s-77.imp" CLT(); #line 2584 "regression-compile-tmp/nrimp10s-77.imp" ARR = 0; #line 2584 "regression-compile-tmp/nrimp10s-77.imp" NAM = 0; // 2585 %IF A(P)=2 %THEN NAM=2; ! SET NAME ARRAY BIT FOR MAPS #line 2585 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (2))) goto L_0222; #line 2585 "regression-compile-tmp/nrimp10s-77.imp" NAM = 2; #line 2585 "regression-compile-tmp/nrimp10s-77.imp" L_0222:; // 2586 PACK(KKK); ! AND STORE PTYPE IN KKK #line 2586 "regression-compile-tmp/nrimp10s-77.imp" PACK(&KKK); // 2587 %FINISH #line 2587 "regression-compile-tmp/nrimp10s-77.imp" L_0221:; // 2588 %FINISH #line 2588 "regression-compile-tmp/nrimp10s-77.imp" L_0216:; // 2589 %UNLESS OLDI=LEVEL %AND J=15 %AND PTYPE=KKK %START #line 2589 "regression-compile-tmp/nrimp10s-77.imp" if (((OLDI) != (LEVEL))) goto L_0208; #line 2589 "regression-compile-tmp/nrimp10s-77.imp" if (((J) != (15))) goto L_0208; #line 2589 "regression-compile-tmp/nrimp10s-77.imp" if (((PTYPE) == (KKK))) goto L_0223; #line 2589 "regression-compile-tmp/nrimp10s-77.imp" L_0208:; // 2590 P=Q+3; CRSPEC(0); P=Q; ->AGN #line 2590 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(Q)) + (3)); #line 2590 "regression-compile-tmp/nrimp10s-77.imp" CRSPEC(0); #line 2590 "regression-compile-tmp/nrimp10s-77.imp" P = Q; #line 2590 "regression-compile-tmp/nrimp10s-77.imp" goto U_101b; // 2591 %FINISH #line 2591 "regression-compile-tmp/nrimp10s-77.imp" L_0223:; // 2592 PTYPE=PTYPE!(EXTRN&3)<<14; ! DEAL WITH %ROUTINESPEC FOLLOWED #line 2592 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = ((PTYPE) | (((((EXTRN) & (3))) << (14)))); // 2593 ! BY %EXTERNALROUTINE // 2594 %BEGIN #line 2594 "regression-compile-tmp/nrimp10s-77.imp" void _BLOCK_7_LEVEL_5_(void) { // 2595 %INTEGER PTR,PTYPEP,CNT,PP #line 2595 "regression-compile-tmp/nrimp10s-77.imp" int PTR; #line 2595 "regression-compile-tmp/nrimp10s-77.imp" int PTYPEP; #line 2595 "regression-compile-tmp/nrimp10s-77.imp" int CNT; #line 2595 "regression-compile-tmp/nrimp10s-77.imp" int PP; // 2596 J=0; REPLACE TAG(KK);! BODY GIVEN SO UPDATE TAGS INFO #line 2596 "regression-compile-tmp/nrimp10s-77.imp" J = 0; #line 2596 "regression-compile-tmp/nrimp10s-77.imp" REPLACETAG(KK); // 2597 JJ=K; PLABEL=PLABEL-1 #line 2597 "regression-compile-tmp/nrimp10s-77.imp" JJ = K; #line 2597 "regression-compile-tmp/nrimp10s-77.imp" PLABEL = (((int)(PLABEL)) - (1)); // 2598 %UNLESS COMPILER=1 %OR (CPRMODE=2 %AND LEVEL=1) %START #line 2598 "regression-compile-tmp/nrimp10s-77.imp" if (((COMPILER) == (1))) goto L_0224; #line 2598 "regression-compile-tmp/nrimp10s-77.imp" if (((CPRMODE) != (2))) goto L_0225; #line 2598 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) == (1))) goto L_0224; #line 2598 "regression-compile-tmp/nrimp10s-77.imp" L_0225:; // 2599 %IF JROUND(LEVEL+1)=0 %START; ! NOT JUMP OUTSTANDING #line 2599 "regression-compile-tmp/nrimp10s-77.imp" if (((JROUND[(((int)(LEVEL)) + (1))]) != (0))) goto L_0226; // 2600 JROUND(LEVEL+1)=PLABEL #line 2600 "regression-compile-tmp/nrimp10s-77.imp" JROUND[(((int)(LEVEL)) + (1))] = PLABEL; // 2601 ENTER JUMP(15,PLABEL,0) #line 2601 "regression-compile-tmp/nrimp10s-77.imp" ENTERJUMP(15, PLABEL, 0); // 2602 %FINISH #line 2602 "regression-compile-tmp/nrimp10s-77.imp" L_0226:; // 2603 %FINISH #line 2603 "regression-compile-tmp/nrimp10s-77.imp" L_0224:; // 2604 PTYPEP=PTYPE #line 2604 "regression-compile-tmp/nrimp10s-77.imp" PTYPEP = PTYPE; // 2605 P=MARKER1+7 #line 2605 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(MARKER1)) + (7)); // 2606 RHEAD(KK) #line 2606 "regression-compile-tmp/nrimp10s-77.imp" RHEAD(KK); // 2607 N=20; CNT=1 #line 2607 "regression-compile-tmp/nrimp10s-77.imp" N = 20; #line 2607 "regression-compile-tmp/nrimp10s-77.imp" CNT = 1; // 2608 %WHILE A(P)=1 %CYCLE; ! WHILE SOME (MORE) FP PART #line 2608 "regression-compile-tmp/nrimp10s-77.imp" L_0227:; #line 2608 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (1))) goto L_0228; // 2609 PP=P+1+FROMAR2(P+1) #line 2609 "regression-compile-tmp/nrimp10s-77.imp" PP = (((int)((((int)(P)) + (1)))) + (FROMAR2((((int)(P)) + (1))))); // 2610 P=P+3 #line 2610 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); // 2611 CFPDEL #line 2611 "regression-compile-tmp/nrimp10s-77.imp" CFPDEL(); // 2612 PTR=P #line 2612 "regression-compile-tmp/nrimp10s-77.imp" PTR = P; // 2613 {%UNTIL A(PTR-1)=2} %CYCLE; ! CYCLE DOWN NAMELIST #line 2613 "regression-compile-tmp/nrimp10s-77.imp" L_022a:; // 2614 %IF JJ#0 %THEN %START #line 2614 "regression-compile-tmp/nrimp10s-77.imp" if (((JJ) == (0))) goto L_022d; // 2615 FROM12(JJ,J,JJJ); ! EXTRACT PTYPE XTRA INFO #line 2615 "regression-compile-tmp/nrimp10s-77.imp" FROM12(JJ, &J, &JJJ); // 2616 %UNLESS J>>16=PTYPE %AND(PTYPE#5 %OR JJJ>>16=ACC) %THEN FAULT2(9,CNT,KK) #line 2616 "regression-compile-tmp/nrimp10s-77.imp" if ((((int)((((unsigned int)(J)) >> (16)))) != (PTYPE))) goto L_022e; #line 2616 "regression-compile-tmp/nrimp10s-77.imp" if (((PTYPE) != (5))) goto L_022f; #line 2616 "regression-compile-tmp/nrimp10s-77.imp" if ((((int)((((unsigned int)(JJJ)) >> (16)))) == (ACC))) goto L_022f; #line 2616 "regression-compile-tmp/nrimp10s-77.imp" L_022e:; #line 2616 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(9, CNT, KK); #line 2616 "regression-compile-tmp/nrimp10s-77.imp" L_022f:; // 2617 %FINISH %ELSE FAULT2(8,0,KK);! MORE FPS THAN IN SPEC #line 2617 "regression-compile-tmp/nrimp10s-77.imp" goto L_0230; #line 2617 "regression-compile-tmp/nrimp10s-77.imp" L_022d:; #line 2617 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(8, 0, KK); #line 2617 "regression-compile-tmp/nrimp10s-77.imp" L_0230:; // 2618 PTR=PTR+3 #line 2618 "regression-compile-tmp/nrimp10s-77.imp" PTR = (((int)(PTR)) + (3)); // 2619 CNT=CNT+1 #line 2619 "regression-compile-tmp/nrimp10s-77.imp" CNT = (((int)(CNT)) + (1)); // 2620 MLINK(JJ) #line 2620 "regression-compile-tmp/nrimp10s-77.imp" MLINK(&JJ); // 2621 %REPEAT %UNTIL A(PTR-1)=2 #line 2621 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(PTR)) - (1))]) == (2))) goto L_022b; #line 2621 "regression-compile-tmp/nrimp10s-77.imp" goto L_022a; #line 2621 "regression-compile-tmp/nrimp10s-77.imp" L_022b:; // 2622 DECLARE SCALARS(0,0) #line 2622 "regression-compile-tmp/nrimp10s-77.imp" DECLARESCALARS(0, 0); // 2623 P=PP #line 2623 "regression-compile-tmp/nrimp10s-77.imp" P = PP; // 2624 %REPEAT; ! UNTIL NO MORE FP-PART #line 2624 "regression-compile-tmp/nrimp10s-77.imp" goto L_0227; #line 2624 "regression-compile-tmp/nrimp10s-77.imp" L_0228:; // 2625 N=(N+3)&(-4); ! TO WORD BOUNDARY AFTER ALL SYSTEM #line 2625 "regression-compile-tmp/nrimp10s-77.imp" N = (((((int)(N)) + (3))) & ((-4))); // 2626 ! STANDARD PARAMETERS HAVE BEEN DECLARED // 2627 FAULT2(10,0,KK) %UNLESS JJ=0 #line 2627 "regression-compile-tmp/nrimp10s-77.imp" if (((JJ) == (0))) goto L_0231; #line 2627 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(10, 0, KK); #line 2627 "regression-compile-tmp/nrimp10s-77.imp" L_0231:; // 2628 PTYPE=PTYPEP #line 2628 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = PTYPEP; // 2629 %IF PTYPE&16_F0F=5 %THEN N=N+8;! STR FNS RESULT PARAM IS STACKED #line 2629 "regression-compile-tmp/nrimp10s-77.imp" if (((((PTYPE) & (3855))) != (5))) goto L_0232; #line 2629 "regression-compile-tmp/nrimp10s-77.imp" N = (((int)(N)) + (8)); #line 2629 "regression-compile-tmp/nrimp10s-77.imp" L_0232:; // 2630 ! AS XTRA PARM JUST BEFORE DISPLAY // 2631 RDISPLAY(KK) #line 2631 "regression-compile-tmp/nrimp10s-77.imp" RDISPLAY(KK); // 2632 MAKE DECS(MARKER1+1) #line 2632 "regression-compile-tmp/nrimp10s-77.imp" MAKEDECS((((int)(MARKER1)) + (1))); // 2633 %END #line 2633 "regression-compile-tmp/nrimp10s-77.imp" return; } // End of block _BLOCK_7_LEVEL_5_ at level 6 _BLOCK_7_LEVEL_5_(); // 2634 BEND: %END; ->CSSEXIT #line 2634 "regression-compile-tmp/nrimp10s-77.imp" U_1018:; #line 2634 "regression-compile-tmp/nrimp10s-77.imp" return; } // End of block _BLOCK_6_LEVEL_4_ at level 5 _BLOCK_6_LEVEL_4_(); #line 2634 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 2635 ! // 2636 SW(13): !REALS(LN) #line 2636 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_13:; // 2637 FAULT(58,0) %UNLESS CPRMODE=0 #line 2637 "regression-compile-tmp/nrimp10s-77.imp" if (((CPRMODE) == (0))) goto L_0233; #line 2637 "regression-compile-tmp/nrimp10s-77.imp" FAULT(58, 0); #line 2637 "regression-compile-tmp/nrimp10s-77.imp" L_0233:; // 2638 ALL LONG=A(P+1)&1;->CSSEXIT #line 2638 "regression-compile-tmp/nrimp10s-77.imp" ALLLONG = ((A[(((int)(P)) + (1))]) & (1)); #line 2638 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 2639 ! // 2640 SW(14): !%BEGIN #line 2640 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_14:; // 2641 %BEGIN #line 2641 "regression-compile-tmp/nrimp10s-77.imp" void _BLOCK_8_LEVEL_4_(void) { // 2642 PTYPE=0 #line 2642 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = 0; // 2643 %IF LEVEL=1 %AND RLEVEL=0 %AND CPRMODE=0 %START #line 2643 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) != (1))) goto L_0234; #line 2643 "regression-compile-tmp/nrimp10s-77.imp" if (((RLEVEL) != (0))) goto L_0234; #line 2643 "regression-compile-tmp/nrimp10s-77.imp" if (((CPRMODE) != (0))) goto L_0234; // 2644 CODE DES(JJ) #line 2644 "regression-compile-tmp/nrimp10s-77.imp" CODEDES(&JJ); // 2645 DEFINE EP(MAINEP, CA, JJ, 1) #line 2645 "regression-compile-tmp/nrimp10s-77.imp" DEFINEEP(MAINEP, CA, JJ, 1); // 2646 RLEVEL=1; RBASE=1 #line 2646 "regression-compile-tmp/nrimp10s-77.imp" RLEVEL = 1; #line 2646 "regression-compile-tmp/nrimp10s-77.imp" RBASE = 1; // 2647 L(1)=0; M(1)=0; DIAGINF(1)=0; AUXSBASE(1)=0 #line 2647 "regression-compile-tmp/nrimp10s-77.imp" L[1] = 0; #line 2647 "regression-compile-tmp/nrimp10s-77.imp" M[1] = 0; #line 2647 "regression-compile-tmp/nrimp10s-77.imp" DIAGINF[1] = 0; #line 2647 "regression-compile-tmp/nrimp10s-77.imp" AUXSBASE[1] = 0; // 2648 CPRMODE=1 #line 2648 "regression-compile-tmp/nrimp10s-77.imp" CPRMODE = 1; // 2649 N=24; NMAX=N #line 2649 "regression-compile-tmp/nrimp10s-77.imp" N = 24; #line 2649 "regression-compile-tmp/nrimp10s-77.imp" NMAX = N; // 2650 FORGET(-1) #line 2650 "regression-compile-tmp/nrimp10s-77.imp" FORGET((-1)); // 2651 DIAG POINTER(LEVEL+1) #line 2651 "regression-compile-tmp/nrimp10s-77.imp" DIAGPOINTER((((int)(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 ! // 2659 PSF1(STD,1,12) #line 2659 "regression-compile-tmp/nrimp10s-77.imp" PSF1(88, 1, 12); // 2660 PSF1(LXN,1,16) #line 2660 "regression-compile-tmp/nrimp10s-77.imp" PSF1(126, 1, 16); // 2661 PF1(STLN,0,XNB,20) #line 2661 "regression-compile-tmp/nrimp10s-77.imp" PF1(92, 0, 3, 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 ! // 2668 PF1(STLN,0,TOS,0) #line 2668 "regression-compile-tmp/nrimp10s-77.imp" PF1(92, 0, 6, 0); // 2669 PF1(LSS,0,TOS,0) #line 2669 "regression-compile-tmp/nrimp10s-77.imp" PF1(98, 0, 6, 0); // 2670 PSF1(IAD,0,24) #line 2670 "regression-compile-tmp/nrimp10s-77.imp" PSF1(224, 0, 24); // 2671 PF1(STSF,0,TOS,0) #line 2671 "regression-compile-tmp/nrimp10s-77.imp" PF1(94, 0, 6, 0); // 2672 PF1(ISB,0,TOS,0) #line 2672 "regression-compile-tmp/nrimp10s-77.imp" PF1(226, 0, 6, 0); // 2673 PSF1(ISH,0,-2) #line 2673 "regression-compile-tmp/nrimp10s-77.imp" PSF1(232, 0, (-2)); // 2674 PF1(ST,0,BREG,0) #line 2674 "regression-compile-tmp/nrimp10s-77.imp" PF1(72, 0, 7, 0); // 2675 PF1(ASF,0,BREG,0) #line 2675 "regression-compile-tmp/nrimp10s-77.imp" PF1(110, 0, 7, 0); // 2676 ! // 2677 ! // 2678 ! SET THE PROGRAM MASK TO MASK OUT UNDERFLOW AND ALLOW ALL OTHER INTS // 2679 ! // 2680 ! MPSR 16_40C0 // 2681 ! // 2682 PF1(MPSR,0,0,16_40C0) #line 2682 "regression-compile-tmp/nrimp10s-77.imp" PF1(50, 0, 0, 16576); // 2683 PTYPE=1 #line 2683 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = 1; // 2684 %FINISH %ELSE SET LINE; ! SO 'ENTERED FROM LINE' IS OK #line 2684 "regression-compile-tmp/nrimp10s-77.imp" goto L_0235; #line 2684 "regression-compile-tmp/nrimp10s-77.imp" L_0234:; #line 2684 "regression-compile-tmp/nrimp10s-77.imp" SETLINE(); #line 2684 "regression-compile-tmp/nrimp10s-77.imp" L_0235:; // 2685 RHEAD(-1) #line 2685 "regression-compile-tmp/nrimp10s-77.imp" RHEAD((-1)); // 2686 RDISPLAY(-1) #line 2686 "regression-compile-tmp/nrimp10s-77.imp" RDISPLAY((-1)); // 2687 MAKE DECS(P+1) #line 2687 "regression-compile-tmp/nrimp10s-77.imp" MAKEDECS((((int)(P)) + (1))); // 2688 %END #line 2688 "regression-compile-tmp/nrimp10s-77.imp" return; } // End of block _BLOCK_8_LEVEL_4_ at level 5 _BLOCK_8_LEVEL_4_(); // 2689 ->CSSEXIT #line 2689 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 2690 ! // 2691 SW(15): #line 2691 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_15:; // 2692 ! '%ON'(EVENT')(N)(NLIST)'%START' // 2693 FAULT(57,0) %UNLESS LEVEL>=2 #line 2693 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) >= (2))) goto L_0236; #line 2693 "regression-compile-tmp/nrimp10s-77.imp" FAULT(57, 0); #line 2693 "regression-compile-tmp/nrimp10s-77.imp" L_0236:; // 2694 FAULT(40,0) %IF NMDECS(LEVEL)&1#0 #line 2694 "regression-compile-tmp/nrimp10s-77.imp" if (((((NMDECS[LEVEL]) & (1))) == (0))) goto L_0237; #line 2694 "regression-compile-tmp/nrimp10s-77.imp" FAULT(40, 0); #line 2694 "regression-compile-tmp/nrimp10s-77.imp" L_0237:; // 2695 NMDECS(LEVEL)=NMDECS(LEVEL)!16_11;! NO MORE DECS AND IN ONCOND #line 2695 "regression-compile-tmp/nrimp10s-77.imp" NMDECS[LEVEL] = ((NMDECS[LEVEL]) | (17)); // 2696 %IF STACK=0 %THEN %START #line 2696 "regression-compile-tmp/nrimp10s-77.imp" if (((STACK) != (0))) goto L_0238; // 2697 SAVE AUX STACK #line 2697 "regression-compile-tmp/nrimp10s-77.imp" SAVEAUXSTACK(); // 2698 DISP=AUXSBASE(LEVEL) #line 2698 "regression-compile-tmp/nrimp10s-77.imp" DISP = AUXSBASE[LEVEL]; // 2699 PSF1(LSS,2,DISP); ! SAVE TOP OF AUX STACK #line 2699 "regression-compile-tmp/nrimp10s-77.imp" PSF1(98, 2, DISP); // 2700 PSF1(ST,1,DISP+12) #line 2700 "regression-compile-tmp/nrimp10s-77.imp" PSF1(72, 1, (((int)(DISP)) + (12))); // 2701 %FINISH #line 2701 "regression-compile-tmp/nrimp10s-77.imp" L_0238:; // 2702 GRUSE(ACCR)=0 #line 2702 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[0] = 0; // 2703 PSF1(CPSR,1,N+8) #line 2703 "regression-compile-tmp/nrimp10s-77.imp" PSF1(52, 1, (((int)(N)) + (8))); // 2704 PLABEL=PLABEL-1 #line 2704 "regression-compile-tmp/nrimp10s-77.imp" PLABEL = (((int)(PLABEL)) - (1)); // 2705 JJJ=PLABEL #line 2705 "regression-compile-tmp/nrimp10s-77.imp" JJJ = PLABEL; // 2706 ENTER JUMP(15,JJJ,B'10'); ! JUMP ROUND ON BODY #line 2706 "regression-compile-tmp/nrimp10s-77.imp" ENTERJUMP(15, JJJ, 2); // 2707 ! // 2708 P=P+2; JJ=0; ! SET UP A BITMASK IN JJ #line 2708 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); #line 2708 "regression-compile-tmp/nrimp10s-77.imp" JJ = 0; // 2709 {%UNTIL A(P-1)=2} %CYCLE; ! UNTIL NO MORE NLIST #line 2709 "regression-compile-tmp/nrimp10s-77.imp" L_0239:; // 2710 KK=A(P) #line 2710 "regression-compile-tmp/nrimp10s-77.imp" KK = A[P]; // 2711 FAULT2(26,KK,0) %UNLESS 1<=KK<=14 #line 2711 "regression-compile-tmp/nrimp10s-77.imp" if ((((1) > (KK))) || (((KK) <= (14)))) goto L_023c; #line 2711 "regression-compile-tmp/nrimp10s-77.imp" L_022c:; #line 2711 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(26, KK, 0); #line 2711 "regression-compile-tmp/nrimp10s-77.imp" L_023c:; // 2712 JJ=JJ!1<<(KK-1) #line 2712 "regression-compile-tmp/nrimp10s-77.imp" JJ = ((JJ) | (((1) << ((((int)(KK)) - (1)))))); // 2713 P=P+2 #line 2713 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 2714 %REPEAT %UNTIL A(P-1)=2 #line 2714 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) - (1))]) == (2))) goto L_023a; #line 2714 "regression-compile-tmp/nrimp10s-77.imp" goto L_0239; #line 2714 "regression-compile-tmp/nrimp10s-77.imp" L_023a:; // 2715 KK=CA; PGLA(4,4,ADDR(CA)) #line 2715 "regression-compile-tmp/nrimp10s-77.imp" KK = CA; #line 2715 "regression-compile-tmp/nrimp10s-77.imp" PGLA(4, 4, _imp_ADDR(&CA)); // 2716 RELOCATE(GLACA-4,KK,1); ! ENTRY ADDRESS IN PLT #line 2716 "regression-compile-tmp/nrimp10s-77.imp" RELOCATE((((int)(GLACA)) - (4)), KK, 1); // 2717 ONWORD(LEVEL)=JJ<<18!(GLACA-4) #line 2717 "regression-compile-tmp/nrimp10s-77.imp" ONWORD[LEVEL] = ((((JJ) << (18))) | ((((int)(GLACA)) - (4)))); // 2718 FORGET(-1) #line 2718 "regression-compile-tmp/nrimp10s-77.imp" FORGET((-1)); // 2719 PSF1(ST,1,N); ! STORE EVENT,SUBEVENT&LINE #line 2719 "regression-compile-tmp/nrimp10s-77.imp" PSF1(72, 1, N); // 2720 PSF1(MPSR,1,N+8) #line 2720 "regression-compile-tmp/nrimp10s-77.imp" PSF1(50, 1, (((int)(N)) + (8))); // 2721 ONINF(LEVEL)=N; N=N+12 #line 2721 "regression-compile-tmp/nrimp10s-77.imp" ONINF[LEVEL] = N; #line 2721 "regression-compile-tmp/nrimp10s-77.imp" N = (((int)(N)) + (12)); // 2722 %IF STACK=0 %THEN %START #line 2722 "regression-compile-tmp/nrimp10s-77.imp" if (((STACK) != (0))) goto L_023d; // 2723 PSF1(LSS,1,DISP+12); ! RESET AUX STACK TOP #line 2723 "regression-compile-tmp/nrimp10s-77.imp" PSF1(98, 1, (((int)(DISP)) + (12))); // 2724 PSF1(ST,2,DISP) #line 2724 "regression-compile-tmp/nrimp10s-77.imp" PSF1(72, 2, DISP); // 2725 %FINISH #line 2725 "regression-compile-tmp/nrimp10s-77.imp" L_023d:; // 2726 CSTART(0,3) #line 2726 "regression-compile-tmp/nrimp10s-77.imp" CSTART(0, 3); // 2727 NMDECS(LEVEL)=NMDECS(LEVEL)!!16_10;! NOT IN ONCOND #line 2727 "regression-compile-tmp/nrimp10s-77.imp" NMDECS[LEVEL] = ((NMDECS[LEVEL]) ^ (16)); // 2728 JJ=ENTER LAB(JJJ,B'111'); ! REPLACE ENVIRONMENT #line 2728 "regression-compile-tmp/nrimp10s-77.imp" JJ = ENTERLAB(JJJ, 7); // 2729 ->CSSEXIT #line 2729 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 2730 SW(16): #line 2730 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_16:; // 2731 FAULT(57,0) %UNLESS LEVEL>=2 #line 2731 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) >= (2))) goto L_023e; #line 2731 "regression-compile-tmp/nrimp10s-77.imp" FAULT(57, 0); #line 2731 "regression-compile-tmp/nrimp10s-77.imp" L_023e:; // 2732 %BEGIN; ! %SWITCH (SWITCH LIST) #line 2732 "regression-compile-tmp/nrimp10s-77.imp" void _BLOCK_9_LEVEL_4_(void) { // 2733 %INTEGER Q,RANGE,KKK,KK,LB,PP,D0,D1,OPHEAD,V,ARRP,R #line 2733 "regression-compile-tmp/nrimp10s-77.imp" int Q; #line 2733 "regression-compile-tmp/nrimp10s-77.imp" int RANGE; #line 2733 "regression-compile-tmp/nrimp10s-77.imp" int KKK; #line 2733 "regression-compile-tmp/nrimp10s-77.imp" int KK; #line 2733 "regression-compile-tmp/nrimp10s-77.imp" int LB; #line 2733 "regression-compile-tmp/nrimp10s-77.imp" int PP; #line 2733 "regression-compile-tmp/nrimp10s-77.imp" int D0; #line 2733 "regression-compile-tmp/nrimp10s-77.imp" int D1; #line 2733 "regression-compile-tmp/nrimp10s-77.imp" int OPHEAD; #line 2733 "regression-compile-tmp/nrimp10s-77.imp" int V; #line 2733 "regression-compile-tmp/nrimp10s-77.imp" int ARRP; #line 2733 "regression-compile-tmp/nrimp10s-77.imp" int R; // 2734 Q=P #line 2734 "regression-compile-tmp/nrimp10s-77.imp" Q = P; // 2735 ARRP=1 #line 2735 "regression-compile-tmp/nrimp10s-77.imp" ARRP = 1; // 2736 %IF PARMOPT=0 %THEN ARRP=2 #line 2736 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMOPT) != (0))) goto L_023f; #line 2736 "regression-compile-tmp/nrimp10s-77.imp" ARRP = 2; #line 2736 "regression-compile-tmp/nrimp10s-77.imp" L_023f:; // 2737 {%UNTIL A(Q)=2} %CYCLE; ! UNTIL NO'REST OF SW LIST' #line 2737 "regression-compile-tmp/nrimp10s-77.imp" L_0240:; // 2738 P=P+3 #line 2738 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); // 2739 P=P+3 %WHILE A(P)=1 #line 2739 "regression-compile-tmp/nrimp10s-77.imp" L_0243:; #line 2739 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (1))) goto L_0244; #line 2739 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); #line 2739 "regression-compile-tmp/nrimp10s-77.imp" goto L_0243; #line 2739 "regression-compile-tmp/nrimp10s-77.imp" L_0244:; // 2740 P=P+4; ! TO P(+') #line 2740 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (4)); // 2741 KKK=INTEXP(LB); ! EXTRACT LOWER BOUND #line 2741 "regression-compile-tmp/nrimp10s-77.imp" KKK = INTEXP(&LB); // 2742 P=P+3 #line 2742 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); // 2743 KKK=KKK!INTEXP(KK); ! EXTRACT UPPER BOUND #line 2743 "regression-compile-tmp/nrimp10s-77.imp" KKK = ((KKK) | (INTEXP(&KK))); // 2744 RANGE=(KK-LB+1) #line 2744 "regression-compile-tmp/nrimp10s-77.imp" RANGE = (((int)((((int)(KK)) - (LB)))) + (1)); // 2745 %IF RANGE<=0 %OR KKK#0 %START #line 2745 "regression-compile-tmp/nrimp10s-77.imp" if (((RANGE) <= (0))) goto L_0245; #line 2745 "regression-compile-tmp/nrimp10s-77.imp" if (((KKK) == (0))) goto L_0246; #line 2745 "regression-compile-tmp/nrimp10s-77.imp" L_0245:; // 2746 FAULT2(38,1-RANGE,FROMAR2(Q+1)) #line 2746 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(38, (((int)(1)) - (RANGE)), FROMAR2((((int)(Q)) + (1)))); // 2747 LB=0; KK=10; RANGE=11 #line 2747 "regression-compile-tmp/nrimp10s-77.imp" LB = 0; #line 2747 "regression-compile-tmp/nrimp10s-77.imp" KK = 10; #line 2747 "regression-compile-tmp/nrimp10s-77.imp" RANGE = 11; // 2748 %FINISH #line 2748 "regression-compile-tmp/nrimp10s-77.imp" L_0246:; // 2749 %IF GLACA+8-4*LB<0 %THEN ARRP=1;! ZEROETH ELEMENT OFF FRONT #line 2749 "regression-compile-tmp/nrimp10s-77.imp" if (((((((((int)(GLACA)) + (8)))) - ((((int)(4)) * (LB))))) >= (0))) goto L_0247; #line 2749 "regression-compile-tmp/nrimp10s-77.imp" ARRP = 1; #line 2749 "regression-compile-tmp/nrimp10s-77.imp" L_0247:; // 2750 PTYPE=16_56+ARRP<<8; ! WORD LABEL ARRAY #line 2750 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = ((86) + ((int)(((ARRP) << (8))))); // 2751 PP=P; P=Q+1 #line 2751 "regression-compile-tmp/nrimp10s-77.imp" PP = P; #line 2751 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(Q)) + (1)); // 2752 {%UNTIL A(P-1)=2} %CYCLE; ! DOWN NAMELIST #line 2752 "regression-compile-tmp/nrimp10s-77.imp" L_0248:; // 2753 K=FROM AR2(P) #line 2753 "regression-compile-tmp/nrimp10s-77.imp" K = FROMAR2(P); // 2754 P=P+3 #line 2754 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); // 2755 OPHEAD=0; R=LB #line 2755 "regression-compile-tmp/nrimp10s-77.imp" OPHEAD = 0; #line 2755 "regression-compile-tmp/nrimp10s-77.imp" R = LB; // 2756 ! // 2757 ! SET UP A BIT LIST (96 BITS PER CELL) TO CHECK FOR SWITCH LABELS // 2758 ! SET TWICE // 2759 ! // 2760 {%UNTIL R>KK} %CYCLE #line 2760 "regression-compile-tmp/nrimp10s-77.imp" L_024b:; // 2761 PUSH(OPHEAD,0,0,0) #line 2761 "regression-compile-tmp/nrimp10s-77.imp" PUSH(&OPHEAD, 0, 0, 0); // 2762 R=R+96 #line 2762 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)(R)) + (96)); // 2763 %REPEAT %UNTIL R>KK #line 2763 "regression-compile-tmp/nrimp10s-77.imp" if (((R) > (KK))) goto L_024c; #line 2763 "regression-compile-tmp/nrimp10s-77.imp" goto L_024b; #line 2763 "regression-compile-tmp/nrimp10s-77.imp" L_024c:; // 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 // 2769 D1=(GLACA+15)&(-8); ! FIRST TABLE ENTRY #line 2769 "regression-compile-tmp/nrimp10s-77.imp" D1 = (((((int)(GLACA)) + (15))) & ((-8))); // 2770 D0=16_28000000!RANGE; ! SCALED WORD DES #line 2770 "regression-compile-tmp/nrimp10s-77.imp" D0 = ((671088640) | (RANGE)); // 2771 %IF ARRP=2 %THEN %START #line 2771 "regression-compile-tmp/nrimp10s-77.imp" if (((ARRP) != (2))) goto L_024e; // 2772 D0=D0!16_01000000 %UNLESS LB=0;! SET BCI BIT #line 2772 "regression-compile-tmp/nrimp10s-77.imp" if (((LB) == (0))) goto L_024f; #line 2772 "regression-compile-tmp/nrimp10s-77.imp" D0 = ((D0) | (16777216)); #line 2772 "regression-compile-tmp/nrimp10s-77.imp" L_024f:; // 2773 D1=D1-4*LB #line 2773 "regression-compile-tmp/nrimp10s-77.imp" D1 = ((D1) - ((int)((((int)(4)) * (LB))))); // 2774 %FINISH #line 2774 "regression-compile-tmp/nrimp10s-77.imp" L_024e:; // 2775 PGLA(8,8,ADDR(D0)) #line 2775 "regression-compile-tmp/nrimp10s-77.imp" PGLA(8, 8, _imp_ADDR(&D0)); // 2776 SNDISP=GLACA>>2-2; ! WORD PLT DISP #line 2776 "regression-compile-tmp/nrimp10s-77.imp" SNDISP = (((int)((int)((((unsigned int)(GLACA)) >> (2))))) - (2)); // 2777 RELOCATE(GLACA-4,D1,2); ! RELOCATE RELATIVE TO GLA #line 2777 "regression-compile-tmp/nrimp10s-77.imp" RELOCATE((((int)(GLACA)) - (4)), D1, 2); // 2778 PUSH(OPHEAD,D1,LB,KK) #line 2778 "regression-compile-tmp/nrimp10s-77.imp" PUSH(&OPHEAD, D1, LB, KK); // 2779 KFORM=0; ACC=4 #line 2779 "regression-compile-tmp/nrimp10s-77.imp" KFORM = 0; #line 2779 "regression-compile-tmp/nrimp10s-77.imp" ACC = 4; // 2780 J=1; STORE TAG(K,OPHEAD) #line 2780 "regression-compile-tmp/nrimp10s-77.imp" J = 1; #line 2780 "regression-compile-tmp/nrimp10s-77.imp" STORETAG(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 ! // 2785 V=PLABS(6) #line 2785 "regression-compile-tmp/nrimp10s-77.imp" V = PLABS[6]; // 2786 %CYCLE KKK=LB,1,KK #line 2786 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = LB; _increment = 1; _final = KK; KKK = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KKK = LB, 1, KK"); KKK -= _increment; _control -= _increment; L_0250:; if (KKK == _final) goto L_0251; KKK += _increment; _control += _increment; if (KKK != _control) _imp_signal(4,2,0,"Corrupt control variable KKK"); /* FOR loop control variable corrupted */ } // 2787 RELOCATE(-1,V,1); ! PLABS(6) RELOCATED BY HD OF CODE #line 2787 "regression-compile-tmp/nrimp10s-77.imp" RELOCATE((-1), V, 1); // 2788 %REPEAT #line 2788 "regression-compile-tmp/nrimp10s-77.imp" goto L_0250; #line 2788 "regression-compile-tmp/nrimp10s-77.imp" L_0251:; // 2789 %REPEAT %UNTIL A(P-1)=2; ! FOR ANY MORE NAMES IN NAMELIST #line 2789 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) - (1))]) == (2))) goto L_0249; #line 2789 "regression-compile-tmp/nrimp10s-77.imp" goto L_0248; #line 2789 "regression-compile-tmp/nrimp10s-77.imp" L_0249:; // 2790 Q=PP; P=Q #line 2790 "regression-compile-tmp/nrimp10s-77.imp" Q = PP; #line 2790 "regression-compile-tmp/nrimp10s-77.imp" P = Q; // 2791 %REPEAT %UNTIL A(Q)=2; ! UNTIL A(Q)=2 #line 2791 "regression-compile-tmp/nrimp10s-77.imp" if (((A[Q]) == (2))) goto L_0241; #line 2791 "regression-compile-tmp/nrimp10s-77.imp" goto L_0240; #line 2791 "regression-compile-tmp/nrimp10s-77.imp" L_0241:; // 2792 %END;->CSSEXIT #line 2792 "regression-compile-tmp/nrimp10s-77.imp" return; } // End of block _BLOCK_9_LEVEL_4_ at level 5 _BLOCK_9_LEVEL_4_(); #line 2792 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 2793 ! // 2794 SW(17): LIST=1; ->CSSEXIT #line 2794 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_17:; #line 2794 "regression-compile-tmp/nrimp10s-77.imp" LIST = 1; #line 2794 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 2795 ! // 2796 SW(12): ! '%OWN' (TYPE)(OWNDEC) #line 2796 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_12:; // 2797 %BEGIN #line 2797 "regression-compile-tmp/nrimp10s-77.imp" void _BLOCK_10_LEVEL_4_(void) { // 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 !*********************************************************************** // 2808 %ROUTINESPEC CLEAR(%INTEGER L) #line 2808 "regression-compile-tmp/nrimp10s-77.imp" auto void CLEAR( int L ); // 2809 %ROUTINESPEC STAG(%INTEGER J,DATALEN) #line 2809 "regression-compile-tmp/nrimp10s-77.imp" auto void STAG( int J, int DATALEN ); // 2810 %ROUTINESPEC XTRACT CONST(%INTEGER CONTYPE,CONPREC) #line 2810 "regression-compile-tmp/nrimp10s-77.imp" auto void XTRACTCONST( int CONTYPE, int CONPREC ); // 2811 %ROUTINESPEC INIT SPACE(%INTEGER A,B) #line 2811 "regression-compile-tmp/nrimp10s-77.imp" auto void INITSPACE( int A, int B ); // 2812 %INTEGER LENGTH,BP,PP,SIGN,CBASE,MODE,UICONST,ICONST,TAGDISP,EPTYPE, {%C #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int LENGTH; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int BP; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int PP; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int SIGN; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int CBASE; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int MODE; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int UICONST; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int ICONST; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int TAGDISP; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int EPTYPE; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int EPDISP; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int AH1; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int AH2; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int AH3; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int AH4; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int AD; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int FNAM; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int FINF; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int SPOINT; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int CONSTSFOUND; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int CPREC; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int EXTRN; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int NNAMES; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int MARK; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int LPUTP; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int MARKER1; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int LB; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int CTYPE; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int CONSTP; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int FORMAT; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int PTSIZE; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int DIMEN; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int SACC; #line 2812 "regression-compile-tmp/nrimp10s-77.imp" int TYPEP; // 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 // 2816 %LONGREAL RCONST,LRCONST #line 2816 "regression-compile-tmp/nrimp10s-77.imp" double RCONST; #line 2816 "regression-compile-tmp/nrimp10s-77.imp" double LRCONST; // 2817 %OWNLONGREAL ZERO=0 #line 2817 "regression-compile-tmp/nrimp10s-77.imp" static double ZERO = 0; // 2818 %STRING(255) SCONST,NAMTXT #line 2818 "regression-compile-tmp/nrimp10s-77.imp" _imp_string /*%string(255)*/ SCONST; #line 2818 "regression-compile-tmp/nrimp10s-77.imp" _imp_string /*%string(255)*/ NAMTXT; // 2819 %INTEGERNAME STPTR #line 2819 "regression-compile-tmp/nrimp10s-77.imp" int /*name*/*STPTR; // 2820 LPUTP=5; STPTR==USTPTR; ! NORMAL CASE GLA SYMBOLTABLES #line 2820 "regression-compile-tmp/nrimp10s-77.imp" LPUTP = 5; #line 2820 "regression-compile-tmp/nrimp10s-77.imp" STPTR = &USTPTR; // 2821 ! FAULT(40,0) %IF NMDECS&1#0 // 2822 EXTRN=A(P+1) #line 2822 "regression-compile-tmp/nrimp10s-77.imp" EXTRN = A[(((int)(P)) + (1))]; // 2823 %IF EXTRN>=4 %THEN EXTRN=0; ! CONST & CONSTANT->0 #line 2823 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) < (4))) goto L_0253; #line 2823 "regression-compile-tmp/nrimp10s-77.imp" EXTRN = 0; #line 2823 "regression-compile-tmp/nrimp10s-77.imp" L_0253:; // 2824 LITL=EXTRN #line 2824 "regression-compile-tmp/nrimp10s-77.imp" LITL = EXTRN; // 2825 %IF LITL<=1 %THEN LITL=LITL!!1 #line 2825 "regression-compile-tmp/nrimp10s-77.imp" if (((LITL) > (1))) goto L_0254; #line 2825 "regression-compile-tmp/nrimp10s-77.imp" LITL = ((LITL) ^ (1)); #line 2825 "regression-compile-tmp/nrimp10s-77.imp" L_0254:; // 2826 KFORM=0; SNDISP=0 #line 2826 "regression-compile-tmp/nrimp10s-77.imp" KFORM = 0; #line 2826 "regression-compile-tmp/nrimp10s-77.imp" SNDISP = 0; // 2827 CONSTS FOUND=0 #line 2827 "regression-compile-tmp/nrimp10s-77.imp" CONSTSFOUND = 0; // 2828 %IF EXTRN=0 %THEN LPUTP=4 %AND STPTR==SSTL #line 2828 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) != (0))) goto L_0255; #line 2828 "regression-compile-tmp/nrimp10s-77.imp" LPUTP = 4; #line 2828 "regression-compile-tmp/nrimp10s-77.imp" STPTR = &SSTL; #line 2828 "regression-compile-tmp/nrimp10s-77.imp" L_0255:; // 2829 P=P+3; CBASE=0 #line 2829 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); #line 2829 "regression-compile-tmp/nrimp10s-77.imp" CBASE = 0; // 2830 MODE=A(P-1); ! MODE =1 FOR NORMAL OWNS #line 2830 "regression-compile-tmp/nrimp10s-77.imp" MODE = A[(((int)(P)) - (1))]; // 2831 ->RECORD %IF MODE>1; ! MODE =2 FOR OWN RECORDS #line 2831 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) <= (1))) goto L_0256; #line 2831 "regression-compile-tmp/nrimp10s-77.imp" goto U_101c; #line 2831 "regression-compile-tmp/nrimp10s-77.imp" L_0256:; // 2832 CLT; ! MODE =3 FOR OWN RECORD ARRAYS #line 2832 "regression-compile-tmp/nrimp10s-77.imp" CLT(); // 2833 %IF A(P)=1 %THEN CQN(P+1) %ELSE ARR=1 %AND NAM=0 #line 2833 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (1))) goto L_0257; #line 2833 "regression-compile-tmp/nrimp10s-77.imp" CQN((((int)(P)) + (1))); #line 2833 "regression-compile-tmp/nrimp10s-77.imp" goto L_0258; #line 2833 "regression-compile-tmp/nrimp10s-77.imp" L_0257:; #line 2833 "regression-compile-tmp/nrimp10s-77.imp" ARR = 1; #line 2833 "regression-compile-tmp/nrimp10s-77.imp" NAM = 0; #line 2833 "regression-compile-tmp/nrimp10s-77.imp" L_0258:; // 2834 %IF TYPE=5 %AND ACC=0=NAM %THEN FAULT(70,0) %AND ACC=2 #line 2834 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (5))) goto L_0259; #line 2834 "regression-compile-tmp/nrimp10s-77.imp" if ((((ACC) != (0))) || (((0) != (NAM)))) goto L_0259; #line 2834 "regression-compile-tmp/nrimp10s-77.imp" FAULT(70, 0); #line 2834 "regression-compile-tmp/nrimp10s-77.imp" ACC = 2; #line 2834 "regression-compile-tmp/nrimp10s-77.imp" L_0259:; // 2835 ROUT=0; PACK(PTYPE) #line 2835 "regression-compile-tmp/nrimp10s-77.imp" ROUT = 0; #line 2835 "regression-compile-tmp/nrimp10s-77.imp" PACK(&PTYPE); // 2836 -> NON SCALAR %IF ARR#0 %AND NAM=0 #line 2836 "regression-compile-tmp/nrimp10s-77.imp" if (((ARR) == (0))) goto L_025a; #line 2836 "regression-compile-tmp/nrimp10s-77.imp" if (((NAM) != (0))) goto L_025a; #line 2836 "regression-compile-tmp/nrimp10s-77.imp" goto U_101d; #line 2836 "regression-compile-tmp/nrimp10s-77.imp" L_025a:; // 2837 P=P+1 #line 2837 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 2838 {%UNTIL A(MARK)=2} %CYCLE; ! UNTIL NULL #line 2838 "regression-compile-tmp/nrimp10s-77.imp" L_025b:; // 2839 MARK= P+1+FROM AR2(P+1) #line 2839 "regression-compile-tmp/nrimp10s-77.imp" MARK = (((int)((((int)(P)) + (1)))) + (FROMAR2((((int)(P)) + (1))))); // 2840 NNAMES=1 #line 2840 "regression-compile-tmp/nrimp10s-77.imp" NNAMES = 1; // 2841 PP=P+3; P=PP+2; ! PP ON FIRST NAME' #line 2841 "regression-compile-tmp/nrimp10s-77.imp" PP = (((int)(P)) + (3)); #line 2841 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(PP)) + (2)); // 2842 %WHILE A(P)=1 %%CYCLE #line 2842 "regression-compile-tmp/nrimp10s-77.imp" L_025e:; #line 2842 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (1))) goto L_025f; // 2843 NNAMES=NNAMES+1 #line 2843 "regression-compile-tmp/nrimp10s-77.imp" NNAMES = (((int)(NNAMES)) + (1)); // 2844 P=P+3 #line 2844 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); // 2845 %REPEAT #line 2845 "regression-compile-tmp/nrimp10s-77.imp" goto L_025e; #line 2845 "regression-compile-tmp/nrimp10s-77.imp" L_025f:; // 2846 P=P+1; ! P ON CONST' #line 2846 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 2847 ! // 2848 ! OBTAIN THE INITIAL CONSTANT,ITS TYPE(CTYPE) AND SIGN(SIGN) // 2849 ! // 2850 ICONST=0; UICONST=0 #line 2850 "regression-compile-tmp/nrimp10s-77.imp" ICONST = 0; #line 2850 "regression-compile-tmp/nrimp10s-77.imp" UICONST = 0; // 2851 RCONST=0; LRCONST=0; SCONST="" #line 2851 "regression-compile-tmp/nrimp10s-77.imp" RCONST = 0; #line 2851 "regression-compile-tmp/nrimp10s-77.imp" LRCONST = 0; #line 2851 "regression-compile-tmp/nrimp10s-77.imp" SCONST = _imp_str_literal(""); // 2852 SIGN=3; CTYPE=TYPE; CONSTSFOUND=0; CPREC=PREC #line 2852 "regression-compile-tmp/nrimp10s-77.imp" SIGN = 3; #line 2852 "regression-compile-tmp/nrimp10s-77.imp" CTYPE = TYPE; #line 2852 "regression-compile-tmp/nrimp10s-77.imp" CONSTSFOUND = 0; #line 2852 "regression-compile-tmp/nrimp10s-77.imp" CPREC = PREC; // 2853 %IF NAM#0 %THEN CTYPE=1 %AND CPREC=5 #line 2853 "regression-compile-tmp/nrimp10s-77.imp" if (((NAM) == (0))) goto L_0261; #line 2853 "regression-compile-tmp/nrimp10s-77.imp" CTYPE = 1; #line 2853 "regression-compile-tmp/nrimp10s-77.imp" CPREC = 5; #line 2853 "regression-compile-tmp/nrimp10s-77.imp" L_0261:; // 2854 ! // 2855 %IF A(P)=1 %THEN %START; ! CONSTANT GIVEN #line 2855 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (1))) goto L_0262; // 2856 P=P+1 #line 2856 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 2857 XTRACT CONST(CTYPE,CPREC) #line 2857 "regression-compile-tmp/nrimp10s-77.imp" XTRACTCONST(CTYPE, CPREC); // 2858 %FINISH #line 2858 "regression-compile-tmp/nrimp10s-77.imp" L_0262:; // 2859 ! // 2860 {%UNTIL NNAMES=0} %CYCLE; ! DOWN #line 2860 "regression-compile-tmp/nrimp10s-77.imp" L_0263:; // 2861 J=0; K=FROM AR2(PP) #line 2861 "regression-compile-tmp/nrimp10s-77.imp" J = 0; #line 2861 "regression-compile-tmp/nrimp10s-77.imp" K = FROMAR2(PP); // 2862 NAMTXT=STRING(DICTBASE+WORD(K)) #line 2862 "regression-compile-tmp/nrimp10s-77.imp" NAMTXT = *_imp_STRING((((int)(DICTBASE)) + (WORD[K]))); // 2863 %IF NAM#0 %THEN %START; ! OWNNAMES AND ARRAYNAMES #line 2863 "regression-compile-tmp/nrimp10s-77.imp" if (((NAM) == (0))) goto L_0266; // 2864 %IF EXTRN=3 %THEN FAULT2(46,0,K);! NO EXTRINSIC NAMES #line 2864 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) != (3))) goto L_0267; #line 2864 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(46, 0, K); #line 2864 "regression-compile-tmp/nrimp10s-77.imp" L_0267:; // 2865 UICONST=16_FFFF!PREC<<27 #line 2865 "regression-compile-tmp/nrimp10s-77.imp" UICONST = ((65535) | (((PREC) << (27)))); // 2866 PGLA(8,ACC,ADDR(UICONST)) #line 2866 "regression-compile-tmp/nrimp10s-77.imp" PGLA(8, ACC, _imp_ADDR(&UICONST)); // 2867 TAGDISP=GLACA-ACC; EPDISP=TAGDISP #line 2867 "regression-compile-tmp/nrimp10s-77.imp" TAGDISP = (((int)(GLACA)) - (ACC)); #line 2867 "regression-compile-tmp/nrimp10s-77.imp" EPDISP = TAGDISP; // 2868 %FINISH %ELSE %START #line 2868 "regression-compile-tmp/nrimp10s-77.imp" goto L_0268; #line 2868 "regression-compile-tmp/nrimp10s-77.imp" L_0266:; // 2869 %IF TYPE=5 %THEN %START; ! STRING #line 2869 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (5))) goto L_0269; // 2870 QQ=STPTR; AD=ADDR(SCONST) #line 2870 "regression-compile-tmp/nrimp10s-77.imp" QQ = *STPTR; #line 2870 "regression-compile-tmp/nrimp10s-77.imp" AD = _imp_ADDR(&SCONST); // 2871 %IF EXTRN=3 %THEN %START; ! EXTRINSIC STRINGS #line 2871 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) != (3))) goto L_026a; // 2872 AH3=0; AH2=PREC<<27!ACC; ! DUMMY STRING HEADER #line 2872 "regression-compile-tmp/nrimp10s-77.imp" AH3 = 0; #line 2872 "regression-compile-tmp/nrimp10s-77.imp" AH2 = ((((PREC) << (27))) | (ACC)); // 2873 %FINISH %ELSE %START #line 2873 "regression-compile-tmp/nrimp10s-77.imp" goto L_026b; #line 2873 "regression-compile-tmp/nrimp10s-77.imp" L_026a:; // 2874 LPUT(LPUTP,ACC,QQ,AD) %IF INHCODE=0;! O/P STRING #line 2874 "regression-compile-tmp/nrimp10s-77.imp" if (((INHCODE) != (0))) goto L_026c; #line 2874 "regression-compile-tmp/nrimp10s-77.imp" lput(LPUTP, ACC, QQ, AD); #line 2874 "regression-compile-tmp/nrimp10s-77.imp" L_026c:; // 2875 STPTR=(STPTR+ACC+3)&(-4) #line 2875 "regression-compile-tmp/nrimp10s-77.imp" *STPTR = (((((int)(((*(int *)(STPTR)) + (ACC)))) + (3))) & ((-4))); // 2876 AH3=QQ; AH2=3<<27!ACC #line 2876 "regression-compile-tmp/nrimp10s-77.imp" AH3 = QQ; #line 2876 "regression-compile-tmp/nrimp10s-77.imp" AH2 = ((((3) << (27))) | (ACC)); // 2877 %FINISH #line 2877 "regression-compile-tmp/nrimp10s-77.imp" L_026b:; // 2878 PGLA(8,8,ADDR(AH2)) #line 2878 "regression-compile-tmp/nrimp10s-77.imp" PGLA(8, 8, _imp_ADDR(&AH2)); // 2879 TAGDISP=GLACA-8 #line 2879 "regression-compile-tmp/nrimp10s-77.imp" TAGDISP = (((int)(GLACA)) - (8)); // 2880 %IF EXTRN=3 %THEN GXREF(NAMTXT,2,2<<24!ACC,TAGDISP+4) %ELSE RELOCATE(TAGDISP+4,AH3,LPUTP) #line 2880 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) != (3))) goto L_026d; #line 2880 "regression-compile-tmp/nrimp10s-77.imp" GXREF(NAMTXT, 2, ((((2) << (24))) | (ACC)), (((int)(TAGDISP)) + (4))); #line 2880 "regression-compile-tmp/nrimp10s-77.imp" goto L_026e; #line 2880 "regression-compile-tmp/nrimp10s-77.imp" L_026d:; #line 2880 "regression-compile-tmp/nrimp10s-77.imp" RELOCATE((((int)(TAGDISP)) + (4)), AH3, LPUTP); #line 2880 "regression-compile-tmp/nrimp10s-77.imp" L_026e:; // 2881 EPTYPE=5; EPDISP=QQ; ! DATA IN GLA SYMBOL TABLES #line 2881 "regression-compile-tmp/nrimp10s-77.imp" EPTYPE = 5; #line 2881 "regression-compile-tmp/nrimp10s-77.imp" EPDISP = QQ; // 2882 %FINISH %ELSE %START; ! INTEGER & REAL #line 2882 "regression-compile-tmp/nrimp10s-77.imp" goto L_026f; #line 2882 "regression-compile-tmp/nrimp10s-77.imp" L_0269:; // 2883 %IF EXTRN=3 %THEN %START; ! EXTRINSICS #line 2883 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) != (3))) goto L_0270; // 2884 PTYPE=PTYPE!1<<10; ! EXTRINSICS VIA PTR #line 2884 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = ((PTYPE) | (((1) << (10)))); // 2885 AH2=PREC<<27; AH3=0 #line 2885 "regression-compile-tmp/nrimp10s-77.imp" AH2 = ((PREC) << (27)); #line 2885 "regression-compile-tmp/nrimp10s-77.imp" AH3 = 0; // 2886 PGLA(8,8,ADDR(AH2)) #line 2886 "regression-compile-tmp/nrimp10s-77.imp" PGLA(8, 8, _imp_ADDR(&AH2)); // 2887 TAGDISP=GLACA-8 #line 2887 "regression-compile-tmp/nrimp10s-77.imp" TAGDISP = (((int)(GLACA)) - (8)); // 2888 GXREF(NAMTXT,2,2<<24!ACC,TAGDISP+4) #line 2888 "regression-compile-tmp/nrimp10s-77.imp" GXREF(NAMTXT, 2, ((((2) << (24))) | (ACC)), (((int)(TAGDISP)) + (4))); // 2889 %FINISH %ELSE %START; ! OWN,EXTERNAL&CONST #line 2889 "regression-compile-tmp/nrimp10s-77.imp" goto L_0271; #line 2889 "regression-compile-tmp/nrimp10s-77.imp" L_0270:; // 2890 %IF TYPE=2 %THEN %START #line 2890 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (2))) goto L_0272; // 2891 AD=ADDR(RCONST) #line 2891 "regression-compile-tmp/nrimp10s-77.imp" AD = _imp_ADDR(&RCONST); // 2892 %FINISH %ELSE %START; ! INTEGER VARIABLES #line 2892 "regression-compile-tmp/nrimp10s-77.imp" goto L_0273; #line 2892 "regression-compile-tmp/nrimp10s-77.imp" L_0272:; // 2893 AD=ADDR(ICONST)+4-ACC #line 2893 "regression-compile-tmp/nrimp10s-77.imp" AD = (((int)((((int)(_imp_ADDR(&ICONST))) + (4)))) - (ACC)); // 2894 %FINISH #line 2894 "regression-compile-tmp/nrimp10s-77.imp" L_0273:; // 2895 %IF EXTRN#0 %THEN PGLA(ACC,ACC,AD); ! PUT CONSTANT INTO GLA #line 2895 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) == (0))) goto L_0274; #line 2895 "regression-compile-tmp/nrimp10s-77.imp" PGLA(ACC, ACC, AD); #line 2895 "regression-compile-tmp/nrimp10s-77.imp" L_0274:; // 2896 TAGDISP=GLACA-ACC; ! OFFSET OF VAR FOR TAGS #line 2896 "regression-compile-tmp/nrimp10s-77.imp" TAGDISP = (((int)(GLACA)) - (ACC)); // 2897 EPDISP=TAGDISP; ! AND FOR ENTRY DEFN #line 2897 "regression-compile-tmp/nrimp10s-77.imp" EPDISP = TAGDISP; // 2898 EPTYPE=2; ! DATA IN ADRESSABLE GLA #line 2898 "regression-compile-tmp/nrimp10s-77.imp" EPTYPE = 2; // 2899 %FINISH #line 2899 "regression-compile-tmp/nrimp10s-77.imp" L_0271:; // 2900 %FINISH #line 2900 "regression-compile-tmp/nrimp10s-77.imp" L_026f:; // 2901 %FINISH #line 2901 "regression-compile-tmp/nrimp10s-77.imp" L_0268:; // 2902 STAG(TAGDISP,ACC) #line 2902 "regression-compile-tmp/nrimp10s-77.imp" STAG(TAGDISP, ACC); // 2903 %IF EXTRN=0=NAM %START; ! CONST = LITERAL #line 2903 "regression-compile-tmp/nrimp10s-77.imp" if ((((EXTRN) != (0))) || (((0) != (NAM)))) goto L_0275; // 2904 REPLACE2(TAGS(K),INTEGER(AD&(-4)));! BYTES! #line 2904 "regression-compile-tmp/nrimp10s-77.imp" REPLACE2(TAGS[K], *_imp_INTEGER(((AD) & ((-4))))); // 2905 %IF PREC=6 %THEN REPLACE3(TAGS(K),INTEGER(AD+4)) #line 2905 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) != (6))) goto L_0276; #line 2905 "regression-compile-tmp/nrimp10s-77.imp" REPLACE3(TAGS[K], *_imp_INTEGER((((int)(AD)) + (4)))); #line 2905 "regression-compile-tmp/nrimp10s-77.imp" L_0276:; // 2906 %IF PREC=7 %THEN REPLACE3(TAGS(K),CONSTP) #line 2906 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) != (7))) goto L_0277; #line 2906 "regression-compile-tmp/nrimp10s-77.imp" REPLACE3(TAGS[K], CONSTP); #line 2906 "regression-compile-tmp/nrimp10s-77.imp" L_0277:; // 2907 %FINISH #line 2907 "regression-compile-tmp/nrimp10s-77.imp" L_0275:; // 2908 PP=PP+3 #line 2908 "regression-compile-tmp/nrimp10s-77.imp" PP = (((int)(PP)) + (3)); // 2909 NNAMES=NNAMES-1 #line 2909 "regression-compile-tmp/nrimp10s-77.imp" NNAMES = (((int)(NNAMES)) - (1)); // 2910 %REPEAT %UNTIL NNAMES=0; ! DOWN #line 2910 "regression-compile-tmp/nrimp10s-77.imp" if (((NNAMES) == (0))) goto L_0264; #line 2910 "regression-compile-tmp/nrimp10s-77.imp" goto L_0263; #line 2910 "regression-compile-tmp/nrimp10s-77.imp" L_0264:; // 2911 P=MARK #line 2911 "regression-compile-tmp/nrimp10s-77.imp" P = MARK; // 2912 %REPEAT %UNTIL A(MARK)=2; ! UNTIL NULL #line 2912 "regression-compile-tmp/nrimp10s-77.imp" if (((A[MARK]) == (2))) goto L_025c; #line 2912 "regression-compile-tmp/nrimp10s-77.imp" goto L_025b; #line 2912 "regression-compile-tmp/nrimp10s-77.imp" L_025c:; // 2913 ->BEND #line 2913 "regression-compile-tmp/nrimp10s-77.imp" goto U_101e; // 2914 RECORD: ! '%RECORD' #line 2914 "regression-compile-tmp/nrimp10s-77.imp" U_101c:; // 2915 !*********************************************************************** // 2916 !* NO INITIALISATION OF OWN RECORDS ALLOWED SO THEY ARE ALL * // 2917 !* CLEARED TO ZERO. * // 2918 !*********************************************************************** // 2919 MARKER1=P+1+FROM AR2(P+1); ! TO FORMAT NAME #line 2919 "regression-compile-tmp/nrimp10s-77.imp" MARKER1 = (((int)((((int)(P)) + (1)))) + (FROMAR2((((int)(P)) + (1))))); // 2920 FNAM=FROM AR2(MARKER1) #line 2920 "regression-compile-tmp/nrimp10s-77.imp" FNAM = FROMAR2(MARKER1); // 2921 COPYTAG(FNAM) #line 2921 "regression-compile-tmp/nrimp10s-77.imp" COPYTAG(FNAM); // 2922 FINF=TCELL #line 2922 "regression-compile-tmp/nrimp10s-77.imp" FINF = TCELL; // 2923 %IF PTYPE#4 %THEN FAULT(62,FNAM) %AND ->BEND #line 2923 "regression-compile-tmp/nrimp10s-77.imp" if (((PTYPE) == (4))) goto L_0278; #line 2923 "regression-compile-tmp/nrimp10s-77.imp" FAULT(62, FNAM); #line 2923 "regression-compile-tmp/nrimp10s-77.imp" goto U_101e; #line 2923 "regression-compile-tmp/nrimp10s-77.imp" L_0278:; // 2924 PTYPE=16_133!LITL<<14 #line 2924 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = ((307) | (((LITL) << (14)))); // 2925 KFORM=FINF; UNPACK #line 2925 "regression-compile-tmp/nrimp10s-77.imp" KFORM = FINF; #line 2925 "regression-compile-tmp/nrimp10s-77.imp" UNPACK(); // 2926 %IF MODE=3 %THEN FORMAT=2-A(P) %AND P=P+2 %AND ->RECIN #line 2926 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) != (3))) goto L_0279; #line 2926 "regression-compile-tmp/nrimp10s-77.imp" FORMAT = ((2) - ((int)(A[P]))); #line 2926 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); #line 2926 "regression-compile-tmp/nrimp10s-77.imp" goto U_101f; #line 2926 "regression-compile-tmp/nrimp10s-77.imp" L_0279:; // 2927 P=P+1; BP=ACC; ! SIZE OF RECORD FROM FORMAT #line 2927 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 2927 "regression-compile-tmp/nrimp10s-77.imp" BP = ACC; // 2928 PTYPE=16_33; J=0 #line 2928 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = 51; #line 2928 "regression-compile-tmp/nrimp10s-77.imp" J = 0; // 2929 %IF A(P-1)#3 %THEN CQN(P-1) %AND PACK(PTYPE) #line 2929 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) - (1))]) == (3))) goto L_027a; #line 2929 "regression-compile-tmp/nrimp10s-77.imp" CQN((((int)(P)) - (1))); #line 2929 "regression-compile-tmp/nrimp10s-77.imp" PACK(&PTYPE); #line 2929 "regression-compile-tmp/nrimp10s-77.imp" L_027a:; // 2930 P=P+1; PTSIZE=ACC; ! SIZE OF HOLE FOR POINTER #line 2930 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 2930 "regression-compile-tmp/nrimp10s-77.imp" PTSIZE = ACC; // 2931 {%UNTIL A(P)=2} %CYCLE #line 2931 "regression-compile-tmp/nrimp10s-77.imp" L_027b:; // 2932 P=P+1; K=FROM AR2(P) #line 2932 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 2932 "regression-compile-tmp/nrimp10s-77.imp" K = FROMAR2(P); // 2933 NAMTXT=STRING(DICTBASE+WORD(K)) #line 2933 "regression-compile-tmp/nrimp10s-77.imp" NAMTXT = *_imp_STRING((((int)(DICTBASE)) + (WORD[K]))); // 2934 %IF NAM#0 %THEN %START; ! OWNNAMES AND ARRAYNAMES #line 2934 "regression-compile-tmp/nrimp10s-77.imp" if (((NAM) == (0))) goto L_027e; // 2935 %IF EXTRN=3 %THEN FAULT2(46,0,K);! NO EXTRINSIC NAMES #line 2935 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) != (3))) goto L_027f; #line 2935 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(46, 0, K); #line 2935 "regression-compile-tmp/nrimp10s-77.imp" L_027f:; // 2936 UICONST=16_FFFF!PREC<<27 #line 2936 "regression-compile-tmp/nrimp10s-77.imp" UICONST = ((65535) | (((PREC) << (27)))); // 2937 PGLA(8,PTSIZE,ADDR(UICONST)) #line 2937 "regression-compile-tmp/nrimp10s-77.imp" PGLA(8, PTSIZE, _imp_ADDR(&UICONST)); // 2938 EPTYPE=2 #line 2938 "regression-compile-tmp/nrimp10s-77.imp" EPTYPE = 2; // 2939 TAGDISP=GLACA-PTSIZE; EPDISP=TAGDISP #line 2939 "regression-compile-tmp/nrimp10s-77.imp" TAGDISP = (((int)(GLACA)) - (PTSIZE)); #line 2939 "regression-compile-tmp/nrimp10s-77.imp" EPDISP = TAGDISP; // 2940 %FINISH %ELSE %START #line 2940 "regression-compile-tmp/nrimp10s-77.imp" goto L_0280; #line 2940 "regression-compile-tmp/nrimp10s-77.imp" L_027e:; // 2941 %IF EXTRN=3 %THEN %START; ! EXTRINISIC #line 2941 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) != (3))) goto L_0281; // 2942 PTYPE=PTYPE!16_400; ! FORCE NAM=1 (IE VIA POINTER) #line 2942 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = ((PTYPE) | (1024)); // 2943 AH2=16_18000000+BP #line 2943 "regression-compile-tmp/nrimp10s-77.imp" AH2 = (((int)(402653184)) + (BP)); // 2944 AH3=0 #line 2944 "regression-compile-tmp/nrimp10s-77.imp" AH3 = 0; // 2945 PGLA(8,8,ADDR(AH2)) #line 2945 "regression-compile-tmp/nrimp10s-77.imp" PGLA(8, 8, _imp_ADDR(&AH2)); // 2946 TAGDISP=GLACA-8 #line 2946 "regression-compile-tmp/nrimp10s-77.imp" TAGDISP = (((int)(GLACA)) - (8)); // 2947 GXREF(NAMTXT,2,2<<24!BP,TAGDISP+4); ! RELOCATE BY EXTERNAL #line 2947 "regression-compile-tmp/nrimp10s-77.imp" GXREF(NAMTXT, 2, ((((2) << (24))) | (BP)), (((int)(TAGDISP)) + (4))); // 2948 %FINISH %ELSE %START #line 2948 "regression-compile-tmp/nrimp10s-77.imp" goto L_0282; #line 2948 "regression-compile-tmp/nrimp10s-77.imp" L_0281:; // 2949 EPDISP=(GLACA+15)&(-8) #line 2949 "regression-compile-tmp/nrimp10s-77.imp" EPDISP = (((((int)(GLACA)) + (15))) & ((-8))); // 2950 AH3=EPDISP #line 2950 "regression-compile-tmp/nrimp10s-77.imp" AH3 = EPDISP; // 2951 AH2=16_18000000+BP; ! TOP WORD OFDESRCIPTOR #line 2951 "regression-compile-tmp/nrimp10s-77.imp" AH2 = (((int)(402653184)) + (BP)); // 2952 PGLA(8,4,ADDR(AH2)); ! ADDED 18MAR76 TO FIX BUG #line 2952 "regression-compile-tmp/nrimp10s-77.imp" PGLA(8, 4, _imp_ADDR(&AH2)); // 2953 RELOCATE(-1,AH3,2); ! PUT DISP INTO GLA #line 2953 "regression-compile-tmp/nrimp10s-77.imp" RELOCATE((-1), AH3, 2); // 2954 TAGDISP=EPDISP; ! AND RELOCATE REL APPROPIATE AREA #line 2954 "regression-compile-tmp/nrimp10s-77.imp" TAGDISP = EPDISP; // 2955 EPTYPE=2; ! DATA IN GLA TABLES #line 2955 "regression-compile-tmp/nrimp10s-77.imp" EPTYPE = 2; // 2956 I=0; ICONST=0 #line 2956 "regression-compile-tmp/nrimp10s-77.imp" I = 0; #line 2956 "regression-compile-tmp/nrimp10s-77.imp" ICONST = 0; // 2957 %WHILE I= (BP))) goto L_0284; // 2958 PGLA(4,4,ADDR(ICONST)) #line 2958 "regression-compile-tmp/nrimp10s-77.imp" PGLA(4, 4, _imp_ADDR(&ICONST)); // 2959 I=I+4 #line 2959 "regression-compile-tmp/nrimp10s-77.imp" I = (((int)(I)) + (4)); // 2960 %REPEAT #line 2960 "regression-compile-tmp/nrimp10s-77.imp" goto L_0283; #line 2960 "regression-compile-tmp/nrimp10s-77.imp" L_0284:; // 2961 %FINISH #line 2961 "regression-compile-tmp/nrimp10s-77.imp" L_0282:; // 2962 %FINISH #line 2962 "regression-compile-tmp/nrimp10s-77.imp" L_0280:; // 2963 ACC=BP; ! ACC TO SIZE OF RECORD #line 2963 "regression-compile-tmp/nrimp10s-77.imp" ACC = BP; // 2964 STAG(TAGDISP,BP) #line 2964 "regression-compile-tmp/nrimp10s-77.imp" STAG(TAGDISP, BP); // 2965 P=P+2 #line 2965 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 2966 %REPEAT %UNTIL A(P)=2 #line 2966 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) == (2))) goto L_027c; #line 2966 "regression-compile-tmp/nrimp10s-77.imp" goto L_027b; #line 2966 "regression-compile-tmp/nrimp10s-77.imp" L_027c:; // 2967 ->BEND #line 2967 "regression-compile-tmp/nrimp10s-77.imp" goto U_101e; // 2968 NONSCALAR: ! OWN AND OWNRECORD ARRAYS #line 2968 "regression-compile-tmp/nrimp10s-77.imp" U_101d:; // 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 !*********************************************************************** // 2974 P=P+1 #line 2974 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 2975 FORMAT=2-A(P) #line 2975 "regression-compile-tmp/nrimp10s-77.imp" FORMAT = ((2) - ((int)(A[P]))); // 2976 RECIN: PP=P+1; P=P+3; NNAMES=1 #line 2976 "regression-compile-tmp/nrimp10s-77.imp" U_101f:; #line 2976 "regression-compile-tmp/nrimp10s-77.imp" PP = (((int)(P)) + (1)); #line 2976 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); #line 2976 "regression-compile-tmp/nrimp10s-77.imp" NNAMES = 1; // 2977 K=FROM AR2(PP) #line 2977 "regression-compile-tmp/nrimp10s-77.imp" K = FROMAR2(PP); // 2978 NAMTXT=STRING(DICTBASE+WORD(K)) #line 2978 "regression-compile-tmp/nrimp10s-77.imp" NAMTXT = *_imp_STRING((((int)(DICTBASE)) + (WORD[K]))); // 2979 %IF TYPE>=3 %THEN BP=ACC %ELSE BP=BYTES(PREC) #line 2979 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) < (3))) goto L_0286; #line 2979 "regression-compile-tmp/nrimp10s-77.imp" BP = ACC; #line 2979 "regression-compile-tmp/nrimp10s-77.imp" goto L_0287; #line 2979 "regression-compile-tmp/nrimp10s-77.imp" L_0286:; #line 2979 "regression-compile-tmp/nrimp10s-77.imp" BP = BYTES[PREC]; #line 2979 "regression-compile-tmp/nrimp10s-77.imp" L_0287:; // 2980 SACC=ACC; TYPEP=PTYPE #line 2980 "regression-compile-tmp/nrimp10s-77.imp" SACC = ACC; #line 2980 "regression-compile-tmp/nrimp10s-77.imp" TYPEP = PTYPE; // 2981 AH4=12+DOPE VECTOR(TYPE,BP,0,K,QQ,LB) #line 2981 "regression-compile-tmp/nrimp10s-77.imp" AH4 = (((int)(12)) + (DOPEVECTOR(TYPE, BP, 0, K, &QQ, &LB))); // 2982 SNDISP=AH4-12; ! DV DISP (+TOP BIT FLAG) #line 2982 "regression-compile-tmp/nrimp10s-77.imp" SNDISP = (((int)(AH4)) - (12)); // 2983 %IF SNDISP=-1 %THEN SNDISP=0; ! BUM DOPE VECTOR #line 2983 "regression-compile-tmp/nrimp10s-77.imp" if (((SNDISP) != ((-1)))) goto L_0288; #line 2983 "regression-compile-tmp/nrimp10s-77.imp" SNDISP = 0; #line 2983 "regression-compile-tmp/nrimp10s-77.imp" L_0288:; // 2984 SNDISP=(SNDISP&16_3FFFF)>>2; ! AS WORD DISPLACEMENT #line 2984 "regression-compile-tmp/nrimp10s-77.imp" SNDISP = ((((((SNDISP) & (262143)))) >> (2))); // 2985 DIMEN=J; ! SAVE NO OF DIMENESIONS #line 2985 "regression-compile-tmp/nrimp10s-77.imp" DIMEN = J; // 2986 ACC=SACC; PTYPE=TYPEP; UNPACK #line 2986 "regression-compile-tmp/nrimp10s-77.imp" ACC = SACC; #line 2986 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = TYPEP; #line 2986 "regression-compile-tmp/nrimp10s-77.imp" UNPACK(); // 2987 %IF LB=0 %AND J=1 %AND TYPE<=3 %THEN ARR=2 %AND PACK (PTYPE) #line 2987 "regression-compile-tmp/nrimp10s-77.imp" if (((LB) != (0))) goto L_0289; #line 2987 "regression-compile-tmp/nrimp10s-77.imp" if (((J) != (1))) goto L_0289; #line 2987 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) > (3))) goto L_0289; #line 2987 "regression-compile-tmp/nrimp10s-77.imp" ARR = 2; #line 2987 "regression-compile-tmp/nrimp10s-77.imp" PACK(&PTYPE); #line 2987 "regression-compile-tmp/nrimp10s-77.imp" L_0289:; // 2988 LENGTH=QQ//BP; ! NO OF ELEMENTS #line 2988 "regression-compile-tmp/nrimp10s-77.imp" LENGTH = (long)((long)((int)(QQ)) / (long)((int)(_Z(BP)))); // 2989 SPOINT=STPTR #line 2989 "regression-compile-tmp/nrimp10s-77.imp" SPOINT = *STPTR; // 2990 %IF MODE#3 %AND FORMAT=0 %THEN %START; ! NOT A RECORD ARRAY #line 2990 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) == (3))) goto L_028a; #line 2990 "regression-compile-tmp/nrimp10s-77.imp" if (((FORMAT) != (0))) goto L_028a; // 2991 %IF A(P)=1 %THEN P=P+1 %AND INIT SPACE(QQ,LENGTH) #line 2991 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (1))) goto L_028b; #line 2991 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 2991 "regression-compile-tmp/nrimp10s-77.imp" INITSPACE(QQ, LENGTH); #line 2991 "regression-compile-tmp/nrimp10s-77.imp" L_028b:; // 2992 %FINISH #line 2992 "regression-compile-tmp/nrimp10s-77.imp" L_028a:; // 2993 %IF CONSTS FOUND=0 %THEN %START;! NO CONSTANTS GIVEN #line 2993 "regression-compile-tmp/nrimp10s-77.imp" if (((CONSTSFOUND) != (0))) goto L_028c; // 2994 ! SO CLEAR AN AREA TO ZERO // 2995 CONSTS FOUND=LENGTH #line 2995 "regression-compile-tmp/nrimp10s-77.imp" CONSTSFOUND = LENGTH; // 2996 CLEAR(QQ) %UNLESS LENGTH<1 %OR EXTRN=3 %OR FORMAT#0 #line 2996 "regression-compile-tmp/nrimp10s-77.imp" if (((LENGTH) < (1))) goto L_028d; #line 2996 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) == (3))) goto L_028d; #line 2996 "regression-compile-tmp/nrimp10s-77.imp" if (((FORMAT) != (0))) goto L_028d; #line 2996 "regression-compile-tmp/nrimp10s-77.imp" CLEAR(QQ); #line 2996 "regression-compile-tmp/nrimp10s-77.imp" L_028d:; // 2997 %FINISH %ELSE %START #line 2997 "regression-compile-tmp/nrimp10s-77.imp" goto L_028e; #line 2997 "regression-compile-tmp/nrimp10s-77.imp" L_028c:; // 2998 FAULT2(49,0,K) %IF EXTRN=3 %OR FORMAT#0 #line 2998 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) == (3))) goto L_0265; #line 2998 "regression-compile-tmp/nrimp10s-77.imp" if (((FORMAT) == (0))) goto L_028f; #line 2998 "regression-compile-tmp/nrimp10s-77.imp" L_0265:; #line 2998 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(49, 0, K); #line 2998 "regression-compile-tmp/nrimp10s-77.imp" L_028f:; // 2999 %FINISH #line 2999 "regression-compile-tmp/nrimp10s-77.imp" L_028e:; // 3000 %IF EXTRN=3 %THEN EPDISP=0 %ELSE EPDISP=SPOINT #line 3000 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) != (3))) goto L_0290; #line 3000 "regression-compile-tmp/nrimp10s-77.imp" EPDISP = 0; #line 3000 "regression-compile-tmp/nrimp10s-77.imp" goto L_0291; #line 3000 "regression-compile-tmp/nrimp10s-77.imp" L_0290:; #line 3000 "regression-compile-tmp/nrimp10s-77.imp" EPDISP = SPOINT; #line 3000 "regression-compile-tmp/nrimp10s-77.imp" L_0291:; // 3001 ! // 3002 ! OUTPUT AN ARRAYHEAD INTO THE GLA RELATIVE TO THE START OF THE SYMBOL- // 3003 ! TABLES IN WHICH THE ARRAY RESIDES. // 3004 ! // 3005 J=DIMEN; ! RESET DIMENSIONS AFTER INITTING #line 3005 "regression-compile-tmp/nrimp10s-77.imp" J = DIMEN; // 3006 %IF TYPE<=2 %THEN AH1=PREC<<27!LENGTH %ELSE AH1=3<<27!1<<25!QQ #line 3006 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) > (2))) goto L_0292; #line 3006 "regression-compile-tmp/nrimp10s-77.imp" AH1 = ((((PREC) << (27))) | (LENGTH)); #line 3006 "regression-compile-tmp/nrimp10s-77.imp" goto L_0293; #line 3006 "regression-compile-tmp/nrimp10s-77.imp" L_0292:; #line 3006 "regression-compile-tmp/nrimp10s-77.imp" AH1 = ((((((3) << (27))) | (((1) << (25))))) | (QQ)); #line 3006 "regression-compile-tmp/nrimp10s-77.imp" L_0293:; // 3007 AH1=AH1!(1-PARMARR)<<24; ! SET BCI IF BASE TO BE SHIFTED #line 3007 "regression-compile-tmp/nrimp10s-77.imp" AH1 = ((AH1) | ((((((int)(1)) - (PARMARR))) << (24)))); // 3008 %IF PREC=4 %THEN AH1=16_58000002 #line 3008 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) != (4))) goto L_0294; #line 3008 "regression-compile-tmp/nrimp10s-77.imp" AH1 = 1476395010; #line 3008 "regression-compile-tmp/nrimp10s-77.imp" L_0294:; // 3009 AH2=EPDISP #line 3009 "regression-compile-tmp/nrimp10s-77.imp" AH2 = EPDISP; // 3010 AH3=5<<27!3*J; ! DV DESPTR = WORD CHKD #line 3010 "regression-compile-tmp/nrimp10s-77.imp" AH3 = ((((5) << (27))) | ((((int)(3)) * (J)))); // 3011 %IF TYPE<=3 %AND PARMARR=0=FORMAT %AND PARMCHK=0 %AND J=1 %THEN AH2=AH2-BP*LB #line 3011 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) > (3))) goto L_0295; #line 3011 "regression-compile-tmp/nrimp10s-77.imp" if ((((PARMARR) != (0))) || (((0) != (FORMAT)))) goto L_0295; #line 3011 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMCHK) != (0))) goto L_0295; #line 3011 "regression-compile-tmp/nrimp10s-77.imp" if (((J) != (1))) goto L_0295; #line 3011 "regression-compile-tmp/nrimp10s-77.imp" AH2 = ((AH2) - ((int)((((int)(BP)) * (LB))))); #line 3011 "regression-compile-tmp/nrimp10s-77.imp" L_0295:; // 3012 PGLA(8,16,ADDR(AH1)) #line 3012 "regression-compile-tmp/nrimp10s-77.imp" PGLA(8, 16, _imp_ADDR(&AH1)); // 3013 TAGDISP=GLACA-16 #line 3013 "regression-compile-tmp/nrimp10s-77.imp" TAGDISP = (((int)(GLACA)) - (16)); // 3014 %IF EXTRN=3 %THEN %START; ! EXTRINSIC ARRAYS #line 3014 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) != (3))) goto L_0296; // 3015 GXREF(NAMTXT,2,2<<24!QQ,TAGDISP+4); ! RELOCATE ADDR(A(FIRST)) #line 3015 "regression-compile-tmp/nrimp10s-77.imp" GXREF(NAMTXT, 2, ((((2) << (24))) | (QQ)), (((int)(TAGDISP)) + (4))); // 3016 %FINISH %ELSE %START #line 3016 "regression-compile-tmp/nrimp10s-77.imp" goto L_0297; #line 3016 "regression-compile-tmp/nrimp10s-77.imp" L_0296:; // 3017 RELOCATE(TAGDISP+4,AH2,LPUTP);! RELOCATE ADDR(A(FIRST)) #line 3017 "regression-compile-tmp/nrimp10s-77.imp" RELOCATE((((int)(TAGDISP)) + (4)), AH2, LPUTP); // 3018 %FINISH #line 3018 "regression-compile-tmp/nrimp10s-77.imp" L_0297:; // 3019 RELOCATE(TAGDISP+12,AH4,1); ! RELOCATE DV POINTER #line 3019 "regression-compile-tmp/nrimp10s-77.imp" RELOCATE((((int)(TAGDISP)) + (12)), AH4, 1); // 3020 AH4=(AH4<<1>>3)!16_80000000 #line 3020 "regression-compile-tmp/nrimp10s-77.imp" AH4 = ((((((((AH4) << (1)))) >> (3)))) | ((-2147483648))); // 3021 NOTE CREF(AH4!(TAGDISP+12)>>2<<16,(AH4&16_FFFF)<<2) #line 3021 "regression-compile-tmp/nrimp10s-77.imp" NOTECREF(((AH4) | ((((((((((int)(TAGDISP)) + (12)))) >> (2)))) << (16)))), ((((AH4) & (65535))) << (2))); // 3022 EPTYPE=5; ! DATA IN GLA SYMBOL TABLES #line 3022 "regression-compile-tmp/nrimp10s-77.imp" EPTYPE = 5; // 3023 STAG(TAGDISP,QQ) #line 3023 "regression-compile-tmp/nrimp10s-77.imp" STAG(TAGDISP, QQ); // 3024 -> BEND #line 3024 "regression-compile-tmp/nrimp10s-77.imp" goto U_101e; // 3025 %ROUTINE INIT SPACE(%INTEGER SIZE,NELS) #line 3025 "regression-compile-tmp/nrimp10s-77.imp" void INITSPACE( int SIZE, int NELS ) #line 3025 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 3031 %INTEGER RF,I,K,ELSIZE,AD,SPP,LENGTH,SAVER,WSIZE,WRIT #line 3031 "regression-compile-tmp/nrimp10s-77.imp" int RF; #line 3031 "regression-compile-tmp/nrimp10s-77.imp" int I; #line 3031 "regression-compile-tmp/nrimp10s-77.imp" int K; #line 3031 "regression-compile-tmp/nrimp10s-77.imp" int ELSIZE; #line 3031 "regression-compile-tmp/nrimp10s-77.imp" int AD; #line 3031 "regression-compile-tmp/nrimp10s-77.imp" int SPP; #line 3031 "regression-compile-tmp/nrimp10s-77.imp" int LENGTH; #line 3031 "regression-compile-tmp/nrimp10s-77.imp" int SAVER; #line 3031 "regression-compile-tmp/nrimp10s-77.imp" int WSIZE; #line 3031 "regression-compile-tmp/nrimp10s-77.imp" int WRIT; // 3032 {%BYTEINTEGERARRAYNAME SP // 3033 // 3034 %IF SIZE>4096 %THEN WSIZE=4096 %ELSE WSIZE=SIZE #line 3034 "regression-compile-tmp/nrimp10s-77.imp" if (((SIZE) <= (4096))) goto L_0298; #line 3034 "regression-compile-tmp/nrimp10s-77.imp" WSIZE = 4096; #line 3034 "regression-compile-tmp/nrimp10s-77.imp" goto L_0299; #line 3034 "regression-compile-tmp/nrimp10s-77.imp" L_0298:; #line 3034 "regression-compile-tmp/nrimp10s-77.imp" WSIZE = SIZE; #line 3034 "regression-compile-tmp/nrimp10s-77.imp" L_0299:; // 3035 {%BYTEINTEGERARRAYFORMAT SPF(0:WSIZE+256) // 3036 SAVER=R; R=R+WSIZE+256 #line 3036 "regression-compile-tmp/nrimp10s-77.imp" SAVER = R; #line 3036 "regression-compile-tmp/nrimp10s-77.imp" R = (((int)((((int)(R)) + (WSIZE)))) + (256)); // 3037 %IF R>ARSIZE %THEN FAULT(102,0) #line 3037 "regression-compile-tmp/nrimp10s-77.imp" if (((R) <= (ARSIZE))) goto L_029a; #line 3037 "regression-compile-tmp/nrimp10s-77.imp" FAULT(102, 0); #line 3037 "regression-compile-tmp/nrimp10s-77.imp" L_029a:; // 3038 %byteintegerarray SP(0:WSIZE+256) #line 3038 "regression-compile-tmp/nrimp10s-77.imp" unsigned char SP[(((unsigned char)((((int)(WSIZE)) + (256)))) + (1))]; // 3039 {SP==ARRAY(ADDR(A(SAVER)),SPF) // 3040 %IF TYPE=1 %THEN AD=ADDR(ICONST)+4-ACC #line 3040 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (1))) goto L_029b; #line 3040 "regression-compile-tmp/nrimp10s-77.imp" AD = (((int)((((int)(_imp_ADDR(&ICONST))) + (4)))) - (ACC)); #line 3040 "regression-compile-tmp/nrimp10s-77.imp" L_029b:; // 3041 %IF TYPE=2 %THEN AD=ADDR(RCONST) #line 3041 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (2))) goto L_029c; #line 3041 "regression-compile-tmp/nrimp10s-77.imp" AD = _imp_ADDR(&RCONST); #line 3041 "regression-compile-tmp/nrimp10s-77.imp" L_029c:; // 3042 %IF TYPE=5 %THEN AD=ADDR(SCONST) #line 3042 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (5))) goto L_029d; #line 3042 "regression-compile-tmp/nrimp10s-77.imp" AD = _imp_ADDR(&SCONST); #line 3042 "regression-compile-tmp/nrimp10s-77.imp" L_029d:; // 3043 SPP=0; WRIT=0 #line 3043 "regression-compile-tmp/nrimp10s-77.imp" SPP = 0; #line 3043 "regression-compile-tmp/nrimp10s-77.imp" WRIT = 0; // 3044 ELSIZE=SIZE//NELS #line 3044 "regression-compile-tmp/nrimp10s-77.imp" ELSIZE = (long)((long)((int)(SIZE)) / (long)((int)(_Z(NELS)))); // 3045 {%UNTIL A(P-1)=2} %CYCLE #line 3045 "regression-compile-tmp/nrimp10s-77.imp" L_029e:; // 3046 XTRACT CONST(TYPE,PREC) #line 3046 "regression-compile-tmp/nrimp10s-77.imp" XTRACTCONST(TYPE, PREC); // 3047 %IF A(P)=1 %START; ! REPITITION FACTOR #line 3047 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (1))) goto L_02a1; // 3048 P=P+1 #line 3048 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 3049 %IF INTEXP(RF)#0 %THEN FAULT(44,CONSTS FOUND) %AND RF=1 #line 3049 "regression-compile-tmp/nrimp10s-77.imp" if (((INTEXP(&RF)) == (0))) goto L_02a2; #line 3049 "regression-compile-tmp/nrimp10s-77.imp" FAULT(44, CONSTSFOUND); #line 3049 "regression-compile-tmp/nrimp10s-77.imp" RF = 1; #line 3049 "regression-compile-tmp/nrimp10s-77.imp" L_02a2:; // 3050 P=P+1 #line 3050 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 3051 %FINISH %ELSE RF=1 %AND P=P+2 #line 3051 "regression-compile-tmp/nrimp10s-77.imp" goto L_02a3; #line 3051 "regression-compile-tmp/nrimp10s-77.imp" L_02a1:; #line 3051 "regression-compile-tmp/nrimp10s-77.imp" RF = 1; #line 3051 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); #line 3051 "regression-compile-tmp/nrimp10s-77.imp" L_02a3:; // 3052 FAULT(44,CONSTS FOUND) %IF RF<=0 #line 3052 "regression-compile-tmp/nrimp10s-77.imp" if (((RF) > (0))) goto L_02a4; #line 3052 "regression-compile-tmp/nrimp10s-77.imp" FAULT(44, CONSTSFOUND); #line 3052 "regression-compile-tmp/nrimp10s-77.imp" L_02a4:; // 3053 %CYCLE I=RF,-1,1 #line 3053 "regression-compile-tmp/nrimp10s-77.imp" I = ((RF) + ((int)(1))); if ((((1)-(RF)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle I = RF, (-1), 1"); L_02a5:; if (I == 1) goto L_02a6; I += (-1); // 3054 %CYCLE K=0,1,ELSIZE-1 #line 3054 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = (((int)(ELSIZE)) - (1)); K = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle K = 0, 1, (((int)(ELSIZE)) - (1))"); K -= _increment; _control -= _increment; L_02a8:; if (K == _final) goto L_02a9; K += _increment; _control += _increment; if (K != _control) _imp_signal(4,2,0,"Corrupt control variable K"); /* FOR loop control variable corrupted */ } // 3055 %IF CONSTS FOUND<=NELS %THEN SP(SPP)=BYTE INTEGER(AD+K) %AND SPP=SPP+1 #line 3055 "regression-compile-tmp/nrimp10s-77.imp" if (((CONSTSFOUND) > (NELS))) goto L_02ab; #line 3055 "regression-compile-tmp/nrimp10s-77.imp" SP[SPP] = *_imp_BYTEINTEGER((((int)(AD)) + (K))); #line 3055 "regression-compile-tmp/nrimp10s-77.imp" SPP = (((int)(SPP)) + (1)); #line 3055 "regression-compile-tmp/nrimp10s-77.imp" L_02ab:; // 3056 %REPEAT #line 3056 "regression-compile-tmp/nrimp10s-77.imp" goto L_02a8; #line 3056 "regression-compile-tmp/nrimp10s-77.imp" L_02a9:; // 3057 CONSTS FOUND=CONSTS FOUND+1 #line 3057 "regression-compile-tmp/nrimp10s-77.imp" CONSTSFOUND = (((int)(CONSTSFOUND)) + (1)); // 3058 %IF SPP>=4096 %START; ! EMPTY BUFFER #line 3058 "regression-compile-tmp/nrimp10s-77.imp" if (((SPP) < (4096))) goto L_02ac; // 3059 LPUT(LPUTP,SPP,STPTR+WRIT,ADDR(SP(0))) %IF INHCODE=0 #line 3059 "regression-compile-tmp/nrimp10s-77.imp" if (((INHCODE) != (0))) goto L_02ad; #line 3059 "regression-compile-tmp/nrimp10s-77.imp" lput(LPUTP, SPP, ((*(int *)(STPTR)) + (WRIT)), _imp_ADDR(&SP[0])); #line 3059 "regression-compile-tmp/nrimp10s-77.imp" L_02ad:; // 3060 WRIT=WRIT+SPP #line 3060 "regression-compile-tmp/nrimp10s-77.imp" WRIT = (((int)(WRIT)) + (SPP)); // 3061 SPP=0 #line 3061 "regression-compile-tmp/nrimp10s-77.imp" SPP = 0; // 3062 %FINISH #line 3062 "regression-compile-tmp/nrimp10s-77.imp" L_02ac:; // 3063 %REPEAT #line 3063 "regression-compile-tmp/nrimp10s-77.imp" goto L_02a5; #line 3063 "regression-compile-tmp/nrimp10s-77.imp" L_02a6:; // 3064 %REPEAT %UNTIL A(P-1)=2; ! UNTIL P=%NULL #line 3064 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) - (1))]) == (2))) goto L_029f; #line 3064 "regression-compile-tmp/nrimp10s-77.imp" goto L_029e; #line 3064 "regression-compile-tmp/nrimp10s-77.imp" L_029f:; // 3065 %IF CONSTS FOUND#NELS %THEN FAULT(45,CONSTS FOUND) #line 3065 "regression-compile-tmp/nrimp10s-77.imp" if (((CONSTSFOUND) == (NELS))) goto L_02ae; #line 3065 "regression-compile-tmp/nrimp10s-77.imp" FAULT(45, CONSTSFOUND); #line 3065 "regression-compile-tmp/nrimp10s-77.imp" L_02ae:; // 3066 STPTR=(STPTR+3)&(-4) #line 3066 "regression-compile-tmp/nrimp10s-77.imp" *STPTR = ((((*(int *)(STPTR)) + (3))) & ((-4))); // 3067 LENGTH=(SIZE+3)&(-4) #line 3067 "regression-compile-tmp/nrimp10s-77.imp" LENGTH = (((((int)(SIZE)) + (3))) & ((-4))); // 3068 LPUT(LPUTP,LENGTH-WRIT,STPTR+WRIT,ADDR(SP(0))) %IF INHCODE=0 #line 3068 "regression-compile-tmp/nrimp10s-77.imp" if (((INHCODE) != (0))) goto L_02af; #line 3068 "regression-compile-tmp/nrimp10s-77.imp" lput(LPUTP, (((int)(LENGTH)) - (WRIT)), ((*(int *)(STPTR)) + (WRIT)), _imp_ADDR(&SP[0])); #line 3068 "regression-compile-tmp/nrimp10s-77.imp" L_02af:; // 3069 STPTR=STPTR+LENGTH #line 3069 "regression-compile-tmp/nrimp10s-77.imp" *STPTR = ((*(int *)(STPTR)) + (LENGTH)); // 3070 R=SAVER #line 3070 "regression-compile-tmp/nrimp10s-77.imp" R = SAVER; // 3071 %END #line 3071 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block INITSPACE at level 6 // 3072 %ROUTINE CLEAR(%INTEGER LENGTH) #line 3072 "regression-compile-tmp/nrimp10s-77.imp" void CLEAR( int LENGTH ) #line 3072 "regression-compile-tmp/nrimp10s-77.imp" { // 3073 STPTR=(STPTR+3)&(-4) #line 3073 "regression-compile-tmp/nrimp10s-77.imp" *STPTR = ((((*(int *)(STPTR)) + (3))) & ((-4))); // 3074 LENGTH=(LENGTH+3)&(-4) #line 3074 "regression-compile-tmp/nrimp10s-77.imp" LENGTH = (((((int)(LENGTH)) + (3))) & ((-4))); // 3075 LPUT(LPUTP,LENGTH,STPTR,0)%IF INHCODE=0 #line 3075 "regression-compile-tmp/nrimp10s-77.imp" if (((INHCODE) != (0))) goto L_02b0; #line 3075 "regression-compile-tmp/nrimp10s-77.imp" lput(LPUTP, LENGTH, *STPTR, 0); #line 3075 "regression-compile-tmp/nrimp10s-77.imp" L_02b0:; // 3076 STPTR=STPTR+LENGTH #line 3076 "regression-compile-tmp/nrimp10s-77.imp" *STPTR = ((*(int *)(STPTR)) + (LENGTH)); // 3077 %END #line 3077 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CLEAR at level 6 // 3078 %ROUTINE STAG(%INTEGER J,DATALEN) #line 3078 "regression-compile-tmp/nrimp10s-77.imp" void STAG( int J, int DATALEN ) #line 3078 "regression-compile-tmp/nrimp10s-77.imp" { // 3079 %IF EXTRN=2 %THEN LPUT(14,EPTYPE<<24!DATALEN,EPDISP,ADDR(NAMTXT)) #line 3079 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) != (2))) goto L_02b1; #line 3079 "regression-compile-tmp/nrimp10s-77.imp" lput(14, ((((EPTYPE) << (24))) | (DATALEN)), EPDISP, _imp_ADDR(&NAMTXT)); #line 3079 "regression-compile-tmp/nrimp10s-77.imp" L_02b1:; // 3080 RBASE=CBASE #line 3080 "regression-compile-tmp/nrimp10s-77.imp" RBASE = CBASE; // 3081 STORE TAG(K,J) #line 3081 "regression-compile-tmp/nrimp10s-77.imp" STORETAG(K, J); // 3082 RBASE=RLEVEL #line 3082 "regression-compile-tmp/nrimp10s-77.imp" RBASE = RLEVEL; // 3083 %END #line 3083 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block STAG at level 6 // 3084 %ROUTINE XTRACT CONST(%INTEGER CONTYPE,CONPREC) #line 3084 "regression-compile-tmp/nrimp10s-77.imp" void XTRACTCONST( int CONTYPE, int CONPREC ) #line 3084 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 3090 %INTEGER LENGTH,STYPE,SPREC,SACC,CPREC,MODE,I #line 3090 "regression-compile-tmp/nrimp10s-77.imp" int LENGTH; #line 3090 "regression-compile-tmp/nrimp10s-77.imp" int STYPE; #line 3090 "regression-compile-tmp/nrimp10s-77.imp" int SPREC; #line 3090 "regression-compile-tmp/nrimp10s-77.imp" int SACC; #line 3090 "regression-compile-tmp/nrimp10s-77.imp" int CPREC; #line 3090 "regression-compile-tmp/nrimp10s-77.imp" int MODE; #line 3090 "regression-compile-tmp/nrimp10s-77.imp" int I; // 3091 STYPE=PTYPE; SACC=ACC;! MAY BE CHANGED IF CONST IS EXPR #line 3091 "regression-compile-tmp/nrimp10s-77.imp" STYPE = PTYPE; #line 3091 "regression-compile-tmp/nrimp10s-77.imp" SACC = ACC; // 3092 %IF CONTYPE=5 %THEN %START #line 3092 "regression-compile-tmp/nrimp10s-77.imp" if (((CONTYPE) != (5))) goto L_02b2; // 3093 CTYPE=5 #line 3093 "regression-compile-tmp/nrimp10s-77.imp" CTYPE = 5; // 3094 %IF A(P)=4 %AND A(P+1)=2 %AND A(P+2)=16_35 %AND A(P+A(P+7)+8)=2 %START #line 3094 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (4))) goto L_02b3; #line 3094 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (1))]) != (2))) goto L_02b3; #line 3094 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (2))]) != (53))) goto L_02b3; #line 3094 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(((P) + ((int)(A[(((int)(P)) + (7))]))))) + (8))]) != (2))) goto L_02b3; // 3095 SCONST=STRING(ADDR(A(P+7))) #line 3095 "regression-compile-tmp/nrimp10s-77.imp" SCONST = *_imp_STRING(_imp_ADDR(&A[(((int)(P)) + (7))])); // 3096 LENGTH=A(P+7) #line 3096 "regression-compile-tmp/nrimp10s-77.imp" LENGTH = A[(((int)(P)) + (7))]; // 3097 P=P+A(P+7)+9 #line 3097 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(((P) + ((int)(A[(((int)(P)) + (7))]))))) + (9)); // 3098 %FINISH %ELSE %START #line 3098 "regression-compile-tmp/nrimp10s-77.imp" goto L_02b4; #line 3098 "regression-compile-tmp/nrimp10s-77.imp" L_02b3:; // 3099 FAULT(44,CONSTS FOUND); SCONST="" #line 3099 "regression-compile-tmp/nrimp10s-77.imp" FAULT(44, CONSTSFOUND); #line 3099 "regression-compile-tmp/nrimp10s-77.imp" SCONST = _imp_str_literal(""); // 3100 LENGTH=0; P=P-3; SKIP EXP #line 3100 "regression-compile-tmp/nrimp10s-77.imp" LENGTH = 0; #line 3100 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) - (3)); #line 3100 "regression-compile-tmp/nrimp10s-77.imp" SKIPEXP(); // 3101 %FINISH #line 3101 "regression-compile-tmp/nrimp10s-77.imp" L_02b4:; // 3102 %FINISH %ELSE %START #line 3102 "regression-compile-tmp/nrimp10s-77.imp" goto L_02b5; #line 3102 "regression-compile-tmp/nrimp10s-77.imp" L_02b2:; // 3103 MODE=CONPREC<<4!CONTYPE #line 3103 "regression-compile-tmp/nrimp10s-77.imp" MODE = ((((CONPREC) << (4))) | (CONTYPE)); // 3104 %IF CONPREC<5 %THEN MODE=CONTYPE!16_50 #line 3104 "regression-compile-tmp/nrimp10s-77.imp" if (((CONPREC) >= (5))) goto L_02b6; #line 3104 "regression-compile-tmp/nrimp10s-77.imp" MODE = ((CONTYPE) | (80)); #line 3104 "regression-compile-tmp/nrimp10s-77.imp" L_02b6:; // 3105 CONSTP=CONSTEXP(MODE) #line 3105 "regression-compile-tmp/nrimp10s-77.imp" CONSTP = CONSTEXP(MODE); // 3106 %IF CONSTP=0 %THEN FAULT(41,0) %AND CONSTP=ADDR(ZERO);! CANT EVALUATE EXPT #line 3106 "regression-compile-tmp/nrimp10s-77.imp" if (((CONSTP) != (0))) goto L_02b7; #line 3106 "regression-compile-tmp/nrimp10s-77.imp" FAULT(41, 0); #line 3106 "regression-compile-tmp/nrimp10s-77.imp" CONSTP = _imp_ADDR(&ZERO); #line 3106 "regression-compile-tmp/nrimp10s-77.imp" L_02b7:; // 3107 CTYPE=TYPE; CPREC=PREC #line 3107 "regression-compile-tmp/nrimp10s-77.imp" CTYPE = TYPE; #line 3107 "regression-compile-tmp/nrimp10s-77.imp" CPREC = PREC; // 3108 %IF CTYPE=1 %THEN %START #line 3108 "regression-compile-tmp/nrimp10s-77.imp" if (((CTYPE) != (1))) goto L_02b8; // 3109 ICONST=INTEGER(CONSTP) #line 3109 "regression-compile-tmp/nrimp10s-77.imp" ICONST = *_imp_INTEGER(CONSTP); // 3110 %IF CONPREC=6 %THEN UICONST=ICONST %AND ICONST=INTEGER(CONSTP+4) #line 3110 "regression-compile-tmp/nrimp10s-77.imp" if (((CONPREC) != (6))) goto L_02b9; #line 3110 "regression-compile-tmp/nrimp10s-77.imp" UICONST = ICONST; #line 3110 "regression-compile-tmp/nrimp10s-77.imp" ICONST = *_imp_INTEGER((((int)(CONSTP)) + (4))); #line 3110 "regression-compile-tmp/nrimp10s-77.imp" L_02b9:; // 3111 %FINISH %ELSE %START #line 3111 "regression-compile-tmp/nrimp10s-77.imp" goto L_02ba; #line 3111 "regression-compile-tmp/nrimp10s-77.imp" L_02b8:; // 3112 RCONST=LONGREAL(CONSTP) #line 3112 "regression-compile-tmp/nrimp10s-77.imp" RCONST = *_imp_LONGREAL(CONSTP); // 3113 %IF CONPREC=7 %THEN %START;! LONGLONGS UNALIGNED IN AR #line 3113 "regression-compile-tmp/nrimp10s-77.imp" if (((CONPREC) != (7))) goto L_02bb; // 3114 %CYCLE I=0,1,15 #line 3114 "regression-compile-tmp/nrimp10s-77.imp" I = (-1); if ((((15)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 15"); L_02bc:; if (I == 15) goto L_02bd; I += 1; // 3115 BYTEINTEGER(ADDR(RCONST)+I)=BYTEINTEGER(CONSTP+I) #line 3115 "regression-compile-tmp/nrimp10s-77.imp" *_imp_BYTEINTEGER((((int)(_imp_ADDR(&RCONST))) + (I))) = *_imp_BYTEINTEGER((((int)(CONSTP)) + (I))); // 3116 %REPEAT #line 3116 "regression-compile-tmp/nrimp10s-77.imp" goto L_02bc; #line 3116 "regression-compile-tmp/nrimp10s-77.imp" L_02bd:; // 3117 %FINISH #line 3117 "regression-compile-tmp/nrimp10s-77.imp" L_02bb:; // 3118 %FINISH #line 3118 "regression-compile-tmp/nrimp10s-77.imp" L_02ba:; // 3119 %FINISH #line 3119 "regression-compile-tmp/nrimp10s-77.imp" L_02b5:; // 3120 PTYPE=STYPE; UNPACK; ACC=SACC #line 3120 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = STYPE; #line 3120 "regression-compile-tmp/nrimp10s-77.imp" UNPACK(); #line 3120 "regression-compile-tmp/nrimp10s-77.imp" ACC = SACC; // 3121 ! // 3122 ! FAULT ANY OBVIOUS ERRORS IE:- // 3123 ! CONSTANT FOR EXTRINSIC OR INCOMPATIBLE TYPE OR STRING TOO LONG // 3124 ! // 3125 %IF EXTRN=3 %OR (CTYPE=5 %AND LENGTH>=ACC) %OR (CONTYPE=1 %AND ((CONPREC=3 %AND ICONST>255) %OR (CONPREC=4 %AND ICONST>16_FFFF))) %THEN FAULT(44,CONSTS FOUND) #line 3125 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) == (3))) goto L_02a0; #line 3125 "regression-compile-tmp/nrimp10s-77.imp" if (((CTYPE) != (5))) goto L_02bf; #line 3125 "regression-compile-tmp/nrimp10s-77.imp" if (((LENGTH) >= (ACC))) goto L_02a0; #line 3125 "regression-compile-tmp/nrimp10s-77.imp" L_02bf:; #line 3125 "regression-compile-tmp/nrimp10s-77.imp" if (((CONTYPE) != (1))) goto L_02c0; #line 3125 "regression-compile-tmp/nrimp10s-77.imp" if (((CONPREC) != (3))) goto L_02c1; #line 3125 "regression-compile-tmp/nrimp10s-77.imp" if (((ICONST) > (255))) goto L_02a0; #line 3125 "regression-compile-tmp/nrimp10s-77.imp" L_02c1:; #line 3125 "regression-compile-tmp/nrimp10s-77.imp" if (((CONPREC) != (4))) goto L_02c0; #line 3125 "regression-compile-tmp/nrimp10s-77.imp" if (((ICONST) <= (65535))) goto L_02c0; #line 3125 "regression-compile-tmp/nrimp10s-77.imp" L_02a0:; #line 3125 "regression-compile-tmp/nrimp10s-77.imp" FAULT(44, CONSTSFOUND); #line 3125 "regression-compile-tmp/nrimp10s-77.imp" L_02c0:; // 3126 %END #line 3126 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block XTRACTCONST at level 6 // 3127 BEND: %END; ->CSSEXIT #line 3127 "regression-compile-tmp/nrimp10s-77.imp" U_101e:; #line 3127 "regression-compile-tmp/nrimp10s-77.imp" return; } // End of block _BLOCK_10_LEVEL_4_ at level 5 _BLOCK_10_LEVEL_4_(); #line 3127 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 3128 SW(18): #line 3128 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_18:; // 3129 ABORT #line 3129 "regression-compile-tmp/nrimp10s-77.imp" ABORT(); // 3130 SW(10): #line 3130 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_10:; // 3131 %BEGIN; ! %RECORD (RDECLN) #line 3131 "regression-compile-tmp/nrimp10s-77.imp" void _BLOCK_11_LEVEL_4_(void) { // 3132 !*********************************************************************** // 3133 !* RECORDS ARE ALLOCATED AT COMPILE TIME WHEN POSSIBLE * // 3134 !* SEE CRFORMAT FOR ACTION ON RECORD FORMAT DECLARATIONS * // 3135 !*********************************************************************** // 3136 %INTEGER MODE,RECL,ALLOC,FNAM,FINF,NAME,OPHEAD #line 3136 "regression-compile-tmp/nrimp10s-77.imp" int MODE; #line 3136 "regression-compile-tmp/nrimp10s-77.imp" int RECL; #line 3136 "regression-compile-tmp/nrimp10s-77.imp" int ALLOC; #line 3136 "regression-compile-tmp/nrimp10s-77.imp" int FNAM; #line 3136 "regression-compile-tmp/nrimp10s-77.imp" int FINF; #line 3136 "regression-compile-tmp/nrimp10s-77.imp" int NAME; #line 3136 "regression-compile-tmp/nrimp10s-77.imp" int OPHEAD; // 3137 P=P+1; MODE=A(P); SNDISP=0 #line 3137 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 3137 "regression-compile-tmp/nrimp10s-77.imp" MODE = A[P]; #line 3137 "regression-compile-tmp/nrimp10s-77.imp" SNDISP = 0; // 3138 %IF MODE=1 %THEN %START; ! DEAL WITH FORMAT #line 3138 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) != (1))) goto L_02c2; // 3139 NAME=FROM AR2(P+1); P=P+3 #line 3139 "regression-compile-tmp/nrimp10s-77.imp" NAME = FROMAR2((((int)(P)) + (1))); #line 3139 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); // 3140 CRFORMAT(OPHEAD); K=NAME #line 3140 "regression-compile-tmp/nrimp10s-77.imp" CRFORMAT(&OPHEAD); #line 3140 "regression-compile-tmp/nrimp10s-77.imp" K = NAME; // 3141 PTYPE=4; J=0 #line 3141 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = 4; #line 3141 "regression-compile-tmp/nrimp10s-77.imp" J = 0; // 3142 KFORM=OPHEAD #line 3142 "regression-compile-tmp/nrimp10s-77.imp" KFORM = OPHEAD; // 3143 STORE TAG(K,OPHEAD) #line 3143 "regression-compile-tmp/nrimp10s-77.imp" STORETAG(K, OPHEAD); // 3144 ->BEND #line 3144 "regression-compile-tmp/nrimp10s-77.imp" goto U_1020; // 3145 %FINISH #line 3145 "regression-compile-tmp/nrimp10s-77.imp" L_02c2:; // 3146 P=P+1; MARKER=P+FROM AR2(P) #line 3146 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 3146 "regression-compile-tmp/nrimp10s-77.imp" MARKER = (((int)(P)) + (FROMAR2(P))); // 3147 FNAM=FROM AR2(MARKER); ! FORMAT NAME #line 3147 "regression-compile-tmp/nrimp10s-77.imp" FNAM = FROMAR2(MARKER); // 3148 COPY TAG(FNAM) #line 3148 "regression-compile-tmp/nrimp10s-77.imp" COPYTAG(FNAM); // 3149 FINF=TCELL #line 3149 "regression-compile-tmp/nrimp10s-77.imp" FINF = TCELL; // 3150 %IF TYPE#4 %THEN %START #line 3150 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) == (4))) goto L_02c3; // 3151 FINF=DUMMY FORMAT #line 3151 "regression-compile-tmp/nrimp10s-77.imp" FINF = DUMMYFORMAT; // 3152 ACC=4; FAULT(62,FNAM) #line 3152 "regression-compile-tmp/nrimp10s-77.imp" ACC = 4; #line 3152 "regression-compile-tmp/nrimp10s-77.imp" FAULT(62, FNAM); // 3153 %FINISH #line 3153 "regression-compile-tmp/nrimp10s-77.imp" L_02c3:; // 3154 RECL=ACC #line 3154 "regression-compile-tmp/nrimp10s-77.imp" RECL = ACC; // 3155 %IF MODE=2%THEN %START; ! '%RECORDSPEC' #line 3155 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) != (2))) goto L_02c4; // 3156 COPY TAG(FROM AR2(P+2)) #line 3156 "regression-compile-tmp/nrimp10s-77.imp" COPYTAG(FROMAR2((((int)(P)) + (2)))); // 3157 %IF A(P+4)=1 %AND TYPE=4 %START;! SPEC FOR FORMAT ELEMENT #line 3157 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (4))]) != (1))) goto L_02c5; #line 3157 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (4))) goto L_02c5; // 3158 P=P+5 #line 3158 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (5)); // 3159 Q=DISPLACEMENT(TCELL) #line 3159 "regression-compile-tmp/nrimp10s-77.imp" Q = DISPLACEMENT(TCELL); // 3160 UNPACK #line 3160 "regression-compile-tmp/nrimp10s-77.imp" UNPACK(); // 3161 %FINISH #line 3161 "regression-compile-tmp/nrimp10s-77.imp" L_02c5:; // 3162 %IF TYPE=3 %AND NAM=1 %AND FROM3(TCELL)&16_FFFF=0 %START #line 3162 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (3))) goto L_02c6; #line 3162 "regression-compile-tmp/nrimp10s-77.imp" if (((NAM) != (1))) goto L_02c6; #line 3162 "regression-compile-tmp/nrimp10s-77.imp" if (((((FROM3(TCELL)) & (65535))) != (0))) goto L_02c6; // 3163 REPLACE3(TCELL,FINF!K<<16) #line 3163 "regression-compile-tmp/nrimp10s-77.imp" REPLACE3(TCELL, ((FINF) | (((K) << (16))))); // 3164 REPLACE2(TCELL,SNDISP<<16!RECL) #line 3164 "regression-compile-tmp/nrimp10s-77.imp" REPLACE2(TCELL, ((((SNDISP) << (16))) | (RECL))); // 3165 %FINISH %ELSE FAULT(63,0) #line 3165 "regression-compile-tmp/nrimp10s-77.imp" goto L_02c7; #line 3165 "regression-compile-tmp/nrimp10s-77.imp" L_02c6:; #line 3165 "regression-compile-tmp/nrimp10s-77.imp" FAULT(63, 0); #line 3165 "regression-compile-tmp/nrimp10s-77.imp" L_02c7:; // 3166 %FINISH %ELSE %START; ! RECORD DECLARATION #line 3166 "regression-compile-tmp/nrimp10s-77.imp" goto L_02c8; #line 3166 "regression-compile-tmp/nrimp10s-77.imp" L_02c4:; // 3167 FAULT(57,0) %UNLESS LEVEL>=2 #line 3167 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) >= (2))) goto L_02c9; #line 3167 "regression-compile-tmp/nrimp10s-77.imp" FAULT(57, 0); #line 3167 "regression-compile-tmp/nrimp10s-77.imp" L_02c9:; // 3168 FAULT(40,0) %IF NMDECS(LEVEL)&1#0 #line 3168 "regression-compile-tmp/nrimp10s-77.imp" if (((((NMDECS[LEVEL]) & (1))) == (0))) goto L_02ca; #line 3168 "regression-compile-tmp/nrimp10s-77.imp" FAULT(40, 0); #line 3168 "regression-compile-tmp/nrimp10s-77.imp" L_02ca:; // 3169 TYPE=3; PREC=3; ROUT=0 #line 3169 "regression-compile-tmp/nrimp10s-77.imp" TYPE = 3; #line 3169 "regression-compile-tmp/nrimp10s-77.imp" PREC = 3; #line 3169 "regression-compile-tmp/nrimp10s-77.imp" ROUT = 0; // 3170 %IF A(P+2)=1 %THEN %START; ! SIMPLE RECORD AND RECORDNAMES #line 3170 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (2))]) != (1))) goto L_02cb; // 3171 ALLOC=ACC; CQN(P+3) #line 3171 "regression-compile-tmp/nrimp10s-77.imp" ALLOC = ACC; #line 3171 "regression-compile-tmp/nrimp10s-77.imp" CQN((((int)(P)) + (3))); // 3172 ACC=ALLOC; P=P+4 #line 3172 "regression-compile-tmp/nrimp10s-77.imp" ACC = ALLOC; #line 3172 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (4)); // 3173 DECLARE SCALARS(1,FINF) #line 3173 "regression-compile-tmp/nrimp10s-77.imp" DECLARESCALARS(1, FINF); // 3174 %FINISH %ELSE %START; ! ARRAYS OF RECORDS #line 3174 "regression-compile-tmp/nrimp10s-77.imp" goto L_02cc; #line 3174 "regression-compile-tmp/nrimp10s-77.imp" L_02cb:; // 3175 NAM=0 #line 3175 "regression-compile-tmp/nrimp10s-77.imp" NAM = 0; // 3176 Q=2-A(P+3); P=P+4; ! Q=1 FOR ARRAY FORMAT #line 3176 "regression-compile-tmp/nrimp10s-77.imp" Q = ((2) - ((int)(A[(((int)(P)) + (3))]))); #line 3176 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (4)); // 3177 SET LINE #line 3177 "regression-compile-tmp/nrimp10s-77.imp" SETLINE(); // 3178 DECLARE ARRAYS(Q,FINF) #line 3178 "regression-compile-tmp/nrimp10s-77.imp" DECLAREARRAYS(Q, FINF); // 3179 %FINISH #line 3179 "regression-compile-tmp/nrimp10s-77.imp" L_02cc:; // 3180 %FINISH #line 3180 "regression-compile-tmp/nrimp10s-77.imp" L_02c8:; // 3181 BEND: %END;->CSSEXIT #line 3181 "regression-compile-tmp/nrimp10s-77.imp" U_1020:; #line 3181 "regression-compile-tmp/nrimp10s-77.imp" return; } // End of block _BLOCK_11_LEVEL_4_ at level 5 _BLOCK_11_LEVEL_4_(); #line 3181 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 3182 ! // 3183 SW(19): #line 3183 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_19:; // 3184 ! '*' (UCI) (S) // 3185 FAULT(57,0) %UNLESS LEVEL>=2 #line 3185 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) >= (2))) goto L_02cd; #line 3185 "regression-compile-tmp/nrimp10s-77.imp" FAULT(57, 0); #line 3185 "regression-compile-tmp/nrimp10s-77.imp" L_02cd:; // 3186 %BEGIN #line 3186 "regression-compile-tmp/nrimp10s-77.imp" void _BLOCK_12_LEVEL_4_(void) { // 3187 %ROUTINESPEC CIND #line 3187 "regression-compile-tmp/nrimp10s-77.imp" auto void CIND( void ); // 3188 %INTEGER FNAME,ALT,OPCODE,FORM,H,Q,MASK,FILLER #line 3188 "regression-compile-tmp/nrimp10s-77.imp" int FNAME; #line 3188 "regression-compile-tmp/nrimp10s-77.imp" int ALT; #line 3188 "regression-compile-tmp/nrimp10s-77.imp" int OPCODE; #line 3188 "regression-compile-tmp/nrimp10s-77.imp" int FORM; #line 3188 "regression-compile-tmp/nrimp10s-77.imp" int H; #line 3188 "regression-compile-tmp/nrimp10s-77.imp" int Q; #line 3188 "regression-compile-tmp/nrimp10s-77.imp" int MASK; #line 3188 "regression-compile-tmp/nrimp10s-77.imp" int FILLER; // 3189 %SWITCH SW(1:5),F(1:3),POP(1:6),TOP(1:4) #line 3189 "regression-compile-tmp/nrimp10s-77.imp" static int sw4_SW_idx; static const void * /*SWITCH*/ sw4_SW[5] = { &&sw4_SW_1, &&sw4_SW_2, &&sw4_SW_3, &&sw4_SW_4, &&sw4_SW_5, }; #line 3189 "regression-compile-tmp/nrimp10s-77.imp" static int sw5_F_idx; static const void * /*SWITCH*/ sw5_F[3] = { &&sw5_F_1, &&sw5_F_2, &&sw5_F_3, }; #line 3189 "regression-compile-tmp/nrimp10s-77.imp" static int sw6_POP_idx; static const void * /*SWITCH*/ sw6_POP[6] = { &&sw6_POP_1, &&sw6_POP_2, &&sw6_POP_3, &&sw6_POP_4, &&sw6_POP_5, &&sw6_POP_6, }; #line 3189 "regression-compile-tmp/nrimp10s-77.imp" static int sw7_TOP_idx; static const void * /*SWITCH*/ sw7_TOP[4] = { &&sw7_TOP_1, &&sw7_TOP_2, &&sw7_TOP_3, &&sw7_TOP_4, }; // 3190 ALT=A(P+1); P=P+2 #line 3190 "regression-compile-tmp/nrimp10s-77.imp" ALT = A[(((int)(P)) + (1))]; #line 3190 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 3191 OPCODE=CALL #line 3191 "regression-compile-tmp/nrimp10s-77.imp" OPCODE = 30; // 3192 ->SW(ALT) #line 3192 "regression-compile-tmp/nrimp10s-77.imp" sw4_SW_idx = ALT; if ((1 <= sw4_SW_idx) && (sw4_SW_idx <= 5)) goto *(sw4_SW-1)[sw4_SW_idx]; /* Bounds=1:5 */ else { /*_imp_signal(8, 2, sw4_SW_idx);*/ fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:5 at %s:%d\n", sw4_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 3193 SW(1):SW(2): #line 3193 "regression-compile-tmp/nrimp10s-77.imp" sw4_SW_1:; #line 3193 "regression-compile-tmp/nrimp10s-77.imp" sw4_SW_2:; // 3194 FNAME=FROM AR2(P) #line 3194 "regression-compile-tmp/nrimp10s-77.imp" FNAME = FROMAR2(P); // 3195 COPY TAG(FNAME) #line 3195 "regression-compile-tmp/nrimp10s-77.imp" COPYTAG(FNAME); // 3196 FAULT(33,FNAME) %UNLESS ROUT=NAM=0 %AND ARR=0 %AND PREC>4 %AND I=RBASE %AND TYPE#7 #line 3196 "regression-compile-tmp/nrimp10s-77.imp" if ((((ROUT) != (NAM))) || (((NAM) != (0)))) goto L_02ce; #line 3196 "regression-compile-tmp/nrimp10s-77.imp" if (((ARR) != (0))) goto L_02ce; #line 3196 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) <= (4))) goto L_02ce; #line 3196 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (RBASE))) goto L_02ce; #line 3196 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (7))) goto L_02cf; #line 3196 "regression-compile-tmp/nrimp10s-77.imp" L_02ce:; #line 3196 "regression-compile-tmp/nrimp10s-77.imp" FAULT(33, FNAME); #line 3196 "regression-compile-tmp/nrimp10s-77.imp" L_02cf:; // 3197 %IF ALT=1 %THEN PSF1(ST,1,K) %ELSE GET IN ACC(ACCR,BYTES(PREC)>>2,0,LNB,K) #line 3197 "regression-compile-tmp/nrimp10s-77.imp" if (((ALT) != (1))) goto L_02d0; #line 3197 "regression-compile-tmp/nrimp10s-77.imp" PSF1(72, 1, K); #line 3197 "regression-compile-tmp/nrimp10s-77.imp" goto L_02d1; #line 3197 "regression-compile-tmp/nrimp10s-77.imp" L_02d0:; #line 3197 "regression-compile-tmp/nrimp10s-77.imp" GETINACC(0, (unsigned char)((((unsigned char)(BYTES[PREC])) >> (2))), 0, 2, K); #line 3197 "regression-compile-tmp/nrimp10s-77.imp" L_02d1:; // 3198 ->EXIT #line 3198 "regression-compile-tmp/nrimp10s-77.imp" goto U_1021; // 3199 SW(3): ! PUT (HEX HALFWORD) #line 3199 "regression-compile-tmp/nrimp10s-77.imp" sw4_SW_3:; // 3200 TYPE=A(P) #line 3200 "regression-compile-tmp/nrimp10s-77.imp" TYPE = A[P]; // 3201 PREC=TYPE>>4; TYPE=TYPE&7 #line 3201 "regression-compile-tmp/nrimp10s-77.imp" PREC = (int)((((unsigned int)(TYPE)) >> (4))); #line 3201 "regression-compile-tmp/nrimp10s-77.imp" TYPE = ((TYPE) & (7)); // 3202 FAULT(32,0) %UNLESS TYPE=1 %AND PREC<6 #line 3202 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (1))) goto L_02d2; #line 3202 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) < (6))) goto L_02d3; #line 3202 "regression-compile-tmp/nrimp10s-77.imp" L_02d2:; #line 3202 "regression-compile-tmp/nrimp10s-77.imp" FAULT(32, 0); #line 3202 "regression-compile-tmp/nrimp10s-77.imp" L_02d3:; // 3203 %IF PREC=5 %THEN P=P+2 #line 3203 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) != (5))) goto L_02d4; #line 3203 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); #line 3203 "regression-compile-tmp/nrimp10s-77.imp" L_02d4:; // 3204 PLANT(FROM AR2(P+1)) #line 3204 "regression-compile-tmp/nrimp10s-77.imp" PLANT(FROMAR2((((int)(P)) + (1)))); // 3205 ->EXIT #line 3205 "regression-compile-tmp/nrimp10s-77.imp" goto U_1021; // 3206 SW(5): ! CNOP #line 3206 "regression-compile-tmp/nrimp10s-77.imp" sw4_SW_5:; // 3207 CNOP(A(P),A(P+1)) #line 3207 "regression-compile-tmp/nrimp10s-77.imp" CNOP(A[P], A[(((int)(P)) + (1))]); // 3208 ->EXIT #line 3208 "regression-compile-tmp/nrimp10s-77.imp" goto U_1021; // 3209 SW(4): ! ASSEMBLER #line 3209 "regression-compile-tmp/nrimp10s-77.imp" sw4_SW_4:; // 3210 FORM=A(P); ! FORM=PRIMARY,SECONDARY OR 3RY #line 3210 "regression-compile-tmp/nrimp10s-77.imp" FORM = A[P]; // 3211 OPCODE=A(P+1) #line 3211 "regression-compile-tmp/nrimp10s-77.imp" OPCODE = A[(((int)(P)) + (1))]; // 3212 P=P+2; ->F(FORM) #line 3212 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); #line 3212 "regression-compile-tmp/nrimp10s-77.imp" sw5_F_idx = FORM; if ((1 <= sw5_F_idx) && (sw5_F_idx <= 3)) goto *(sw5_F-1)[sw5_F_idx]; /* Bounds=1:3 */ else { /*_imp_signal(8, 2, sw5_F_idx);*/ fprintf(stderr, "%%SWITCH index F(%d) not in range 1:3 at %s:%d\n", sw5_F_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 3213 F(1): ! ALL PRIMARY FORMAT INSTRUCTIONS #line 3213 "regression-compile-tmp/nrimp10s-77.imp" sw5_F_1:; // 3214 ALT=A(P); P=P+1 #line 3214 "regression-compile-tmp/nrimp10s-77.imp" ALT = A[P]; #line 3214 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 3215 ->POP(ALT) #line 3215 "regression-compile-tmp/nrimp10s-77.imp" sw6_POP_idx = ALT; if ((1 <= sw6_POP_idx) && (sw6_POP_idx <= 6)) goto *(sw6_POP-1)[sw6_POP_idx]; /* Bounds=1:6 */ else { /*_imp_signal(8, 2, sw6_POP_idx);*/ fprintf(stderr, "%%SWITCH index POP(%d) not in range 1:6 at %s:%d\n", sw6_POP_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 3216 POP(1): ! LABELNAME #line 3216 "regression-compile-tmp/nrimp10s-77.imp" sw6_POP_1:; // 3217 FNAME=FROM AR2(P); P=P+2 #line 3217 "regression-compile-tmp/nrimp10s-77.imp" FNAME = FROMAR2(P); #line 3217 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 3218 ENTER JUMP(OPCODE<<24!3<<23,FNAME,0) #line 3218 "regression-compile-tmp/nrimp10s-77.imp" ENTERJUMP(((((OPCODE) << (24))) | (((3) << (23)))), FNAME, 0); // 3219 ->EXIT #line 3219 "regression-compile-tmp/nrimp10s-77.imp" goto U_1021; // 3220 POP(2): ! DIRECT SYMBOLIC #line 3220 "regression-compile-tmp/nrimp10s-77.imp" sw6_POP_2:; // 3221 CIND #line 3221 "regression-compile-tmp/nrimp10s-77.imp" CIND(); // 3222 POPI: PSORLF1(OPCODE,ACCESS,AREA,DISP) #line 3222 "regression-compile-tmp/nrimp10s-77.imp" U_1022:; #line 3222 "regression-compile-tmp/nrimp10s-77.imp" PSORLF1(OPCODE, ACCESS, AREA, DISP); // 3223 ->EXIT #line 3223 "regression-compile-tmp/nrimp10s-77.imp" goto U_1021; // 3224 POP(3): ! INDIRECT SYMBOLIC #line 3224 "regression-compile-tmp/nrimp10s-77.imp" sw6_POP_3:; // 3225 CIND #line 3225 "regression-compile-tmp/nrimp10s-77.imp" CIND(); // 3226 ACCESS=4-A(P); P=P+1 #line 3226 "regression-compile-tmp/nrimp10s-77.imp" ACCESS = ((4) - ((int)(A[P]))); #line 3226 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 3227 ->POPI #line 3227 "regression-compile-tmp/nrimp10s-77.imp" goto U_1022; // 3228 POP(4): ! DR SYMBOLICALLY MODIFIED #line 3228 "regression-compile-tmp/nrimp10s-77.imp" sw6_POP_4:; // 3229 CIND; ACCESS=1; ->POPI #line 3229 "regression-compile-tmp/nrimp10s-77.imp" CIND(); #line 3229 "regression-compile-tmp/nrimp10s-77.imp" ACCESS = 1; #line 3229 "regression-compile-tmp/nrimp10s-77.imp" goto U_1022; // 3230 POP(5): ! (DR) & (DR+B) #line 3230 "regression-compile-tmp/nrimp10s-77.imp" sw6_POP_5:; // 3231 ACCESS=4-A(P); AREA=7 #line 3231 "regression-compile-tmp/nrimp10s-77.imp" ACCESS = ((4) - ((int)(A[P]))); #line 3231 "regression-compile-tmp/nrimp10s-77.imp" AREA = 7; // 3232 DISP=0; P=P+1 #line 3232 "regression-compile-tmp/nrimp10s-77.imp" DISP = 0; #line 3232 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 3233 ->POPI #line 3233 "regression-compile-tmp/nrimp10s-77.imp" goto U_1022; // 3234 POP(6): ! B #line 3234 "regression-compile-tmp/nrimp10s-77.imp" sw6_POP_6:; // 3235 ACCESS=0 #line 3235 "regression-compile-tmp/nrimp10s-77.imp" ACCESS = 0; // 3236 AREA=7; DISP=0; ->POPI #line 3236 "regression-compile-tmp/nrimp10s-77.imp" AREA = 7; #line 3236 "regression-compile-tmp/nrimp10s-77.imp" DISP = 0; #line 3236 "regression-compile-tmp/nrimp10s-77.imp" goto U_1022; // 3237 F(2): ! SECONDARY (STORE-TO STORE)FORMAT #line 3237 "regression-compile-tmp/nrimp10s-77.imp" sw5_F_2:; // 3238 MASK=0; FILLER=0; Q=0; FNAME=0 #line 3238 "regression-compile-tmp/nrimp10s-77.imp" MASK = 0; #line 3238 "regression-compile-tmp/nrimp10s-77.imp" FILLER = 0; #line 3238 "regression-compile-tmp/nrimp10s-77.imp" Q = 0; #line 3238 "regression-compile-tmp/nrimp10s-77.imp" FNAME = 0; // 3239 H=2-A(P) #line 3239 "regression-compile-tmp/nrimp10s-77.imp" H = ((2) - ((int)(A[P]))); // 3240 %IF H=0 %THEN FNAME=FROM AR2(P+1)-1 %AND P=P+2 #line 3240 "regression-compile-tmp/nrimp10s-77.imp" if (((H) != (0))) goto L_02d5; #line 3240 "regression-compile-tmp/nrimp10s-77.imp" FNAME = (((int)(FROMAR2((((int)(P)) + (1))))) - (1)); #line 3240 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); #line 3240 "regression-compile-tmp/nrimp10s-77.imp" L_02d5:; // 3241 FAULT(32,0) %UNLESS 0<=FNAME<=127 #line 3241 "regression-compile-tmp/nrimp10s-77.imp" if ((((0) > (FNAME))) || (((FNAME) <= (127)))) goto L_02d7; #line 3241 "regression-compile-tmp/nrimp10s-77.imp" L_02d6:; #line 3241 "regression-compile-tmp/nrimp10s-77.imp" FAULT(32, 0); #line 3241 "regression-compile-tmp/nrimp10s-77.imp" L_02d7:; // 3242 ALT=A(P+1); P=P+2 #line 3242 "regression-compile-tmp/nrimp10s-77.imp" ALT = A[(((int)(P)) + (1))]; #line 3242 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 3243 %IF ALT=1 %THEN %START #line 3243 "regression-compile-tmp/nrimp10s-77.imp" if (((ALT) != (1))) goto L_02d8; // 3244 Q=1 #line 3244 "regression-compile-tmp/nrimp10s-77.imp" Q = 1; // 3245 MASK=FROM AR2(P) #line 3245 "regression-compile-tmp/nrimp10s-77.imp" MASK = FROMAR2(P); // 3246 FILLER=FROM AR2(P+2) #line 3246 "regression-compile-tmp/nrimp10s-77.imp" FILLER = FROMAR2((((int)(P)) + (2))); // 3247 P=P+4 #line 3247 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (4)); // 3248 FAULT(32,0) %UNLESS 0<=MASK!FILLER<=255 #line 3248 "regression-compile-tmp/nrimp10s-77.imp" if ((((0) > (((MASK) | (FILLER))))) || (((((MASK) | (FILLER))) <= (255)))) goto L_02d9; #line 3248 "regression-compile-tmp/nrimp10s-77.imp" L_02a7:; #line 3248 "regression-compile-tmp/nrimp10s-77.imp" FAULT(32, 0); #line 3248 "regression-compile-tmp/nrimp10s-77.imp" L_02d9:; // 3249 %FINISH #line 3249 "regression-compile-tmp/nrimp10s-77.imp" L_02d8:; // 3250 PF2(OPCODE,H,Q,FNAME,MASK,FILLER) #line 3250 "regression-compile-tmp/nrimp10s-77.imp" PF2(OPCODE, H, Q, FNAME, MASK, FILLER); // 3251 ->EXIT #line 3251 "regression-compile-tmp/nrimp10s-77.imp" goto U_1021; // 3252 F(3): ! TERTIARY FORMAT #line 3252 "regression-compile-tmp/nrimp10s-77.imp" sw5_F_3:; // 3253 MASK=FROM AR2(P) #line 3253 "regression-compile-tmp/nrimp10s-77.imp" MASK = FROMAR2(P); // 3254 ALT=A(P+2) #line 3254 "regression-compile-tmp/nrimp10s-77.imp" ALT = A[(((int)(P)) + (2))]; // 3255 FAULT(32,0) %UNLESS 0<=MASK<=15 #line 3255 "regression-compile-tmp/nrimp10s-77.imp" if ((((0) > (MASK))) || (((MASK) <= (15)))) goto L_02db; #line 3255 "regression-compile-tmp/nrimp10s-77.imp" L_02da:; #line 3255 "regression-compile-tmp/nrimp10s-77.imp" FAULT(32, 0); #line 3255 "regression-compile-tmp/nrimp10s-77.imp" L_02db:; // 3256 P=P+3; ->TOP(ALT) #line 3256 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); #line 3256 "regression-compile-tmp/nrimp10s-77.imp" sw7_TOP_idx = ALT; if ((1 <= sw7_TOP_idx) && (sw7_TOP_idx <= 4)) goto *(sw7_TOP-1)[sw7_TOP_idx]; /* Bounds=1:4 */ else { /*_imp_signal(8, 2, sw7_TOP_idx);*/ fprintf(stderr, "%%SWITCH index TOP(%d) not in range 1:4 at %s:%d\n", sw7_TOP_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 3257 TOP(1): ! LABEL #line 3257 "regression-compile-tmp/nrimp10s-77.imp" sw7_TOP_1:; // 3258 FNAME=FROM AR2(P); P=P+2 #line 3258 "regression-compile-tmp/nrimp10s-77.imp" FNAME = FROMAR2(P); #line 3258 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 3259 ENTER JUMP(OPCODE<<24!MASK<<21,FNAME,0) #line 3259 "regression-compile-tmp/nrimp10s-77.imp" ENTERJUMP(((((OPCODE) << (24))) | (((MASK) << (21)))), FNAME, 0); // 3260 ->EXIT #line 3260 "regression-compile-tmp/nrimp10s-77.imp" goto U_1021; // 3261 TOP(2): ! SYMBOLIC OPERAND #line 3261 "regression-compile-tmp/nrimp10s-77.imp" sw7_TOP_2:; // 3262 CIND #line 3262 "regression-compile-tmp/nrimp10s-77.imp" CIND(); // 3263 FAULT(32,0) %IF AREA>=6 #line 3263 "regression-compile-tmp/nrimp10s-77.imp" if (((AREA) < (6))) goto L_02dc; #line 3263 "regression-compile-tmp/nrimp10s-77.imp" FAULT(32, 0); #line 3263 "regression-compile-tmp/nrimp10s-77.imp" L_02dc:; // 3264 %IF AREA=LNB %OR AREA=XNB %OR AREA=CTB %THEN DISP=DISP//4 #line 3264 "regression-compile-tmp/nrimp10s-77.imp" if (((AREA) == (2))) goto L_02dd; #line 3264 "regression-compile-tmp/nrimp10s-77.imp" if (((AREA) == (3))) goto L_02dd; #line 3264 "regression-compile-tmp/nrimp10s-77.imp" if (((AREA) != (5))) goto L_02de; #line 3264 "regression-compile-tmp/nrimp10s-77.imp" L_02dd:; #line 3264 "regression-compile-tmp/nrimp10s-77.imp" DISP = (long)((long)((int)(DISP)) / (long)((int)(4))); #line 3264 "regression-compile-tmp/nrimp10s-77.imp" L_02de:; // 3265 TOPI: PF3(OPCODE,MASK,AREA,DISP) #line 3265 "regression-compile-tmp/nrimp10s-77.imp" U_1023:; #line 3265 "regression-compile-tmp/nrimp10s-77.imp" PF3(OPCODE, MASK, AREA, DISP); // 3266 ->EXIT #line 3266 "regression-compile-tmp/nrimp10s-77.imp" goto U_1021; // 3267 TOP(3): ! (DR) & (DR+B) #line 3267 "regression-compile-tmp/nrimp10s-77.imp" sw7_TOP_3:; // 3268 DISP=0; AREA=8-A(P) #line 3268 "regression-compile-tmp/nrimp10s-77.imp" DISP = 0; #line 3268 "regression-compile-tmp/nrimp10s-77.imp" AREA = ((8) - ((int)(A[P]))); // 3269 P=P+1; ->TOPI #line 3269 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 3269 "regression-compile-tmp/nrimp10s-77.imp" goto U_1023; // 3270 TOP(4): ! (DR+N) #line 3270 "regression-compile-tmp/nrimp10s-77.imp" sw7_TOP_4:; // 3271 DISP=FROM AR2(P); P=P+2 #line 3271 "regression-compile-tmp/nrimp10s-77.imp" DISP = FROMAR2(P); #line 3271 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 3272 AREA=1; ->TOPI #line 3272 "regression-compile-tmp/nrimp10s-77.imp" AREA = 1; #line 3272 "regression-compile-tmp/nrimp10s-77.imp" goto U_1023; // 3273 %ROUTINE CIND #line 3273 "regression-compile-tmp/nrimp10s-77.imp" void CIND( void ) #line 3273 "regression-compile-tmp/nrimp10s-77.imp" { // 3274 !*********************************************************************** // 3275 !* COMPILE A SYMBOLIC OPERAND BY SETTING ACCESS,AREA &DISP * // 3276 !*********************************************************************** // 3277 %INTEGER ALT,AFN,FN0,FN1,FN2,FN3,JJ,D,CTYPE,CPREC #line 3277 "regression-compile-tmp/nrimp10s-77.imp" int ALT; #line 3277 "regression-compile-tmp/nrimp10s-77.imp" int AFN; #line 3277 "regression-compile-tmp/nrimp10s-77.imp" int FN0; #line 3277 "regression-compile-tmp/nrimp10s-77.imp" int FN1; #line 3277 "regression-compile-tmp/nrimp10s-77.imp" int FN2; #line 3277 "regression-compile-tmp/nrimp10s-77.imp" int FN3; #line 3277 "regression-compile-tmp/nrimp10s-77.imp" int JJ; #line 3277 "regression-compile-tmp/nrimp10s-77.imp" int D; #line 3277 "regression-compile-tmp/nrimp10s-77.imp" int CTYPE; #line 3277 "regression-compile-tmp/nrimp10s-77.imp" int CPREC; // 3278 %SWITCH SW(1:4) #line 3278 "regression-compile-tmp/nrimp10s-77.imp" static int sw8_SW_idx; static const void * /*SWITCH*/ sw8_SW[4] = { &&sw8_SW_1, &&sw8_SW_2, &&sw8_SW_3, &&sw8_SW_4, }; // 3279 AFN=ADDR(FN0) #line 3279 "regression-compile-tmp/nrimp10s-77.imp" AFN = _imp_ADDR(&FN0); // 3280 ALT=A(P); ACCESS=0 #line 3280 "regression-compile-tmp/nrimp10s-77.imp" ALT = A[P]; #line 3280 "regression-compile-tmp/nrimp10s-77.imp" ACCESS = 0; // 3281 P=P+1; ->SW(ALT) #line 3281 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 3281 "regression-compile-tmp/nrimp10s-77.imp" sw8_SW_idx = ALT; if ((1 <= sw8_SW_idx) && (sw8_SW_idx <= 4)) goto *(sw8_SW-1)[sw8_SW_idx]; /* Bounds=1:4 */ else { /*_imp_signal(8, 2, sw8_SW_idx);*/ fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:4 at %s:%d\n", sw8_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 3282 SW(1): ! (=')(PLUS')(ICONST) #line 3282 "regression-compile-tmp/nrimp10s-77.imp" sw8_SW_1:; // 3283 P=P+1; ! PAST (=') #line 3283 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 3284 D=A(P); CTYPE=A(P+1) #line 3284 "regression-compile-tmp/nrimp10s-77.imp" D = A[P]; #line 3284 "regression-compile-tmp/nrimp10s-77.imp" CTYPE = A[(((int)(P)) + (1))]; // 3285 CPREC=CTYPE>>4; CTYPE=CTYPE&7 #line 3285 "regression-compile-tmp/nrimp10s-77.imp" CPREC = (int)((((unsigned int)(CTYPE)) >> (4))); #line 3285 "regression-compile-tmp/nrimp10s-77.imp" CTYPE = ((CTYPE) & (7)); // 3286 %IF CPREC=4 %THEN FN0=FROM AR2(P+2) %ELSE %START #line 3286 "regression-compile-tmp/nrimp10s-77.imp" if (((CPREC) != (4))) goto L_02df; #line 3286 "regression-compile-tmp/nrimp10s-77.imp" FN0 = FROMAR2((((int)(P)) + (2))); #line 3286 "regression-compile-tmp/nrimp10s-77.imp" goto L_02e0; #line 3286 "regression-compile-tmp/nrimp10s-77.imp" L_02df:; // 3287 %CYCLE JJ=0,1,BYTES(CPREC)-1 #line 3287 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = (((int)(BYTES[CPREC])) - (1)); JJ = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 0, 1, (((int)(BYTES[CPREC])) - (1))"); JJ -= _increment; _control -= _increment; L_02e1:; if (JJ == _final) goto L_02e2; JJ += _increment; _control += _increment; if (JJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJ"); /* FOR loop control variable corrupted */ } // 3288 BYTEINTEGER(AFN+JJ)=A(P+JJ+2) #line 3288 "regression-compile-tmp/nrimp10s-77.imp" *_imp_BYTEINTEGER((((int)(AFN)) + (JJ))) = A[(((int)((((int)(P)) + (JJ)))) + (2))]; // 3289 %REPEAT #line 3289 "regression-compile-tmp/nrimp10s-77.imp" goto L_02e1; #line 3289 "regression-compile-tmp/nrimp10s-77.imp" L_02e2:; // 3290 %FINISH #line 3290 "regression-compile-tmp/nrimp10s-77.imp" L_02e0:; // 3291 P=P+2+BYTES(CPREC) #line 3291 "regression-compile-tmp/nrimp10s-77.imp" P = (((unsigned char)((((int)(P)) + (2)))) + (BYTES[CPREC])); // 3292 %IF D=2 %THEN %START #line 3292 "regression-compile-tmp/nrimp10s-77.imp" if (((D) != (2))) goto L_02e4; // 3293 %IF CTYPE=2 %THEN FN0=FN0!!16_80000000 %ELSE %START #line 3293 "regression-compile-tmp/nrimp10s-77.imp" if (((CTYPE) != (2))) goto L_02e5; #line 3293 "regression-compile-tmp/nrimp10s-77.imp" FN0 = ((FN0) ^ ((-2147483648))); #line 3293 "regression-compile-tmp/nrimp10s-77.imp" goto L_02e6; #line 3293 "regression-compile-tmp/nrimp10s-77.imp" L_02e5:; // 3294 %IF CPREC=6 %THEN LONGINTEGER(AFN)=-LONGINTEGER(AFN) %ELSE FN0=-FN0 #line 3294 "regression-compile-tmp/nrimp10s-77.imp" if (((CPREC) != (6))) goto L_02e7; #line 3294 "regression-compile-tmp/nrimp10s-77.imp" *_imp_LONGINTEGER(AFN) = (-(*_imp_LONGINTEGER(AFN))); #line 3294 "regression-compile-tmp/nrimp10s-77.imp" goto L_02e8; #line 3294 "regression-compile-tmp/nrimp10s-77.imp" L_02e7:; #line 3294 "regression-compile-tmp/nrimp10s-77.imp" FN0 = (-(FN0)); #line 3294 "regression-compile-tmp/nrimp10s-77.imp" L_02e8:; // 3295 %FINISH #line 3295 "regression-compile-tmp/nrimp10s-77.imp" L_02e6:; // 3296 %FINISH #line 3296 "regression-compile-tmp/nrimp10s-77.imp" L_02e4:; // 3297 CNST: ->LIT %UNLESS CTYPE=1 %AND CPREC<=5 %AND 16_FFFE0000<=FN0<=16_1FFFF #line 3297 "regression-compile-tmp/nrimp10s-77.imp" U_1024:; #line 3297 "regression-compile-tmp/nrimp10s-77.imp" if (((CTYPE) != (1))) goto L_02e9; #line 3297 "regression-compile-tmp/nrimp10s-77.imp" if (((CPREC) > (5))) goto L_02e9; #line 3297 "regression-compile-tmp/nrimp10s-77.imp" if (((((-131072)) > (FN0))) || (((FN0) <= (131071)))) goto L_02ea; #line 3297 "regression-compile-tmp/nrimp10s-77.imp" L_02e9:; #line 3297 "regression-compile-tmp/nrimp10s-77.imp" goto U_1025; #line 3297 "regression-compile-tmp/nrimp10s-77.imp" L_02ea:; // 3298 AREA=0; DISP=FN0 #line 3298 "regression-compile-tmp/nrimp10s-77.imp" AREA = 0; #line 3298 "regression-compile-tmp/nrimp10s-77.imp" DISP = FN0; // 3299 %RETURN #line 3299 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 3300 LIT: FAULT(32,0) %UNLESS 1<=CTYPE<=2 %AND 5<=CPREC<=7 #line 3300 "regression-compile-tmp/nrimp10s-77.imp" U_1025:; #line 3300 "regression-compile-tmp/nrimp10s-77.imp" if ((((1) > (CTYPE))) || (((CTYPE) > (2)))) goto L_02eb; #line 3300 "regression-compile-tmp/nrimp10s-77.imp" if ((((5) > (CPREC))) || (((CPREC) <= (7)))) goto L_02ec; #line 3300 "regression-compile-tmp/nrimp10s-77.imp" L_02eb:; #line 3300 "regression-compile-tmp/nrimp10s-77.imp" FAULT(32, 0); #line 3300 "regression-compile-tmp/nrimp10s-77.imp" L_02ec:; // 3301 STORE CONST(DISP,BYTES(CPREC),AFN) #line 3301 "regression-compile-tmp/nrimp10s-77.imp" STORECONST(&DISP, BYTES[CPREC], AFN); // 3302 AREA=PC; ACCESS=0 #line 3302 "regression-compile-tmp/nrimp10s-77.imp" AREA = 4; #line 3302 "regression-compile-tmp/nrimp10s-77.imp" ACCESS = 0; // 3303 %RETURN #line 3303 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 3304 SW(2): ! (NAME)(OPTINC) #line 3304 "regression-compile-tmp/nrimp10s-77.imp" sw8_SW_2:; // 3305 FN0=FROM AR2(P); P=P+2 #line 3305 "regression-compile-tmp/nrimp10s-77.imp" FN0 = FROMAR2(P); #line 3305 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 3306 COPY TAG(FN0) #line 3306 "regression-compile-tmp/nrimp10s-77.imp" COPYTAG(FN0); // 3307 %IF (LITL=1 %AND ARR=0) %START #line 3307 "regression-compile-tmp/nrimp10s-77.imp" if (((LITL) != (1))) goto L_02ed; #line 3307 "regression-compile-tmp/nrimp10s-77.imp" if (((ARR) != (0))) goto L_02ed; // 3308 CTYPE=TYPE; CPREC=PREC #line 3308 "regression-compile-tmp/nrimp10s-77.imp" CTYPE = TYPE; #line 3308 "regression-compile-tmp/nrimp10s-77.imp" CPREC = PREC; // 3309 ALT=TAGS(FN0) #line 3309 "regression-compile-tmp/nrimp10s-77.imp" ALT = TAGS[FN0]; // 3310 FROM123(ALT,D,FN0,FN1) #line 3310 "regression-compile-tmp/nrimp10s-77.imp" FROM123(ALT, &D, &FN0, &FN1); // 3311 %IF CPREC=7 %THEN AFN=FN1 #line 3311 "regression-compile-tmp/nrimp10s-77.imp" if (((CPREC) != (7))) goto L_02ee; #line 3311 "regression-compile-tmp/nrimp10s-77.imp" AFN = FN1; #line 3311 "regression-compile-tmp/nrimp10s-77.imp" L_02ee:; // 3312 ->CNST #line 3312 "regression-compile-tmp/nrimp10s-77.imp" goto U_1024; // 3313 %FINISH #line 3313 "regression-compile-tmp/nrimp10s-77.imp" L_02ed:; // 3314 %IF TYPE>=6 %OR TYPE=4 %OR (ROUT=1 %AND NAM=0) %THEN FAULT(33,FN0) %AND %RETURN #line 3314 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) >= (6))) goto L_02ef; #line 3314 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) == (4))) goto L_02ef; #line 3314 "regression-compile-tmp/nrimp10s-77.imp" if (((ROUT) != (1))) goto L_02f0; #line 3314 "regression-compile-tmp/nrimp10s-77.imp" if (((NAM) != (0))) goto L_02f0; #line 3314 "regression-compile-tmp/nrimp10s-77.imp" L_02ef:; #line 3314 "regression-compile-tmp/nrimp10s-77.imp" FAULT(33, FN0); #line 3314 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 3314 "regression-compile-tmp/nrimp10s-77.imp" L_02f0:; // 3315 %IF ROUT=1 %THEN K=FROM1(K) #line 3315 "regression-compile-tmp/nrimp10s-77.imp" if (((ROUT) != (1))) goto L_02f1; #line 3315 "regression-compile-tmp/nrimp10s-77.imp" K = FROM1(K); #line 3315 "regression-compile-tmp/nrimp10s-77.imp" L_02f1:; // 3316 AREA=LNB #line 3316 "regression-compile-tmp/nrimp10s-77.imp" AREA = 2; // 3317 %IF I#RBASE %THEN AREA=SET XORYNB(XNB,I) #line 3317 "regression-compile-tmp/nrimp10s-77.imp" if (((I) == (RBASE))) goto L_02f2; #line 3317 "regression-compile-tmp/nrimp10s-77.imp" AREA = SETXORYNB(3, I); #line 3317 "regression-compile-tmp/nrimp10s-77.imp" L_02f2:; // 3318 ALT=A(P); D=FROM AR2(P+1) #line 3318 "regression-compile-tmp/nrimp10s-77.imp" ALT = A[P]; #line 3318 "regression-compile-tmp/nrimp10s-77.imp" D = FROMAR2((((int)(P)) + (1))); // 3319 %IF ALT=1 %THEN K=K+D #line 3319 "regression-compile-tmp/nrimp10s-77.imp" if (((ALT) != (1))) goto L_02f3; #line 3319 "regression-compile-tmp/nrimp10s-77.imp" K = (((int)(K)) + (D)); #line 3319 "regression-compile-tmp/nrimp10s-77.imp" L_02f3:; // 3320 %IF ALT=2 %THEN K=K-D #line 3320 "regression-compile-tmp/nrimp10s-77.imp" if (((ALT) != (2))) goto L_02f4; #line 3320 "regression-compile-tmp/nrimp10s-77.imp" K = (((int)(K)) - (D)); #line 3320 "regression-compile-tmp/nrimp10s-77.imp" L_02f4:; // 3321 P=P+1; P=P+2 %IF ALT<=2 #line 3321 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 3321 "regression-compile-tmp/nrimp10s-77.imp" if (((ALT) > (2))) goto L_02f5; #line 3321 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); #line 3321 "regression-compile-tmp/nrimp10s-77.imp" L_02f5:; // 3322 DISP=K; %RETURN #line 3322 "regression-compile-tmp/nrimp10s-77.imp" DISP = K; #line 3322 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 3323 SW(3): ! '('(REG)(OPTINC)')' #line 3323 "regression-compile-tmp/nrimp10s-77.imp" sw8_SW_3:; // 3324 AREA=A(P)+1; ALT=A(P+1); P=P+2 #line 3324 "regression-compile-tmp/nrimp10s-77.imp" AREA = (((int)(A[P])) + (1)); #line 3324 "regression-compile-tmp/nrimp10s-77.imp" ALT = A[(((int)(P)) + (1))]; #line 3324 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 3325 DISP=0 #line 3325 "regression-compile-tmp/nrimp10s-77.imp" DISP = 0; // 3326 D=FROM AR2(P) #line 3326 "regression-compile-tmp/nrimp10s-77.imp" D = FROMAR2(P); // 3327 %IF ALT=1 %THEN DISP=D #line 3327 "regression-compile-tmp/nrimp10s-77.imp" if (((ALT) != (1))) goto L_02f6; #line 3327 "regression-compile-tmp/nrimp10s-77.imp" DISP = D; #line 3327 "regression-compile-tmp/nrimp10s-77.imp" L_02f6:; // 3328 %IF ALT=2 %THEN FAULT(32,0) #line 3328 "regression-compile-tmp/nrimp10s-77.imp" if (((ALT) != (2))) goto L_02f7; #line 3328 "regression-compile-tmp/nrimp10s-77.imp" FAULT(32, 0); #line 3328 "regression-compile-tmp/nrimp10s-77.imp" L_02f7:; // 3329 %IF AREA=PC %THEN DISP=CA+2*DISP %ELSE DISP=4*DISP #line 3329 "regression-compile-tmp/nrimp10s-77.imp" if (((AREA) != (4))) goto L_02f8; #line 3329 "regression-compile-tmp/nrimp10s-77.imp" DISP = ((CA) + ((int)((((int)(2)) * (DISP))))); #line 3329 "regression-compile-tmp/nrimp10s-77.imp" goto L_02f9; #line 3329 "regression-compile-tmp/nrimp10s-77.imp" L_02f8:; #line 3329 "regression-compile-tmp/nrimp10s-77.imp" DISP = (((int)(4)) * (DISP)); #line 3329 "regression-compile-tmp/nrimp10s-77.imp" L_02f9:; // 3330 P=P+2 %UNLESS ALT=3 #line 3330 "regression-compile-tmp/nrimp10s-77.imp" if (((ALT) == (3))) goto L_02fa; #line 3330 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); #line 3330 "regression-compile-tmp/nrimp10s-77.imp" L_02fa:; // 3331 %RETURN #line 3331 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 3332 SW(4): ! '%TOS' #line 3332 "regression-compile-tmp/nrimp10s-77.imp" sw8_SW_4:; // 3333 AREA=6; DISP=0 #line 3333 "regression-compile-tmp/nrimp10s-77.imp" AREA = 6; #line 3333 "regression-compile-tmp/nrimp10s-77.imp" DISP = 0; // 3334 %END #line 3334 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CIND at level 6 // 3335 EXIT: GRUSE(ACCR)=0 #line 3335 "regression-compile-tmp/nrimp10s-77.imp" U_1021:; #line 3335 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[0] = 0; // 3336 GRUSE(DR)=0 #line 3336 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[1] = 0; // 3337 GRUSE(BREG)=0 #line 3337 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[7] = 0; // 3338 GRUSE(XNB)=0 %IF OPCODE=CALL %OR OPCODE=LXN %OR OPCODE=JLK %OR OPCODE=OUT #line 3338 "regression-compile-tmp/nrimp10s-77.imp" if (((OPCODE) == (30))) goto L_02fb; #line 3338 "regression-compile-tmp/nrimp10s-77.imp" if (((OPCODE) == (126))) goto L_02fb; #line 3338 "regression-compile-tmp/nrimp10s-77.imp" if (((OPCODE) == (28))) goto L_02fb; #line 3338 "regression-compile-tmp/nrimp10s-77.imp" if (((OPCODE) != (60))) goto L_02fc; #line 3338 "regression-compile-tmp/nrimp10s-77.imp" L_02fb:; #line 3338 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[3] = 0; #line 3338 "regression-compile-tmp/nrimp10s-77.imp" L_02fc:; // 3339 GRUSE(CTB)=0 %IF OPCODE=CALL %OR OPCODE=LCT %OR OPCODE=JLK %OR OPCODE=OUT #line 3339 "regression-compile-tmp/nrimp10s-77.imp" if (((OPCODE) == (30))) goto L_02fd; #line 3339 "regression-compile-tmp/nrimp10s-77.imp" if (((OPCODE) == (48))) goto L_02fd; #line 3339 "regression-compile-tmp/nrimp10s-77.imp" if (((OPCODE) == (28))) goto L_02fd; #line 3339 "regression-compile-tmp/nrimp10s-77.imp" if (((OPCODE) != (60))) goto L_02fe; #line 3339 "regression-compile-tmp/nrimp10s-77.imp" L_02fd:; #line 3339 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[5] = 0; #line 3339 "regression-compile-tmp/nrimp10s-77.imp" L_02fe:; // 3340 %END #line 3340 "regression-compile-tmp/nrimp10s-77.imp" return; } // End of block _BLOCK_12_LEVEL_4_ at level 5 _BLOCK_12_LEVEL_4_(); // 3341 ->CSSEXIT #line 3341 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 3342 SW(20): #line 3342 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_20:; // 3343 ! '%TRUSTEDPROGRAM' // 3344 COMPILER=1 %IF PARMARR=0 %AND PARMCHK=0; ->CSSEXIT #line 3344 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMARR) != (0))) goto L_02ff; #line 3344 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMCHK) != (0))) goto L_02ff; #line 3344 "regression-compile-tmp/nrimp10s-77.imp" COMPILER = 1; #line 3344 "regression-compile-tmp/nrimp10s-77.imp" L_02ff:; #line 3344 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 3345 SW(21): ! '%MAINEP'(NAME) #line 3345 "regression-compile-tmp/nrimp10s-77.imp" sw2_SW_21:; // 3346 KK=FROM AR2(P+1) #line 3346 "regression-compile-tmp/nrimp10s-77.imp" KK = FROMAR2((((int)(P)) + (1))); // 3347 FAULT(58,0) %UNLESS CPRMODE=0 #line 3347 "regression-compile-tmp/nrimp10s-77.imp" if (((CPRMODE) == (0))) goto L_0300; #line 3347 "regression-compile-tmp/nrimp10s-77.imp" FAULT(58, 0); #line 3347 "regression-compile-tmp/nrimp10s-77.imp" L_0300:; // 3348 MAINEP<-STRING(DICTBASE+WORD(KK)) #line 3348 "regression-compile-tmp/nrimp10s-77.imp" MAINEP = *_imp_STRING((((int)(DICTBASE)) + (WORD[KK]))); // 3349 ->CSSEXIT #line 3349 "regression-compile-tmp/nrimp10s-77.imp" goto U_1015; // 3350 %ROUTINE CRFORMAT(%INTEGERNAME OPHEAD) #line 3350 "regression-compile-tmp/nrimp10s-77.imp" void CRFORMAT( int /*name*/*OPHEAD ) #line 3350 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 3363 %INTEGER D1,D2,NLIST,FORM,RL,MRL,UNSCAL,SC,DESC,FN,INC,Q,R,A0,A1,A2,DV,RFD,LB,OB,TYPEP,SACC #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int D1; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int D2; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int NLIST; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int FORM; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int RL; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int MRL; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int UNSCAL; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int SC; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int DESC; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int FN; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int INC; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int Q; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int R; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int A0; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int A1; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int A2; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int DV; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int RFD; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int LB; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int OB; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int TYPEP; #line 3363 "regression-compile-tmp/nrimp10s-77.imp" int SACC; // 3364 %SWITCH RFEL(1:5) #line 3364 "regression-compile-tmp/nrimp10s-77.imp" static int sw9_RFEL_idx; static const void * /*SWITCH*/ sw9_RFEL[5] = { &&sw9_RFEL_1, &&sw9_RFEL_2, &&sw9_RFEL_3, &&sw9_RFEL_4, &&sw9_RFEL_5, }; // 3365 %ROUTINESPEC SN(%INTEGER Q) #line 3365 "regression-compile-tmp/nrimp10s-77.imp" auto void SN( int Q ); // 3366 %ROUTINESPEC ROUND #line 3366 "regression-compile-tmp/nrimp10s-77.imp" auto void ROUND( void ); // 3367 NLIST=0; OPHEAD=0; FORM=0; ACC=0; OB=0 #line 3367 "regression-compile-tmp/nrimp10s-77.imp" NLIST = 0; #line 3367 "regression-compile-tmp/nrimp10s-77.imp" *OPHEAD = 0; #line 3367 "regression-compile-tmp/nrimp10s-77.imp" FORM = 0; #line 3367 "regression-compile-tmp/nrimp10s-77.imp" ACC = 0; #line 3367 "regression-compile-tmp/nrimp10s-77.imp" OB = 0; // 3368 MRL=0; INC=0; ! INC COUNTS DOWN RECORD #line 3368 "regression-compile-tmp/nrimp10s-77.imp" MRL = 0; #line 3368 "regression-compile-tmp/nrimp10s-77.imp" INC = 0; // 3369 NEXT: ROUT=0; LITL=0; NAM=0; RFD=A(P) #line 3369 "regression-compile-tmp/nrimp10s-77.imp" U_1026:; #line 3369 "regression-compile-tmp/nrimp10s-77.imp" ROUT = 0; #line 3369 "regression-compile-tmp/nrimp10s-77.imp" LITL = 0; #line 3369 "regression-compile-tmp/nrimp10s-77.imp" NAM = 0; #line 3369 "regression-compile-tmp/nrimp10s-77.imp" RFD = A[P]; // 3370 %IF RFD<=2 %THEN P=P+1 %AND CLT #line 3370 "regression-compile-tmp/nrimp10s-77.imp" if (((RFD) > (2))) goto L_0301; #line 3370 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 3370 "regression-compile-tmp/nrimp10s-77.imp" CLT(); #line 3370 "regression-compile-tmp/nrimp10s-77.imp" L_0301:; // 3371 ->RFEL(RFD) #line 3371 "regression-compile-tmp/nrimp10s-77.imp" sw9_RFEL_idx = RFD; if ((1 <= sw9_RFEL_idx) && (sw9_RFEL_idx <= 5)) goto *(sw9_RFEL-1)[sw9_RFEL_idx]; /* Bounds=1:5 */ else { /*_imp_signal(8, 2, sw9_RFEL_idx);*/ fprintf(stderr, "%%SWITCH index RFEL(%d) not in range 1:5 at %s:%d\n", sw9_RFEL_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 3372 RFEL(1): ! (TYPE) (QNAME')(NAMELIST) #line 3372 "regression-compile-tmp/nrimp10s-77.imp" sw9_RFEL_1:; // 3373 CQN(P); P=P+1 #line 3373 "regression-compile-tmp/nrimp10s-77.imp" CQN(P); #line 3373 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 3374 PACK(PTYPE); D2=0 #line 3374 "regression-compile-tmp/nrimp10s-77.imp" PACK(&PTYPE); #line 3374 "regression-compile-tmp/nrimp10s-77.imp" D2 = 0; // 3375 RL=3 #line 3375 "regression-compile-tmp/nrimp10s-77.imp" RL = 3; // 3376 %IF NAM=0 %AND 3<=PREC<=4 %THEN RL=PREC-3 #line 3376 "regression-compile-tmp/nrimp10s-77.imp" if (((NAM) != (0))) goto L_0302; #line 3376 "regression-compile-tmp/nrimp10s-77.imp" if ((((3) > (PREC))) || (((PREC) > (4)))) goto L_0302; #line 3376 "regression-compile-tmp/nrimp10s-77.imp" RL = (((int)(PREC)) - (3)); #line 3376 "regression-compile-tmp/nrimp10s-77.imp" L_0302:; // 3377 AGN: ROUND ; J=0 #line 3377 "regression-compile-tmp/nrimp10s-77.imp" U_1024:; #line 3377 "regression-compile-tmp/nrimp10s-77.imp" ROUND(); #line 3377 "regression-compile-tmp/nrimp10s-77.imp" J = 0; // 3378 {%UNTIL A(P-1)=2} %CYCLE #line 3378 "regression-compile-tmp/nrimp10s-77.imp" L_0303:; // 3379 D1=INC; SN(P) #line 3379 "regression-compile-tmp/nrimp10s-77.imp" D1 = INC; #line 3379 "regression-compile-tmp/nrimp10s-77.imp" SN(P); // 3380 P=P+3; INC=INC+ACC #line 3380 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); #line 3380 "regression-compile-tmp/nrimp10s-77.imp" INC = (((int)(INC)) + (ACC)); // 3381 %REPEAT %UNTIL A(P-1)=2 #line 3381 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) - (1))]) == (2))) goto L_0304; #line 3381 "regression-compile-tmp/nrimp10s-77.imp" goto L_0303; #line 3381 "regression-compile-tmp/nrimp10s-77.imp" L_0304:; // 3382 P=P+RFD>>2<<1; ! EXTRA 2 FOR RECORDS TO SKIP FORMAT #line 3382 "regression-compile-tmp/nrimp10s-77.imp" P = ((P) + ((int)((((int)((((unsigned int)(RFD)) >> (2)))) << (1))))); // 3383 TRY END: -> END %IF A(P)=2 #line 3383 "regression-compile-tmp/nrimp10s-77.imp" U_1025:; #line 3383 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (2))) goto L_0306; #line 3383 "regression-compile-tmp/nrimp10s-77.imp" goto U_1027; #line 3383 "regression-compile-tmp/nrimp10s-77.imp" L_0306:; // 3384 P=P+1; -> NEXT #line 3384 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 3384 "regression-compile-tmp/nrimp10s-77.imp" goto U_1026; // 3385 RFEL(2):RFEL2: ! (TYPE)%ARRAY(NAMELIST)(BPAIR) #line 3385 "regression-compile-tmp/nrimp10s-77.imp" sw9_RFEL_2:; #line 3385 "regression-compile-tmp/nrimp10s-77.imp" U_1028:; // 3386 Q=P; ARR=1; PACK(PTYPE) #line 3386 "regression-compile-tmp/nrimp10s-77.imp" Q = P; #line 3386 "regression-compile-tmp/nrimp10s-77.imp" ARR = 1; #line 3386 "regression-compile-tmp/nrimp10s-77.imp" PACK(&PTYPE); // 3387 %IF TYPE<=2 %THEN UNSCAL=0 %AND SC=PREC %ELSE UNSCAL=1 %AND SC=3 #line 3387 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) > (2))) goto L_0307; #line 3387 "regression-compile-tmp/nrimp10s-77.imp" UNSCAL = 0; #line 3387 "regression-compile-tmp/nrimp10s-77.imp" SC = PREC; #line 3387 "regression-compile-tmp/nrimp10s-77.imp" goto L_0308; #line 3387 "regression-compile-tmp/nrimp10s-77.imp" L_0307:; #line 3387 "regression-compile-tmp/nrimp10s-77.imp" UNSCAL = 1; #line 3387 "regression-compile-tmp/nrimp10s-77.imp" SC = 3; #line 3387 "regression-compile-tmp/nrimp10s-77.imp" L_0308:; // 3388 %IF PREC=4 %THEN DESC=16_58000002 %ELSE DESC=SC<<27!UNSCAL<<25!(1-PARMARR)<<24 #line 3388 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) != (4))) goto L_0309; #line 3388 "regression-compile-tmp/nrimp10s-77.imp" DESC = 1476395010; #line 3388 "regression-compile-tmp/nrimp10s-77.imp" goto L_030a; #line 3388 "regression-compile-tmp/nrimp10s-77.imp" L_0309:; #line 3388 "regression-compile-tmp/nrimp10s-77.imp" DESC = ((((((SC) << (27))) | (((UNSCAL) << (25))))) | ((((((int)(1)) - (PARMARR))) << (24)))); #line 3388 "regression-compile-tmp/nrimp10s-77.imp" L_030a:; // 3389 {%UNTIL A(P-1)=2} %CYCLE; ! UNTIL NULL #line 3389 "regression-compile-tmp/nrimp10s-77.imp" L_030b:; // 3390 P=P+3 %UNTIL A(P-1)=2 #line 3390 "regression-compile-tmp/nrimp10s-77.imp" L_030e:; #line 3390 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); #line 3390 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) - (1))]) == (2))) goto L_030f; #line 3390 "regression-compile-tmp/nrimp10s-77.imp" goto L_030e; #line 3390 "regression-compile-tmp/nrimp10s-77.imp" L_030f:; // 3391 // 3392 TYPEP=PTYPE; SACC=ACC #line 3392 "regression-compile-tmp/nrimp10s-77.imp" TYPEP = PTYPE; #line 3392 "regression-compile-tmp/nrimp10s-77.imp" SACC = ACC; // 3393 DV=DOPE VECTOR(TYPE,ACC,0,FROMAR2(Q),R,LB)+12 #line 3393 "regression-compile-tmp/nrimp10s-77.imp" DV = (((int)(DOPEVECTOR(TYPE, ACC, 0, FROMAR2(Q), &R, &LB))) + (12)); // 3394 ! DOPE VECTOR INTO SHAREABLE S.T. // 3395 ACC=SACC; PTYPE=TYPEP; UNPACK #line 3395 "regression-compile-tmp/nrimp10s-77.imp" ACC = SACC; #line 3395 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = TYPEP; #line 3395 "regression-compile-tmp/nrimp10s-77.imp" UNPACK(); // 3396 %IF TYPE=5 %OR (TYPE=1 %AND PREC=3) %THEN RL=0 %ELSE RL=3 #line 3396 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) == (5))) goto L_0310; #line 3396 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (1))) goto L_0311; #line 3396 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) != (3))) goto L_0311; #line 3396 "regression-compile-tmp/nrimp10s-77.imp" L_0310:; #line 3396 "regression-compile-tmp/nrimp10s-77.imp" RL = 0; #line 3396 "regression-compile-tmp/nrimp10s-77.imp" goto L_0312; #line 3396 "regression-compile-tmp/nrimp10s-77.imp" L_0311:; #line 3396 "regression-compile-tmp/nrimp10s-77.imp" RL = 3; #line 3396 "regression-compile-tmp/nrimp10s-77.imp" L_0312:; // 3397 ROUND #line 3397 "regression-compile-tmp/nrimp10s-77.imp" ROUND(); // 3398 {%UNTIL A(Q-1)=2} %CYCLE; ! HEAD INTO GLA FOR EACH ARRAY #line 3398 "regression-compile-tmp/nrimp10s-77.imp" L_0313:; // 3399 A0=R; %IF UNSCAL=0 %THEN A0=A0//ACC #line 3399 "regression-compile-tmp/nrimp10s-77.imp" A0 = R; #line 3399 "regression-compile-tmp/nrimp10s-77.imp" if (((UNSCAL) != (0))) goto L_0316; #line 3399 "regression-compile-tmp/nrimp10s-77.imp" A0 = (long)((long)((int)(A0)) / (long)((int)(_Z(ACC)))); #line 3399 "regression-compile-tmp/nrimp10s-77.imp" L_0316:; // 3400 %IF PREC=4 %THEN A0=0; ! STRING DESCRIPTORS ! #line 3400 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) != (4))) goto L_0317; #line 3400 "regression-compile-tmp/nrimp10s-77.imp" A0 = 0; #line 3400 "regression-compile-tmp/nrimp10s-77.imp" L_0317:; // 3401 A0=A0!DESC; A1=INC #line 3401 "regression-compile-tmp/nrimp10s-77.imp" A0 = ((A0) | (DESC)); #line 3401 "regression-compile-tmp/nrimp10s-77.imp" A1 = INC; // 3402 %IF TYPE<=3 %AND PARMARR=0=PARMCHK %AND J=1 %THEN A1=A1-LB*ACC #line 3402 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) > (3))) goto L_0318; #line 3402 "regression-compile-tmp/nrimp10s-77.imp" if ((((PARMARR) != (0))) || (((0) != (PARMCHK)))) goto L_0318; #line 3402 "regression-compile-tmp/nrimp10s-77.imp" if (((J) != (1))) goto L_0318; #line 3402 "regression-compile-tmp/nrimp10s-77.imp" A1 = ((A1) - ((int)((((int)(LB)) * (ACC))))); #line 3402 "regression-compile-tmp/nrimp10s-77.imp" L_0318:; // 3403 A2=5<<27!3*J #line 3403 "regression-compile-tmp/nrimp10s-77.imp" A2 = ((((5) << (27))) | ((((int)(3)) * (J)))); // 3404 PGLA(4,16,ADDR(A0)) #line 3404 "regression-compile-tmp/nrimp10s-77.imp" PGLA(4, 16, _imp_ADDR(&A0)); // 3405 D1=GLACA-16 #line 3405 "regression-compile-tmp/nrimp10s-77.imp" D1 = (((int)(GLACA)) - (16)); // 3406 RELOCATE(D1+12,DV,1); ! RELOCATE DV POINTER #line 3406 "regression-compile-tmp/nrimp10s-77.imp" RELOCATE((((int)(D1)) + (12)), DV, 1); // 3407 NOTE CREF(16_80000000!(DV<<1>>3)!(D1+12)>>2<<16, (DV&16_FFFF)<<2) #line 3407 "regression-compile-tmp/nrimp10s-77.imp" NOTECREF((((((-2147483648)) | (((((((DV) << (1)))) >> (3)))))) | ((((((((((int)(D1)) + (12)))) >> (2)))) << (16)))), ((((DV) & (65535))) << (2))); // 3408 D2=INC #line 3408 "regression-compile-tmp/nrimp10s-77.imp" D2 = INC; // 3409 SN(Q); INC=INC+R #line 3409 "regression-compile-tmp/nrimp10s-77.imp" SN(Q); #line 3409 "regression-compile-tmp/nrimp10s-77.imp" INC = (((int)(INC)) + (R)); // 3410 Q=Q+3 #line 3410 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(Q)) + (3)); // 3411 %REPEAT %UNTIL A(Q-1)=2; ! HEAD INTO GLA FOR EACH ARRAY #line 3411 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(Q)) - (1))]) == (2))) goto L_0314; #line 3411 "regression-compile-tmp/nrimp10s-77.imp" goto L_0313; #line 3411 "regression-compile-tmp/nrimp10s-77.imp" L_0314:; // 3412 P=P+1; Q=P #line 3412 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 3412 "regression-compile-tmp/nrimp10s-77.imp" Q = P; // 3413 %REPEAT %UNTIL A(P-1)=2 #line 3413 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) - (1))]) == (2))) goto L_030c; #line 3413 "regression-compile-tmp/nrimp10s-77.imp" goto L_030b; #line 3413 "regression-compile-tmp/nrimp10s-77.imp" L_030c:; // 3414 P=P+2 %IF RFD=5 #line 3414 "regression-compile-tmp/nrimp10s-77.imp" if (((RFD) != (5))) goto L_0319; #line 3414 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); #line 3414 "regression-compile-tmp/nrimp10s-77.imp" L_0319:; // 3415 -> TRY END #line 3415 "regression-compile-tmp/nrimp10s-77.imp" goto U_1025; // 3416 RFEL(3): ! %RECORD (%ARRAY) %NAME #line 3416 "regression-compile-tmp/nrimp10s-77.imp" sw9_RFEL_3:; // 3417 TYPE=3; PREC=3; NAM=1 #line 3417 "regression-compile-tmp/nrimp10s-77.imp" TYPE = 3; #line 3417 "regression-compile-tmp/nrimp10s-77.imp" PREC = 3; #line 3417 "regression-compile-tmp/nrimp10s-77.imp" NAM = 1; // 3418 ARR=2-A(P+1); P=P+2 #line 3418 "regression-compile-tmp/nrimp10s-77.imp" ARR = ((2) - ((int)(A[(((int)(P)) + (1))]))); #line 3418 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 3419 PACK(PTYPE); D2=0 #line 3419 "regression-compile-tmp/nrimp10s-77.imp" PACK(&PTYPE); #line 3419 "regression-compile-tmp/nrimp10s-77.imp" D2 = 0; // 3420 RL=3; ACC=8+8*ARR #line 3420 "regression-compile-tmp/nrimp10s-77.imp" RL = 3; #line 3420 "regression-compile-tmp/nrimp10s-77.imp" ACC = ((8) + ((int)((((int)(8)) * (ARR))))); // 3421 FORM=0 #line 3421 "regression-compile-tmp/nrimp10s-77.imp" FORM = 0; // 3422 ->AGN #line 3422 "regression-compile-tmp/nrimp10s-77.imp" goto U_1024; // 3423 RFEL(4): ! RECORDS IN RECORDS #line 3423 "regression-compile-tmp/nrimp10s-77.imp" sw9_RFEL_4:; // 3424 RFEL(5): ! RECORDARRAYS IN RECORDS #line 3424 "regression-compile-tmp/nrimp10s-77.imp" sw9_RFEL_5:; // 3425 Q=P+FROM AR2(P+1)+1 #line 3425 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)((((int)(P)) + (FROMAR2((((int)(P)) + (1))))))) + (1)); // 3426 FN=FROM AR2(Q) #line 3426 "regression-compile-tmp/nrimp10s-77.imp" FN = FROMAR2(Q); // 3427 COPY TAG(FN); ! COPY FORMAT TAG & SET ACC #line 3427 "regression-compile-tmp/nrimp10s-77.imp" COPYTAG(FN); // 3428 FAULT(62,FN) %UNLESS PTYPE=4 #line 3428 "regression-compile-tmp/nrimp10s-77.imp" if (((PTYPE) == (4))) goto L_031a; #line 3428 "regression-compile-tmp/nrimp10s-77.imp" FAULT(62, FN); #line 3428 "regression-compile-tmp/nrimp10s-77.imp" L_031a:; // 3429 TYPE=3; PREC=3; FORM=TCELL #line 3429 "regression-compile-tmp/nrimp10s-77.imp" TYPE = 3; #line 3429 "regression-compile-tmp/nrimp10s-77.imp" PREC = 3; #line 3429 "regression-compile-tmp/nrimp10s-77.imp" FORM = TCELL; // 3430 %IF RFD=4 %THEN %START #line 3430 "regression-compile-tmp/nrimp10s-77.imp" if (((RFD) != (4))) goto L_031b; // 3431 PTYPE=16_33; P=P+3; D2=0 #line 3431 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = 51; #line 3431 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); #line 3431 "regression-compile-tmp/nrimp10s-77.imp" D2 = 0; // 3432 RL=3; ->AGN #line 3432 "regression-compile-tmp/nrimp10s-77.imp" RL = 3; #line 3432 "regression-compile-tmp/nrimp10s-77.imp" goto U_1024; // 3433 %FINISH #line 3433 "regression-compile-tmp/nrimp10s-77.imp" L_031b:; // 3434 P=P+3; ->RFEL2 #line 3434 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); #line 3434 "regression-compile-tmp/nrimp10s-77.imp" goto U_1028; // 3435 END: ! FINISH OFF #line 3435 "regression-compile-tmp/nrimp10s-77.imp" U_1027:; // 3436 RL=MRL; ROUND #line 3436 "regression-compile-tmp/nrimp10s-77.imp" RL = MRL; #line 3436 "regression-compile-tmp/nrimp10s-77.imp" ROUND(); // 3437 ACC=INC; ! SIZE ROUNDED APPROPRIATELY #line 3437 "regression-compile-tmp/nrimp10s-77.imp" ACC = INC; // 3438 FAULT(98,0) %UNLESS INC<=16_7FFF #line 3438 "regression-compile-tmp/nrimp10s-77.imp" if (((INC) <= (32767))) goto L_031c; #line 3438 "regression-compile-tmp/nrimp10s-77.imp" FAULT(98, 0); #line 3438 "regression-compile-tmp/nrimp10s-77.imp" L_031c:; // 3439 CLEAR LIST(NLIST) #line 3439 "regression-compile-tmp/nrimp10s-77.imp" CLEARLIST(&NLIST); // 3440 %RETURN #line 3440 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 3441 %ROUTINE SN(%INTEGER Q) #line 3441 "regression-compile-tmp/nrimp10s-77.imp" void SN( int Q ) #line 3441 "regression-compile-tmp/nrimp10s-77.imp" { // 3442 !*********************************************************************** // 3443 !* CHECK THE SUBNAME HAS NOT BEEN USED BEFORE IN THIS FORMAT * // 3444 !* AND ENTER IT WITH ITS DESCRIPTORS INTO THE LIST. * // 3445 !*********************************************************************** // 3446 FNAME=FROM AR2(Q) #line 3446 "regression-compile-tmp/nrimp10s-77.imp" FNAME = FROMAR2(Q); // 3447 FAULT2(61,0,FNAME) %UNLESS FIND(FNAME,NLIST)=-1 #line 3447 "regression-compile-tmp/nrimp10s-77.imp" if (((FIND(FNAME, NLIST)) == ((-1)))) goto L_031d; #line 3447 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(61, 0, FNAME); #line 3447 "regression-compile-tmp/nrimp10s-77.imp" L_031d:; // 3448 BINSERT(OPHEAD,OB,FNAME<<20!PTYPE<<4!J,D2<<16!ACC,D1<<16!FORM) #line 3448 "regression-compile-tmp/nrimp10s-77.imp" BINSERT(OPHEAD, &OB, ((((((FNAME) << (20))) | (((PTYPE) << (4))))) | (J)), ((((D2) << (16))) | (ACC)), ((((D1) << (16))) | (FORM))); // 3449 PUSH(NLIST,0,FNAME,0) #line 3449 "regression-compile-tmp/nrimp10s-77.imp" PUSH(&NLIST, 0, FNAME, 0); // 3450 %END #line 3450 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SN at level 6 // 3451 %ROUTINE ROUND #line 3451 "regression-compile-tmp/nrimp10s-77.imp" void ROUND( void ) #line 3451 "regression-compile-tmp/nrimp10s-77.imp" { // 3452 MRL=RL %IF RL>MRL #line 3452 "regression-compile-tmp/nrimp10s-77.imp" if (((RL) <= (MRL))) goto L_031e; #line 3452 "regression-compile-tmp/nrimp10s-77.imp" MRL = RL; #line 3452 "regression-compile-tmp/nrimp10s-77.imp" L_031e:; // 3453 INC=INC+1 %WHILE INC&RL#0 #line 3453 "regression-compile-tmp/nrimp10s-77.imp" L_031f:; #line 3453 "regression-compile-tmp/nrimp10s-77.imp" if (((((INC) & (RL))) == (0))) goto L_0320; #line 3453 "regression-compile-tmp/nrimp10s-77.imp" INC = (((int)(INC)) + (1)); #line 3453 "regression-compile-tmp/nrimp10s-77.imp" goto L_031f; #line 3453 "regression-compile-tmp/nrimp10s-77.imp" L_0320:; // 3454 %END #line 3454 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block ROUND at level 6 // 3455 %END; ! OF ROUTINE CRFORMAT #line 3455 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CRFORMAT at level 5 // 3456 %INTEGERFN DISPLACEMENT(%INTEGER LINK) #line 3456 "regression-compile-tmp/nrimp10s-77.imp" int DISPLACEMENT( int LINK ) #line 3456 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 3462 %RECORD(LISTF)%NAME FCELL,PCELL,LCELL{(LISTF) #line 3462 "regression-compile-tmp/nrimp10s-77.imp" LISTF /*name*/*FCELL; #line 3462 "regression-compile-tmp/nrimp10s-77.imp" LISTF /*name*/*PCELL; #line 3462 "regression-compile-tmp/nrimp10s-77.imp" LISTF /*name*/*LCELL; // 3463 %INTEGER RR,II,ENAME,CELL #line 3463 "regression-compile-tmp/nrimp10s-77.imp" int RR; #line 3463 "regression-compile-tmp/nrimp10s-77.imp" int II; #line 3463 "regression-compile-tmp/nrimp10s-77.imp" int ENAME; #line 3463 "regression-compile-tmp/nrimp10s-77.imp" int CELL; // 3464 ENAME=A(P)<<8+A(P+1); CELL=0 #line 3464 "regression-compile-tmp/nrimp10s-77.imp" ENAME = (((unsigned char)(((A[P]) << (8)))) + (A[(((int)(P)) + (1))])); #line 3464 "regression-compile-tmp/nrimp10s-77.imp" CELL = 0; // 3465 %IF LINK#0 %THEN %START; ! CHK RECORDSPEC NOT OMITTED #line 3465 "regression-compile-tmp/nrimp10s-77.imp" if (((LINK) == (0))) goto L_0322; // 3466 FCELL==ASLIST(LINK); ! ONTO FORMAT TAG CELL #line 3466 "regression-compile-tmp/nrimp10s-77.imp" FCELL = &ASLIST[LINK]; // 3467 LINK=FCELL_S3&16_7FFF; ! LINK TO SIDE CHAIN #line 3467 "regression-compile-tmp/nrimp10s-77.imp" LINK = ((FCELL->S3) & (32767)); // 3468 CELL=LINK; II=-1; ACC=-1 #line 3468 "regression-compile-tmp/nrimp10s-77.imp" CELL = LINK; #line 3468 "regression-compile-tmp/nrimp10s-77.imp" II = (-1); #line 3468 "regression-compile-tmp/nrimp10s-77.imp" ACC = (-1); // 3469 %WHILE LINK>0 %CYCLE #line 3469 "regression-compile-tmp/nrimp10s-77.imp" L_0323:; #line 3469 "regression-compile-tmp/nrimp10s-77.imp" if (((LINK) <= (0))) goto L_0324; // 3470 LCELL==ASLIST(LINK) #line 3470 "regression-compile-tmp/nrimp10s-77.imp" LCELL = &ASLIST[LINK]; // 3471 %IF LCELL_S1>>20=ENAME %START; ! RIGHT SUBNAME LOCATED #line 3471 "regression-compile-tmp/nrimp10s-77.imp" if ((((int)((((unsigned int)(LCELL->S1)) >> (20)))) != (ENAME))) goto L_0326; // 3472 TCELL=LINK #line 3472 "regression-compile-tmp/nrimp10s-77.imp" TCELL = LINK; // 3473 RR=LCELL_S1 #line 3473 "regression-compile-tmp/nrimp10s-77.imp" RR = LCELL->S1; // 3474 SNDISP=LCELL_S2 #line 3474 "regression-compile-tmp/nrimp10s-77.imp" SNDISP = LCELL->S2; // 3475 K=LCELL_S3 #line 3475 "regression-compile-tmp/nrimp10s-77.imp" K = LCELL->S3; // 3476 J=RR&15; PTYPE=RR>>4&16_FFFF #line 3476 "regression-compile-tmp/nrimp10s-77.imp" J = ((RR) & (15)); #line 3476 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = (((int)((((unsigned int)(RR)) >> (4)))) & (65535)); // 3477 ACC=SNDISP&16_FFFF; SNDISP=SNDISP&16_FFFF0000//16_10000 #line 3477 "regression-compile-tmp/nrimp10s-77.imp" ACC = ((SNDISP) & (65535)); #line 3477 "regression-compile-tmp/nrimp10s-77.imp" SNDISP = (long)((long)((((SNDISP) & ((-65536))))) / (long)((int)(65536))); // 3478 KFORM=K&16_FFFF; K=K>>16 #line 3478 "regression-compile-tmp/nrimp10s-77.imp" KFORM = ((K) & (65535)); #line 3478 "regression-compile-tmp/nrimp10s-77.imp" K = (int)((((unsigned int)(K)) >> (16))); // 3479 %IF LINK#CELL %START; ! NOT TOP CELL OF FORMAT #line 3479 "regression-compile-tmp/nrimp10s-77.imp" if (((LINK) == (CELL))) goto L_0327; // 3480 PCELL_LINK=LCELL_LINK #line 3480 "regression-compile-tmp/nrimp10s-77.imp" PCELL->LINK = LCELL->LINK; // 3481 LCELL_LINK=CELL #line 3481 "regression-compile-tmp/nrimp10s-77.imp" LCELL->LINK = CELL; // 3482 FCELL_S3=FCELL_S3&16_FFFF0000!LINK #line 3482 "regression-compile-tmp/nrimp10s-77.imp" FCELL->S3 = ((((FCELL->S3) & ((-65536)))) | (LINK)); // 3483 %FINISH; ! ARRANGING LIST WITH THIS SUBNAME #line 3483 "regression-compile-tmp/nrimp10s-77.imp" L_0327:; // 3484 ! AT THE TOP // 3485 %RESULT=K #line 3485 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return K; // 3486 %FINISH #line 3486 "regression-compile-tmp/nrimp10s-77.imp" L_0326:; // 3487 PCELL==LCELL #line 3487 "regression-compile-tmp/nrimp10s-77.imp" PCELL = LCELL; // 3488 LINK=LCELL_LINK #line 3488 "regression-compile-tmp/nrimp10s-77.imp" LINK = LCELL->LINK; // 3489 %REPEAT #line 3489 "regression-compile-tmp/nrimp10s-77.imp" goto L_0323; #line 3489 "regression-compile-tmp/nrimp10s-77.imp" L_0324:; // 3490 %FINISH #line 3490 "regression-compile-tmp/nrimp10s-77.imp" L_0322:; // 3491 FAULT(65,ENAME) #line 3491 "regression-compile-tmp/nrimp10s-77.imp" FAULT(65, ENAME); // 3492 %IF CELL>0 %THEN PUSH(ASLIST(CELL)_LINK,ENAME<<20!7<<4,0,0) #line 3492 "regression-compile-tmp/nrimp10s-77.imp" if (((CELL) <= (0))) goto L_0328; #line 3492 "regression-compile-tmp/nrimp10s-77.imp" PUSH(&ASLIST[CELL].LINK, ((((ENAME) << (20))) | (((7) << (4)))), 0, 0); #line 3492 "regression-compile-tmp/nrimp10s-77.imp" L_0328:; // 3493 PTYPE=7; TCELL=0 #line 3493 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = 7; #line 3493 "regression-compile-tmp/nrimp10s-77.imp" TCELL = 0; // 3494 %RESULT=-1 #line 3494 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return (-1); // 3495 %END #line 3495 "regression-compile-tmp/nrimp10s-77.imp" } // End of block DISPLACEMENT at level 5 // 3496 %INTEGERFN COPY RECORD TAG(%INTEGERNAME SUBS) #line 3496 "regression-compile-tmp/nrimp10s-77.imp" int COPYRECORDTAG( int /*name*/*SUBS ) #line 3496 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 3505 %INTEGER Q,FNAME #line 3505 "regression-compile-tmp/nrimp10s-77.imp" int Q; #line 3505 "regression-compile-tmp/nrimp10s-77.imp" int FNAME; // 3506 SUBS=0 #line 3506 "regression-compile-tmp/nrimp10s-77.imp" *SUBS = 0; // 3507 {%UNTIL TYPE#3} %CYCLE #line 3507 "regression-compile-tmp/nrimp10s-77.imp" L_0329:; // 3508 FNAME=KFORM #line 3508 "regression-compile-tmp/nrimp10s-77.imp" FNAME = KFORM; // 3509 P=P+2; SKIP APP #line 3509 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); #line 3509 "regression-compile-tmp/nrimp10s-77.imp" SKIPAPP(); // 3510 %RESULT=0 %IF A(P)=2 %OR FNAME<=0;! NO (FURTHER) ENAME #line 3510 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) == (2))) goto L_0325; #line 3510 "regression-compile-tmp/nrimp10s-77.imp" if (((FNAME) > (0))) goto L_032c; #line 3510 "regression-compile-tmp/nrimp10s-77.imp" L_0325:; #line 3510 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 3510 "regression-compile-tmp/nrimp10s-77.imp" L_032c:; // 3511 SUBS=SUBS+1 #line 3511 "regression-compile-tmp/nrimp10s-77.imp" *SUBS = ((*(int *)(SUBS)) + (1)); // 3512 P=P+1; Q=DISPLACEMENT (FNAME) #line 3512 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 3512 "regression-compile-tmp/nrimp10s-77.imp" Q = DISPLACEMENT(FNAME); // 3513 UNPACK #line 3513 "regression-compile-tmp/nrimp10s-77.imp" UNPACK(); // 3514 %REPEAT %UNTIL TYPE#3 #line 3514 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (3))) goto L_032a; #line 3514 "regression-compile-tmp/nrimp10s-77.imp" goto L_0329; #line 3514 "regression-compile-tmp/nrimp10s-77.imp" L_032a:; // 3515 %RESULT=Q+1; ! GIVES 0 IF SUBNAME NOT KNOWN #line 3515 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return (((int)(Q)) + (1)); // 3516 %END #line 3516 "regression-compile-tmp/nrimp10s-77.imp" } // End of block COPYRECORDTAG at level 5 // 3517 %ROUTINE CRNAME(%INTEGER Z,REG,MODE,BS,AR,DP,%INTEGERNAME NAMEP) #line 3517 "regression-compile-tmp/nrimp10s-77.imp" void CRNAME( int Z, int REG, int MODE, int BS, int AR, int DP, int /*name*/*NAMEP ) #line 3517 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 3527 %INTEGER DEPTH,FNAME #line 3527 "regression-compile-tmp/nrimp10s-77.imp" int DEPTH; #line 3527 "regression-compile-tmp/nrimp10s-77.imp" int FNAME; // 3528 %ROUTINESPEC CENAME(%INTEGER MODE,FNAME,BS,AR,DP,XD) #line 3528 "regression-compile-tmp/nrimp10s-77.imp" auto void CENAME( int MODE, int FNAME, int BS, int AR, int DP, int XD ); // 3529 DEPTH=0 #line 3529 "regression-compile-tmp/nrimp10s-77.imp" DEPTH = 0; // 3530 FNAME=KFORM; ! POINTER TO FORMAT #line 3530 "regression-compile-tmp/nrimp10s-77.imp" FNAME = KFORM; // 3531 %IF ARR=0 %OR (Z=6 %AND A(P+2)=2) %START;! SIMPLE RECORD #line 3531 "regression-compile-tmp/nrimp10s-77.imp" if (((ARR) == (0))) goto L_032b; #line 3531 "regression-compile-tmp/nrimp10s-77.imp" if (((Z) != (6))) goto L_032d; #line 3531 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (2))]) != (2))) goto L_032d; #line 3531 "regression-compile-tmp/nrimp10s-77.imp" L_032b:; // 3532 %IF A(P+2)=2 %THEN P=P+3 %ELSE NO APP #line 3532 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (2))]) != (2))) goto L_032e; #line 3532 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); #line 3532 "regression-compile-tmp/nrimp10s-77.imp" goto L_032f; #line 3532 "regression-compile-tmp/nrimp10s-77.imp" L_032e:; #line 3532 "regression-compile-tmp/nrimp10s-77.imp" NOAPP(); #line 3532 "regression-compile-tmp/nrimp10s-77.imp" L_032f:; // 3533 CENAME(MODE,FNAME,BS,AR,DP,0) #line 3533 "regression-compile-tmp/nrimp10s-77.imp" CENAME(MODE, FNAME, BS, AR, DP, 0); // 3534 %FINISH %ELSE %START #line 3534 "regression-compile-tmp/nrimp10s-77.imp" goto L_0330; #line 3534 "regression-compile-tmp/nrimp10s-77.imp" L_032d:; // 3535 CANAME(ARR,BS,DP) #line 3535 "regression-compile-tmp/nrimp10s-77.imp" CANAME(ARR, BS, DP); // 3536 CENAME(ACCESS,FNAME,BASE,AREA,DISP,0) #line 3536 "regression-compile-tmp/nrimp10s-77.imp" CENAME(ACCESS, FNAME, BASE, AREA, DISP, 0); // 3537 %FINISH; %RETURN #line 3537 "regression-compile-tmp/nrimp10s-77.imp" L_0330:; #line 3537 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 3538 ! // 3539 %ROUTINE CENAME(%INTEGER MODE,FNAME,BS,AR,DP,XD) #line 3539 "regression-compile-tmp/nrimp10s-77.imp" void CENAME( int MODE, int FNAME, int BS, int AR, int DP, int XD ) #line 3539 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 3546 %ROUTINESPEC FETCH RAD #line 3546 "regression-compile-tmp/nrimp10s-77.imp" auto void FETCHRAD( void ); // 3547 %ROUTINESPEC LOCALISE(%INTEGER SIZE) #line 3547 "regression-compile-tmp/nrimp10s-77.imp" auto void LOCALISE( int SIZE ); // 3548 %INTEGER Q,QQ,D,C,W #line 3548 "regression-compile-tmp/nrimp10s-77.imp" int Q; #line 3548 "regression-compile-tmp/nrimp10s-77.imp" int QQ; #line 3548 "regression-compile-tmp/nrimp10s-77.imp" int D; #line 3548 "regression-compile-tmp/nrimp10s-77.imp" int C; #line 3548 "regression-compile-tmp/nrimp10s-77.imp" int W; // 3549 DEPTH=DEPTH+1 #line 3549 "regression-compile-tmp/nrimp10s-77.imp" DEPTH = (((int)(DEPTH)) + (1)); // 3550 %IF A(P)=2 %THEN %START; ! ENAME MISSING #line 3550 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (2))) goto L_0331; // 3551 ACCESS=MODE; AREA=AR; XDISP=XD #line 3551 "regression-compile-tmp/nrimp10s-77.imp" ACCESS = MODE; #line 3551 "regression-compile-tmp/nrimp10s-77.imp" AREA = AR; #line 3551 "regression-compile-tmp/nrimp10s-77.imp" XDISP = XD; // 3552 BASE=BS; DISP=DP; ! FOR POINTER #line 3552 "regression-compile-tmp/nrimp10s-77.imp" BASE = BS; #line 3552 "regression-compile-tmp/nrimp10s-77.imp" DISP = DP; // 3553 %IF Z<14 %THEN %START; ! NOT A RECORD OPERATION #line 3553 "regression-compile-tmp/nrimp10s-77.imp" if (((Z) >= (14))) goto L_0332; // 3554 %UNLESS 3<=Z<=4 %OR Z=6 %START; ! ADDR(RECORD) #line 3554 "regression-compile-tmp/nrimp10s-77.imp" if ((((3) > (Z))) || (((Z) <= (4)))) goto L_0333; #line 3554 "regression-compile-tmp/nrimp10s-77.imp" L_02aa:; #line 3554 "regression-compile-tmp/nrimp10s-77.imp" if (((Z) == (6))) goto L_0333; // 3555 FAULT(64,0); BASE=RBASE; AREA=-1 #line 3555 "regression-compile-tmp/nrimp10s-77.imp" FAULT(64, 0); #line 3555 "regression-compile-tmp/nrimp10s-77.imp" BASE = RBASE; #line 3555 "regression-compile-tmp/nrimp10s-77.imp" AREA = (-1); // 3556 DISP=0; ACCESS=0; PTYPE=1; UNPACK #line 3556 "regression-compile-tmp/nrimp10s-77.imp" DISP = 0; #line 3556 "regression-compile-tmp/nrimp10s-77.imp" ACCESS = 0; #line 3556 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = 1; #line 3556 "regression-compile-tmp/nrimp10s-77.imp" UNPACK(); // 3557 %FINISH #line 3557 "regression-compile-tmp/nrimp10s-77.imp" L_0333:; // 3558 %FINISH #line 3558 "regression-compile-tmp/nrimp10s-77.imp" L_0332:; // 3559 %RETURN #line 3559 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 3560 %FINISH #line 3560 "regression-compile-tmp/nrimp10s-77.imp" L_0331:; // 3561 P=P+1; ! FIND OUT ABOUT SUBNAME #line 3561 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 3562 Q=DISPLACEMENT(FNAME); ! TCELL POINTS TO CELL HOLDING #line 3562 "regression-compile-tmp/nrimp10s-77.imp" Q = DISPLACEMENT(FNAME); // 3563 UNPACK; ! INFO ABOUT THE SUBNAME #line 3563 "regression-compile-tmp/nrimp10s-77.imp" UNPACK(); // 3564 %IF Q=-1=ACC %OR PTYPE=7 %START; ! WRONG SUBNAME(HAS BEEN FAULTED) #line 3564 "regression-compile-tmp/nrimp10s-77.imp" if ((((Q) != ((-1)))) || ((((-1)) == (ACC)))) goto L_0335; #line 3564 "regression-compile-tmp/nrimp10s-77.imp" L_0334:; #line 3564 "regression-compile-tmp/nrimp10s-77.imp" if (((PTYPE) != (7))) goto L_0336; #line 3564 "regression-compile-tmp/nrimp10s-77.imp" L_0335:; // 3565 P=P+2; SKIP APP; P=P-3 #line 3565 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); #line 3565 "regression-compile-tmp/nrimp10s-77.imp" SKIPAPP(); #line 3565 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) - (3)); // 3566 ACCESS=0; BASE=RBASE; DISP=0; AREA=-1 #line 3566 "regression-compile-tmp/nrimp10s-77.imp" ACCESS = 0; #line 3566 "regression-compile-tmp/nrimp10s-77.imp" BASE = RBASE; #line 3566 "regression-compile-tmp/nrimp10s-77.imp" DISP = 0; #line 3566 "regression-compile-tmp/nrimp10s-77.imp" AREA = (-1); // 3567 %RETURN #line 3567 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 3568 %FINISH #line 3568 "regression-compile-tmp/nrimp10s-77.imp" L_0336:; // 3569 NAMEP=(A(P)<<8!A(P+1))<<16!NAMEP; ! NAMEP=-1 UNALTERED ! #line 3569 "regression-compile-tmp/nrimp10s-77.imp" *NAMEP = ((((((((A[P]) << (8))) | (A[(((int)(P)) + (1))]))) << (16))) | (*NAMEP)); // 3570 ->AE %IF ARR=1; ! ARRAYS INCLUDING RECORDARRAYS #line 3570 "regression-compile-tmp/nrimp10s-77.imp" if (((ARR) != (1))) goto L_0337; #line 3570 "regression-compile-tmp/nrimp10s-77.imp" goto U_1029; #line 3570 "regression-compile-tmp/nrimp10s-77.imp" L_0337:; // 3571 %IF A(P+2)=2 %THEN P=P+3 %ELSE NO APP #line 3571 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (2))]) != (2))) goto L_0338; #line 3571 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); #line 3571 "regression-compile-tmp/nrimp10s-77.imp" goto L_0339; #line 3571 "regression-compile-tmp/nrimp10s-77.imp" L_0338:; #line 3571 "regression-compile-tmp/nrimp10s-77.imp" NOAPP(); #line 3571 "regression-compile-tmp/nrimp10s-77.imp" L_0339:; // 3572 %IF TYPE<=2 %OR TYPE=5 %OR (TYPE=3 %AND A(P)=2 %AND (3<=Z<=4 %OR Z=6)) %START #line 3572 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) <= (2))) goto L_033a; #line 3572 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) == (5))) goto L_033a; #line 3572 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (3))) goto L_033b; #line 3572 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (2))) goto L_033b; #line 3572 "regression-compile-tmp/nrimp10s-77.imp" if ((((3) > (Z))) || (((Z) <= (4)))) goto L_033a; #line 3572 "regression-compile-tmp/nrimp10s-77.imp" L_033c:; #line 3572 "regression-compile-tmp/nrimp10s-77.imp" if (((Z) != (6))) goto L_033b; #line 3572 "regression-compile-tmp/nrimp10s-77.imp" L_033a:; // 3573 ACCESS=MODE+4+4*NAM; BASE=BS; #line 3573 "regression-compile-tmp/nrimp10s-77.imp" ACCESS = ((((((int)(MODE)) + (4)))) + ((((int)(4)) * (NAM)))); #line 3573 "regression-compile-tmp/nrimp10s-77.imp" BASE = BS; // 3574 AREA=AR; DISP=DP; XDISP=XD+Q #line 3574 "regression-compile-tmp/nrimp10s-77.imp" AREA = AR; #line 3574 "regression-compile-tmp/nrimp10s-77.imp" DISP = DP; #line 3574 "regression-compile-tmp/nrimp10s-77.imp" XDISP = (((int)(XD)) + (Q)); // 3575 %RETURN #line 3575 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 3576 %FINISH #line 3576 "regression-compile-tmp/nrimp10s-77.imp" L_033b:; // 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 ! // 3585 XD=XD+Q #line 3585 "regression-compile-tmp/nrimp10s-77.imp" XD = (((int)(XD)) + (Q)); // 3586 NAMEP=-1 #line 3586 "regression-compile-tmp/nrimp10s-77.imp" *NAMEP = (-1); // 3587 %IF NAM=1 %THEN %START #line 3587 "regression-compile-tmp/nrimp10s-77.imp" if (((NAM) != (1))) goto L_033d; // 3588 %IF MODE=0 %START #line 3588 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) != (0))) goto L_033e; // 3589 DP=DP+XD; XD=0; MODE=2 #line 3589 "regression-compile-tmp/nrimp10s-77.imp" DP = (((int)(DP)) + (XD)); #line 3589 "regression-compile-tmp/nrimp10s-77.imp" XD = 0; #line 3589 "regression-compile-tmp/nrimp10s-77.imp" MODE = 2; // 3590 %FINISH %ELSE %START #line 3590 "regression-compile-tmp/nrimp10s-77.imp" goto L_033f; #line 3590 "regression-compile-tmp/nrimp10s-77.imp" L_033e:; // 3591 LOCALISE(8); ! PICK UP RECNAME DESCR &STCK #line 3591 "regression-compile-tmp/nrimp10s-77.imp" LOCALISE(8); // 3592 AR=AREA; DP=DISP; BS=BASE #line 3592 "regression-compile-tmp/nrimp10s-77.imp" AR = AREA; #line 3592 "regression-compile-tmp/nrimp10s-77.imp" DP = DISP; #line 3592 "regression-compile-tmp/nrimp10s-77.imp" BS = BASE; // 3593 %FINISH #line 3593 "regression-compile-tmp/nrimp10s-77.imp" L_033f:; // 3594 %FINISH #line 3594 "regression-compile-tmp/nrimp10s-77.imp" L_033d:; // 3595 CENAME(MODE,KFORM,BS,AR,DP,XD) #line 3595 "regression-compile-tmp/nrimp10s-77.imp" CENAME(MODE, KFORM, BS, AR, DP, XD); // 3596 %RETURN #line 3596 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 3597 AE: ! ARRAYS AND ARRAYNAMES AS ELEMEN #line 3597 "regression-compile-tmp/nrimp10s-77.imp" U_1029:; // 3598 FROM123(TCELL,Q,SNDISP,K) #line 3598 "regression-compile-tmp/nrimp10s-77.imp" FROM123(TCELL, &Q, &SNDISP, &K); // 3599 ACC=SNDISP&16_FFFF; SNDISP=SNDISP&16_FFFF0000//16_10000 #line 3599 "regression-compile-tmp/nrimp10s-77.imp" ACC = ((SNDISP) & (65535)); #line 3599 "regression-compile-tmp/nrimp10s-77.imp" SNDISP = (long)((long)((((SNDISP) & ((-65536))))) / (long)((int)(65536))); // 3600 KFORM=K&16_FFFF; K=K>>16 #line 3600 "regression-compile-tmp/nrimp10s-77.imp" KFORM = ((K) & (65535)); #line 3600 "regression-compile-tmp/nrimp10s-77.imp" K = (int)((((unsigned int)(K)) >> (16))); // 3601 C=ACC; D=SNDISP; Q=K; QQ=KFORM #line 3601 "regression-compile-tmp/nrimp10s-77.imp" C = ACC; #line 3601 "regression-compile-tmp/nrimp10s-77.imp" D = SNDISP; #line 3601 "regression-compile-tmp/nrimp10s-77.imp" Q = K; #line 3601 "regression-compile-tmp/nrimp10s-77.imp" QQ = KFORM; // 3602 %IF (Z=6 %OR Z=12) %AND A(P+2)=2 %START;! 'GET ARRAYHEAD' CALL #line 3602 "regression-compile-tmp/nrimp10s-77.imp" if (((Z) == (6))) goto L_0340; #line 3602 "regression-compile-tmp/nrimp10s-77.imp" if (((Z) != (12))) goto L_0341; #line 3602 "regression-compile-tmp/nrimp10s-77.imp" L_0340:; #line 3602 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (2))]) != (2))) goto L_0341; // 3603 P=P+3 #line 3603 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); // 3604 %IF NAM=1 %THEN %START #line 3604 "regression-compile-tmp/nrimp10s-77.imp" if (((NAM) != (1))) goto L_0342; // 3605 ACCESS=MODE+8; BASE=BS #line 3605 "regression-compile-tmp/nrimp10s-77.imp" ACCESS = (((int)(MODE)) + (8)); #line 3605 "regression-compile-tmp/nrimp10s-77.imp" BASE = BS; // 3606 AREA=AR; DISP=DP; XDISP=XD+Q #line 3606 "regression-compile-tmp/nrimp10s-77.imp" AREA = AR; #line 3606 "regression-compile-tmp/nrimp10s-77.imp" DISP = DP; #line 3606 "regression-compile-tmp/nrimp10s-77.imp" XDISP = (((int)(XD)) + (Q)); // 3607 %RETURN #line 3607 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 3608 %FINISH #line 3608 "regression-compile-tmp/nrimp10s-77.imp" L_0342:; // 3609 ! // 3610 ! PASSING AN ARRAY IN A RECORD BY NAME MUST CONSTRUCT PROPER ARRAYHEAD // 3611 ! FROM THE RECORD RELATIVE ONE AT Q(GLA) // 3612 ! // 3613 NAMEP=-1 #line 3613 "regression-compile-tmp/nrimp10s-77.imp" *NAMEP = (-1); // 3614 FETCH RAD #line 3614 "regression-compile-tmp/nrimp10s-77.imp" FETCHRAD(); // 3615 AREA=-1; DISP=Q #line 3615 "regression-compile-tmp/nrimp10s-77.imp" AREA = (-1); #line 3615 "regression-compile-tmp/nrimp10s-77.imp" DISP = Q; // 3616 BASE=0; ACCESS=0; #line 3616 "regression-compile-tmp/nrimp10s-77.imp" BASE = 0; #line 3616 "regression-compile-tmp/nrimp10s-77.imp" ACCESS = 0; // 3617 CREATE AH(1) #line 3617 "regression-compile-tmp/nrimp10s-77.imp" CREATEAH(1); // 3618 %FINISH %ELSE %START; ! ARRAY ELEMENTS IN RECORDS #line 3618 "regression-compile-tmp/nrimp10s-77.imp" goto L_0343; #line 3618 "regression-compile-tmp/nrimp10s-77.imp" L_0341:; // 3619 NAMEP=-1 #line 3619 "regression-compile-tmp/nrimp10s-77.imp" *NAMEP = (-1); // 3620 %IF NAM=1 %THEN %START; ! ARRAYNAMES-FULLHEAD IN RECORD #line 3620 "regression-compile-tmp/nrimp10s-77.imp" if (((NAM) != (1))) goto L_0344; // 3621 XD=XD+Q #line 3621 "regression-compile-tmp/nrimp10s-77.imp" XD = (((int)(XD)) + (Q)); // 3622 LOCALISE(16); ! MOVE HEAD UNDER LNB #line 3622 "regression-compile-tmp/nrimp10s-77.imp" LOCALISE(16); // 3623 CANAME(3,BASE,DISP); ! ARRAY MODE SETS DISP,AREA&BASE #line 3623 "regression-compile-tmp/nrimp10s-77.imp" CANAME(3, BASE, DISP); // 3624 %FINISH %ELSE %START; ! ARRAY RELATIVE HEAD IN GLA #line 3624 "regression-compile-tmp/nrimp10s-77.imp" goto L_0345; #line 3624 "regression-compile-tmp/nrimp10s-77.imp" L_0344:; // 3625 %IF MODE=0 %OR MODE=2 %%START #line 3625 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) == (0))) goto L_0346; #line 3625 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) != (2))) goto L_0347; #line 3625 "regression-compile-tmp/nrimp10s-77.imp" L_0346:; // 3626 %IF MODE=0 %THEN W=DP-4 %ELSE W=DP+4 #line 3626 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) != (0))) goto L_0348; #line 3626 "regression-compile-tmp/nrimp10s-77.imp" W = (((int)(DP)) - (4)); #line 3626 "regression-compile-tmp/nrimp10s-77.imp" goto L_0349; #line 3626 "regression-compile-tmp/nrimp10s-77.imp" L_0348:; #line 3626 "regression-compile-tmp/nrimp10s-77.imp" W = (((int)(DP)) + (4)); #line 3626 "regression-compile-tmp/nrimp10s-77.imp" L_0349:; // 3627 %FINISH %ELSE %START #line 3627 "regression-compile-tmp/nrimp10s-77.imp" goto L_034a; #line 3627 "regression-compile-tmp/nrimp10s-77.imp" L_0347:; // 3628 FETCH RAD; ! RECORD ADDR TO ACC #line 3628 "regression-compile-tmp/nrimp10s-77.imp" FETCHRAD(); // 3629 GET WSP(W,1) #line 3629 "regression-compile-tmp/nrimp10s-77.imp" GETWSP(&W, 1); // 3630 PSF1(ST,1,W); XD=0 #line 3630 "regression-compile-tmp/nrimp10s-77.imp" PSF1(72, 1, W); #line 3630 "regression-compile-tmp/nrimp10s-77.imp" XD = 0; // 3631 BS=RBASE #line 3631 "regression-compile-tmp/nrimp10s-77.imp" BS = RBASE; // 3632 %FINISH #line 3632 "regression-compile-tmp/nrimp10s-77.imp" L_034a:; // 3633 CANAME(3,0,Q); ! RECORD REL ARRAY ACCESS #line 3633 "regression-compile-tmp/nrimp10s-77.imp" CANAME(3, 0, Q); // 3634 ! CAN RETURN ACCESS=1 OR 3 ONLY // 3635 %IF PARMARR=0=PARMCHK %AND ACCESS=3 %AND (PREC=3 %OR TYPE>=3) %START #line 3635 "regression-compile-tmp/nrimp10s-77.imp" if ((((PARMARR) != (0))) || (((0) != (PARMCHK)))) goto L_034b; #line 3635 "regression-compile-tmp/nrimp10s-77.imp" if (((ACCESS) != (3))) goto L_034b; #line 3635 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) == (3))) goto L_034c; #line 3635 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) < (3))) goto L_034b; #line 3635 "regression-compile-tmp/nrimp10s-77.imp" L_034c:; // 3636 PSORLF1(ADB,0,AREA CODE2(BS),W) #line 3636 "regression-compile-tmp/nrimp10s-77.imp" PSORLF1(32, 0, AREACODE2(BS), W); // 3637 PSF1(ADB,0,XD) %UNLESS XD=0 #line 3637 "regression-compile-tmp/nrimp10s-77.imp" if (((XD) == (0))) goto L_034d; #line 3637 "regression-compile-tmp/nrimp10s-77.imp" PSF1(32, 0, XD); #line 3637 "regression-compile-tmp/nrimp10s-77.imp" L_034d:; // 3638 GRUSE(BREG)=0 #line 3638 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[7] = 0; // 3639 %FINISH %ELSE %START #line 3639 "regression-compile-tmp/nrimp10s-77.imp" goto L_034e; #line 3639 "regression-compile-tmp/nrimp10s-77.imp" L_034b:; // 3640 GET IN ACC(DR,2,0,AREA CODE,Q) #line 3640 "regression-compile-tmp/nrimp10s-77.imp" GETINACC(1, 2, 0, AREACODE(), Q); // 3641 PSORLF1(INCA,0,AREA CODE2(BS),W) #line 3641 "regression-compile-tmp/nrimp10s-77.imp" PSORLF1(20, 0, AREACODE2(BS), W); // 3642 %IF ACCESS=1 %THEN ACCESS=2 %AND AREA=7 %AND XD=XD+NUMMOD*BYTES(PREC) #line 3642 "regression-compile-tmp/nrimp10s-77.imp" if (((ACCESS) != (1))) goto L_034f; #line 3642 "regression-compile-tmp/nrimp10s-77.imp" ACCESS = 2; #line 3642 "regression-compile-tmp/nrimp10s-77.imp" AREA = 7; #line 3642 "regression-compile-tmp/nrimp10s-77.imp" XD = ((XD) + ((int)(((NUMMOD) * ((int)(BYTES[PREC])))))); #line 3642 "regression-compile-tmp/nrimp10s-77.imp" L_034f:; // 3643 PSF1(INCA,0,XD) %UNLESS XD=0 #line 3643 "regression-compile-tmp/nrimp10s-77.imp" if (((XD) == (0))) goto L_0350; #line 3643 "regression-compile-tmp/nrimp10s-77.imp" PSF1(20, 0, XD); #line 3643 "regression-compile-tmp/nrimp10s-77.imp" L_0350:; // 3644 FORGET (DR) #line 3644 "regression-compile-tmp/nrimp10s-77.imp" FORGET(1); // 3645 AREA=7; DISP=0; ! AND ACCESS = 2 OR 3 ONLY #line 3645 "regression-compile-tmp/nrimp10s-77.imp" AREA = 7; #line 3645 "regression-compile-tmp/nrimp10s-77.imp" DISP = 0; // 3646 %IF TYPE=3 %AND A(P)=1 %START; ! WILL BE A FURTHER CALL #line 3646 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (3))) goto L_0351; #line 3646 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (1))) goto L_0351; // 3647 ! ON ROUTINE CENAME // 3648 GET WSP(DISP,2) #line 3648 "regression-compile-tmp/nrimp10s-77.imp" GETWSP(&DISP, 2); // 3649 PSF1(STD,1,DISP) #line 3649 "regression-compile-tmp/nrimp10s-77.imp" PSF1(88, 1, DISP); // 3650 AREA=LNB; BASE=RBASE #line 3650 "regression-compile-tmp/nrimp10s-77.imp" AREA = 2; #line 3650 "regression-compile-tmp/nrimp10s-77.imp" BASE = RBASE; // 3651 %FINISH #line 3651 "regression-compile-tmp/nrimp10s-77.imp" L_0351:; // 3652 %FINISH #line 3652 "regression-compile-tmp/nrimp10s-77.imp" L_034e:; // 3653 %FINISH #line 3653 "regression-compile-tmp/nrimp10s-77.imp" L_0345:; // 3654 %IF TYPE=3 %THEN CENAME(ACCESS,QQ,BASE,AREA,DISP,0) #line 3654 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (3))) goto L_0352; #line 3654 "regression-compile-tmp/nrimp10s-77.imp" CENAME(ACCESS, QQ, BASE, AREA, DISP, 0); #line 3654 "regression-compile-tmp/nrimp10s-77.imp" L_0352:; // 3655 %FINISH #line 3655 "regression-compile-tmp/nrimp10s-77.imp" L_0343:; // 3656 %RETURN #line 3656 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 3657 %ROUTINE FETCH RAD #line 3657 "regression-compile-tmp/nrimp10s-77.imp" void FETCHRAD( void ) #line 3657 "regression-compile-tmp/nrimp10s-77.imp" { // 3658 !*********************************************************************** // 3659 !* SET ACC TO 32 BIT ADDRESS OF RECORD. * // 3660 !*********************************************************************** // 3661 ACCESS=MODE+4 #line 3661 "regression-compile-tmp/nrimp10s-77.imp" ACCESS = (((int)(MODE)) + (4)); // 3662 AREA=AR; BASE=BS #line 3662 "regression-compile-tmp/nrimp10s-77.imp" AREA = AR; #line 3662 "regression-compile-tmp/nrimp10s-77.imp" BASE = BS; // 3663 DISP=DP; XDISP=XD #line 3663 "regression-compile-tmp/nrimp10s-77.imp" DISP = DP; #line 3663 "regression-compile-tmp/nrimp10s-77.imp" XDISP = XD; // 3664 NAMEOP(4,ACCR,4,-1) #line 3664 "regression-compile-tmp/nrimp10s-77.imp" NAMEOP(4, 0, 4, (-1)); // 3665 %END #line 3665 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block FETCHRAD at level 7 // 3666 %ROUTINE LOCALISE(%INTEGER SIZE) #line 3666 "regression-compile-tmp/nrimp10s-77.imp" void LOCALISE( int SIZE ) #line 3666 "regression-compile-tmp/nrimp10s-77.imp" { // 3667 !*********************************************************************** // 3668 !* REMOVES A DESCRIPTOR OR ARRAYHEAD FROM A RECORD AND STORES * // 3669 !* IT IN A TEMPORARY UNDER LNB. * // 3670 !*********************************************************************** // 3671 %INTEGER HOLE #line 3671 "regression-compile-tmp/nrimp10s-77.imp" int HOLE; // 3672 ACCESS=MODE+4 #line 3672 "regression-compile-tmp/nrimp10s-77.imp" ACCESS = (((int)(MODE)) + (4)); // 3673 AREA=AR; BASE=BS; DISP=DP #line 3673 "regression-compile-tmp/nrimp10s-77.imp" AREA = AR; #line 3673 "regression-compile-tmp/nrimp10s-77.imp" BASE = BS; #line 3673 "regression-compile-tmp/nrimp10s-77.imp" DISP = DP; // 3674 XDISP=XD #line 3674 "regression-compile-tmp/nrimp10s-77.imp" XDISP = XD; // 3675 NAMEOP(2,ACCR,SIZE,-1) #line 3675 "regression-compile-tmp/nrimp10s-77.imp" NAMEOP(2, 0, SIZE, (-1)); // 3676 GET WSP(HOLE,SIZE>>2) #line 3676 "regression-compile-tmp/nrimp10s-77.imp" GETWSP(&HOLE, (int)((((unsigned int)(SIZE)) >> (2)))); // 3677 PSF1(ST,1,HOLE) #line 3677 "regression-compile-tmp/nrimp10s-77.imp" PSF1(72, 1, HOLE); // 3678 MODE=2; AREA=LNB #line 3678 "regression-compile-tmp/nrimp10s-77.imp" MODE = 2; #line 3678 "regression-compile-tmp/nrimp10s-77.imp" AREA = 2; // 3679 BASE=RBASE; DISP=HOLE; XD=0 #line 3679 "regression-compile-tmp/nrimp10s-77.imp" BASE = RBASE; #line 3679 "regression-compile-tmp/nrimp10s-77.imp" DISP = HOLE; #line 3679 "regression-compile-tmp/nrimp10s-77.imp" XD = 0; // 3680 %END; ! OF ROUTINE LOCALISE #line 3680 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block LOCALISE at level 7 // 3681 %END; ! OF ROUTINE CENAME #line 3681 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CENAME at level 6 // 3682 %END; ! OF ROUTINE CRNAME #line 3682 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CRNAME at level 5 // 3683 %ROUTINE CSTREXP(%INTEGER MODE,REG) #line 3683 "regression-compile-tmp/nrimp10s-77.imp" void CSTREXP( int MODE, int REG ) #line 3683 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 3702 %INTEGER PP,WKAREA,DOTS,REXP,ERR,CLEN,KEEPWA,FNAM #line 3702 "regression-compile-tmp/nrimp10s-77.imp" int PP; #line 3702 "regression-compile-tmp/nrimp10s-77.imp" int WKAREA; #line 3702 "regression-compile-tmp/nrimp10s-77.imp" int DOTS; #line 3702 "regression-compile-tmp/nrimp10s-77.imp" int REXP; #line 3702 "regression-compile-tmp/nrimp10s-77.imp" int ERR; #line 3702 "regression-compile-tmp/nrimp10s-77.imp" int CLEN; #line 3702 "regression-compile-tmp/nrimp10s-77.imp" int KEEPWA; #line 3702 "regression-compile-tmp/nrimp10s-77.imp" int FNAM; // 3703 %INTEGERFNSPEC STROP(%INTEGER REG) #line 3703 "regression-compile-tmp/nrimp10s-77.imp" auto int STROP( int REG ); // 3704 KEEPWA=MODE&16; MODE=MODE&15 #line 3704 "regression-compile-tmp/nrimp10s-77.imp" KEEPWA = ((MODE) & (16)); #line 3704 "regression-compile-tmp/nrimp10s-77.imp" MODE = ((MODE) & (15)); // 3705 PP=P; STRINGL=0; FNAM=0; WKAREA=0 #line 3705 "regression-compile-tmp/nrimp10s-77.imp" PP = P; #line 3705 "regression-compile-tmp/nrimp10s-77.imp" STRINGL = 0; #line 3705 "regression-compile-tmp/nrimp10s-77.imp" FNAM = 0; #line 3705 "regression-compile-tmp/nrimp10s-77.imp" WKAREA = 0; // 3706 REXP=2-A(P+1+FROM AR2(P+1)); ! =0 %IF ONE OPERAND EXP #line 3706 "regression-compile-tmp/nrimp10s-77.imp" REXP = ((2) - ((int)(A[(((int)((((int)(P)) + (1)))) + (FROMAR2((((int)(P)) + (1)))))]))); // 3707 -> NORMAL %UNLESS A(P+3)=4 %AND REXP=0 %AND MODE=0 #line 3707 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (3))]) != (4))) goto L_0353; #line 3707 "regression-compile-tmp/nrimp10s-77.imp" if (((REXP) != (0))) goto L_0353; #line 3707 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) == (0))) goto L_0354; #line 3707 "regression-compile-tmp/nrimp10s-77.imp" L_0353:; #line 3707 "regression-compile-tmp/nrimp10s-77.imp" goto U_102a; #line 3707 "regression-compile-tmp/nrimp10s-77.imp" L_0354:; // 3708 -> SIMPLE %IF A(P+4)=2 #line 3708 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (4))]) != (2))) goto L_0355; #line 3708 "regression-compile-tmp/nrimp10s-77.imp" goto U_1021; #line 3708 "regression-compile-tmp/nrimp10s-77.imp" L_0355:; // 3709 -> NORMAL %UNLESS A(P+4)=1 #line 3709 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (4))]) == (1))) goto L_0356; #line 3709 "regression-compile-tmp/nrimp10s-77.imp" goto U_102a; #line 3709 "regression-compile-tmp/nrimp10s-77.imp" L_0356:; // 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) // 3714 SIMPLE: P=P+4 #line 3714 "regression-compile-tmp/nrimp10s-77.imp" U_1021:; #line 3714 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (4)); // 3715 ERR=STROP(REG) #line 3715 "regression-compile-tmp/nrimp10s-77.imp" ERR = STROP(REG); // 3716 -> ERROR %UNLESS ERR=0 #line 3716 "regression-compile-tmp/nrimp10s-77.imp" if (((ERR) == (0))) goto L_0357; #line 3716 "regression-compile-tmp/nrimp10s-77.imp" goto U_1022; #line 3716 "regression-compile-tmp/nrimp10s-77.imp" L_0357:; // 3717 VALUE=WKAREA #line 3717 "regression-compile-tmp/nrimp10s-77.imp" VALUE = WKAREA; // 3718 P=P+1; STRFNRES=0 #line 3718 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 3718 "regression-compile-tmp/nrimp10s-77.imp" STRFNRES = 0; // 3719 %RETURN #line 3719 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 3720 ERROR: FAULT2(ERR,0,FNAM) #line 3720 "regression-compile-tmp/nrimp10s-77.imp" U_1022:; #line 3720 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(ERR, 0, FNAM); // 3721 BASE=RBASE; DISP=0 #line 3721 "regression-compile-tmp/nrimp10s-77.imp" BASE = RBASE; #line 3721 "regression-compile-tmp/nrimp10s-77.imp" DISP = 0; // 3722 VALUE=0; ACCESS=0 #line 3722 "regression-compile-tmp/nrimp10s-77.imp" VALUE = 0; #line 3722 "regression-compile-tmp/nrimp10s-77.imp" ACCESS = 0; // 3723 P=PP; SKIP EXP #line 3723 "regression-compile-tmp/nrimp10s-77.imp" P = PP; #line 3723 "regression-compile-tmp/nrimp10s-77.imp" SKIPEXP(); // 3724 %RETURN #line 3724 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 3725 NORMAL: CLEN=0; P=P+3; ! LENGTH OF CONSTANT PART #line 3725 "regression-compile-tmp/nrimp10s-77.imp" U_102a:; #line 3725 "regression-compile-tmp/nrimp10s-77.imp" CLEN = 0; #line 3725 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); // 3726 ERR=72; ->ERROR %UNLESS A(P)=4 #line 3726 "regression-compile-tmp/nrimp10s-77.imp" ERR = 72; #line 3726 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) == (4))) goto L_0358; #line 3726 "regression-compile-tmp/nrimp10s-77.imp" goto U_1022; #line 3726 "regression-compile-tmp/nrimp10s-77.imp" L_0358:; // 3727 P=P+1 #line 3727 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 3728 GET WSP(WKAREA,268); ! GET NEXT OPERAND #line 3728 "regression-compile-tmp/nrimp10s-77.imp" GETWSP(&WKAREA, 268); // 3729 DOTS=0; ! NO OPERATORS YET #line 3729 "regression-compile-tmp/nrimp10s-77.imp" DOTS = 0; // 3730 NEXT: STRINGL=0 #line 3730 "regression-compile-tmp/nrimp10s-77.imp" U_1023:; #line 3730 "regression-compile-tmp/nrimp10s-77.imp" STRINGL = 0; // 3731 ERR=STROP(DR); ! GET NEXT OPERAND #line 3731 "regression-compile-tmp/nrimp10s-77.imp" ERR = STROP(1); // 3732 -> ERROR %UNLESS ERR=0 #line 3732 "regression-compile-tmp/nrimp10s-77.imp" if (((ERR) == (0))) goto L_0359; #line 3732 "regression-compile-tmp/nrimp10s-77.imp" goto U_1022; #line 3732 "regression-compile-tmp/nrimp10s-77.imp" L_0359:; // 3733 %IF REGISTER(ACCR)#0 %THEN BOOT OUT(ACCR) #line 3733 "regression-compile-tmp/nrimp10s-77.imp" if (((REGISTER[0]) == (0))) goto L_035a; #line 3733 "regression-compile-tmp/nrimp10s-77.imp" BOOTOUT(0); #line 3733 "regression-compile-tmp/nrimp10s-77.imp" L_035a:; // 3734 PSF1(LB,0,WKAREA); ! BYTE DISP FROM LNB #line 3734 "regression-compile-tmp/nrimp10s-77.imp" PSF1(122, 0, WKAREA); // 3735 PPJ(0,19+DOTS); ! TO SUBROUTINE 19 OR 20 #line 3735 "regression-compile-tmp/nrimp10s-77.imp" PPJ(0, (((int)(19)) + (DOTS))); // 3736 %IF A(P)=2 %THEN -> TIDY; ! NO MORE OPERATIONS #line 3736 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (2))) goto L_035b; #line 3736 "regression-compile-tmp/nrimp10s-77.imp" goto U_102b; #line 3736 "regression-compile-tmp/nrimp10s-77.imp" L_035b:; // 3737 ERR=72; -> ERROR %UNLESS A(P+1)=CONCOP; ! CONCATENATE #line 3737 "regression-compile-tmp/nrimp10s-77.imp" ERR = 72; #line 3737 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (1))]) == (13))) goto L_035c; #line 3737 "regression-compile-tmp/nrimp10s-77.imp" goto U_1022; #line 3737 "regression-compile-tmp/nrimp10s-77.imp" L_035c:; // 3738 DOTS=DOTS!1 #line 3738 "regression-compile-tmp/nrimp10s-77.imp" DOTS = ((DOTS) | (1)); // 3739 P=P+2; -> NEXT #line 3739 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); #line 3739 "regression-compile-tmp/nrimp10s-77.imp" goto U_1023; // 3740 TIDY: ! FINISH OFF #line 3740 "regression-compile-tmp/nrimp10s-77.imp" U_102b:; // 3741 VALUE=WKAREA #line 3741 "regression-compile-tmp/nrimp10s-77.imp" VALUE = WKAREA; // 3742 P=P+1; ! PAST REST OF EXPRN #line 3742 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 3743 RETURN WSP(WKAREA,268) %IF KEEPWA=0 #line 3743 "regression-compile-tmp/nrimp10s-77.imp" if (((KEEPWA) != (0))) goto L_035d; #line 3743 "regression-compile-tmp/nrimp10s-77.imp" RETURNWSP(WKAREA, 268); #line 3743 "regression-compile-tmp/nrimp10s-77.imp" L_035d:; // 3744 STRINGL=0 #line 3744 "regression-compile-tmp/nrimp10s-77.imp" STRINGL = 0; // 3745 %RETURN #line 3745 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 3746 %INTEGERFN STROP(%INTEGER REG) #line 3746 "regression-compile-tmp/nrimp10s-77.imp" int STROP( int REG ) #line 3746 "regression-compile-tmp/nrimp10s-77.imp" { // 3747 !*********************************************************************** // 3748 !* DEALS WITH OPERAND FOR CONCATENATION. RETURN RESULT=0 FOR * // 3749 !* VALID OPERAND OTHERWISE AN ERROR NUMBER. * // 3750 !*********************************************************************** // 3751 %INTEGER CTYPE,VAL,MODE #line 3751 "regression-compile-tmp/nrimp10s-77.imp" int CTYPE; #line 3751 "regression-compile-tmp/nrimp10s-77.imp" int VAL; #line 3751 "regression-compile-tmp/nrimp10s-77.imp" int MODE; // 3752 MODE=A(P); ! ALTERNATIVE OF OPERAND #line 3752 "regression-compile-tmp/nrimp10s-77.imp" MODE = A[P]; // 3753 %RESULT=75 %IF MODE>2 #line 3753 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) <= (2))) goto L_035e; #line 3753 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return 75; #line 3753 "regression-compile-tmp/nrimp10s-77.imp" L_035e:; // 3754 %IF MODE#1 %THEN %START #line 3754 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) == (1))) goto L_035f; // 3755 CTYPE=A(P+1); ! GET CONST TYPE & LOSE AMCK FLAGS #line 3755 "regression-compile-tmp/nrimp10s-77.imp" CTYPE = A[(((int)(P)) + (1))]; // 3756 %IF CTYPE=16_35 %THEN %START #line 3756 "regression-compile-tmp/nrimp10s-77.imp" if (((CTYPE) != (53))) goto L_0360; // 3757 STRINGL=A(P+6) #line 3757 "regression-compile-tmp/nrimp10s-77.imp" STRINGL = A[(((int)(P)) + (6))]; // 3758 DISP=FROM AR4(P+2) #line 3758 "regression-compile-tmp/nrimp10s-77.imp" DISP = FROMAR4((((int)(P)) + (2))); // 3759 P=P+STRINGL+7 #line 3759 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)((((int)(P)) + (STRINGL)))) + (7)); // 3760 %FINISH %ELSE %RESULT=71 #line 3760 "regression-compile-tmp/nrimp10s-77.imp" goto L_0361; #line 3760 "regression-compile-tmp/nrimp10s-77.imp" L_0360:; #line 3760 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return 71; #line 3760 "regression-compile-tmp/nrimp10s-77.imp" L_0361:; // 3761 PF1(LDRL,0,PC,STRLINK) #line 3761 "regression-compile-tmp/nrimp10s-77.imp" PF1(112, 0, 4, STRLINK); // 3762 PSF1(INCA,0,DISP) %IF DISP#0 #line 3762 "regression-compile-tmp/nrimp10s-77.imp" if (((DISP) == (0))) goto L_0362; #line 3762 "regression-compile-tmp/nrimp10s-77.imp" PSF1(20, 0, DISP); #line 3762 "regression-compile-tmp/nrimp10s-77.imp" L_0362:; // 3763 %IF STRINGL#1 %THEN %START #line 3763 "regression-compile-tmp/nrimp10s-77.imp" if (((STRINGL) == (1))) goto L_0363; // 3764 %IF STRINGL<=63 %THEN PSF1(LDB,0,STRINGL) %ELSE PF1(LDB,2,7,0);! ((DR)) #line 3764 "regression-compile-tmp/nrimp10s-77.imp" if (((STRINGL) > (63))) goto L_0364; #line 3764 "regression-compile-tmp/nrimp10s-77.imp" PSF1(118, 0, STRINGL); #line 3764 "regression-compile-tmp/nrimp10s-77.imp" goto L_0365; #line 3764 "regression-compile-tmp/nrimp10s-77.imp" L_0364:; #line 3764 "regression-compile-tmp/nrimp10s-77.imp" PF1(118, 2, 7, 0); #line 3764 "regression-compile-tmp/nrimp10s-77.imp" L_0365:; // 3765 %FINISH #line 3765 "regression-compile-tmp/nrimp10s-77.imp" L_0363:; // 3766 GRUSE(DR)=0 #line 3766 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[1] = 0; // 3767 %IF REG=ACCR %THEN COPY DR #line 3767 "regression-compile-tmp/nrimp10s-77.imp" if (((REG) != (0))) goto L_0366; #line 3767 "regression-compile-tmp/nrimp10s-77.imp" COPYDR(); #line 3767 "regression-compile-tmp/nrimp10s-77.imp" L_0366:; // 3768 %FINISH %ELSE %START #line 3768 "regression-compile-tmp/nrimp10s-77.imp" goto L_0367; #line 3768 "regression-compile-tmp/nrimp10s-77.imp" L_035f:; // 3769 P=P+1; ! MUST CHECK FIRST #line 3769 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 3770 REDUCE TAG; ! SINCE CNAME ONLY LOADS STRINGS #line 3770 "regression-compile-tmp/nrimp10s-77.imp" REDUCETAG(); // 3771 ! AND LONGINTS TO DR! // 3772 %IF 5#TYPE#7 %THEN FNAM=FROMAR2(P) %AND %RESULT=71 #line 3772 "regression-compile-tmp/nrimp10s-77.imp" if ((((5) == (TYPE))) || (((TYPE) == (7)))) goto L_0368; #line 3772 "regression-compile-tmp/nrimp10s-77.imp" FNAM = FROMAR2(P); #line 3772 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return 71; #line 3772 "regression-compile-tmp/nrimp10s-77.imp" L_0368:; // 3773 CNAME(2,REG) #line 3773 "regression-compile-tmp/nrimp10s-77.imp" CNAME(2, REG); // 3774 STRINGL=0 #line 3774 "regression-compile-tmp/nrimp10s-77.imp" STRINGL = 0; // 3775 %IF ROUT#0 %AND NAM<=1 %START;! WAS FUNCTION NOT MAP #line 3775 "regression-compile-tmp/nrimp10s-77.imp" if (((ROUT) == (0))) goto L_0369; #line 3775 "regression-compile-tmp/nrimp10s-77.imp" if (((NAM) > (1))) goto L_0369; // 3776 %IF WKAREA=0 %AND KEEPWA#0 %THEN WKAREA=STRFNRES %ELSE RETURN WSP(STRFNRES,268) #line 3776 "regression-compile-tmp/nrimp10s-77.imp" if (((WKAREA) != (0))) goto L_036a; #line 3776 "regression-compile-tmp/nrimp10s-77.imp" if (((KEEPWA) == (0))) goto L_036a; #line 3776 "regression-compile-tmp/nrimp10s-77.imp" WKAREA = STRFNRES; #line 3776 "regression-compile-tmp/nrimp10s-77.imp" goto L_036b; #line 3776 "regression-compile-tmp/nrimp10s-77.imp" L_036a:; #line 3776 "regression-compile-tmp/nrimp10s-77.imp" RETURNWSP(STRFNRES, 268); #line 3776 "regression-compile-tmp/nrimp10s-77.imp" L_036b:; // 3777 %FINISH #line 3777 "regression-compile-tmp/nrimp10s-77.imp" L_0369:; // 3778 %FINISH #line 3778 "regression-compile-tmp/nrimp10s-77.imp" L_0367:; // 3779 %RESULT=0 #line 3779 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return 0; // 3780 %END; ! OF INTEGERFN STROP #line 3780 "regression-compile-tmp/nrimp10s-77.imp" } // End of block STROP at level 6 // 3781 %END; ! OF ROUTINE CSTREXP #line 3781 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CSTREXP at level 5 // 3782 %ROUTINE CRES (%INTEGER LAB) #line 3782 "regression-compile-tmp/nrimp10s-77.imp" void CRES( int LAB ) #line 3782 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !********************************************************************** // 3801 %INTEGER P1,P2,SEXPRN,W,LAST,ERR,FNAM #line 3801 "regression-compile-tmp/nrimp10s-77.imp" int P1; #line 3801 "regression-compile-tmp/nrimp10s-77.imp" int P2; #line 3801 "regression-compile-tmp/nrimp10s-77.imp" int SEXPRN; #line 3801 "regression-compile-tmp/nrimp10s-77.imp" int W; #line 3801 "regression-compile-tmp/nrimp10s-77.imp" int LAST; #line 3801 "regression-compile-tmp/nrimp10s-77.imp" int ERR; #line 3801 "regression-compile-tmp/nrimp10s-77.imp" int FNAM; // 3802 %RECORD (RD) R{(RD) #line 3802 "regression-compile-tmp/nrimp10s-77.imp" RD R; // 3803 LAST=0; FNAM=0; ! =1 WHEN END OF EXPRNSN FOUND #line 3803 "regression-compile-tmp/nrimp10s-77.imp" LAST = 0; #line 3803 "regression-compile-tmp/nrimp10s-77.imp" FNAM = 0; // 3804 SEXPRN=0; ! RESOLUTION(BRKTD) EXPRESSNS #line 3804 "regression-compile-tmp/nrimp10s-77.imp" SEXPRN = 0; // 3805 ERR=74; ! NORMAL CRES FAULT #line 3805 "regression-compile-tmp/nrimp10s-77.imp" ERR = 74; // 3806 PSF1(INCA,0,1); ! TO FIRST CHAR #line 3806 "regression-compile-tmp/nrimp10s-77.imp" PSF1(20, 0, 1); // 3807 P1=P; P=P+3 #line 3807 "regression-compile-tmp/nrimp10s-77.imp" P1 = P; #line 3807 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); // 3808 ->RES %IF A(P)=4; ! LHS MUST BE A STRING #line 3808 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (4))) goto L_036c; #line 3808 "regression-compile-tmp/nrimp10s-77.imp" goto U_102c; #line 3808 "regression-compile-tmp/nrimp10s-77.imp" L_036c:; // 3809 ! BUT THIS CHECKED BEFORE CALL // 3810 ERR=72 #line 3810 "regression-compile-tmp/nrimp10s-77.imp" ERR = 72; // 3811 ERROR: FAULT2(ERR,0,FNAM) #line 3811 "regression-compile-tmp/nrimp10s-77.imp" U_102d:; #line 3811 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(ERR, 0, FNAM); // 3812 P=P1; SKIP EXP; %RETURN #line 3812 "regression-compile-tmp/nrimp10s-77.imp" P = P1; #line 3812 "regression-compile-tmp/nrimp10s-77.imp" SKIPEXP(); #line 3812 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 3813 RES: P=P+1; ! TO P(OPERAND) #line 3813 "regression-compile-tmp/nrimp10s-77.imp" U_102c:; #line 3813 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 3814 PSF1(PRCL,0,4) #line 3814 "regression-compile-tmp/nrimp10s-77.imp" PSF1(24, 0, 4); // 3815 %IF SEXPRN=0 %THEN W=STD %ELSE W=ST #line 3815 "regression-compile-tmp/nrimp10s-77.imp" if (((SEXPRN) != (0))) goto L_036d; #line 3815 "regression-compile-tmp/nrimp10s-77.imp" W = 88; #line 3815 "regression-compile-tmp/nrimp10s-77.imp" goto L_036e; #line 3815 "regression-compile-tmp/nrimp10s-77.imp" L_036d:; #line 3815 "regression-compile-tmp/nrimp10s-77.imp" W = 72; #line 3815 "regression-compile-tmp/nrimp10s-77.imp" L_036e:; // 3816 PF1(W,0,TOS,0) #line 3816 "regression-compile-tmp/nrimp10s-77.imp" PF1(W, 0, 6, 0); // 3817 %IF A(P)=3 %THEN PSF1(LSD,0,0) %AND GRUSE(ACCR)=0 %ELSE %START;! B OMITTED #line 3817 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (3))) goto L_036f; #line 3817 "regression-compile-tmp/nrimp10s-77.imp" PSF1(100, 0, 0); #line 3817 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[0] = 0; #line 3817 "regression-compile-tmp/nrimp10s-77.imp" goto L_0370; #line 3817 "regression-compile-tmp/nrimp10s-77.imp" L_036f:; // 3818 ->ERROR %UNLESS A(P)=1; ! P(OPERAND)=NAME #line 3818 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) == (1))) goto L_0371; #line 3818 "regression-compile-tmp/nrimp10s-77.imp" goto U_102d; #line 3818 "regression-compile-tmp/nrimp10s-77.imp" L_0371:; // 3819 P=P+1; P2=P #line 3819 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 3819 "regression-compile-tmp/nrimp10s-77.imp" P2 = P; // 3820 CNAME(3,ACCR) #line 3820 "regression-compile-tmp/nrimp10s-77.imp" CNAME(3, 0); // 3821 %IF TYPE#5 %THEN ERR=71 %AND FNAM=FROMAR2(P2) %AND ->ERROR #line 3821 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) == (5))) goto L_0372; #line 3821 "regression-compile-tmp/nrimp10s-77.imp" ERR = 71; #line 3821 "regression-compile-tmp/nrimp10s-77.imp" FNAM = FROMAR2(P2); #line 3821 "regression-compile-tmp/nrimp10s-77.imp" goto U_102d; #line 3821 "regression-compile-tmp/nrimp10s-77.imp" L_0372:; // 3822 %IF A(P+1)#CONCOP %THEN ERR=72 %AND ->ERROR #line 3822 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (1))]) == (13))) goto L_0373; #line 3822 "regression-compile-tmp/nrimp10s-77.imp" ERR = 72; #line 3822 "regression-compile-tmp/nrimp10s-77.imp" goto U_102d; #line 3822 "regression-compile-tmp/nrimp10s-77.imp" L_0373:; // 3823 P=P+2 #line 3823 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 3824 %FINISH #line 3824 "regression-compile-tmp/nrimp10s-77.imp" L_0370:; // 3825 PF1(ST,0,TOS,0); ! B (OR DUMMY) TO P2 #line 3825 "regression-compile-tmp/nrimp10s-77.imp" PF1(72, 0, 6, 0); // 3826 ->ERROR %UNLESS A(P)=3; ! P(OPERAND)='('(EXPR)')' #line 3826 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) == (3))) goto L_0374; #line 3826 "regression-compile-tmp/nrimp10s-77.imp" goto U_102d; #line 3826 "regression-compile-tmp/nrimp10s-77.imp" L_0374:; // 3827 SEXPRN=SEXPRN+1; P=P+1 #line 3827 "regression-compile-tmp/nrimp10s-77.imp" SEXPRN = (((int)(SEXPRN)) + (1)); #line 3827 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 3828 CSTREXP(0,DR); ! TO REGISTER DR #line 3828 "regression-compile-tmp/nrimp10s-77.imp" CSTREXP(0, 1); // 3829 ! // 3830 PF1(STD,0,TOS,0) #line 3830 "regression-compile-tmp/nrimp10s-77.imp" PF1(88, 0, 6, 0); // 3831 PSF1(RALN,0,11) #line 3831 "regression-compile-tmp/nrimp10s-77.imp" PSF1(108, 0, 11); // 3832 PPJ(-1,16) #line 3832 "regression-compile-tmp/nrimp10s-77.imp" PPJ((-1), 16); // 3833 ! DEAL WITH CC#8 IE RESLN FAILED // 3834 %IF LAB#0 %THEN ENTER JUMP(7,LAB,B'11') %ELSE PPJ(7,12) #line 3834 "regression-compile-tmp/nrimp10s-77.imp" if (((LAB) == (0))) goto L_0375; #line 3834 "regression-compile-tmp/nrimp10s-77.imp" ENTERJUMP(7, LAB, 3); #line 3834 "regression-compile-tmp/nrimp10s-77.imp" goto L_0376; #line 3834 "regression-compile-tmp/nrimp10s-77.imp" L_0375:; #line 3834 "regression-compile-tmp/nrimp10s-77.imp" PPJ(7, 12); #line 3834 "regression-compile-tmp/nrimp10s-77.imp" L_0376:; // 3835 ! // 3836 -> END %IF A(P)=2 #line 3836 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (2))) goto L_0377; #line 3836 "regression-compile-tmp/nrimp10s-77.imp" goto U_102a; #line 3836 "regression-compile-tmp/nrimp10s-77.imp" L_0377:; // 3837 %IF A(P+1)#CONCOP %THEN ERR=72 %AND ->ERROR #line 3837 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (1))]) == (13))) goto L_0378; #line 3837 "regression-compile-tmp/nrimp10s-77.imp" ERR = 72; #line 3837 "regression-compile-tmp/nrimp10s-77.imp" goto U_102d; #line 3837 "regression-compile-tmp/nrimp10s-77.imp" L_0378:; // 3838 ->ERROR %UNLESS A(P+2)=1 #line 3838 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (2))]) == (1))) goto L_0379; #line 3838 "regression-compile-tmp/nrimp10s-77.imp" goto U_102d; #line 3838 "regression-compile-tmp/nrimp10s-77.imp" L_0379:; // 3839 P2=P+1; P=P2+1 #line 3839 "regression-compile-tmp/nrimp10s-77.imp" P2 = (((int)(P)) + (1)); #line 3839 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P2)) + (1)); // 3840 P=P+3 %AND SKIP APP %UNTIL A(P)=2 #line 3840 "regression-compile-tmp/nrimp10s-77.imp" L_037a:; #line 3840 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); #line 3840 "regression-compile-tmp/nrimp10s-77.imp" SKIPAPP(); #line 3840 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) == (2))) goto L_037b; #line 3840 "regression-compile-tmp/nrimp10s-77.imp" goto L_037a; #line 3840 "regression-compile-tmp/nrimp10s-77.imp" L_037b:; // 3841 %IF A(P+1)=1 %THEN P=P2 %AND ->RES #line 3841 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (1))]) != (1))) goto L_037d; #line 3841 "regression-compile-tmp/nrimp10s-77.imp" P = P2; #line 3841 "regression-compile-tmp/nrimp10s-77.imp" goto U_102c; #line 3841 "regression-compile-tmp/nrimp10s-77.imp" L_037d:; // 3842 P1=P+1 #line 3842 "regression-compile-tmp/nrimp10s-77.imp" P1 = (((int)(P)) + (1)); // 3843 REGISTER(ACCR)=1 #line 3843 "regression-compile-tmp/nrimp10s-77.imp" REGISTER[0] = 1; // 3844 OLINK(ACCR)=ADDR(R) #line 3844 "regression-compile-tmp/nrimp10s-77.imp" OLINK[0] = _imp_ADDR(&R); // 3845 R_PTYPE=1; R_XB=ACCR #line 3845 "regression-compile-tmp/nrimp10s-77.imp" R.PTYPE = 1; #line 3845 "regression-compile-tmp/nrimp10s-77.imp" R.XB = 0; // 3846 R_FLAG=9 #line 3846 "regression-compile-tmp/nrimp10s-77.imp" R.FLAG = 9; // 3847 P=P2+2; CNAME(1,DR) #line 3847 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P2)) + (2)); #line 3847 "regression-compile-tmp/nrimp10s-77.imp" CNAME(1, 1); // 3848 %IF R_FLAG#9 %THEN PF1(LSD,0,TOS,0) #line 3848 "regression-compile-tmp/nrimp10s-77.imp" if (((R.FLAG) == (9))) goto L_037e; #line 3848 "regression-compile-tmp/nrimp10s-77.imp" PF1(100, 0, 6, 0); #line 3848 "regression-compile-tmp/nrimp10s-77.imp" L_037e:; // 3849 REGISTER(ACCR)=0 #line 3849 "regression-compile-tmp/nrimp10s-77.imp" REGISTER[0] = 0; // 3850 PF1(STUH,0,BREG,0) #line 3850 "regression-compile-tmp/nrimp10s-77.imp" PF1(74, 0, 7, 0); // 3851 PF1(LUH,0,BREG,0) #line 3851 "regression-compile-tmp/nrimp10s-77.imp" PF1(106, 0, 7, 0); // 3852 PF2(MVL,0,0,0,0,0) #line 3852 "regression-compile-tmp/nrimp10s-77.imp" PF2(176, 0, 0, 0, 0, 0); // 3853 %IF ROUT#0 %OR NAM#0 %THEN PPJ(0,18);! ASSNMNT CHECK (Q.V) #line 3853 "regression-compile-tmp/nrimp10s-77.imp" if (((ROUT) != (0))) goto L_037c; #line 3853 "regression-compile-tmp/nrimp10s-77.imp" if (((NAM) == (0))) goto L_037f; #line 3853 "regression-compile-tmp/nrimp10s-77.imp" L_037c:; #line 3853 "regression-compile-tmp/nrimp10s-77.imp" PPJ(0, 18); #line 3853 "regression-compile-tmp/nrimp10s-77.imp" L_037f:; // 3854 PF2(MV,1,1,0,0,UNASSPAT&255) #line 3854 "regression-compile-tmp/nrimp10s-77.imp" PF2(178, 1, 1, 0, 0, (((-2122219135)) & (255))); // 3855 GRUSE(ACCR)=0 #line 3855 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[0] = 0; // 3856 %IF PARMARR=1 %START #line 3856 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMARR) != (1))) goto L_0380; // 3857 PSF1(USH,0,8) #line 3857 "regression-compile-tmp/nrimp10s-77.imp" PSF1(200, 0, 8); // 3858 PSF1(USH,0,-40) #line 3858 "regression-compile-tmp/nrimp10s-77.imp" PSF1(200, 0, (-40)); // 3859 PPJ(36,9) #line 3859 "regression-compile-tmp/nrimp10s-77.imp" PPJ(36, 9); // 3860 %FINISH #line 3860 "regression-compile-tmp/nrimp10s-77.imp" L_0380:; // 3861 P=P1 #line 3861 "regression-compile-tmp/nrimp10s-77.imp" P = P1; // 3862 END: #line 3862 "regression-compile-tmp/nrimp10s-77.imp" U_102a:; // 3863 P=P+1 #line 3863 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 3864 %END #line 3864 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CRES at level 5 // 3865 %ROUTINE SAVE AUX STACK #line 3865 "regression-compile-tmp/nrimp10s-77.imp" void SAVEAUXSTACK( void ) #line 3865 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 3875 %INTEGER XYNB, DR0, DR1 #line 3875 "regression-compile-tmp/nrimp10s-77.imp" int XYNB; #line 3875 "regression-compile-tmp/nrimp10s-77.imp" int DR0; #line 3875 "regression-compile-tmp/nrimp10s-77.imp" int DR1; // 3876 %IF AUXST=0 %THEN %START; ! FIRST REF PUT REF IN PLT #line 3876 "regression-compile-tmp/nrimp10s-77.imp" if (((AUXST) != (0))) goto L_0381; // 3877 DR0=16_30000001; DR1=0 #line 3877 "regression-compile-tmp/nrimp10s-77.imp" DR0 = 805306369; #line 3877 "regression-compile-tmp/nrimp10s-77.imp" DR1 = 0; // 3878 PGLA(8,8,ADDR(DR0)) #line 3878 "regression-compile-tmp/nrimp10s-77.imp" PGLA(8, 8, _imp_ADDR(&DR0)); // 3879 AUXST=GLACA-8 #line 3879 "regression-compile-tmp/nrimp10s-77.imp" AUXST = (((int)(GLACA)) - (8)); // 3880 GXREF(AUXSTEP,2,16_02000008,AUXST+4) #line 3880 "regression-compile-tmp/nrimp10s-77.imp" GXREF(AUXSTEP, 2, 33554440, (((int)(AUXST)) + (4))); // 3881 %FINISH #line 3881 "regression-compile-tmp/nrimp10s-77.imp" L_0381:; // 3882 %IF AUXSBASE(LEVEL)=0 %START #line 3882 "regression-compile-tmp/nrimp10s-77.imp" if (((AUXSBASE[LEVEL]) != (0))) goto L_0382; // 3883 XYNB=SET XORYNB(-1,-1) #line 3883 "regression-compile-tmp/nrimp10s-77.imp" XYNB = SETXORYNB((-1), (-1)); // 3884 PF1(LD,2,XYNB,AUXST) #line 3884 "regression-compile-tmp/nrimp10s-77.imp" PF1(120, 2, XYNB, AUXST); // 3885 %IF PARMOPT#0 %THEN %START #line 3885 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMOPT) == (0))) goto L_0383; // 3886 PF1(LSS,1,0,2); ! PICK UP STACKTOP #line 3886 "regression-compile-tmp/nrimp10s-77.imp" PF1(98, 1, 0, 2); // 3887 PSF1(ST,1,N+16) #line 3887 "regression-compile-tmp/nrimp10s-77.imp" PSF1(72, 1, (((int)(N)) + (16))); // 3888 %FINISH #line 3888 "regression-compile-tmp/nrimp10s-77.imp" L_0383:; // 3889 PF1(LSS,2,7,0) #line 3889 "regression-compile-tmp/nrimp10s-77.imp" PF1(98, 2, 7, 0); // 3890 PSF1(STD,1,N) #line 3890 "regression-compile-tmp/nrimp10s-77.imp" PSF1(88, 1, N); // 3891 PSF1(ST,1,N+8) #line 3891 "regression-compile-tmp/nrimp10s-77.imp" PSF1(72, 1, (((int)(N)) + (8))); // 3892 AUXSBASE(LEVEL)=N; N=N+16 #line 3892 "regression-compile-tmp/nrimp10s-77.imp" AUXSBASE[LEVEL] = N; #line 3892 "regression-compile-tmp/nrimp10s-77.imp" N = (((int)(N)) + (16)); // 3893 %IF PARMOPT#0 %THEN N=N+4 #line 3893 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMOPT) == (0))) goto L_0384; #line 3893 "regression-compile-tmp/nrimp10s-77.imp" N = (((int)(N)) + (4)); #line 3893 "regression-compile-tmp/nrimp10s-77.imp" L_0384:; // 3894 GRUSE(DR)=0; GRUSE(ACCR)=11; GRINF1(ACCR)=0 #line 3894 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[1] = 0; #line 3894 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[0] = 11; #line 3894 "regression-compile-tmp/nrimp10s-77.imp" GRINF1[0] = 0; // 3895 %FINISH #line 3895 "regression-compile-tmp/nrimp10s-77.imp" L_0382:; // 3896 %END #line 3896 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SAVEAUXSTACK at level 5 // 3897 %ROUTINE RESET AUX STACK #line 3897 "regression-compile-tmp/nrimp10s-77.imp" void RESETAUXSTACK( void ) #line 3897 "regression-compile-tmp/nrimp10s-77.imp" { // 3898 !*********************************************************************** // 3899 !* IF ANY ARRAYS HAVE BEEN PUT ON THE AUXSTACK THEN UNDECLARE * // 3900 !*********************************************************************** // 3901 %IF AUXSBASE(LEVEL)#0 %START #line 3901 "regression-compile-tmp/nrimp10s-77.imp" if (((AUXSBASE[LEVEL]) == (0))) goto L_0385; // 3902 PSF1(LB,1,AUXSBASE(LEVEL)+8) #line 3902 "regression-compile-tmp/nrimp10s-77.imp" PSF1(122, 1, (((int)(AUXSBASE[LEVEL])) + (8))); // 3903 PSF1(STB,2,AUXSBASE(LEVEL)) #line 3903 "regression-compile-tmp/nrimp10s-77.imp" PSF1(90, 2, AUXSBASE[LEVEL]); // 3904 GRUSE(BREG)=0 #line 3904 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[7] = 0; // 3905 %FINISH #line 3905 "regression-compile-tmp/nrimp10s-77.imp" L_0385:; // 3906 %END #line 3906 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block RESETAUXSTACK at level 5 // 3907 %ROUTINE RT EXIT #line 3907 "regression-compile-tmp/nrimp10s-77.imp" void RTEXIT( void ) #line 3907 "regression-compile-tmp/nrimp10s-77.imp" { // 3908 !*********************************************************************** // 3909 !* THIS ROUTINE COMPILES CODE FOR ROUTINE EXIT(IE '%RETURN') * // 3910 !*********************************************************************** // 3911 RESET AUX STACK #line 3911 "regression-compile-tmp/nrimp10s-77.imp" RESETAUXSTACK(); // 3912 PSF1(EXIT,0,-16_40) #line 3912 "regression-compile-tmp/nrimp10s-77.imp" PSF1(56, 0, (-64)); // 3913 %END #line 3913 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block RTEXIT at level 5 // 3914 %ROUTINE CLAIM ST FRAME(%INTEGER AT,VALUE) #line 3914 "regression-compile-tmp/nrimp10s-77.imp" void CLAIMSTFRAME( int AT, int VALUE ) #line 3914 "regression-compile-tmp/nrimp10s-77.imp" { // 3915 !*********************************************************************** // 3916 !* FILL ASF INSTN IN RT ENTRY SEQUENCE TO CLAIM THE STACKFRAME * // 3917 !*********************************************************************** // 3918 %INTEGER INSTR, WK #line 3918 "regression-compile-tmp/nrimp10s-77.imp" int INSTR; #line 3918 "regression-compile-tmp/nrimp10s-77.imp" int WK; // 3919 WK=AT>>18; ! BYTES CLAIMED BY ENTRY SEQ #line 3919 "regression-compile-tmp/nrimp10s-77.imp" WK = (int)((((unsigned int)(AT)) >> (18))); // 3920 AT=AT&16_3FFFF; ! ADRR OF ASF INSTRN #line 3920 "regression-compile-tmp/nrimp10s-77.imp" AT = ((AT) & (262143)); // 3921 INSTR=(ASF+12*PARMCHK)<<24!3<<23!(VALUE-WK+3)>>2 #line 3921 "regression-compile-tmp/nrimp10s-77.imp" INSTR = ((((((((110) + ((int)((((int)(12)) * (PARMCHK)))))) << (24))) | (((3) << (23))))) | ((((((((int)((((int)(VALUE)) - (WK)))) + (3)))) >> (2))))); // 3922 PLUG(1,AT,INSTR,4) #line 3922 "regression-compile-tmp/nrimp10s-77.imp" PLUG(1, AT, INSTR, 4); // 3923 %END #line 3923 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CLAIMSTFRAME at level 5 // 3924 %ROUTINE CEND (%INTEGER KKK) #line 3924 "regression-compile-tmp/nrimp10s-77.imp" void CEND( int KKK ) #line 3924 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 3935 %INTEGER KP,JJ,BIT #line 3935 "regression-compile-tmp/nrimp10s-77.imp" int KP; #line 3935 "regression-compile-tmp/nrimp10s-77.imp" int JJ; #line 3935 "regression-compile-tmp/nrimp10s-77.imp" int BIT; // 3936 %ROUTINESPEC DTABLE(%INTEGER LEVEL) #line 3936 "regression-compile-tmp/nrimp10s-77.imp" auto void DTABLE( int LEVEL ); // 3937 SET LINE %UNLESS KKK=2 #line 3937 "regression-compile-tmp/nrimp10s-77.imp" if (((KKK) == (2))) goto L_0386; #line 3937 "regression-compile-tmp/nrimp10s-77.imp" SETLINE(); #line 3937 "regression-compile-tmp/nrimp10s-77.imp" L_0386:; // 3938 FORGET(-1) #line 3938 "regression-compile-tmp/nrimp10s-77.imp" FORGET((-1)); // 3939 BIT=1<16_1000 %AND COMPILER=0 %AND LAST INST=0 %THEN PPJ(15,10); ! RUN FAULT 11 #line 3944 "regression-compile-tmp/nrimp10s-77.imp" if (((((KKK) & (16383))) <= (4096))) goto L_0387; #line 3944 "regression-compile-tmp/nrimp10s-77.imp" if (((COMPILER) != (0))) goto L_0387; #line 3944 "regression-compile-tmp/nrimp10s-77.imp" if (((LASTINST) != (0))) goto L_0387; #line 3944 "regression-compile-tmp/nrimp10s-77.imp" PPJ(15, 10); #line 3944 "regression-compile-tmp/nrimp10s-77.imp" L_0387:; // 3945 NMAX=N %IF N>NMAX; ! WORK SPACE POINTER #line 3945 "regression-compile-tmp/nrimp10s-77.imp" if (((N) <= (NMAX))) goto L_0388; #line 3945 "regression-compile-tmp/nrimp10s-77.imp" NMAX = N; #line 3945 "regression-compile-tmp/nrimp10s-77.imp" L_0388:; // 3946 ! // 3947 ! CLEAR OUT THE LABEL LIST FAULTING LABELS WITH JUMPS OUTSTANDING // 3948 ! AS NOT SET AND COMMENTING ON LABELS NOT USED // 3949 ! // 3950 %WHILE LABEL(LEVEL)#0 %CYCLE #line 3950 "regression-compile-tmp/nrimp10s-77.imp" L_0389:; #line 3950 "regression-compile-tmp/nrimp10s-77.imp" if (((LABEL[LEVEL]) == (0))) goto L_038a; // 3951 POP(LABEL(LEVEL),I,J,KP) #line 3951 "regression-compile-tmp/nrimp10s-77.imp" POP(&LABEL[LEVEL], &I, &J, &KP); // 3952 I=I>>24 #line 3952 "regression-compile-tmp/nrimp10s-77.imp" I = (int)((((unsigned int)(I)) >> (24))); // 3953 %IF J&16_FFFF#0 %THEN %START #line 3953 "regression-compile-tmp/nrimp10s-77.imp" if (((((J) & (65535))) == (0))) goto L_038c; // 3954 J=J&16_FFFF #line 3954 "regression-compile-tmp/nrimp10s-77.imp" J = ((J) & (65535)); // 3955 %IF 0= (KP))) || (((KP) > (MAXULAB)))) goto L_038d; #line 3955 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(11, FROM3(J), KP); #line 3955 "regression-compile-tmp/nrimp10s-77.imp" L_038d:; // 3956 CLEAR LIST(J) #line 3956 "regression-compile-tmp/nrimp10s-77.imp" CLEARLIST(&J); // 3957 %FINISH %ELSE %START #line 3957 "regression-compile-tmp/nrimp10s-77.imp" goto L_038e; #line 3957 "regression-compile-tmp/nrimp10s-77.imp" L_038c:; // 3958 %IF I=0 %AND KP= (MAXULAB))) goto L_038f; #line 3958 "regression-compile-tmp/nrimp10s-77.imp" WARN(3, KP); #line 3958 "regression-compile-tmp/nrimp10s-77.imp" L_038f:; // 3959 %FINISH #line 3959 "regression-compile-tmp/nrimp10s-77.imp" L_038e:; // 3960 %REPEAT #line 3960 "regression-compile-tmp/nrimp10s-77.imp" goto L_0389; #line 3960 "regression-compile-tmp/nrimp10s-77.imp" L_038a:; // 3961 ! // 3962 %CYCLE JJ=0,1,4 #line 3962 "regression-compile-tmp/nrimp10s-77.imp" JJ = (-1); if ((((4)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 0, 1, 4"); L_0390:; if (JJ == 4) goto L_0391; JJ += 1; // 3963 CLEAR LIST(AVL WSP(JJ,LEVEL));! RELEASE TEMPORARY LOCATIONS #line 3963 "regression-compile-tmp/nrimp10s-77.imp" CLEARLIST(&AVLWSP[JJ][LEVEL]); // 3964 %REPEAT #line 3964 "regression-compile-tmp/nrimp10s-77.imp" goto L_0390; #line 3964 "regression-compile-tmp/nrimp10s-77.imp" L_0391:; // 3965 ! // 3966 DTABLE(LEVEL); ! OUTPUT DIAGNOSTIC TABLES #line 3966 "regression-compile-tmp/nrimp10s-77.imp" DTABLE(LEVEL); // 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 ! // 3974 NMAX=(NMAX+7)&(-8) #line 3974 "regression-compile-tmp/nrimp10s-77.imp" NMAX = (((((int)(NMAX)) + (7))) & ((-8))); // 3975 %IF KKK=2 %THEN %RETURN #line 3975 "regression-compile-tmp/nrimp10s-77.imp" if (((KKK) != (2))) goto L_0393; #line 3975 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 3975 "regression-compile-tmp/nrimp10s-77.imp" L_0393:; // 3976 %IF KKK>=16_1000 %OR KKK=1 %THEN CLAIM ST FRAME(SET(RLEVEL),NMAX) #line 3976 "regression-compile-tmp/nrimp10s-77.imp" if (((KKK) >= (4096))) goto L_0392; #line 3976 "regression-compile-tmp/nrimp10s-77.imp" if (((KKK) != (1))) goto L_0394; #line 3976 "regression-compile-tmp/nrimp10s-77.imp" L_0392:; #line 3976 "regression-compile-tmp/nrimp10s-77.imp" CLAIMSTFRAME(SET[RLEVEL], NMAX); #line 3976 "regression-compile-tmp/nrimp10s-77.imp" L_0394:; // 3977 ! // 3978 ! NOW PLANT THE BLOCK EXIT SEQUENCE // 3979 ! // 3980 %IF KKK&16_3FFF=16_1000 %AND LAST INST=0 %THEN RT EXIT #line 3980 "regression-compile-tmp/nrimp10s-77.imp" if (((((KKK) & (16383))) != (4096))) goto L_0395; #line 3980 "regression-compile-tmp/nrimp10s-77.imp" if (((LASTINST) != (0))) goto L_0395; #line 3980 "regression-compile-tmp/nrimp10s-77.imp" RTEXIT(); #line 3980 "regression-compile-tmp/nrimp10s-77.imp" L_0395:; // 3981 PPJ(15,21) %IF KKK=1 %AND LAST INST=0;! %STOP AT %ENDOFPROGRAM #line 3981 "regression-compile-tmp/nrimp10s-77.imp" if (((KKK) != (1))) goto L_0396; #line 3981 "regression-compile-tmp/nrimp10s-77.imp" if (((LASTINST) != (0))) goto L_0396; #line 3981 "regression-compile-tmp/nrimp10s-77.imp" PPJ(15, 21); #line 3981 "regression-compile-tmp/nrimp10s-77.imp" L_0396:; // 3982 %IF KKK=0 %THEN %START; ! BEGIN BLOCK EXIT #line 3982 "regression-compile-tmp/nrimp10s-77.imp" if (((KKK) != (0))) goto L_0397; // 3983 %IF PARMTRACE=1 %THEN %START; ! RESTORE DIAGS POINTERS #line 3983 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMTRACE) != (1))) goto L_0398; // 3984 PSF1(LD,1,12) #line 3984 "regression-compile-tmp/nrimp10s-77.imp" PSF1(120, 1, 12); // 3985 DIAG POINTER(LEVEL-1) #line 3985 "regression-compile-tmp/nrimp10s-77.imp" DIAGPOINTER((((int)(LEVEL)) - (1))); // 3986 PSF1(STD,1,12) #line 3986 "regression-compile-tmp/nrimp10s-77.imp" PSF1(88, 1, 12); // 3987 %FINISH #line 3987 "regression-compile-tmp/nrimp10s-77.imp" L_0398:; // 3988 %IF STACK#0 %START #line 3988 "regression-compile-tmp/nrimp10s-77.imp" if (((STACK) == (0))) goto L_0399; // 3989 JJ=NMDECS(LEVEL)>>14 #line 3989 "regression-compile-tmp/nrimp10s-77.imp" JJ = (int)((((unsigned int)(NMDECS[LEVEL])) >> (14))); // 3990 %IF JJ#0 %THEN %START; ! ARRAYS TO BE UNDECLARED #line 3990 "regression-compile-tmp/nrimp10s-77.imp" if (((JJ) == (0))) goto L_039a; // 3991 PF1(STSF,0,TOS,0) #line 3991 "regression-compile-tmp/nrimp10s-77.imp" PF1(94, 0, 6, 0); // 3992 PF1(LSS,0,TOS,0) #line 3992 "regression-compile-tmp/nrimp10s-77.imp" PF1(98, 0, 6, 0); // 3993 PSF1(ISB,1,JJ) #line 3993 "regression-compile-tmp/nrimp10s-77.imp" PSF1(226, 1, JJ); // 3994 PSF1(USH,0,-2) #line 3994 "regression-compile-tmp/nrimp10s-77.imp" PSF1(200, 0, (-2)); // 3995 PF1(ST,0,TOS,0) #line 3995 "regression-compile-tmp/nrimp10s-77.imp" PF1(72, 0, 6, 0); // 3996 PF1(ASF,0,TOS,0) #line 3996 "regression-compile-tmp/nrimp10s-77.imp" PF1(110, 0, 6, 0); // 3997 GRUSE(ACCR)=0 #line 3997 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[0] = 0; // 3998 %FINISH #line 3998 "regression-compile-tmp/nrimp10s-77.imp" L_039a:; // 3999 %FINISH %ELSE RESET AUX STACK #line 3999 "regression-compile-tmp/nrimp10s-77.imp" goto L_039b; #line 3999 "regression-compile-tmp/nrimp10s-77.imp" L_0399:; #line 3999 "regression-compile-tmp/nrimp10s-77.imp" RESETAUXSTACK(); #line 3999 "regression-compile-tmp/nrimp10s-77.imp" L_039b:; // 4000 %FINISH #line 4000 "regression-compile-tmp/nrimp10s-77.imp" L_0397:; // 4001 ! // 4002 ! RETURN TO PREVIOUS LEVEL PROVIDED THERE IS A VALID ONE ! // 4003 ! // 4004 %UNLESS LEVEL>2 %OR (LEVEL=2 %AND CPRMODE=2) %THEN %START #line 4004 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) > (2))) goto L_039c; #line 4004 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) != (2))) goto L_039d; #line 4004 "regression-compile-tmp/nrimp10s-77.imp" if (((CPRMODE) == (2))) goto L_039c; #line 4004 "regression-compile-tmp/nrimp10s-77.imp" L_039d:; // 4005 %IF KKK=1 %AND LEVEL=2 %THEN KKK=2 %ELSE FAULT(14,0) %AND %STOP #line 4005 "regression-compile-tmp/nrimp10s-77.imp" if (((KKK) != (1))) goto L_039e; #line 4005 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) != (2))) goto L_039e; #line 4005 "regression-compile-tmp/nrimp10s-77.imp" KKK = 2; #line 4005 "regression-compile-tmp/nrimp10s-77.imp" goto L_039f; #line 4005 "regression-compile-tmp/nrimp10s-77.imp" L_039e:; #line 4005 "regression-compile-tmp/nrimp10s-77.imp" FAULT(14, 0); #line 4005 "regression-compile-tmp/nrimp10s-77.imp" exit(0); #line 4005 "regression-compile-tmp/nrimp10s-77.imp" L_039f:; // 4006 %FINISH #line 4006 "regression-compile-tmp/nrimp10s-77.imp" L_039c:; // 4007 LEVEL=LEVEL-1 #line 4007 "regression-compile-tmp/nrimp10s-77.imp" LEVEL = (((int)(LEVEL)) - (1)); // 4008 %IF KKK>=16_1000 %THEN %START #line 4008 "regression-compile-tmp/nrimp10s-77.imp" if (((KKK) < (4096))) goto L_03a0; // 4009 RLEVEL=RLEVEL-1 #line 4009 "regression-compile-tmp/nrimp10s-77.imp" RLEVEL = (((int)(RLEVEL)) - (1)); // 4010 RBASE=RLEVEL #line 4010 "regression-compile-tmp/nrimp10s-77.imp" RBASE = RLEVEL; // 4011 %FINISH #line 4011 "regression-compile-tmp/nrimp10s-77.imp" L_03a0:; // 4012 ! // 4013 ! RESTORE INFORMATION ABOUT THE (NEW) CURRENT LEVEL // 4014 ! // 4015 POP(LEVELINF,KP,N,KP) #line 4015 "regression-compile-tmp/nrimp10s-77.imp" POP(&LEVELINF, &KP, &N, &KP); // 4016 NMAX=N>>16 %IF KKK>=16_1000 #line 4016 "regression-compile-tmp/nrimp10s-77.imp" if (((KKK) < (4096))) goto L_03a1; #line 4016 "regression-compile-tmp/nrimp10s-77.imp" NMAX = (int)((((unsigned int)(N)) >> (16))); #line 4016 "regression-compile-tmp/nrimp10s-77.imp" L_03a1:; // 4017 N=N&16_7FFF #line 4017 "regression-compile-tmp/nrimp10s-77.imp" N = ((N) & (32767)); // 4018 %IF KKK=2 %THEN CEND(KKK); ! ROUND AGAIN FOR 'ENDOFPROGRAM' #line 4018 "regression-compile-tmp/nrimp10s-77.imp" if (((KKK) != (2))) goto L_03a2; #line 4018 "regression-compile-tmp/nrimp10s-77.imp" CEND(KKK); #line 4018 "regression-compile-tmp/nrimp10s-77.imp" L_03a2:; // 4019 ! // 4020 ! COMPLETE THE JUMP AROUND ALL NON-EXTERNAL ROUTINES EXCEPT WHEN // 4021 ! %TRUSTEDPROGRAM IS IN OPERATION. // 4022 ! // 4023 %IF ASL WARN#0 %THEN ASL WARN=0 %AND EPILOGUE #line 4023 "regression-compile-tmp/nrimp10s-77.imp" if (((ASLWARN) == (0))) goto L_03a3; #line 4023 "regression-compile-tmp/nrimp10s-77.imp" ASLWARN = 0; #line 4023 "regression-compile-tmp/nrimp10s-77.imp" EPILOGUE(); #line 4023 "regression-compile-tmp/nrimp10s-77.imp" L_03a3:; // 4024 %IF KKK>=16_1000 %AND COMPILER=0 %AND(RLEVEL>0 %OR CPRMODE#2) %THEN %START #line 4024 "regression-compile-tmp/nrimp10s-77.imp" if (((KKK) < (4096))) goto L_03a4; #line 4024 "regression-compile-tmp/nrimp10s-77.imp" if (((COMPILER) != (0))) goto L_03a4; #line 4024 "regression-compile-tmp/nrimp10s-77.imp" if (((RLEVEL) > (0))) goto L_03a5; #line 4024 "regression-compile-tmp/nrimp10s-77.imp" if (((CPRMODE) == (2))) goto L_03a4; #line 4024 "regression-compile-tmp/nrimp10s-77.imp" L_03a5:; // 4025 JJ=NEXTP+6 #line 4025 "regression-compile-tmp/nrimp10s-77.imp" JJ = (((int)(NEXTP)) + (6)); // 4026 %UNLESS A(NEXTP+5)=11 %AND A(JJ+FROMAR2(JJ))=2 %START #line 4026 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(NEXTP)) + (5))]) != (11))) goto L_03a6; #line 4026 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(JJ)) + (FROMAR2(JJ)))]) == (2))) goto L_03a7; #line 4026 "regression-compile-tmp/nrimp10s-77.imp" L_03a6:; // 4027 JJ=ENTER LAB(JROUND(LEVEL+1),0) #line 4027 "regression-compile-tmp/nrimp10s-77.imp" JJ = ENTERLAB(JROUND[(((int)(LEVEL)) + (1))], 0); // 4028 JROUND(LEVEL+1)=0 #line 4028 "regression-compile-tmp/nrimp10s-77.imp" JROUND[(((int)(LEVEL)) + (1))] = 0; // 4029 %FINISH #line 4029 "regression-compile-tmp/nrimp10s-77.imp" L_03a7:; // 4030 %FINISH #line 4030 "regression-compile-tmp/nrimp10s-77.imp" L_03a4:; // 4031 %RETURN #line 4031 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ 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 ! // 4070 %ROUTINE DTABLE(%INTEGER LEVEL) #line 4070 "regression-compile-tmp/nrimp10s-77.imp" void DTABLE( int LEVEL ) #line 4070 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 4077 %STRING(31) RT NAME #line 4077 "regression-compile-tmp/nrimp10s-77.imp" _imp_string /*%string(31)*/ RTNAME; // 4078 %STRING(11) LOCAL NAME #line 4078 "regression-compile-tmp/nrimp10s-77.imp" _imp_string /*%string(11)*/ LOCALNAME; // 4079 %RECORD(LISTF)%NAME LCELL{(LISTF) #line 4079 "regression-compile-tmp/nrimp10s-77.imp" LISTF /*name*/*LCELL; // 4080 %CONSTINTEGER LARRROUT=16_F300 // 4081 %INTEGER DPTR,LNUM,ML,KK,JJ,Q,DEND,BIT,S1,S2,S3,S4,LANGD,II #line 4081 "regression-compile-tmp/nrimp10s-77.imp" int DPTR; #line 4081 "regression-compile-tmp/nrimp10s-77.imp" int LNUM; #line 4081 "regression-compile-tmp/nrimp10s-77.imp" int ML; #line 4081 "regression-compile-tmp/nrimp10s-77.imp" int KK; #line 4081 "regression-compile-tmp/nrimp10s-77.imp" int JJ; #line 4081 "regression-compile-tmp/nrimp10s-77.imp" int Q; #line 4081 "regression-compile-tmp/nrimp10s-77.imp" int DEND; #line 4081 "regression-compile-tmp/nrimp10s-77.imp" int BIT; #line 4081 "regression-compile-tmp/nrimp10s-77.imp" int S1; #line 4081 "regression-compile-tmp/nrimp10s-77.imp" int S2; #line 4081 "regression-compile-tmp/nrimp10s-77.imp" int S3; #line 4081 "regression-compile-tmp/nrimp10s-77.imp" int S4; #line 4081 "regression-compile-tmp/nrimp10s-77.imp" int LANGD; #line 4081 "regression-compile-tmp/nrimp10s-77.imp" int II; // 4082 %INTEGERARRAY DD(0:500); ! BUFFER FOR SEGMENT OF SST #line 4082 "regression-compile-tmp/nrimp10s-77.imp" int DD[501]; // 4083 ! // 4084 ! FILL ALL OUTSTANDING REFERENCES TO THIS DIAGS BLOCK // 4085 ! // 4086 BIT=1<>14<<30!LEVEL<<18; ! GET LITL FROM PTYPE #line 4087 "regression-compile-tmp/nrimp10s-77.imp" LANGD = (((((int)((((unsigned int)(KKK)) >> (14)))) << (30))) | (((LEVEL) << (18)))); // 4088 %WHILE RAL(LEVEL)#0 %CYCLE #line 4088 "regression-compile-tmp/nrimp10s-77.imp" L_03a8:; #line 4088 "regression-compile-tmp/nrimp10s-77.imp" if (((RAL[LEVEL]) == (0))) goto L_03a9; // 4089 POP(RAL(LEVEL),Q,JJ,KK) #line 4089 "regression-compile-tmp/nrimp10s-77.imp" POP(&RAL[LEVEL], &Q, &JJ, &KK); // 4090 PLUG(Q,JJ,KK!SSTL,4) #line 4090 "regression-compile-tmp/nrimp10s-77.imp" PLUG(Q, JJ, ((KK) | (SSTL)), 4); // 4091 %REPEAT #line 4091 "regression-compile-tmp/nrimp10s-77.imp" goto L_03a8; #line 4091 "regression-compile-tmp/nrimp10s-77.imp" L_03a9:; // 4092 PUSH(RAL(LEVEL-1),4,SSTL+4,LANGD) %IF PARMTRACE#0 #line 4092 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMTRACE) == (0))) goto L_03ab; #line 4092 "regression-compile-tmp/nrimp10s-77.imp" PUSH(&RAL[(((int)(LEVEL)) - (1))], 4, (((int)(SSTL)) + (4)), LANGD); #line 4092 "regression-compile-tmp/nrimp10s-77.imp" L_03ab:; // 4093 DD(0)=L(LEVEL)<<16!(DIAGINF(LEVEL)) #line 4093 "regression-compile-tmp/nrimp10s-77.imp" DD[0] = ((((L[LEVEL]) << (16))) | (DIAGINF[LEVEL])); // 4094 DD(1)=LANGD #line 4094 "regression-compile-tmp/nrimp10s-77.imp" DD[1] = LANGD; // 4095 DD(2)=DISPLAY(RLEVEL)<<16!FLAG(LEVEL)&16_3FFF #line 4095 "regression-compile-tmp/nrimp10s-77.imp" DD[2] = ((((DISPLAY[RLEVEL]) << (16))) | (((FLAG[LEVEL]) & (16383)))); // 4096 ML=M(LEVEL); ! ROUTINE NAME(=0 FOR %BEGIN) #line 4096 "regression-compile-tmp/nrimp10s-77.imp" ML = M[LEVEL]; // 4097 LNUM=BYTEINTEGER(DICTBASE+ML); ! LENGTH OF THE NAME #line 4097 "regression-compile-tmp/nrimp10s-77.imp" LNUM = *_imp_BYTEINTEGER((((int)(DICTBASE)) + (ML))); // 4098 DPTR=4; DEND=0 #line 4098 "regression-compile-tmp/nrimp10s-77.imp" DPTR = 4; #line 4098 "regression-compile-tmp/nrimp10s-77.imp" DEND = 0; // 4099 %IF LNUM=0 %THEN DD(3)=0 %ELSE %START #line 4099 "regression-compile-tmp/nrimp10s-77.imp" if (((LNUM) != (0))) goto L_03ac; #line 4099 "regression-compile-tmp/nrimp10s-77.imp" DD[3] = 0; #line 4099 "regression-compile-tmp/nrimp10s-77.imp" goto L_03ad; #line 4099 "regression-compile-tmp/nrimp10s-77.imp" L_03ac:; // 4100 Q=DICTBASE+ML #line 4100 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(DICTBASE)) + (ML)); // 4101 RT NAME<-STRING(Q); ! FOR RTS MOVE IN 1ST 32 CHARS #line 4101 "regression-compile-tmp/nrimp10s-77.imp" RTNAME = *_imp_STRING(Q); // 4102 LNUM=BYTE INTEGER(ADDR(RT NAME)) #line 4102 "regression-compile-tmp/nrimp10s-77.imp" LNUM = *_imp_BYTEINTEGER(_imp_ADDR(&RTNAME)); // 4103 STRING(ADDR(DD(3)))=RTNAME; ! AND UPDATE POINTER PAST #line 4103 "regression-compile-tmp/nrimp10s-77.imp" *_imp_STRING(_imp_ADDR(&DD[3])) = RTNAME; // 4104 DPTR=DPTR+LNUM>>2; ! ACTUAL NO OF CHARS #line 4104 "regression-compile-tmp/nrimp10s-77.imp" DPTR = ((DPTR) + ((int)((int)((((unsigned int)(LNUM)) >> (2)))))); // 4105 %FINISH #line 4105 "regression-compile-tmp/nrimp10s-77.imp" L_03ad:; // 4106 DD(DPTR)=ONWORD(LEVEL); ! ON CONDITION WORD #line 4106 "regression-compile-tmp/nrimp10s-77.imp" DD[DPTR] = ONWORD[LEVEL]; // 4107 DPTR=DPTR+1 #line 4107 "regression-compile-tmp/nrimp10s-77.imp" DPTR = (((int)(DPTR)) + (1)); // 4108 JJ=NAMES(LEVEL) #line 4108 "regression-compile-tmp/nrimp10s-77.imp" JJ = NAMES[LEVEL]; // 4109 %WHILE 0<=JJ<16_3FFF %CYCLE #line 4109 "regression-compile-tmp/nrimp10s-77.imp" L_03ae:; #line 4109 "regression-compile-tmp/nrimp10s-77.imp" if ((((0) > (JJ))) || (((JJ) >= (16383)))) goto L_03af; // 4110 LCELL==ASLIST(TAGS(JJ)) #line 4110 "regression-compile-tmp/nrimp10s-77.imp" LCELL = &ASLIST[TAGS[JJ]]; // 4111 ! OBTAIN NEXT NAME FORM DECLNS // 4112 %IF LCELL_S1&16_F000=0 %THEN WARN(2,JJ) #line 4112 "regression-compile-tmp/nrimp10s-77.imp" if (((((LCELL->S1) & (61440))) != (0))) goto L_03b1; #line 4112 "regression-compile-tmp/nrimp10s-77.imp" WARN(2, JJ); #line 4112 "regression-compile-tmp/nrimp10s-77.imp" L_03b1:; // 4113 ! // 4114 ! GET ONLY THE MINIMUM OF DETALS NECESSARY // 4115 ! // 4116 S1=LCELL_S1; S2=LCELL_S2 #line 4116 "regression-compile-tmp/nrimp10s-77.imp" S1 = LCELL->S1; #line 4116 "regression-compile-tmp/nrimp10s-77.imp" S2 = LCELL->S2; // 4117 S3=LCELL_S3; S4=LCELL_LINK #line 4117 "regression-compile-tmp/nrimp10s-77.imp" S3 = LCELL->S3; #line 4117 "regression-compile-tmp/nrimp10s-77.imp" S4 = LCELL->LINK; // 4118 LCELL_LINK=ASL; ASL=TAGS(JJ) #line 4118 "regression-compile-tmp/nrimp10s-77.imp" LCELL->LINK = ASL; #line 4118 "regression-compile-tmp/nrimp10s-77.imp" ASL = TAGS[JJ]; // 4119 TAGS(JJ)=S4&16_3FFFF #line 4119 "regression-compile-tmp/nrimp10s-77.imp" TAGS[JJ] = ((S4) & (262143)); // 4120 PTYPE=S1>>16; TYPE=PTYPE&15 #line 4120 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = (int)((((unsigned int)(S1)) >> (16))); #line 4120 "regression-compile-tmp/nrimp10s-77.imp" TYPE = ((PTYPE) & (15)); // 4121 I=S1>>4&15 #line 4121 "regression-compile-tmp/nrimp10s-77.imp" I = (((int)((((unsigned int)(S1)) >> (4)))) & (15)); // 4122 J=S1&15 #line 4122 "regression-compile-tmp/nrimp10s-77.imp" J = ((S1) & (15)); // 4123 K=S3>>16 #line 4123 "regression-compile-tmp/nrimp10s-77.imp" K = (int)((((unsigned int)(S3)) >> (16))); // 4124 ! // 4125 ! ALLOW OWNS (LITL=0) AND EXTERNALS (=2) NOT CONSTS(=1) OR EXTRINSIC(=3) // 4126 ! // 4127 %IF PARMDIAG#0 %AND PTYPE&16_7300<=16_200 %AND DPTR<497 %AND (TYPE=1 %OR TYPE=2 %OR TYPE=5) %START #line 4127 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMDIAG) == (0))) goto L_03b2; #line 4127 "regression-compile-tmp/nrimp10s-77.imp" if (((((PTYPE) & (29440))) > (512))) goto L_03b2; #line 4127 "regression-compile-tmp/nrimp10s-77.imp" if (((DPTR) >= (497))) goto L_03b2; #line 4127 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) == (1))) goto L_03b3; #line 4127 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) == (2))) goto L_03b3; #line 4127 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (5))) goto L_03b2; #line 4127 "regression-compile-tmp/nrimp10s-77.imp" L_03b3:; // 4128 Q=DICTBASE+WORD(JJ); ! ADDRESS OF NAME #line 4128 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)(DICTBASE)) + (WORD[JJ])); // 4129 %IF I=0 %THEN II=1 %ELSE II=0; ! GLA OR LNB BIT #line 4129 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (0))) goto L_03b4; #line 4129 "regression-compile-tmp/nrimp10s-77.imp" II = 1; #line 4129 "regression-compile-tmp/nrimp10s-77.imp" goto L_03b5; #line 4129 "regression-compile-tmp/nrimp10s-77.imp" L_03b4:; #line 4129 "regression-compile-tmp/nrimp10s-77.imp" II = 0; #line 4129 "regression-compile-tmp/nrimp10s-77.imp" L_03b5:; // 4130 DD(DPTR)=PTYPE<<20!II<<18!K #line 4130 "regression-compile-tmp/nrimp10s-77.imp" DD[DPTR] = ((((((PTYPE) << (20))) | (((II) << (18))))) | (K)); // 4131 LOCAL NAME<-STRING(Q); ! TEXT OF NAME FROM DICTIONARY #line 4131 "regression-compile-tmp/nrimp10s-77.imp" LOCALNAME = *_imp_STRING(Q); // 4132 LNUM=BYTE INTEGER(ADDR(LOCAL NAME)) #line 4132 "regression-compile-tmp/nrimp10s-77.imp" LNUM = *_imp_BYTEINTEGER(_imp_ADDR(&LOCALNAME)); // 4133 STRING(ADDR(DD(DPTR))+4)=LOCAL NAME;! MOVE IN NAME #line 4133 "regression-compile-tmp/nrimp10s-77.imp" *_imp_STRING((((int)(_imp_ADDR(&DD[DPTR]))) + (4))) = LOCALNAME; // 4134 DPTR=DPTR+(LNUM+8)>>2 #line 4134 "regression-compile-tmp/nrimp10s-77.imp" DPTR = ((DPTR) + ((int)((((((((int)(LNUM)) + (8)))) >> (2)))))); // 4135 %FINISH #line 4135 "regression-compile-tmp/nrimp10s-77.imp" L_03b2:; // 4136 %IF J=15 %AND S2#0 %THEN FAULT2(28,0,JJ) #line 4136 "regression-compile-tmp/nrimp10s-77.imp" if (((J) != (15))) goto L_03b6; #line 4136 "regression-compile-tmp/nrimp10s-77.imp" if (((S2) == (0))) goto L_03b6; #line 4136 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(28, 0, JJ); #line 4136 "regression-compile-tmp/nrimp10s-77.imp" L_03b6:; // 4137 ! SPEC&CALLED BUT NO BODY GIVEN // 4138 %IF PTYPE&16_3000#0 %OR TYPE=4 %OR TYPE=6 %THEN CLEAR LIST(K) %ELSE %START #line 4138 "regression-compile-tmp/nrimp10s-77.imp" if (((((PTYPE) & (12288))) != (0))) goto L_03b7; #line 4138 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) == (4))) goto L_03b7; #line 4138 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (6))) goto L_03b8; #line 4138 "regression-compile-tmp/nrimp10s-77.imp" L_03b7:; #line 4138 "regression-compile-tmp/nrimp10s-77.imp" CLEARLIST(&K); #line 4138 "regression-compile-tmp/nrimp10s-77.imp" goto L_03b9; #line 4138 "regression-compile-tmp/nrimp10s-77.imp" L_03b8:; // 4139 %IF I#0 %AND K>511 %AND PTYPE&LARRROUT=0 %AND TYPE#7 %THEN WARN(5,JJ) #line 4139 "regression-compile-tmp/nrimp10s-77.imp" if (((I) == (0))) goto L_03ba; #line 4139 "regression-compile-tmp/nrimp10s-77.imp" if (((K) <= (511))) goto L_03ba; #line 4139 "regression-compile-tmp/nrimp10s-77.imp" if (((((PTYPE) & (62208))) != (0))) goto L_03ba; #line 4139 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) == (7))) goto L_03ba; #line 4139 "regression-compile-tmp/nrimp10s-77.imp" WARN(5, JJ); #line 4139 "regression-compile-tmp/nrimp10s-77.imp" L_03ba:; // 4140 %FINISH #line 4140 "regression-compile-tmp/nrimp10s-77.imp" L_03b9:; // 4141 JJ=S4>>18 #line 4141 "regression-compile-tmp/nrimp10s-77.imp" JJ = (int)((((unsigned int)(S4)) >> (18))); // 4142 %REPEAT #line 4142 "regression-compile-tmp/nrimp10s-77.imp" goto L_03ae; #line 4142 "regression-compile-tmp/nrimp10s-77.imp" L_03af:; // 4143 DD(DPTR)=-1; ! 'END OF SEGMENT' MARK #line 4143 "regression-compile-tmp/nrimp10s-77.imp" DD[DPTR] = (-1); // 4144 DPTR=DPTR<<2+4 #line 4144 "regression-compile-tmp/nrimp10s-77.imp" DPTR = (((int)(((DPTR) << (2)))) + (4)); // 4145 %IF PARMTRACE=1 %THEN %START #line 4145 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMTRACE) != (1))) goto L_03bb; // 4146 LPUT(4,DPTR,SSTL,ADDR(DD(0)));! ADD TO SHARABLE SYM TABS #line 4146 "regression-compile-tmp/nrimp10s-77.imp" lput(4, DPTR, SSTL, _imp_ADDR(&DD[0])); // 4147 SSTL=SSTL+DPTR #line 4147 "regression-compile-tmp/nrimp10s-77.imp" SSTL = (((int)(SSTL)) + (DPTR)); // 4148 %FINISH #line 4148 "regression-compile-tmp/nrimp10s-77.imp" L_03bb:; // 4149 %END; ! OF ROUTINE DTABLE #line 4149 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DTABLE at level 6 // 4150 %END #line 4150 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CEND at level 5 // 4151 %ROUTINE MAKE DECS(%INTEGER Q) #line 4151 "regression-compile-tmp/nrimp10s-77.imp" void MAKEDECS( int Q ) #line 4151 "regression-compile-tmp/nrimp10s-77.imp" { // 4152 !*********************************************************************** // 4153 !* Q IS TO AR ENTRY FOR HEAD OF LINKED DECLARATIONS * // 4154 !*********************************************************************** // 4155 %INTEGER QQ,HEAD,PRIO,COUNT,SL #line 4155 "regression-compile-tmp/nrimp10s-77.imp" int QQ; #line 4155 "regression-compile-tmp/nrimp10s-77.imp" int HEAD; #line 4155 "regression-compile-tmp/nrimp10s-77.imp" int PRIO; #line 4155 "regression-compile-tmp/nrimp10s-77.imp" int COUNT; #line 4155 "regression-compile-tmp/nrimp10s-77.imp" int SL; // 4156 %INTEGERNAME THEAD #line 4156 "regression-compile-tmp/nrimp10s-77.imp" int /*name*/*THEAD; // 4157 %RECORD(LISTF)%NAME CELL{(LISTF) #line 4157 "regression-compile-tmp/nrimp10s-77.imp" LISTF /*name*/*CELL; // 4158 SL=LINE; QQ=FROM AR4(Q) #line 4158 "regression-compile-tmp/nrimp10s-77.imp" SL = LINE; #line 4158 "regression-compile-tmp/nrimp10s-77.imp" QQ = FROMAR4(Q); // 4159 HEAD=0; COUNT=0 #line 4159 "regression-compile-tmp/nrimp10s-77.imp" HEAD = 0; #line 4159 "regression-compile-tmp/nrimp10s-77.imp" COUNT = 0; // 4160 %WHILE QQ#0 %CYCLE #line 4160 "regression-compile-tmp/nrimp10s-77.imp" L_03bc:; #line 4160 "regression-compile-tmp/nrimp10s-77.imp" if (((QQ) == (0))) goto L_03bd; // 4161 COUNT=COUNT+1 #line 4161 "regression-compile-tmp/nrimp10s-77.imp" COUNT = (((int)(COUNT)) + (1)); // 4162 ABORT %UNLESS A(QQ+5)=8; ! LINE IS A DECLARATION #line 4162 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(QQ)) + (5))]) == (8))) goto L_03bf; #line 4162 "regression-compile-tmp/nrimp10s-77.imp" ABORT(); #line 4162 "regression-compile-tmp/nrimp10s-77.imp" L_03bf:; // 4163 P=QQ+10; CLT #line 4163 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(QQ)) + (10)); #line 4163 "regression-compile-tmp/nrimp10s-77.imp" CLT(); // 4164 %IF PREC=3 %OR A(P)#1 %OR A(P+1)# 3 %START #line 4164 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) == (3))) goto L_03c0; #line 4164 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (1))) goto L_03c0; #line 4164 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (1))]) == (3))) goto L_03c1; #line 4164 "regression-compile-tmp/nrimp10s-77.imp" L_03c0:; // 4165 INSERT AT END(HEAD,16_FFFF,QQ,0) %IF A(P)=1 #line 4165 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (1))) goto L_03c2; #line 4165 "regression-compile-tmp/nrimp10s-77.imp" INSERTATEND(&HEAD, 65535, QQ, 0); #line 4165 "regression-compile-tmp/nrimp10s-77.imp" L_03c2:; // 4166 %FINISH %ELSE %START #line 4166 "regression-compile-tmp/nrimp10s-77.imp" goto L_03c3; #line 4166 "regression-compile-tmp/nrimp10s-77.imp" L_03c1:; // 4167 PRIO=PREC<<4!TYPE #line 4167 "regression-compile-tmp/nrimp10s-77.imp" PRIO = ((((PREC) << (4))) | (TYPE)); // 4168 THEAD==HEAD #line 4168 "regression-compile-tmp/nrimp10s-77.imp" THEAD = &HEAD; // 4169 %CYCLE #line 4169 "regression-compile-tmp/nrimp10s-77.imp" L_03c4:; // 4170 CELL==ASLIST(THEAD) #line 4170 "regression-compile-tmp/nrimp10s-77.imp" CELL = &ASLIST[*THEAD]; // 4171 %IF THEAD=0 %OR PRIO= (CELL->S1))) goto L_03c7; #line 4171 "regression-compile-tmp/nrimp10s-77.imp" L_02be:; #line 4171 "regression-compile-tmp/nrimp10s-77.imp" PUSH(THEAD, PRIO, QQ, 0); #line 4171 "regression-compile-tmp/nrimp10s-77.imp" goto L_03c5; #line 4171 "regression-compile-tmp/nrimp10s-77.imp" L_03c7:; // 4172 THEAD==CELL_LINK #line 4172 "regression-compile-tmp/nrimp10s-77.imp" THEAD = &CELL->LINK; // 4173 %REPEAT #line 4173 "regression-compile-tmp/nrimp10s-77.imp" goto L_03c4; #line 4173 "regression-compile-tmp/nrimp10s-77.imp" L_03c5:; // 4174 %FINISH #line 4174 "regression-compile-tmp/nrimp10s-77.imp" L_03c3:; // 4175 QQ=FROM AR4(QQ+6) #line 4175 "regression-compile-tmp/nrimp10s-77.imp" QQ = FROMAR4((((int)(QQ)) + (6))); // 4176 %REPEAT #line 4176 "regression-compile-tmp/nrimp10s-77.imp" goto L_03bc; #line 4176 "regression-compile-tmp/nrimp10s-77.imp" L_03bd:; // 4177 ! // 4178 ! NOW MAKE THE ORDEREED DECLARATIONS // 4179 ! FIRST GRAB TWO TEMPORARIES IF SPACE IS LIKELY TO BE TIGHT // 4180 ! // 4181 %IF COUNT>=7 %START #line 4181 "regression-compile-tmp/nrimp10s-77.imp" if (((COUNT) < (7))) goto L_03c8; // 4182 GET WSP(QQ,2); ! A DIUBLE WORD #line 4182 "regression-compile-tmp/nrimp10s-77.imp" GETWSP(&QQ, 2); // 4183 %IF AVL WSP(1,LEVEL)=0 %THEN GET WSP(QQ,1) #line 4183 "regression-compile-tmp/nrimp10s-77.imp" if (((AVLWSP[1][LEVEL]) != (0))) goto L_03c9; #line 4183 "regression-compile-tmp/nrimp10s-77.imp" GETWSP(&QQ, 1); #line 4183 "regression-compile-tmp/nrimp10s-77.imp" L_03c9:; // 4184 %FINISH #line 4184 "regression-compile-tmp/nrimp10s-77.imp" L_03c8:; // 4185 %WHILE HEAD#0 %CYCLE #line 4185 "regression-compile-tmp/nrimp10s-77.imp" L_03ca:; #line 4185 "regression-compile-tmp/nrimp10s-77.imp" if (((HEAD) == (0))) goto L_03cb; // 4186 POP(HEAD,PRIO,QQ,COUNT) #line 4186 "regression-compile-tmp/nrimp10s-77.imp" POP(&HEAD, &PRIO, &QQ, &COUNT); // 4187 LINE=FROM AR2(QQ+3) #line 4187 "regression-compile-tmp/nrimp10s-77.imp" LINE = FROMAR2((((int)(QQ)) + (3))); // 4188 P=QQ+10; CLT #line 4188 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(QQ)) + (10)); #line 4188 "regression-compile-tmp/nrimp10s-77.imp" CLT(); // 4189 ROUT=0; LITL=0 #line 4189 "regression-compile-tmp/nrimp10s-77.imp" ROUT = 0; #line 4189 "regression-compile-tmp/nrimp10s-77.imp" LITL = 0; // 4190 CQN(P+1); P=P+2 #line 4190 "regression-compile-tmp/nrimp10s-77.imp" CQN((((int)(P)) + (1))); #line 4190 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 4191 DECLARE SCALARS(1,0) #line 4191 "regression-compile-tmp/nrimp10s-77.imp" DECLARESCALARS(1, 0); // 4192 %REPEAT #line 4192 "regression-compile-tmp/nrimp10s-77.imp" goto L_03ca; #line 4192 "regression-compile-tmp/nrimp10s-77.imp" L_03cb:; // 4193 LINE=SL #line 4193 "regression-compile-tmp/nrimp10s-77.imp" LINE = SL; // 4194 %END #line 4194 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block MAKEDECS at level 5 // 4195 %ROUTINE DECLARE SCALARS(%INTEGER PERMIT,XTRA) #line 4195 "regression-compile-tmp/nrimp10s-77.imp" void DECLARESCALARS( int PERMIT, int XTRA ) #line 4195 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 4202 %INTEGER INC,Q,SCHAIN,DMADE,NPARMS,D0,SCAL NAME,TYPEP #line 4202 "regression-compile-tmp/nrimp10s-77.imp" int INC; #line 4202 "regression-compile-tmp/nrimp10s-77.imp" int Q; #line 4202 "regression-compile-tmp/nrimp10s-77.imp" int SCHAIN; #line 4202 "regression-compile-tmp/nrimp10s-77.imp" int DMADE; #line 4202 "regression-compile-tmp/nrimp10s-77.imp" int NPARMS; #line 4202 "regression-compile-tmp/nrimp10s-77.imp" int D0; #line 4202 "regression-compile-tmp/nrimp10s-77.imp" int SCALNAME; #line 4202 "regression-compile-tmp/nrimp10s-77.imp" int TYPEP; // 4203 PACK(PTYPE); J=0 #line 4203 "regression-compile-tmp/nrimp10s-77.imp" PACK(&PTYPE); #line 4203 "regression-compile-tmp/nrimp10s-77.imp" J = 0; // 4204 INC=ACC; DMADE=0; SNDISP=0 #line 4204 "regression-compile-tmp/nrimp10s-77.imp" INC = ACC; #line 4204 "regression-compile-tmp/nrimp10s-77.imp" DMADE = 0; #line 4204 "regression-compile-tmp/nrimp10s-77.imp" SNDISP = 0; // 4205 %IF PTYPE=16_33 %THEN INC=(INC+3)&(-4) #line 4205 "regression-compile-tmp/nrimp10s-77.imp" if (((PTYPE) != (51))) goto L_03cd; #line 4205 "regression-compile-tmp/nrimp10s-77.imp" INC = (((((int)(INC)) + (3))) & ((-4))); #line 4205 "regression-compile-tmp/nrimp10s-77.imp" L_03cd:; // 4206 %IF NAM#0 %AND ROUT=0 %AND ARR=0 %THEN INC=8 #line 4206 "regression-compile-tmp/nrimp10s-77.imp" if (((NAM) == (0))) goto L_03ce; #line 4206 "regression-compile-tmp/nrimp10s-77.imp" if (((ROUT) != (0))) goto L_03ce; #line 4206 "regression-compile-tmp/nrimp10s-77.imp" if (((ARR) != (0))) goto L_03ce; #line 4206 "regression-compile-tmp/nrimp10s-77.imp" INC = 8; #line 4206 "regression-compile-tmp/nrimp10s-77.imp" L_03ce:; // 4207 %IF NAM>0 %AND ARR>0 %THEN INC=16 #line 4207 "regression-compile-tmp/nrimp10s-77.imp" if (((NAM) <= (0))) goto L_03cf; #line 4207 "regression-compile-tmp/nrimp10s-77.imp" if (((ARR) <= (0))) goto L_03cf; #line 4207 "regression-compile-tmp/nrimp10s-77.imp" INC = 16; #line 4207 "regression-compile-tmp/nrimp10s-77.imp" L_03cf:; // 4208 %IF PTYPE=16_35 %AND ACC=0 %THEN FAULT(70,0) #line 4208 "regression-compile-tmp/nrimp10s-77.imp" if (((PTYPE) != (53))) goto L_03d0; #line 4208 "regression-compile-tmp/nrimp10s-77.imp" if (((ACC) != (0))) goto L_03d0; #line 4208 "regression-compile-tmp/nrimp10s-77.imp" FAULT(70, 0); #line 4208 "regression-compile-tmp/nrimp10s-77.imp" L_03d0:; // 4209 %IF PERMIT#0 %AND (INC=8 %OR INC=16) %THEN ODD ALIGN #line 4209 "regression-compile-tmp/nrimp10s-77.imp" if (((PERMIT) == (0))) goto L_03d1; #line 4209 "regression-compile-tmp/nrimp10s-77.imp" if (((INC) == (8))) goto L_03cc; #line 4209 "regression-compile-tmp/nrimp10s-77.imp" if (((INC) != (16))) goto L_03d1; #line 4209 "regression-compile-tmp/nrimp10s-77.imp" L_03cc:; #line 4209 "regression-compile-tmp/nrimp10s-77.imp" ODDALIGN(); #line 4209 "regression-compile-tmp/nrimp10s-77.imp" L_03d1:; // 4210 %IF PTYPE=16_33 %OR (PTYPE=16_35 %AND PERMIT#0)%START #line 4210 "regression-compile-tmp/nrimp10s-77.imp" if (((PTYPE) == (51))) goto L_03d2; #line 4210 "regression-compile-tmp/nrimp10s-77.imp" if (((PTYPE) != (53))) goto L_03d3; #line 4210 "regression-compile-tmp/nrimp10s-77.imp" if (((PERMIT) == (0))) goto L_03d3; #line 4210 "regression-compile-tmp/nrimp10s-77.imp" L_03d2:; // 4211 D0=16_18000000+ACC #line 4211 "regression-compile-tmp/nrimp10s-77.imp" D0 = (((int)(402653184)) + (ACC)); // 4212 STORE CONST(Q,4,ADDR(D0)) #line 4212 "regression-compile-tmp/nrimp10s-77.imp" STORECONST(&Q, 4, _imp_ADDR(&D0)); // 4213 PF1(LDTB,0,PC,Q) #line 4213 "regression-compile-tmp/nrimp10s-77.imp" PF1(116, 0, 4, Q); // 4214 GRUSE(DR)=0 #line 4214 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[1] = 0; // 4215 %FINISH #line 4215 "regression-compile-tmp/nrimp10s-77.imp" L_03d3:; // 4216 %IF PTYPE=16_35 %START #line 4216 "regression-compile-tmp/nrimp10s-77.imp" if (((PTYPE) != (53))) goto L_03d4; // 4217 INC=8 #line 4217 "regression-compile-tmp/nrimp10s-77.imp" INC = 8; // 4218 %IF PERMIT#0 %START #line 4218 "regression-compile-tmp/nrimp10s-77.imp" if (((PERMIT) == (0))) goto L_03d5; // 4219 PF1(STSF,0,TOS,0) #line 4219 "regression-compile-tmp/nrimp10s-77.imp" PF1(94, 0, 6, 0); // 4220 PF1(LDA,0,TOS,0) #line 4220 "regression-compile-tmp/nrimp10s-77.imp" PF1(114, 0, 6, 0); // 4221 %FINISH #line 4221 "regression-compile-tmp/nrimp10s-77.imp" L_03d5:; // 4222 %FINISH #line 4222 "regression-compile-tmp/nrimp10s-77.imp" L_03d4:; // 4223 N=(N+3)&(-4) #line 4223 "regression-compile-tmp/nrimp10s-77.imp" N = (((((int)(N)) + (3))) & ((-4))); // 4224 %IF PTYPE=16_33 %THEN %START #line 4224 "regression-compile-tmp/nrimp10s-77.imp" if (((PTYPE) != (51))) goto L_03d6; // 4225 PSF1(LDA,1,PTR OFFSET(RBASE)) #line 4225 "regression-compile-tmp/nrimp10s-77.imp" PSF1(114, 1, PTROFFSET(RBASE)); // 4226 PSF1(INCA,0,N+8) #line 4226 "regression-compile-tmp/nrimp10s-77.imp" PSF1(20, 0, (((int)(N)) + (8))); // 4227 %FINISH #line 4227 "regression-compile-tmp/nrimp10s-77.imp" L_03d6:; // 4228 {%UNTIL A(P-1)=2} %CYCLE; ! DOWN THE NAMELIST #line 4228 "regression-compile-tmp/nrimp10s-77.imp" L_03d7:; // 4229 DMADE=DMADE+1 #line 4229 "regression-compile-tmp/nrimp10s-77.imp" DMADE = (((int)(DMADE)) + (1)); // 4230 SCAL NAME=FROM AR2(P) #line 4230 "regression-compile-tmp/nrimp10s-77.imp" SCALNAME = FROMAR2(P); // 4231 %IF PTYPE=16_31 %AND PERMIT=0 %THEN N=N+3;! BYTE PARAMS #line 4231 "regression-compile-tmp/nrimp10s-77.imp" if (((PTYPE) != (49))) goto L_03da; #line 4231 "regression-compile-tmp/nrimp10s-77.imp" if (((PERMIT) != (0))) goto L_03da; #line 4231 "regression-compile-tmp/nrimp10s-77.imp" N = (((int)(N)) + (3)); #line 4231 "regression-compile-tmp/nrimp10s-77.imp" L_03da:; // 4232 %IF PTYPE=16_41 %AND PERMIT=0 %THEN N=N+2 #line 4232 "regression-compile-tmp/nrimp10s-77.imp" if (((PTYPE) != (65))) goto L_03db; #line 4232 "regression-compile-tmp/nrimp10s-77.imp" if (((PERMIT) != (0))) goto L_03db; #line 4232 "regression-compile-tmp/nrimp10s-77.imp" N = (((int)(N)) + (2)); #line 4232 "regression-compile-tmp/nrimp10s-77.imp" L_03db:; // 4233 SCHAIN=N #line 4233 "regression-compile-tmp/nrimp10s-77.imp" SCHAIN = N; // 4234 KFORM=XTRA #line 4234 "regression-compile-tmp/nrimp10s-77.imp" KFORM = XTRA; // 4235 %IF ROUT=1 %THEN %START #line 4235 "regression-compile-tmp/nrimp10s-77.imp" if (((ROUT) != (1))) goto L_03dc; // 4236 TYPEP=PTYPE; ! CHANGED BY CFPLIST! #line 4236 "regression-compile-tmp/nrimp10s-77.imp" TYPEP = PTYPE; // 4237 Q=P #line 4237 "regression-compile-tmp/nrimp10s-77.imp" Q = P; // 4238 P=P+3 %UNTIL A(P-1)=2; ! TO FPP #line 4238 "regression-compile-tmp/nrimp10s-77.imp" L_03dd:; #line 4238 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); #line 4238 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) - (1))]) == (2))) goto L_03de; #line 4238 "regression-compile-tmp/nrimp10s-77.imp" goto L_03dd; #line 4238 "regression-compile-tmp/nrimp10s-77.imp" L_03de:; // 4239 CFPLIST(SCHAIN,NPARMS) #line 4239 "regression-compile-tmp/nrimp10s-77.imp" CFPLIST(&SCHAIN, &NPARMS); // 4240 P=Q #line 4240 "regression-compile-tmp/nrimp10s-77.imp" P = Q; // 4241 J=13 #line 4241 "regression-compile-tmp/nrimp10s-77.imp" J = 13; // 4242 KFORM=NPARMS; ! NO OF PARAMS OF FORMAL #line 4242 "regression-compile-tmp/nrimp10s-77.imp" KFORM = NPARMS; // 4243 ACC=N; ! DISPLACEMENT TO MIDCELL #line 4243 "regression-compile-tmp/nrimp10s-77.imp" ACC = N; // 4244 PTYPE=TYPEP; UNPACK #line 4244 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = TYPEP; #line 4244 "regression-compile-tmp/nrimp10s-77.imp" UNPACK(); // 4245 %FINISH #line 4245 "regression-compile-tmp/nrimp10s-77.imp" L_03dc:; // 4246 P=P+3 #line 4246 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); // 4247 %IF PTYPE=16_33 %THEN %START #line 4247 "regression-compile-tmp/nrimp10s-77.imp" if (((PTYPE) != (51))) goto L_03e0; // 4248 PSF1(STD,1,N) #line 4248 "regression-compile-tmp/nrimp10s-77.imp" PSF1(88, 1, N); // 4249 N=N+8; SCHAIN=N #line 4249 "regression-compile-tmp/nrimp10s-77.imp" N = (((int)(N)) + (8)); #line 4249 "regression-compile-tmp/nrimp10s-77.imp" SCHAIN = N; // 4250 %IF A(P-1)=1 %THEN PSF1(INCA,0,INC+8) #line 4250 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) - (1))]) != (1))) goto L_03e1; #line 4250 "regression-compile-tmp/nrimp10s-77.imp" PSF1(20, 0, (((int)(INC)) + (8))); #line 4250 "regression-compile-tmp/nrimp10s-77.imp" L_03e1:; // 4251 %FINISH #line 4251 "regression-compile-tmp/nrimp10s-77.imp" L_03e0:; // 4252 %IF PTYPE=16_35 %AND PERMIT#0 %START #line 4252 "regression-compile-tmp/nrimp10s-77.imp" if (((PTYPE) != (53))) goto L_03e2; #line 4252 "regression-compile-tmp/nrimp10s-77.imp" if (((PERMIT) == (0))) goto L_03e2; // 4253 PSF1(STD,1,N) #line 4253 "regression-compile-tmp/nrimp10s-77.imp" PSF1(88, 1, N); // 4254 %IF A(P-1)=1 %THEN PSF1(INCA,0,(ACC+3)&(-4)) %ELSE %START #line 4254 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) - (1))]) != (1))) goto L_03e3; #line 4254 "regression-compile-tmp/nrimp10s-77.imp" PSF1(20, 0, (((((int)(ACC)) + (3))) & ((-4)))); #line 4254 "regression-compile-tmp/nrimp10s-77.imp" goto L_03e4; #line 4254 "regression-compile-tmp/nrimp10s-77.imp" L_03e3:; // 4255 Q=((ACC+3)>>2)*DMADE #line 4255 "regression-compile-tmp/nrimp10s-77.imp" Q = (((int)((((((((int)(ACC)) + (3)))) >> (2))))) * (DMADE)); // 4256 PSF1(ASF+12*PARMCHK,0,Q) #line 4256 "regression-compile-tmp/nrimp10s-77.imp" PSF1(((110) + ((int)((((int)(12)) * (PARMCHK))))), 0, Q); // 4257 %IF PARMCHK#0 %THEN PPJ(0,4) #line 4257 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMCHK) == (0))) goto L_03e5; #line 4257 "regression-compile-tmp/nrimp10s-77.imp" PPJ(0, 4); #line 4257 "regression-compile-tmp/nrimp10s-77.imp" L_03e5:; // 4258 %FINISH #line 4258 "regression-compile-tmp/nrimp10s-77.imp" L_03e4:; // 4259 %FINISH #line 4259 "regression-compile-tmp/nrimp10s-77.imp" L_03e2:; // 4260 STORE TAG(SCAL NAME,SCHAIN) #line 4260 "regression-compile-tmp/nrimp10s-77.imp" STORETAG(SCALNAME, SCHAIN); // 4261 N=N+INC #line 4261 "regression-compile-tmp/nrimp10s-77.imp" N = (((int)(N)) + (INC)); // 4262 %REPEAT %UNTIL A(P-1)=2 #line 4262 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) - (1))]) == (2))) goto L_03d8; #line 4262 "regression-compile-tmp/nrimp10s-77.imp" goto L_03d7; #line 4262 "regression-compile-tmp/nrimp10s-77.imp" L_03d8:; // 4263 N=(N+3)&(-4) %IF PERMIT#0;! NO ROUNDING AMONG PARAMS #line 4263 "regression-compile-tmp/nrimp10s-77.imp" if (((PERMIT) == (0))) goto L_03e6; #line 4263 "regression-compile-tmp/nrimp10s-77.imp" N = (((((int)(N)) + (3))) & ((-4))); #line 4263 "regression-compile-tmp/nrimp10s-77.imp" L_03e6:; // 4264 %END #line 4264 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DECLARESCALARS at level 5 // 4265 %INTEGERFN DOPE VECTOR(%INTEGER TYPEP,ELSIZE,MODE,IDEN,%INTEGERNAME ASIZE,LB) #line 4265 "regression-compile-tmp/nrimp10s-77.imp" int DOPEVECTOR( int TYPEP, int ELSIZE, int MODE, int IDEN, int /*name*/*ASIZE, int /*name*/*LB ) #line 4265 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 4283 %INTEGER I, JJ, K, ND, D, UNSCAL, M0, HEAD, NOPS, TYPEPP, PIN, PTR #line 4283 "regression-compile-tmp/nrimp10s-77.imp" int I; #line 4283 "regression-compile-tmp/nrimp10s-77.imp" int JJ; #line 4283 "regression-compile-tmp/nrimp10s-77.imp" int K; #line 4283 "regression-compile-tmp/nrimp10s-77.imp" int ND; #line 4283 "regression-compile-tmp/nrimp10s-77.imp" int D; #line 4283 "regression-compile-tmp/nrimp10s-77.imp" int UNSCAL; #line 4283 "regression-compile-tmp/nrimp10s-77.imp" int M0; #line 4283 "regression-compile-tmp/nrimp10s-77.imp" int HEAD; #line 4283 "regression-compile-tmp/nrimp10s-77.imp" int NOPS; #line 4283 "regression-compile-tmp/nrimp10s-77.imp" int TYPEPP; #line 4283 "regression-compile-tmp/nrimp10s-77.imp" int PIN; #line 4283 "regression-compile-tmp/nrimp10s-77.imp" int PTR; // 4284 %RECORD(LISTF)%NAME LCELL{(LISTF) #line 4284 "regression-compile-tmp/nrimp10s-77.imp" LISTF /*name*/*LCELL; // 4285 %INTEGERARRAY LBH,LBB,UBH,UBB(0:12) #line 4285 "regression-compile-tmp/nrimp10s-77.imp" int LBH[13]; #line 4285 "regression-compile-tmp/nrimp10s-77.imp" int LBB[13]; #line 4285 "regression-compile-tmp/nrimp10s-77.imp" int UBH[13]; #line 4285 "regression-compile-tmp/nrimp10s-77.imp" int UBB[13]; // 4286 %INTEGERARRAY DV(0:39); ! ENOUGH FOR 12 DIMENSIONS #line 4286 "regression-compile-tmp/nrimp10s-77.imp" int DV[40]; // 4287 ND=0; NOPS=0; TYPEPP=0; PIN=P #line 4287 "regression-compile-tmp/nrimp10s-77.imp" ND = 0; #line 4287 "regression-compile-tmp/nrimp10s-77.imp" NOPS = 0; #line 4287 "regression-compile-tmp/nrimp10s-77.imp" TYPEPP = 0; #line 4287 "regression-compile-tmp/nrimp10s-77.imp" PIN = P; // 4288 %IF TYPEP>2 %OR (TYPEP=1 %AND PREC=4) %THEN UNSCAL=1 %AND M0=ELSIZE %ELSE UNSCAL=0 %AND M0=1 #line 4288 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPEP) > (2))) goto L_03d9; #line 4288 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPEP) != (1))) goto L_03e7; #line 4288 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) != (4))) goto L_03e7; #line 4288 "regression-compile-tmp/nrimp10s-77.imp" L_03d9:; #line 4288 "regression-compile-tmp/nrimp10s-77.imp" UNSCAL = 1; #line 4288 "regression-compile-tmp/nrimp10s-77.imp" M0 = ELSIZE; #line 4288 "regression-compile-tmp/nrimp10s-77.imp" goto L_03e8; #line 4288 "regression-compile-tmp/nrimp10s-77.imp" L_03e7:; #line 4288 "regression-compile-tmp/nrimp10s-77.imp" UNSCAL = 0; #line 4288 "regression-compile-tmp/nrimp10s-77.imp" M0 = 1; #line 4288 "regression-compile-tmp/nrimp10s-77.imp" L_03e8:; // 4289 {%UNTIL A(P)=2} %CYCLE #line 4289 "regression-compile-tmp/nrimp10s-77.imp" L_03e9:; // 4290 ND=ND+1; P=P+4 #line 4290 "regression-compile-tmp/nrimp10s-77.imp" ND = (((int)(ND)) + (1)); #line 4290 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (4)); // 4291 LBH(ND)=0; LBB(ND)=0 #line 4291 "regression-compile-tmp/nrimp10s-77.imp" LBH[ND] = 0; #line 4291 "regression-compile-tmp/nrimp10s-77.imp" LBB[ND] = 0; // 4292 UBB(ND)=0; UBH(ND)=0 #line 4292 "regression-compile-tmp/nrimp10s-77.imp" UBB[ND] = 0; #line 4292 "regression-compile-tmp/nrimp10s-77.imp" UBH[ND] = 0; // 4293 TORP(LBH(ND),LBB(ND),NOPS) #line 4293 "regression-compile-tmp/nrimp10s-77.imp" TORP(&LBH[ND], &LBB[ND], &NOPS); // 4294 P=P+3 #line 4294 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); // 4295 TYPEPP=TYPEPP!TYPE #line 4295 "regression-compile-tmp/nrimp10s-77.imp" TYPEPP = ((TYPEPP) | (TYPE)); // 4296 TORP(UBH(ND),UBB(ND),NOPS) #line 4296 "regression-compile-tmp/nrimp10s-77.imp" TORP(&UBH[ND], &UBB[ND], &NOPS); // 4297 TYPEPP=TYPEPP!TYPE #line 4297 "regression-compile-tmp/nrimp10s-77.imp" TYPEPP = ((TYPEPP) | (TYPE)); // 4298 %REPEAT %UNTIL A(P)=2 #line 4298 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) == (2))) goto L_03ea; #line 4298 "regression-compile-tmp/nrimp10s-77.imp" goto L_03e9; #line 4298 "regression-compile-tmp/nrimp10s-77.imp" L_03ea:; // 4299 P=P+1 #line 4299 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 4300 ->NONCONST %UNLESS TYPEPP=1 %AND NOPS&16_40040000=0 #line 4300 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPEPP) != (1))) goto L_03eb; #line 4300 "regression-compile-tmp/nrimp10s-77.imp" if (((((NOPS) & (1074003968))) == (0))) goto L_03ec; #line 4300 "regression-compile-tmp/nrimp10s-77.imp" L_03eb:; #line 4300 "regression-compile-tmp/nrimp10s-77.imp" goto U_1024; #line 4300 "regression-compile-tmp/nrimp10s-77.imp" L_03ec:; // 4301 ! // 4302 ! NOW ONE CAN WORK OUT AND FILL IN THE TRIPLES // 4303 ! // 4304 PTR=1 #line 4304 "regression-compile-tmp/nrimp10s-77.imp" PTR = 1; // 4305 %CYCLE D=ND,-1,1 #line 4305 "regression-compile-tmp/nrimp10s-77.imp" D = ((ND) + ((int)(1))); if ((((1)-(ND)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle D = ND, (-1), 1"); L_03ed:; if (D == 1) goto L_03ee; D += (-1); // 4306 K=3*D #line 4306 "regression-compile-tmp/nrimp10s-77.imp" K = (((int)(3)) * (D)); // 4307 EXPOP(LBH(PTR),ACCR,NOPS,16_251) #line 4307 "regression-compile-tmp/nrimp10s-77.imp" EXPOP(LBH[PTR], 0, NOPS, 593); // 4308 EXPOPND_D=0 %AND FAULT(41,0) %UNLESS EXPOPND_FLAG<=1 %AND EXPOPND_PTYPE=16_51 #line 4308 "regression-compile-tmp/nrimp10s-77.imp" if (((EXPOPND.FLAG) > (1))) goto L_03f0; #line 4308 "regression-compile-tmp/nrimp10s-77.imp" if (((EXPOPND.PTYPE) == (81))) goto L_03f1; #line 4308 "regression-compile-tmp/nrimp10s-77.imp" L_03f0:; #line 4308 "regression-compile-tmp/nrimp10s-77.imp" EXPOPND.D = 0; #line 4308 "regression-compile-tmp/nrimp10s-77.imp" FAULT(41, 0); #line 4308 "regression-compile-tmp/nrimp10s-77.imp" L_03f1:; // 4309 DV(K)=EXPOPND_D #line 4309 "regression-compile-tmp/nrimp10s-77.imp" DV[K] = EXPOPND.D; // 4310 DV(K+1)=M0 #line 4310 "regression-compile-tmp/nrimp10s-77.imp" DV[(((int)(K)) + (1))] = M0; // 4311 EXPOP(UBH(PTR),ACCR,NOPS,16_251) #line 4311 "regression-compile-tmp/nrimp10s-77.imp" EXPOP(UBH[PTR], 0, NOPS, 593); // 4312 EXPOPND_D=10 %AND FAULT(41,0) %UNLESS EXPOPND_FLAG<=1 %AND EXPOPND_PTYPE=16_51 #line 4312 "regression-compile-tmp/nrimp10s-77.imp" if (((EXPOPND.FLAG) > (1))) goto L_03f2; #line 4312 "regression-compile-tmp/nrimp10s-77.imp" if (((EXPOPND.PTYPE) == (81))) goto L_03f3; #line 4312 "regression-compile-tmp/nrimp10s-77.imp" L_03f2:; #line 4312 "regression-compile-tmp/nrimp10s-77.imp" EXPOPND.D = 10; #line 4312 "regression-compile-tmp/nrimp10s-77.imp" FAULT(41, 0); #line 4312 "regression-compile-tmp/nrimp10s-77.imp" L_03f3:; // 4313 JJ=EXPOPND_D #line 4313 "regression-compile-tmp/nrimp10s-77.imp" JJ = EXPOPND.D; // 4314 M0=M0*(JJ-DV(K)+1) #line 4314 "regression-compile-tmp/nrimp10s-77.imp" M0 = ((M0) * ((int)((((int)((((int)(JJ)) - (DV[K])))) + (1))))); // 4315 FAULT2(38,1-M0,IDEN) %UNLESS JJ>=DV(K) #line 4315 "regression-compile-tmp/nrimp10s-77.imp" if (((JJ) >= (DV[K]))) goto L_03f4; #line 4315 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(38, (((int)(1)) - (M0)), IDEN); #line 4315 "regression-compile-tmp/nrimp10s-77.imp" L_03f4:; // 4316 DV(K+2)=M0 #line 4316 "regression-compile-tmp/nrimp10s-77.imp" DV[(((int)(K)) + (2))] = M0; // 4317 PTR=PTR+1 #line 4317 "regression-compile-tmp/nrimp10s-77.imp" PTR = (((int)(PTR)) + (1)); // 4318 %REPEAT #line 4318 "regression-compile-tmp/nrimp10s-77.imp" goto L_03ed; #line 4318 "regression-compile-tmp/nrimp10s-77.imp" L_03ee:; // 4319 ! // 4320 %IF UNSCAL=0 %THEN M0=M0*ELSIZE #line 4320 "regression-compile-tmp/nrimp10s-77.imp" if (((UNSCAL) != (0))) goto L_03f5; #line 4320 "regression-compile-tmp/nrimp10s-77.imp" M0 = (((int)(M0)) * (ELSIZE)); #line 4320 "regression-compile-tmp/nrimp10s-77.imp" L_03f5:; // 4321 %IF ND=1 %THEN LB=DV(3) #line 4321 "regression-compile-tmp/nrimp10s-77.imp" if (((ND) != (1))) goto L_03f6; #line 4321 "regression-compile-tmp/nrimp10s-77.imp" *LB = DV[3]; #line 4321 "regression-compile-tmp/nrimp10s-77.imp" L_03f6:; // 4322 ASIZE=M0 #line 4322 "regression-compile-tmp/nrimp10s-77.imp" *ASIZE = M0; // 4323 DV(2)=ASIZE #line 4323 "regression-compile-tmp/nrimp10s-77.imp" DV[2] = *ASIZE; // 4324 DV(1)=12 #line 4324 "regression-compile-tmp/nrimp10s-77.imp" DV[1] = 12; // 4325 DV(0)=5<<27!3*ND; ! DESPTR FOR DV #line 4325 "regression-compile-tmp/nrimp10s-77.imp" DV[0] = ((((5) << (27))) | ((((int)(3)) * (ND)))); // 4326 K=3*ND+2 #line 4326 "regression-compile-tmp/nrimp10s-77.imp" K = (((int)((((int)(3)) * (ND)))) + (2)); // 4327 J=ND; ! DIMENSIONALITY FOR DECLN #line 4327 "regression-compile-tmp/nrimp10s-77.imp" J = ND; // 4328 HEAD=DVHEADS(ND) #line 4328 "regression-compile-tmp/nrimp10s-77.imp" HEAD = DVHEADS[ND]; // 4329 %WHILE HEAD#0 %CYCLE #line 4329 "regression-compile-tmp/nrimp10s-77.imp" L_03f7:; #line 4329 "regression-compile-tmp/nrimp10s-77.imp" if (((HEAD) == (0))) goto L_03f8; // 4330 LCELL==ASLIST(HEAD) #line 4330 "regression-compile-tmp/nrimp10s-77.imp" LCELL = &ASLIST[HEAD]; // 4331 %IF LCELL_S2=ASIZE %AND LCELL_S3=DV(5) %START #line 4331 "regression-compile-tmp/nrimp10s-77.imp" if (((LCELL->S2) != (*ASIZE))) goto L_03fa; #line 4331 "regression-compile-tmp/nrimp10s-77.imp" if (((LCELL->S3) != (DV[5]))) goto L_03fa; // 4332 %CYCLE D=0,1,K #line 4332 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = K; D = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle D = 0, 1, K"); D -= _increment; _control -= _increment; L_03fb:; if (D == _final) goto L_03fc; D += _increment; _control += _increment; if (D != _control) _imp_signal(4,2,0,"Corrupt control variable D"); /* FOR loop control variable corrupted */ } // 4333 ->ON %UNLESS DV(D)=CTABLE_val(D+LCELL_S1) #line 4333 "regression-compile-tmp/nrimp10s-77.imp" if (((DV[D]) == (CTABLE->VAL[(((int)(D)) + (LCELL->S1))]))) goto L_03fe; #line 4333 "regression-compile-tmp/nrimp10s-77.imp" goto U_1025; #line 4333 "regression-compile-tmp/nrimp10s-77.imp" L_03fe:; // 4334 %REPEAT #line 4334 "regression-compile-tmp/nrimp10s-77.imp" goto L_03fb; #line 4334 "regression-compile-tmp/nrimp10s-77.imp" L_03fc:; // 4335 %RESULT=16_80000000!4*LCELL_S1 #line 4335 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return (((-2147483648)) | ((((int)(4)) * (LCELL->S1)))); // 4336 %FINISH #line 4336 "regression-compile-tmp/nrimp10s-77.imp" L_03fa:; // 4337 ON: #line 4337 "regression-compile-tmp/nrimp10s-77.imp" U_1025:; // 4338 HEAD=LCELL_LINK #line 4338 "regression-compile-tmp/nrimp10s-77.imp" HEAD = LCELL->LINK; // 4339 %REPEAT #line 4339 "regression-compile-tmp/nrimp10s-77.imp" goto L_03f7; #line 4339 "regression-compile-tmp/nrimp10s-77.imp" L_03f8:; // 4340 %IF CONST PTR&1#0 %THEN CONST HOLE=CONST PTR %AND CONST PTR=CONST PTR+1 #line 4340 "regression-compile-tmp/nrimp10s-77.imp" if (((((CONSTPTR) & (1))) == (0))) goto L_03ff; #line 4340 "regression-compile-tmp/nrimp10s-77.imp" CONSTHOLE = CONSTPTR; #line 4340 "regression-compile-tmp/nrimp10s-77.imp" CONSTPTR = (((int)(CONSTPTR)) + (1)); #line 4340 "regression-compile-tmp/nrimp10s-77.imp" L_03ff:; // 4341 I=4*CONST PTR!16_80000000 #line 4341 "regression-compile-tmp/nrimp10s-77.imp" I = (((((int)(4)) * (CONSTPTR))) | ((-2147483648))); // 4342 PUSH(DVHEADS(ND),CONSTPTR,ASIZE,DV(5)) #line 4342 "regression-compile-tmp/nrimp10s-77.imp" PUSH(&DVHEADS[ND], CONSTPTR, *ASIZE, DV[5]); // 4343 %CYCLE D=0,1,K #line 4343 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = K; D = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle D = 0, 1, K"); D -= _increment; _control -= _increment; L_0400:; if (D == _final) goto L_0401; D += _increment; _control += _increment; if (D != _control) _imp_signal(4,2,0,"Corrupt control variable D"); /* FOR loop control variable corrupted */ } // 4344 CTABLE_val(CONST PTR)=DV(D) #line 4344 "regression-compile-tmp/nrimp10s-77.imp" CTABLE->VAL[CONSTPTR] = DV[D]; // 4345 CONST PTR=CONST PTR+1 #line 4345 "regression-compile-tmp/nrimp10s-77.imp" CONSTPTR = (((int)(CONSTPTR)) + (1)); // 4346 %REPEAT #line 4346 "regression-compile-tmp/nrimp10s-77.imp" goto L_0400; #line 4346 "regression-compile-tmp/nrimp10s-77.imp" L_0401:; // 4347 %IF CONST PTR>CONST LIMIT %THEN FAULT(107,0) #line 4347 "regression-compile-tmp/nrimp10s-77.imp" if (((CONSTPTR) <= (CONSTLIMIT))) goto L_0403; #line 4347 "regression-compile-tmp/nrimp10s-77.imp" FAULT(107, 0); #line 4347 "regression-compile-tmp/nrimp10s-77.imp" L_0403:; // 4348 WAYOUT: #line 4348 "regression-compile-tmp/nrimp10s-77.imp" U_1027:; // 4349 %CYCLE D=ND,-1,1 #line 4349 "regression-compile-tmp/nrimp10s-77.imp" D = ((ND) + ((int)(1))); if ((((1)-(ND)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle D = ND, (-1), 1"); L_0404:; if (D == 1) goto L_0405; D += (-1); // 4350 ASLIST(LBB(D))_LINK=ASL #line 4350 "regression-compile-tmp/nrimp10s-77.imp" ASLIST[LBB[D]].LINK = ASL; // 4351 ASL=LBH(D) #line 4351 "regression-compile-tmp/nrimp10s-77.imp" ASL = LBH[D]; // 4352 ASLIST(UBB(D))_LINK=ASL #line 4352 "regression-compile-tmp/nrimp10s-77.imp" ASLIST[UBB[D]].LINK = ASL; // 4353 ASL=UBH(D) #line 4353 "regression-compile-tmp/nrimp10s-77.imp" ASL = UBH[D]; // 4354 %REPEAT #line 4354 "regression-compile-tmp/nrimp10s-77.imp" goto L_0404; #line 4354 "regression-compile-tmp/nrimp10s-77.imp" L_0405:; // 4355 %RESULT =I #line 4355 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return I; // 4356 NONCONST: ! NOT A CONST DV #line 4356 "regression-compile-tmp/nrimp10s-77.imp" U_1024:; // 4357 J=ND; I=-1 #line 4357 "regression-compile-tmp/nrimp10s-77.imp" J = ND; #line 4357 "regression-compile-tmp/nrimp10s-77.imp" I = (-1); // 4358 LB=0; ASIZE=ELSIZE #line 4358 "regression-compile-tmp/nrimp10s-77.imp" *LB = 0; #line 4358 "regression-compile-tmp/nrimp10s-77.imp" *ASIZE = ELSIZE; // 4359 %IF MODE=0 %THEN FAULT(41,0) %ELSE P=PIN #line 4359 "regression-compile-tmp/nrimp10s-77.imp" if (((MODE) != (0))) goto L_0407; #line 4359 "regression-compile-tmp/nrimp10s-77.imp" FAULT(41, 0); #line 4359 "regression-compile-tmp/nrimp10s-77.imp" goto L_0408; #line 4359 "regression-compile-tmp/nrimp10s-77.imp" L_0407:; #line 4359 "regression-compile-tmp/nrimp10s-77.imp" P = PIN; #line 4359 "regression-compile-tmp/nrimp10s-77.imp" L_0408:; // 4360 ->WAYOUT #line 4360 "regression-compile-tmp/nrimp10s-77.imp" goto U_1027; // 4361 %END #line 4361 "regression-compile-tmp/nrimp10s-77.imp" } // End of block DOPEVECTOR at level 5 // 4362 // 4363 %ROUTINE DECLARE ARRAYS(%INTEGER FORMAT, FINF) #line 4363 "regression-compile-tmp/nrimp10s-77.imp" void DECLAREARRAYS( int FORMAT, int FINF ) #line 4363 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 4378 %ROUTINESPEC CLAIM AS #line 4378 "regression-compile-tmp/nrimp10s-77.imp" auto void CLAIMAS( void ); // 4379 %INTEGER DVDISP, PP, DVF, ELSIZE, TOTSIZE, D0, D1, PTYPEP, {%C #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int DVDISP; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int PP; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int DVF; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int ELSIZE; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int TOTSIZE; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int D0; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int D1; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int PTYPEP; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int ARRP; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int NN; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int ND; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int II; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int JJ; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int QQ; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int R; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int CDV; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int UNSCAL; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int DESC; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int SC; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int LWB; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int PTYPEPP; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int JJJ; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int JJJJ; #line 4379 "regression-compile-tmp/nrimp10s-77.imp" int ADJ; // 4380 ARRP, NN, ND, II, JJ, QQ, R, CDV, UNSCAL, DESC, SC, {%C // 4381 LWB, PTYPEPP, JJJ, JJJJ, ADJ // 4382 %IF STACK#0 %AND FLAG(LEVEL)=0=NMDECS(LEVEL)>>14 %START #line 4382 "regression-compile-tmp/nrimp10s-77.imp" if (((STACK) == (0))) goto L_0409; #line 4382 "regression-compile-tmp/nrimp10s-77.imp" if ((((FLAG[LEVEL]) != (0))) || (((0) != ((int)((((unsigned int)(NMDECS[LEVEL])) >> (14))))))) goto L_0409; // 4383 PSF1(STSF,1,N) #line 4383 "regression-compile-tmp/nrimp10s-77.imp" PSF1(94, 1, N); // 4384 NMDECS(LEVEL)=NMDECS(LEVEL)!(N<<14) #line 4384 "regression-compile-tmp/nrimp10s-77.imp" NMDECS[LEVEL] = ((NMDECS[LEVEL]) | (((N) << (14)))); // 4385 N=N+4 #line 4385 "regression-compile-tmp/nrimp10s-77.imp" N = (((int)(N)) + (4)); // 4386 %FINISH #line 4386 "regression-compile-tmp/nrimp10s-77.imp" L_0409:; // 4387 %IF STACK=0 %THEN SAVE AUX STACK #line 4387 "regression-compile-tmp/nrimp10s-77.imp" if (((STACK) != (0))) goto L_040a; #line 4387 "regression-compile-tmp/nrimp10s-77.imp" SAVEAUXSTACK(); #line 4387 "regression-compile-tmp/nrimp10s-77.imp" L_040a:; // 4388 ARRP=2*FORMAT+1; ARR=ARRP; PACK(PTYPEP) #line 4388 "regression-compile-tmp/nrimp10s-77.imp" ARRP = (((int)((((int)(2)) * (FORMAT)))) + (1)); #line 4388 "regression-compile-tmp/nrimp10s-77.imp" ARR = ARRP; #line 4388 "regression-compile-tmp/nrimp10s-77.imp" PACK(&PTYPEP); // 4389 ELSIZE=ACC #line 4389 "regression-compile-tmp/nrimp10s-77.imp" ELSIZE = ACC; // 4390 %IF TYPE>2 %OR (TYPE=1 %AND PREC=4) %THEN UNSCAL=1 %AND SC=3 %ELSE UNSCAL=0 %AND SC=PREC #line 4390 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) > (2))) goto L_0406; #line 4390 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (1))) goto L_040b; #line 4390 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) != (4))) goto L_040b; #line 4390 "regression-compile-tmp/nrimp10s-77.imp" L_0406:; #line 4390 "regression-compile-tmp/nrimp10s-77.imp" UNSCAL = 1; #line 4390 "regression-compile-tmp/nrimp10s-77.imp" SC = 3; #line 4390 "regression-compile-tmp/nrimp10s-77.imp" goto L_040c; #line 4390 "regression-compile-tmp/nrimp10s-77.imp" L_040b:; #line 4390 "regression-compile-tmp/nrimp10s-77.imp" UNSCAL = 0; #line 4390 "regression-compile-tmp/nrimp10s-77.imp" SC = PREC; #line 4390 "regression-compile-tmp/nrimp10s-77.imp" L_040c:; // 4391 DESC=SC<<27!UNSCAL<<25!(1-PARMARR)<<24;! ARRAY DESCRIPTOR SKELETON #line 4391 "regression-compile-tmp/nrimp10s-77.imp" DESC = ((((((SC) << (27))) | (((UNSCAL) << (25))))) | ((((((int)(1)) - (PARMARR))) << (24)))); // 4392 %IF PREC=4 %THEN DESC=16_58000002 #line 4392 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) != (4))) goto L_040d; #line 4392 "regression-compile-tmp/nrimp10s-77.imp" DESC = 1476395010; #line 4392 "regression-compile-tmp/nrimp10s-77.imp" L_040d:; // 4393 START:NN=1; P=P+1; ! NO OF NAMES IN NAMELIST #line 4393 "regression-compile-tmp/nrimp10s-77.imp" U_1028:; #line 4393 "regression-compile-tmp/nrimp10s-77.imp" NN = 1; #line 4393 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 4394 PP=P; CDV=0; PTYPEPP=PTYPEP #line 4394 "regression-compile-tmp/nrimp10s-77.imp" PP = P; #line 4394 "regression-compile-tmp/nrimp10s-77.imp" CDV = 0; #line 4394 "regression-compile-tmp/nrimp10s-77.imp" PTYPEPP = PTYPEP; // 4395 P=P+3 %AND NN=NN+1 %WHILE A(P+2)=1 #line 4395 "regression-compile-tmp/nrimp10s-77.imp" L_040e:; #line 4395 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (2))]) != (1))) goto L_040f; #line 4395 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); #line 4395 "regression-compile-tmp/nrimp10s-77.imp" NN = (((int)(NN)) + (1)); #line 4395 "regression-compile-tmp/nrimp10s-77.imp" goto L_040e; #line 4395 "regression-compile-tmp/nrimp10s-77.imp" L_040f:; // 4396 P=P+3 #line 4396 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); // 4397 DVDISP=DOPE VECTOR(TYPE,ELSIZE,1,FROMAR2(PP),TOTSIZE,LWB) #line 4397 "regression-compile-tmp/nrimp10s-77.imp" DVDISP = DOPEVECTOR(TYPE, ELSIZE, 1, FROMAR2(PP), &TOTSIZE, &LWB); // 4398 ND=J #line 4398 "regression-compile-tmp/nrimp10s-77.imp" ND = J; // 4399 ->CONSTDV %UNLESS DVDISP=-1 #line 4399 "regression-compile-tmp/nrimp10s-77.imp" if (((DVDISP) == ((-1)))) goto L_0411; #line 4399 "regression-compile-tmp/nrimp10s-77.imp" goto U_102e; #line 4399 "regression-compile-tmp/nrimp10s-77.imp" L_0411:; // 4400 ! NORMAL CASE - PLANT CODE TO SET UP DOPE-VECTOR AT RUN TIME // 4401 // 4402 DVF=0; TOTSIZE=16_FFFF #line 4402 "regression-compile-tmp/nrimp10s-77.imp" DVF = 0; #line 4402 "regression-compile-tmp/nrimp10s-77.imp" TOTSIZE = 65535; // 4403 DVDISP=N; ! DVDISP IS D-V POSITION #line 4403 "regression-compile-tmp/nrimp10s-77.imp" DVDISP = N; // 4404 N=N+12*ND+12; ! CLAIM SPACE FOR THE D-V #line 4404 "regression-compile-tmp/nrimp10s-77.imp" N = (((int)(((N) + ((int)((((int)(12)) * (ND))))))) + (12)); // 4405 FAULT(37,0) %IF ND>12; ! TOO MANY DIMENSIONS #line 4405 "regression-compile-tmp/nrimp10s-77.imp" if (((ND) <= (12))) goto L_0412; #line 4405 "regression-compile-tmp/nrimp10s-77.imp" FAULT(37, 0); #line 4405 "regression-compile-tmp/nrimp10s-77.imp" L_0412:; // 4406 D0=5<<27!3*ND; D1=12; ! DESCPTR FOR DV #line 4406 "regression-compile-tmp/nrimp10s-77.imp" D0 = ((((5) << (27))) | ((((int)(3)) * (ND)))); #line 4406 "regression-compile-tmp/nrimp10s-77.imp" D1 = 12; // 4407 STORE CONST(JJ,8,ADDR(D0)) #line 4407 "regression-compile-tmp/nrimp10s-77.imp" STORECONST(&JJ, 8, _imp_ADDR(&D0)); // 4408 PF1(LD,0,PC,JJ) #line 4408 "regression-compile-tmp/nrimp10s-77.imp" PF1(120, 0, 4, JJ); // 4409 PSF1(STD,1,DVDISP) #line 4409 "regression-compile-tmp/nrimp10s-77.imp" PSF1(88, 1, DVDISP); // 4410 GRUSE(DR)=0 #line 4410 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[1] = 0; // 4411 // 4412 %IF UNSCAL=0 %THEN JJ=1 %ELSE JJ=ELSIZE #line 4412 "regression-compile-tmp/nrimp10s-77.imp" if (((UNSCAL) != (0))) goto L_0413; #line 4412 "regression-compile-tmp/nrimp10s-77.imp" JJ = 1; #line 4412 "regression-compile-tmp/nrimp10s-77.imp" goto L_0414; #line 4412 "regression-compile-tmp/nrimp10s-77.imp" L_0413:; #line 4412 "regression-compile-tmp/nrimp10s-77.imp" JJ = ELSIZE; #line 4412 "regression-compile-tmp/nrimp10s-77.imp" L_0414:; // 4413 PSF1(LSS,0,JJ); ! M1 THE FIRST MULTIPLIER #line 4413 "regression-compile-tmp/nrimp10s-77.imp" PSF1(98, 0, JJ); // 4414 GRUSE(ACCR)=0 #line 4414 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[0] = 0; // 4415 %CYCLE II=ND,-1,1 #line 4415 "regression-compile-tmp/nrimp10s-77.imp" II = ((ND) + ((int)(1))); if ((((1)-(ND)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle II = ND, (-1), 1"); L_0415:; if (II == 1) goto L_0416; II += (-1); // 4416 P=P+1 #line 4416 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 4417 QQ=DVDISP+12*II; ! TRIPLE FOR IITH DIMENSION #line 4417 "regression-compile-tmp/nrimp10s-77.imp" QQ = ((DVDISP) + ((int)((((int)(12)) * (II))))); // 4418 PSF1(ST,1,QQ+4); ! STORE MULTIPLIER #line 4418 "regression-compile-tmp/nrimp10s-77.imp" PSF1(72, 1, (((int)(QQ)) + (4))); // 4419 CSEXP(ACCR,16_51); ! LOWER BOUND #line 4419 "regression-compile-tmp/nrimp10s-77.imp" CSEXP(0, 81); // 4420 %IF ND=1 %AND PTYPEP&7<=3 %AND FORMAT=0 %AND GRUSE(ACCR)=5 %AND GRINF1(ACCR)=0 %THEN PTYPEPP=PTYPEPP+256 #line 4420 "regression-compile-tmp/nrimp10s-77.imp" if (((ND) != (1))) goto L_0418; #line 4420 "regression-compile-tmp/nrimp10s-77.imp" if (((((PTYPEP) & (7))) > (3))) goto L_0418; #line 4420 "regression-compile-tmp/nrimp10s-77.imp" if (((FORMAT) != (0))) goto L_0418; #line 4420 "regression-compile-tmp/nrimp10s-77.imp" if (((GRUSE[0]) != (5))) goto L_0418; #line 4420 "regression-compile-tmp/nrimp10s-77.imp" if (((GRINF1[0]) != (0))) goto L_0418; #line 4420 "regression-compile-tmp/nrimp10s-77.imp" PTYPEPP = (((int)(PTYPEPP)) + (256)); #line 4420 "regression-compile-tmp/nrimp10s-77.imp" L_0418:; // 4421 PSF1(ST,1,QQ); ! STORED IN DV #line 4421 "regression-compile-tmp/nrimp10s-77.imp" PSF1(72, 1, QQ); // 4422 CSEXP(ACCR,16_51); ! UPPER BOUND #line 4422 "regression-compile-tmp/nrimp10s-77.imp" CSEXP(0, 81); // 4423 PSF1(ISB,1,QQ) #line 4423 "regression-compile-tmp/nrimp10s-77.imp" PSF1(226, 1, QQ); // 4424 GRUSE(ACCR)=0 #line 4424 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[0] = 0; // 4425 %IF COMPILER=0 %OR PARMARR#0 %START #line 4425 "regression-compile-tmp/nrimp10s-77.imp" if (((COMPILER) == (0))) goto L_0419; #line 4425 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMARR) == (0))) goto L_041a; #line 4425 "regression-compile-tmp/nrimp10s-77.imp" L_0419:; // 4426 PF3(JAF,6,0,3); ! JUMP UNLESS NEGATIVE #line 4426 "regression-compile-tmp/nrimp10s-77.imp" PF3(6, 6, 0, 3); // 4427 PSF1(LSS,0,-1); ! SET UP -1 (ENSURES 0 ELEMENTS #line 4427 "regression-compile-tmp/nrimp10s-77.imp" PSF1(98, 0, (-1)); // 4428 %FINISH #line 4428 "regression-compile-tmp/nrimp10s-77.imp" L_041a:; // 4429 PSF1(IAD,0,1); ! CONVERTED TO RANGE #line 4429 "regression-compile-tmp/nrimp10s-77.imp" PSF1(224, 0, 1); // 4430 PSF1(IMY,1,QQ+4); ! RANGE*MULTIPLIER #line 4430 "regression-compile-tmp/nrimp10s-77.imp" PSF1(234, 1, (((int)(QQ)) + (4))); // 4431 PSF1(ST,1,QQ+8); ! AND STORED IN DV #line 4431 "regression-compile-tmp/nrimp10s-77.imp" PSF1(72, 1, (((int)(QQ)) + (8))); // 4432 %REPEAT #line 4432 "regression-compile-tmp/nrimp10s-77.imp" goto L_0415; #line 4432 "regression-compile-tmp/nrimp10s-77.imp" L_0416:; // 4433 P=P+1 #line 4433 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 4434 %IF UNSCAL=0 %AND ELSIZE#1 %THEN PSF1(IMY,0,ELSIZE) #line 4434 "regression-compile-tmp/nrimp10s-77.imp" if (((UNSCAL) != (0))) goto L_041b; #line 4434 "regression-compile-tmp/nrimp10s-77.imp" if (((ELSIZE) == (1))) goto L_041b; #line 4434 "regression-compile-tmp/nrimp10s-77.imp" PSF1(234, 0, ELSIZE); #line 4434 "regression-compile-tmp/nrimp10s-77.imp" L_041b:; // 4435 PSF1(ST,1,DVDISP+8) #line 4435 "regression-compile-tmp/nrimp10s-77.imp" PSF1(72, 1, (((int)(DVDISP)) + (8))); // 4436 SNDISP=0; ! DV NOT AVAILABLE AT COMPILETIME #line 4436 "regression-compile-tmp/nrimp10s-77.imp" SNDISP = 0; // 4437 ->DECL #line 4437 "regression-compile-tmp/nrimp10s-77.imp" goto U_102f; // 4438 CONSTDV: ! ONE DIMENSION - CONSTANT BOUNDS #line 4438 "regression-compile-tmp/nrimp10s-77.imp" U_102e:; // 4439 DVF=1; CDV=1 #line 4439 "regression-compile-tmp/nrimp10s-77.imp" DVF = 1; #line 4439 "regression-compile-tmp/nrimp10s-77.imp" CDV = 1; // 4440 %IF ND=1 %AND LWB=0 %AND PTYPEP&15<=3 %AND FORMAT=0 %THEN PTYPEPP=PTYPEP+256 #line 4440 "regression-compile-tmp/nrimp10s-77.imp" if (((ND) != (1))) goto L_041c; #line 4440 "regression-compile-tmp/nrimp10s-77.imp" if (((LWB) != (0))) goto L_041c; #line 4440 "regression-compile-tmp/nrimp10s-77.imp" if (((((PTYPEP) & (15))) > (3))) goto L_041c; #line 4440 "regression-compile-tmp/nrimp10s-77.imp" if (((FORMAT) != (0))) goto L_041c; #line 4440 "regression-compile-tmp/nrimp10s-77.imp" PTYPEPP = (((int)(PTYPEP)) + (256)); #line 4440 "regression-compile-tmp/nrimp10s-77.imp" L_041c:; // 4441 ! SET ARR=2 IF LWB=ZERO // 4442 SNDISP=(DVDISP&16_FFFFFF)>>2 #line 4442 "regression-compile-tmp/nrimp10s-77.imp" SNDISP = ((((((DVDISP) & (16777215)))) >> (2))); // 4443 DECL: ! MAKE DECLN - BOTH WAYS #line 4443 "regression-compile-tmp/nrimp10s-77.imp" U_102f:; // 4444 J=ND #line 4444 "regression-compile-tmp/nrimp10s-77.imp" J = ND; // 4445 ODD ALIGN #line 4445 "regression-compile-tmp/nrimp10s-77.imp" ODDALIGN(); // 4446 PTYPE=PTYPEPP; UNPACK #line 4446 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = PTYPEPP; #line 4446 "regression-compile-tmp/nrimp10s-77.imp" UNPACK(); // 4447 %IF DVF#0 %THEN %START; ! ARRAY IS STRING OF LOCALS #line 4447 "regression-compile-tmp/nrimp10s-77.imp" if (((DVF) == (0))) goto L_041d; // 4448 R=TOTSIZE #line 4448 "regression-compile-tmp/nrimp10s-77.imp" R = TOTSIZE; // 4449 %IF UNSCAL=0 %THEN R=R//ELSIZE #line 4449 "regression-compile-tmp/nrimp10s-77.imp" if (((UNSCAL) != (0))) goto L_041e; #line 4449 "regression-compile-tmp/nrimp10s-77.imp" R = (long)((long)((int)(R)) / (long)((int)(_Z(ELSIZE)))); #line 4449 "regression-compile-tmp/nrimp10s-77.imp" L_041e:; // 4450 D0=DESC #line 4450 "regression-compile-tmp/nrimp10s-77.imp" D0 = DESC; // 4451 D0=D0!R %UNLESS PREC=4 #line 4451 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) == (4))) goto L_041f; #line 4451 "regression-compile-tmp/nrimp10s-77.imp" D0 = ((D0) | (R)); #line 4451 "regression-compile-tmp/nrimp10s-77.imp" L_041f:; // 4452 STORE CONST(D1,4,ADDR(D0)) #line 4452 "regression-compile-tmp/nrimp10s-77.imp" STORECONST(&D1, 4, _imp_ADDR(&D0)); // 4453 PF1(LB,0,PC,D1) #line 4453 "regression-compile-tmp/nrimp10s-77.imp" PF1(122, 0, 4, D1); // 4454 %FINISH %ELSE %START #line 4454 "regression-compile-tmp/nrimp10s-77.imp" goto L_0420; #line 4454 "regression-compile-tmp/nrimp10s-77.imp" L_041d:; // 4455 STORE CONST(D1,4,ADDR(DESC)) #line 4455 "regression-compile-tmp/nrimp10s-77.imp" STORECONST(&D1, 4, _imp_ADDR(&DESC)); // 4456 PF1(LB,0,PC,D1) #line 4456 "regression-compile-tmp/nrimp10s-77.imp" PF1(122, 0, 4, D1); // 4457 PSF1(ADB,1,DVDISP+20) %UNLESS PREC=4 #line 4457 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) == (4))) goto L_0421; #line 4457 "regression-compile-tmp/nrimp10s-77.imp" PSF1(32, 1, (((int)(DVDISP)) + (20))); #line 4457 "regression-compile-tmp/nrimp10s-77.imp" L_0421:; // 4458 %FINISH #line 4458 "regression-compile-tmp/nrimp10s-77.imp" L_0420:; // 4459 %IF DVF#0 %THEN QQ=PC %ELSE QQ=LNB #line 4459 "regression-compile-tmp/nrimp10s-77.imp" if (((DVF) == (0))) goto L_0422; #line 4459 "regression-compile-tmp/nrimp10s-77.imp" QQ = 4; #line 4459 "regression-compile-tmp/nrimp10s-77.imp" goto L_0423; #line 4459 "regression-compile-tmp/nrimp10s-77.imp" L_0422:; #line 4459 "regression-compile-tmp/nrimp10s-77.imp" QQ = 2; #line 4459 "regression-compile-tmp/nrimp10s-77.imp" L_0423:; // 4460 PSORLF1(LDRL,0,QQ,DVDISP) #line 4460 "regression-compile-tmp/nrimp10s-77.imp" PSORLF1(112, 0, QQ, DVDISP); // 4461 GRUSE(BREG)=0; GRUSE(DR)=0 #line 4461 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[7] = 0; #line 4461 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[1] = 0; // 4462 %CYCLE JJJ=0,1,NN-1; ! DOWN NAMELIST #line 4462 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = (((int)(NN)) - (1)); JJJ = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJJ = 0, 1, (((int)(NN)) - (1))"); JJJ -= _increment; _control -= _increment; L_0424:; if (JJJ == _final) goto L_0425; JJJ += _increment; _control += _increment; if (JJJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJJ"); /* FOR loop control variable corrupted */ } // 4463 PSF1(STB,1,N+16*JJJ); ! ARRAY BOUND #line 4463 "regression-compile-tmp/nrimp10s-77.imp" PSF1(90, 1, ((N) + ((int)((((int)(16)) * (JJJ)))))); // 4464 PSF1(STD,1,N+8+16*JJJ); ! DV POINTER #line 4464 "regression-compile-tmp/nrimp10s-77.imp" PSF1(88, 1, ((((((int)(N)) + (8)))) + ((((int)(16)) * (JJJ))))); // 4465 %REPEAT #line 4465 "regression-compile-tmp/nrimp10s-77.imp" goto L_0424; #line 4465 "regression-compile-tmp/nrimp10s-77.imp" L_0425:; // 4466 %IF PARMARR=0 %AND PARMCHK=0 %AND ND=1 %AND TYPE<=3 %AND PTYPEPP&16_F00#16_200 %THEN ADJ=1 %ELSE ADJ=0 #line 4466 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMARR) != (0))) goto L_0427; #line 4466 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMCHK) != (0))) goto L_0427; #line 4466 "regression-compile-tmp/nrimp10s-77.imp" if (((ND) != (1))) goto L_0427; #line 4466 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) > (3))) goto L_0427; #line 4466 "regression-compile-tmp/nrimp10s-77.imp" if (((((PTYPEPP) & (3840))) == (512))) goto L_0427; #line 4466 "regression-compile-tmp/nrimp10s-77.imp" ADJ = 1; #line 4466 "regression-compile-tmp/nrimp10s-77.imp" goto L_0428; #line 4466 "regression-compile-tmp/nrimp10s-77.imp" L_0427:; #line 4466 "regression-compile-tmp/nrimp10s-77.imp" ADJ = 0; #line 4466 "regression-compile-tmp/nrimp10s-77.imp" L_0428:; // 4467 %CYCLE JJJ=0,1,NN-1; ! DOWN NAMELIST #line 4467 "regression-compile-tmp/nrimp10s-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = (((int)(NN)) - (1)); JJJ = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJJ = 0, 1, (((int)(NN)) - (1))"); JJJ -= _increment; _control -= _increment; L_0429:; if (JJJ == _final) goto L_042a; JJJ += _increment; _control += _increment; if (JJJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJJ"); /* FOR loop control variable corrupted */ } // 4468 %IF ADJ#0 %START; ! ADJUST DESC #line 4468 "regression-compile-tmp/nrimp10s-77.imp" if (((ADJ) == (0))) goto L_042c; // 4469 %IF STACK#0 %START; ! ARRAY ON AUTOMATIC STACK #line 4469 "regression-compile-tmp/nrimp10s-77.imp" if (((STACK) == (0))) goto L_042d; // 4470 PF1(STSF,0,BREG,0); ! CURRENT SF TO B #line 4470 "regression-compile-tmp/nrimp10s-77.imp" PF1(94, 0, 7, 0); // 4471 %IF DVF#0 %THEN PSF1(SBB,0,LWB*ELSIZE) %ELSE %START #line 4471 "regression-compile-tmp/nrimp10s-77.imp" if (((DVF) == (0))) goto L_042e; #line 4471 "regression-compile-tmp/nrimp10s-77.imp" PSF1(34, 0, (((int)(LWB)) * (ELSIZE))); #line 4471 "regression-compile-tmp/nrimp10s-77.imp" goto L_042f; #line 4471 "regression-compile-tmp/nrimp10s-77.imp" L_042e:; // 4472 %IF ELSIZE=1 %THEN PSF1(SBB,1,DVDISP+12) %ELSESTART #line 4472 "regression-compile-tmp/nrimp10s-77.imp" if (((ELSIZE) != (1))) goto L_0430; #line 4472 "regression-compile-tmp/nrimp10s-77.imp" PSF1(34, 1, (((int)(DVDISP)) + (12))); #line 4472 "regression-compile-tmp/nrimp10s-77.imp" goto L_0431; #line 4472 "regression-compile-tmp/nrimp10s-77.imp" L_0430:; // 4473 PSF1(SLB,1,DVDISP+12) #line 4473 "regression-compile-tmp/nrimp10s-77.imp" PSF1(82, 1, (((int)(DVDISP)) + (12))); // 4474 PSF1(MYB,0,ELSIZE) #line 4474 "regression-compile-tmp/nrimp10s-77.imp" PSF1(42, 0, ELSIZE); // 4475 PF1(SLB,0,TOS,0) #line 4475 "regression-compile-tmp/nrimp10s-77.imp" PF1(82, 0, 6, 0); // 4476 PF1(SBB,0,TOS,0) #line 4476 "regression-compile-tmp/nrimp10s-77.imp" PF1(34, 0, 6, 0); // 4477 %FINISH #line 4477 "regression-compile-tmp/nrimp10s-77.imp" L_0431:; // 4478 %FINISH #line 4478 "regression-compile-tmp/nrimp10s-77.imp" L_042f:; // 4479 PSF1(STB,1,N+4) #line 4479 "regression-compile-tmp/nrimp10s-77.imp" PSF1(90, 1, (((int)(N)) + (4))); // 4480 GRUSE(BREG)=0 #line 4480 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[7] = 0; // 4481 %FINISH %ELSE %START; ! ARRAY ON AUX STACK #line 4481 "regression-compile-tmp/nrimp10s-77.imp" goto L_0432; #line 4481 "regression-compile-tmp/nrimp10s-77.imp" L_042d:; // 4482 %IF DVF#0 %START; ! CONST DOPE VECTOR #line 4482 "regression-compile-tmp/nrimp10s-77.imp" if (((DVF) == (0))) goto L_0433; // 4483 %UNLESS GRUSE(ACCR)=11 %%START #line 4483 "regression-compile-tmp/nrimp10s-77.imp" if (((GRUSE[0]) == (11))) goto L_0434; // 4484 PSF1(LSS,2,AUXSBASE(LEVEL)) #line 4484 "regression-compile-tmp/nrimp10s-77.imp" PSF1(98, 2, AUXSBASE[LEVEL]); // 4485 GRUSE(ACCR)=11; GRINF1(ACCR)=0 #line 4485 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[0] = 11; #line 4485 "regression-compile-tmp/nrimp10s-77.imp" GRINF1[0] = 0; // 4486 %FINISH #line 4486 "regression-compile-tmp/nrimp10s-77.imp" L_0434:; // 4487 JJJJ=LWB*ELSIZE-GRINF1(ACCR) #line 4487 "regression-compile-tmp/nrimp10s-77.imp" JJJJ = (((int)((((int)(LWB)) * (ELSIZE)))) - (GRINF1[0])); // 4488 PSF1(ISB,0,JJJJ) %UNLESS JJJJ=0 #line 4488 "regression-compile-tmp/nrimp10s-77.imp" if (((JJJJ) == (0))) goto L_0435; #line 4488 "regression-compile-tmp/nrimp10s-77.imp" PSF1(226, 0, JJJJ); #line 4488 "regression-compile-tmp/nrimp10s-77.imp" L_0435:; // 4489 GRINF1(ACCR)=LWB*ELSIZE #line 4489 "regression-compile-tmp/nrimp10s-77.imp" GRINF1[0] = (((int)(LWB)) * (ELSIZE)); // 4490 %FINISH %ELSE %START; ! DYNAMIC ARRAYS #line 4490 "regression-compile-tmp/nrimp10s-77.imp" goto L_0436; #line 4490 "regression-compile-tmp/nrimp10s-77.imp" L_0433:; // 4491 %IF GRUSE(ACCR)=11 %AND GRINF1(ACCR)=0 %AND ELSIZE=1 %THEN PSF1(ISB,1,DVDISP+12) %ELSESTART #line 4491 "regression-compile-tmp/nrimp10s-77.imp" if (((GRUSE[0]) != (11))) goto L_0437; #line 4491 "regression-compile-tmp/nrimp10s-77.imp" if (((GRINF1[0]) != (0))) goto L_0437; #line 4491 "regression-compile-tmp/nrimp10s-77.imp" if (((ELSIZE) != (1))) goto L_0437; #line 4491 "regression-compile-tmp/nrimp10s-77.imp" PSF1(226, 1, (((int)(DVDISP)) + (12))); #line 4491 "regression-compile-tmp/nrimp10s-77.imp" goto L_0438; #line 4491 "regression-compile-tmp/nrimp10s-77.imp" L_0437:; // 4492 PSF1(LSS,1,DVDISP+12) #line 4492 "regression-compile-tmp/nrimp10s-77.imp" PSF1(98, 1, (((int)(DVDISP)) + (12))); // 4493 PSF1(IMY,0,ELSIZE) %UNLESS ELSIZE=1 #line 4493 "regression-compile-tmp/nrimp10s-77.imp" if (((ELSIZE) == (1))) goto L_0439; #line 4493 "regression-compile-tmp/nrimp10s-77.imp" PSF1(234, 0, ELSIZE); #line 4493 "regression-compile-tmp/nrimp10s-77.imp" L_0439:; // 4494 PSF1(IRSB,2,AUXSBASE(LEVEL)) #line 4494 "regression-compile-tmp/nrimp10s-77.imp" PSF1(228, 2, AUXSBASE[LEVEL]); // 4495 %FINISH #line 4495 "regression-compile-tmp/nrimp10s-77.imp" L_0438:; // 4496 GRUSE(ACCR)=0 #line 4496 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[0] = 0; // 4497 %FINISH #line 4497 "regression-compile-tmp/nrimp10s-77.imp" L_0436:; // 4498 PSF1(ST,1,N+4) #line 4498 "regression-compile-tmp/nrimp10s-77.imp" PSF1(72, 1, (((int)(N)) + (4))); // 4499 %FINISH #line 4499 "regression-compile-tmp/nrimp10s-77.imp" L_0432:; // 4500 %FINISH %ELSE %START; ! NO ADJUSTMENT OF DESCRPT #line 4500 "regression-compile-tmp/nrimp10s-77.imp" goto L_043a; #line 4500 "regression-compile-tmp/nrimp10s-77.imp" L_042c:; // 4501 %IF STACK#0 %THEN PSF1(STSF,1,N+4) %ELSE %START #line 4501 "regression-compile-tmp/nrimp10s-77.imp" if (((STACK) == (0))) goto L_043b; #line 4501 "regression-compile-tmp/nrimp10s-77.imp" PSF1(94, 1, (((int)(N)) + (4))); #line 4501 "regression-compile-tmp/nrimp10s-77.imp" goto L_043c; #line 4501 "regression-compile-tmp/nrimp10s-77.imp" L_043b:; // 4502 PSF1(LSS,2,AUXSBASE(LEVEL)) %UNLESS GRUSE(ACCR)=11 %AND GRINF1(ACCR)=0 #line 4502 "regression-compile-tmp/nrimp10s-77.imp" if (((GRUSE[0]) != (11))) goto L_043d; #line 4502 "regression-compile-tmp/nrimp10s-77.imp" if (((GRINF1[0]) == (0))) goto L_043e; #line 4502 "regression-compile-tmp/nrimp10s-77.imp" L_043d:; #line 4502 "regression-compile-tmp/nrimp10s-77.imp" PSF1(98, 2, AUXSBASE[LEVEL]); #line 4502 "regression-compile-tmp/nrimp10s-77.imp" L_043e:; // 4503 PSF1(ST,1,N+4) #line 4503 "regression-compile-tmp/nrimp10s-77.imp" PSF1(72, 1, (((int)(N)) + (4))); // 4504 GRUSE(ACCR)=11; GRINF1(ACCR)=0 #line 4504 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[0] = 11; #line 4504 "regression-compile-tmp/nrimp10s-77.imp" GRINF1[0] = 0; // 4505 %FINISH #line 4505 "regression-compile-tmp/nrimp10s-77.imp" L_043c:; // 4506 %FINISH #line 4506 "regression-compile-tmp/nrimp10s-77.imp" L_043a:; // 4507 // 4508 ACC=ELSIZE; ! RESET ACC AFTER DV CMPLD #line 4508 "regression-compile-tmp/nrimp10s-77.imp" ACC = ELSIZE; // 4509 KFORM=FINF; ! FORMAT INFORMATION #line 4509 "regression-compile-tmp/nrimp10s-77.imp" KFORM = FINF; // 4510 K=FROM AR2(PP+3*JJJ) #line 4510 "regression-compile-tmp/nrimp10s-77.imp" K = FROMAR2(((PP) + ((int)((((int)(3)) * (JJJ)))))); // 4511 STORE TAG(K,N) #line 4511 "regression-compile-tmp/nrimp10s-77.imp" STORETAG(K, N); // 4512 CLAIM AS %IF FORMAT = 0 #line 4512 "regression-compile-tmp/nrimp10s-77.imp" if (((FORMAT) != (0))) goto L_043f; #line 4512 "regression-compile-tmp/nrimp10s-77.imp" CLAIMAS(); #line 4512 "regression-compile-tmp/nrimp10s-77.imp" L_043f:; // 4513 N=N+16 #line 4513 "regression-compile-tmp/nrimp10s-77.imp" N = (((int)(N)) + (16)); // 4514 %REPEAT #line 4514 "regression-compile-tmp/nrimp10s-77.imp" goto L_0429; #line 4514 "regression-compile-tmp/nrimp10s-77.imp" L_042a:; // 4515 P=P+1; ! PAST REST OF ARRAYLIST #line 4515 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 4516 %IF A(P-1)=1 %THEN ->START #line 4516 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) - (1))]) != (1))) goto L_0440; #line 4516 "regression-compile-tmp/nrimp10s-77.imp" goto U_1028; #line 4516 "regression-compile-tmp/nrimp10s-77.imp" L_0440:; // 4517 %RETURN #line 4517 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 4518 %ROUTINE CLAIM AS #line 4518 "regression-compile-tmp/nrimp10s-77.imp" void CLAIMAS( void ) #line 4518 "regression-compile-tmp/nrimp10s-77.imp" { // 4519 !*********************************************************************** // 4520 !* CLAIM THE SPACE FOR AN ARRAY FROM STACK OR AUX STACK * // 4521 !*********************************************************************** // 4522 %INTEGER T, B, D,ADJMENT #line 4522 "regression-compile-tmp/nrimp10s-77.imp" int T; #line 4522 "regression-compile-tmp/nrimp10s-77.imp" int B; #line 4522 "regression-compile-tmp/nrimp10s-77.imp" int D; #line 4522 "regression-compile-tmp/nrimp10s-77.imp" int ADJMENT; // 4523 %IF STACK=1 %THEN %START; ! FROM AUTOMATIC STACK #line 4523 "regression-compile-tmp/nrimp10s-77.imp" if (((STACK) != (1))) goto L_0441; // 4524 %IF CDV=1 %THEN %START; ! CONSTANT BOUNDS #line 4524 "regression-compile-tmp/nrimp10s-77.imp" if (((CDV) != (1))) goto L_0442; // 4525 T=(TOTSIZE+3)//4 #line 4525 "regression-compile-tmp/nrimp10s-77.imp" T = (long)((long)(((((int)(TOTSIZE)) + (3)))) / (long)((int)(4))); // 4526 PSF1(ASF+12*PARMCHK,0,T); ! ASF OR LB #line 4526 "regression-compile-tmp/nrimp10s-77.imp" PSF1(((110) + ((int)((((int)(12)) * (PARMCHK))))), 0, T); // 4527 PPJ(0,4) %IF PARMCHK#0 #line 4527 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMCHK) == (0))) goto L_0443; #line 4527 "regression-compile-tmp/nrimp10s-77.imp" PPJ(0, 4); #line 4527 "regression-compile-tmp/nrimp10s-77.imp" L_0443:; // 4528 %FINISH %ELSE %START; ! DYNAMIC BOUNDS #line 4528 "regression-compile-tmp/nrimp10s-77.imp" goto L_0444; #line 4528 "regression-compile-tmp/nrimp10s-77.imp" L_0442:; // 4529 %IF PARMCHK=0 %AND PTYPEP&7<=2 %AND (ELSIZE=4 %OR ELSIZE=8) %START #line 4529 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMCHK) != (0))) goto L_0445; #line 4529 "regression-compile-tmp/nrimp10s-77.imp" if (((((PTYPEP) & (7))) > (2))) goto L_0445; #line 4529 "regression-compile-tmp/nrimp10s-77.imp" if (((ELSIZE) == (4))) goto L_03fd; #line 4529 "regression-compile-tmp/nrimp10s-77.imp" if (((ELSIZE) != (8))) goto L_0445; #line 4529 "regression-compile-tmp/nrimp10s-77.imp" L_03fd:; // 4530 PSF1(ASF,1,DVDISP+20); ! SIZE IN ELEMENTS WORD #line 4530 "regression-compile-tmp/nrimp10s-77.imp" PSF1(110, 1, (((int)(DVDISP)) + (20))); // 4531 PSF1(ASF,1,DVDISP+20) %IF ELSIZE=8 #line 4531 "regression-compile-tmp/nrimp10s-77.imp" if (((ELSIZE) != (8))) goto L_0446; #line 4531 "regression-compile-tmp/nrimp10s-77.imp" PSF1(110, 1, (((int)(DVDISP)) + (20))); #line 4531 "regression-compile-tmp/nrimp10s-77.imp" L_0446:; // 4532 %FINISH %ELSE %START #line 4532 "regression-compile-tmp/nrimp10s-77.imp" goto L_0447; #line 4532 "regression-compile-tmp/nrimp10s-77.imp" L_0445:; // 4533 PSF1(LSS,1,DVDISP+8); ! ARRAY SIZE BYTES #line 4533 "regression-compile-tmp/nrimp10s-77.imp" PSF1(98, 1, (((int)(DVDISP)) + (8))); // 4534 PSF1(IAD,0,3) %IF ELSIZE&3#0 #line 4534 "regression-compile-tmp/nrimp10s-77.imp" if (((((ELSIZE) & (3))) == (0))) goto L_0448; #line 4534 "regression-compile-tmp/nrimp10s-77.imp" PSF1(224, 0, 3); #line 4534 "regression-compile-tmp/nrimp10s-77.imp" L_0448:; // 4535 PSF1(USH,0,-2); ! ARRAY SIZE WORDS #line 4535 "regression-compile-tmp/nrimp10s-77.imp" PSF1(200, 0, (-2)); // 4536 PF1(ST,0,BREG,0) #line 4536 "regression-compile-tmp/nrimp10s-77.imp" PF1(72, 0, 7, 0); // 4537 FORGET(BREG) #line 4537 "regression-compile-tmp/nrimp10s-77.imp" FORGET(7); // 4538 %IF PARMCHK#0 %THEN PPJ(0,4) %ELSE PF1(ASF,0,BREG,0) #line 4538 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMCHK) == (0))) goto L_0449; #line 4538 "regression-compile-tmp/nrimp10s-77.imp" PPJ(0, 4); #line 4538 "regression-compile-tmp/nrimp10s-77.imp" goto L_044a; #line 4538 "regression-compile-tmp/nrimp10s-77.imp" L_0449:; #line 4538 "regression-compile-tmp/nrimp10s-77.imp" PF1(110, 0, 7, 0); #line 4538 "regression-compile-tmp/nrimp10s-77.imp" L_044a:; // 4539 %FINISH #line 4539 "regression-compile-tmp/nrimp10s-77.imp" L_0447:; // 4540 %FINISH #line 4540 "regression-compile-tmp/nrimp10s-77.imp" L_0444:; // 4541 CHECK STOF #line 4541 "regression-compile-tmp/nrimp10s-77.imp" CHECKSTOF(); // 4542 %FINISH %ELSE %START #line 4542 "regression-compile-tmp/nrimp10s-77.imp" goto L_044b; #line 4542 "regression-compile-tmp/nrimp10s-77.imp" L_0441:; // 4543 %UNLESS GRUSE(ACCR)=11 %AND (GRINF1(ACCR)=0 %OR CDV=1) %START #line 4543 "regression-compile-tmp/nrimp10s-77.imp" if (((GRUSE[0]) != (11))) goto L_044c; #line 4543 "regression-compile-tmp/nrimp10s-77.imp" if (((GRINF1[0]) == (0))) goto L_044d; #line 4543 "regression-compile-tmp/nrimp10s-77.imp" if (((CDV) == (1))) goto L_044d; #line 4543 "regression-compile-tmp/nrimp10s-77.imp" L_044c:; // 4544 PSF1(LSS,2,AUXSBASE(LEVEL)) #line 4544 "regression-compile-tmp/nrimp10s-77.imp" PSF1(98, 2, AUXSBASE[LEVEL]); // 4545 GRUSE(ACCR)=11; GRINF1(ACCR)=0 #line 4545 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[0] = 11; #line 4545 "regression-compile-tmp/nrimp10s-77.imp" GRINF1[0] = 0; // 4546 %FINISH #line 4546 "regression-compile-tmp/nrimp10s-77.imp" L_044d:; // 4547 %IF CDV=1 %THEN %START #line 4547 "regression-compile-tmp/nrimp10s-77.imp" if (((CDV) != (1))) goto L_044e; // 4548 ADJMENT=(TOTSIZE+7)&(-8)+GRINF1(ACCR) #line 4548 "regression-compile-tmp/nrimp10s-77.imp" ADJMENT = (((int)((((((int)(TOTSIZE)) + (7))) & ((-8))))) + (GRINF1[0])); // 4549 %IF ADJMENT<16_1FFFF %THEN B=0 %AND D=ADJMENT %ELSE %START #line 4549 "regression-compile-tmp/nrimp10s-77.imp" if (((ADJMENT) >= (131071))) goto L_044f; #line 4549 "regression-compile-tmp/nrimp10s-77.imp" B = 0; #line 4549 "regression-compile-tmp/nrimp10s-77.imp" D = ADJMENT; #line 4549 "regression-compile-tmp/nrimp10s-77.imp" goto L_0450; #line 4549 "regression-compile-tmp/nrimp10s-77.imp" L_044f:; // 4550 STORE CONST(D,4,ADDR(ADJMENT)) #line 4550 "regression-compile-tmp/nrimp10s-77.imp" STORECONST(&D, 4, _imp_ADDR(&ADJMENT)); // 4551 B=PC #line 4551 "regression-compile-tmp/nrimp10s-77.imp" B = 4; // 4552 %FINISH #line 4552 "regression-compile-tmp/nrimp10s-77.imp" L_0450:; // 4553 %IF ADJ=1 %AND JJJ#NN-1 %AND PARMOPT=0 %THEN GRINF1(ACCR)=ADJMENT %ELSE %START #line 4553 "regression-compile-tmp/nrimp10s-77.imp" if (((ADJ) != (1))) goto L_0451; #line 4553 "regression-compile-tmp/nrimp10s-77.imp" if (((JJJ) == ((((int)(NN)) - (1))))) goto L_0451; #line 4553 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMOPT) != (0))) goto L_0451; #line 4553 "regression-compile-tmp/nrimp10s-77.imp" GRINF1[0] = ADJMENT; #line 4553 "regression-compile-tmp/nrimp10s-77.imp" goto L_0452; #line 4553 "regression-compile-tmp/nrimp10s-77.imp" L_0451:; // 4554 GRINF1(ACCR)=0 #line 4554 "regression-compile-tmp/nrimp10s-77.imp" GRINF1[0] = 0; // 4555 PSORLF1(IAD,0,B,D) %UNLESS B=D=0 #line 4555 "regression-compile-tmp/nrimp10s-77.imp" if ((((B) != (D))) || (((D) == (0)))) goto L_0454; #line 4555 "regression-compile-tmp/nrimp10s-77.imp" L_0453:; #line 4555 "regression-compile-tmp/nrimp10s-77.imp" PSORLF1(224, 0, B, D); #line 4555 "regression-compile-tmp/nrimp10s-77.imp" L_0454:; // 4556 %FINISH #line 4556 "regression-compile-tmp/nrimp10s-77.imp" L_0452:; // 4557 %FINISH %ELSE %START #line 4557 "regression-compile-tmp/nrimp10s-77.imp" goto L_0455; #line 4557 "regression-compile-tmp/nrimp10s-77.imp" L_044e:; // 4558 B=LNB; D=DVDISP+8 #line 4558 "regression-compile-tmp/nrimp10s-77.imp" B = 2; #line 4558 "regression-compile-tmp/nrimp10s-77.imp" D = (((int)(DVDISP)) + (8)); // 4559 PSF1(IAD,1,D) #line 4559 "regression-compile-tmp/nrimp10s-77.imp" PSF1(224, 1, D); // 4560 %UNLESS ELSIZE&7=0 %START #line 4560 "regression-compile-tmp/nrimp10s-77.imp" if (((((ELSIZE) & (7))) == (0))) goto L_0456; // 4561 PSF1(IAD,0,7) #line 4561 "regression-compile-tmp/nrimp10s-77.imp" PSF1(224, 0, 7); // 4562 PSF1(AND,0,-8) #line 4562 "regression-compile-tmp/nrimp10s-77.imp" PSF1(138, 0, (-8)); // 4563 %FINISH #line 4563 "regression-compile-tmp/nrimp10s-77.imp" L_0456:; // 4564 GRINF1(ACCR)=0 #line 4564 "regression-compile-tmp/nrimp10s-77.imp" GRINF1[0] = 0; // 4565 %FINISH #line 4565 "regression-compile-tmp/nrimp10s-77.imp" L_0455:; // 4566 PSF1(ST,2,AUXSBASE(LEVEL)) %IF JJJ=NN-1 %OR (ADJ=1 %AND CDV=0) #line 4566 "regression-compile-tmp/nrimp10s-77.imp" if (((JJJ) == ((((int)(NN)) - (1))))) goto L_0457; #line 4566 "regression-compile-tmp/nrimp10s-77.imp" if (((ADJ) != (1))) goto L_0458; #line 4566 "regression-compile-tmp/nrimp10s-77.imp" if (((CDV) != (0))) goto L_0458; #line 4566 "regression-compile-tmp/nrimp10s-77.imp" L_0457:; #line 4566 "regression-compile-tmp/nrimp10s-77.imp" PSF1(72, 2, AUXSBASE[LEVEL]); #line 4566 "regression-compile-tmp/nrimp10s-77.imp" L_0458:; // 4567 %IF PARMOPT#0 %THEN %START #line 4567 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMOPT) == (0))) goto L_0459; // 4568 PSF1(ICP,1,AUXSBASE(LEVEL)+16) #line 4568 "regression-compile-tmp/nrimp10s-77.imp" PSF1(230, 1, (((int)(AUXSBASE[LEVEL])) + (16))); // 4569 PPJ(2,8) #line 4569 "regression-compile-tmp/nrimp10s-77.imp" PPJ(2, 8); // 4570 %FINISH #line 4570 "regression-compile-tmp/nrimp10s-77.imp" L_0459:; // 4571 %IF PARMCHK#0 %START #line 4571 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMCHK) == (0))) goto L_045a; // 4572 PF1(LDTB,0,PC,PARAM DES(3)) #line 4572 "regression-compile-tmp/nrimp10s-77.imp" PF1(116, 0, 4, PARAMDES(3)); // 4573 PSORLF1(LDB,0,B,D) #line 4573 "regression-compile-tmp/nrimp10s-77.imp" PSORLF1(118, 0, B, D); // 4574 PSF1(LDA,1,N+4) #line 4574 "regression-compile-tmp/nrimp10s-77.imp" PSF1(114, 1, (((int)(N)) + (4))); // 4575 PF2(MVL,1,1,0,0,UNASSPAT&255) #line 4575 "regression-compile-tmp/nrimp10s-77.imp" PF2(176, 1, 1, 0, 0, (((-2122219135)) & (255))); // 4576 GRUSE(DR)=0 #line 4576 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[1] = 0; // 4577 %FINISH #line 4577 "regression-compile-tmp/nrimp10s-77.imp" L_045a:; // 4578 %FINISH #line 4578 "regression-compile-tmp/nrimp10s-77.imp" L_044b:; // 4579 %END #line 4579 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CLAIMAS at level 6 // 4580 %END #line 4580 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DECLAREARRAYS at level 5 // 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 // 4588 %ROUTINE CLT #line 4588 "regression-compile-tmp/nrimp10s-77.imp" void CLT( void ) #line 4588 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 4594 %CONSTBYTEINTEGERARRAY TYPEFLAG(1:10)= {%C #line 4594 "regression-compile-tmp/nrimp10s-77.imp" const unsigned char TYPEFLAG[10] = { 81, 82, 0, 49, 53, 65, 0, 98, 97, 114, }; // 4595 16_51,16_52,0,16_31,16_35, // 4596 16_41,0,16_62,16_61,16_72; // 4597 %INTEGER ALT #line 4597 "regression-compile-tmp/nrimp10s-77.imp" int ALT; // 4598 ALT=A(P) #line 4598 "regression-compile-tmp/nrimp10s-77.imp" ALT = A[P]; // 4599 TYPE=TYPEFLAG(ALT) #line 4599 "regression-compile-tmp/nrimp10s-77.imp" TYPE = (TYPEFLAG-1)[ALT]; // 4600 %IF TYPE=0 %THEN P=P+1 %AND TYPE=TYPEFLAG(A(P)+7) #line 4600 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (0))) goto L_045b; #line 4600 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 4600 "regression-compile-tmp/nrimp10s-77.imp" TYPE = (TYPEFLAG-1)[(((int)(A[P])) + (7))]; #line 4600 "regression-compile-tmp/nrimp10s-77.imp" L_045b:; // 4601 PREC=TYPE>>4 #line 4601 "regression-compile-tmp/nrimp10s-77.imp" PREC = (int)((((unsigned int)(TYPE)) >> (4))); // 4602 TYPE=TYPE&7 #line 4602 "regression-compile-tmp/nrimp10s-77.imp" TYPE = ((TYPE) & (7)); // 4603 PREC=6 %IF TYPE=2 %AND ALL LONG#0 %AND PREC<=5;! DEAL WITH '%REALSLONG' #line 4603 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (2))) goto L_045c; #line 4603 "regression-compile-tmp/nrimp10s-77.imp" if (((ALLLONG) == (0))) goto L_045c; #line 4603 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) > (5))) goto L_045c; #line 4603 "regression-compile-tmp/nrimp10s-77.imp" PREC = 6; #line 4603 "regression-compile-tmp/nrimp10s-77.imp" L_045c:; // 4604 ACC=BYTES(PREC) #line 4604 "regression-compile-tmp/nrimp10s-77.imp" ACC = BYTES[PREC]; // 4605 %IF TYPE=5 %THEN %START; ! P='%STRING' #line 4605 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (5))) goto L_045d; // 4606 %IF A(P+1)=1 %THEN %START;! MAX LENGTH GIVEN #line 4606 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (1))]) != (1))) goto L_045e; // 4607 P=P+2 #line 4607 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 4608 ACC=A(P)+1 #line 4608 "regression-compile-tmp/nrimp10s-77.imp" ACC = (((int)(A[P])) + (1)); // 4609 %FINISH %ELSE ACC=0 %AND P=P+1 #line 4609 "regression-compile-tmp/nrimp10s-77.imp" goto L_045f; #line 4609 "regression-compile-tmp/nrimp10s-77.imp" L_045e:; #line 4609 "regression-compile-tmp/nrimp10s-77.imp" ACC = 0; #line 4609 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 4609 "regression-compile-tmp/nrimp10s-77.imp" L_045f:; // 4610 %FINISH #line 4610 "regression-compile-tmp/nrimp10s-77.imp" L_045d:; // 4611 P=P+1 #line 4611 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 4612 %END #line 4612 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CLT at level 5 // 4613 %ROUTINE CQN(%INTEGER P) #line 4613 "regression-compile-tmp/nrimp10s-77.imp" void CQN( int P ) #line 4613 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 4619 %INTEGER I #line 4619 "regression-compile-tmp/nrimp10s-77.imp" int I; // 4620 I=A(P);NAM=0;ARR=0 #line 4620 "regression-compile-tmp/nrimp10s-77.imp" I = A[P]; #line 4620 "regression-compile-tmp/nrimp10s-77.imp" NAM = 0; #line 4620 "regression-compile-tmp/nrimp10s-77.imp" ARR = 0; // 4621 %IF I=1 %THEN ARR=1 %AND ACC=16;! ARRAYNAMES #line 4621 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (1))) goto L_0460; #line 4621 "regression-compile-tmp/nrimp10s-77.imp" ARR = 1; #line 4621 "regression-compile-tmp/nrimp10s-77.imp" ACC = 16; #line 4621 "regression-compile-tmp/nrimp10s-77.imp" L_0460:; // 4622 %IF I<=2 %THEN NAM=1; ! ARRAYNAMES & NAMES #line 4622 "regression-compile-tmp/nrimp10s-77.imp" if (((I) > (2))) goto L_0461; #line 4622 "regression-compile-tmp/nrimp10s-77.imp" NAM = 1; #line 4622 "regression-compile-tmp/nrimp10s-77.imp" L_0461:; // 4623 %IF I=2 %THEN ACC=8; ! NAMES USE 8-BYTE DESCRIPTOR #line 4623 "regression-compile-tmp/nrimp10s-77.imp" if (((I) != (2))) goto L_0462; #line 4623 "regression-compile-tmp/nrimp10s-77.imp" ACC = 8; #line 4623 "regression-compile-tmp/nrimp10s-77.imp" L_0462:; // 4624 %END #line 4624 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CQN at level 5 // 4625 %ROUTINE CRSPEC (%INTEGER M) #line 4625 "regression-compile-tmp/nrimp10s-77.imp" void CRSPEC( int M ) #line 4625 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 4631 %INTEGER KK,JJ,TYPEP,OPHEAD,NPARMS #line 4631 "regression-compile-tmp/nrimp10s-77.imp" int KK; #line 4631 "regression-compile-tmp/nrimp10s-77.imp" int JJ; #line 4631 "regression-compile-tmp/nrimp10s-77.imp" int TYPEP; #line 4631 "regression-compile-tmp/nrimp10s-77.imp" int OPHEAD; #line 4631 "regression-compile-tmp/nrimp10s-77.imp" int NPARMS; // 4632 %STRING(34) XNAME #line 4632 "regression-compile-tmp/nrimp10s-77.imp" _imp_string /*%string(34)*/ XNAME; // 4633 LITL=EXTRN&3 #line 4633 "regression-compile-tmp/nrimp10s-77.imp" LITL = ((EXTRN) & (3)); // 4634 %IF A(P)=1 %THEN %START; ! P=%ROUTINE #line 4634 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (1))) goto L_0463; // 4635 TYPEP=LITL<<14!16_1000 #line 4635 "regression-compile-tmp/nrimp10s-77.imp" TYPEP = ((((LITL) << (14))) | (4096)); // 4636 P=P+2; ! IGNORING ALT OF P(SPEC') #line 4636 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 4637 %FINISH %ELSE %START; ! P= #line 4637 "regression-compile-tmp/nrimp10s-77.imp" goto L_0464; #line 4637 "regression-compile-tmp/nrimp10s-77.imp" L_0463:; // 4638 ROUT=1; ARR=0; P=P+1 #line 4638 "regression-compile-tmp/nrimp10s-77.imp" ROUT = 1; #line 4638 "regression-compile-tmp/nrimp10s-77.imp" ARR = 0; #line 4638 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 4639 CLT; NAM=0 #line 4639 "regression-compile-tmp/nrimp10s-77.imp" CLT(); #line 4639 "regression-compile-tmp/nrimp10s-77.imp" NAM = 0; // 4640 %IF A(P)=2 %THEN NAM=2; ! 2 FOR MAP 0 FOR FN #line 4640 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (2))) goto L_0465; #line 4640 "regression-compile-tmp/nrimp10s-77.imp" NAM = 2; #line 4640 "regression-compile-tmp/nrimp10s-77.imp" L_0465:; // 4641 PACK(TYPEP) #line 4641 "regression-compile-tmp/nrimp10s-77.imp" PACK(&TYPEP); // 4642 P=P+2; ! AGAIN IGNORING ALT OF P(SPEC') #line 4642 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 4643 %FINISH #line 4643 "regression-compile-tmp/nrimp10s-77.imp" L_0464:; // 4644 P=P+4; ! PAST HOLE FOR DECLINKS #line 4644 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (4)); // 4645 KK=FROM AR2(P) #line 4645 "regression-compile-tmp/nrimp10s-77.imp" KK = FROMAR2(P); // 4646 JJ=0 #line 4646 "regression-compile-tmp/nrimp10s-77.imp" JJ = 0; // 4647 P=P+2 #line 4647 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 4648 CFPLIST(OPHEAD,NPARMS) #line 4648 "regression-compile-tmp/nrimp10s-77.imp" CFPLIST(&OPHEAD, &NPARMS); // 4649 %IF M=1 %THEN %START #line 4649 "regression-compile-tmp/nrimp10s-77.imp" if (((M) != (1))) goto L_0466; // 4650 XNAME<-STRING(DICTBASE+WORD(KK)) #line 4650 "regression-compile-tmp/nrimp10s-77.imp" XNAME = *_imp_STRING((((int)(DICTBASE)) + (WORD[KK]))); // 4651 %IF EXTRN=1 %THEN XNAME<-"S#".XNAME #line 4651 "regression-compile-tmp/nrimp10s-77.imp" if (((EXTRN) != (1))) goto L_0467; #line 4651 "regression-compile-tmp/nrimp10s-77.imp" XNAME = _imp_join((_imp_string)_imp_str_literal("S#"),(_imp_string)XNAME); #line 4651 "regression-compile-tmp/nrimp10s-77.imp" L_0467:; // 4652 CXREF(XNAME,PARMDYNAMIC!(EXTRN//3),2,JJ); ! %STSTEM & %EXTERNAL =STATIC #line 4652 "regression-compile-tmp/nrimp10s-77.imp" CXREF(XNAME, ((PARMDYNAMIC) | (((long)((long)((int)(EXTRN)) / (long)((int)(3)))))), 2, &JJ); // 4653 ! %DYNAMIC = DYNAMIC // 4654 %FINISH #line 4654 "regression-compile-tmp/nrimp10s-77.imp" L_0466:; // 4655 %IF M=0 %AND RLEVEL=0 %THEN CODE DES(JJ) #line 4655 "regression-compile-tmp/nrimp10s-77.imp" if (((M) != (0))) goto L_0468; #line 4655 "regression-compile-tmp/nrimp10s-77.imp" if (((RLEVEL) != (0))) goto L_0468; #line 4655 "regression-compile-tmp/nrimp10s-77.imp" CODEDES(&JJ); #line 4655 "regression-compile-tmp/nrimp10s-77.imp" L_0468:; // 4656 J=15-M; PTYPE=TYPEP #line 4656 "regression-compile-tmp/nrimp10s-77.imp" J = (((int)(15)) - (M)); #line 4656 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = TYPEP; // 4657 KFORM=NPARMS #line 4657 "regression-compile-tmp/nrimp10s-77.imp" KFORM = NPARMS; // 4658 SNDISP=JJ>>16 #line 4658 "regression-compile-tmp/nrimp10s-77.imp" SNDISP = (int)((((unsigned int)(JJ)) >> (16))); // 4659 ACC=JJ&16_FFFF #line 4659 "regression-compile-tmp/nrimp10s-77.imp" ACC = ((JJ) & (65535)); // 4660 STORE TAG(KK,OPHEAD) #line 4660 "regression-compile-tmp/nrimp10s-77.imp" STORETAG(KK, OPHEAD); // 4661 %END #line 4661 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CRSPEC at level 5 // 4662 %ROUTINE CFPLIST(%INTEGERNAME OPHEAD,NPARMS) #line 4662 "regression-compile-tmp/nrimp10s-77.imp" void CFPLIST( int /*name*/*OPHEAD, int /*name*/*NPARMS ) #line 4662 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 4674 %INTEGER OPBOT, PP #line 4674 "regression-compile-tmp/nrimp10s-77.imp" int OPBOT; #line 4674 "regression-compile-tmp/nrimp10s-77.imp" int PP; // 4675 OPHEAD=0; OPBOT=0 #line 4675 "regression-compile-tmp/nrimp10s-77.imp" *OPHEAD = 0; #line 4675 "regression-compile-tmp/nrimp10s-77.imp" OPBOT = 0; // 4676 NPARMS=0; ! ZERO PARAMETERS AS YET #line 4676 "regression-compile-tmp/nrimp10s-77.imp" *NPARMS = 0; // 4677 %WHILE A(P)=1 %CYCLE; ! WHILE SOME(MORE) FPS #line 4677 "regression-compile-tmp/nrimp10s-77.imp" L_0469:; #line 4677 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (1))) goto L_046a; // 4678 PP=P+1+FROMAR2(P+1); ! TO NEXT FPDEL #line 4678 "regression-compile-tmp/nrimp10s-77.imp" PP = (((int)((((int)(P)) + (1)))) + (FROMAR2((((int)(P)) + (1))))); // 4679 P=P+3; ! TO ALT OF FPDEL #line 4679 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); // 4680 CFPDEL; ! GET TYPE & ACC FOR NEXT GROUP #line 4680 "regression-compile-tmp/nrimp10s-77.imp" CFPDEL(); // 4681 {%UNTIL A(P-1)=2} %CYCLE; ! DOWN FOR EACH DEL #line 4681 "regression-compile-tmp/nrimp10s-77.imp" L_046c:; // 4682 BINSERT(OPHEAD,OPBOT,PTYPE<<16,ACC<<16,0) #line 4682 "regression-compile-tmp/nrimp10s-77.imp" BINSERT(OPHEAD, &OPBOT, ((PTYPE) << (16)), ((ACC) << (16)), 0); // 4683 NPARMS=NPARMS+1 #line 4683 "regression-compile-tmp/nrimp10s-77.imp" *NPARMS = ((*(int *)(NPARMS)) + (1)); // 4684 P=P+3 #line 4684 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (3)); // 4685 %REPEAT %UNTIL A(P-1)=2; ! DOWN FOR EACH DEL #line 4685 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) - (1))]) == (2))) goto L_046d; #line 4685 "regression-compile-tmp/nrimp10s-77.imp" goto L_046c; #line 4685 "regression-compile-tmp/nrimp10s-77.imp" L_046d:; // 4686 P=PP #line 4686 "regression-compile-tmp/nrimp10s-77.imp" P = PP; // 4687 %REPEAT #line 4687 "regression-compile-tmp/nrimp10s-77.imp" goto L_0469; #line 4687 "regression-compile-tmp/nrimp10s-77.imp" L_046a:; // 4688 P=P+1 #line 4688 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 4689 %END #line 4689 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CFPLIST at level 5 // 4690 %ROUTINE CFPDEL #line 4690 "regression-compile-tmp/nrimp10s-77.imp" void CFPDEL( void ) #line 4690 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 4698 %SWITCH FP(1:4) #line 4698 "regression-compile-tmp/nrimp10s-77.imp" static int sw10_FP_idx; static const void * /*SWITCH*/ sw10_FP[4] = { &&sw10_FP_1, &&sw10_FP_2, &&sw10_FP_3, &&sw10_FP_4, }; // 4699 %INTEGER FPALT #line 4699 "regression-compile-tmp/nrimp10s-77.imp" int FPALT; // 4700 FPALT=A(P); P=P+1 #line 4700 "regression-compile-tmp/nrimp10s-77.imp" FPALT = A[P]; #line 4700 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 4701 KFORM=0; LITL=0 #line 4701 "regression-compile-tmp/nrimp10s-77.imp" KFORM = 0; #line 4701 "regression-compile-tmp/nrimp10s-77.imp" LITL = 0; // 4702 ->FP(FPALT) #line 4702 "regression-compile-tmp/nrimp10s-77.imp" sw10_FP_idx = FPALT; if ((1 <= sw10_FP_idx) && (sw10_FP_idx <= 4)) goto *(sw10_FP-1)[sw10_FP_idx]; /* Bounds=1:4 */ else { /*_imp_signal(8, 2, sw10_FP_idx);*/ fprintf(stderr, "%%SWITCH index FP(%d) not in range 1:4 at %s:%d\n", sw10_FP_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 4703 FP(1): ! (TYPE)(%QNAME') #line 4703 "regression-compile-tmp/nrimp10s-77.imp" sw10_FP_1:; // 4704 ROUT=0; CLT #line 4704 "regression-compile-tmp/nrimp10s-77.imp" ROUT = 0; #line 4704 "regression-compile-tmp/nrimp10s-77.imp" CLT(); // 4705 CQN(P) #line 4705 "regression-compile-tmp/nrimp10s-77.imp" CQN(P); // 4706 FAULT(70,0) %IF TYPE=5 %AND ACC=0 #line 4706 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (5))) goto L_046f; #line 4706 "regression-compile-tmp/nrimp10s-77.imp" if (((ACC) != (0))) goto L_046f; #line 4706 "regression-compile-tmp/nrimp10s-77.imp" FAULT(70, 0); #line 4706 "regression-compile-tmp/nrimp10s-77.imp" L_046f:; // 4707 P=P+1 #line 4707 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 4708 ->PK #line 4708 "regression-compile-tmp/nrimp10s-77.imp" goto U_1018; // 4709 FP(2): ! RECORD(%ARRAY')%NAME #line 4709 "regression-compile-tmp/nrimp10s-77.imp" sw10_FP_2:; // 4710 ARR=2-A(P); ROUT=0 #line 4710 "regression-compile-tmp/nrimp10s-77.imp" ARR = ((2) - ((int)(A[P]))); #line 4710 "regression-compile-tmp/nrimp10s-77.imp" ROUT = 0; // 4711 ACC=8+8*ARR; TYPE=3; PREC=3 #line 4711 "regression-compile-tmp/nrimp10s-77.imp" ACC = ((8) + ((int)((((int)(8)) * (ARR))))); #line 4711 "regression-compile-tmp/nrimp10s-77.imp" TYPE = 3; #line 4711 "regression-compile-tmp/nrimp10s-77.imp" PREC = 3; // 4712 NAM=1; P=P+1; ->PK #line 4712 "regression-compile-tmp/nrimp10s-77.imp" NAM = 1; #line 4712 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 4712 "regression-compile-tmp/nrimp10s-77.imp" goto U_1018; // 4713 FP(3): ! (RT)(%NAME')(NAMELIST)(FPP) #line 4713 "regression-compile-tmp/nrimp10s-77.imp" sw10_FP_3:; // 4714 ROUT=1; NAM=1 #line 4714 "regression-compile-tmp/nrimp10s-77.imp" ROUT = 1; #line 4714 "regression-compile-tmp/nrimp10s-77.imp" NAM = 1; // 4715 ARR=0 #line 4715 "regression-compile-tmp/nrimp10s-77.imp" ARR = 0; // 4716 %IF A(P)=1 %THEN %START; ! RT=%ROUITNE #line 4716 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (1))) goto L_0470; // 4717 TYPE=0; PREC=0 #line 4717 "regression-compile-tmp/nrimp10s-77.imp" TYPE = 0; #line 4717 "regression-compile-tmp/nrimp10s-77.imp" PREC = 0; // 4718 P=P+2 #line 4718 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 4719 %FINISH %ELSE %START #line 4719 "regression-compile-tmp/nrimp10s-77.imp" goto L_0471; #line 4719 "regression-compile-tmp/nrimp10s-77.imp" L_0470:; // 4720 P=P+1; CLT; ! RT=(TYPE)(FM) #line 4720 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 4720 "regression-compile-tmp/nrimp10s-77.imp" CLT(); // 4721 NAM=1 #line 4721 "regression-compile-tmp/nrimp10s-77.imp" NAM = 1; // 4722 %IF A(P)=2 %THEN NAM=3; ! 1 FOR FN 3 FOR MAP #line 4722 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) != (2))) goto L_0472; #line 4722 "regression-compile-tmp/nrimp10s-77.imp" NAM = 3; #line 4722 "regression-compile-tmp/nrimp10s-77.imp" L_0472:; // 4723 P=P+2; ! PAST (%NAME') WHICH IS IGNORED #line 4723 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 4724 %FINISH #line 4724 "regression-compile-tmp/nrimp10s-77.imp" L_0471:; // 4725 ACC=16 #line 4725 "regression-compile-tmp/nrimp10s-77.imp" ACC = 16; // 4726 ->PK #line 4726 "regression-compile-tmp/nrimp10s-77.imp" goto U_1018; // 4727 FP(4): ! %NAME #line 4727 "regression-compile-tmp/nrimp10s-77.imp" sw10_FP_4:; // 4728 ACC=8; NAM=1 #line 4728 "regression-compile-tmp/nrimp10s-77.imp" ACC = 8; #line 4728 "regression-compile-tmp/nrimp10s-77.imp" NAM = 1; // 4729 ROUT=0; TYPE=0 #line 4729 "regression-compile-tmp/nrimp10s-77.imp" ROUT = 0; #line 4729 "regression-compile-tmp/nrimp10s-77.imp" TYPE = 0; // 4730 ARR=0; PREC=0 #line 4730 "regression-compile-tmp/nrimp10s-77.imp" ARR = 0; #line 4730 "regression-compile-tmp/nrimp10s-77.imp" PREC = 0; // 4731 PK: PACK(PTYPE) #line 4731 "regression-compile-tmp/nrimp10s-77.imp" U_1018:; #line 4731 "regression-compile-tmp/nrimp10s-77.imp" PACK(&PTYPE); // 4732 %END #line 4732 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CFPDEL at level 5 // 4733 %ROUTINE DIAG POINTER(%INTEGER LEVEL) #line 4733 "regression-compile-tmp/nrimp10s-77.imp" void DIAGPOINTER( int LEVEL ) #line 4733 "regression-compile-tmp/nrimp10s-77.imp" { // 4734 %IF PARMTRACE#0 %THEN %START #line 4734 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMTRACE) == (0))) goto L_0473; // 4735 PUSH(RAL(LEVEL),1,CA,LDB<<24!3<<23) #line 4735 "regression-compile-tmp/nrimp10s-77.imp" PUSH(&RAL[LEVEL], 1, CA, ((((118) << (24))) | (((3) << (23))))); // 4736 PF1(LDB,0,0,0) #line 4736 "regression-compile-tmp/nrimp10s-77.imp" PF1(118, 0, 0, 0); // 4737 GRUSE(DR)=0 #line 4737 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[1] = 0; // 4738 %FINISH #line 4738 "regression-compile-tmp/nrimp10s-77.imp" L_0473:; // 4739 %END #line 4739 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DIAGPOINTER at level 5 // 4740 %ROUTINE RHEAD(%INTEGER KK) #line 4740 "regression-compile-tmp/nrimp10s-77.imp" void RHEAD( int KK ) #line 4740 "regression-compile-tmp/nrimp10s-77.imp" { // 4741 !*********************************************************************** // 4742 !* COMPILES CODE FOR BLOCK AND ROUTINE ENTRY * // 4743 !* KK IS THE RT/FN/MAP NAME (=-1 FOR %BEGIN BLOCKS) * // 4744 !*********************************************************************** // 4745 %INTEGER W1, W3, INSRN, AT #line 4745 "regression-compile-tmp/nrimp10s-77.imp" int W1; #line 4745 "regression-compile-tmp/nrimp10s-77.imp" int W3; #line 4745 "regression-compile-tmp/nrimp10s-77.imp" int INSRN; #line 4745 "regression-compile-tmp/nrimp10s-77.imp" int AT; // 4746 PUSH(LEVELINF, 0, NMAX<<16!N, 0) #line 4746 "regression-compile-tmp/nrimp10s-77.imp" PUSH(&LEVELINF, 0, ((((NMAX) << (16))) | (N)), 0); // 4747 LEVEL=LEVEL+1 #line 4747 "regression-compile-tmp/nrimp10s-77.imp" LEVEL = (((int)(LEVEL)) + (1)); // 4748 NMDECS(LEVEL)=0; AUXSBASE(LEVEL)=0 #line 4748 "regression-compile-tmp/nrimp10s-77.imp" NMDECS[LEVEL] = 0; #line 4748 "regression-compile-tmp/nrimp10s-77.imp" AUXSBASE[LEVEL] = 0; // 4749 NAMES(LEVEL)=-1 #line 4749 "regression-compile-tmp/nrimp10s-77.imp" NAMES[LEVEL] = (-1); // 4750 ONINF(LEVEL)=0; ONWORD(LEVEL)=0 #line 4750 "regression-compile-tmp/nrimp10s-77.imp" ONINF[LEVEL] = 0; #line 4750 "regression-compile-tmp/nrimp10s-77.imp" ONWORD[LEVEL] = 0; // 4751 %IF KK>=0 %THEN %START #line 4751 "regression-compile-tmp/nrimp10s-77.imp" if (((KK) < (0))) goto L_0474; // 4752 RLEVEL=RLEVEL+1; RBASE=RLEVEL #line 4752 "regression-compile-tmp/nrimp10s-77.imp" RLEVEL = (((int)(RLEVEL)) + (1)); #line 4752 "regression-compile-tmp/nrimp10s-77.imp" RBASE = RLEVEL; // 4753 %FINISH #line 4753 "regression-compile-tmp/nrimp10s-77.imp" L_0474:; // 4754 FAULT(34, 0) %IF LEVEL=MAX LEVELS #line 4754 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) != (31))) goto L_0475; #line 4754 "regression-compile-tmp/nrimp10s-77.imp" FAULT(34, 0); #line 4754 "regression-compile-tmp/nrimp10s-77.imp" L_0475:; // 4755 FAULT(105, 0) %IF LEVEL>MAX LEVELS #line 4755 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) <= (31))) goto L_0476; #line 4755 "regression-compile-tmp/nrimp10s-77.imp" FAULT(105, 0); #line 4755 "regression-compile-tmp/nrimp10s-77.imp" L_0476:; // 4756 %IF KK>=0 %AND RLEVEL>1 %START;! ROUTINE ENTRY #line 4756 "regression-compile-tmp/nrimp10s-77.imp" if (((KK) < (0))) goto L_0477; #line 4756 "regression-compile-tmp/nrimp10s-77.imp" if (((RLEVEL) <= (1))) goto L_0477; // 4757 COPY TAG(KK); JJ=K; ! LIST OF JUMPS #line 4757 "regression-compile-tmp/nrimp10s-77.imp" COPYTAG(KK); #line 4757 "regression-compile-tmp/nrimp10s-77.imp" JJ = K; // 4758 J=MIDCELL #line 4758 "regression-compile-tmp/nrimp10s-77.imp" J = MIDCELL; // 4759 %IF J=0 %AND LEVEL>2 %START;! REPLACE 'NOT USED' BIT #line 4759 "regression-compile-tmp/nrimp10s-77.imp" if (((J) != (0))) goto L_0478; #line 4759 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) <= (2))) goto L_0478; // 4760 REPLACE1(TAGS(KK), FROM1(TAGS(KK))&16_FFFF3FFF) #line 4760 "regression-compile-tmp/nrimp10s-77.imp" REPLACE1(TAGS[KK], ((FROM1(TAGS[KK])) & ((-49153)))); // 4761 %FINISH #line 4761 "regression-compile-tmp/nrimp10s-77.imp" L_0478:; // 4762 ! // 4763 ! NOW FILL ANY JUMPS TO THIS ROUTINE PLANTED SINCE // 4764 ! THE ROUTINESPEC WAS COMPILED. SEE ALSO 'RT JUMP' // 4765 ! // 4766 %WHILE J#0 %CYCLE #line 4766 "regression-compile-tmp/nrimp10s-77.imp" L_0479:; #line 4766 "regression-compile-tmp/nrimp10s-77.imp" if (((J) == (0))) goto L_047a; // 4767 POP(J, INSRN, AT, W1) #line 4767 "regression-compile-tmp/nrimp10s-77.imp" POP(&J, &INSRN, &AT, &W1); // 4768 W3=CA-AT #line 4768 "regression-compile-tmp/nrimp10s-77.imp" W3 = (((int)(CA)) - (AT)); // 4769 W3=W3//2 %IF INSRN>>25=CALL>>1 #line 4769 "regression-compile-tmp/nrimp10s-77.imp" if ((((int)((((unsigned int)(INSRN)) >> (25)))) != ((int)((((unsigned int)(30)) >> (1)))))) goto L_047c; #line 4769 "regression-compile-tmp/nrimp10s-77.imp" W3 = (long)((long)((int)(W3)) / (long)((int)(2))); #line 4769 "regression-compile-tmp/nrimp10s-77.imp" L_047c:; // 4770 INSRN=INSRN+W3 #line 4770 "regression-compile-tmp/nrimp10s-77.imp" INSRN = (((int)(INSRN)) + (W3)); // 4771 PLUG(1, AT, INSRN,4) #line 4771 "regression-compile-tmp/nrimp10s-77.imp" PLUG(1, AT, INSRN, 4); // 4772 %REPEAT #line 4772 "regression-compile-tmp/nrimp10s-77.imp" goto L_0479; #line 4772 "regression-compile-tmp/nrimp10s-77.imp" L_047a:; // 4773 REPLACE2(TAGS(KK), CA); ! NOTE ADDR FOR FUTURE CALLS #line 4773 "regression-compile-tmp/nrimp10s-77.imp" REPLACE2(TAGS[KK], CA); // 4774 %FINISH #line 4774 "regression-compile-tmp/nrimp10s-77.imp" L_0477:; // 4775 %IF KK>=0 %AND RLEVEL=1 %THEN DIAG POINTER(LEVEL) %AND PSF1(STD,1,12) #line 4775 "regression-compile-tmp/nrimp10s-77.imp" if (((KK) < (0))) goto L_047d; #line 4775 "regression-compile-tmp/nrimp10s-77.imp" if (((RLEVEL) != (1))) goto L_047d; #line 4775 "regression-compile-tmp/nrimp10s-77.imp" DIAGPOINTER(LEVEL); #line 4775 "regression-compile-tmp/nrimp10s-77.imp" PSF1(88, 1, 12); #line 4775 "regression-compile-tmp/nrimp10s-77.imp" L_047d:; // 4776 %IF KK<0 %THEN W3=0 %ELSE W3=WORD(KK) #line 4776 "regression-compile-tmp/nrimp10s-77.imp" if (((KK) >= (0))) goto L_047e; #line 4776 "regression-compile-tmp/nrimp10s-77.imp" W3 = 0; #line 4776 "regression-compile-tmp/nrimp10s-77.imp" goto L_047f; #line 4776 "regression-compile-tmp/nrimp10s-77.imp" L_047e:; #line 4776 "regression-compile-tmp/nrimp10s-77.imp" W3 = WORD[KK]; #line 4776 "regression-compile-tmp/nrimp10s-77.imp" L_047f:; // 4777 L(LEVEL)=LINE; M(LEVEL)=W3 #line 4777 "regression-compile-tmp/nrimp10s-77.imp" L[LEVEL] = LINE; #line 4777 "regression-compile-tmp/nrimp10s-77.imp" M[LEVEL] = W3; // 4778 FLAG(LEVEL)=PTYPE; ! CURRENT BLOCK TYPE MARKER #line 4778 "regression-compile-tmp/nrimp10s-77.imp" FLAG[LEVEL] = PTYPE; // 4779 %END #line 4779 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block RHEAD at level 5 // 4780 %ROUTINE RDISPLAY(%INTEGER KK) #line 4780 "regression-compile-tmp/nrimp10s-77.imp" void RDISPLAY( int KK ) #line 4780 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 4788 %INTEGER W1,W2,STACK,OP,INC #line 4788 "regression-compile-tmp/nrimp10s-77.imp" int W1; #line 4788 "regression-compile-tmp/nrimp10s-77.imp" int W2; #line 4788 "regression-compile-tmp/nrimp10s-77.imp" int STACK; #line 4788 "regression-compile-tmp/nrimp10s-77.imp" int OP; #line 4788 "regression-compile-tmp/nrimp10s-77.imp" int INC; // 4789 %IF KK>=0 %OR LEVEL=2 %START; ! DISPLAY NEEDED #line 4789 "regression-compile-tmp/nrimp10s-77.imp" if (((KK) >= (0))) goto L_046b; #line 4789 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) != (2))) goto L_0480; #line 4789 "regression-compile-tmp/nrimp10s-77.imp" L_046b:; // 4790 STACK=0; DISPLAY(RLEVEL)=N #line 4790 "regression-compile-tmp/nrimp10s-77.imp" STACK = 0; #line 4790 "regression-compile-tmp/nrimp10s-77.imp" DISPLAY[RLEVEL] = N; // 4791 GRUSE(XNB)=0 #line 4791 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[3] = 0; // 4792 GRUSE(CTB)=0; GRUSE(BREG)=0 #line 4792 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[5] = 0; #line 4792 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[7] = 0; // 4793 %IF LEVEL#2 %THEN %START #line 4793 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) == (2))) goto L_0481; // 4794 ! PF1(LXN,0,TOS,0) // 4795 GRUSE(XNB)=4; GRINF1(XNB)=RLEVEL-1; GRAT(XNB)=CA #line 4795 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[3] = 4; #line 4795 "regression-compile-tmp/nrimp10s-77.imp" GRINF1[3] = (((int)(RLEVEL)) - (1)); #line 4795 "regression-compile-tmp/nrimp10s-77.imp" GRAT[3] = CA; // 4796 PF1(LD,0,XNB,12); ! COPY PLT DESCRIPTOR #line 4796 "regression-compile-tmp/nrimp10s-77.imp" PF1(120, 0, 3, 12); // 4797 DIAG POINTER(LEVEL) #line 4797 "regression-compile-tmp/nrimp10s-77.imp" DIAGPOINTER(LEVEL); // 4798 PSF1(STD,1,12) #line 4798 "regression-compile-tmp/nrimp10s-77.imp" PSF1(88, 1, 12); // 4799 W1=RLEVEL-1; W2=DISPLAY(W1) #line 4799 "regression-compile-tmp/nrimp10s-77.imp" W1 = (((int)(RLEVEL)) - (1)); #line 4799 "regression-compile-tmp/nrimp10s-77.imp" W2 = DISPLAY[W1]; // 4800 %IF W1=1 %THEN PF1(STXN,0,TOS,0) %AND N=N+4 %ELSE %START #line 4800 "regression-compile-tmp/nrimp10s-77.imp" if (((W1) != (1))) goto L_0482; #line 4800 "regression-compile-tmp/nrimp10s-77.imp" PF1(76, 0, 6, 0); #line 4800 "regression-compile-tmp/nrimp10s-77.imp" N = (((int)(N)) + (4)); #line 4800 "regression-compile-tmp/nrimp10s-77.imp" goto L_0483; #line 4800 "regression-compile-tmp/nrimp10s-77.imp" L_0482:; // 4801 %WHILE W1>0 %CYCLE #line 4801 "regression-compile-tmp/nrimp10s-77.imp" L_0484:; #line 4801 "regression-compile-tmp/nrimp10s-77.imp" if (((W1) <= (0))) goto L_0485; // 4802 OP=LSS; INC=1 #line 4802 "regression-compile-tmp/nrimp10s-77.imp" OP = 98; #line 4802 "regression-compile-tmp/nrimp10s-77.imp" INC = 1; // 4803 %IF W1>=2 %THEN OP=LSD %AND INC=2 #line 4803 "regression-compile-tmp/nrimp10s-77.imp" if (((W1) < (2))) goto L_0487; #line 4803 "regression-compile-tmp/nrimp10s-77.imp" OP = 100; #line 4803 "regression-compile-tmp/nrimp10s-77.imp" INC = 2; #line 4803 "regression-compile-tmp/nrimp10s-77.imp" L_0487:; // 4804 %IF W1>=4 %THEN OP=LSQ %AND INC=4 #line 4804 "regression-compile-tmp/nrimp10s-77.imp" if (((W1) < (4))) goto L_0488; #line 4804 "regression-compile-tmp/nrimp10s-77.imp" OP = 102; #line 4804 "regression-compile-tmp/nrimp10s-77.imp" INC = 4; #line 4804 "regression-compile-tmp/nrimp10s-77.imp" L_0488:; // 4805 PF1(OP+STACK,0,XNB,W2) #line 4805 "regression-compile-tmp/nrimp10s-77.imp" PF1((((int)(OP)) + (STACK)), 0, 3, W2); // 4806 STACK=-32; N=N+4*INC #line 4806 "regression-compile-tmp/nrimp10s-77.imp" STACK = (-32); #line 4806 "regression-compile-tmp/nrimp10s-77.imp" N = ((N) + ((int)((((int)(4)) * (INC))))); // 4807 W2=W2+4*INC; W1=W1-INC #line 4807 "regression-compile-tmp/nrimp10s-77.imp" W2 = ((W2) + ((int)((((int)(4)) * (INC))))); #line 4807 "regression-compile-tmp/nrimp10s-77.imp" W1 = (((int)(W1)) - (INC)); // 4808 %REPEAT #line 4808 "regression-compile-tmp/nrimp10s-77.imp" goto L_0484; #line 4808 "regression-compile-tmp/nrimp10s-77.imp" L_0485:; // 4809 %FINISH #line 4809 "regression-compile-tmp/nrimp10s-77.imp" L_0483:; // 4810 %FINISH #line 4810 "regression-compile-tmp/nrimp10s-77.imp" L_0481:; // 4811 %IF STACK#0 %THEN PF1(ST,0,TOS,0); ! ST TOS #line 4811 "regression-compile-tmp/nrimp10s-77.imp" if (((STACK) == (0))) goto L_0489; #line 4811 "regression-compile-tmp/nrimp10s-77.imp" PF1(72, 0, 6, 0); #line 4811 "regression-compile-tmp/nrimp10s-77.imp" L_0489:; // 4812 PF1(STLN,0,TOS,0) #line 4812 "regression-compile-tmp/nrimp10s-77.imp" PF1(92, 0, 6, 0); // 4813 N=N+4 #line 4813 "regression-compile-tmp/nrimp10s-77.imp" N = (((int)(N)) + (4)); // 4814 %FINISH #line 4814 "regression-compile-tmp/nrimp10s-77.imp" L_0480:; // 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 ! // 4819 %IF PARMTRACE#0 %START #line 4819 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMTRACE) == (0))) goto L_048a; // 4820 PF1(LSS,0,PC,4*CONST BTM!16_80000000) %IF PARMOPT#0;! M'IDIA' #line 4820 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMOPT) == (0))) goto L_048b; #line 4820 "regression-compile-tmp/nrimp10s-77.imp" PF1(98, 0, 4, (((((int)(4)) * (CONSTBTM))) | ((-2147483648)))); #line 4820 "regression-compile-tmp/nrimp10s-77.imp" L_048b:; // 4821 %IF KK>=0 %OR LEVEL=2 %START #line 4821 "regression-compile-tmp/nrimp10s-77.imp" if (((KK) >= (0))) goto L_047b; #line 4821 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) != (2))) goto L_048c; #line 4821 "regression-compile-tmp/nrimp10s-77.imp" L_047b:; // 4822 %IF PARMOPT#0 %THEN %START #line 4822 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMOPT) == (0))) goto L_048d; // 4823 PSF1(SLSS,0,LINE) #line 4823 "regression-compile-tmp/nrimp10s-77.imp" PSF1(66, 0, LINE); // 4824 N=N+4 #line 4824 "regression-compile-tmp/nrimp10s-77.imp" N = (((int)(N)) + (4)); // 4825 %FINISH %ELSE PSF1(LSS,0,LINE) #line 4825 "regression-compile-tmp/nrimp10s-77.imp" goto L_048e; #line 4825 "regression-compile-tmp/nrimp10s-77.imp" L_048d:; #line 4825 "regression-compile-tmp/nrimp10s-77.imp" PSF1(98, 0, LINE); #line 4825 "regression-compile-tmp/nrimp10s-77.imp" L_048e:; // 4826 PF1(ST,0,TOS,0) #line 4826 "regression-compile-tmp/nrimp10s-77.imp" PF1(72, 0, 6, 0); // 4827 %FINISH %ELSE %START #line 4827 "regression-compile-tmp/nrimp10s-77.imp" goto L_048f; #line 4827 "regression-compile-tmp/nrimp10s-77.imp" L_048c:; // 4828 %IF PARMOPT#0 %THEN %START #line 4828 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMOPT) == (0))) goto L_0490; // 4829 PSF1(ST,1,N) #line 4829 "regression-compile-tmp/nrimp10s-77.imp" PSF1(72, 1, N); // 4830 N=N+4 #line 4830 "regression-compile-tmp/nrimp10s-77.imp" N = (((int)(N)) + (4)); // 4831 %FINISH #line 4831 "regression-compile-tmp/nrimp10s-77.imp" L_0490:; // 4832 PSF1(LSS,0,LINE) #line 4832 "regression-compile-tmp/nrimp10s-77.imp" PSF1(98, 0, LINE); // 4833 PSF1(ST,1,N) #line 4833 "regression-compile-tmp/nrimp10s-77.imp" PSF1(72, 1, N); // 4834 PSF1(LD,1,12); ! UPDATE BND FIELD #line 4834 "regression-compile-tmp/nrimp10s-77.imp" PSF1(120, 1, 12); // 4835 DIAG POINTER(LEVEL) #line 4835 "regression-compile-tmp/nrimp10s-77.imp" DIAGPOINTER(LEVEL); // 4836 PSF1(STD,1,12) #line 4836 "regression-compile-tmp/nrimp10s-77.imp" PSF1(88, 1, 12); // 4837 %FINISH #line 4837 "regression-compile-tmp/nrimp10s-77.imp" L_048f:; // 4838 DIAGINF(LEVEL)=N #line 4838 "regression-compile-tmp/nrimp10s-77.imp" DIAGINF[LEVEL] = N; // 4839 N=N+4 #line 4839 "regression-compile-tmp/nrimp10s-77.imp" N = (((int)(N)) + (4)); // 4840 GRUSE(ACCR)=0; ! NEEDED FOR %BEGIN BLOCKS #line 4840 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[0] = 0; // 4841 %FINISH #line 4841 "regression-compile-tmp/nrimp10s-77.imp" L_048a:; // 4842 %IF PARMOPT#0 %AND KK>=0 %AND LEVEL=2 %START #line 4842 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMOPT) == (0))) goto L_0491; #line 4842 "regression-compile-tmp/nrimp10s-77.imp" if (((KK) < (0))) goto L_0491; #line 4842 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) != (2))) goto L_0491; // 4843 PF1(STSF,0,BREG,0) #line 4843 "regression-compile-tmp/nrimp10s-77.imp" PF1(94, 0, 7, 0); // 4844 PF1(STLN,0,TOS,0) #line 4844 "regression-compile-tmp/nrimp10s-77.imp" PF1(92, 0, 6, 0); // 4845 PF1(SBB,0,TOS,0) #line 4845 "regression-compile-tmp/nrimp10s-77.imp" PF1(34, 0, 6, 0); // 4846 PSF1(CPB,0,N) #line 4846 "regression-compile-tmp/nrimp10s-77.imp" PSF1(38, 0, N); // 4847 PPJ(7,13) #line 4847 "regression-compile-tmp/nrimp10s-77.imp" PPJ(7, 13); // 4848 %FINISH #line 4848 "regression-compile-tmp/nrimp10s-77.imp" L_0491:; // 4849 ! // 4850 ! CLAIM (THE REST OF) THE STACK FRAME // 4851 ! // 4852 %IF KK>=0 %OR LEVEL=2 %START #line 4852 "regression-compile-tmp/nrimp10s-77.imp" if (((KK) >= (0))) goto L_0492; #line 4852 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) != (2))) goto L_0493; #line 4852 "regression-compile-tmp/nrimp10s-77.imp" L_0492:; // 4853 SET(RLEVEL)=N<<18!CA #line 4853 "regression-compile-tmp/nrimp10s-77.imp" SET[RLEVEL] = ((((N) << (18))) | (CA)); // 4854 NMAX=N #line 4854 "regression-compile-tmp/nrimp10s-77.imp" NMAX = N; // 4855 PF1(ASF+12*PARMCHK,0,0,0); ! ASF OR LB #line 4855 "regression-compile-tmp/nrimp10s-77.imp" PF1(((110) + ((int)((((int)(12)) * (PARMCHK))))), 0, 0, 0); // 4856 PPJ(0,4) %IF PARMCHK#0 #line 4856 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMCHK) == (0))) goto L_0494; #line 4856 "regression-compile-tmp/nrimp10s-77.imp" PPJ(0, 4); #line 4856 "regression-compile-tmp/nrimp10s-77.imp" L_0494:; // 4857 %FINISH #line 4857 "regression-compile-tmp/nrimp10s-77.imp" L_0493:; // 4858 ! // 4859 %IF KK>=0 %AND PARMCHK#0 %START #line 4859 "regression-compile-tmp/nrimp10s-77.imp" if (((KK) < (0))) goto L_0495; #line 4859 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMCHK) == (0))) goto L_0495; // 4860 CHECK STOF; ! CHECK FOR STACK O'FLOW #line 4860 "regression-compile-tmp/nrimp10s-77.imp" CHECKSTOF(); // 4861 %FINISH #line 4861 "regression-compile-tmp/nrimp10s-77.imp" L_0495:; // 4862 %IF PARMDBUG#0 %THEN SET LINE; ! TO CALL DBUG PACKAGE #line 4862 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMDBUG) == (0))) goto L_0496; #line 4862 "regression-compile-tmp/nrimp10s-77.imp" SETLINE(); #line 4862 "regression-compile-tmp/nrimp10s-77.imp" L_0496:; // 4863 %END #line 4863 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block RDISPLAY at level 5 // 4864 %ROUTINE CHECK STOF #line 4864 "regression-compile-tmp/nrimp10s-77.imp" void CHECKSTOF( void ) #line 4864 "regression-compile-tmp/nrimp10s-77.imp" { // 4865 !*********************************************************************** // 4866 !* CHECK THE STACK FOR OVERFLOW (LEAVING 4K MARGIN FOR MDIAG * // 4867 !*********************************************************************** // 4868 %IF PARMOPT#0 %THEN %START #line 4868 "regression-compile-tmp/nrimp10s-77.imp" if (((PARMOPT) == (0))) goto L_0497; // 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 ! // 4878 PF1(STSF,0,TOS,0) #line 4878 "regression-compile-tmp/nrimp10s-77.imp" PF1(94, 0, 6, 0); // 4879 PF1(LSS,0,TOS,0) #line 4879 "regression-compile-tmp/nrimp10s-77.imp" PF1(98, 0, 6, 0); // 4880 PSF1(USH,0,14) #line 4880 "regression-compile-tmp/nrimp10s-77.imp" PSF1(200, 0, 14); // 4881 PSF1(USH,0,-15) #line 4881 "regression-compile-tmp/nrimp10s-77.imp" PSF1(200, 0, (-15)); // 4882 PF1(ICP,0,0,ST LIMIT>>1) #line 4882 "regression-compile-tmp/nrimp10s-77.imp" PF1(230, 0, 0, (int)((((unsigned int)(STLIMIT)) >> (1)))); // 4883 PPJ(2,8) #line 4883 "regression-compile-tmp/nrimp10s-77.imp" PPJ(2, 8); // 4884 %FINISH #line 4884 "regression-compile-tmp/nrimp10s-77.imp" L_0497:; // 4885 %END; ! OF ROUTINE RHEAD #line 4885 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CHECKSTOF at level 5 // 4886 %ROUTINE CIOCP(%INTEGER N,REG) #line 4886 "regression-compile-tmp/nrimp10s-77.imp" void CIOCP( int N, int REG ) #line 4886 "regression-compile-tmp/nrimp10s-77.imp" { // 4887 !*********************************************************************** // 4888 !* COMPILES A CALL ON IOCP ENTRY POINT NO 'N' * // 4889 !* 2ND PARAMETER IS ALREAD IN THE ACC WHICH IS 32 BITS * // 4890 !*********************************************************************** // 4891 %INTEGER XYNB,OP1,OP2 #line 4891 "regression-compile-tmp/nrimp10s-77.imp" int XYNB; #line 4891 "regression-compile-tmp/nrimp10s-77.imp" int OP1; #line 4891 "regression-compile-tmp/nrimp10s-77.imp" int OP2; // 4892 %IF IOCPDISP=0 %THEN CXREF(IOCPEP,PARMDYNAMIC,2,IOCPDISP) #line 4892 "regression-compile-tmp/nrimp10s-77.imp" if (((IOCPDISP) != (0))) goto L_0498; #line 4892 "regression-compile-tmp/nrimp10s-77.imp" CXREF(IOCPEP, PARMDYNAMIC, 2, &IOCPDISP); #line 4892 "regression-compile-tmp/nrimp10s-77.imp" L_0498:; // 4893 %IF REGISTER(BREG)#0 %THEN BOOT OUT(BREG) #line 4893 "regression-compile-tmp/nrimp10s-77.imp" if (((REGISTER[7]) == (0))) goto L_0499; #line 4893 "regression-compile-tmp/nrimp10s-77.imp" BOOTOUT(7); #line 4893 "regression-compile-tmp/nrimp10s-77.imp" L_0499:; // 4894 %IF REG=ACCR %THEN OP1=LUH %AND OP2=ST %ELSE OP1=LDTB %AND OP2=STD #line 4894 "regression-compile-tmp/nrimp10s-77.imp" if (((REG) != (0))) goto L_049a; #line 4894 "regression-compile-tmp/nrimp10s-77.imp" OP1 = 106; #line 4894 "regression-compile-tmp/nrimp10s-77.imp" OP2 = 72; #line 4894 "regression-compile-tmp/nrimp10s-77.imp" goto L_049b; #line 4894 "regression-compile-tmp/nrimp10s-77.imp" L_049a:; #line 4894 "regression-compile-tmp/nrimp10s-77.imp" OP1 = 116; #line 4894 "regression-compile-tmp/nrimp10s-77.imp" OP2 = 88; #line 4894 "regression-compile-tmp/nrimp10s-77.imp" L_049b:; // 4895 PSF1(OP1,0,N) #line 4895 "regression-compile-tmp/nrimp10s-77.imp" PSF1(OP1, 0, N); // 4896 PSF1(PRCL,0,4) #line 4896 "regression-compile-tmp/nrimp10s-77.imp" PSF1(24, 0, 4); // 4897 PF1(OP2,0,TOS,0) #line 4897 "regression-compile-tmp/nrimp10s-77.imp" PF1(OP2, 0, 6, 0); // 4898 XYNB=SET XORYNB(-1,-1); ! TO PLT #line 4898 "regression-compile-tmp/nrimp10s-77.imp" XYNB = SETXORYNB((-1), (-1)); // 4899 PSF1(RALN,0,7) #line 4899 "regression-compile-tmp/nrimp10s-77.imp" PSF1(108, 0, 7); // 4900 PF1(CALL,2,XYNB,IOCPDISP) #line 4900 "regression-compile-tmp/nrimp10s-77.imp" PF1(30, 2, XYNB, IOCPDISP); // 4901 FORGET(-1) #line 4901 "regression-compile-tmp/nrimp10s-77.imp" FORGET((-1)); // 4902 %END #line 4902 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CIOCP at level 5 // 4903 %ROUTINE CUI(%INTEGER CODE) #line 4903 "regression-compile-tmp/nrimp10s-77.imp" void CUI( int CODE ) #line 4903 "regression-compile-tmp/nrimp10s-77.imp" { // 4904 !*********************************************************************** // 4905 !* COMPILE AN UNCONDITIONAL INSTRN WHEREEVER IT OCCURS * // 4906 !* CODE=0 UNCONDITIOALLY,=1 AFTER %THEN, =2 AFTER %ELSE * // 4907 !*********************************************************************** // 4908 %INTEGER MARKER,J,LNAME,TYPEP,PRECP,GWRDD,LWB,XYNB,ARRP,ALT #line 4908 "regression-compile-tmp/nrimp10s-77.imp" int MARKER; #line 4908 "regression-compile-tmp/nrimp10s-77.imp" int J; #line 4908 "regression-compile-tmp/nrimp10s-77.imp" int LNAME; #line 4908 "regression-compile-tmp/nrimp10s-77.imp" int TYPEP; #line 4908 "regression-compile-tmp/nrimp10s-77.imp" int PRECP; #line 4908 "regression-compile-tmp/nrimp10s-77.imp" int GWRDD; #line 4908 "regression-compile-tmp/nrimp10s-77.imp" int LWB; #line 4908 "regression-compile-tmp/nrimp10s-77.imp" int XYNB; #line 4908 "regression-compile-tmp/nrimp10s-77.imp" int ARRP; #line 4908 "regression-compile-tmp/nrimp10s-77.imp" int ALT; // 4909 %SWITCH SW(1:9) #line 4909 "regression-compile-tmp/nrimp10s-77.imp" static int sw11_SW_idx; static const void * /*SWITCH*/ sw11_SW[9] = { &&sw11_SW_1, &&sw11_SW_2, &&sw11_SW_3, &&sw11_SW_4, &&sw11_SW_5, &&sw11_SW_6, &&sw11_SW_7, &&sw11_SW_8, &&sw11_SW_9, }; // 4910 REPORTUI=0 #line 4910 "regression-compile-tmp/nrimp10s-77.imp" REPORTUI = 0; // 4911 ALT=A(P) #line 4911 "regression-compile-tmp/nrimp10s-77.imp" ALT = A[P]; // 4912 ->SW(ALT) #line 4912 "regression-compile-tmp/nrimp10s-77.imp" sw11_SW_idx = ALT; if ((1 <= sw11_SW_idx) && (sw11_SW_idx <= 9)) goto *(sw11_SW-1)[sw11_SW_idx]; /* Bounds=1:9 */ else { /*_imp_signal(8, 2, sw11_SW_idx);*/ fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:9 at %s:%d\n", sw11_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 4913 SW(1): ! (NAME)(APP)(ASSMNT?) #line 4913 "regression-compile-tmp/nrimp10s-77.imp" sw11_SW_1:; // 4914 P=P+1; MARKER=P+FROMAR2(P) #line 4914 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 4914 "regression-compile-tmp/nrimp10s-77.imp" MARKER = (((int)(P)) + (FROMAR2(P))); // 4915 %IF A(MARKER)=1 %THEN %START #line 4915 "regression-compile-tmp/nrimp10s-77.imp" if (((A[MARKER]) != (1))) goto L_049c; // 4916 J=P+2; P=MARKER+2 #line 4916 "regression-compile-tmp/nrimp10s-77.imp" J = (((int)(P)) + (2)); #line 4916 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(MARKER)) + (2)); // 4917 ASSIGN(A(MARKER+1),J) #line 4917 "regression-compile-tmp/nrimp10s-77.imp" ASSIGN(A[(((int)(MARKER)) + (1))], J); // 4918 %FINISH %ELSE %START #line 4918 "regression-compile-tmp/nrimp10s-77.imp" goto L_049d; #line 4918 "regression-compile-tmp/nrimp10s-77.imp" L_049c:; // 4919 P=P+2 #line 4919 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 4920 CNAME(0,0) #line 4920 "regression-compile-tmp/nrimp10s-77.imp" CNAME(0, 0); // 4921 P=P+1 #line 4921 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 4922 %FINISH #line 4922 "regression-compile-tmp/nrimp10s-77.imp" L_049d:; // 4923 AUI: J=A(P); P=P+1 #line 4923 "regression-compile-tmp/nrimp10s-77.imp" U_102b:; #line 4923 "regression-compile-tmp/nrimp10s-77.imp" J = A[P]; #line 4923 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 4924 %IF J=1 %THEN CUI(CODE) #line 4924 "regression-compile-tmp/nrimp10s-77.imp" if (((J) != (1))) goto L_049e; #line 4924 "regression-compile-tmp/nrimp10s-77.imp" CUI(CODE); #line 4924 "regression-compile-tmp/nrimp10s-77.imp" L_049e:; // 4925 %RETURN #line 4925 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 4926 SW(2): ! -> (NAME)(APP) #line 4926 "regression-compile-tmp/nrimp10s-77.imp" sw11_SW_2:; // 4927 NMDECS(LEVEL)=NMDECS(LEVEL)!1 #line 4927 "regression-compile-tmp/nrimp10s-77.imp" NMDECS[LEVEL] = ((NMDECS[LEVEL]) | (1)); // 4928 CURR INST=1 %IF CODE=0 #line 4928 "regression-compile-tmp/nrimp10s-77.imp" if (((CODE) != (0))) goto L_049f; #line 4928 "regression-compile-tmp/nrimp10s-77.imp" CURRINST = 1; #line 4928 "regression-compile-tmp/nrimp10s-77.imp" L_049f:; // 4929 LNAME=FROM AR2(P+1) #line 4929 "regression-compile-tmp/nrimp10s-77.imp" LNAME = FROMAR2((((int)(P)) + (1))); // 4930 J=A(P+3); P=P+4 #line 4930 "regression-compile-tmp/nrimp10s-77.imp" J = A[(((int)(P)) + (3))]; #line 4930 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (4)); // 4931 %IF J=2 %THEN %START; ! SIMPLE LABEL #line 4931 "regression-compile-tmp/nrimp10s-77.imp" if (((J) != (2))) goto L_04a0; // 4932 ENTER JUMP(15,LNAME,0) #line 4932 "regression-compile-tmp/nrimp10s-77.imp" ENTERJUMP(15, LNAME, 0); // 4933 REPORTUI=1 #line 4933 "regression-compile-tmp/nrimp10s-77.imp" REPORTUI = 1; // 4934 %FINISH %ELSE %START; ! SWITCH LABELS #line 4934 "regression-compile-tmp/nrimp10s-77.imp" goto L_04a1; #line 4934 "regression-compile-tmp/nrimp10s-77.imp" L_04a0:; // 4935 COPY TAG(LNAME) #line 4935 "regression-compile-tmp/nrimp10s-77.imp" COPYTAG(LNAME); // 4936 ARRP=ARR #line 4936 "regression-compile-tmp/nrimp10s-77.imp" ARRP = ARR; // 4937 GWRDD=SNDISP<<2; ! BYTE DISP OF DESCRIPTOR IN PLT #line 4937 "regression-compile-tmp/nrimp10s-77.imp" GWRDD = ((SNDISP) << (2)); // 4938 %UNLESS OLDI=LEVEL %AND TYPE=6 %START #line 4938 "regression-compile-tmp/nrimp10s-77.imp" if (((OLDI) != (LEVEL))) goto L_04a2; #line 4938 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) == (6))) goto L_04a3; #line 4938 "regression-compile-tmp/nrimp10s-77.imp" L_04a2:; // 4939 FAULT(4,LNAME); P=P-1; SKIP APP #line 4939 "regression-compile-tmp/nrimp10s-77.imp" FAULT(4, LNAME); #line 4939 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) - (1)); #line 4939 "regression-compile-tmp/nrimp10s-77.imp" SKIPAPP(); // 4940 %RETURN #line 4940 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 4941 %FINISH #line 4941 "regression-compile-tmp/nrimp10s-77.imp" L_04a3:; // 4942 LWB=FROM2(K); ! GET LOWER BOUND #line 4942 "regression-compile-tmp/nrimp10s-77.imp" LWB = FROM2(K); // 4943 CSEXP(BREG,16_51) #line 4943 "regression-compile-tmp/nrimp10s-77.imp" CSEXP(7, 81); // 4944 %IF ARRP=1 %THEN PSF1(SBB,0,LWB) #line 4944 "regression-compile-tmp/nrimp10s-77.imp" if (((ARRP) != (1))) goto L_04a4; #line 4944 "regression-compile-tmp/nrimp10s-77.imp" PSF1(34, 0, LWB); #line 4944 "regression-compile-tmp/nrimp10s-77.imp" L_04a4:; // 4945 XYNB=SET XORYNB(-1,-1); ! TO PLT #line 4945 "regression-compile-tmp/nrimp10s-77.imp" XYNB = SETXORYNB((-1), (-1)); // 4946 PF1(JUNC,3,XYNB,GWRDD); ! JUMP INDIRECT VIA WORD ARRAY #line 4946 "regression-compile-tmp/nrimp10s-77.imp" PF1(26, 3, XYNB, GWRDD); // 4947 ! OF 32 BIT RELOCATED ADDRESSES // 4948 REPORTUI=1; FORGET(-1) #line 4948 "regression-compile-tmp/nrimp10s-77.imp" REPORTUI = 1; #line 4948 "regression-compile-tmp/nrimp10s-77.imp" FORGET((-1)); // 4949 %FINISH #line 4949 "regression-compile-tmp/nrimp10s-77.imp" L_04a1:; // 4950 %RETURN #line 4950 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 4951 SW(3): ! RETURN #line 4951 "regression-compile-tmp/nrimp10s-77.imp" sw11_SW_3:; // 4952 FAULT(30,0) %UNLESS FLAG(LEVEL)&16_3FFF=16_1000 #line 4952 "regression-compile-tmp/nrimp10s-77.imp" if (((((FLAG[LEVEL]) & (16383))) == (4096))) goto L_04a5; #line 4952 "regression-compile-tmp/nrimp10s-77.imp" FAULT(30, 0); #line 4952 "regression-compile-tmp/nrimp10s-77.imp" L_04a5:; // 4953 P=P+1 #line 4953 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 4954 RET: RT EXIT #line 4954 "regression-compile-tmp/nrimp10s-77.imp" U_1030:; #line 4954 "regression-compile-tmp/nrimp10s-77.imp" RTEXIT(); // 4955 REPORT UI=1 #line 4955 "regression-compile-tmp/nrimp10s-77.imp" REPORTUI = 1; // 4956 CURR INST=1 %IF CODE=0 #line 4956 "regression-compile-tmp/nrimp10s-77.imp" if (((CODE) != (0))) goto L_04a6; #line 4956 "regression-compile-tmp/nrimp10s-77.imp" CURRINST = 1; #line 4956 "regression-compile-tmp/nrimp10s-77.imp" L_04a6:; // 4957 %RETURN #line 4957 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 4958 SW(4): ! %RESULT(ASSOP)(EXPR) #line 4958 "regression-compile-tmp/nrimp10s-77.imp" sw11_SW_4:; // 4959 PTYPE=FLAG(LEVEL)&16_3FFF; UNPACK #line 4959 "regression-compile-tmp/nrimp10s-77.imp" PTYPE = ((FLAG[LEVEL]) & (16383)); #line 4959 "regression-compile-tmp/nrimp10s-77.imp" UNPACK(); // 4960 %IF PTYPE>16_1000 %AND A(P+1)#3 %THEN %START;! ASSOP #'->' #line 4960 "regression-compile-tmp/nrimp10s-77.imp" if (((PTYPE) <= (4096))) goto L_04a7; #line 4960 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (1))]) == (3))) goto L_04a7; // 4961 %IF A(P+1)=1 %AND NAM#0 %AND A(P+5)=4 %AND A(P+6)=1 %START #line 4961 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (1))]) != (1))) goto L_04a8; #line 4961 "regression-compile-tmp/nrimp10s-77.imp" if (((NAM) == (0))) goto L_04a8; #line 4961 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (5))]) != (4))) goto L_04a8; #line 4961 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (6))]) != (1))) goto L_04a8; // 4962 P=P+7; TYPEP=TYPE; PRECP=PREC #line 4962 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (7)); #line 4962 "regression-compile-tmp/nrimp10s-77.imp" TYPEP = TYPE; #line 4962 "regression-compile-tmp/nrimp10s-77.imp" PRECP = PREC; // 4963 CNAME(4,ACCR) #line 4963 "regression-compile-tmp/nrimp10s-77.imp" CNAME(4, 0); // 4964 FAULT(81,0) %UNLESS A(P)=2; P=P+1 #line 4964 "regression-compile-tmp/nrimp10s-77.imp" if (((A[P]) == (2))) goto L_04a9; #line 4964 "regression-compile-tmp/nrimp10s-77.imp" FAULT(81, 0); #line 4964 "regression-compile-tmp/nrimp10s-77.imp" L_04a9:; #line 4964 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 4965 FAULT(83,0) %UNLESS TYPEP=TYPE %AND PRECP=PREC #line 4965 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPEP) != (TYPE))) goto L_04aa; #line 4965 "regression-compile-tmp/nrimp10s-77.imp" if (((PRECP) == (PREC))) goto L_04ab; #line 4965 "regression-compile-tmp/nrimp10s-77.imp" L_04aa:; #line 4965 "regression-compile-tmp/nrimp10s-77.imp" FAULT(83, 0); #line 4965 "regression-compile-tmp/nrimp10s-77.imp" L_04ab:; // 4966 ->RET #line 4966 "regression-compile-tmp/nrimp10s-77.imp" goto U_1030; // 4967 %FINISH #line 4967 "regression-compile-tmp/nrimp10s-77.imp" L_04a8:; // 4968 %IF A(P+1)=2 %THEN %START; ! ASSOP='=' #line 4968 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (1))]) != (2))) goto L_04ac; // 4969 P=P+2 #line 4969 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); // 4970 %IF NAM#0 %THEN TYPE=1; ! MAPS HAVE INTEGER RESULTS #line 4970 "regression-compile-tmp/nrimp10s-77.imp" if (((NAM) == (0))) goto L_04ad; #line 4970 "regression-compile-tmp/nrimp10s-77.imp" TYPE = 1; #line 4970 "regression-compile-tmp/nrimp10s-77.imp" L_04ad:; // 4971 %IF TYPE=5 %THEN %START #line 4971 "regression-compile-tmp/nrimp10s-77.imp" if (((TYPE) != (5))) goto L_04ae; // 4972 CSTREXP(0,ACCR) #line 4972 "regression-compile-tmp/nrimp10s-77.imp" CSTREXP(0, 0); // 4973 PSF1(LD,1,DISPLAY(RBASE)-8); ! RESULT DESCRPT #line 4973 "regression-compile-tmp/nrimp10s-77.imp" PSF1(120, 1, (((int)(DISPLAY[RBASE])) - (8))); // 4974 PF1(IAD,0,PC,SPECIAL CONSTS(2)) #line 4974 "regression-compile-tmp/nrimp10s-77.imp" PF1(224, 0, 4, SPECIALCONSTS(2)); // 4975 PF2(MV,1,1,0,0,UNASSPAT&255) #line 4975 "regression-compile-tmp/nrimp10s-77.imp" PF2(178, 1, 1, 0, 0, (((-2122219135)) & (255))); // 4976 PSF1(LDB,2,DISPLAY(RBASE)-8) #line 4976 "regression-compile-tmp/nrimp10s-77.imp" PSF1(118, 2, (((int)(DISPLAY[RBASE])) - (8))); // 4977 COPY DR #line 4977 "regression-compile-tmp/nrimp10s-77.imp" COPYDR(); // 4978 %FINISH %ELSE %START #line 4978 "regression-compile-tmp/nrimp10s-77.imp" goto L_04af; #line 4978 "regression-compile-tmp/nrimp10s-77.imp" L_04ae:; // 4979 %IF PREC<5 %THEN PREC=5 #line 4979 "regression-compile-tmp/nrimp10s-77.imp" if (((PREC) >= (5))) goto L_04b0; #line 4979 "regression-compile-tmp/nrimp10s-77.imp" PREC = 5; #line 4979 "regression-compile-tmp/nrimp10s-77.imp" L_04b0:; // 4980 %IF NAM=0 %THEN KK=PREC<<4!TYPE %ELSE KK=16_51 #line 4980 "regression-compile-tmp/nrimp10s-77.imp" if (((NAM) != (0))) goto L_04b1; #line 4980 "regression-compile-tmp/nrimp10s-77.imp" KK = ((((PREC) << (4))) | (TYPE)); #line 4980 "regression-compile-tmp/nrimp10s-77.imp" goto L_04b2; #line 4980 "regression-compile-tmp/nrimp10s-77.imp" L_04b1:; #line 4980 "regression-compile-tmp/nrimp10s-77.imp" KK = 81; #line 4980 "regression-compile-tmp/nrimp10s-77.imp" L_04b2:; // 4981 CSEXP(ACCR,KK) #line 4981 "regression-compile-tmp/nrimp10s-77.imp" CSEXP(0, KK); // 4982 %FINISH; ->RET #line 4982 "regression-compile-tmp/nrimp10s-77.imp" L_04af:; #line 4982 "regression-compile-tmp/nrimp10s-77.imp" goto U_1030; // 4983 %FINISH #line 4983 "regression-compile-tmp/nrimp10s-77.imp" L_04ac:; // 4984 %FINISH #line 4984 "regression-compile-tmp/nrimp10s-77.imp" L_04a7:; // 4985 FAULT(31,0) #line 4985 "regression-compile-tmp/nrimp10s-77.imp" FAULT(31, 0); // 4986 P=P+2; SKIP EXP; ! IGNORE SPURIOUS RESULT #line 4986 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (2)); #line 4986 "regression-compile-tmp/nrimp10s-77.imp" SKIPEXP(); // 4987 %RETURN #line 4987 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 4988 SW(5): ! %MONITOR (AUI) #line 4988 "regression-compile-tmp/nrimp10s-77.imp" sw11_SW_5:; // 4989 PSF1(LSD,0,0); ! ERR=0 & EXTRA =0 #line 4989 "regression-compile-tmp/nrimp10s-77.imp" PSF1(100, 0, 0); // 4990 PPJ(0,2); ! TO ERROR ROUTINE #line 4990 "regression-compile-tmp/nrimp10s-77.imp" PPJ(0, 2); // 4991 P=P+1; ->AUI #line 4991 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); #line 4991 "regression-compile-tmp/nrimp10s-77.imp" goto U_102b; // 4992 SW(6): ! %STOP #line 4992 "regression-compile-tmp/nrimp10s-77.imp" sw11_SW_6:; // 4993 PPJ(0,21) #line 4993 "regression-compile-tmp/nrimp10s-77.imp" PPJ(0, 21); // 4994 P=P+1 #line 4994 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (1)); // 4995 CURR INST=1 %IF CODE=0 #line 4995 "regression-compile-tmp/nrimp10s-77.imp" if (((CODE) != (0))) goto L_04b3; #line 4995 "regression-compile-tmp/nrimp10s-77.imp" CURRINST = 1; #line 4995 "regression-compile-tmp/nrimp10s-77.imp" L_04b3:; // 4996 REPORTUI=1 #line 4996 "regression-compile-tmp/nrimp10s-77.imp" REPORTUI = 1; // 4997 %RETURN #line 4997 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 4998 SW(7): !'%SIGNAL'(EVENT')(N)(OPEXPR) #line 4998 "regression-compile-tmp/nrimp10s-77.imp" sw11_SW_7:; // 4999 PSF1(PRCL,0,4) #line 4999 "regression-compile-tmp/nrimp10s-77.imp" PSF1(24, 0, 4); // 5000 PSF1(JLK,0,1); ! STACK DUMMY PC #line 5000 "regression-compile-tmp/nrimp10s-77.imp" PSF1(28, 0, 1); // 5001 %IF NMDECS(LEVEL)&16 #0 %START;! IN AN 'ON' GROUP #line 5001 "regression-compile-tmp/nrimp10s-77.imp" if (((((NMDECS[LEVEL]) & (16))) == (0))) goto L_04b4; // 5002 %IF FLAG(LEVEL)<=2 %START; ! IN A BEGIN BLOCK #line 5002 "regression-compile-tmp/nrimp10s-77.imp" if (((FLAG[LEVEL]) > (2))) goto L_04b5; // 5003 PSF1(LD,1,12); ! SO RESET DIAG POINTER #line 5003 "regression-compile-tmp/nrimp10s-77.imp" PSF1(120, 1, 12); // 5004 DIAGPOINTER(LEVEL-1); ! TO NEXT OUTER BLOCK #line 5004 "regression-compile-tmp/nrimp10s-77.imp" DIAGPOINTER((((int)(LEVEL)) - (1))); // 5005 PSF1(STD,1,12) #line 5005 "regression-compile-tmp/nrimp10s-77.imp" PSF1(88, 1, 12); // 5006 PF1(STLN,0,TOS,0) #line 5006 "regression-compile-tmp/nrimp10s-77.imp" PF1(92, 0, 6, 0); // 5007 %FINISH %ELSE %START; ! 'ON IN A RT/FN/MAP #line 5007 "regression-compile-tmp/nrimp10s-77.imp" goto L_04b6; #line 5007 "regression-compile-tmp/nrimp10s-77.imp" L_04b5:; // 5008 PSF1(LSS,1,0); ! GET PREVIOUS LNB #line 5008 "regression-compile-tmp/nrimp10s-77.imp" PSF1(98, 1, 0); // 5009 PF1(ST,0,TOS,0); ! AND STACK THAT #line 5009 "regression-compile-tmp/nrimp10s-77.imp" PF1(72, 0, 6, 0); // 5010 %FINISH #line 5010 "regression-compile-tmp/nrimp10s-77.imp" L_04b6:; // 5011 %FINISH %ELSE PF1(STLN,0,TOS,0) #line 5011 "regression-compile-tmp/nrimp10s-77.imp" goto L_04b7; #line 5011 "regression-compile-tmp/nrimp10s-77.imp" L_04b4:; #line 5011 "regression-compile-tmp/nrimp10s-77.imp" PF1(92, 0, 6, 0); #line 5011 "regression-compile-tmp/nrimp10s-77.imp" L_04b7:; // 5012 GRUSE(ACCR)=0 #line 5012 "regression-compile-tmp/nrimp10s-77.imp" GRUSE[0] = 0; // 5013 J=A(P+2); ! EVENT NO #line 5013 "regression-compile-tmp/nrimp10s-77.imp" J = A[(((int)(P)) + (2))]; // 5014 FAULT2(26,J,0) %UNLESS 1<=J<=15 #line 5014 "regression-compile-tmp/nrimp10s-77.imp" if ((((1) > (J))) || (((J) <= (15)))) goto L_04b9; #line 5014 "regression-compile-tmp/nrimp10s-77.imp" L_04b8:; #line 5014 "regression-compile-tmp/nrimp10s-77.imp" FAULT2(26, J, 0); #line 5014 "regression-compile-tmp/nrimp10s-77.imp" L_04b9:; // 5015 %IF A(P+3)=1 %START; ! SUBEVENT SPECIFIED #line 5015 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(P)) + (3))]) != (1))) goto L_04ba; // 5016 P=P+4; CSEXP(ACCR,16_51) #line 5016 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(P)) + (4)); #line 5016 "regression-compile-tmp/nrimp10s-77.imp" CSEXP(0, 81); // 5017 PF1(AND,0,0,255) #line 5017 "regression-compile-tmp/nrimp10s-77.imp" PF1(138, 0, 0, 255); // 5018 PF1(OR,0,0,256*J) #line 5018 "regression-compile-tmp/nrimp10s-77.imp" PF1(140, 0, 0, (((int)(256)) * (J))); // 5019 %FINISH %ELSE PF1(LSS,0,0,256*J) #line 5019 "regression-compile-tmp/nrimp10s-77.imp" goto L_04bb; #line 5019 "regression-compile-tmp/nrimp10s-77.imp" L_04ba:; #line 5019 "regression-compile-tmp/nrimp10s-77.imp" PF1(98, 0, 0, (((int)(256)) * (J))); #line 5019 "regression-compile-tmp/nrimp10s-77.imp" L_04bb:; // 5020 PSF1(SLSS,0,0) #line 5020 "regression-compile-tmp/nrimp10s-77.imp" PSF1(66, 0, 0); // 5021 PF1(ST,0,TOS,0) #line 5021 "regression-compile-tmp/nrimp10s-77.imp" PF1(72, 0, 6, 0); // 5022 XYNB=SET XORYNB(-1,-1); ! TO PLT #line 5022 "regression-compile-tmp/nrimp10s-77.imp" XYNB = SETXORYNB((-1), (-1)); // 5023 PSF1(RALN,0,9) #line 5023 "regression-compile-tmp/nrimp10s-77.imp" PSF1(108, 0, 9); // 5024 PF1(CALL,2,XYNB,40) #line 5024 "regression-compile-tmp/nrimp10s-77.imp" PF1(30, 2, XYNB, 40); // 5025 CURR INST=1 %IF CODE=0 #line 5025 "regression-compile-tmp/nrimp10s-77.imp" if (((CODE) != (0))) goto L_04bc; #line 5025 "regression-compile-tmp/nrimp10s-77.imp" CURRINST = 1; #line 5025 "regression-compile-tmp/nrimp10s-77.imp" L_04bc:; // 5026 REPORTUI=1; %RETURN #line 5026 "regression-compile-tmp/nrimp10s-77.imp" REPORTUI = 1; #line 5026 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; // 5027 SW(8): ! %EXIT #line 5027 "regression-compile-tmp/nrimp10s-77.imp" sw11_SW_8:; // 5028 SW(9): ! %CONTINUE #line 5028 "regression-compile-tmp/nrimp10s-77.imp" sw11_SW_9:; // 5029 ALT=ALT&7; ! 0 FOR EXIT 1 FOR CONTINUE #line 5029 "regression-compile-tmp/nrimp10s-77.imp" ALT = ((ALT) & (7)); // 5030 %IF EXITLAB=0 %THEN FAULT2(54+ALT,0,0) %AND %RETURN #line 5030 "regression-compile-tmp/nrimp10s-77.imp" if (((EXITLAB) != (0))) goto L_04bd; #line 5030 "regression-compile-tmp/nrimp10s-77.imp" FAULT2((((int)(54)) + (ALT)), 0, 0); #line 5030 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 5030 "regression-compile-tmp/nrimp10s-77.imp" L_04bd:; // 5031 KK=INTEGER(ADDR(EXITLAB)+4*ALT) #line 5031 "regression-compile-tmp/nrimp10s-77.imp" KK = *_imp_INTEGER(((_imp_ADDR(&EXITLAB)) + ((int)((((int)(4)) * (ALT)))))); // 5032 ENTER JUMP(15,KK,B'10') #line 5032 "regression-compile-tmp/nrimp10s-77.imp" ENTERJUMP(15, KK, 2); // 5033 REPORTUI=1 #line 5033 "regression-compile-tmp/nrimp10s-77.imp" REPORTUI = 1; // 5034 CURR INST=1 %IF CODE=0 #line 5034 "regression-compile-tmp/nrimp10s-77.imp" if (((CODE) != (0))) goto L_04be; #line 5034 "regression-compile-tmp/nrimp10s-77.imp" CURRINST = 1; #line 5034 "regression-compile-tmp/nrimp10s-77.imp" L_04be:; // 5035 %END #line 5035 "regression-compile-tmp/nrimp10s-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CUI at level 5 // 5036 %ROUTINE CIFTHEN(%INTEGER MARKIU,MARKC,MARKUI,MARKE,MARKR,SKIP) #line 5036 "regression-compile-tmp/nrimp10s-77.imp" void CIFTHEN( int MARKIU, int MARKC, int MARKUI, int MARKE, int MARKR, int SKIP ) #line 5036 "regression-compile-tmp/nrimp10s-77.imp" { // 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 !*********************************************************************** // 5046 %INTEGER ALTUI,CCRES,ELRES,THENLAB,ELSELAB,USERLAB,REPORT,START,ELSEALT,K #line 5046 "regression-compile-tmp/nrimp10s-77.imp" int ALTUI; #line 5046 "regression-compile-tmp/nrimp10s-77.imp" int CCRES; #line 5046 "regression-compile-tmp/nrimp10s-77.imp" int ELRES; #line 5046 "regression-compile-tmp/nrimp10s-77.imp" int THENLAB; #line 5046 "regression-compile-tmp/nrimp10s-77.imp" int ELSELAB; #line 5046 "regression-compile-tmp/nrimp10s-77.imp" int USERLAB; #line 5046 "regression-compile-tmp/nrimp10s-77.imp" int REPORT; #line 5046 "regression-compile-tmp/nrimp10s-77.imp" int START; #line 5046 "regression-compile-tmp/nrimp10s-77.imp" int ELSEALT; #line 5046 "regression-compile-tmp/nrimp10s-77.imp" int K; // 5047 %CONSTINTEGER NULL ELSE=4 // 5048 %SWITCH ESW(1:NULL ELSE) #line 5048 "regression-compile-tmp/nrimp10s-77.imp" static int sw12_ESW_idx; static const void * /*SWITCH*/ sw12_ESW[4] = { &&sw12_ESW_1, &&sw12_ESW_2, &&sw12_ESW_3, &&sw12_ESW_4, }; // 5049 SET LINE %UNLESS SKIP=YES #line 5049 "regression-compile-tmp/nrimp10s-77.imp" if (((SKIP) == (1))) goto L_04bf; #line 5049 "regression-compile-tmp/nrimp10s-77.imp" SETLINE(); #line 5049 "regression-compile-tmp/nrimp10s-77.imp" L_04bf:; // 5050 MARKIU=A(MARKIU); ! ALT OF IU 1=%IF,2=%UNLESS #line 5050 "regression-compile-tmp/nrimp10s-77.imp" MARKIU = A[MARKIU]; // 5051 PLABEL=PLABEL-1 #line 5051 "regression-compile-tmp/nrimp10s-77.imp" PLABEL = (((int)(PLABEL)) - (1)); // 5052 THENLAB=PLABEL #line 5052 "regression-compile-tmp/nrimp10s-77.imp" THENLAB = PLABEL; // 5053 START=0; ! NO START IN CONDITION YET #line 5053 "regression-compile-tmp/nrimp10s-77.imp" START = 0; // 5054 ELSELAB=0; ! MEANS NO ELSE CLAUSE #line 5054 "regression-compile-tmp/nrimp10s-77.imp" ELSELAB = 0; // 5055 P=MARKC #line 5055 "regression-compile-tmp/nrimp10s-77.imp" P = MARKC; // 5056 %IF MARKR>0 %AND A(MARKR)<=2 %THEN START=1;! '%START' OR '%THENSTART' #line 5056 "regression-compile-tmp/nrimp10s-77.imp" if (((MARKR) <= (0))) goto L_04c0; #line 5056 "regression-compile-tmp/nrimp10s-77.imp" if (((A[MARKR]) > (2))) goto L_04c0; #line 5056 "regression-compile-tmp/nrimp10s-77.imp" START = 1; #line 5056 "regression-compile-tmp/nrimp10s-77.imp" L_04c0:; // 5057 %IF MARKE#0 %AND LEVEL<2 %AND START=0 %THEN FAULT(57,0) #line 5057 "regression-compile-tmp/nrimp10s-77.imp" if (((MARKE) == (0))) goto L_04c1; #line 5057 "regression-compile-tmp/nrimp10s-77.imp" if (((LEVEL) >= (2))) goto L_04c1; #line 5057 "regression-compile-tmp/nrimp10s-77.imp" if (((START) != (0))) goto L_04c1; #line 5057 "regression-compile-tmp/nrimp10s-77.imp" FAULT(57, 0); #line 5057 "regression-compile-tmp/nrimp10s-77.imp" L_04c1:; // 5058 USERLAB=-1 #line 5058 "regression-compile-tmp/nrimp10s-77.imp" USERLAB = (-1); // 5059 %IF START#0 %THEN ALTUI=0 %ELSE ALTUI=A(MARKUI) #line 5059 "regression-compile-tmp/nrimp10s-77.imp" if (((START) == (0))) goto L_04c2; #line 5059 "regression-compile-tmp/nrimp10s-77.imp" ALTUI = 0; #line 5059 "regression-compile-tmp/nrimp10s-77.imp" goto L_04c3; #line 5059 "regression-compile-tmp/nrimp10s-77.imp" L_04c2:; #line 5059 "regression-compile-tmp/nrimp10s-77.imp" ALTUI = A[MARKUI]; #line 5059 "regression-compile-tmp/nrimp10s-77.imp" L_04c3:; // 5060 %IF ALTUI=2 %AND A(MARKUI+3)=2 %THEN USERLAB=FROM AR2(MARKUI+1); ! UI = SIMPLE LABEL #line 5060 "regression-compile-tmp/nrimp10s-77.imp" if (((ALTUI) != (2))) goto L_04c4; #line 5060 "regression-compile-tmp/nrimp10s-77.imp" if (((A[(((int)(MARKUI)) + (3))]) != (2))) goto L_04c4; #line 5060 "regression-compile-tmp/nrimp10s-77.imp" USERLAB = FROMAR2((((int)(MARKUI)) + (1))); #line 5060 "regression-compile-tmp/nrimp10s-77.imp" L_04c4:; // 5061 %IF 8<=ALTUI<=9 %AND EXITLAB#0 %START; ! VALID EXIT #line 5061 "regression-compile-tmp/nrimp10s-77.imp" if ((((8) > (ALTUI))) || (((ALTUI) > (9)))) goto L_04c5; #line 5061 "regression-compile-tmp/nrimp10s-77.imp" if (((EXITLAB) == (0))) goto L_04c5; // 5062 %IF ALTUI=8 %THEN USERLAB=EXITLAB %ELSE USERLAB=CONTLAB #line 5062 "regression-compile-tmp/nrimp10s-77.imp" if (((ALTUI) != (8))) goto L_04c6; #line 5062 "regression-compile-tmp/nrimp10s-77.imp" USERLAB = EXITLAB; #line 5062 "regression-compile-tmp/nrimp10s-77.imp" goto L_04c7; #line 5062 "regression-compile-tmp/nrimp10s-77.imp" L_04c6:; #line 5062 "regression-compile-tmp/nrimp10s-77.imp" USERLAB = CONTLAB; #line 5062 "regression-compile-tmp/nrimp10s-77.imp" L_04c7:; // 5063 %FINISH #line 5063 "regression-compile-tmp/nrimp10s-77.imp" L_04c5:; // 5064 ! // 5065 %IF SKIP=YES %THEN %START; ! NO CODE NEEDED #line 5065 "regression-compile-tmp/nrimp10s-77.imp" if (((SKIP) != (1))) goto L_04c8; // 5066 %IF START#0 %START #line 5066 "regression-compile-tmp/nrimp10s-77.imp" if (((START) == (0))) goto L_04c9; // 5067 P=MARKR+1 #line 5067 "regression-compile-tmp/nrimp10s-77.imp" P = (((int)(MARKR)) + (1)); // 5068 CSTART(2,1); ! NO CODE #line 5068 "regression-compile-tmp/nrimp10s-77.imp" CSTART(2, 1); // 5069 MARKE=P #line 5069 "regression-compile-tmp/nrimp10s-77.imp" MARKE = P; // 5070 %FINISH #line 5070 "regression-compile-tmp/nrimp10s-77.imp" L_04c9:; // 5071 CCRES=1; ! NO CODE FOR ELSE #line 5071 "regression-compile-tmp/nrimp10s-77.imp" CCRES = 1; // 5072 ->ELSE #line 5072 "regression-compile-tmp/nrimp10s-77.imp" goto U_1031; // 5073 %FINISH #line 5073 "regression-compile-tmp/nrimp10s-77.imp" L_04c8:; // 5074 ! // 5075 %IF USERLAB>=0 %THEN %START; ! FIRST UI IS'->'