#include // 1 ! Currently throwing a syntax error if more than one %OWN variable declared in one statement // 2 %CONTROL X'10000000' ; ! Decode // 3 // 4 ! There are two places where errors are generated when compiling the clean source of this // 5 ! compiler. Since it should probably be expected to be able to compile itself, these errors // 6 ! are almost certainly bogus and a result of some difference in the sparc compiler used to // 7 ! compile this. I have commented out those two error reports (look for '{' and 'erroneous') // 8 ! and when that is done the source does compile and the output looks plausible. // 9 // 10 ! I've supplied a recode and an lput which were missing from the allimpc1 source, and modified // 11 ! lput to output all the generated code and data, not just the code that recode outputs. // 12 ! Successive runs with no source changes produce *slightly* different output in the 'D' psect. // 13 ! This is either due to something time-related, or more likely, an unassigned variable. // 14 ! (It's not time-related as this code doesn't access CPU TIME, TIME, or DATE functions) // 15 // 16 ! Using the sparc compiler solves the problems that arose using other Imp77 compilers // 17 ! on little-endian machines like the Vax and X86. Also the x86 compilers do not // 18 ! support both 32 bit integers and 16 bit integers. // 19 // 20 ! The Imp to C translator *ought* to be able to compile and run this if the // 21 ! mips C compiler is used as it too is big-endian. Mips code runs under emulation // 22 ! on the X86 linux transparently. // 23 // 24 ! Note the compile-time warnings, Warning: value truncated to 16 bits signed at line 215 // 25 ! - this is because %SHORTINTEGER is a signed 16 bit quantity but some of the data // 26 ! in the tables is initialised with *unsigned* 16 bit data in excess of 32767. These // 27 ! constants could be replaced in the source with the negative literal values that // 28 ! would allow the source to compile without warnings. This has not yet been done. // 29 // 30 %BEGIN #line 30 "regression-compile-tmp/allimpc1-77.imp" int main(int argc, char **argv) { _imp_initialise(argc, argv); // 31 // 32 %constinteger debug=0 // 33 %owninteger com2 = 20000 ;! free memory size? #line 33 "regression-compile-tmp/allimpc1-77.imp" static int COM2 = 20000; // 34 %owninteger com24 = 0 ;! exit code I think #line 34 "regression-compile-tmp/allimpc1-77.imp" static int COM24 = 0; // 35 // 36 %integerfn com(%integer idx) #line 36 "regression-compile-tmp/allimpc1-77.imp" int COM( int IDX ) #line 36 "regression-compile-tmp/allimpc1-77.imp" { // 37 %if idx=24 %then %result = com24 #line 37 "regression-compile-tmp/allimpc1-77.imp" if (((IDX) != (24))) goto L_0002; #line 37 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return COM24; #line 37 "regression-compile-tmp/allimpc1-77.imp" L_0002:; // 38 %if idx=2 %then %result = com2 #line 38 "regression-compile-tmp/allimpc1-77.imp" if (((IDX) != (2))) goto L_0003; #line 38 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return COM2; #line 38 "regression-compile-tmp/allimpc1-77.imp" L_0003:; // 39 %stop #line 39 "regression-compile-tmp/allimpc1-77.imp" exit(0); // 40 %end #line 40 "regression-compile-tmp/allimpc1-77.imp" } // End of block COM at level 2 // 41 // 42 %routine setcom(%integer idx, val) #line 42 "regression-compile-tmp/allimpc1-77.imp" void SETCOM( int IDX, int VAL ) #line 42 "regression-compile-tmp/allimpc1-77.imp" { // 43 %if idx=24 %then com24=val %and %return #line 43 "regression-compile-tmp/allimpc1-77.imp" if (((IDX) != (24))) goto L_0004; #line 43 "regression-compile-tmp/allimpc1-77.imp" COM24 = VAL; #line 43 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 43 "regression-compile-tmp/allimpc1-77.imp" L_0004:; // 44 %if idx=2 %then com2 =val %and %return #line 44 "regression-compile-tmp/allimpc1-77.imp" if (((IDX) != (2))) goto L_0005; #line 44 "regression-compile-tmp/allimpc1-77.imp" COM2 = VAL; #line 44 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 44 "regression-compile-tmp/allimpc1-77.imp" L_0005:; // 45 %stop #line 45 "regression-compile-tmp/allimpc1-77.imp" exit(0); // 46 %end #line 46 "regression-compile-tmp/allimpc1-77.imp" return; } // End of block SETCOM at level 2 // 47 // 48 %routine set short integer(%integer address, %short value) #line 48 "regression-compile-tmp/allimpc1-77.imp" void SETSHORTINTEGER( int ADDRESS, short VALUE ) #line 48 "regression-compile-tmp/allimpc1-77.imp" { // 49 short integer(address) = value #line 49 "regression-compile-tmp/allimpc1-77.imp" *_imp_SHORTINTEGER(ADDRESS) = VALUE; // 50 %end #line 50 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SETSHORTINTEGER at level 2 // 51 // 52 // 53 %INTEGER I,J,K,SS #line 53 "regression-compile-tmp/allimpc1-77.imp" int I; #line 53 "regression-compile-tmp/allimpc1-77.imp" int J; #line 53 "regression-compile-tmp/allimpc1-77.imp" int K; #line 53 "regression-compile-tmp/allimpc1-77.imp" int SS; // 54 %OWNBYTEINTEGERARRAY CLETT(1: 425)= 1, #line 54 "regression-compile-tmp/allimpc1-77.imp" static unsigned char CLETT[425] = { 1, 43, 1, 45, 1, 92, 1, 40, 1, 41, 1, 33, 1, 44, 2, 42, 42, 2, 33, 33, 1, 42, 2, 47, 47, 1, 47, 1, 38, 2, 62, 62, 2, 60, 60, 1, 46, 1, 63, 2, 201, 198, 6, 213, 206, 204, 197, 211, 211, 7, 201, 206, 212, 197, 199, 197, 210, 4, 210, 197, 193, 204, 4, 194, 217, 212, 197, 5, 211, 200, 207, 210, 212, 4, 204, 207, 206, 199, 6, 211, 212, 210, 201, 206, 199, 7, 210, 207, 213, 212, 201, 206, 197, 2, 198, 206, 3, 205, 193, 208, 4, 206, 193, 205, 197, 6, 210, 197, 195, 207, 210, 196, 4, 211, 212, 207, 208, 7, 195, 207, 205, 208, 201, 204, 197, 6, 201, 199, 206, 207, 210, 197, 2, 207, 206, 3, 207, 198, 198, 5, 193, 210, 210, 193, 217, 3, 193, 206, 196, 2, 207, 210, 2, 61, 61, 1, 61, 2, 60, 45, 2, 45, 62, 4, 211, 208, 197, 195, 6, 206, 207, 210, 205, 193, 204, 6, 214, 197, 195, 212, 207, 210, 1, 58, 2, 62, 61, 1, 62, 1, 35, 2, 60, 61, 1, 60, 2, 92, 61, 4, 197, 204, 211, 197, 1, 95, 6, 211, 217, 211, 212, 197, 205, 8, 197, 216, 212, 197, 210, 206, 193, 204, 5, 195, 204, 193, 201, 205, 7, 210, 197, 204, 197, 193, 211, 197, 1, 80, 3, 80, 85, 84, 1, 64, 9, 208, 210, 201, 206, 212, 212, 197, 216, 212, 6, 210, 197, 212, 213, 210, 206, 7, 210, 197, 211, 213, 204, 212, 61, 7, 205, 207, 206, 201, 212, 207, 210, 5, 211, 212, 193, 210, 212, 7, 209, 213, 197, 210, 201, 197, 211, 5, 195, 217, 195, 204, 197, 6, 210, 197, 208, 197, 193, 212, 4, 212, 200, 197, 206, 3, 197, 206, 196, 7, 195, 207, 205, 205, 197, 206, 212, 5, 210, 197, 193, 204, 211, 5, 194, 197, 199, 201, 206, 2, 207, 198, 7, 208, 210, 207, 199, 210, 193, 205, 6, 211, 215, 201, 212, 195, 200, 8, 210, 197, 199, 201, 211, 212, 197, 210, 3, 207, 215, 206, 5, 205, 195, 207, 196, 197, 5, 198, 193, 213, 204, 212, 4, 198, 201, 204, 197, 6, 196, 197, 198, 201, 206, 197, 1, 210, 7, 211, 208, 197, 195, 201, 193, 204, 4, 204, 201, 211, 212, 7, 195, 207, 206, 212, 210, 207, 204, 6, 198, 201, 206, 201, 211, 200, 6, 198, 207, 210, 205, 193, 212, }; // 55 43, 1, 45, 1, 92, 1, 40, 1, 41, 1, 33, 1, 44, 2, // 56 42, 42, 2, 33, 33, 1, 42, 2, 47, 47, 1, 47, 1, 38, // 57 2, 62, 62, 2, 60, 60, 1, 46, 1, 63, 2, 201, 198, 6, // 58 213, 206, 204, 197, 211, 211, 7, 201, 206, 212, 197, 199, 197, 210, // 59 4, 210, 197, 193, 204, 4, 194, 217, 212, 197, 5, 211, 200, 207, // 60 210, 212, 4, 204, 207, 206, 199, 6, 211, 212, 210, 201, 206, 199, // 61 7, 210, 207, 213, 212, 201, 206, 197, 2, 198, 206, 3, 205, 193, // 62 208, 4, 206, 193, 205, 197, 6, 210, 197, 195, 207, 210, 196, 4, // 63 211, 212, 207, 208, 7, 195, 207, 205, 208, 201, 204, 197, 6, 201, // 64 199, 206, 207, 210, 197, 2, 207, 206, 3, 207, 198, 198, 5, 193, // 65 210, 210, 193, 217, 3, 193, 206, 196, 2, 207, 210, 2, 61, 61, // 66 1, 61, 2, 60, 45, 2, 45, 62, 4, 211, 208, 197, 195, 6, // 67 206, 207, 210, 205, 193, 204, 6, 214, 197, 195, 212, 207, 210, 1, // 68 58, 2, 62, 61, 1, 62, 1, 35, 2, 60, 61, 1, 60, 2, // 69 92, 61, 4, 197, 204, 211, 197, 1, 95, 6, 211, 217, 211, 212, // 70 197, 205, 8, 197, 216, 212, 197, 210, 206, 193, 204, 5, 195, 204, // 71 193, 201, 205, 7, 210, 197, 204, 197, 193, 211, 197, 1, 80, 3, // 72 80, 85, 84, 1, 64, 9, 208, 210, 201, 206, 212, 212, 197, 216, // 73 212, 6, 210, 197, 212, 213, 210, 206, 7, 210, 197, 211, 213, 204, // 74 212, 61, 7, 205, 207, 206, 201, 212, 207, 210, 5, 211, 212, 193, // 75 210, 212, 7, 209, 213, 197, 210, 201, 197, 211, 5, 195, 217, 195, // 76 204, 197, 6, 210, 197, 208, 197, 193, 212, 4, 212, 200, 197, 206, // 77 3, 197, 206, 196, 7, 195, 207, 205, 205, 197, 206, 212, 5, 210, // 78 197, 193, 204, 211, 5, 194, 197, 199, 201, 206, 2, 207, 198, 7, // 79 208, 210, 207, 199, 210, 193, 205, 6, 211, 215, 201, 212, 195, 200, // 80 8, 210, 197, 199, 201, 211, 212, 197, 210, 3, 207, 215, 206, 5, // 81 205, 195, 207, 196, 197, 5, 198, 193, 213, 204, 212, 4, 198, 201, // 82 204, 197, 6, 196, 197, 198, 201, 206, 197, 1, 210, 7, 211, 208, // 83 197, 195, 201, 193, 204, 4, 204, 201, 211, 212, 7, 195, 207, 206, // 84 212, 210, 207, 204, 6, 198, 201, 206, 201, 211, 200, 6, 198, 207, // 85 210, 205, 193, 212; // 86 %OWNSHORTINTEGERARRAY SYMBOL(1300: 2148)= 1309, #line 86 "regression-compile-tmp/allimpc1-77.imp" static short SYMBOL[849] = { 1309, 1303, 1, 1305, 3, 1307, 5, 1309, 1000, 1316, 1312, 1, 1314, 3, 1316, 1000, 1335, 1321, 1001, 1342, 1706, 1323, 1003, 1329, 7, 1300, 1316, 1335, 9, 1335, 11, 1300, 1316, 1335, 11, 1342, 1340, 1361, 1316, 1335, 1342, 1000, 1352, 1350, 7, 1300, 1316, 1335, 1352, 9, 1352, 1000, 1361, 1359, 13, 1300, 1316, 1335, 1352, 1361, 1000, 1388, 1364, 15, 1366, 1, 1368, 3, 1370, 18, 1372, 11, 1374, 21, 1376, 23, 1378, 26, 1380, 28, 1382, 30, 1384, 33, 1386, 36, 1388, 1000, 1393, 1391, 38, 1393, 1000, 1398, 1396, 13, 1398, 1000, 1403, 1401, 40, 1403, 43, 1420, 1406, 50, 1408, 58, 1411, 63, 50, 1414, 68, 50, 1417, 74, 58, 1420, 79, 1883, 1426, 1423, 86, 1426, 1403, 1426, 1431, 1429, 94, 1431, 97, 1445, 1435, 1420, 1467, 1438, 1403, 1472, 1441, 1462, 101, 1445, 106, 1462, 101, 1450, 1448, 1005, 1450, 1001, 1457, 1453, 113, 1455, 118, 1457, 126, 1462, 1460, 133, 1462, 136, 1467, 1465, 140, 1467, 1000, 1472, 1470, 101, 1472, 1000, 1484, 1477, 101, 140, 101, 1480, 140, 101, 1482, 101, 1484, 1000, 1493, 1491, 7, 1431, 1009, 1493, 9, 1493, 1000, 1501, 1499, 1393, 1431, 1009, 1493, 1501, 1000, 1520, 1513, 1010, 1300, 1316, 1335, 1669, 1300, 1316, 1335, 1520, 1011, 1520, 7, 1010, 1501, 1528, 1011, 9, 1528, 1526, 1669, 1300, 1316, 1335, 1528, 1000, 1539, 1533, 146, 1501, 1539, 1537, 150, 1501, 1546, 1539, 1000, 1546, 1544, 146, 1501, 1539, 1546, 1000, 1553, 1551, 150, 1501, 1546, 1553, 1000, 1562, 1560, 1562, 1300, 1316, 1335, 1388, 1562, 1000, 1571, 1565, 153, 1567, 156, 1569, 158, 1571, 161, 1576, 1574, 164, 1576, 1000, 1581, 1579, 74, 1581, 169, 1588, 1586, 13, 1714, 1581, 1588, 1000, 1599, 1592, 1472, 1009, 1596, 1467, 140, 1599, 1599, 176, 1613, 1607, 1607, 1009, 7, 1714, 1581, 9, 1607, 1613, 1611, 13, 1599, 1613, 1000, 1618, 1618, 1009, 1635, 1618, 1624, 1622, 13, 1613, 1624, 1000, 1635, 1629, 1001, 1723, 1006, 1635, 140, 1001, 1635, 1890, 1004, 1644, 1644, 7, 1309, 1003, 183, 1309, 1003, 9, 1651, 1649, 13, 1005, 1644, 1651, 1000, 1661, 1659, 13, 1005, 1644, 161, 1445, 1651, 1661, 1000, 1669, 1667, 13, 1009, 1635, 1661, 1669, 1000, 1686, 1672, 156, 1674, 185, 1676, 188, 1678, 190, 1680, 192, 1682, 195, 1684, 197, 1686, 161, 1694, 1689, 1006, 1694, 1398, 1501, 1528, 1006, 1700, 1698, 200, 1902, 1700, 1000, 1706, 1704, 205, 1001, 1706, 1000, 1714, 1712, 205, 1001, 1342, 1706, 1714, 1000, 1723, 1723, 1300, 1316, 1335, 183, 1300, 1316, 1335, 1730, 1728, 156, 1300, 1003, 1730, 1000, 1737, 1733, 207, 1735, 214, 1737, 1000, 1742, 1740, 223, 1742, 229, 1747, 1745, 140, 1747, 106, 1757, 1755, 1393, 1403, 1467, 140, 1599, 1747, 1757, 1000, 1764, 1762, 1431, 1009, 1493, 1764, 1000, 1772, 1768, 1001, 1857, 1772, 195, 1445, 188, 1785, 1780, 1005, 7, 1005, 13, 1005, 9, 1785, 1764, 7, 1005, 9, 1792, 1789, 1764, 1883, 1792, 1005, 1792, 1805, 1799, 7, 1005, 13, 1005, 9, 1803, 7, 1005, 9, 1805, 1000, 1811, 1809, 13, 1003, 1811, 1000, 1817, 1814, 1764, 1817, 1005, 1883, 1857, 1823, 1012, 1005, 13, 1005, 1828, 1013, 1005, 13, 1785, 1835, 1014, 1005, 13, 1005, 13, 1811, 1839, 1015, 1811, 1805, 1844, 1016, 1005, 13, 1811, 1849, 1017, 1772, 13, 1811, 1854, 1018, 1772, 13, 1772, 1857, 1019, 1005, 1863, 1861, 1, 1005, 1863, 1000, 1883, 1872, 21, 1005, 13, 1895, 1001, 1342, 1706, 1876, 161, 237, 1005, 1879, 1002, 1817, 1883, 239, 205, 1003, 1890, 1888, 7, 1005, 9, 1890, 1000, 1895, 1893, 156, 1895, 1000, 1902, 1898, 243, 1900, 156, 1902, 1000, 1943, 1910, 1010, 1001, 1342, 1706, 1011, 1553, 1918, 161, 1001, 7, 1300, 1316, 1335, 9, 1921, 161, 1445, 1924, 245, 1008, 1926, 255, 1931, 262, 1300, 1316, 1335, 1933, 113, 1936, 270, 113, 1938, 278, 1940, 270, 1943, 284, 1457, 2149, 1949, 1010, 1902, 1011, 1686, 1967, 292, 1001, 1342, 1706, 156, 1300, 1316, 1335, 13, 1300, 1316, 1335, 13, 1300, 1316, 1335, 1006, 1970, 298, 1006, 1973, 1445, 183, 1985, 1398, 1010, 1501, 1528, 305, 1011, 1010, 1902, 1011, 1694, 1006, 1988, 11, 1007, 1992, 1403, 1588, 1006, 1995, 310, 1006, 2004, 1010, 1730, 1420, 1011, 1571, 1001, 1484, 1006, 2007, 314, 1007, 2011, 322, 1576, 1006, 2014, 328, 1006, 2019, 310, 334, 337, 1006, 2026, 1001, 7, 1309, 1003, 9, 183, 2032, 345, 1009, 1635, 1661, 1006, 2036, 1450, 284, 1006, 2040, 352, 1001, 1006, 2044, 361, 1403, 1624, 2050, 1737, 1742, 352, 1001, 1006, 2053, 365, 1006, 2057, 68, 86, 1006, 2061, 21, 1863, 1006, 2069, 371, 1005, 1644, 161, 1445, 1651, 1006, 2074, 310, 334, 377, 1006, 2079, 310, 334, 365, 1006, 2084, 382, 118, 389, 1006, 2090, 164, 1001, 1706, 1484, 1006, 2095, 391, 101, 1001, 1006, 2098, 399, 1006, 2103, 310, 334, 399, 1006, 2107, 404, 1003, 1006, 2111, 412, 1694, 1006, 2120, 106, 419, 1001, 7, 1757, 1747, 9, 1006, 2129, 106, 1010, 1588, 1011, 7, 1001, 9, 1006, 2136, 1010, 1420, 101, 1011, 1009, 1006, 2147, 106, 164, 1010, 1001, 1700, 1011, 7, 1001, 9, 1006, 2149, 1006, }; // 87 1303, 1, 1305, 3, 1307, 5, 1309, 1000, 1316, 1312, // 88 1, 1314, 3, 1316, 1000, 1335, 1321, 1001, 1342, 1706, // 89 1323, 1003, 1329, 7, 1300, 1316, 1335, 9, 1335, 11, // 90 1300, 1316, 1335, 11, 1342, 1340, 1361, 1316, 1335, 1342, // 91 1000, 1352, 1350, 7, 1300, 1316, 1335, 1352, 9, 1352, // 92 1000, 1361, 1359, 13, 1300, 1316, 1335, 1352, 1361, 1000, // 93 1388, 1364, 15, 1366, 1, 1368, 3, 1370, 18, 1372, // 94 11, 1374, 21, 1376, 23, 1378, 26, 1380, 28, 1382, // 95 30, 1384, 33, 1386, 36, 1388, 1000, 1393, 1391, 38, // 96 1393, 1000, 1398, 1396, 13, 1398, 1000, 1403, 1401, 40, // 97 1403, 43, 1420, 1406, 50, 1408, 58, 1411, 63, 50, // 98 1414, 68, 50, 1417, 74, 58, 1420, 79, 1883, 1426, // 99 1423, 86, 1426, 1403, 1426, 1431, 1429, 94, 1431, 97, // 100 1445, 1435, 1420, 1467, 1438, 1403, 1472, 1441, 1462, 101, // 101 1445, 106, 1462, 101, 1450, 1448, 1005, 1450, 1001, 1457, // 102 1453, 113, 1455, 118, 1457, 126, 1462, 1460, 133, 1462, // 103 136, 1467, 1465, 140, 1467, 1000, 1472, 1470, 101, 1472, // 104 1000, 1484, 1477, 101, 140, 101, 1480, 140, 101, 1482, // 105 101, 1484, 1000, 1493, 1491, 7, 1431, 1009, 1493, 9, // 106 1493, 1000, 1501, 1499, 1393, 1431, 1009, 1493, 1501, 1000, // 107 1520, 1513, 1010, 1300, 1316, 1335, 1669, 1300, 1316, 1335, // 108 1520, 1011, 1520, 7, 1010, 1501, 1528, 1011, 9, 1528, // 109 1526, 1669, 1300, 1316, 1335, 1528, 1000, 1539, 1533, 146, // 110 1501, 1539, 1537, 150, 1501, 1546, 1539, 1000, 1546, 1544, // 111 146, 1501, 1539, 1546, 1000, 1553, 1551, 150, 1501, 1546, // 112 1553, 1000, 1562, 1560, 1562, 1300, 1316, 1335, 1388, 1562, // 113 1000, 1571, 1565, 153, 1567, 156, 1569, 158, 1571, 161, // 114 1576, 1574, 164, 1576, 1000, 1581, 1579, 74, 1581, 169, // 115 1588, 1586, 13, 1714, 1581, 1588, 1000, 1599, 1592, 1472, // 116 1009, 1596, 1467, 140, 1599, 1599, 176, 1613, 1607, 1607, // 117 1009, 7, 1714, 1581, 9, 1607, 1613, 1611, 13, 1599, // 118 1613, 1000, 1618, 1618, 1009, 1635, 1618, 1624, 1622, 13, // 119 1613, 1624, 1000, 1635, 1629, 1001, 1723, 1006, 1635, 140, // 120 1001, 1635, 1890, 1004, 1644, 1644, 7, 1309, 1003, 183, // 121 1309, 1003, 9, 1651, 1649, 13, 1005, 1644, 1651, 1000, // 122 1661, 1659, 13, 1005, 1644, 161, 1445, 1651, 1661, 1000, // 123 1669, 1667, 13, 1009, 1635, 1661, 1669, 1000, 1686, 1672, // 124 156, 1674, 185, 1676, 188, 1678, 190, 1680, 192, 1682, // 125 195, 1684, 197, 1686, 161, 1694, 1689, 1006, 1694, 1398, // 126 1501, 1528, 1006, 1700, 1698, 200, 1902, 1700, 1000, 1706, // 127 1704, 205, 1001, 1706, 1000, 1714, 1712, 205, 1001, 1342, // 128 1706, 1714, 1000, 1723, 1723, 1300, 1316, 1335, 183, 1300, // 129 1316, 1335, 1730, 1728, 156, 1300, 1003, 1730, 1000, 1737, // 130 1733, 207, 1735, 214, 1737, 1000, 1742, 1740, 223, 1742, // 131 229, 1747, 1745, 140, 1747, 106, 1757, 1755, 1393, 1403, // 132 1467, 140, 1599, 1747, 1757, 1000, 1764, 1762, 1431, 1009, // 133 1493, 1764, 1000, 1772, 1768, 1001, 1857, 1772, 195, 1445, // 134 188, 1785, 1780, 1005, 7, 1005, 13, 1005, 9, 1785, // 135 1764, 7, 1005, 9, 1792, 1789, 1764, 1883, 1792, 1005, // 136 1792, 1805, 1799, 7, 1005, 13, 1005, 9, 1803, 7, // 137 1005, 9, 1805, 1000, 1811, 1809, 13, 1003, 1811, 1000, // 138 1817, 1814, 1764, 1817, 1005, 1883, 1857, 1823, 1012, 1005, // 139 13, 1005, 1828, 1013, 1005, 13, 1785, 1835, 1014, 1005, // 140 13, 1005, 13, 1811, 1839, 1015, 1811, 1805, 1844, 1016, // 141 1005, 13, 1811, 1849, 1017, 1772, 13, 1811, 1854, 1018, // 142 1772, 13, 1772, 1857, 1019, 1005, 1863, 1861, 1, 1005, // 143 1863, 1000, 1883, 1872, 21, 1005, 13, 1895, 1001, 1342, // 144 1706, 1876, 161, 237, 1005, 1879, 1002, 1817, 1883, 239, // 145 205, 1003, 1890, 1888, 7, 1005, 9, 1890, 1000, 1895, // 146 1893, 156, 1895, 1000, 1902, 1898, 243, 1900, 156, 1902, // 147 1000, 1943, 1910, 1010, 1001, 1342, 1706, 1011, 1553, 1918, // 148 161, 1001, 7, 1300, 1316, 1335, 9, 1921, 161, 1445, // 149 1924, 245, 1008, 1926, 255, 1931, 262, 1300, 1316, 1335, // 150 1933, 113, 1936, 270, 113, 1938, 278, 1940, 270, 1943, // 151 284, 1457, 2149, 1949, 1010, 1902, 1011, 1686, 1967, 292, // 152 1001, 1342, 1706, 156, 1300, 1316, 1335, 13, 1300, 1316, // 153 1335, 13, 1300, 1316, 1335, 1006, 1970, 298, 1006, 1973, // 154 1445, 183, 1985, 1398, 1010, 1501, 1528, 305, 1011, 1010, // 155 1902, 1011, 1694, 1006, 1988, 11, 1007, 1992, 1403, 1588, // 156 1006, 1995, 310, 1006, 2004, 1010, 1730, 1420, 1011, 1571, // 157 1001, 1484, 1006, 2007, 314, 1007, 2011, 322, 1576, 1006, // 158 2014, 328, 1006, 2019, 310, 334, 337, 1006, 2026, 1001, // 159 7, 1309, 1003, 9, 183, 2032, 345, 1009, 1635, 1661, // 160 1006, 2036, 1450, 284, 1006, 2040, 352, 1001, 1006, 2044, // 161 361, 1403, 1624, 2050, 1737, 1742, 352, 1001, 1006, 2053, // 162 365, 1006, 2057, 68, 86, 1006, 2061, 21, 1863, 1006, // 163 2069, 371, 1005, 1644, 161, 1445, 1651, 1006, 2074, 310, // 164 334, 377, 1006, 2079, 310, 334, 365, 1006, 2084, 382, // 165 118, 389, 1006, 2090, 164, 1001, 1706, 1484, 1006, 2095, // 166 391, 101, 1001, 1006, 2098, 399, 1006, 2103, 310, 334, // 167 399, 1006, 2107, 404, 1003, 1006, 2111, 412, 1694, 1006, // 168 2120, 106, 419, 1001, 7, 1757, 1747, 9, 1006, 2129, // 169 106, 1010, 1588, 1011, 7, 1001, 9, 1006, 2136, 1010, // 170 1420, 101, 1011, 1009, 1006, 2147, 106, 164, 1010, 1001, // 171 1700, 1011, 7, 1001, 9, 1006, 2149, 1006; // 172 SS= 1943 #line 172 "regression-compile-tmp/allimpc1-77.imp" SS = 1943; // 173 %OWNBYTEINTEGERARRAY OPC(0:120)=0, #line 173 "regression-compile-tmp/allimpc1-77.imp" static unsigned char OPC[121] = { 0, 8, 9, 16, 17, 18, 19, 32, 33, 34, 35, 48, 49, 50, 51, 36, 52, 0, 69, 70, 71, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 104, 105, 106, 107, 108, 109, 110, 111, 120, 121, 122, 123, 124, 125, 126, 127, 0, 112, 96, 80, 78, 79, 76, 75, 74, 73, 72, 68, 67, 66, 65, 64, 0, 144, 152, 134, 135, 0, 145, 146, 148, 149, 150, 151, 156, 158, 157, 159, 130, 132, 133, 0, 136, 137, 138, 139, 140, 141, 142, 143, 0, 208, 209, 210, 212, 213, 214, 215, 216, 220, 221, 222, 223, 211, 0, 241, 242, 243, 248, 249, 250, 251, 252, 253, 0, 10, 4, 128, }; // 174 8,9,X'10',X'11',X'12', // 175 X'13',X'20',X'21',X'22',X'23', // 176 X'30',X'31',X'32',X'33',X'24', // 177 X'34',0,X'45',X'46',X'47', // 178 X'54',X'55',X'56',X'57',X'58',X'59',X'5A',X'5B',X'5C', // 179 X'5D',X'5E',X'5F',X'68',X'69',X'6A', // 180 X'6B',X'6C',X'6D',X'6E',X'6F', // 181 X'78',X'79',X'7A',X'7B',X'7C', // 182 X'7D',X'7E',X'7F',0,X'70', // 183 X'60',X'50',X'4E',X'4F',X'4C', // 184 X'4B',X'4A',X'49',X'48',X'44', // 185 X'43',X'42',X'41',X'40',0, // 186 X'90',X'98',X'86',X'87',0, // 187 X'91',X'92',X'94',X'95',X'96', // 188 X'97',X'9C',X'9E',X'9D',X'9F', // 189 X'82',X'84',X'85',0,X'88', // 190 X'89',X'8A',X'8B',X'8C',X'8D', // 191 X'8E',X'8F',0,X'D0',X'D1', // 192 X'D2',X'D4',X'D5',X'D6',X'D7', // 193 X'D8',X'DC',X'DD',X'DE',X'DF', // 194 X'D3',0,X'F1',X'F2',X'F3', // 195 X'F8',X'F9',X'FA',X'FB',X'FC', // 196 X'FD',0,10,4,X'80'; // 197 %OWNINTEGERARRAY NEM(0:120)=M'CNOP', #line 197 "regression-compile-tmp/allimpc1-77.imp" static int NEM[121] = { 1129205584, 4805451, 5460811, 19536, 19534, 19540, 19523, 5001284, 5000772, 5002308, 4997956, 5001285, 5000773, 5002309, 4997957, 18500, 18501, 0, 4342092, 4342612, 16963, 78, 17228, 79, 88, 76, 67, 65, 83, 77, 68, 16716, 21324, 19524, 17220, 16708, 21316, 19780, 17476, 16727, 21335, 19525, 17221, 16709, 21317, 19781, 17477, 16725, 21333, 0, 5461061, 5461060, 21332, 4412996, 4412994, 19784, 21320, 16712, 17224, 19528, 17752, 18755, 5461059, 19521, 5461064, 0, 5461069, 19533, 4347976, 1113082949, 0, 21581, 5068361, 20041, 4410441, 20297, 22601, 5456982, 4736086, 5522518, 4410179, 20547, 5722692, 5391428, 0, 5460556, 5459020, 5460545, 5459009, 1397900364, 1397507148, 1397900353, 1397507137, 0, 5460816, 5068366, 5068355, 20035, 4410435, 20291, 22595, 5002064, 21586, 5526100, 17732, 1162104139, 5068378, 0, 5068367, 1346454347, 1431195723, 5914960, 17232, 16720, 21328, 19792, 17488, 0, 5461571, 5460045, 4801612, }; // 198 M'ISK',M'SSK',M'LP',M'LN',M'LT', // 199 M'LC',M'LPD',M'LND',M'LTD',M'LCD', // 200 M'LPE',M'LNE',M'LTE',M'LCE',M'HD', // 201 M'HE',0,M'BAL',M'BCT',M'BC', // 202 'N',M'CL','O','X','L','C','A','S','M','D', // 203 M'AL',M'SL',M'LD',M'CD',M'AD', // 204 M'SD',M'MD',M'DD',M'AW',M'SW', // 205 M'LE',M'CE',M'AE',M'SE',M'ME', // 206 M'DE',M'AU',M'SU',0,M'STE', // 207 M'STD',M'ST',M'CVD',M'CVB',M'MH', // 208 M'SH',M'AH',M'CH',M'LH',M'EX', // 209 M'IC',M'STC',M'LA',M'STH',0, // 210 M'STM',M'LM',M'BXH',M'BXLE',0, // 211 M'TM',M'MVI',M'NI',M'CLI',M'OI', // 212 M'XI',M'SDV',M'HDV',M'TDV',M'CKC', // 213 M'PC',M'WRD',M'RDD',0,M'SRL', // 214 M'SLL',M'SRA',M'SLA',M'SRDL',M'SLDL', // 215 M'SRDA',M'SLDA',0,M'SSP',M'MVN', // 216 M'MVC',M'NC',M'CLC',M'OC',M'XC', // 217 M'LSP',M'TR',M'TRT',M'ED',M'EDMK', // 218 M'MVZ',0,M'MVO',M'PACK',M'UNPK', // 219 M'ZAP',M'CP',M'AP',M'SP',M'MP', // 220 M'DP',0,M'SVC',M'SPM',M'IDL'; // 221 %OWNSHORTINTEGERARRAY CLODS(0:88)= %C #line 221 "regression-compile-tmp/allimpc1-77.imp" static short CLODS[89] = { 4, 20685, 28, 22733, 92, 4, 20731, 60, 17916, 76, 6, 22560, 8192, 1568, 35104, 24, 5634, 0, 8, 20656, 0, 19120, 16386, 16827, 7, 21693, 84, 4, 22557, 36, 37376, 4097, 11, 1296, 10278, 28269, 72, 27245, 40, 11046, 18352, 4116, 27181, 48, 4, 36867, 45056, 16827, 16, 5, 16640, 0, 22764, 186, 1534, 5, 36942, 45072, 39118, 53248, 1534, 7, 36942, 45072, 39119, 0, 39001, 61460, 1534, 5, 16640, 255, 35072, 24, 5648, 6, 16640, 4, 22973, 68, 18208, 49236, 6, 24576, 45120, 16640, 12, 20480, 45128, }; // 222 4,X'50CD',X'001C',X'58CD',X'5C', // 223 4,X'50FB',X'003C',X'45FC',X'4C', // 224 6,X'5820',X'2000',X'0620', // 225 X'8920',24,X'1602',0, // 226 8,X'50B0',0,X'4AB0',X'4002', // 227 X'41BB',X'7',X'54BD',84, // 228 4,X'581D',36,X'9200',X'1001', // 229 11,X'0510',X'2826',X'6E6D',X'48', // 230 X'6A6D',X'28',X'2B26',X'47B0', // 231 X'1014',X'6A2D',X'30', // 232 4, X'9003',X'B000',X'41BB',X'10', // 233 5, X'4100',0,X'58EC',186,X'5FE', // 234 5, X'904E',X'B010',X'98CE', // 235 X'D000',X'5FE', // 236 7, X'904E',X'B010',X'98CF',0, // 237 X'9859',X'F014',X'5FE', // 238 5,X'4100',255,X'8900',X'18',X'1610', // 239 6,X'4100',4,X'59BD',X'44', // 240 X'4720',X'C054', // 241 6,X'6000',X'B040',X'4100',12,X'5000',X'B048' // 242 %OWNBYTEINTEGERARRAY TSNAME (0:50)=0(8), #line 242 "regression-compile-tmp/allimpc1-77.imp" static unsigned char TSNAME[51] = { 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 26, 1, 1, 26, 0, 0, 2, 1, 26, 26, 26, 26, 26, 26, 26, 26, 3, 9, 17, 26, 26, 1, 0, 1, 26, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, }; // 243 1,0(5),1,26,1,1,26,0(2),2,1,26(8), // 244 3,9,17,26(2),1,0,1,26,0(2),5,0(8) // 245 NEWLINES(3); SPACES(30) #line 245 "regression-compile-tmp/allimpc1-77.imp" _imp_NEWLINES(3); #line 245 "regression-compile-tmp/allimpc1-77.imp" _imp_SPACES(30); // 246 print string("E.R.C.C. IMP(SYS1) COMPILER ") #line 246 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal("E.R.C.C. IMP(SYS1) COMPILER ")); // 247 print string(" RELEASE 5 ALL-IMP VERSION") #line 247 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" RELEASE 5 ALL-IMP VERSION")); // 248 print string(" DATED 1/5/70") #line 248 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" DATED 1/5/70")); // 249 NEWLINES(3) #line 249 "regression-compile-tmp/allimpc1-77.imp" _imp_NEWLINES(3); // 250 %OWNBYTEINTEGERARRAY BYTES(0:3)=4,1,2,8; #line 250 "regression-compile-tmp/allimpc1-77.imp" static unsigned char BYTES[4] = { 4, 1, 2, 8, }; // 251 %OWNBYTEINTEGERARRAY PRECEDENCE (1:12)=0,3,3,3,3,4,4,4,4,5,5,5; #line 251 "regression-compile-tmp/allimpc1-77.imp" static unsigned char PRECEDENCE[12] = { 0, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, }; // 252 %OWNBYTEINTEGERARRAY TYPEFLAG(1:6)=1,2, #line 252 "regression-compile-tmp/allimpc1-77.imp" static unsigned char TYPEFLAG[6] = { 1, 2, 9, 17, 26, 5, }; // 253 B'1001',B'10001',B'11010',5; // 254 %OWNINTEGER MASK1=X'0F0F0F0F' #line 254 "regression-compile-tmp/allimpc1-77.imp" static int MASK1 = 252645135; // 255 %OWNINTEGER MASK2=X'0F0F0F0F' #line 255 "regression-compile-tmp/allimpc1-77.imp" static int MASK2 = 252645135; // 256 %OWNSHORTINTEGER MAXLEVELS=11 #line 256 "regression-compile-tmp/allimpc1-77.imp" static short MAXLEVELS = 11; // 257 %OWNINTEGER CODER=12 #line 257 "regression-compile-tmp/allimpc1-77.imp" static int CODER = 12; // 258 %OWNINTEGER LINK =15 #line 258 "regression-compile-tmp/allimpc1-77.imp" static int LINK = 15; // 259 %OWNINTEGER WSPR =11 #line 259 "regression-compile-tmp/allimpc1-77.imp" static int WSPR = 11; // 260 %OWNINTEGER GLA =13 #line 260 "regression-compile-tmp/allimpc1-77.imp" static int GLA = 13; // 261 %SHORTINTEGER CCSIZE,ARSIZE,DSIZE,NROUTS #line 261 "regression-compile-tmp/allimpc1-77.imp" short CCSIZE; #line 261 "regression-compile-tmp/allimpc1-77.imp" short ARSIZE; #line 261 "regression-compile-tmp/allimpc1-77.imp" short DSIZE; #line 261 "regression-compile-tmp/allimpc1-77.imp" short NROUTS; // 262 %ROUTINESPEC SIZES #line 262 "regression-compile-tmp/allimpc1-77.imp" auto void SIZES( void ); // 263 %INTEGER ASL,NNAMES #line 263 "regression-compile-tmp/allimpc1-77.imp" int ASL; #line 263 "regression-compile-tmp/allimpc1-77.imp" int NNAMES; // 264 %INTEGER CABUF,PPCURR,QPREAL,OLDLINE #line 264 "regression-compile-tmp/allimpc1-77.imp" int CABUF; #line 264 "regression-compile-tmp/allimpc1-77.imp" int PPCURR; #line 264 "regression-compile-tmp/allimpc1-77.imp" int QPREAL; #line 264 "regression-compile-tmp/allimpc1-77.imp" int OLDLINE; // 265 %INTEGER LINE,LENGTH,LENGTHP,N0,NUM,SNUM #line 265 "regression-compile-tmp/allimpc1-77.imp" int LINE; #line 265 "regression-compile-tmp/allimpc1-77.imp" int LENGTH; #line 265 "regression-compile-tmp/allimpc1-77.imp" int LENGTHP; #line 265 "regression-compile-tmp/allimpc1-77.imp" int N0; #line 265 "regression-compile-tmp/allimpc1-77.imp" int NUM; #line 265 "regression-compile-tmp/allimpc1-77.imp" int SNUM; // 266 %INTEGER RLEVEL,NMAX,OWNLINK,CONSTPTR #line 266 "regression-compile-tmp/allimpc1-77.imp" int RLEVEL; #line 266 "regression-compile-tmp/allimpc1-77.imp" int NMAX; #line 266 "regression-compile-tmp/allimpc1-77.imp" int OWNLINK; #line 266 "regression-compile-tmp/allimpc1-77.imp" int CONSTPTR; // 267 %INTEGER PLABEL,LEVEL,CA,MARKER1,MARKER2,LABSET #line 267 "regression-compile-tmp/allimpc1-77.imp" int PLABEL; #line 267 "regression-compile-tmp/allimpc1-77.imp" int LEVEL; #line 267 "regression-compile-tmp/allimpc1-77.imp" int CA; #line 267 "regression-compile-tmp/allimpc1-77.imp" int MARKER1; #line 267 "regression-compile-tmp/allimpc1-77.imp" int MARKER2; #line 267 "regression-compile-tmp/allimpc1-77.imp" int LABSET; // 268 %INTEGER R13,RP13,SIGFIGS #line 268 "regression-compile-tmp/allimpc1-77.imp" int R13; #line 268 "regression-compile-tmp/allimpc1-77.imp" int RP13; #line 268 "regression-compile-tmp/allimpc1-77.imp" int SIGFIGS; // 269 %BYTEINTEGER AFLAG,FFLAG,CHECKS,SBFLAG #line 269 "regression-compile-tmp/allimpc1-77.imp" unsigned char AFLAG; #line 269 "regression-compile-tmp/allimpc1-77.imp" unsigned char FFLAG; #line 269 "regression-compile-tmp/allimpc1-77.imp" unsigned char CHECKS; #line 269 "regression-compile-tmp/allimpc1-77.imp" unsigned char SBFLAG; // 270 %BYTEINTEGER FAULTY,MONE,HIT,QU,PERM,MCSWITCH,LIST,ALLLONG #line 270 "regression-compile-tmp/allimpc1-77.imp" unsigned char FAULTY; #line 270 "regression-compile-tmp/allimpc1-77.imp" unsigned char MONE; #line 270 "regression-compile-tmp/allimpc1-77.imp" unsigned char HIT; #line 270 "regression-compile-tmp/allimpc1-77.imp" unsigned char QU; #line 270 "regression-compile-tmp/allimpc1-77.imp" unsigned char PERM; #line 270 "regression-compile-tmp/allimpc1-77.imp" unsigned char MCSWITCH; #line 270 "regression-compile-tmp/allimpc1-77.imp" unsigned char LIST; #line 270 "regression-compile-tmp/allimpc1-77.imp" unsigned char ALLLONG; // 271 %BYTEINTEGER LINENOS,DIAGS1,DIAGS2,CHECKSP #line 271 "regression-compile-tmp/allimpc1-77.imp" unsigned char LINENOS; #line 271 "regression-compile-tmp/allimpc1-77.imp" unsigned char DIAGS1; #line 271 "regression-compile-tmp/allimpc1-77.imp" unsigned char DIAGS2; #line 271 "regression-compile-tmp/allimpc1-77.imp" unsigned char CHECKSP; // 272 %BYTEINTEGER CTYPE,DCOMP,COMPILER,CPRMODE #line 272 "regression-compile-tmp/allimpc1-77.imp" unsigned char CTYPE; #line 272 "regression-compile-tmp/allimpc1-77.imp" unsigned char DCOMP; #line 272 "regression-compile-tmp/allimpc1-77.imp" unsigned char COMPILER; #line 272 "regression-compile-tmp/allimpc1-77.imp" unsigned char CPRMODE; // 273 %BYTEINTEGER UNASS,PRINTMAP #line 273 "regression-compile-tmp/allimpc1-77.imp" unsigned char UNASS; #line 273 "regression-compile-tmp/allimpc1-77.imp" unsigned char PRINTMAP; // 274 %LONGREAL CVALUE,IMAX #line 274 "regression-compile-tmp/allimpc1-77.imp" double CVALUE; #line 274 "regression-compile-tmp/allimpc1-77.imp" double IMAX; // 275 %INTEGER MASK,RBASE,SFLABEL #line 275 "regression-compile-tmp/allimpc1-77.imp" int MASK; #line 275 "regression-compile-tmp/allimpc1-77.imp" int RBASE; #line 275 "regression-compile-tmp/allimpc1-77.imp" int SFLABEL; // 276 %INTEGER NEXT,N,NR,ITEM,STRINST #line 276 "regression-compile-tmp/allimpc1-77.imp" int NEXT; #line 276 "regression-compile-tmp/allimpc1-77.imp" int N; #line 276 "regression-compile-tmp/allimpc1-77.imp" int NR; #line 276 "regression-compile-tmp/allimpc1-77.imp" int ITEM; #line 276 "regression-compile-tmp/allimpc1-77.imp" int STRINST; // 277 %INTEGER P,Q,R,S,T,U,V,NEST,FNAME #line 277 "regression-compile-tmp/allimpc1-77.imp" int P; #line 277 "regression-compile-tmp/allimpc1-77.imp" int Q; #line 277 "regression-compile-tmp/allimpc1-77.imp" int R; #line 277 "regression-compile-tmp/allimpc1-77.imp" int S; #line 277 "regression-compile-tmp/allimpc1-77.imp" int T; #line 277 "regression-compile-tmp/allimpc1-77.imp" int U; #line 277 "regression-compile-tmp/allimpc1-77.imp" int V; #line 277 "regression-compile-tmp/allimpc1-77.imp" int NEST; #line 277 "regression-compile-tmp/allimpc1-77.imp" int FNAME; // 278 %INTEGER XREFLINK,LDPTR #line 278 "regression-compile-tmp/allimpc1-77.imp" int XREFLINK; #line 278 "regression-compile-tmp/allimpc1-77.imp" int LDPTR; // 279 %SHORTINTEGER NEPS,EPLINK #line 279 "regression-compile-tmp/allimpc1-77.imp" short NEPS; #line 279 "regression-compile-tmp/allimpc1-77.imp" short EPLINK; // 280 %INTEGER SSTL,QMAX,STMTS #line 280 "regression-compile-tmp/allimpc1-77.imp" int SSTL; #line 280 "regression-compile-tmp/allimpc1-77.imp" int QMAX; #line 280 "regression-compile-tmp/allimpc1-77.imp" int STMTS; // 281 %INTEGERARRAY REGISTER(0:15) #line 281 "regression-compile-tmp/allimpc1-77.imp" int REGISTER[16]; // 282 %INTEGERARRAY ST(0:1300) #line 282 "regression-compile-tmp/allimpc1-77.imp" int ST[1301]; // 283 %INTEGER %ARRAY SET,CODEBASE,FREG,RAL(0:MAXLEVELS) #line 283 "regression-compile-tmp/allimpc1-77.imp" int SET[((MAXLEVELS) + ((short)(1)))]; #line 283 "regression-compile-tmp/allimpc1-77.imp" int CODEBASE[((MAXLEVELS) + ((short)(1)))]; #line 283 "regression-compile-tmp/allimpc1-77.imp" int FREG[((MAXLEVELS) + ((short)(1)))]; #line 283 "regression-compile-tmp/allimpc1-77.imp" int RAL[((MAXLEVELS) + ((short)(1)))]; // 284 %SHORTINTEGERARRAY CYCLE,JUMP,NAME,LABEL,FLAG,SBR,WSP,%C #line 284 "regression-compile-tmp/allimpc1-77.imp" short CYCLE[((MAXLEVELS) + ((short)(1)))]; #line 284 "regression-compile-tmp/allimpc1-77.imp" short JUMP[((MAXLEVELS) + ((short)(1)))]; #line 284 "regression-compile-tmp/allimpc1-77.imp" short NAME[((MAXLEVELS) + ((short)(1)))]; #line 284 "regression-compile-tmp/allimpc1-77.imp" short LABEL[((MAXLEVELS) + ((short)(1)))]; #line 284 "regression-compile-tmp/allimpc1-77.imp" short FLAG[((MAXLEVELS) + ((short)(1)))]; #line 284 "regression-compile-tmp/allimpc1-77.imp" short SBR[((MAXLEVELS) + ((short)(1)))]; #line 284 "regression-compile-tmp/allimpc1-77.imp" short WSP[((MAXLEVELS) + ((short)(1)))]; #line 284 "regression-compile-tmp/allimpc1-77.imp" short L[((MAXLEVELS) + ((short)(1)))]; #line 284 "regression-compile-tmp/allimpc1-77.imp" short M[((MAXLEVELS) + ((short)(1)))]; #line 284 "regression-compile-tmp/allimpc1-77.imp" short LWSP[((MAXLEVELS) + ((short)(1)))]; #line 284 "regression-compile-tmp/allimpc1-77.imp" short MDARR[((MAXLEVELS) + ((short)(1)))]; #line 284 "regression-compile-tmp/allimpc1-77.imp" short RNEXT[((MAXLEVELS) + ((short)(1)))]; #line 284 "regression-compile-tmp/allimpc1-77.imp" short NMDECS[((MAXLEVELS) + ((short)(1)))]; #line 284 "regression-compile-tmp/allimpc1-77.imp" short STRWSP[((MAXLEVELS) + ((short)(1)))]; // 285 L,M,LWSP,MDARR,RNEXT,NMDECS,STRWSP(0:MAXLEVELS) // 286 %SHORTINTEGERARRAY CODE(0:192) #line 286 "regression-compile-tmp/allimpc1-77.imp" short CODE[193]; // 287 %SHORTINTEGERARRAY PAGENOS(0:50) #line 287 "regression-compile-tmp/allimpc1-77.imp" short PAGENOS[51]; // 288 %INTEGERARRAY UVARREG(5:8) #line 288 "regression-compile-tmp/allimpc1-77.imp" int UVARREG[4]; // 289 SIZES #line 289 "regression-compile-tmp/allimpc1-77.imp" SIZES(); // 290 %BYTEINTEGERARRAY CC(0:CCSIZE),ASLIST(0:ASL),LETT(0:DSIZE+20) #line 290 "regression-compile-tmp/allimpc1-77.imp" unsigned char CC[((CCSIZE) + ((short)(1)))]; #line 290 "regression-compile-tmp/allimpc1-77.imp" unsigned char ASLIST[((ASL) + ((int)(1)))]; #line 290 "regression-compile-tmp/allimpc1-77.imp" unsigned char LETT[(((unsigned char)((((int)(DSIZE)) + (20)))) + (1))]; // 291 %SHORTINTEGERARRAY RA(0:NROUTS),A(-2:ARSIZE) #line 291 "regression-compile-tmp/allimpc1-77.imp" short RA[((NROUTS) + ((short)(1)))]; #line 291 "regression-compile-tmp/allimpc1-77.imp" short A[(((unsigned char)(((ARSIZE) + ((short)(2))))) + (1))]; // 292 %SHORTINTEGERARRAY WORD,TAGS(0:NNAMES) #line 292 "regression-compile-tmp/allimpc1-77.imp" short WORD[((NNAMES) + ((int)(1)))]; #line 292 "regression-compile-tmp/allimpc1-77.imp" short TAGS[((NNAMES) + ((int)(1)))]; // 293 {%SYSTEMINTEGERFNSPEC COM(%INTEGER N) // 294 {%SYSTEMROUTINESPEC SET COM(%INTEGER I,J) // 295 {%SYSTEMROUTINESPEC IOCP(%INTEGER A,B) // 296 %ROUTINESPEC CNOP(%INTEGER I,J) #line 296 "regression-compile-tmp/allimpc1-77.imp" auto void CNOP( int I, int J ); // 297 %ROUTINESPEC PCONST(%INTEGER X) #line 297 "regression-compile-tmp/allimpc1-77.imp" auto void PCONST( int X ); // 298 %ROUTINESPEC PSI(%INTEGER OPCODE,J,BASE,DISP) #line 298 "regression-compile-tmp/allimpc1-77.imp" auto void PSI( int OPCODE, int J, int BASE, int DISP ); // 299 %ROUTINESPEC PSS(%INTEGER OPCODE,N,BASE,DISP,P,Q) #line 299 "regression-compile-tmp/allimpc1-77.imp" auto void PSS( int OPCODE, int N, int BASE, int DISP, int P, int Q ); // 300 %ROUTINESPEC PRX(%INTEGER OPCODE,R1,R2,BASE,DISP) #line 300 "regression-compile-tmp/allimpc1-77.imp" auto void PRX( int OPCODE, int R1, int R2, int BASE, int DISP ); // 301 %ROUTINESPEC PACLOD(%INTEGER PTR,AT,VALUE) #line 301 "regression-compile-tmp/allimpc1-77.imp" auto void PACLOD( int PTR, int AT, int VALUE ); // 302 %ROUTINESPEC PCLOD(%INTEGER PTR) #line 302 "regression-compile-tmp/allimpc1-77.imp" auto void PCLOD( int PTR ); // 303 %ROUTINESPEC PLANT(%INTEGER VALUE) #line 303 "regression-compile-tmp/allimpc1-77.imp" auto void PLANT( int VALUE ); // 304 %ROUTINESPEC PRR (%INTEGER OPCODE,R1,R2) #line 304 "regression-compile-tmp/allimpc1-77.imp" auto void PRR( int OPCODE, int R1, int R2 ); // 305 %EXTERNALROUTINESPEC LPUT(%INTEGER A,B,C,D) #line 305 "regression-compile-tmp/allimpc1-77.imp" extern void LPUT( int A, int B, int C, int D ); // 306 %ROUTINESPEC PLUG(%INTEGER J,K) #line 306 "regression-compile-tmp/allimpc1-77.imp" auto void PLUG( int J, int K ); // 307 %ROUTINESPEC PRHEX(%INTEGER VALUE,PLACES) #line 307 "regression-compile-tmp/allimpc1-77.imp" auto void PRHEX( int VALUE, int PLACES ); // 308 %ROUTINESPEC INITIALISE #line 308 "regression-compile-tmp/allimpc1-77.imp" auto void INITIALISE( void ); // 309 %ROUTINESPEC PSYM(%INTEGER X) #line 309 "regression-compile-tmp/allimpc1-77.imp" auto void PSYM( int X ); // 310 %ROUTINESPEC COMPARE #line 310 "regression-compile-tmp/allimpc1-77.imp" auto void COMPARE( void ); // 311 %ROUTINESPEC PNAME #line 311 "regression-compile-tmp/allimpc1-77.imp" auto void PNAME( void ); // 312 %ROUTINESPEC CONST(%BYTEINTEGER MODE) #line 312 "regression-compile-tmp/allimpc1-77.imp" auto void CONST( unsigned char MODE ); // 313 %ROUTINESPEC CONSTLIST #line 313 "regression-compile-tmp/allimpc1-77.imp" auto void CONSTLIST( void ); // 314 %ROUTINESPEC TEXTTEXT #line 314 "regression-compile-tmp/allimpc1-77.imp" auto void TEXTTEXT( void ); // 315 %ROUTINESPEC FROMAR8(%INTEGER PTR,%LONGREALNAME VALUE) #line 315 "regression-compile-tmp/allimpc1-77.imp" auto void FROMAR8( int PTR, double /*name*/*VALUE ); // 316 %ROUTINESPEC FROMAR4(%INTEGER PTR,%INTEGERNAME VALUE) #line 316 "regression-compile-tmp/allimpc1-77.imp" auto void FROMAR4( int PTR, int /*name*/*VALUE ); // 317 %ROUTINESPEC TOAR8(%INTEGER PTR,%LONGREAL VALUE) #line 317 "regression-compile-tmp/allimpc1-77.imp" auto void TOAR8( int PTR, double VALUE ); // 318 %ROUTINESPEC TOAR4(%INTEGER PTR,VALUE) #line 318 "regression-compile-tmp/allimpc1-77.imp" auto void TOAR4( int PTR, int VALUE ); // 319 %ROUTINESPEC CSS(%INTEGER P) #line 319 "regression-compile-tmp/allimpc1-77.imp" auto void CSS( int P ); // 320 %ROUTINESPEC FAULT(%BYTEINTEGER N) #line 320 "regression-compile-tmp/allimpc1-77.imp" auto void FAULT( unsigned char N ); // 321 %ROUTINESPEC FINALISE #line 321 "regression-compile-tmp/allimpc1-77.imp" auto void FINALISE( void ); // 322 %ROUTINESPEC PRINT NAME (%INTEGER N) #line 322 "regression-compile-tmp/allimpc1-77.imp" auto void PRINTNAME( int N ); // 323 // 324 ! Using an alternative RECODE extracted from PSR's IMPI interpreter. // 325 %EXTERNALROUTINESPEC RECODE (%INTEGER START,FINISH,CA) #line 325 "regression-compile-tmp/allimpc1-77.imp" extern void RECODE( int START, int FINISH, int CA ); // 326 // 327 %ROUTINESPEC READ LINE(%BYTEINTEGER N) #line 327 "regression-compile-tmp/allimpc1-77.imp" auto void READLINE( unsigned char N ); // 328 %on %event 9 {,18} %start #line 328 "regression-compile-tmp/allimpc1-77.imp" if (!_imp_on_event(9)) goto L_0006; /* TO DO: Remove %on %event handler just before L_0006: if present for this block */ // 329 %if 0=0 {event_event = 9} {TEMP UNTIL RECORD FIELDS WORKING} %then ->INEND #line 329 "regression-compile-tmp/allimpc1-77.imp" if (((0) != (0))) goto L_0007; #line 329 "regression-compile-tmp/allimpc1-77.imp" goto U_1000; #line 329 "regression-compile-tmp/allimpc1-77.imp" L_0007:; // 330 ! %if event_event = 18 %then ->SUBSCHAR // 331 ! I need to find out which characters were being substituted! // 332 ! %signal %event event // 333 %finish #line 333 "regression-compile-tmp/allimpc1-77.imp" L_0006:; // 334 ! START OF COMPILATION // 335 INITIALISE #line 335 "regression-compile-tmp/allimpc1-77.imp" INITIALISE(); // 336 LPUT(0,1,1,ADDR(LETT(1))) #line 336 "regression-compile-tmp/allimpc1-77.imp" LPUT(0, 1, 1, _imp_ADDR(&LETT[1])); // 337 L8: READLINE(0); Q=1 #line 337 "regression-compile-tmp/allimpc1-77.imp" U_1001:; #line 337 "regression-compile-tmp/allimpc1-77.imp" READLINE(0); #line 337 "regression-compile-tmp/allimpc1-77.imp" Q = 1; // 338 L5: R=1; P=SS #line 338 "regression-compile-tmp/allimpc1-77.imp" U_1002:; #line 338 "regression-compile-tmp/allimpc1-77.imp" R = 1; #line 338 "regression-compile-tmp/allimpc1-77.imp" P = SS; // 339 OLDLINE=LINE; COMPARE #line 339 "regression-compile-tmp/allimpc1-77.imp" OLDLINE = LINE; #line 339 "regression-compile-tmp/allimpc1-77.imp" COMPARE(); // 340 FAULT(102) %IF R>ARSIZE #line 340 "regression-compile-tmp/allimpc1-77.imp" if (((R) <= (ARSIZE))) goto L_0008; #line 340 "regression-compile-tmp/allimpc1-77.imp" FAULT(102); #line 340 "regression-compile-tmp/allimpc1-77.imp" L_0008:; // 341 ->L6 %IF HIT=0 #line 341 "regression-compile-tmp/allimpc1-77.imp" if (((HIT) != (0))) goto L_0009; #line 341 "regression-compile-tmp/allimpc1-77.imp" goto U_1003; #line 341 "regression-compile-tmp/allimpc1-77.imp" L_0009:; // 342 STMTS=STMTS+1 #line 342 "regression-compile-tmp/allimpc1-77.imp" STMTS = (((int)(STMTS)) + (1)); // 343 CSS(1) #line 343 "regression-compile-tmp/allimpc1-77.imp" CSS(1); // 344 %IF DCOMP#0 %AND CA>CABUF %THEN %START #line 344 "regression-compile-tmp/allimpc1-77.imp" if (((DCOMP) == (0))) goto L_000a; #line 344 "regression-compile-tmp/allimpc1-77.imp" if (((CA) <= (CABUF))) goto L_000a; // 345 RECODE(ADDR(CODE(0)),ADDR(CODE(PPCURR)),CABUF) #line 345 "regression-compile-tmp/allimpc1-77.imp" RECODE(_imp_ADDR(&CODE[0]), _imp_ADDR(&CODE[PPCURR]), CABUF); // 346 NEWLINE #line 346 "regression-compile-tmp/allimpc1-77.imp" _imp_NEWLINE(); // 347 LPUT(1,CA-CABUF,CABUF,ADDR(CODE(0))) #line 347 "regression-compile-tmp/allimpc1-77.imp" LPUT(1, (((int)(CA)) - (CABUF)), CABUF, _imp_ADDR(&CODE[0])); // 348 PPCURR=0; CABUF=CA; %FINISH #line 348 "regression-compile-tmp/allimpc1-77.imp" PPCURR = 0; #line 348 "regression-compile-tmp/allimpc1-77.imp" CABUF = CA; #line 348 "regression-compile-tmp/allimpc1-77.imp" L_000a:; // 349 ->L7 %IF A(1)=13; ! END OF PROGRAM #line 349 "regression-compile-tmp/allimpc1-77.imp" if (((A[3]) != (13))) goto L_000b; #line 349 "regression-compile-tmp/allimpc1-77.imp" goto U_1004; #line 349 "regression-compile-tmp/allimpc1-77.imp" L_000b:; // 350 L9: ->L8 %IF Q>=LENGTH ;->L5 #line 350 "regression-compile-tmp/allimpc1-77.imp" U_1005:; #line 350 "regression-compile-tmp/allimpc1-77.imp" if (((Q) < (LENGTH))) goto L_000c; #line 350 "regression-compile-tmp/allimpc1-77.imp" goto U_1001; #line 350 "regression-compile-tmp/allimpc1-77.imp" L_000c:; #line 350 "regression-compile-tmp/allimpc1-77.imp" goto U_1002; // 351 L6: FAULT(100); ->L9 #line 351 "regression-compile-tmp/allimpc1-77.imp" U_1003:; #line 351 "regression-compile-tmp/allimpc1-77.imp" FAULT(100); #line 351 "regression-compile-tmp/allimpc1-77.imp" goto U_1005; // 352 L7: !DEAL WITH END OF PROGRAM #line 352 "regression-compile-tmp/allimpc1-77.imp" U_1004:; // 353 FINALISE #line 353 "regression-compile-tmp/allimpc1-77.imp" FINALISE(); // 354 SET COM(24,0) %IF COMPILER =0 %AND FAULTY=0 #line 354 "regression-compile-tmp/allimpc1-77.imp" if (((COMPILER) != (0))) goto L_000d; #line 354 "regression-compile-tmp/allimpc1-77.imp" if (((FAULTY) != (0))) goto L_000d; #line 354 "regression-compile-tmp/allimpc1-77.imp" SETCOM(24, 0); #line 354 "regression-compile-tmp/allimpc1-77.imp" L_000d:; // 355 %STOP #line 355 "regression-compile-tmp/allimpc1-77.imp" exit(0); // 356 INEND: FAULT(108) #line 356 "regression-compile-tmp/allimpc1-77.imp" U_1000:; #line 356 "regression-compile-tmp/allimpc1-77.imp" FAULT(108); // 357 SUBSCHAR:LINE=LINE+1;FAULT(48) #line 357 "regression-compile-tmp/allimpc1-77.imp" U_1006:; #line 357 "regression-compile-tmp/allimpc1-77.imp" LINE = (((int)(LINE)) + (1)); #line 357 "regression-compile-tmp/allimpc1-77.imp" FAULT(48); // 358 SPACES(5) #line 358 "regression-compile-tmp/allimpc1-77.imp" _imp_SPACES(5); // 359 L15: READSYMBOL(I); ->L8 %IF I=10 #line 359 "regression-compile-tmp/allimpc1-77.imp" U_1007:; #line 359 "regression-compile-tmp/allimpc1-77.imp" _imp_READSYMBOL(&I); #line 359 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (10))) goto L_000e; #line 359 "regression-compile-tmp/allimpc1-77.imp" goto U_1001; #line 359 "regression-compile-tmp/allimpc1-77.imp" L_000e:; // 360 PRINTSYMBOL(I); ->L15 #line 360 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSYMBOL(I); #line 360 "regression-compile-tmp/allimpc1-77.imp" goto U_1007; // 361 %ROUTINE FINALISE #line 361 "regression-compile-tmp/allimpc1-77.imp" void FINALISE( void ) #line 361 "regression-compile-tmp/allimpc1-77.imp" { // 362 N0=N0+1 %IF N0&1#1 #line 362 "regression-compile-tmp/allimpc1-77.imp" if (((((N0) & (1))) == (1))) goto L_000f; #line 362 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (1)); #line 362 "regression-compile-tmp/allimpc1-77.imp" L_000f:; // 363 CNOP(0,8);ST(0)=X'20000' #line 363 "regression-compile-tmp/allimpc1-77.imp" CNOP(0, 8); #line 363 "regression-compile-tmp/allimpc1-77.imp" ST[0] = 131072; // 364 ST(1)=X'10100000' #line 364 "regression-compile-tmp/allimpc1-77.imp" ST[1] = 269484032; // 365 ST(4)=-1; ST(6)=255 #line 365 "regression-compile-tmp/allimpc1-77.imp" ST[4] = (-1); #line 365 "regression-compile-tmp/allimpc1-77.imp" ST[6] = 255; // 366 ST(8)=OWNLINK #line 366 "regression-compile-tmp/allimpc1-77.imp" ST[8] = OWNLINK; // 367 ST(12)=X'41100000'; ! D'1' #line 367 "regression-compile-tmp/allimpc1-77.imp" ST[12] = 1091567616; // 368 ST(14)=X'41200000'; ! D'2' #line 368 "regression-compile-tmp/allimpc1-77.imp" ST[14] = 1092616192; // 369 ST(18)=X'4E000000'; ! FOR IN LINE FLOATING #line 369 "regression-compile-tmp/allimpc1-77.imp" ST[18] = 1308622848; // 370 ST(20)=-4; ST(21)=-8 #line 370 "regression-compile-tmp/allimpc1-77.imp" ST[20] = (-4); #line 370 "regression-compile-tmp/allimpc1-77.imp" ST[21] = (-8); // 371 ST(22)=XREFLINK; XREFLINK=88 #line 371 "regression-compile-tmp/allimpc1-77.imp" ST[22] = XREFLINK; #line 371 "regression-compile-tmp/allimpc1-77.imp" XREFLINK = 88; // 372 ST(26)=X'80000000'; ST(27)=X'06492350'; ST(28)=M'ERMA' #line 372 "regression-compile-tmp/allimpc1-77.imp" ST[26] = (-2147483648); #line 372 "regression-compile-tmp/allimpc1-77.imp" ST[27] = 105456464; #line 372 "regression-compile-tmp/allimpc1-77.imp" ST[28] = 1163021633; // 373 !! ^^^^^^^^^ ^^^^^^ WARNING! Big-endian issue? // 374 ST(29)=X'904EB010'; ! ROUTINE ENTRY SUBROUTINE #line 374 "regression-compile-tmp/allimpc1-77.imp" ST[29] = (-1873891312); // 375 ST(30)= X'5A10D01C' #line 375 "regression-compile-tmp/allimpc1-77.imp" ST[30] = 1511051292; // 376 ST(31)=X'07F10700' #line 376 "regression-compile-tmp/allimpc1-77.imp" ST[31] = 133236480; // 377 ST(32)=X'80808080' #line 377 "regression-compile-tmp/allimpc1-77.imp" ST[32] = (-2139062272); // 378 ST(33)=X'80808080' #line 378 "regression-compile-tmp/allimpc1-77.imp" ST[33] = (-2139062272); // 379 ST(38)=X'80000000'; ST(39)=X'06532349'; ST(40)=M'OCP ' #line 379 "regression-compile-tmp/allimpc1-77.imp" ST[38] = (-2147483648); #line 379 "regression-compile-tmp/allimpc1-77.imp" ST[39] = 106111817; #line 379 "regression-compile-tmp/allimpc1-77.imp" ST[40] = 1329811488; // 380 !! ^^^^^^^^^^^ ^^^^^^^ WARNING! More Big-endianness? // 381 K=CA #line 381 "regression-compile-tmp/allimpc1-77.imp" K = CA; // 382 LPUT(1,CA-CABUF,CABUF,ADDR(CODE(0))) %UNLESS CA=CABUF #line 382 "regression-compile-tmp/allimpc1-77.imp" if (((CA) == (CABUF))) goto L_0010; #line 382 "regression-compile-tmp/allimpc1-77.imp" LPUT(1, (((int)(CA)) - (CABUF)), CABUF, _imp_ADDR(&CODE[0])); #line 382 "regression-compile-tmp/allimpc1-77.imp" L_0010:; // 383 LPUT(2,N0<<2+4,0,ADDR(ST(0)));! GLA #line 383 "regression-compile-tmp/allimpc1-77.imp" LPUT(2, (((int)(((N0) << (2)))) + (4)), 0, _imp_ADDR(&ST[0])); // 384 FAULT(99) %IF N0>1023 #line 384 "regression-compile-tmp/allimpc1-77.imp" if (((N0) <= (1023))) goto L_0011; #line 384 "regression-compile-tmp/allimpc1-77.imp" FAULT(99); #line 384 "regression-compile-tmp/allimpc1-77.imp" L_0011:; // 385 I=X'E2E2E2E2' #line 385 "regression-compile-tmp/allimpc1-77.imp" I = (-488447262); // 386 LPUT(4,4,SSTL,ADDR(I)) #line 386 "regression-compile-tmp/allimpc1-77.imp" LPUT(4, 4, SSTL, _imp_ADDR(&I)); // 387 %IF CONSTPTR&1#0 %THEN PSYM(0) #line 387 "regression-compile-tmp/allimpc1-77.imp" if (((((CONSTPTR) & (1))) == (0))) goto L_0012; #line 387 "regression-compile-tmp/allimpc1-77.imp" PSYM(0); #line 387 "regression-compile-tmp/allimpc1-77.imp" L_0012:; // 388 ->L129 %IF FAULTY #0 #line 388 "regression-compile-tmp/allimpc1-77.imp" if (((FAULTY) == (0))) goto L_0013; #line 388 "regression-compile-tmp/allimpc1-77.imp" goto U_1008; #line 388 "regression-compile-tmp/allimpc1-77.imp" L_0013:; // 389 NEWLINE; WRITE(STMTS,4) #line 389 "regression-compile-tmp/allimpc1-77.imp" _imp_NEWLINE(); #line 389 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(STMTS, 4); // 390 print string(" STATEMENTS COMPILED SUCCESSFULLY") #line 390 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" STATEMENTS COMPILED SUCCESSFULLY")); // 391 L120: print string(" #line 391 "regression-compile-tmp/allimpc1-77.imp" U_1009:; #line 391 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal("\nCODE OCCUPIES")); // 392 CODE OCCUPIES") // 393 WRITE(K,3);print string(" BYTES GLAP") #line 393 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(K, 3); #line 393 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" BYTES GLAP")); // 394 WRITE(N0<<2,3); print string(" +") #line 394 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(((N0) << (2)), 3); #line 394 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" +")); // 395 WRITE(CONSTPTR<<2,1); print string(" BYTES DIAG TABLES") #line 395 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(((CONSTPTR) << (2)), 1); #line 395 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" BYTES DIAG TABLES")); // 396 WRITE(SSTL+4,4); print string(" BYTES TOTAL") #line 396 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE((((int)(SSTL)) + (4)), 4); #line 396 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" BYTES TOTAL")); // 397 ST(0)=CA; ST(1)=N0<<2+4 #line 397 "regression-compile-tmp/allimpc1-77.imp" ST[0] = CA; #line 397 "regression-compile-tmp/allimpc1-77.imp" ST[1] = (((int)(((N0) << (2)))) + (4)); // 398 ST(2)=(LDPTR<<2+7)&(-8); ST(3)=(SSTL+11)&(-8) #line 398 "regression-compile-tmp/allimpc1-77.imp" ST[2] = (((((int)(((LDPTR) << (2)))) + (7))) & ((-8))); #line 398 "regression-compile-tmp/allimpc1-77.imp" ST[3] = (((((int)(SSTL)) + (11))) & ((-8))); // 399 ST(4)=CONSTPTR<<2 #line 399 "regression-compile-tmp/allimpc1-77.imp" ST[4] = ((CONSTPTR) << (2)); // 400 ST(5)=CA+ST(1)+ST(2)+ST(3)+ST(4) #line 400 "regression-compile-tmp/allimpc1-77.imp" ST[5] = (((int)((((int)((((int)((((int)(CA)) + (ST[1])))) + (ST[2])))) + (ST[3])))) + (ST[4])); // 401 WRITE(ST(5),5); print string(" BYTES") #line 401 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(ST[5], 5); #line 401 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" BYTES")); // 402 NEWLINE #line 402 "regression-compile-tmp/allimpc1-77.imp" _imp_NEWLINE(); // 403 NEWLINE #line 403 "regression-compile-tmp/allimpc1-77.imp" _imp_NEWLINE(); // 404 LPUT(7,24,0,ADDR(ST(0))) #line 404 "regression-compile-tmp/allimpc1-77.imp" LPUT(7, 24, 0, _imp_ADDR(&ST[0])); // 405 %RETURN #line 405 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; // 406 L129: print string(" #line 406 "regression-compile-tmp/allimpc1-77.imp" U_1008:; #line 406 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal("\nPROGRAM CONTAINS")); // 407 PROGRAM CONTAINS"); WRITE(FAULTY,2); print string(" FAULTS"); ->L120 #line 407 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(FAULTY, 2); #line 407 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" FAULTS")); #line 407 "regression-compile-tmp/allimpc1-77.imp" goto U_1009; // 408 %END #line 408 "regression-compile-tmp/allimpc1-77.imp" return; } // End of block FINALISE at level 2 // 409 %ROUTINE READ LINE(%BYTEINTEGER N) #line 409 "regression-compile-tmp/allimpc1-77.imp" void READLINE( unsigned char N ) #line 409 "regression-compile-tmp/allimpc1-77.imp" { // 410 !%SHORTROUTINE // 411 %INTEGER DEL #line 411 "regression-compile-tmp/allimpc1-77.imp" int DEL; // 412 %BYTEINTEGER NP #line 412 "regression-compile-tmp/allimpc1-77.imp" unsigned char NP; // 413 %COMMENT ABOUT 30% CPU TIME OF COMPILATION IS SPENT IN THIS // 414 %COMMENT ROUTINE AS WRITTEN. A HAND CODED VERSION USING I // 415 %COMMENT ISO CARD NOT READ SYMBOL IS USED IN PRODUCTION VRSN // 416 Q=1; LINE=LINE+1 #line 416 "regression-compile-tmp/allimpc1-77.imp" Q = 1; #line 416 "regression-compile-tmp/allimpc1-77.imp" LINE = (((int)(LINE)) + (1)); // 417 LENGTH=0; DEL=0 #line 417 "regression-compile-tmp/allimpc1-77.imp" LENGTH = 0; #line 417 "regression-compile-tmp/allimpc1-77.imp" DEL = 0; // 418 L1: ->START %UNLESS N=0 %AND NEXT SYMBOL=10;! IGNORE EMPTY LINES #line 418 "regression-compile-tmp/allimpc1-77.imp" U_100a:; #line 418 "regression-compile-tmp/allimpc1-77.imp" if (((N) != (0))) goto L_0014; #line 418 "regression-compile-tmp/allimpc1-77.imp" if (((_imp_NEXTSYMBOL()) == (10))) goto L_0015; #line 418 "regression-compile-tmp/allimpc1-77.imp" L_0014:; #line 418 "regression-compile-tmp/allimpc1-77.imp" goto U_100b; #line 418 "regression-compile-tmp/allimpc1-77.imp" L_0015:; // 419 SKIP SYMBOL; ->L1; ! IN PROGRAM MODE ONLY #line 419 "regression-compile-tmp/allimpc1-77.imp" _imp_SKIPSYMBOL(); #line 419 "regression-compile-tmp/allimpc1-77.imp" goto U_100a; // 420 START: ->L2 %IF LIST=0 #line 420 "regression-compile-tmp/allimpc1-77.imp" U_100b:; #line 420 "regression-compile-tmp/allimpc1-77.imp" if (((LIST) != (0))) goto L_0016; #line 420 "regression-compile-tmp/allimpc1-77.imp" goto U_100c; #line 420 "regression-compile-tmp/allimpc1-77.imp" L_0016:; // 421 WRITE(LINE,5) #line 421 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(LINE, 5); // 422 PRINT SYMBOL('''') %IF N#0 #line 422 "regression-compile-tmp/allimpc1-77.imp" if (((N) == (0))) goto L_0017; #line 422 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSYMBOL(39); #line 422 "regression-compile-tmp/allimpc1-77.imp" L_0017:; // 423 SPACES(4*LEVEL-N) #line 423 "regression-compile-tmp/allimpc1-77.imp" _imp_SPACES((((unsigned char)((((int)(4)) * (LEVEL)))) - (N))); // 424 L2: READ SYMBOL(I) #line 424 "regression-compile-tmp/allimpc1-77.imp" U_100c:; #line 424 "regression-compile-tmp/allimpc1-77.imp" _imp_READSYMBOL(&I); // 425 PRINT SYMBOL(I) %UNLESS LIST=0 #line 425 "regression-compile-tmp/allimpc1-77.imp" if (((LIST) == (0))) goto L_0018; #line 425 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSYMBOL(I); #line 425 "regression-compile-tmp/allimpc1-77.imp" L_0018:; // 426 ->L4 %UNLESS N=0 #line 426 "regression-compile-tmp/allimpc1-77.imp" if (((N) == (0))) goto L_0019; #line 426 "regression-compile-tmp/allimpc1-77.imp" goto U_100d; #line 426 "regression-compile-tmp/allimpc1-77.imp" L_0019:; // 427 ->L3 %UNLESS I='%' #line 427 "regression-compile-tmp/allimpc1-77.imp" if (((I) == (37))) goto L_001a; #line 427 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; #line 427 "regression-compile-tmp/allimpc1-77.imp" L_001a:; // 428 DEL=128; ->L2 #line 428 "regression-compile-tmp/allimpc1-77.imp" DEL = 128; #line 428 "regression-compile-tmp/allimpc1-77.imp" goto U_100c; // 429 L3: DEL=0 %UNLESS 'A'<=I<='Z' #line 429 "regression-compile-tmp/allimpc1-77.imp" U_100e:; #line 429 "regression-compile-tmp/allimpc1-77.imp" if ((((65) > (I))) || (((I) <= (90)))) goto L_001c; #line 429 "regression-compile-tmp/allimpc1-77.imp" L_001b:; #line 429 "regression-compile-tmp/allimpc1-77.imp" DEL = 0; #line 429 "regression-compile-tmp/allimpc1-77.imp" L_001c:; // 430 ->L2 %IF I=' ' #line 430 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (32))) goto L_001d; #line 430 "regression-compile-tmp/allimpc1-77.imp" goto U_100c; #line 430 "regression-compile-tmp/allimpc1-77.imp" L_001d:; // 431 L4: LENGTH=LENGTH+1 #line 431 "regression-compile-tmp/allimpc1-77.imp" U_100d:; #line 431 "regression-compile-tmp/allimpc1-77.imp" LENGTH = (((int)(LENGTH)) + (1)); // 432 CC(LENGTH)=I!DEL #line 432 "regression-compile-tmp/allimpc1-77.imp" CC[LENGTH] = ((I) | (DEL)); // 433 %IF I='''' %THEN N=1-N #line 433 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (39))) goto L_001e; #line 433 "regression-compile-tmp/allimpc1-77.imp" N = ((1) - ((int)(N))); #line 433 "regression-compile-tmp/allimpc1-77.imp" L_001e:; // 434 ->L2 %UNLESS I=10 #line 434 "regression-compile-tmp/allimpc1-77.imp" if (((I) == (10))) goto L_001f; #line 434 "regression-compile-tmp/allimpc1-77.imp" goto U_100c; #line 434 "regression-compile-tmp/allimpc1-77.imp" L_001f:; // 435 %RETURN %UNLESS CC(LENGTH-1)= 'C'+128 #line 435 "regression-compile-tmp/allimpc1-77.imp" if (((CC[(((int)(LENGTH)) - (1))]) == (195))) goto L_0020; #line 435 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 435 "regression-compile-tmp/allimpc1-77.imp" L_0020:; // 436 LENGTH=LENGTH-1 #line 436 "regression-compile-tmp/allimpc1-77.imp" LENGTH = (((int)(LENGTH)) - (1)); // 437 ->L2 %IF LIST=0 #line 437 "regression-compile-tmp/allimpc1-77.imp" if (((LIST) != (0))) goto L_0021; #line 437 "regression-compile-tmp/allimpc1-77.imp" goto U_100c; #line 437 "regression-compile-tmp/allimpc1-77.imp" L_0021:; // 438 SPACES(5); PRINTSYMBOL('C'); SPACES(4*LEVEL); ->L2 #line 438 "regression-compile-tmp/allimpc1-77.imp" _imp_SPACES(5); #line 438 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSYMBOL(67); #line 438 "regression-compile-tmp/allimpc1-77.imp" _imp_SPACES((((int)(4)) * (LEVEL))); #line 438 "regression-compile-tmp/allimpc1-77.imp" goto U_100c; // 439 %END #line 439 "regression-compile-tmp/allimpc1-77.imp" return; } // End of block READLINE at level 2 // 440 %ROUTINE FAULT(%BYTEINTEGER N) #line 440 "regression-compile-tmp/allimpc1-77.imp" void FAULT( unsigned char N ) #line 440 "regression-compile-tmp/allimpc1-77.imp" { // 441 !%SHORTROUTINE // 442 %INTEGER I,J,QP #line 442 "regression-compile-tmp/allimpc1-77.imp" int I; #line 442 "regression-compile-tmp/allimpc1-77.imp" int J; #line 442 "regression-compile-tmp/allimpc1-77.imp" int QP; // 443 print string(" #line 443 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal("\n*")); // 444 *"); WRITE(LINE,4); I=3; I=3*LEVEL %IF LIST=0 ; SPACES(I) #line 444 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(LINE, 4); #line 444 "regression-compile-tmp/allimpc1-77.imp" I = 3; #line 444 "regression-compile-tmp/allimpc1-77.imp" if (((LIST) != (0))) goto L_0022; #line 444 "regression-compile-tmp/allimpc1-77.imp" I = (((int)(3)) * (LEVEL)); #line 444 "regression-compile-tmp/allimpc1-77.imp" L_0022:; #line 444 "regression-compile-tmp/allimpc1-77.imp" _imp_SPACES(I); // 445 FAULTY=FAULTY+1 #line 445 "regression-compile-tmp/allimpc1-77.imp" FAULTY = (((int)(FAULTY)) + (1)); // 446 ->L9 %IF N=100; print string("FAULT"); WRITE(N,2) #line 446 "regression-compile-tmp/allimpc1-77.imp" if (((N) != (100))) goto L_0023; #line 446 "regression-compile-tmp/allimpc1-77.imp" goto U_100b; #line 446 "regression-compile-tmp/allimpc1-77.imp" L_0023:; #line 446 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal("FAULT")); #line 446 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(N, 2); // 447 ->L2 %IF N<100; print string(" DISASTER ") #line 447 "regression-compile-tmp/allimpc1-77.imp" if (((N) >= (100))) goto L_0024; #line 447 "regression-compile-tmp/allimpc1-77.imp" goto U_100c; #line 447 "regression-compile-tmp/allimpc1-77.imp" L_0024:; #line 447 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" DISASTER ")); // 448 %MONITOR ; %STOP #line 448 "regression-compile-tmp/allimpc1-77.imp" _imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__); #line 448 "regression-compile-tmp/allimpc1-77.imp" exit(0); // 449 L2: PRINTNAME(FNAME) %UNLESS 7#N#16; ->L99 #line 449 "regression-compile-tmp/allimpc1-77.imp" U_100c:; #line 449 "regression-compile-tmp/allimpc1-77.imp" if ((((7) == (N))) || (((N) != (16)))) goto L_0026; #line 449 "regression-compile-tmp/allimpc1-77.imp" L_0025:; #line 449 "regression-compile-tmp/allimpc1-77.imp" PRINTNAME(FNAME); #line 449 "regression-compile-tmp/allimpc1-77.imp" L_0026:; #line 449 "regression-compile-tmp/allimpc1-77.imp" goto U_100d; // 450 L9: print string(" SYNTAX ") #line 450 "regression-compile-tmp/allimpc1-77.imp" U_100b:; #line 450 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" SYNTAX ")); // 451 ->L11 %IF LINE#OLDLINE #line 451 "regression-compile-tmp/allimpc1-77.imp" if (((LINE) == (OLDLINE))) goto L_0027; #line 451 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; #line 451 "regression-compile-tmp/allimpc1-77.imp" L_0027:; // 452 QP=Q #line 452 "regression-compile-tmp/allimpc1-77.imp" QP = Q; // 453 %CYCLE Q=Q,1,LENGTH-1 #line 453 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = Q; _increment = 1; _final = (((int)(LENGTH)) - (1)); Q = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle Q = Q, 1, (((int)(LENGTH)) - (1))"); Q -= _increment; _control -= _increment; L_0028:; if (Q == _final) goto L_0029; Q += _increment; _control += _increment; if (Q != _control) _imp_signal(4,2,0,"Corrupt control variable Q"); /* FOR loop control variable corrupted */ } // 454 %IF CC(Q)&128 # 0 %THEN PRINTSYMBOL(CC(Q)&127-'A'+'a') %ELSE PRINTSYMBOL(CC(Q)) #line 454 "regression-compile-tmp/allimpc1-77.imp" if (((((CC[Q]) & (128))) == (0))) goto L_002b; #line 454 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSYMBOL((((int)((((int)(((CC[Q]) & (127)))) - (65)))) + (97))); #line 454 "regression-compile-tmp/allimpc1-77.imp" goto L_002c; #line 454 "regression-compile-tmp/allimpc1-77.imp" L_002b:; #line 454 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSYMBOL(CC[Q]); #line 454 "regression-compile-tmp/allimpc1-77.imp" L_002c:; // 455 ->L10 %IF CC(Q)=';' #line 455 "regression-compile-tmp/allimpc1-77.imp" if (((CC[Q]) != (59))) goto L_002d; #line 455 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; #line 455 "regression-compile-tmp/allimpc1-77.imp" L_002d:; // 456 %REPEAT #line 456 "regression-compile-tmp/allimpc1-77.imp" goto L_0028; #line 456 "regression-compile-tmp/allimpc1-77.imp" L_0029:; // 457 L10: Q =Q+1 #line 457 "regression-compile-tmp/allimpc1-77.imp" U_100f:; #line 457 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); // 458 ->L99 %IF I+20+Q-QP>120 #line 458 "regression-compile-tmp/allimpc1-77.imp" if ((((((int)((((int)((((int)(I)) + (20)))) + (Q)))) - (QP))) <= (120))) goto L_002e; #line 458 "regression-compile-tmp/allimpc1-77.imp" goto U_100d; #line 458 "regression-compile-tmp/allimpc1-77.imp" L_002e:; // 459 NEWLINE; SPACES(I+QMAX-QP+17) #line 459 "regression-compile-tmp/allimpc1-77.imp" _imp_NEWLINE(); #line 459 "regression-compile-tmp/allimpc1-77.imp" _imp_SPACES((((int)((((int)((((int)(I)) + (QMAX)))) - (QP)))) + (17))); // 460 PRINTSYMBOL('!') #line 460 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSYMBOL(33); // 461 NEWLINE #line 461 "regression-compile-tmp/allimpc1-77.imp" _imp_NEWLINE(); // 462 ->L99 #line 462 "regression-compile-tmp/allimpc1-77.imp" goto U_100d; // 463 L11: print string(" #line 463 "regression-compile-tmp/allimpc1-77.imp" U_100e:; #line 463 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal("\n TEXT MODE FAILURE ")); // 464 TEXT MODE FAILURE "); WRITE(LINE-OLDLINE,1) #line 464 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE((((int)(LINE)) - (OLDLINE)), 1); // 465 print string(" LINES LOST ") #line 465 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" LINES LOST ")); // 466 NEWLINE; Q=QMAX #line 466 "regression-compile-tmp/allimpc1-77.imp" _imp_NEWLINE(); #line 466 "regression-compile-tmp/allimpc1-77.imp" Q = QMAX; // 467 L99: NEWLINE; %END #line 467 "regression-compile-tmp/allimpc1-77.imp" U_100d:; #line 467 "regression-compile-tmp/allimpc1-77.imp" _imp_NEWLINE(); #line 467 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block FAULT at level 2 // 468 %ROUTINE COMPARE #line 468 "regression-compile-tmp/allimpc1-77.imp" void COMPARE( void ) #line 468 "regression-compile-tmp/allimpc1-77.imp" { // 469 !%SHORTROUTINE // 470 %INTEGER RA,RP,RQ,RR,RS,MARKER #line 470 "regression-compile-tmp/allimpc1-77.imp" int RA; #line 470 "regression-compile-tmp/allimpc1-77.imp" int RP; #line 470 "regression-compile-tmp/allimpc1-77.imp" int RQ; #line 470 "regression-compile-tmp/allimpc1-77.imp" int RR; #line 470 "regression-compile-tmp/allimpc1-77.imp" int RS; #line 470 "regression-compile-tmp/allimpc1-77.imp" int MARKER; // 471 %SWITCH BIP(1000:1019) #line 471 "regression-compile-tmp/allimpc1-77.imp" static int sw1_BIP_idx; static const void * /*SWITCH*/ sw1_BIP[20] = { &&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, }; // 472 RP=SYMBOL(P) #line 472 "regression-compile-tmp/allimpc1-77.imp" RP = (SYMBOL-1300)[P]; // 473 RQ=Q; RR=R; ! RESET VALUES OF LINE&AR PTRS #line 473 "regression-compile-tmp/allimpc1-77.imp" RQ = Q; #line 473 "regression-compile-tmp/allimpc1-77.imp" RR = R; // 474 A(R)=1; ! FIRST ALTERNATIVE TO BE TRIED #line 474 "regression-compile-tmp/allimpc1-77.imp" A[((R) + ((int)(2)))] = 1; // 475 P=P+1; RA=SYMBOL(P); RS=P; ! RA TO NEXT PHRASE ALTERNATIVE #line 475 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 475 "regression-compile-tmp/allimpc1-77.imp" RA = (SYMBOL-1300)[P]; #line 475 "regression-compile-tmp/allimpc1-77.imp" RS = P; // 476 %COMMENT ROUTINE REALLY STARTS HERE // 477 L1: R=R+1 #line 477 "regression-compile-tmp/allimpc1-77.imp" U_100e:; #line 477 "regression-compile-tmp/allimpc1-77.imp" R = (((int)(R)) + (1)); // 478 BIP(1000):L2: ! SUCCESS ON TO NEXT ITEM #line 478 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1000:; #line 478 "regression-compile-tmp/allimpc1-77.imp" U_100f:; // 479 RS=RS+1; ->L8 %IF RS=RA; ! RS=NEXT ALTERNATIVE MEANS THAT #line 479 "regression-compile-tmp/allimpc1-77.imp" RS = (((int)(RS)) + (1)); #line 479 "regression-compile-tmp/allimpc1-77.imp" if (((RS) != (RA))) goto L_002f; #line 479 "regression-compile-tmp/allimpc1-77.imp" goto U_1010; #line 479 "regression-compile-tmp/allimpc1-77.imp" L_002f:; // 480 ! THIS ALT HAS BEEN COMPLETED SO // 481 ! EXIT WITH HIT=1 // 482 ITEM=SYMBOL(RS); ! NEXT BRICK IN THE CURRENT ALT #line 482 "regression-compile-tmp/allimpc1-77.imp" ITEM = (SYMBOL-1300)[RS]; // 483 ->L4 %IF ITEM>=1300; ! BRICK IS A PHRASE TYPE #line 483 "regression-compile-tmp/allimpc1-77.imp" if (((ITEM) < (1300))) goto L_0030; #line 483 "regression-compile-tmp/allimpc1-77.imp" goto U_1011; #line 483 "regression-compile-tmp/allimpc1-77.imp" L_0030:; // 484 ->L6 %IF ITEM>=1000; ! BRICK IS BUILT IN PHRASE #line 484 "regression-compile-tmp/allimpc1-77.imp" if (((ITEM) < (1000))) goto L_0031; #line 484 "regression-compile-tmp/allimpc1-77.imp" goto U_1012; #line 484 "regression-compile-tmp/allimpc1-77.imp" L_0031:; // 485 %CYCLE J=1,1,CLETT(ITEM); ! BRICK IS LITERAL #line 485 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = (CLETT-1)[ITEM]; J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, (CLETT-1)[ITEM]"); J -= _increment; _control -= _increment; L_0032:; if (J == _final) goto L_0033; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 486 ->L3 %UNLESS CC(Q)=CLETT(J+ITEM) #line 486 "regression-compile-tmp/allimpc1-77.imp" if (((CC[Q]) == ((CLETT-1)[(((int)(J)) + (ITEM))]))) goto L_0035; #line 486 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; #line 486 "regression-compile-tmp/allimpc1-77.imp" L_0035:; // 487 Q=Q+1; %REPEAT; !CHECK IT WITH LITERAL DICT ENTRY #line 487 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 487 "regression-compile-tmp/allimpc1-77.imp" goto L_0032; #line 487 "regression-compile-tmp/allimpc1-77.imp" L_0033:; // 488 ->L2; ! MATCHED SUCCESSFULLY #line 488 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; // 489 L4: ! PHRASE TYPE ALTERNATE #line 489 "regression-compile-tmp/allimpc1-77.imp" U_1011:; // 490 P=ITEM; COMPARE; ! RCALL COMPARE TO RECOGNISE IT #line 490 "regression-compile-tmp/allimpc1-77.imp" P = ITEM; #line 490 "regression-compile-tmp/allimpc1-77.imp" COMPARE(); // 491 ->L2 %IF HIT#0; ! FOUND #line 491 "regression-compile-tmp/allimpc1-77.imp" if (((HIT) == (0))) goto L_0036; #line 491 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; #line 491 "regression-compile-tmp/allimpc1-77.imp" L_0036:; // 492 L3: QMAX=Q %IF Q>QMAX; ! FAILURE - NOTE POSITION REACHD #line 492 "regression-compile-tmp/allimpc1-77.imp" U_1013:; #line 492 "regression-compile-tmp/allimpc1-77.imp" if (((Q) <= (QMAX))) goto L_0037; #line 492 "regression-compile-tmp/allimpc1-77.imp" QMAX = Q; #line 492 "regression-compile-tmp/allimpc1-77.imp" L_0037:; // 493 Q=RQ; R=RR; ! RESET LINE AND A.R. POINTERS #line 493 "regression-compile-tmp/allimpc1-77.imp" Q = RQ; #line 493 "regression-compile-tmp/allimpc1-77.imp" R = RR; // 494 ->L7 %IF RA=RP; !TOTAL FAILURE NO ALT LEFT TO TRY #line 494 "regression-compile-tmp/allimpc1-77.imp" if (((RA) != (RP))) goto L_0038; #line 494 "regression-compile-tmp/allimpc1-77.imp" goto U_1014; #line 494 "regression-compile-tmp/allimpc1-77.imp" L_0038:; // 495 RS=RA; A(R)=A(R)+1; ! MOVE TO NEXT ALT OF PHRASE #line 495 "regression-compile-tmp/allimpc1-77.imp" RS = RA; #line 495 "regression-compile-tmp/allimpc1-77.imp" A[((R) + ((int)(2)))] = (((int)(A[((R) + ((int)(2)))])) + (1)); // 496 RA=SYMBOL(RA); ->L1 #line 496 "regression-compile-tmp/allimpc1-77.imp" RA = (SYMBOL-1300)[RA]; #line 496 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; // 497 L8: ! COMPLETE SUCCESS #line 497 "regression-compile-tmp/allimpc1-77.imp" U_1010:; // 498 HIT=1; %RETURN #line 498 "regression-compile-tmp/allimpc1-77.imp" HIT = 1; #line 498 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; // 499 L7: ! UTTER FAILURE #line 499 "regression-compile-tmp/allimpc1-77.imp" U_1014:; // 500 HIT=0; %RETURN #line 500 "regression-compile-tmp/allimpc1-77.imp" HIT = 0; #line 500 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; // 501 L6: ! BUILT IN PHRASE #line 501 "regression-compile-tmp/allimpc1-77.imp" U_1012:; // 502 I=CC(Q); ->BIP(ITEM); ! SO SWITCH TO IT #line 502 "regression-compile-tmp/allimpc1-77.imp" I = CC[Q]; #line 502 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_idx = ITEM; if ((1000 <= sw1_BIP_idx) && (sw1_BIP_idx <= 1019)) goto *(sw1_BIP-1000)[sw1_BIP_idx]; /* Bounds=1000:1019 */ else { /*_imp_signal(8, 2, sw1_BIP_idx);*/ fprintf(stderr, "%%SWITCH index BIP(%d) not in range 1000:1019 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); } // 503 BIP(1001): ! PHRASE NAME #line 503 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1001:; // 504 PNAME; ->L1 %IF HIT=1; ->L3 #line 504 "regression-compile-tmp/allimpc1-77.imp" PNAME(); #line 504 "regression-compile-tmp/allimpc1-77.imp" if (((HIT) != (1))) goto L_0039; #line 504 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; #line 504 "regression-compile-tmp/allimpc1-77.imp" L_0039:; #line 504 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; // 505 BIP(1002): ! PHRASE U/CODE INSRN #line 505 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1002:; // 506 ->L3 %UNLESS 'A'<=I<='Z' #line 506 "regression-compile-tmp/allimpc1-77.imp" if ((((65) > (I))) || (((I) <= (90)))) goto L_003a; #line 506 "regression-compile-tmp/allimpc1-77.imp" L_0034:; #line 506 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; #line 506 "regression-compile-tmp/allimpc1-77.imp" L_003a:; // 507 S=I; J=1 #line 507 "regression-compile-tmp/allimpc1-77.imp" S = I; #line 507 "regression-compile-tmp/allimpc1-77.imp" J = 1; // 508 L200: Q=Q+1; I=CC(Q) #line 508 "regression-compile-tmp/allimpc1-77.imp" U_1015:; #line 508 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 508 "regression-compile-tmp/allimpc1-77.imp" I = CC[Q]; // 509 ->L201 %UNLESS 'A'<=I<='Z' #line 509 "regression-compile-tmp/allimpc1-77.imp" if ((((65) > (I))) || (((I) <= (90)))) goto L_003c; #line 509 "regression-compile-tmp/allimpc1-77.imp" L_003b:; #line 509 "regression-compile-tmp/allimpc1-77.imp" goto U_1016; #line 509 "regression-compile-tmp/allimpc1-77.imp" L_003c:; // 510 S=S<<8!I;J=J+1; ->L200 #line 510 "regression-compile-tmp/allimpc1-77.imp" S = ((((S) << (8))) | (I)); #line 510 "regression-compile-tmp/allimpc1-77.imp" J = (((int)(J)) + (1)); #line 510 "regression-compile-tmp/allimpc1-77.imp" goto U_1015; // 511 L201: ->L3 %UNLESS I='_' %AND J<=4 #line 511 "regression-compile-tmp/allimpc1-77.imp" U_1016:; #line 511 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (95))) goto L_003d; #line 511 "regression-compile-tmp/allimpc1-77.imp" if (((J) <= (4))) goto L_003e; #line 511 "regression-compile-tmp/allimpc1-77.imp" L_003d:; #line 511 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; #line 511 "regression-compile-tmp/allimpc1-77.imp" L_003e:; // 512 Q=Q+1; ->L2 #line 512 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 512 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; // 513 BIP(1003): ! PHRASE CONST #line 513 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1003:; // 514 CONST(0) #line 514 "regression-compile-tmp/allimpc1-77.imp" CONST(0); // 515 ->L3 %IF HIT=0 #line 515 "regression-compile-tmp/allimpc1-77.imp" if (((HIT) != (0))) goto L_003f; #line 515 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; #line 515 "regression-compile-tmp/allimpc1-77.imp" L_003f:; // 516 ->L1 %IF CTYPE=5 #line 516 "regression-compile-tmp/allimpc1-77.imp" if (((CTYPE) != (5))) goto L_0040; #line 516 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; #line 516 "regression-compile-tmp/allimpc1-77.imp" L_0040:; // 517 ->L26 %IF CTYPE=2; ! %REAL #line 517 "regression-compile-tmp/allimpc1-77.imp" if (((CTYPE) != (2))) goto L_0041; #line 517 "regression-compile-tmp/allimpc1-77.imp" goto U_1017; #line 517 "regression-compile-tmp/allimpc1-77.imp" L_0041:; // 518 ->L22 %IF S>>12=0 #line 518 "regression-compile-tmp/allimpc1-77.imp" if ((((int)((((unsigned int)(S)) >> (12)))) != (0))) goto L_0042; #line 518 "regression-compile-tmp/allimpc1-77.imp" goto U_1018; #line 518 "regression-compile-tmp/allimpc1-77.imp" L_0042:; // 519 A(R)=1 #line 519 "regression-compile-tmp/allimpc1-77.imp" A[((R) + ((int)(2)))] = 1; // 520 TOAR4(R+1,S); R=R+3; ->L2 #line 520 "regression-compile-tmp/allimpc1-77.imp" TOAR4((((int)(R)) + (1)), S); #line 520 "regression-compile-tmp/allimpc1-77.imp" R = (((int)(R)) + (3)); #line 520 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; // 521 L22: A(R)=9; R=R+1; A(R)=S; ->L1 #line 521 "regression-compile-tmp/allimpc1-77.imp" U_1018:; #line 521 "regression-compile-tmp/allimpc1-77.imp" A[((R) + ((int)(2)))] = 9; #line 521 "regression-compile-tmp/allimpc1-77.imp" R = (((int)(R)) + (1)); #line 521 "regression-compile-tmp/allimpc1-77.imp" A[((R) + ((int)(2)))] = S; #line 521 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; // 522 L26: A(R)=2; TOAR8(R+1,CVALUE); R=R+5; ->L2 #line 522 "regression-compile-tmp/allimpc1-77.imp" U_1017:; #line 522 "regression-compile-tmp/allimpc1-77.imp" A[((R) + ((int)(2)))] = 2; #line 522 "regression-compile-tmp/allimpc1-77.imp" TOAR8((((int)(R)) + (1)), CVALUE); #line 522 "regression-compile-tmp/allimpc1-77.imp" R = (((int)(R)) + (5)); #line 522 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; // 523 BIP(1005): ! PHRASE N #line 523 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1005:; // 524 ->L3 %UNLESS '0'<=I<='9'; ! MUST START WITH DIGIT #line 524 "regression-compile-tmp/allimpc1-77.imp" if ((((48) > (I))) || (((I) <= (57)))) goto L_0044; #line 524 "regression-compile-tmp/allimpc1-77.imp" L_0043:; #line 524 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; #line 524 "regression-compile-tmp/allimpc1-77.imp" L_0044:; // 525 CONST(2); A(R)=S; ->L1 #line 525 "regression-compile-tmp/allimpc1-77.imp" CONST(2); #line 525 "regression-compile-tmp/allimpc1-77.imp" A[((R) + ((int)(2)))] = S; #line 525 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; // 526 BIP(1004): ! PHRASE CONSTLIST #line 526 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1004:; // 527 CONSTLIST;->L1 #line 527 "regression-compile-tmp/allimpc1-77.imp" CONSTLIST(); #line 527 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; // 528 BIP(1006): ! PHRASE S=SEPARATOR #line 528 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1006:; // 529 ->L2 %IF I=10 #line 529 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (10))) goto L_0045; #line 529 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; #line 529 "regression-compile-tmp/allimpc1-77.imp" L_0045:; // 530 ->L3 %UNLESS I=';' #line 530 "regression-compile-tmp/allimpc1-77.imp" if (((I) == (59))) goto L_0046; #line 530 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; #line 530 "regression-compile-tmp/allimpc1-77.imp" L_0046:; // 531 Q=Q+1; ->L2 #line 531 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 531 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; // 532 BIP(1007):L30: ! PHRASE TEXT=COMMENT TEXT #line 532 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1007:; #line 532 "regression-compile-tmp/allimpc1-77.imp" U_1019:; // 533 ->L1 %UNLESS 10#I#';' #line 533 "regression-compile-tmp/allimpc1-77.imp" if ((((10) == (I))) || (((I) != (59)))) goto L_0048; #line 533 "regression-compile-tmp/allimpc1-77.imp" L_0047:; #line 533 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; #line 533 "regression-compile-tmp/allimpc1-77.imp" L_0048:; // 534 Q=Q+1; I=CC(Q); ->L30 #line 534 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 534 "regression-compile-tmp/allimpc1-77.imp" I = CC[Q]; #line 534 "regression-compile-tmp/allimpc1-77.imp" goto U_1019; // 535 BIP(1008): ! PHRASE TEXTTEXT=BETWEEN QUOTES #line 535 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1008:; // 536 TEXTTEXT #line 536 "regression-compile-tmp/allimpc1-77.imp" TEXTTEXT(); // 537 ->L3 %IF HIT=0;->L1 #line 537 "regression-compile-tmp/allimpc1-77.imp" if (((HIT) != (0))) goto L_0049; #line 537 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; #line 537 "regression-compile-tmp/allimpc1-77.imp" L_0049:; #line 537 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; // 538 BIP(1009): ! PHRASE NAMELIST #line 538 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1009:; // 539 ! GIVES AR IN FORM NNAMES,NAME1,....NAMEN // 540 U=R; V=1; R=R+1 #line 540 "regression-compile-tmp/allimpc1-77.imp" U = R; #line 540 "regression-compile-tmp/allimpc1-77.imp" V = 1; #line 540 "regression-compile-tmp/allimpc1-77.imp" R = (((int)(R)) + (1)); // 541 PNAME; ->L3 %IF HIT=0 #line 541 "regression-compile-tmp/allimpc1-77.imp" PNAME(); #line 541 "regression-compile-tmp/allimpc1-77.imp" if (((HIT) != (0))) goto L_004a; #line 541 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; #line 541 "regression-compile-tmp/allimpc1-77.imp" L_004a:; // 542 L90: ->L91 %UNLESS CC(Q)=',' #line 542 "regression-compile-tmp/allimpc1-77.imp" U_101a:; #line 542 "regression-compile-tmp/allimpc1-77.imp" if (((CC[Q]) == (44))) goto L_004b; #line 542 "regression-compile-tmp/allimpc1-77.imp" goto U_101b; #line 542 "regression-compile-tmp/allimpc1-77.imp" L_004b:; // 543 Q=Q+1; R=R+1 #line 543 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 543 "regression-compile-tmp/allimpc1-77.imp" R = (((int)(R)) + (1)); // 544 I=CC(Q) #line 544 "regression-compile-tmp/allimpc1-77.imp" I = CC[Q]; // 545 PNAME #line 545 "regression-compile-tmp/allimpc1-77.imp" PNAME(); // 546 ->L92 %IF HIT=0; V=V+1; ->L90 #line 546 "regression-compile-tmp/allimpc1-77.imp" if (((HIT) != (0))) goto L_004c; #line 546 "regression-compile-tmp/allimpc1-77.imp" goto U_101c; #line 546 "regression-compile-tmp/allimpc1-77.imp" L_004c:; #line 546 "regression-compile-tmp/allimpc1-77.imp" V = (((int)(V)) + (1)); #line 546 "regression-compile-tmp/allimpc1-77.imp" goto U_101a; // 547 L92: R=R-1; Q=Q-1 #line 547 "regression-compile-tmp/allimpc1-77.imp" U_101c:; #line 547 "regression-compile-tmp/allimpc1-77.imp" R = (((int)(R)) - (1)); #line 547 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) - (1)); // 548 L91: A(U)=V; ->L1 #line 548 "regression-compile-tmp/allimpc1-77.imp" U_101b:; #line 548 "regression-compile-tmp/allimpc1-77.imp" A[((U) + ((int)(2)))] = V; #line 548 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; // 549 BIP(1010): ! PHRASE HOLE #line 549 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1010:; // 550 MARKER=R; ->L1 #line 550 "regression-compile-tmp/allimpc1-77.imp" MARKER = R; #line 550 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; // 551 BIP(1011): ! PHRASE MARK #line 551 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1011:; // 552 A(MARKER)=R-MARKER; ->L2 #line 552 "regression-compile-tmp/allimpc1-77.imp" A[((MARKER) + ((int)(2)))] = (((int)(R)) - (MARKER)); #line 552 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; // 553 BIP(1012): ! PHRASE UCRR=RR FORMAT #line 553 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1012:; // 554 ->L124 %IF S&255='R'; ! LAST LETTER=R #line 554 "regression-compile-tmp/allimpc1-77.imp" if (((((S) & (255))) != (82))) goto L_004d; #line 554 "regression-compile-tmp/allimpc1-77.imp" goto U_101d; #line 554 "regression-compile-tmp/allimpc1-77.imp" L_004d:; // 555 %CYCLE I=0,1,2 #line 555 "regression-compile-tmp/allimpc1-77.imp" I = (-1); if ((((2)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 2"); L_004e:; if (I == 2) goto L_004f; I += 1; // 556 ->L120 %IF S=NEM(I) #line 556 "regression-compile-tmp/allimpc1-77.imp" if (((S) != (NEM[I]))) goto L_0051; #line 556 "regression-compile-tmp/allimpc1-77.imp" goto U_101e; #line 556 "regression-compile-tmp/allimpc1-77.imp" L_0051:; // 557 %REPEAT; ->L3 #line 557 "regression-compile-tmp/allimpc1-77.imp" goto L_004e; #line 557 "regression-compile-tmp/allimpc1-77.imp" L_004f:; #line 557 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; // 558 L120: A(R)=OPC(I)&63; ->L1 #line 558 "regression-compile-tmp/allimpc1-77.imp" U_101e:; #line 558 "regression-compile-tmp/allimpc1-77.imp" A[((R) + ((int)(2)))] = ((OPC[I]) & (63)); #line 558 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; // 559 L124: J=S>>8; %CYCLE I=2,1,48 #line 559 "regression-compile-tmp/allimpc1-77.imp" U_101d:; #line 559 "regression-compile-tmp/allimpc1-77.imp" J = (int)((((unsigned int)(S)) >> (8))); #line 559 "regression-compile-tmp/allimpc1-77.imp" I = 1; if ((((48)-(2)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 2, 1, 48"); L_0052:; if (I == 48) goto L_0053; I += 1; // 560 ->L120 %IF J=NEM(I) #line 560 "regression-compile-tmp/allimpc1-77.imp" if (((J) != (NEM[I]))) goto L_0055; #line 560 "regression-compile-tmp/allimpc1-77.imp" goto U_101e; #line 560 "regression-compile-tmp/allimpc1-77.imp" L_0055:; // 561 %REPEAT; ->L3 #line 561 "regression-compile-tmp/allimpc1-77.imp" goto L_0052; #line 561 "regression-compile-tmp/allimpc1-77.imp" L_0053:; #line 561 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; // 562 BIP(1013): ! PHRASE UCRX=RX FORMAT #line 562 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1013:; // 563 %CYCLE I=18,1,64 #line 563 "regression-compile-tmp/allimpc1-77.imp" I = 17; if ((((64)-(18)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 18, 1, 64"); L_0056:; if (I == 64) goto L_0057; I += 1; // 564 ->L130 %IF S=NEM(I) #line 564 "regression-compile-tmp/allimpc1-77.imp" if (((S) != (NEM[I]))) goto L_0059; #line 564 "regression-compile-tmp/allimpc1-77.imp" goto U_101f; #line 564 "regression-compile-tmp/allimpc1-77.imp" L_0059:; // 565 %REPEAT; ->L3 #line 565 "regression-compile-tmp/allimpc1-77.imp" goto L_0056; #line 565 "regression-compile-tmp/allimpc1-77.imp" L_0057:; #line 565 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; // 566 L130: A(R)=OPC(I); ->L1 #line 566 "regression-compile-tmp/allimpc1-77.imp" U_101f:; #line 566 "regression-compile-tmp/allimpc1-77.imp" A[((R) + ((int)(2)))] = OPC[I]; #line 566 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; // 567 BIP(1014): ! PHRASE UCRS=R,R,DB FORMAT #line 567 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1014:; // 568 %CYCLE I=66,1,69 #line 568 "regression-compile-tmp/allimpc1-77.imp" I = 65; if ((((69)-(66)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 66, 1, 69"); L_005a:; if (I == 69) goto L_005b; I += 1; // 569 ->L130 %IF S=NEM(I) #line 569 "regression-compile-tmp/allimpc1-77.imp" if (((S) != (NEM[I]))) goto L_005d; #line 569 "regression-compile-tmp/allimpc1-77.imp" goto U_101f; #line 569 "regression-compile-tmp/allimpc1-77.imp" L_005d:; // 570 %REPEAT; ->L3 #line 570 "regression-compile-tmp/allimpc1-77.imp" goto L_005a; #line 570 "regression-compile-tmp/allimpc1-77.imp" L_005b:; #line 570 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; // 571 BIP(1015): ! PHRASE UCSI=STORE IMDTE #line 571 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1015:; // 572 %CYCLE I=71,1,83 #line 572 "regression-compile-tmp/allimpc1-77.imp" I = 70; if ((((83)-(71)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 71, 1, 83"); L_005e:; if (I == 83) goto L_005f; I += 1; // 573 ->L130 %IF S=NEM(I) #line 573 "regression-compile-tmp/allimpc1-77.imp" if (((S) != (NEM[I]))) goto L_0061; #line 573 "regression-compile-tmp/allimpc1-77.imp" goto U_101f; #line 573 "regression-compile-tmp/allimpc1-77.imp" L_0061:; // 574 %REPEAT; ->L3 #line 574 "regression-compile-tmp/allimpc1-77.imp" goto L_005e; #line 574 "regression-compile-tmp/allimpc1-77.imp" L_005f:; #line 574 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; // 575 BIP(1016): ! PHRASE UCSHIFT=SHIFT INSTRNS #line 575 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1016:; // 576 %CYCLE I=85,1,92 #line 576 "regression-compile-tmp/allimpc1-77.imp" I = 84; if ((((92)-(85)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 85, 1, 92"); L_0062:; if (I == 92) goto L_0063; I += 1; // 577 ->L130 %IF S=NEM(I) #line 577 "regression-compile-tmp/allimpc1-77.imp" if (((S) != (NEM[I]))) goto L_0065; #line 577 "regression-compile-tmp/allimpc1-77.imp" goto U_101f; #line 577 "regression-compile-tmp/allimpc1-77.imp" L_0065:; // 578 %REPEAT; ->L3 #line 578 "regression-compile-tmp/allimpc1-77.imp" goto L_0062; #line 578 "regression-compile-tmp/allimpc1-77.imp" L_0063:; #line 578 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; // 579 BIP(1017): ! PHRASE UCSS=STORE TO STORE #line 579 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1017:; // 580 %CYCLE I=94,1,106 #line 580 "regression-compile-tmp/allimpc1-77.imp" I = 93; if ((((106)-(94)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 94, 1, 106"); L_0066:; if (I == 106) goto L_0067; I += 1; // 581 ->L130 %IF S=NEM(I) #line 581 "regression-compile-tmp/allimpc1-77.imp" if (((S) != (NEM[I]))) goto L_0069; #line 581 "regression-compile-tmp/allimpc1-77.imp" goto U_101f; #line 581 "regression-compile-tmp/allimpc1-77.imp" L_0069:; // 582 %REPEAT; ->L3 #line 582 "regression-compile-tmp/allimpc1-77.imp" goto L_0066; #line 582 "regression-compile-tmp/allimpc1-77.imp" L_0067:; #line 582 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; // 583 BIP(1018): ! PHRASE UCPD=PACKED DECIMAL #line 583 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1018:; // 584 %CYCLE I=108,1,116 #line 584 "regression-compile-tmp/allimpc1-77.imp" I = 107; if ((((116)-(108)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 108, 1, 116"); L_006a:; if (I == 116) goto L_006b; I += 1; // 585 ->L130 %IF S=NEM(I) #line 585 "regression-compile-tmp/allimpc1-77.imp" if (((S) != (NEM[I]))) goto L_006d; #line 585 "regression-compile-tmp/allimpc1-77.imp" goto U_101f; #line 585 "regression-compile-tmp/allimpc1-77.imp" L_006d:; // 586 %REPEAT; ->L3 #line 586 "regression-compile-tmp/allimpc1-77.imp" goto L_006a; #line 586 "regression-compile-tmp/allimpc1-77.imp" L_006b:; #line 586 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; // 587 BIP(1019): ! PHRASE UCSPEC=THE FUNNIES #line 587 "regression-compile-tmp/allimpc1-77.imp" sw1_BIP_1019:; // 588 %CYCLE I=118,1,120 #line 588 "regression-compile-tmp/allimpc1-77.imp" I = 117; if ((((120)-(118)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 118, 1, 120"); L_006e:; if (I == 120) goto L_006f; I += 1; // 589 ->L130 %IF S=NEM(I) #line 589 "regression-compile-tmp/allimpc1-77.imp" if (((S) != (NEM[I]))) goto L_0071; #line 589 "regression-compile-tmp/allimpc1-77.imp" goto U_101f; #line 589 "regression-compile-tmp/allimpc1-77.imp" L_0071:; // 590 %REPEAT; ->L3 #line 590 "regression-compile-tmp/allimpc1-77.imp" goto L_006e; #line 590 "regression-compile-tmp/allimpc1-77.imp" L_006f:; #line 590 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; // 591 %END ;!OF ROUTINE 'COMPARE' #line 591 "regression-compile-tmp/allimpc1-77.imp" return; } // End of block COMPARE at level 2 // 592 %INTEGERFN HASH(%INTEGER ADDR) #line 592 "regression-compile-tmp/allimpc1-77.imp" int HASH( int ADDR ) #line 592 "regression-compile-tmp/allimpc1-77.imp" { // 593 %RESULT=NNAMES &(19*BYTE INTEGER(ADDR)+31*BYTE INTEGER(ADDR+1)) #line 593 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return ((NNAMES) & ((((((19) * (*(int *)(_imp_BYTEINTEGER(ADDR)))))) + (((31) * (*(int *)(_imp_BYTEINTEGER((((int)(ADDR)) + (1)))))))))); // 594 %END #line 594 "regression-compile-tmp/allimpc1-77.imp" } // End of block HASH at level 2 // 595 %ROUTINE PNAME #line 595 "regression-compile-tmp/allimpc1-77.imp" void PNAME( void ) #line 595 "regression-compile-tmp/allimpc1-77.imp" { // 596 %INTEGER JJ,KK,LL #line 596 "regression-compile-tmp/allimpc1-77.imp" int JJ; #line 596 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 596 "regression-compile-tmp/allimpc1-77.imp" int LL; // 597 !%SHORTROUTINE // 598 HIT=0; I=CC(Q) #line 598 "regression-compile-tmp/allimpc1-77.imp" HIT = 0; #line 598 "regression-compile-tmp/allimpc1-77.imp" I = CC[Q]; // 599 ->L3 %UNLESS 'A'<=I<='Z'; ! 1ST CHAR MUST BE LETTER #line 599 "regression-compile-tmp/allimpc1-77.imp" if ((((65) > (I))) || (((I) <= (90)))) goto L_0072; #line 599 "regression-compile-tmp/allimpc1-77.imp" L_0070:; #line 599 "regression-compile-tmp/allimpc1-77.imp" goto U_100b; #line 599 "regression-compile-tmp/allimpc1-77.imp" L_0072:; // 600 ->L3 %IF CC(Q+1)='''' %AND(I='B' %OR I='X' %OR I='M') #line 600 "regression-compile-tmp/allimpc1-77.imp" if (((CC[(((int)(Q)) + (1))]) != (39))) goto L_0073; #line 600 "regression-compile-tmp/allimpc1-77.imp" if (((I) == (66))) goto L_0074; #line 600 "regression-compile-tmp/allimpc1-77.imp" if (((I) == (88))) goto L_0074; #line 600 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (77))) goto L_0073; #line 600 "regression-compile-tmp/allimpc1-77.imp" L_0074:; #line 600 "regression-compile-tmp/allimpc1-77.imp" goto U_100b; #line 600 "regression-compile-tmp/allimpc1-77.imp" L_0073:; // 601 S=2; T=1; ->L10 #line 601 "regression-compile-tmp/allimpc1-77.imp" S = 2; #line 601 "regression-compile-tmp/allimpc1-77.imp" T = 1; #line 601 "regression-compile-tmp/allimpc1-77.imp" goto U_100c; // 602 L12: Q=Q+1; I=CC(Q) #line 602 "regression-compile-tmp/allimpc1-77.imp" U_100d:; #line 602 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 602 "regression-compile-tmp/allimpc1-77.imp" I = CC[Q]; // 603 ->L101 %UNLESS 'A'<=I<='Z' %OR '0'<=I<='9' #line 603 "regression-compile-tmp/allimpc1-77.imp" if ((((65) > (I))) || (((I) <= (90)))) goto L_0076; #line 603 "regression-compile-tmp/allimpc1-77.imp" L_0075:; #line 603 "regression-compile-tmp/allimpc1-77.imp" if ((((48) > (I))) || (((I) <= (57)))) goto L_0076; #line 603 "regression-compile-tmp/allimpc1-77.imp" L_0077:; #line 603 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; #line 603 "regression-compile-tmp/allimpc1-77.imp" L_0076:; // 604 T=T+1; S=S+1 #line 604 "regression-compile-tmp/allimpc1-77.imp" T = (((int)(T)) + (1)); #line 604 "regression-compile-tmp/allimpc1-77.imp" S = (((int)(S)) + (1)); // 605 L10: LETT(NEXT+T)=I; ->L12 #line 605 "regression-compile-tmp/allimpc1-77.imp" U_100c:; #line 605 "regression-compile-tmp/allimpc1-77.imp" LETT[(((int)(NEXT)) + (T))] = I; #line 605 "regression-compile-tmp/allimpc1-77.imp" goto U_100d; // 606 L101: LETT(NEXT)=T; ! INSERT LENGTH #line 606 "regression-compile-tmp/allimpc1-77.imp" U_100e:; #line 606 "regression-compile-tmp/allimpc1-77.imp" LETT[NEXT] = T; // 607 FAULT(108) %IF NEXT+S>DSIZE; !DICTIONARY OVERFLOW #line 607 "regression-compile-tmp/allimpc1-77.imp" if ((((((int)(NEXT)) + (S))) <= (DSIZE))) goto L_0078; #line 607 "regression-compile-tmp/allimpc1-77.imp" FAULT(108); #line 607 "regression-compile-tmp/allimpc1-77.imp" L_0078:; // 608 JJ=HASH(ADDR(LETT(NEXT))); !PREPARE TO LOOK UP #line 608 "regression-compile-tmp/allimpc1-77.imp" JJ = HASH(_imp_ADDR(&LETT[NEXT])); // 609 %CYCLE NUM=JJ,1,JJ+NNAMES #line 609 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = JJ; _increment = 1; _final = (((int)(JJ)) + (NNAMES)); NUM = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle NUM = JJ, 1, (((int)(JJ)) + (NNAMES))"); NUM -= _increment; _control -= _increment; L_0079:; if (NUM == _final) goto L_007a; NUM += _increment; _control += _increment; if (NUM != _control) _imp_signal(4,2,0,"Corrupt control variable NUM"); /* FOR loop control variable corrupted */ } // 610 KK=NUM&NNAMES; ! TREAT DICTIONARY AS CYCLIC #line 610 "regression-compile-tmp/allimpc1-77.imp" KK = ((NUM) & (NNAMES)); // 611 LL=WORD(KK) #line 611 "regression-compile-tmp/allimpc1-77.imp" LL = WORD[KK]; // 612 ->L2 %IF LL=0; ! NAME NOT KNOWN #line 612 "regression-compile-tmp/allimpc1-77.imp" if (((LL) != (0))) goto L_007c; #line 612 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; #line 612 "regression-compile-tmp/allimpc1-77.imp" L_007c:; // 613 %CYCLE JJ=1,1,LETT(LL) #line 613 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = LETT[LL]; JJ = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 1, 1, LETT[LL]"); JJ -= _increment; _control -= _increment; L_007d:; if (JJ == _final) goto L_007e; JJ += _increment; _control += _increment; if (JJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJ"); /* FOR loop control variable corrupted */ } // 614 ->FAIL %UNLESS LETT(NEXT+JJ)=LETT(LL+JJ) #line 614 "regression-compile-tmp/allimpc1-77.imp" if (((LETT[(((int)(NEXT)) + (JJ))]) == (LETT[(((int)(LL)) + (JJ))]))) goto L_0080; #line 614 "regression-compile-tmp/allimpc1-77.imp" goto U_1010; #line 614 "regression-compile-tmp/allimpc1-77.imp" L_0080:; // 615 %REPEAT; ->L41; ! NAME FOUND #line 615 "regression-compile-tmp/allimpc1-77.imp" goto L_007d; #line 615 "regression-compile-tmp/allimpc1-77.imp" L_007e:; #line 615 "regression-compile-tmp/allimpc1-77.imp" goto U_1011; // 616 FAIL: %REPEAT #line 616 "regression-compile-tmp/allimpc1-77.imp" U_1010:; #line 616 "regression-compile-tmp/allimpc1-77.imp" goto L_0079; #line 616 "regression-compile-tmp/allimpc1-77.imp" L_007a:; // 617 FAULT(104); ! TOO MANY NAMES #line 617 "regression-compile-tmp/allimpc1-77.imp" FAULT(104); // 618 L2: WORD(KK)=NEXT; NEXT=NEXT+S #line 618 "regression-compile-tmp/allimpc1-77.imp" U_100f:; #line 618 "regression-compile-tmp/allimpc1-77.imp" WORD[KK] = NEXT; #line 618 "regression-compile-tmp/allimpc1-77.imp" NEXT = (((int)(NEXT)) + (S)); // 619 L41: A(R)=KK; HIT=1 #line 619 "regression-compile-tmp/allimpc1-77.imp" U_1011:; #line 619 "regression-compile-tmp/allimpc1-77.imp" A[((R) + ((int)(2)))] = KK; #line 619 "regression-compile-tmp/allimpc1-77.imp" HIT = 1; // 620 L3: %END #line 620 "regression-compile-tmp/allimpc1-77.imp" U_100b:; #line 620 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PNAME at level 2 // 621 %ROUTINE CONST(%BYTEINTEGER MODE) #line 621 "regression-compile-tmp/allimpc1-77.imp" void CONST( unsigned char MODE ) #line 621 "regression-compile-tmp/allimpc1-77.imp" { // 622 %COMMENT MODE=0 FOR NORMAL MODE=2 FOR EXPONENT ETC // 623 %INTEGER Z #line 623 "regression-compile-tmp/allimpc1-77.imp" int Z; // 624 %LONGREAL X #line 624 "regression-compile-tmp/allimpc1-77.imp" double X; // 625 CVALUE=0; I=CC(Q) #line 625 "regression-compile-tmp/allimpc1-77.imp" CVALUE = 0; #line 625 "regression-compile-tmp/allimpc1-77.imp" I = CC[Q]; // 626 !%SHORTROUTINE // 627 S=0; ->N %IF '0'<=I<='9' #line 627 "regression-compile-tmp/allimpc1-77.imp" S = 0; #line 627 "regression-compile-tmp/allimpc1-77.imp" if ((((48) > (I))) || (((I) > (57)))) goto L_0081; #line 627 "regression-compile-tmp/allimpc1-77.imp" goto U_100b; #line 627 "regression-compile-tmp/allimpc1-77.imp" L_0081:; // 628 ->DOT %IF I='.' %AND MODE=0 %AND '0'<=CC(Q+1)<='9';! 1 DIDT MIN #line 628 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (46))) goto L_0082; #line 628 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (0))) goto L_0082; #line 628 "regression-compile-tmp/allimpc1-77.imp" if ((((48) > (CC[(((int)(Q)) + (1))]))) || (((CC[(((int)(Q)) + (1))]) > (57)))) goto L_0082; #line 628 "regression-compile-tmp/allimpc1-77.imp" goto U_100c; #line 628 "regression-compile-tmp/allimpc1-77.imp" L_0082:; // 629 ->PI %IF I='$' %AND MODE=0;! PI was represented back then by the character which now prints as '$'! #line 629 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (36))) goto L_0083; #line 629 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (0))) goto L_0083; #line 629 "regression-compile-tmp/allimpc1-77.imp" goto U_100d; #line 629 "regression-compile-tmp/allimpc1-77.imp" L_0083:; // 630 ->L101 %IF I='''' #line 630 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (39))) goto L_0084; #line 630 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; #line 630 "regression-compile-tmp/allimpc1-77.imp" L_0084:; // 631 ->L150 %UNLESS CC(Q+1)=''''; Q=Q+2 #line 631 "regression-compile-tmp/allimpc1-77.imp" if (((CC[(((int)(Q)) + (1))]) == (39))) goto L_0085; #line 631 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; #line 631 "regression-compile-tmp/allimpc1-77.imp" L_0085:; #line 631 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (2)); // 632 ->L102 %IF I='X'; ->MULT %IF I='M' #line 632 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (88))) goto L_0086; #line 632 "regression-compile-tmp/allimpc1-77.imp" goto U_1010; #line 632 "regression-compile-tmp/allimpc1-77.imp" L_0086:; #line 632 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (77))) goto L_0087; #line 632 "regression-compile-tmp/allimpc1-77.imp" goto U_1011; #line 632 "regression-compile-tmp/allimpc1-77.imp" L_0087:; // 633 ->L104 %IF I='B' #line 633 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (66))) goto L_0088; #line 633 "regression-compile-tmp/allimpc1-77.imp" goto U_1012; #line 633 "regression-compile-tmp/allimpc1-77.imp" L_0088:; // 634 Q=Q-2; ->L150 #line 634 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) - (2)); #line 634 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; // 635 PI: #line 635 "regression-compile-tmp/allimpc1-77.imp" U_100d:; // 636 CVALUE=3.14159 26535 89793 23846; Q=Q+1; ->L40 #line 636 "regression-compile-tmp/allimpc1-77.imp" CVALUE = 3.14159265358979323846; #line 636 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 636 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; // 637 L101: S=R; A(R)=5; R=R+1 #line 637 "regression-compile-tmp/allimpc1-77.imp" U_100e:; #line 637 "regression-compile-tmp/allimpc1-77.imp" S = R; #line 637 "regression-compile-tmp/allimpc1-77.imp" A[((R) + ((int)(2)))] = 5; #line 637 "regression-compile-tmp/allimpc1-77.imp" R = (((int)(R)) + (1)); // 638 TEXTTEXT #line 638 "regression-compile-tmp/allimpc1-77.imp" TEXTTEXT(); // 639 ->L24 %IF A(S+1)=0; ! NULL STRING #line 639 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(S)) + (1)))) + (2))]) != (0))) goto L_0089; #line 639 "regression-compile-tmp/allimpc1-77.imp" goto U_1014; #line 639 "regression-compile-tmp/allimpc1-77.imp" L_0089:; // 640 ->L27 %IF A(S+1)=1; ! SINGLE CHAR CONSTANT #line 640 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(S)) + (1)))) + (2))]) != (1))) goto L_008a; #line 640 "regression-compile-tmp/allimpc1-77.imp" goto U_1015; #line 640 "regression-compile-tmp/allimpc1-77.imp" L_008a:; // 641 CTYPE=5; %RETURN #line 641 "regression-compile-tmp/allimpc1-77.imp" CTYPE = 5; #line 641 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; // 642 L24: R=S; S=0; ->L99 #line 642 "regression-compile-tmp/allimpc1-77.imp" U_1014:; #line 642 "regression-compile-tmp/allimpc1-77.imp" R = S; #line 642 "regression-compile-tmp/allimpc1-77.imp" S = 0; #line 642 "regression-compile-tmp/allimpc1-77.imp" goto U_1016; // 643 L27: R=S; S=A(S+2); ->L99 #line 643 "regression-compile-tmp/allimpc1-77.imp" U_1015:; #line 643 "regression-compile-tmp/allimpc1-77.imp" R = S; #line 643 "regression-compile-tmp/allimpc1-77.imp" S = A[(((unsigned char)((((int)(S)) + (2)))) + (2))]; #line 643 "regression-compile-tmp/allimpc1-77.imp" goto U_1016; // 644 L102: I=CC(Q); Q=Q+1; ! HEX CONSTANTS #line 644 "regression-compile-tmp/allimpc1-77.imp" U_1010:; #line 644 "regression-compile-tmp/allimpc1-77.imp" I = CC[Q]; #line 644 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); // 645 ->L99 %IF I='''' #line 645 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (39))) goto L_008b; #line 645 "regression-compile-tmp/allimpc1-77.imp" goto U_1016; #line 645 "regression-compile-tmp/allimpc1-77.imp" L_008b:; // 646 ->L5 %IF '0'<=I<='9' #line 646 "regression-compile-tmp/allimpc1-77.imp" if ((((48) > (I))) || (((I) > (57)))) goto L_008c; #line 646 "regression-compile-tmp/allimpc1-77.imp" goto U_1017; #line 646 "regression-compile-tmp/allimpc1-77.imp" L_008c:; // 647 ->L150 %UNLESS 'A'<=I<='F' #line 647 "regression-compile-tmp/allimpc1-77.imp" if ((((65) > (I))) || (((I) <= (70)))) goto L_008d; #line 647 "regression-compile-tmp/allimpc1-77.imp" L_007b:; #line 647 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; #line 647 "regression-compile-tmp/allimpc1-77.imp" L_008d:; // 648 S=S<<4!(I-'A'+10); ->L102 #line 648 "regression-compile-tmp/allimpc1-77.imp" S = ((((S) << (4))) | ((((int)((((int)(I)) - (65)))) + (10)))); #line 648 "regression-compile-tmp/allimpc1-77.imp" goto U_1010; // 649 L5: S=S<<4!(I-'0'); ->L102 #line 649 "regression-compile-tmp/allimpc1-77.imp" U_1017:; #line 649 "regression-compile-tmp/allimpc1-77.imp" S = ((((S) << (4))) | ((((int)(I)) - (48)))); #line 649 "regression-compile-tmp/allimpc1-77.imp" goto U_1010; // 650 MULT: T=0; ! MULTIPLE CONSTANTS #line 650 "regression-compile-tmp/allimpc1-77.imp" U_1011:; #line 650 "regression-compile-tmp/allimpc1-77.imp" T = 0; // 651 L28: I=CC(Q); Q=Q+1; ->L22 %IF I='''' #line 651 "regression-compile-tmp/allimpc1-77.imp" U_1018:; #line 651 "regression-compile-tmp/allimpc1-77.imp" I = CC[Q]; #line 651 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 651 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (39))) goto L_008e; #line 651 "regression-compile-tmp/allimpc1-77.imp" goto U_1019; #line 651 "regression-compile-tmp/allimpc1-77.imp" L_008e:; // 652 L29: S=S<<8!I; T=T+1; ->L150 %IF T>=5; ->L28 #line 652 "regression-compile-tmp/allimpc1-77.imp" U_101a:; #line 652 "regression-compile-tmp/allimpc1-77.imp" S = ((((S) << (8))) | (I)); #line 652 "regression-compile-tmp/allimpc1-77.imp" T = (((int)(T)) + (1)); #line 652 "regression-compile-tmp/allimpc1-77.imp" if (((T) < (5))) goto L_008f; #line 652 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; #line 652 "regression-compile-tmp/allimpc1-77.imp" L_008f:; #line 652 "regression-compile-tmp/allimpc1-77.imp" goto U_1018; // 653 L22: ->L99 %UNLESS CC(Q)=''''; Q=Q+1; ->L29 #line 653 "regression-compile-tmp/allimpc1-77.imp" U_1019:; #line 653 "regression-compile-tmp/allimpc1-77.imp" if (((CC[Q]) == (39))) goto L_0090; #line 653 "regression-compile-tmp/allimpc1-77.imp" goto U_1016; #line 653 "regression-compile-tmp/allimpc1-77.imp" L_0090:; #line 653 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 653 "regression-compile-tmp/allimpc1-77.imp" goto U_101a; // 654 L104: T=Q; ! BINARY CONST #line 654 "regression-compile-tmp/allimpc1-77.imp" U_1012:; #line 654 "regression-compile-tmp/allimpc1-77.imp" T = Q; // 655 L32: I=CC(Q); Q=Q+1 #line 655 "regression-compile-tmp/allimpc1-77.imp" U_101b:; #line 655 "regression-compile-tmp/allimpc1-77.imp" I = CC[Q]; #line 655 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); // 656 ->L31 %IF '1'#I#'0' #line 656 "regression-compile-tmp/allimpc1-77.imp" if ((((49) == (I))) || (((I) == (48)))) goto L_0091; #line 656 "regression-compile-tmp/allimpc1-77.imp" goto U_101c; #line 656 "regression-compile-tmp/allimpc1-77.imp" L_0091:; // 657 S=S<<1!(I-'0') #line 657 "regression-compile-tmp/allimpc1-77.imp" S = ((((S) << (1))) | ((((int)(I)) - (48)))); // 658 ->L150 %IF Q-T>=33; ->L32 #line 658 "regression-compile-tmp/allimpc1-77.imp" if ((((((int)(Q)) - (T))) < (33))) goto L_0092; #line 658 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; #line 658 "regression-compile-tmp/allimpc1-77.imp" L_0092:; #line 658 "regression-compile-tmp/allimpc1-77.imp" goto U_101b; // 659 L31: ->L99 %IF I=''''; ->L150 #line 659 "regression-compile-tmp/allimpc1-77.imp" U_101c:; #line 659 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (39))) goto L_0093; #line 659 "regression-compile-tmp/allimpc1-77.imp" goto U_1016; #line 659 "regression-compile-tmp/allimpc1-77.imp" L_0093:; #line 659 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; // 660 N: I=I&15; CVALUE=10*CVALUE+I #line 660 "regression-compile-tmp/allimpc1-77.imp" U_100b:; #line 660 "regression-compile-tmp/allimpc1-77.imp" I = ((I) & (15)); /*promote*/#line 660 "regression-compile-tmp/allimpc1-77.imp" CVALUE = (((int)((((double)(10)) * (CVALUE)))) + (I)); // 661 Q=Q+1; I=CC(Q) #line 661 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 661 "regression-compile-tmp/allimpc1-77.imp" I = CC[Q]; // 662 ->N %IF '0'<=I<='9' #line 662 "regression-compile-tmp/allimpc1-77.imp" if ((((48) > (I))) || (((I) > (57)))) goto L_0094; #line 662 "regression-compile-tmp/allimpc1-77.imp" goto U_100b; #line 662 "regression-compile-tmp/allimpc1-77.imp" L_0094:; // 663 ->ALPHA %UNLESS MODE=0 %AND I='.' #line 663 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (0))) goto L_0095; #line 663 "regression-compile-tmp/allimpc1-77.imp" if (((I) == (46))) goto L_0096; #line 663 "regression-compile-tmp/allimpc1-77.imp" L_0095:; #line 663 "regression-compile-tmp/allimpc1-77.imp" goto U_101d; #line 663 "regression-compile-tmp/allimpc1-77.imp" L_0096:; // 664 DOT: Q=Q+1; X=10 #line 664 "regression-compile-tmp/allimpc1-77.imp" U_100c:; #line 664 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 664 "regression-compile-tmp/allimpc1-77.imp" X = 10; // 665 L45: I=CC(Q); ->ALPHA %UNLESS '0'<=I<='9' #line 665 "regression-compile-tmp/allimpc1-77.imp" U_101e:; #line 665 "regression-compile-tmp/allimpc1-77.imp" I = CC[Q]; #line 665 "regression-compile-tmp/allimpc1-77.imp" if ((((48) > (I))) || (((I) <= (57)))) goto L_0098; #line 665 "regression-compile-tmp/allimpc1-77.imp" L_0097:; #line 665 "regression-compile-tmp/allimpc1-77.imp" goto U_101d; #line 665 "regression-compile-tmp/allimpc1-77.imp" L_0098:; // 666 I=I&15; CVALUE=CVALUE+I/X #line 666 "regression-compile-tmp/allimpc1-77.imp" I = ((I) & (15)); #line 666 "regression-compile-tmp/allimpc1-77.imp" CVALUE = ((CVALUE) + (((double)((double)((float)(I)) / (double)((double)(X)))))); /*promote*/ // 667 X=10*X #line 667 "regression-compile-tmp/allimpc1-77.imp" X = (((double)(10)) * (X)); // 668 Q=Q+1; ->L45 #line 668 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 668 "regression-compile-tmp/allimpc1-77.imp" goto U_101e; // 669 ALPHA: %COMMENT TEST FOR EXPONENT #line 669 "regression-compile-tmp/allimpc1-77.imp" U_101d:; // 670 ->FIX %UNLESS MODE=0 %AND CC(Q)='@' #line 670 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (0))) goto L_0099; #line 670 "regression-compile-tmp/allimpc1-77.imp" if (((CC[Q]) == (64))) goto L_009a; #line 670 "regression-compile-tmp/allimpc1-77.imp" L_0099:; #line 670 "regression-compile-tmp/allimpc1-77.imp" goto U_101f; #line 670 "regression-compile-tmp/allimpc1-77.imp" L_009a:; // 671 Q=Q+1; X=CVALUE #line 671 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 671 "regression-compile-tmp/allimpc1-77.imp" X = CVALUE; // 672 Z=1; ->L39 %IF '+'#CC(Q)#'-' #line 672 "regression-compile-tmp/allimpc1-77.imp" Z = 1; #line 672 "regression-compile-tmp/allimpc1-77.imp" if ((((43) == (CC[Q]))) || (((CC[Q]) == (45)))) goto L_009b; #line 672 "regression-compile-tmp/allimpc1-77.imp" goto U_1020; #line 672 "regression-compile-tmp/allimpc1-77.imp" L_009b:; // 673 Z=-1 %IF CC(Q)='-'; Q=Q+1 #line 673 "regression-compile-tmp/allimpc1-77.imp" if (((CC[Q]) != (45))) goto L_009c; #line 673 "regression-compile-tmp/allimpc1-77.imp" Z = (-1); #line 673 "regression-compile-tmp/allimpc1-77.imp" L_009c:; #line 673 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); // 674 L39: CONST(2); ->L150 %IF HIT=0; S=S*Z #line 674 "regression-compile-tmp/allimpc1-77.imp" U_1020:; #line 674 "regression-compile-tmp/allimpc1-77.imp" CONST(2); #line 674 "regression-compile-tmp/allimpc1-77.imp" if (((HIT) != (0))) goto L_009d; #line 674 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; #line 674 "regression-compile-tmp/allimpc1-77.imp" L_009d:; #line 674 "regression-compile-tmp/allimpc1-77.imp" S = (((int)(S)) * (Z)); /*promote*/ // 675 %IF S=-99 %THEN CVALUE=0 %ELSE CVALUE=X*10^^S #line 675 "regression-compile-tmp/allimpc1-77.imp" if (((S) != ((-99)))) goto L_009e; #line 675 "regression-compile-tmp/allimpc1-77.imp" CVALUE = 0; #line 675 "regression-compile-tmp/allimpc1-77.imp" goto L_009f; #line 675 "regression-compile-tmp/allimpc1-77.imp" L_009e:; #line 675 "regression-compile-tmp/allimpc1-77.imp" CVALUE = ((X) * ((double)(_imp_IEXP(10, S)))); #line 675 "regression-compile-tmp/allimpc1-77.imp" L_009f:; // 676 FIX: %COMMENT SEE IF IT IS INTEGER #line 676 "regression-compile-tmp/allimpc1-77.imp" U_101f:; // 677 ->L40 %IF CVALUE>IMAX; ! TOO BIG #line 677 "regression-compile-tmp/allimpc1-77.imp" if (((CVALUE) <= (IMAX))) goto L_00a0; #line 677 "regression-compile-tmp/allimpc1-77.imp" goto U_1013; #line 677 "regression-compile-tmp/allimpc1-77.imp" L_00a0:; // 678 ->L41 %IF {FRACPT(CVALUE)=0}INTPT(CVALUE)=CVALUE #line 678 "regression-compile-tmp/allimpc1-77.imp" if (((_imp_INTPT(CVALUE)) != (CVALUE))) goto L_00a1; #line 678 "regression-compile-tmp/allimpc1-77.imp" goto U_1021; #line 678 "regression-compile-tmp/allimpc1-77.imp" L_00a1:; // 679 L40: CTYPE=2; HIT=1; %RETURN #line 679 "regression-compile-tmp/allimpc1-77.imp" U_1013:; #line 679 "regression-compile-tmp/allimpc1-77.imp" CTYPE = 2; #line 679 "regression-compile-tmp/allimpc1-77.imp" HIT = 1; #line 679 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; // 680 L41: S=INT(CVALUE) #line 680 "regression-compile-tmp/allimpc1-77.imp" U_1021:; #line 680 "regression-compile-tmp/allimpc1-77.imp" S = _imp_INT(CVALUE); // 681 L99: CTYPE=1; HIT=1; %RETURN #line 681 "regression-compile-tmp/allimpc1-77.imp" U_1016:; #line 681 "regression-compile-tmp/allimpc1-77.imp" CTYPE = 1; #line 681 "regression-compile-tmp/allimpc1-77.imp" HIT = 1; #line 681 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; // 682 L150: HIT=0; ! FAILURE #line 682 "regression-compile-tmp/allimpc1-77.imp" U_100f:; #line 682 "regression-compile-tmp/allimpc1-77.imp" HIT = 0; // 683 %END #line 683 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CONST at level 2 // 684 %ROUTINE CONSTLIST #line 684 "regression-compile-tmp/allimpc1-77.imp" void CONSTLIST( void ) #line 684 "regression-compile-tmp/allimpc1-77.imp" { // 685 !%SHORTROUTINE // 686 %INTEGER PRECP,NCONST,RF,J,K,CPW #line 686 "regression-compile-tmp/allimpc1-77.imp" int PRECP; #line 686 "regression-compile-tmp/allimpc1-77.imp" int NCONST; #line 686 "regression-compile-tmp/allimpc1-77.imp" int RF; #line 686 "regression-compile-tmp/allimpc1-77.imp" int J; #line 686 "regression-compile-tmp/allimpc1-77.imp" int K; #line 686 "regression-compile-tmp/allimpc1-77.imp" int CPW; // 687 %INTEGER KK,SIGN,SP,RQ,VALUE #line 687 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 687 "regression-compile-tmp/allimpc1-77.imp" int SIGN; #line 687 "regression-compile-tmp/allimpc1-77.imp" int SP; #line 687 "regression-compile-tmp/allimpc1-77.imp" int RQ; #line 687 "regression-compile-tmp/allimpc1-77.imp" int VALUE; // 688 %INTEGER TYPEP,ACC,RP,N,JJ #line 688 "regression-compile-tmp/allimpc1-77.imp" int TYPEP; #line 688 "regression-compile-tmp/allimpc1-77.imp" int ACC; #line 688 "regression-compile-tmp/allimpc1-77.imp" int RP; #line 688 "regression-compile-tmp/allimpc1-77.imp" int N; #line 688 "regression-compile-tmp/allimpc1-77.imp" int JJ; // 689 %LONGREAL C #line 689 "regression-compile-tmp/allimpc1-77.imp" double C; // 690 VALUE=0; NCONST=0 #line 690 "regression-compile-tmp/allimpc1-77.imp" VALUE = 0; #line 690 "regression-compile-tmp/allimpc1-77.imp" NCONST = 0; // 691 %IF CONSTPTR&1#0 %THEN PSYM(0) #line 691 "regression-compile-tmp/allimpc1-77.imp" if (((((CONSTPTR) & (1))) == (0))) goto L_00a2; #line 691 "regression-compile-tmp/allimpc1-77.imp" PSYM(0); #line 691 "regression-compile-tmp/allimpc1-77.imp" L_00a2:; // 692 A(R+1)=CONSTPTR #line 692 "regression-compile-tmp/allimpc1-77.imp" A[(((unsigned char)((((int)(R)) + (1)))) + (2))] = CONSTPTR; // 693 RP=R; R=R+2; ACC=0; N=24 #line 693 "regression-compile-tmp/allimpc1-77.imp" RP = R; #line 693 "regression-compile-tmp/allimpc1-77.imp" R = (((int)(R)) + (2)); #line 693 "regression-compile-tmp/allimpc1-77.imp" ACC = 0; #line 693 "regression-compile-tmp/allimpc1-77.imp" N = 24; // 694 TYPEP=TYPEFLAG(A(2)); PRECP=TYPEP>>3 #line 694 "regression-compile-tmp/allimpc1-77.imp" TYPEP = (TYPEFLAG-1)[A[4]]; #line 694 "regression-compile-tmp/allimpc1-77.imp" PRECP = (int)((((unsigned int)(TYPEP)) >> (3))); // 695 TYPEP=TYPEP&7 #line 695 "regression-compile-tmp/allimpc1-77.imp" TYPEP = ((TYPEP) & (7)); // 696 %IF TYPEP=5 %THEN ACC=A(4) #line 696 "regression-compile-tmp/allimpc1-77.imp" if (((TYPEP) != (5))) goto L_00a3; #line 696 "regression-compile-tmp/allimpc1-77.imp" ACC = A[6]; #line 696 "regression-compile-tmp/allimpc1-77.imp" L_00a3:; // 697 PRECP=3 %IF TYPEP=2 %AND ALL LONG=1 #line 697 "regression-compile-tmp/allimpc1-77.imp" if (((TYPEP) != (2))) goto L_00a4; #line 697 "regression-compile-tmp/allimpc1-77.imp" if (((ALLLONG) != (1))) goto L_00a4; #line 697 "regression-compile-tmp/allimpc1-77.imp" PRECP = 3; #line 697 "regression-compile-tmp/allimpc1-77.imp" L_00a4:; // 698 CPW=4//BYTES(PRECP) #line 698 "regression-compile-tmp/allimpc1-77.imp" CPW = (long)((long)((int)(4)) / (long)((unsigned char)(_Z(BYTES[PRECP])))); // 699 CPW=4 %IF TYPEP=5 #line 699 "regression-compile-tmp/allimpc1-77.imp" if (((TYPEP) != (5))) goto L_00a5; #line 699 "regression-compile-tmp/allimpc1-77.imp" CPW = 4; #line 699 "regression-compile-tmp/allimpc1-77.imp" L_00a5:; // 700 L6: RQ=Q; I=CC(Q); SIGN=1; ->L7 %IF I='-' #line 700 "regression-compile-tmp/allimpc1-77.imp" U_1019:; #line 700 "regression-compile-tmp/allimpc1-77.imp" RQ = Q; #line 700 "regression-compile-tmp/allimpc1-77.imp" I = CC[Q]; #line 700 "regression-compile-tmp/allimpc1-77.imp" SIGN = 1; #line 700 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (45))) goto L_00a6; #line 700 "regression-compile-tmp/allimpc1-77.imp" goto U_101a; #line 700 "regression-compile-tmp/allimpc1-77.imp" L_00a6:; // 701 ->L8 %IF I='+'; ->L9 #line 701 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (43))) goto L_00a7; #line 701 "regression-compile-tmp/allimpc1-77.imp" goto U_101b; #line 701 "regression-compile-tmp/allimpc1-77.imp" L_00a7:; #line 701 "regression-compile-tmp/allimpc1-77.imp" goto U_101c; // 702 L7: SIGN=-1; ->L99 %IF CPW=4 #line 702 "regression-compile-tmp/allimpc1-77.imp" U_101a:; #line 702 "regression-compile-tmp/allimpc1-77.imp" SIGN = (-1); #line 702 "regression-compile-tmp/allimpc1-77.imp" if (((CPW) != (4))) goto L_00a8; #line 702 "regression-compile-tmp/allimpc1-77.imp" goto U_101d; #line 702 "regression-compile-tmp/allimpc1-77.imp" L_00a8:; // 703 L8: Q=Q+1; I=CC(Q) #line 703 "regression-compile-tmp/allimpc1-77.imp" U_101b:; #line 703 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 703 "regression-compile-tmp/allimpc1-77.imp" I = CC[Q]; // 704 L9: CONST(0); RF=1 #line 704 "regression-compile-tmp/allimpc1-77.imp" U_101c:; #line 704 "regression-compile-tmp/allimpc1-77.imp" CONST(0); #line 704 "regression-compile-tmp/allimpc1-77.imp" RF = 1; // 705 ->L98 %IF HIT=0 #line 705 "regression-compile-tmp/allimpc1-77.imp" if (((HIT) != (0))) goto L_00a9; #line 705 "regression-compile-tmp/allimpc1-77.imp" goto U_101e; #line 705 "regression-compile-tmp/allimpc1-77.imp" L_00a9:; // 706 ->L1 %UNLESS CC(Q)='(' #line 706 "regression-compile-tmp/allimpc1-77.imp" if (((CC[Q]) == (40))) goto L_00aa; #line 706 "regression-compile-tmp/allimpc1-77.imp" goto U_101f; #line 706 "regression-compile-tmp/allimpc1-77.imp" L_00aa:; // 707 J=S; Q=Q+1; C=CVALUE #line 707 "regression-compile-tmp/allimpc1-77.imp" J = S; #line 707 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 707 "regression-compile-tmp/allimpc1-77.imp" C = CVALUE; // 708 CONST(2); ->L98 %UNLESS HIT=1 %AND S>0 %AND CC(Q)=')' #line 708 "regression-compile-tmp/allimpc1-77.imp" CONST(2); #line 708 "regression-compile-tmp/allimpc1-77.imp" if (((HIT) != (1))) goto L_00ab; #line 708 "regression-compile-tmp/allimpc1-77.imp" if (((S) <= (0))) goto L_00ab; #line 708 "regression-compile-tmp/allimpc1-77.imp" if (((CC[Q]) == (41))) goto L_00ac; #line 708 "regression-compile-tmp/allimpc1-77.imp" L_00ab:; #line 708 "regression-compile-tmp/allimpc1-77.imp" goto U_101e; #line 708 "regression-compile-tmp/allimpc1-77.imp" L_00ac:; // 709 Q=Q+1 #line 709 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); // 710 CVALUE=C; RF=S; S=J #line 710 "regression-compile-tmp/allimpc1-77.imp" CVALUE = C; #line 710 "regression-compile-tmp/allimpc1-77.imp" RF = S; #line 710 "regression-compile-tmp/allimpc1-77.imp" S = J; // 711 L1: ->L21 %IF TYPEP=2 #line 711 "regression-compile-tmp/allimpc1-77.imp" U_101f:; #line 711 "regression-compile-tmp/allimpc1-77.imp" if (((TYPEP) != (2))) goto L_00ad; #line 711 "regression-compile-tmp/allimpc1-77.imp" goto U_1020; #line 711 "regression-compile-tmp/allimpc1-77.imp" L_00ad:; // 712 ->L51 %IF TYPEP=5 #line 712 "regression-compile-tmp/allimpc1-77.imp" if (((TYPEP) != (5))) goto L_00ae; #line 712 "regression-compile-tmp/allimpc1-77.imp" goto U_1021; #line 712 "regression-compile-tmp/allimpc1-77.imp" L_00ae:; // 713 ->L99 %IF CPW=4 %AND S>255 #line 713 "regression-compile-tmp/allimpc1-77.imp" if (((CPW) != (4))) goto L_00af; #line 713 "regression-compile-tmp/allimpc1-77.imp" if (((S) <= (255))) goto L_00af; #line 713 "regression-compile-tmp/allimpc1-77.imp" goto U_101d; #line 713 "regression-compile-tmp/allimpc1-77.imp" L_00af:; // 714 ->L99 %IF CPW=2 %AND |S|>>16#0;! SHORT TOO LARGE #line 714 "regression-compile-tmp/allimpc1-77.imp" if (((CPW) != (2))) goto L_00b0; #line 714 "regression-compile-tmp/allimpc1-77.imp" if (((((((_imp_IMOD(S))) >> (16)))) == (0))) goto L_00b0; #line 714 "regression-compile-tmp/allimpc1-77.imp" goto U_101d; #line 714 "regression-compile-tmp/allimpc1-77.imp" L_00b0:; // 715 S=S*SIGN #line 715 "regression-compile-tmp/allimpc1-77.imp" S = (((int)(S)) * (SIGN)); // 716 S=S&X'FFFF' %IF CPW=2 #line 716 "regression-compile-tmp/allimpc1-77.imp" if (((CPW) != (2))) goto L_00b1; #line 716 "regression-compile-tmp/allimpc1-77.imp" S = ((S) & (65535)); #line 716 "regression-compile-tmp/allimpc1-77.imp" L_00b1:; // 717 %CYCLE KK=1,1,RF #line 717 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = RF; KK = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 1, 1, RF"); KK -= _increment; _control -= _increment; L_00b2:; if (KK == _final) goto L_00b3; KK += _increment; _control += _increment; if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */ } // 718 J=NCONST//CPW #line 718 "regression-compile-tmp/allimpc1-77.imp" J = (long)((long)((int)(NCONST)) / (long)((int)(_Z(CPW)))); // 719 K=NCONST-CPW*J #line 719 "regression-compile-tmp/allimpc1-77.imp" K = ((NCONST) - ((int)((((int)(CPW)) * (J))))); // 720 SP=S<<(32*(CPW-K-1)//CPW) #line 720 "regression-compile-tmp/allimpc1-77.imp" SP = ((S) << (((long)((long)((((32) * ((int)((((int)((((int)(CPW)) - (K)))) - (1))))))) / (long)((int)(_Z(CPW))))))); // 721 VALUE=SP!VALUE #line 721 "regression-compile-tmp/allimpc1-77.imp" VALUE = ((SP) | (VALUE)); // 722 NCONST=NCONST+1 #line 722 "regression-compile-tmp/allimpc1-77.imp" NCONST = (((int)(NCONST)) + (1)); // 723 ->L5 %UNLESS (CPW-1)&NCONST=0 #line 723 "regression-compile-tmp/allimpc1-77.imp" if ((((((((int)(CPW)) - (1))) & (NCONST))) == (0))) goto L_00b5; #line 723 "regression-compile-tmp/allimpc1-77.imp" goto U_1022; #line 723 "regression-compile-tmp/allimpc1-77.imp" L_00b5:; // 724 PSYM(VALUE); VALUE=0 #line 724 "regression-compile-tmp/allimpc1-77.imp" PSYM(VALUE); #line 724 "regression-compile-tmp/allimpc1-77.imp" VALUE = 0; // 725 L5: %REPEAT #line 725 "regression-compile-tmp/allimpc1-77.imp" U_1022:; #line 725 "regression-compile-tmp/allimpc1-77.imp" goto L_00b2; #line 725 "regression-compile-tmp/allimpc1-77.imp" L_00b3:; // 726 L11: ->L99 %UNLESS CC(Q)=','; Q=Q+1 #line 726 "regression-compile-tmp/allimpc1-77.imp" U_1023:; #line 726 "regression-compile-tmp/allimpc1-77.imp" if (((CC[Q]) == (44))) goto L_00b6; #line 726 "regression-compile-tmp/allimpc1-77.imp" goto U_101d; #line 726 "regression-compile-tmp/allimpc1-77.imp" L_00b6:; #line 726 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); // 727 ->L6 %UNLESS CC(Q)=10 #line 727 "regression-compile-tmp/allimpc1-77.imp" if (((CC[Q]) == (10))) goto L_00b7; #line 727 "regression-compile-tmp/allimpc1-77.imp" goto U_1019; #line 727 "regression-compile-tmp/allimpc1-77.imp" L_00b7:; // 728 READLINE(0); Q=1; ->L6 #line 728 "regression-compile-tmp/allimpc1-77.imp" READLINE(0); #line 728 "regression-compile-tmp/allimpc1-77.imp" Q = 1; #line 728 "regression-compile-tmp/allimpc1-77.imp" goto U_1019; // 729 L21: %IF CTYPE=1 %THEN CVALUE=S #line 729 "regression-compile-tmp/allimpc1-77.imp" U_1020:; #line 729 "regression-compile-tmp/allimpc1-77.imp" if (((CTYPE) != (1))) goto L_00b8; #line 729 "regression-compile-tmp/allimpc1-77.imp" CVALUE = S; #line 729 "regression-compile-tmp/allimpc1-77.imp" L_00b8:; /*promote*/ // 730 CVALUE=SIGN*CVALUE #line 730 "regression-compile-tmp/allimpc1-77.imp" CVALUE = (((double)(SIGN)) * (CVALUE)); // 731 J=INTEGER(ADDR(CVALUE)) #line 731 "regression-compile-tmp/allimpc1-77.imp" J = *_imp_INTEGER(_imp_ADDR(&CVALUE)); // 732 K=INTEGER(ADDR(CVALUE)+4) #line 732 "regression-compile-tmp/allimpc1-77.imp" K = *_imp_INTEGER((((int)(_imp_ADDR(&CVALUE))) + (4))); // 733 %CYCLE KK=1,1,RF; NCONST=NCONST+1 #line 733 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = RF; KK = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 1, 1, RF"); KK -= _increment; _control -= _increment; L_00b9:; if (KK == _final) goto L_00ba; KK += _increment; _control += _increment; if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */ } #line 733 "regression-compile-tmp/allimpc1-77.imp" NCONST = (((int)(NCONST)) + (1)); // 734 PSYM(J); PSYM(K) %IF PRECP=3 #line 734 "regression-compile-tmp/allimpc1-77.imp" PSYM(J); #line 734 "regression-compile-tmp/allimpc1-77.imp" if (((PRECP) != (3))) goto L_00bc; #line 734 "regression-compile-tmp/allimpc1-77.imp" PSYM(K); #line 734 "regression-compile-tmp/allimpc1-77.imp" L_00bc:; // 735 %REPEAT; ->L11 #line 735 "regression-compile-tmp/allimpc1-77.imp" goto L_00b9; #line 735 "regression-compile-tmp/allimpc1-77.imp" L_00ba:; #line 735 "regression-compile-tmp/allimpc1-77.imp" goto U_1023; // 736 L51: ->L52 %IF CTYPE=5 #line 736 "regression-compile-tmp/allimpc1-77.imp" U_1021:; #line 736 "regression-compile-tmp/allimpc1-77.imp" if (((CTYPE) != (5))) goto L_00bd; #line 736 "regression-compile-tmp/allimpc1-77.imp" goto U_1024; #line 736 "regression-compile-tmp/allimpc1-77.imp" L_00bd:; // 737 ->L98 %UNLESS CTYPE=1 %AND S<=127 #line 737 "regression-compile-tmp/allimpc1-77.imp" if (((CTYPE) != (1))) goto L_00bb; #line 737 "regression-compile-tmp/allimpc1-77.imp" if (((S) <= (127))) goto L_00be; #line 737 "regression-compile-tmp/allimpc1-77.imp" L_00bb:; #line 737 "regression-compile-tmp/allimpc1-77.imp" goto U_101e; #line 737 "regression-compile-tmp/allimpc1-77.imp" L_00be:; // 738 A(RP+3)=1; A(RP+4)=S #line 738 "regression-compile-tmp/allimpc1-77.imp" A[(((unsigned char)((((int)(RP)) + (3)))) + (2))] = 1; #line 738 "regression-compile-tmp/allimpc1-77.imp" A[(((unsigned char)((((int)(RP)) + (4)))) + (2))] = S; // 739 L52: ->L98 %UNLESS SIGN=1 %AND ACC>=A(RP+3) #line 739 "regression-compile-tmp/allimpc1-77.imp" U_1024:; #line 739 "regression-compile-tmp/allimpc1-77.imp" if (((SIGN) != (1))) goto L_00bf; #line 739 "regression-compile-tmp/allimpc1-77.imp" if (((ACC) >= (A[(((unsigned char)((((int)(RP)) + (3)))) + (2))]))) goto L_00c0; #line 739 "regression-compile-tmp/allimpc1-77.imp" L_00bf:; #line 739 "regression-compile-tmp/allimpc1-77.imp" goto U_101e; #line 739 "regression-compile-tmp/allimpc1-77.imp" L_00c0:; // 740 %CYCLE KK=1,1,RF #line 740 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = RF; KK = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 1, 1, RF"); KK -= _increment; _control -= _increment; L_00c1:; if (KK == _final) goto L_00c2; KK += _increment; _control += _increment; if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */ } // 741 %CYCLE JJ=0,1,ACC #line 741 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = ACC; JJ = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 0, 1, ACC"); JJ -= _increment; _control -= _increment; L_00c4:; if (JJ == _final) goto L_00c5; JJ += _increment; _control += _increment; if (JJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJ"); /* FOR loop control variable corrupted */ } // 742 S=A(RP+JJ+3)&127 #line 742 "regression-compile-tmp/allimpc1-77.imp" S = ((A[(((unsigned char)((((int)((((int)(RP)) + (JJ)))) + (3)))) + (2))]) & (127)); // 743 SP=S<L55 %UNLESS N<0 #line 745 "regression-compile-tmp/allimpc1-77.imp" if (((N) < (0))) goto L_00c7; #line 745 "regression-compile-tmp/allimpc1-77.imp" goto U_1025; #line 745 "regression-compile-tmp/allimpc1-77.imp" L_00c7:; // 746 PSYM(VALUE); N=24; VALUE=0 #line 746 "regression-compile-tmp/allimpc1-77.imp" PSYM(VALUE); #line 746 "regression-compile-tmp/allimpc1-77.imp" N = 24; #line 746 "regression-compile-tmp/allimpc1-77.imp" VALUE = 0; // 747 L55: %REPEAT #line 747 "regression-compile-tmp/allimpc1-77.imp" U_1025:; #line 747 "regression-compile-tmp/allimpc1-77.imp" goto L_00c4; #line 747 "regression-compile-tmp/allimpc1-77.imp" L_00c5:; // 748 NCONST=NCONST+1 #line 748 "regression-compile-tmp/allimpc1-77.imp" NCONST = (((int)(NCONST)) + (1)); // 749 %REPEAT; R=RP+2; ->L11 #line 749 "regression-compile-tmp/allimpc1-77.imp" goto L_00c1; #line 749 "regression-compile-tmp/allimpc1-77.imp" L_00c2:; #line 749 "regression-compile-tmp/allimpc1-77.imp" R = (((int)(RP)) + (2)); #line 749 "regression-compile-tmp/allimpc1-77.imp" goto U_1023; // 750 L98: Q=RQ #line 750 "regression-compile-tmp/allimpc1-77.imp" U_101e:; #line 750 "regression-compile-tmp/allimpc1-77.imp" Q = RQ; // 751 L99: R=RP; A(R)=NCONST #line 751 "regression-compile-tmp/allimpc1-77.imp" U_101d:; #line 751 "regression-compile-tmp/allimpc1-77.imp" R = RP; #line 751 "regression-compile-tmp/allimpc1-77.imp" A[((R) + ((int)(2)))] = NCONST; // 752 PSYM(VALUE) %IF(TYPEP=5%AND N#24)%OR(TYPEP#5 %AND(CPW-1)&NCONST#0) #line 752 "regression-compile-tmp/allimpc1-77.imp" if (((TYPEP) != (5))) goto L_00c8; #line 752 "regression-compile-tmp/allimpc1-77.imp" if (((N) != (24))) goto L_00c3; #line 752 "regression-compile-tmp/allimpc1-77.imp" L_00c8:; #line 752 "regression-compile-tmp/allimpc1-77.imp" if (((TYPEP) == (5))) goto L_00c9; #line 752 "regression-compile-tmp/allimpc1-77.imp" if ((((((((int)(CPW)) - (1))) & (NCONST))) == (0))) goto L_00c9; #line 752 "regression-compile-tmp/allimpc1-77.imp" L_00c3:; #line 752 "regression-compile-tmp/allimpc1-77.imp" PSYM(VALUE); #line 752 "regression-compile-tmp/allimpc1-77.imp" L_00c9:; // 753 %END #line 753 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CONSTLIST at level 2 // 754 %ROUTINE TEXTTEXT #line 754 "regression-compile-tmp/allimpc1-77.imp" void TEXTTEXT( void ) #line 754 "regression-compile-tmp/allimpc1-77.imp" { // 755 !%SHORTROUTINE // 756 %INTEGER S,J #line 756 "regression-compile-tmp/allimpc1-77.imp" int S; #line 756 "regression-compile-tmp/allimpc1-77.imp" int J; // 757 S=R; R=R+1 #line 757 "regression-compile-tmp/allimpc1-77.imp" S = R; #line 757 "regression-compile-tmp/allimpc1-77.imp" R = (((int)(R)) + (1)); // 758 ->L98 %UNLESS I='''' ;!FAIL UNLESS INITIAL QUOTE #line 758 "regression-compile-tmp/allimpc1-77.imp" if (((I) == (39))) goto L_00ca; #line 758 "regression-compile-tmp/allimpc1-77.imp" goto U_100a; #line 758 "regression-compile-tmp/allimpc1-77.imp" L_00ca:; // 759 Q=Q+1 #line 759 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); // 760 L1: I=CC(Q);A(R)=I;R=R+1 #line 760 "regression-compile-tmp/allimpc1-77.imp" U_100b:; #line 760 "regression-compile-tmp/allimpc1-77.imp" I = CC[Q]; #line 760 "regression-compile-tmp/allimpc1-77.imp" A[((R) + ((int)(2)))] = I; #line 760 "regression-compile-tmp/allimpc1-77.imp" R = (((int)(R)) + (1)); // 761 ->L31 %IF I='''' #line 761 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (39))) goto L_00cb; #line 761 "regression-compile-tmp/allimpc1-77.imp" goto U_100c; #line 761 "regression-compile-tmp/allimpc1-77.imp" L_00cb:; // 762 ->L32 %IF I=10 #line 762 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (10))) goto L_00cc; #line 762 "regression-compile-tmp/allimpc1-77.imp" goto U_100d; #line 762 "regression-compile-tmp/allimpc1-77.imp" L_00cc:; // 763 Q=Q+1;FAULT(106) %IF R-S>256 #line 763 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 763 "regression-compile-tmp/allimpc1-77.imp" if ((((((int)(R)) - (S))) <= (256))) goto L_00cd; #line 763 "regression-compile-tmp/allimpc1-77.imp" FAULT(106); #line 763 "regression-compile-tmp/allimpc1-77.imp" L_00cd:; // 764 ->L1 #line 764 "regression-compile-tmp/allimpc1-77.imp" goto U_100b; // 765 L32: READ LINE(1);Q=1;->L1 #line 765 "regression-compile-tmp/allimpc1-77.imp" U_100d:; #line 765 "regression-compile-tmp/allimpc1-77.imp" READLINE(1); #line 765 "regression-compile-tmp/allimpc1-77.imp" Q = 1; #line 765 "regression-compile-tmp/allimpc1-77.imp" goto U_100b; // 766 L31: ->L35 %UNLESS CC(Q+1)='''' #line 766 "regression-compile-tmp/allimpc1-77.imp" U_100c:; #line 766 "regression-compile-tmp/allimpc1-77.imp" if (((CC[(((int)(Q)) + (1))]) == (39))) goto L_00ce; #line 766 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; #line 766 "regression-compile-tmp/allimpc1-77.imp" L_00ce:; // 767 Q=Q+2;->L1 #line 767 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (2)); #line 767 "regression-compile-tmp/allimpc1-77.imp" goto U_100b; // 768 L35: R=R-2;J=R-S;->L36 %UNLESS J&1=0 #line 768 "regression-compile-tmp/allimpc1-77.imp" U_100e:; #line 768 "regression-compile-tmp/allimpc1-77.imp" R = (((int)(R)) - (2)); #line 768 "regression-compile-tmp/allimpc1-77.imp" J = (((int)(R)) - (S)); #line 768 "regression-compile-tmp/allimpc1-77.imp" if (((((J) & (1))) == (0))) goto L_00cf; #line 768 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; #line 768 "regression-compile-tmp/allimpc1-77.imp" L_00cf:; // 769 R=R+1;A(R)=0 #line 769 "regression-compile-tmp/allimpc1-77.imp" R = (((int)(R)) + (1)); #line 769 "regression-compile-tmp/allimpc1-77.imp" A[((R) + ((int)(2)))] = 0; // 770 L36: A(S)=J;Q=Q+1;HIT=1;->L99 #line 770 "regression-compile-tmp/allimpc1-77.imp" U_100f:; #line 770 "regression-compile-tmp/allimpc1-77.imp" A[((S) + ((int)(2)))] = J; #line 770 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 770 "regression-compile-tmp/allimpc1-77.imp" HIT = 1; #line 770 "regression-compile-tmp/allimpc1-77.imp" goto U_1010; // 771 L98: HIT=0 #line 771 "regression-compile-tmp/allimpc1-77.imp" U_100a:; #line 771 "regression-compile-tmp/allimpc1-77.imp" HIT = 0; // 772 L99: %END #line 772 "regression-compile-tmp/allimpc1-77.imp" U_1010:; #line 772 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block TEXTTEXT at level 2 // 773 %ROUTINE SET UP LIST #line 773 "regression-compile-tmp/allimpc1-77.imp" void SETUPLIST( void ) #line 773 "regression-compile-tmp/allimpc1-77.imp" { // 774 !%SHORTROUTINE // 775 %INTEGER J,K #line 775 "regression-compile-tmp/allimpc1-77.imp" int J; #line 775 "regression-compile-tmp/allimpc1-77.imp" int K; // 776 %CYCLE J=0,8,ASL-16 #line 776 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 8; _final = (((int)(ASL)) - (16)); J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 0, 8, (((int)(ASL)) - (16))"); J -= _increment; _control -= _increment; L_00d0:; if (J == _final) goto L_00d1; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 777 SET SHORT INTEGER(ADDR(ASLIST(J))+14, J) #line 777 "regression-compile-tmp/allimpc1-77.imp" SETSHORTINTEGER((((int)(_imp_ADDR(&ASLIST[J]))) + (14)), J); // 778 %REPEAT #line 778 "regression-compile-tmp/allimpc1-77.imp" goto L_00d0; #line 778 "regression-compile-tmp/allimpc1-77.imp" L_00d1:; // 779 INTEGER(ADDR(ASLIST(0)))=-1; ! INITIALISE BOTTOM CELL #line 779 "regression-compile-tmp/allimpc1-77.imp" *_imp_INTEGER(_imp_ADDR(&ASLIST[0])) = (-1); // 780 INTEGER(ADDR(ASLIST(4)))=X'FFFF0000' #line 780 "regression-compile-tmp/allimpc1-77.imp" *_imp_INTEGER(_imp_ADDR(&ASLIST[4])) = (-65536); // 781 ASL=ASL-8 #line 781 "regression-compile-tmp/allimpc1-77.imp" ASL = (((int)(ASL)) - (8)); // 782 %END #line 782 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SETUPLIST at level 2 // 783 %ROUTINE INITIALISE #line 783 "regression-compile-tmp/allimpc1-77.imp" void INITIALISE( void ) #line 783 "regression-compile-tmp/allimpc1-77.imp" { // 784 !%SHORTROUTINE // 785 %OWNBYTEINTEGERARRAY ILETT(1:320)=11, #line 785 "regression-compile-tmp/allimpc1-77.imp" static unsigned char ILETT[320] = { 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, 6, 82, 85, 78, 79, 85, 84, 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, 9, 77, 65, 80, 82, 69, 67, 79, 82, 68, 11, 66, 89, 84, 69, 73, 78, 84, 69, 71, 69, 82, 12, 83, 72, 79, 82, 84, 73, 78, 84, 69, 71, 69, 82, 6, 82, 65, 68, 73, 85, 83, 6, 65, 82, 67, 84, 65, 78, 6, 80, 65, 82, 73, 84, 89, 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, }; // 786 'S','E','L','E','C','T','I','N','P','U','T', // 787 12,'S','E','L','E','C','T','O','U','T','P','U','T', // 788 7,'N','E','W','L','I','N','E', // 789 5,'S','P','A','C','E', // 790 10,'S','K','I','P','S','Y','M','B','O','L', // 791 6,'R','U','N','O','U','T', // 792 8,'N','E','W','L','I','N','E','S', // 793 6,'S','P','A','C','E','S', // 794 10,'N','E','X','T','S','Y','M','B','O','L', // 795 11,'P','R','I','N','T','S','Y','M','B','O','L', // 796 10,'R','E','A','D','S','Y','M','B','O','L', // 797 4,'R','E','A','D', // 798 5,'W','R','I','T','E', // 799 7,'N','E','W','P','A','G','E', // 800 4,'A','D','D','R', // 801 6,'A','R','C','S','I','N', // 802 3,'I','N','T', // 803 5,'I','N','T','P','T', // 804 6,'F','R','A','C','P','T', // 805 5,'P','R','I','N','T', // 806 7,'P','R','I','N','T','F','L', // 807 4,'R','E','A','L', // 808 7,'I','N','T','E','G','E','R', // 809 3,'M','O','D', // 810 6,'A','R','C','C','O','S', // 811 4,'S','Q','R','T', // 812 3,'L','O','G', // 813 3,'S','I','N', // 814 3,'C','O','S', // 815 3,'T','A','N', // 816 3,'E','X','P', // 817 9,'M','A','P','R','E','C','O','R','D' , // 818 11,'B','Y','T','E','I','N','T','E','G','E','R', // 819 12,'S','H','O','R','T','I','N','T','E','G','E','R', // 820 6,'R','A','D','I','U','S', // 821 6,'A','R','C','T','A','N', // 822 6,'P','A','R','I','T','Y', // 823 11,'P','R','I','N','T','S','T','R','I','N','G', // 824 2,'N','L', // 825 8,'L','O','N','G','R','E','A','L', // 826 7,'P','R','I','N','T','C','H', // 827 6,'R','E','A','D','C','H', // 828 6,'S','T','R','I','N','G' // 829 %OWNSHORTINTEGERARRAY IWORD(0:42)=1, #line 829 "regression-compile-tmp/allimpc1-77.imp" static short IWORD[43] = { 1, 13, 26, 34, 40, 51, 58, 67, 74, 85, 97, 108, 113, 119, 127, 132, 139, 143, 149, 156, 162, 170, 175, 183, 187, 194, 199, 203, 207, 211, 215, 219, 229, 241, 254, 261, 268, 275, 287, 290, 299, 307, 314, }; // 830 13,26,34,40,51,58,67,74,85,97, // 831 108,113,119,127,132,139,143,149,156,162, // 832 170,175,183,187,194,199,203,207,211,215, // 833 219,229,241,254,261,268,275,287,290,299,307, // 834 314 // 835 %INTEGER I #line 835 "regression-compile-tmp/allimpc1-77.imp" int I; // 836 // 837 open input(1, "TEST.imp") #line 837 "regression-compile-tmp/allimpc1-77.imp" _imp_OPENINPUT(1, _imp_str_literal("TEST.imp")); // 838 select input(1) #line 838 "regression-compile-tmp/allimpc1-77.imp" _imp_SELECTINPUT(1); // 839 // 840 CABUF=0; PPCURR=0; QPREAL=0; OLDLINE=0 #line 840 "regression-compile-tmp/allimpc1-77.imp" CABUF = 0; #line 840 "regression-compile-tmp/allimpc1-77.imp" PPCURR = 0; #line 840 "regression-compile-tmp/allimpc1-77.imp" QPREAL = 0; #line 840 "regression-compile-tmp/allimpc1-77.imp" OLDLINE = 0; // 841 LINE=0; RLEVEL=0; NMAX=0; CONSTPTR=0 #line 841 "regression-compile-tmp/allimpc1-77.imp" LINE = 0; #line 841 "regression-compile-tmp/allimpc1-77.imp" RLEVEL = 0; #line 841 "regression-compile-tmp/allimpc1-77.imp" NMAX = 0; #line 841 "regression-compile-tmp/allimpc1-77.imp" CONSTPTR = 0; // 842 LEVEL=0; CA=0; AFLAG=0; FFLAG=0; SBFLAG=0 #line 842 "regression-compile-tmp/allimpc1-77.imp" LEVEL = 0; #line 842 "regression-compile-tmp/allimpc1-77.imp" CA = 0; #line 842 "regression-compile-tmp/allimpc1-77.imp" AFLAG = 0; #line 842 "regression-compile-tmp/allimpc1-77.imp" FFLAG = 0; #line 842 "regression-compile-tmp/allimpc1-77.imp" SBFLAG = 0; // 843 FAULTY=0; PERM=0; MCSWITCH=0; ALL LONG=0 #line 843 "regression-compile-tmp/allimpc1-77.imp" FAULTY = 0; #line 843 "regression-compile-tmp/allimpc1-77.imp" PERM = 0; #line 843 "regression-compile-tmp/allimpc1-77.imp" MCSWITCH = 0; #line 843 "regression-compile-tmp/allimpc1-77.imp" ALLLONG = 0; // 844 DCOMP=0; COMPILER=0; CPRMODE=0; PRINT MAP=0 #line 844 "regression-compile-tmp/allimpc1-77.imp" DCOMP = 0; #line 844 "regression-compile-tmp/allimpc1-77.imp" COMPILER = 0; #line 844 "regression-compile-tmp/allimpc1-77.imp" CPRMODE = 0; #line 844 "regression-compile-tmp/allimpc1-77.imp" PRINTMAP = 0; // 845 NEXT=1; NR=0; LDPTR=0; NEPS=0; EPLINK=0 #line 845 "regression-compile-tmp/allimpc1-77.imp" NEXT = 1; #line 845 "regression-compile-tmp/allimpc1-77.imp" NR = 0; #line 845 "regression-compile-tmp/allimpc1-77.imp" LDPTR = 0; #line 845 "regression-compile-tmp/allimpc1-77.imp" NEPS = 0; #line 845 "regression-compile-tmp/allimpc1-77.imp" EPLINK = 0; // 846 RBASE=0; STRINST=0 #line 846 "regression-compile-tmp/allimpc1-77.imp" RBASE = 0; #line 846 "regression-compile-tmp/allimpc1-77.imp" STRINST = 0; // 847 IMAX=(-1)>>1;PLABEL=24999 #line 847 "regression-compile-tmp/allimpc1-77.imp" IMAX = (int)((((unsigned int)((-1))) >> (1))); #line 847 "regression-compile-tmp/allimpc1-77.imp" PLABEL = 24999; // 848 SSTL=0; STMTS=0; SNUM=0 #line 848 "regression-compile-tmp/allimpc1-77.imp" SSTL = 0; #line 848 "regression-compile-tmp/allimpc1-77.imp" STMTS = 0; #line 848 "regression-compile-tmp/allimpc1-77.imp" SNUM = 0; // 849 LABSET=3<<30;LETT(0)=0 #line 849 "regression-compile-tmp/allimpc1-77.imp" LABSET = ((3) << (30)); #line 849 "regression-compile-tmp/allimpc1-77.imp" LETT[0] = 0; // 850 N0=41; N=12 #line 850 "regression-compile-tmp/allimpc1-77.imp" N0 = 41; #line 850 "regression-compile-tmp/allimpc1-77.imp" N = 12; // 851 CHECKSP=1 ; CHECKS=1 #line 851 "regression-compile-tmp/allimpc1-77.imp" CHECKSP = 1; #line 851 "regression-compile-tmp/allimpc1-77.imp" CHECKS = 1; // 852 LINENOS=1; DIAGS1=1; QU=1; MONE=1 #line 852 "regression-compile-tmp/allimpc1-77.imp" LINENOS = 1; #line 852 "regression-compile-tmp/allimpc1-77.imp" DIAGS1 = 1; #line 852 "regression-compile-tmp/allimpc1-77.imp" QU = 1; #line 852 "regression-compile-tmp/allimpc1-77.imp" MONE = 1; // 853 LIST=1; SFLABEL=20999; UNASS=1 #line 853 "regression-compile-tmp/allimpc1-77.imp" LIST = 1; #line 853 "regression-compile-tmp/allimpc1-77.imp" SFLABEL = 20999; #line 853 "regression-compile-tmp/allimpc1-77.imp" UNASS = 1; // 854 OWNLINK=0; XREFLINK=136 #line 854 "regression-compile-tmp/allimpc1-77.imp" OWNLINK = 0; #line 854 "regression-compile-tmp/allimpc1-77.imp" XREFLINK = 136; // 855 I=COM(24) #line 855 "regression-compile-tmp/allimpc1-77.imp" I = COM(24); // 856 LIST=0 %IF I&2#0 #line 856 "regression-compile-tmp/allimpc1-77.imp" if (((((I) & (2))) == (0))) goto L_00d3; #line 856 "regression-compile-tmp/allimpc1-77.imp" LIST = 0; #line 856 "regression-compile-tmp/allimpc1-77.imp" L_00d3:; // 857 LINENOS=0 %IF I&4#0 #line 857 "regression-compile-tmp/allimpc1-77.imp" if (((((I) & (4))) == (0))) goto L_00d4; #line 857 "regression-compile-tmp/allimpc1-77.imp" LINENOS = 0; #line 857 "regression-compile-tmp/allimpc1-77.imp" L_00d4:; // 858 UNASS=0 %IF I&16#0 #line 858 "regression-compile-tmp/allimpc1-77.imp" if (((((I) & (16))) == (0))) goto L_00d5; #line 858 "regression-compile-tmp/allimpc1-77.imp" UNASS = 0; #line 858 "regression-compile-tmp/allimpc1-77.imp" L_00d5:; // 859 CHECKS=0 %IF I&32#0 #line 859 "regression-compile-tmp/allimpc1-77.imp" if (((((I) & (32))) == (0))) goto L_00d6; #line 859 "regression-compile-tmp/allimpc1-77.imp" CHECKS = 0; #line 859 "regression-compile-tmp/allimpc1-77.imp" L_00d6:; // 860 PRINTMAP=1 %IF I&X'8000'#0 #line 860 "regression-compile-tmp/allimpc1-77.imp" if (((((I) & (32768))) == (0))) goto L_00d7; #line 860 "regression-compile-tmp/allimpc1-77.imp" PRINTMAP = 1; #line 860 "regression-compile-tmp/allimpc1-77.imp" L_00d7:; // 861 DIAGS1=0 %IF I&64#0 #line 861 "regression-compile-tmp/allimpc1-77.imp" if (((((I) & (64))) == (0))) goto L_00d8; #line 861 "regression-compile-tmp/allimpc1-77.imp" DIAGS1 = 0; #line 861 "regression-compile-tmp/allimpc1-77.imp" L_00d8:; // 862 %CYCLE I=0,1,MAXLEVELS #line 862 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = MAXLEVELS; I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, MAXLEVELS"); I -= _increment; _control -= _increment; L_00d9:; if (I == _final) goto L_00da; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 863 SET(I)=0; CODEBASE(I)=0; FREG(I)=0; RAL(I)=0 #line 863 "regression-compile-tmp/allimpc1-77.imp" SET[I] = 0; #line 863 "regression-compile-tmp/allimpc1-77.imp" CODEBASE[I] = 0; #line 863 "regression-compile-tmp/allimpc1-77.imp" FREG[I] = 0; #line 863 "regression-compile-tmp/allimpc1-77.imp" RAL[I] = 0; // 864 LWSP(I)=0; MDARR(I)=0; RNEXT(I)=0; STRWSP(I)=0 #line 864 "regression-compile-tmp/allimpc1-77.imp" LWSP[I] = 0; #line 864 "regression-compile-tmp/allimpc1-77.imp" MDARR[I] = 0; #line 864 "regression-compile-tmp/allimpc1-77.imp" RNEXT[I] = 0; #line 864 "regression-compile-tmp/allimpc1-77.imp" STRWSP[I] = 0; // 865 CYCLE(I)=0; JUMP(I)=0; NAME(I)=0 #line 865 "regression-compile-tmp/allimpc1-77.imp" CYCLE[I] = 0; #line 865 "regression-compile-tmp/allimpc1-77.imp" JUMP[I] = 0; #line 865 "regression-compile-tmp/allimpc1-77.imp" NAME[I] = 0; // 866 LABEL(I)=0; FLAG(I)=0; SBR(I)=0; WSP(I)=0 #line 866 "regression-compile-tmp/allimpc1-77.imp" LABEL[I] = 0; #line 866 "regression-compile-tmp/allimpc1-77.imp" FLAG[I] = 0; #line 866 "regression-compile-tmp/allimpc1-77.imp" SBR[I] = 0; #line 866 "regression-compile-tmp/allimpc1-77.imp" WSP[I] = 0; // 867 %REPEAT #line 867 "regression-compile-tmp/allimpc1-77.imp" goto L_00d9; #line 867 "regression-compile-tmp/allimpc1-77.imp" L_00da:; // 868 %CYCLE I=0,1,50 #line 868 "regression-compile-tmp/allimpc1-77.imp" I = (-1); if ((((50)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 50"); L_00dc:; if (I == 50) goto L_00dd; I += 1; // 869 ST(I)=0; PAGENOS(I)=0 #line 869 "regression-compile-tmp/allimpc1-77.imp" ST[I] = 0; #line 869 "regression-compile-tmp/allimpc1-77.imp" PAGENOS[I] = 0; // 870 REGISTER(I)=0 %IF I<16 #line 870 "regression-compile-tmp/allimpc1-77.imp" if (((I) >= (16))) goto L_00df; #line 870 "regression-compile-tmp/allimpc1-77.imp" REGISTER[I] = 0; #line 870 "regression-compile-tmp/allimpc1-77.imp" L_00df:; // 871 UVARREG(I)=0 %IF 5<=I<=8 #line 871 "regression-compile-tmp/allimpc1-77.imp" if ((((5) > (I))) || (((I) > (8)))) goto L_00e0; #line 871 "regression-compile-tmp/allimpc1-77.imp" UVARREG[(((int)(I)) - (5))] = 0; #line 871 "regression-compile-tmp/allimpc1-77.imp" L_00e0:; // 872 %REPEAT; PAGENOS(1)=10 #line 872 "regression-compile-tmp/allimpc1-77.imp" goto L_00dc; #line 872 "regression-compile-tmp/allimpc1-77.imp" L_00dd:; #line 872 "regression-compile-tmp/allimpc1-77.imp" PAGENOS[1] = 10; // 873 %CYCLE I=0,1,NNAMES #line 873 "regression-compile-tmp/allimpc1-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_00e1:; if (I == _final) goto L_00e2; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 874 WORD(I)=0; TAGS(I)=0 #line 874 "regression-compile-tmp/allimpc1-77.imp" WORD[I] = 0; #line 874 "regression-compile-tmp/allimpc1-77.imp" TAGS[I] = 0; // 875 %REPEAT #line 875 "regression-compile-tmp/allimpc1-77.imp" goto L_00e1; #line 875 "regression-compile-tmp/allimpc1-77.imp" L_00e2:; // 876 SET UP LIST #line 876 "regression-compile-tmp/allimpc1-77.imp" SETUPLIST(); // 877 PCLOD(0); ! ST 12,28(GLA)--L 12,92(GLA) #line 877 "regression-compile-tmp/allimpc1-77.imp" PCLOD(0); // 878 PCLOD(5); ! ST 15,60(11)--BAL 15,RTI #line 878 "regression-compile-tmp/allimpc1-77.imp" PCLOD(5); // 879 A(1)=28 #line 879 "regression-compile-tmp/allimpc1-77.imp" A[3] = 28; // 880 %CYCLE I=0,1,42 #line 880 "regression-compile-tmp/allimpc1-77.imp" I = (-1); if ((((42)-(0)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, 42"); L_00e4:; if (I == 42) goto L_00e5; I += 1; // 881 J=IWORD(I) #line 881 "regression-compile-tmp/allimpc1-77.imp" J = IWORD[I]; // 882 %CYCLE K=1,1,ILETT(J) #line 882 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = (ILETT-1)[J]; K = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle K = 1, 1, (ILETT-1)[J]"); K -= _increment; _control -= _increment; L_00e7:; if (K == _final) goto L_00e8; K += _increment; _control += _increment; if (K != _control) _imp_signal(4,2,0,"Corrupt control variable K"); /* FOR loop control variable corrupted */ } // 883 CC(K)=ILETT(J+K); ! COPY SPECIAL NAMES TO SOURCE #line 883 "regression-compile-tmp/allimpc1-77.imp" CC[K] = (ILETT-1)[(((int)(J)) + (K))]; // 884 %REPEAT; CC(K+1)=';' #line 884 "regression-compile-tmp/allimpc1-77.imp" goto L_00e7; #line 884 "regression-compile-tmp/allimpc1-77.imp" L_00e8:; #line 884 "regression-compile-tmp/allimpc1-77.imp" CC[(((int)(K)) + (1))] = 59; // 885 R=2;Q=1; PNAME; ! SPECIAL NAME TO DICTIONARY #line 885 "regression-compile-tmp/allimpc1-77.imp" R = 2; #line 885 "regression-compile-tmp/allimpc1-77.imp" Q = 1; #line 885 "regression-compile-tmp/allimpc1-77.imp" PNAME(); // 886 CSS(1); %REPEAT; ! AND COMPILED #line 886 "regression-compile-tmp/allimpc1-77.imp" CSS(1); #line 886 "regression-compile-tmp/allimpc1-77.imp" goto L_00e4; #line 886 "regression-compile-tmp/allimpc1-77.imp" L_00e5:; // 887 A(1)=12; CSS(1); ! COMPILE A BEGIN #line 887 "regression-compile-tmp/allimpc1-77.imp" A[3] = 12; #line 887 "regression-compile-tmp/allimpc1-77.imp" CSS(1); // 888 %END #line 888 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block INITIALISE at level 2 // 889 ! // 890 %COMMENT THE NEXT 4 ROUTINES CAN BE MACROISED USING MVC // 891 ! // 892 %ROUTINE TOAR4(%INTEGER PTR,VALUE) #line 892 "regression-compile-tmp/allimpc1-77.imp" void TOAR4( int PTR, int VALUE ) #line 892 "regression-compile-tmp/allimpc1-77.imp" { // 893 %INTEGER AD; AD=ADDR(VALUE) #line 893 "regression-compile-tmp/allimpc1-77.imp" int AD; #line 893 "regression-compile-tmp/allimpc1-77.imp" AD = _imp_ADDR(&VALUE); // 894 A(PTR)<-SHORT INTEGER(AD) #line 894 "regression-compile-tmp/allimpc1-77.imp" A[((PTR) + ((int)(2)))] = *_imp_SHORTINTEGER(AD); // 895 A(PTR+1)<-SHORT INTEGER (AD+2) #line 895 "regression-compile-tmp/allimpc1-77.imp" A[(((unsigned char)((((int)(PTR)) + (1)))) + (2))] = *_imp_SHORTINTEGER((((int)(AD)) + (2))); // 896 %END #line 896 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block TOAR4 at level 2 // 897 %ROUTINE TOAR8(%INTEGER PTR,%LONGREAL VALUE) #line 897 "regression-compile-tmp/allimpc1-77.imp" void TOAR8( int PTR, double VALUE ) #line 897 "regression-compile-tmp/allimpc1-77.imp" { // 898 %INTEGER AD; AD=ADDR(VALUE) #line 898 "regression-compile-tmp/allimpc1-77.imp" int AD; #line 898 "regression-compile-tmp/allimpc1-77.imp" AD = _imp_ADDR(&VALUE); // 899 A(PTR)<-SHORT INTEGER(AD) #line 899 "regression-compile-tmp/allimpc1-77.imp" A[((PTR) + ((int)(2)))] = *_imp_SHORTINTEGER(AD); // 900 A(PTR+1)<-SHORT INTEGER(AD+2) #line 900 "regression-compile-tmp/allimpc1-77.imp" A[(((unsigned char)((((int)(PTR)) + (1)))) + (2))] = *_imp_SHORTINTEGER((((int)(AD)) + (2))); // 901 A(PTR+2)<-SHORT INTEGER(AD+4) #line 901 "regression-compile-tmp/allimpc1-77.imp" A[(((unsigned char)((((int)(PTR)) + (2)))) + (2))] = *_imp_SHORTINTEGER((((int)(AD)) + (4))); // 902 A(PTR+3)<-SHORT INTEGER(AD+6) #line 902 "regression-compile-tmp/allimpc1-77.imp" A[(((unsigned char)((((int)(PTR)) + (3)))) + (2))] = *_imp_SHORTINTEGER((((int)(AD)) + (6))); // 903 %END #line 903 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block TOAR8 at level 2 // 904 %ROUTINE FROMAR4(%INTEGER PTR,%INTEGERNAME VALUE) #line 904 "regression-compile-tmp/allimpc1-77.imp" void FROMAR4( int PTR, int /*name*/*VALUE ) #line 904 "regression-compile-tmp/allimpc1-77.imp" { // 905 %INTEGER AD; AD=ADDR(VALUE) #line 905 "regression-compile-tmp/allimpc1-77.imp" int AD; #line 905 "regression-compile-tmp/allimpc1-77.imp" AD = _imp_ADDR(VALUE); // 906 SET SHORT INTEGER(AD, A(PTR)) #line 906 "regression-compile-tmp/allimpc1-77.imp" SETSHORTINTEGER(AD, A[((PTR) + ((int)(2)))]); // 907 SET SHORT INTEGER(AD+2, A(PTR+1)) #line 907 "regression-compile-tmp/allimpc1-77.imp" SETSHORTINTEGER((((int)(AD)) + (2)), A[(((unsigned char)((((int)(PTR)) + (1)))) + (2))]); // 908 %END #line 908 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block FROMAR4 at level 2 // 909 %ROUTINE FROMAR8(%INTEGER PTR,%LONGREALNAME VALUE) #line 909 "regression-compile-tmp/allimpc1-77.imp" void FROMAR8( int PTR, double /*name*/*VALUE ) #line 909 "regression-compile-tmp/allimpc1-77.imp" { // 910 %INTEGER AD; AD=ADDR(VALUE) #line 910 "regression-compile-tmp/allimpc1-77.imp" int AD; #line 910 "regression-compile-tmp/allimpc1-77.imp" AD = _imp_ADDR(VALUE); // 911 SET SHORT INTEGER(AD, A(PTR)) #line 911 "regression-compile-tmp/allimpc1-77.imp" SETSHORTINTEGER(AD, A[((PTR) + ((int)(2)))]); // 912 SET SHORT INTEGER(AD+2, A(PTR+1)) #line 912 "regression-compile-tmp/allimpc1-77.imp" SETSHORTINTEGER((((int)(AD)) + (2)), A[(((unsigned char)((((int)(PTR)) + (1)))) + (2))]); // 913 SET SHORT INTEGER(AD+4, A(PTR+2)) #line 913 "regression-compile-tmp/allimpc1-77.imp" SETSHORTINTEGER((((int)(AD)) + (4)), A[(((unsigned char)((((int)(PTR)) + (2)))) + (2))]); // 914 SET SHORT INTEGER(AD+6, A(PTR+3)) #line 914 "regression-compile-tmp/allimpc1-77.imp" SETSHORTINTEGER((((int)(AD)) + (6)), A[(((unsigned char)((((int)(PTR)) + (3)))) + (2))]); // 915 %END #line 915 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block FROMAR8 at level 2 // 916 %ROUTINE PRINTNAME (%INTEGER N) #line 916 "regression-compile-tmp/allimpc1-77.imp" void PRINTNAME( int N ) #line 916 "regression-compile-tmp/allimpc1-77.imp" { // 917 !%SHORTROUTINE // 918 %INTEGER J,V #line 918 "regression-compile-tmp/allimpc1-77.imp" int J; #line 918 "regression-compile-tmp/allimpc1-77.imp" int V; // 919 ->L4 %IF N>=0; N=-N #line 919 "regression-compile-tmp/allimpc1-77.imp" if (((N) < (0))) goto L_00ea; #line 919 "regression-compile-tmp/allimpc1-77.imp" goto U_100c; #line 919 "regression-compile-tmp/allimpc1-77.imp" L_00ea:; #line 919 "regression-compile-tmp/allimpc1-77.imp" N = (-(N)); // 920 ->L5 %UNLESS 16384<=N<=16384+NNAMES #line 920 "regression-compile-tmp/allimpc1-77.imp" if ((((16384) > (N))) || (((N) <= ((((int)(16384)) + (NNAMES)))))) goto L_00eb; #line 920 "regression-compile-tmp/allimpc1-77.imp" L_00e6:; #line 920 "regression-compile-tmp/allimpc1-77.imp" goto U_100d; #line 920 "regression-compile-tmp/allimpc1-77.imp" L_00eb:; // 921 N=N-16384; ->L4 #line 921 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) - (16384)); #line 921 "regression-compile-tmp/allimpc1-77.imp" goto U_100c; // 922 L5: WRITE(N,1); ->L3 #line 922 "regression-compile-tmp/allimpc1-77.imp" U_100d:; #line 922 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(N, 1); #line 922 "regression-compile-tmp/allimpc1-77.imp" goto U_100e; // 923 L4: SPACE; V=WORD(N) #line 923 "regression-compile-tmp/allimpc1-77.imp" U_100c:; #line 923 "regression-compile-tmp/allimpc1-77.imp" _imp_SPACE(); #line 923 "regression-compile-tmp/allimpc1-77.imp" V = WORD[N]; // 924 %CYCLE J=1,1,LETT(V) #line 924 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = LETT[V]; J = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, LETT[V]"); J -= _increment; _control -= _increment; L_00ec:; if (J == _final) goto L_00ed; J += _increment; _control += _increment; if (J != _control) _imp_signal(4,2,0,"Corrupt control variable J"); /* FOR loop control variable corrupted */ } // 925 PRINT SYMBOL(LETT(V+J)) #line 925 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSYMBOL(LETT[(((int)(V)) + (J))]); // 926 %REPEAT #line 926 "regression-compile-tmp/allimpc1-77.imp" goto L_00ec; #line 926 "regression-compile-tmp/allimpc1-77.imp" L_00ed:; // 927 L3: %END #line 927 "regression-compile-tmp/allimpc1-77.imp" U_100e:; #line 927 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PRINTNAME at level 2 // 928 %ROUTINE PCLOD(%INTEGER PTR) #line 928 "regression-compile-tmp/allimpc1-77.imp" void PCLOD( int PTR ) #line 928 "regression-compile-tmp/allimpc1-77.imp" { // 929 %INTEGER I #line 929 "regression-compile-tmp/allimpc1-77.imp" int I; // 930 %CYCLE I=PTR+1,1,PTR+CLODS(PTR) #line 930 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = (((int)(PTR)) + (1)); _increment = 1; _final = ((PTR) + ((int)(CLODS[PTR]))); I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = (((int)(PTR)) + (1)), 1, ((PTR) + ((int)(CLODS[PTR])))"); I -= _increment; _control -= _increment; L_00ef:; if (I == _final) goto L_00f0; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 931 PLANT(CLODS(I)) #line 931 "regression-compile-tmp/allimpc1-77.imp" PLANT(CLODS[I]); // 932 %REPEAT #line 932 "regression-compile-tmp/allimpc1-77.imp" goto L_00ef; #line 932 "regression-compile-tmp/allimpc1-77.imp" L_00f0:; // 933 %END #line 933 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PCLOD at level 2 // 934 %ROUTINE PACLOD(%INTEGER PTR,AT,VALUE) #line 934 "regression-compile-tmp/allimpc1-77.imp" void PACLOD( int PTR, int AT, int VALUE ) #line 934 "regression-compile-tmp/allimpc1-77.imp" { // 935 %INTEGER I,J,K #line 935 "regression-compile-tmp/allimpc1-77.imp" int I; #line 935 "regression-compile-tmp/allimpc1-77.imp" int J; #line 935 "regression-compile-tmp/allimpc1-77.imp" int K; // 936 J=CLODS(PTR); AT=AT+PTR #line 936 "regression-compile-tmp/allimpc1-77.imp" J = CLODS[PTR]; #line 936 "regression-compile-tmp/allimpc1-77.imp" AT = (((int)(AT)) + (PTR)); // 937 %CYCLE I=PTR+1,1,PTR+J #line 937 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = (((int)(PTR)) + (1)); _increment = 1; _final = (((int)(PTR)) + (J)); I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = (((int)(PTR)) + (1)), 1, (((int)(PTR)) + (J))"); I -= _increment; _control -= _increment; L_00f2:; if (I == _final) goto L_00f3; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 938 K=CLODS(I) #line 938 "regression-compile-tmp/allimpc1-77.imp" K = CLODS[I]; // 939 K=K!VALUE %IF I=AT #line 939 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (AT))) goto L_00f5; #line 939 "regression-compile-tmp/allimpc1-77.imp" K = ((K) | (VALUE)); #line 939 "regression-compile-tmp/allimpc1-77.imp" L_00f5:; // 940 PLANT(K);%REPEAT #line 940 "regression-compile-tmp/allimpc1-77.imp" PLANT(K); #line 940 "regression-compile-tmp/allimpc1-77.imp" goto L_00f2; #line 940 "regression-compile-tmp/allimpc1-77.imp" L_00f3:; // 941 %END #line 941 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PACLOD at level 2 // 942 %ROUTINE PLANT(%INTEGER VALUE) #line 942 "regression-compile-tmp/allimpc1-77.imp" void PLANT( int VALUE ) #line 942 "regression-compile-tmp/allimpc1-77.imp" { // 943 !%SHORTROUTINE // 944 CODE(PPCURR)<-VALUE #line 944 "regression-compile-tmp/allimpc1-77.imp" CODE[PPCURR] = VALUE; // 945 PPCURR=PPCURR+1; CA=CA+2 #line 945 "regression-compile-tmp/allimpc1-77.imp" PPCURR = (((int)(PPCURR)) + (1)); #line 945 "regression-compile-tmp/allimpc1-77.imp" CA = (((int)(CA)) + (2)); // 946 %RETURN %UNLESS PPCURR=192 #line 946 "regression-compile-tmp/allimpc1-77.imp" if (((PPCURR) == (192))) goto L_00f6; #line 946 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 946 "regression-compile-tmp/allimpc1-77.imp" L_00f6:; // 947 LPUT(1,384,CABUF,ADDR(CODE(0))) #line 947 "regression-compile-tmp/allimpc1-77.imp" LPUT(1, 384, CABUF, _imp_ADDR(&CODE[0])); // 948 PPCURR=0; CABUF=CA #line 948 "regression-compile-tmp/allimpc1-77.imp" PPCURR = 0; #line 948 "regression-compile-tmp/allimpc1-77.imp" CABUF = CA; // 949 %END #line 949 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PLANT at level 2 // 950 %ROUTINE PRR (%INTEGER OPCODE,R1,R2) #line 950 "regression-compile-tmp/allimpc1-77.imp" void PRR( int OPCODE, int R1, int R2 ) #line 950 "regression-compile-tmp/allimpc1-77.imp" { // 951 PLANT(OPCODE<<8!R1<<4!R2) #line 951 "regression-compile-tmp/allimpc1-77.imp" PLANT(((((((OPCODE) << (8))) | (((R1) << (4))))) | (R2))); // 952 %END #line 952 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PRR at level 2 // 953 %ROUTINE PRX(%INTEGER OPCODE,R1,R2,BASE,DISP) #line 953 "regression-compile-tmp/allimpc1-77.imp" void PRX( int OPCODE, int R1, int R2, int BASE, int DISP ) #line 953 "regression-compile-tmp/allimpc1-77.imp" { // 954 PLANT(OPCODE<<8!R1<<4!R2) #line 954 "regression-compile-tmp/allimpc1-77.imp" PLANT(((((((OPCODE) << (8))) | (((R1) << (4))))) | (R2))); // 955 PLANT(BASE<<12!DISP) #line 955 "regression-compile-tmp/allimpc1-77.imp" PLANT(((((BASE) << (12))) | (DISP))); // 956 %END #line 956 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PRX at level 2 // 957 %ROUTINE PSI(%INTEGER OPCODE,J,BASE,DISP) #line 957 "regression-compile-tmp/allimpc1-77.imp" void PSI( int OPCODE, int J, int BASE, int DISP ) #line 957 "regression-compile-tmp/allimpc1-77.imp" { // 958 PLANT(OPCODE<<8!J) #line 958 "regression-compile-tmp/allimpc1-77.imp" PLANT(((((OPCODE) << (8))) | (J))); // 959 PLANT(BASE<<12!DISP) #line 959 "regression-compile-tmp/allimpc1-77.imp" PLANT(((((BASE) << (12))) | (DISP))); // 960 %END #line 960 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PSI at level 2 // 961 %ROUTINE PSS(%INTEGER OPCODE,N,BASE,DISP,P,Q) #line 961 "regression-compile-tmp/allimpc1-77.imp" void PSS( int OPCODE, int N, int BASE, int DISP, int P, int Q ) #line 961 "regression-compile-tmp/allimpc1-77.imp" { // 962 PLANT(OPCODE<<8!(N-1)) #line 962 "regression-compile-tmp/allimpc1-77.imp" PLANT(((((OPCODE) << (8))) | ((((int)(N)) - (1))))); // 963 PLANT(BASE<<12!DISP) #line 963 "regression-compile-tmp/allimpc1-77.imp" PLANT(((((BASE) << (12))) | (DISP))); // 964 PLANT(P<<12!Q) #line 964 "regression-compile-tmp/allimpc1-77.imp" PLANT(((((P) << (12))) | (Q))); // 965 %END #line 965 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PSS at level 2 // 966 %ROUTINE PCONST(%INTEGER X) #line 966 "regression-compile-tmp/allimpc1-77.imp" void PCONST( int X ) #line 966 "regression-compile-tmp/allimpc1-77.imp" { // 967 PLANT(X>>16); PLANT(X&X'FFFF') #line 967 "regression-compile-tmp/allimpc1-77.imp" PLANT((int)((((unsigned int)(X)) >> (16)))); #line 967 "regression-compile-tmp/allimpc1-77.imp" PLANT(((X) & (65535))); // 968 %END #line 968 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PCONST at level 2 // 969 %ROUTINE CNOP(%INTEGER I,J) #line 969 "regression-compile-tmp/allimpc1-77.imp" void CNOP( int I, int J ) #line 969 "regression-compile-tmp/allimpc1-77.imp" { // 970 J=J-1 #line 970 "regression-compile-tmp/allimpc1-77.imp" J = (((int)(J)) - (1)); // 971 L1: ->L9 %IF CA&J=I; PLANT(X'0700'); ->L1 #line 971 "regression-compile-tmp/allimpc1-77.imp" U_100b:; #line 971 "regression-compile-tmp/allimpc1-77.imp" if (((((CA) & (J))) != (I))) goto L_00f7; #line 971 "regression-compile-tmp/allimpc1-77.imp" goto U_100c; #line 971 "regression-compile-tmp/allimpc1-77.imp" L_00f7:; #line 971 "regression-compile-tmp/allimpc1-77.imp" PLANT(1792); #line 971 "regression-compile-tmp/allimpc1-77.imp" goto U_100b; // 972 L9: %END #line 972 "regression-compile-tmp/allimpc1-77.imp" U_100c:; #line 972 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CNOP at level 2 // 973 %ROUTINE PSYM(%INTEGER X) #line 973 "regression-compile-tmp/allimpc1-77.imp" void PSYM( int X ) #line 973 "regression-compile-tmp/allimpc1-77.imp" { // 974 LPUT(5,4,CONSTPTR<<2,ADDR(X)) #line 974 "regression-compile-tmp/allimpc1-77.imp" LPUT(5, 4, ((CONSTPTR) << (2)), _imp_ADDR(&X)); // 975 CONSTPTR=CONSTPTR+1 #line 975 "regression-compile-tmp/allimpc1-77.imp" CONSTPTR = (((int)(CONSTPTR)) + (1)); // 976 %END #line 976 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PSYM at level 2 // 977 %ROUTINE PLUG(%INTEGER J,K) #line 977 "regression-compile-tmp/allimpc1-77.imp" void PLUG( int J, int K ) #line 977 "regression-compile-tmp/allimpc1-77.imp" { // 978 !%SHORTROUTINE // 979 ->INBUF %IF J>=CABUF #line 979 "regression-compile-tmp/allimpc1-77.imp" if (((J) < (CABUF))) goto L_00f8; #line 979 "regression-compile-tmp/allimpc1-77.imp" goto U_100b; #line 979 "regression-compile-tmp/allimpc1-77.imp" L_00f8:; // 980 LPUT(1,2,J,ADDR(K)+2) ; ->L99 #line 980 "regression-compile-tmp/allimpc1-77.imp" LPUT(1, 2, J, (((int)(_imp_ADDR(&K))) + (2))); #line 980 "regression-compile-tmp/allimpc1-77.imp" goto U_100c; // 981 INBUF: CODE((J-CABUF)>>1)<-K #line 981 "regression-compile-tmp/allimpc1-77.imp" U_100b:; #line 981 "regression-compile-tmp/allimpc1-77.imp" CODE[(((((((int)(J)) - (CABUF)))) >> (1)))] = K; // 982 L99: %END #line 982 "regression-compile-tmp/allimpc1-77.imp" U_100c:; #line 982 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PLUG at level 2 // 983 %ROUTINE PRHEX(%INTEGER VALUE,PLACES) #line 983 "regression-compile-tmp/allimpc1-77.imp" void PRHEX( int VALUE, int PLACES ) #line 983 "regression-compile-tmp/allimpc1-77.imp" { // 984 %OWNBYTEINTEGERARRAY HEX(0:15)='0','1','2','3','4', #line 984 "regression-compile-tmp/allimpc1-77.imp" static unsigned char HEX[16] = { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 65, 66, 67, 68, 69, 70, }; // 985 '5','6','7','8','9','A','B','C','D','E','F'; // 986 %INTEGER I #line 986 "regression-compile-tmp/allimpc1-77.imp" int I; // 987 %CYCLE I=PLACES<<2-4,-4,0 #line 987 "regression-compile-tmp/allimpc1-77.imp" I = (((unsigned char)((((int)(((PLACES) << (2)))) - (4)))) + (4)); if ((((0)-((((int)(((PLACES) << (2)))) - (4)))) % ((-4))) != 0) _imp_signal(5,1,0,"Illegal cycle I = (((int)(((PLACES) << (2)))) - (4)), (-4), 0"); L_00f9:; if (I == 0) goto L_00fa; I += (-4); // 988 PRINT SYMBOL(HEX(VALUE>>I&15)) #line 988 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSYMBOL(HEX[(((int)((((unsigned int)(VALUE)) >> (I)))) & (15))]); // 989 %REPEAT #line 989 "regression-compile-tmp/allimpc1-77.imp" goto L_00f9; #line 989 "regression-compile-tmp/allimpc1-77.imp" L_00fa:; // 990 %END #line 990 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PRHEX at level 2 // 991 %ROUTINE SIZES #line 991 "regression-compile-tmp/allimpc1-77.imp" void SIZES( void ) #line 991 "regression-compile-tmp/allimpc1-77.imp" { // 992 !%SHORTROUTINE // 993 %ROUTINESPEC SUM(%INTEGER I) #line 993 "regression-compile-tmp/allimpc1-77.imp" auto void SUM( int I ); // 994 %INTEGER I,J,FREE,TOTAL #line 994 "regression-compile-tmp/allimpc1-77.imp" int I; #line 994 "regression-compile-tmp/allimpc1-77.imp" int J; #line 994 "regression-compile-tmp/allimpc1-77.imp" int FREE; #line 994 "regression-compile-tmp/allimpc1-77.imp" int TOTAL; // 995 // 996 free=20000 #line 996 "regression-compile-tmp/allimpc1-77.imp" FREE = 20000; // 997 sum(5) #line 997 "regression-compile-tmp/allimpc1-77.imp" SUM(5); // 998 %if debug=1 %start #line 998 "regression-compile-tmp/allimpc1-77.imp" if (((0) != (1))) goto L_00fc; // 999 print string("NNAMES="); write(NNAMES,0); #line 999 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal("NNAMES=")); #line 999 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(NNAMES, 0); // 1000 print string(" CCSIZE="); write(CCSIZE,0); #line 1000 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" CCSIZE=")); #line 1000 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(CCSIZE, 0); // 1001 print string(" NROUTS="); write(NROUTS,0); #line 1001 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" NROUTS=")); #line 1001 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(NROUTS, 0); // 1002 print string(" ASL="); write(ASL,0); #line 1002 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" ASL=")); #line 1002 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(ASL, 0); // 1003 print string(" ARSIZE="); write(ARSIZE,0); #line 1003 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" ARSIZE=")); #line 1003 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(ARSIZE, 0); // 1004 print string(" DSIZE="); write(DSIZE,0); #line 1004 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" DSIZE=")); #line 1004 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(DSIZE, 0); // 1005 print string(" TOTAL="); write(TOTAL,0); #line 1005 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" TOTAL=")); #line 1005 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(TOTAL, 0); // 1006 newlines(2) #line 1006 "regression-compile-tmp/allimpc1-77.imp" _imp_NEWLINES(2); // 1007 %finish #line 1007 "regression-compile-tmp/allimpc1-77.imp" L_00fc:; // 1008 // 1009 !!I=COM(2) // 1010 !!FREE=INTEGER(I+4); !TOP OF STORE // 1011 !!FREE=FREE-ADDR(TOTAL)-10000 // 1012 ! TOTAL IS CURRENT TOP OF STACK - 10K FOR COMPARE // 1013 !!%CYCLE J=0,1,5; SUM(J) // 1014 !!->L1 %IF TOTAL>FREE // 1015 !!%REPEAT // 1016 %RETURN #line 1016 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1017 L1: ->L2 %UNLESS J=0 #line 1017 "regression-compile-tmp/allimpc1-77.imp" U_100e:; #line 1017 "regression-compile-tmp/allimpc1-77.imp" if (((J) == (0))) goto L_00fd; #line 1017 "regression-compile-tmp/allimpc1-77.imp" goto U_100f; #line 1017 "regression-compile-tmp/allimpc1-77.imp" L_00fd:; // 1018 print string("NOT ENOUGH CORE ALLOCATED FOR IMP") #line 1018 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal("NOT ENOUGH CORE ALLOCATED FOR IMP")); // 1019 %MONITOR ; %STOP #line 1019 "regression-compile-tmp/allimpc1-77.imp" _imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__); #line 1019 "regression-compile-tmp/allimpc1-77.imp" exit(0); // 1020 L2: SUM(J-1) #line 1020 "regression-compile-tmp/allimpc1-77.imp" U_100f:; #line 1020 "regression-compile-tmp/allimpc1-77.imp" SUM((((int)(J)) - (1))); // 1021 %RETURN #line 1021 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1022 %ROUTINE SUM(%INTEGER I) #line 1022 "regression-compile-tmp/allimpc1-77.imp" void SUM( int I ) #line 1022 "regression-compile-tmp/allimpc1-77.imp" { // 1023 NNAMES=128*2^^I-1 #line 1023 "regression-compile-tmp/allimpc1-77.imp" NNAMES = (((int)(((128) * ((int)(_imp_IEXP(2, I)))))) - (1)); // 1024 CCSIZE=200+40*I #line 1024 "regression-compile-tmp/allimpc1-77.imp" CCSIZE = ((200) + ((int)((((int)(40)) * (I))))); // 1025 NROUTS=NNAMES//2 #line 1025 "regression-compile-tmp/allimpc1-77.imp" NROUTS = (long)((long)((int)(NNAMES)) / (long)((int)(2))); // 1026 ASL =24*NNAMES #line 1026 "regression-compile-tmp/allimpc1-77.imp" ASL = (((int)(24)) * (NNAMES)); // 1027 ASL=32760 %IF ASL>32760; ! MAX FOR 16BIT LINKS #line 1027 "regression-compile-tmp/allimpc1-77.imp" if (((ASL) <= (32760))) goto L_00fe; #line 1027 "regression-compile-tmp/allimpc1-77.imp" ASL = 32760; #line 1027 "regression-compile-tmp/allimpc1-77.imp" L_00fe:; // 1028 ARSIZE=300+50*I #line 1028 "regression-compile-tmp/allimpc1-77.imp" ARSIZE = ((300) + ((int)((((int)(50)) * (I))))); // 1029 DSIZE= 6*NNAMES #line 1029 "regression-compile-tmp/allimpc1-77.imp" DSIZE = (((int)(6)) * (NNAMES)); // 1030 TOTAL=CCSIZE+ASL+2*(NROUTS+ARSIZE+DSIZE) #line 1030 "regression-compile-tmp/allimpc1-77.imp" TOTAL = ((((((int)(CCSIZE)) + (ASL)))) + (((2) * ((int)((((short)((((short)(NROUTS)) + (ARSIZE)))) + (DSIZE))))))); // 1031 %END #line 1031 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SUM at level 3 // 1032 %END #line 1032 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SIZES at level 2 // 1033 ! // 1034 %ROUTINE CSS (%INTEGER P) #line 1034 "regression-compile-tmp/allimpc1-77.imp" void CSS( int P ) #line 1034 "regression-compile-tmp/allimpc1-77.imp" { // 1035 %ROUTINESPEC REDEFINE EP(%INTEGER TYPEP,%INTEGERARRAYNAME PARAMS) #line 1035 "regression-compile-tmp/allimpc1-77.imp" auto void REDEFINEEP( int TYPEP, int /*arrayname*/*PARAMS ); // 1036 %ROUTINESPEC CIOCP(%INTEGER N) #line 1036 "regression-compile-tmp/allimpc1-77.imp" auto void CIOCP( int N ); // 1037 %ROUTINESPEC DEFINE EP(%INTEGER MODE, NAME, ADDR) #line 1037 "regression-compile-tmp/allimpc1-77.imp" auto void DEFINEEP( int MODE, int NAME, int ADDR ); // 1038 %ROUTINESPEC LOAD DATA #line 1038 "regression-compile-tmp/allimpc1-77.imp" auto void LOADDATA( void ); // 1039 %ROUTINESPEC P LOCAL JUMP(%INTEGER MASK,LAB) #line 1039 "regression-compile-tmp/allimpc1-77.imp" auto void PLOCALJUMP( int MASK, int LAB ); // 1040 %ROUTINESPEC FILL LOCAL JUMPS #line 1040 "regression-compile-tmp/allimpc1-77.imp" auto void FILLLOCALJUMPS( void ); // 1041 %ROUTINESPEC CLEAR LIST (%SHORTINTEGERNAME OPHEAD) ; ! Care needed with short conversion! #line 1041 "regression-compile-tmp/allimpc1-77.imp" auto void CLEARLIST( short /*name*/*OPHEAD ); // 1042 %ROUTINESPEC STORE STRING(%INTEGER Z,FROM,TO,BML,DML) #line 1042 "regression-compile-tmp/allimpc1-77.imp" auto void STORESTRING( int Z, int FROM, int TO, int BML, int DML ); // 1043 %ROUTINESPEC CEND(%INTEGER KKK) #line 1043 "regression-compile-tmp/allimpc1-77.imp" auto void CEND( int KKK ); // 1044 %ROUTINESPEC CBPAIR(%INTEGERNAME LB,UB) #line 1044 "regression-compile-tmp/allimpc1-77.imp" auto void CBPAIR( int /*name*/*LB, int /*name*/*UB ); // 1045 %ROUTINESPEC UNDCRF (%SHORTINTEGERNAME OPHEAD) ; ! Care needed with short conversion! #line 1045 "regression-compile-tmp/allimpc1-77.imp" auto void UNDCRF( short /*name*/*OPHEAD ); // 1046 %ROUTINESPEC CCOND(%INTEGER IU,REG,ADDR) #line 1046 "regression-compile-tmp/allimpc1-77.imp" auto void CCOND( int IU, int REG, int ADDR ); // 1047 %ROUTINESPEC FILL JUMPS(%INTEGER LEVEL) #line 1047 "regression-compile-tmp/allimpc1-77.imp" auto void FILLJUMPS( int LEVEL ); // 1048 %ROUTINESPEC SET LINE #line 1048 "regression-compile-tmp/allimpc1-77.imp" auto void SETLINE( void ); // 1049 %ROUTINESPEC CUI(%BYTEINTEGER CODE) #line 1049 "regression-compile-tmp/allimpc1-77.imp" auto void CUI( unsigned char CODE ); // 1050 %ROUTINESPEC SET80(%INTEGER WHERE,N) #line 1050 "regression-compile-tmp/allimpc1-77.imp" auto void SET80( int WHERE, int N ); // 1051 %ROUTINESPEC CVDECLN #line 1051 "regression-compile-tmp/allimpc1-77.imp" auto void CVDECLN( void ); // 1052 %ROUTINESPEC CSEXP(%INTEGER REG,%BYTEINTEGER MODE) #line 1052 "regression-compile-tmp/allimpc1-77.imp" auto void CSEXP( int REG, unsigned char MODE ); // 1053 %ROUTINESPEC CSTREXP(%INTEGER REG) #line 1053 "regression-compile-tmp/allimpc1-77.imp" auto void CSTREXP( int REG ); // 1054 %ROUTINESPEC CHECK RF #line 1054 "regression-compile-tmp/allimpc1-77.imp" auto void CHECKRF( void ); // 1055 %ROUTINESPEC ASSIGN (%INTEGER P1,P2) #line 1055 "regression-compile-tmp/allimpc1-77.imp" auto void ASSIGN( int P1, int P2 ); // 1056 %INTEGERFNSPEC COPY RECORD TAG #line 1056 "regression-compile-tmp/allimpc1-77.imp" auto int COPYRECORDTAG( void ); // 1057 %INTEGERFNSPEC COUNT APS #line 1057 "regression-compile-tmp/allimpc1-77.imp" auto int COUNTAPS( void ); // 1058 %INTEGERFNSPEC DISPLACEMENT(%INTEGER LINK) #line 1058 "regression-compile-tmp/allimpc1-77.imp" auto int DISPLACEMENT( int LINK ); // 1059 %ROUTINESPEC LOADAD(%INTEGER REG,BASE,X,DISP) #line 1059 "regression-compile-tmp/allimpc1-77.imp" auto void LOADAD( int REG, int BASE, int X, int DISP ); // 1060 %ROUTINESPEC SKIP APP #line 1060 "regression-compile-tmp/allimpc1-77.imp" auto void SKIPAPP( void ); // 1061 %ROUTINESPEC CQUERY(%INTEGER REG) #line 1061 "regression-compile-tmp/allimpc1-77.imp" auto void CQUERY( int REG ); // 1062 %ROUTINESPEC CRFORMAT #line 1062 "regression-compile-tmp/allimpc1-77.imp" auto void CRFORMAT( void ); // 1063 %ROUTINESPEC CADCLN(%BYTEINTEGER MODE) #line 1063 "regression-compile-tmp/allimpc1-77.imp" auto void CADCLN( unsigned char MODE ); // 1064 %ROUTINESPEC CQN(%INTEGER P) #line 1064 "regression-compile-tmp/allimpc1-77.imp" auto void CQN( int P ); // 1065 %ROUTINESPEC CLT #line 1065 "regression-compile-tmp/allimpc1-77.imp" auto void CLT( void ); // 1066 %ROUTINESPEC MOVE R(%INTEGER R,N) #line 1066 "regression-compile-tmp/allimpc1-77.imp" auto void MOVER( int R, int N ); // 1067 %INTEGERFNSPEC GET ARR WSP #line 1067 "regression-compile-tmp/allimpc1-77.imp" auto int GETARRWSP( void ); // 1068 %INTEGERFNSPEC GET DBLE WRD #line 1068 "regression-compile-tmp/allimpc1-77.imp" auto int GETDBLEWRD( void ); // 1069 %ROUTINESPEC CRCALL (%INTEGER CLINK) #line 1069 "regression-compile-tmp/allimpc1-77.imp" auto void CRCALL( int CLINK ); // 1070 %ROUTINESPEC CNAME(%INTEGER Z,REG) #line 1070 "regression-compile-tmp/allimpc1-77.imp" auto void CNAME( int Z, int REG ); // 1071 %ROUTINESPEC CRNAME(%INTEGER Z,MODE,CLINK,BS,DP) #line 1071 "regression-compile-tmp/allimpc1-77.imp" auto void CRNAME( int Z, int MODE, int CLINK, int BS, int DP ); // 1072 %ROUTINESPEC CANAME(%INTEGER Z,BS,DP,LINK,BSRF,DPRF) #line 1072 "regression-compile-tmp/allimpc1-77.imp" auto void CANAME( int Z, int BS, int DP, int LINK, int BSRF, int DPRF ); // 1073 %ROUTINESPEC CENAME(%INTEGER Z,MODE,BS,DP) #line 1073 "regression-compile-tmp/allimpc1-77.imp" auto void CENAME( int Z, int MODE, int BS, int DP ); // 1074 %ROUTINESPEC INSERTAFTER(%SHORTINTEGERNAME STAD,%INTEGER S1,S2) ; ! Care needed with short conversion! #line 1074 "regression-compile-tmp/allimpc1-77.imp" auto void INSERTAFTER( short /*name*/*STAD, int S1, int S2 ); // 1075 %ROUTINESPEC FROM LIST(%INTEGER CELL,%INTEGERNAME S1,S2) #line 1075 "regression-compile-tmp/allimpc1-77.imp" auto void FROMLIST( int CELL, int /*name*/*S1, int /*name*/*S2 ); // 1076 %ROUTINESPEC POP(%SHORTINTEGERNAME CELL,%INTEGERNAME S1,S2) ; ! Care needed with short conversion! #line 1076 "regression-compile-tmp/allimpc1-77.imp" auto void POP( short /*name*/*CELL, int /*name*/*S1, int /*name*/*S2 ); // 1077 %ROUTINESPEC PUSH(%SHORTINTEGERNAME CELL,%INTEGER S1,S2) ; ! Care needed with short conversion! #line 1077 "regression-compile-tmp/allimpc1-77.imp" auto void PUSH( short /*name*/*CELL, int S1, int S2 ); // 1078 %INTEGERFNSPEC FIND(%INTEGER LAB,LIST) #line 1078 "regression-compile-tmp/allimpc1-77.imp" auto int FIND( int LAB, int LIST ); // 1079 %ROUTINESPEC MLINK(%INTEGERNAME CELL) #line 1079 "regression-compile-tmp/allimpc1-77.imp" auto void MLINK( int /*name*/*CELL ); // 1080 %ROUTINESPEC REPLACE2(%INTEGER CELL,S2) #line 1080 "regression-compile-tmp/allimpc1-77.imp" auto void REPLACE2( int CELL, int S2 ); // 1081 %ROUTINESPEC REPLACE1(%INTEGER CELL,S1) #line 1081 "regression-compile-tmp/allimpc1-77.imp" auto void REPLACE1( int CELL, int S1 ); // 1082 %ROUTINESPEC REPLACE BOTH(%INTEGER CELL,S1,S2) #line 1082 "regression-compile-tmp/allimpc1-77.imp" auto void REPLACEBOTH( int CELL, int S1, int S2 ); // 1083 %ROUTINESPEC FROM2(%INTEGER CELL,%INTEGERNAME S2) #line 1083 "regression-compile-tmp/allimpc1-77.imp" auto void FROM2( int CELL, int /*name*/*S2 ); // 1084 %ROUTINESPEC FROM1(%INTEGER CELL,%INTEGERNAME S1) #line 1084 "regression-compile-tmp/allimpc1-77.imp" auto void FROM1( int CELL, int /*name*/*S1 ); // 1085 %ROUTINESPEC CRES(%INTEGER MODE,LAB) #line 1085 "regression-compile-tmp/allimpc1-77.imp" auto void CRES( int MODE, int LAB ); // 1086 %INTEGERFNSPEC NEWCELL #line 1086 "regression-compile-tmp/allimpc1-77.imp" auto int NEWCELL( void ); // 1087 %ROUTINESPEC COPY TAG (%INTEGER KK) #line 1087 "regression-compile-tmp/allimpc1-77.imp" auto void COPYTAG( int KK ); // 1088 %ROUTINESPEC CSNAME(%INTEGER Z,REG) #line 1088 "regression-compile-tmp/allimpc1-77.imp" auto void CSNAME( int Z, int REG ); // 1089 %ROUTINESPEC REPLACE TAG (%INTEGER KK) #line 1089 "regression-compile-tmp/allimpc1-77.imp" auto void REPLACETAG( int KK ); // 1090 %INTEGERFNSPEC PARK(%INTEGER REG) #line 1090 "regression-compile-tmp/allimpc1-77.imp" auto int PARK( int REG ); // 1091 %INTEGERFN %SPEC PARKF (%INTEGER REG,PREC) #line 1091 "regression-compile-tmp/allimpc1-77.imp" auto int PARKF( int REG, int PREC ); // 1092 %INTEGERFNSPEC CLAIMABLE REG #line 1092 "regression-compile-tmp/allimpc1-77.imp" auto int CLAIMABLEREG( void ); // 1093 %INTEGERFNSPEC FIND PP #line 1093 "regression-compile-tmp/allimpc1-77.imp" auto int FINDPP( void ); // 1094 %INTEGERFNSPEC GET STR WSP #line 1094 "regression-compile-tmp/allimpc1-77.imp" auto int GETSTRWSP( void ); // 1095 %ROUTINESPEC SETEX #line 1095 "regression-compile-tmp/allimpc1-77.imp" auto void SETEX( void ); // 1096 %ROUTINESPEC GXREF(%INTEGER NAME,HASH) #line 1096 "regression-compile-tmp/allimpc1-77.imp" auto void GXREF( int NAME, int HASH ); // 1097 %ROUTINESPEC UNPARK(%INTEGER OPCODE,REG,Q) #line 1097 "regression-compile-tmp/allimpc1-77.imp" auto void UNPARK( int OPCODE, int REG, int Q ); // 1098 %ROUTINESPEC STORE TAG(%INTEGER KK,SLINK) #line 1098 "regression-compile-tmp/allimpc1-77.imp" auto void STORETAG( int KK, int SLINK ); // 1099 %INTEGERFNSPEC PAGENO(%INTEGER N) #line 1099 "regression-compile-tmp/allimpc1-77.imp" auto int PAGENO( int N ); // 1100 %ROUTINESPEC TESTNST #line 1100 "regression-compile-tmp/allimpc1-77.imp" auto void TESTNST( void ); // 1101 %ROUTINESPEC CUCI #line 1101 "regression-compile-tmp/allimpc1-77.imp" auto void CUCI( void ); // 1102 %ROUTINESPEC SKIP EXP #line 1102 "regression-compile-tmp/allimpc1-77.imp" auto void SKIPEXP( void ); // 1103 %ROUTINESPEC UNPACK #line 1103 "regression-compile-tmp/allimpc1-77.imp" auto void UNPACK( void ); // 1104 %INTEGERFNSPEC SORT CONST(%INTEGER P,LONG,TYPE) #line 1104 "regression-compile-tmp/allimpc1-77.imp" auto int SORTCONST( int P, int LONG, int TYPE ); // 1105 %ROUTINESPEC PACK(%INTEGERNAME PTYPE) #line 1105 "regression-compile-tmp/allimpc1-77.imp" auto void PACK( int /*name*/*PTYPE ); // 1106 %ROUTINESPEC CRSPEC (%BYTEINTEGER M) #line 1106 "regression-compile-tmp/allimpc1-77.imp" auto void CRSPEC( unsigned char M ); // 1107 %ROUTINESPEC DUMP(%INTEGER CODE,REG,DIS,X,LEVEL) #line 1107 "regression-compile-tmp/allimpc1-77.imp" auto void DUMP( int CODE, int REG, int DIS, int X, int LEVEL ); // 1108 %ROUTINESPEC RHEAD(%INTEGER KK) #line 1108 "regression-compile-tmp/allimpc1-77.imp" auto void RHEAD( int KK ); // 1109 %ROUTINESPEC TEST ASS(%INTEGER REG) #line 1109 "regression-compile-tmp/allimpc1-77.imp" auto void TESTASS( int REG ); // 1110 %ROUTINESPEC PJ(%INTEGER MASK,STAD) #line 1110 "regression-compile-tmp/allimpc1-77.imp" auto void PJ( int MASK, int STAD ); // 1111 %ROUTINESPEC COMPILE FORMAL PARAMETER #line 1111 "regression-compile-tmp/allimpc1-77.imp" auto void COMPILEFORMALPARAMETER( void ); // 1112 %ROUTINESPEC PPJ(%BYTEINTEGER N) #line 1112 "regression-compile-tmp/allimpc1-77.imp" auto void PPJ( unsigned char N ); // 1113 %ROUTINESPEC PLAB(%INTEGER M) #line 1113 "regression-compile-tmp/allimpc1-77.imp" auto void PLAB( int M ); // 1114 %ROUTINESPEC CHECK CAPACITY(%INTEGER REG,DIS,X,LEVEL) #line 1114 "regression-compile-tmp/allimpc1-77.imp" auto void CHECKCAPACITY( int REG, int DIS, int X, int LEVEL ); // 1115 %INTEGERFNSPEC TSEXP(%INTEGERNAME CODE) #line 1115 "regression-compile-tmp/allimpc1-77.imp" auto int TSEXP( int /*name*/*CODE ); // 1116 %SWITCH SW(1:45) #line 1116 "regression-compile-tmp/allimpc1-77.imp" static int sw2_SW_idx; static const void * /*SWITCH*/ sw2_SW[45] = { &&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, &&sw2_SW_25, &&sw2_SW_26, &&sw2_SW_27, &&sw2_SW_28, &&sw2_SW_29, &&sw2_SW_30, &&sw2_SW_31, &&sw2_SW_32, &&sw2_SW_33, &&sw2_SW_34, &&sw2_SW_35, &&sw2_SW_36, &&sw2_SW_37, &&sw2_SW_38, &&sw2_SW_39, &&sw2_SW_40, &&sw2_SW_41, &&sw2_SW_42, &&sw2_SW_43, &&sw2_SW_44, &&sw2_SW_45, }; // 1117 %INTEGER INC,INCP,BXLE,ACC #line 1117 "regression-compile-tmp/allimpc1-77.imp" int INC; #line 1117 "regression-compile-tmp/allimpc1-77.imp" int INCP; #line 1117 "regression-compile-tmp/allimpc1-77.imp" int BXLE; #line 1117 "regression-compile-tmp/allimpc1-77.imp" int ACC; // 1118 %SHORTINTEGER OPHEAD #line 1118 "regression-compile-tmp/allimpc1-77.imp" short OPHEAD; // 1119 %INTEGER JJ,JJJ,KK,KKK,Q,QQ,EXTRN #line 1119 "regression-compile-tmp/allimpc1-77.imp" int JJ; #line 1119 "regression-compile-tmp/allimpc1-77.imp" int JJJ; #line 1119 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 1119 "regression-compile-tmp/allimpc1-77.imp" int KKK; #line 1119 "regression-compile-tmp/allimpc1-77.imp" int Q; #line 1119 "regression-compile-tmp/allimpc1-77.imp" int QQ; #line 1119 "regression-compile-tmp/allimpc1-77.imp" int EXTRN; // 1120 %INTEGER BASE,DISP,VALUE,INDEX #line 1120 "regression-compile-tmp/allimpc1-77.imp" int BASE; #line 1120 "regression-compile-tmp/allimpc1-77.imp" int DISP; #line 1120 "regression-compile-tmp/allimpc1-77.imp" int VALUE; #line 1120 "regression-compile-tmp/allimpc1-77.imp" int INDEX; // 1121 %INTEGER LOCAL BASE, LOCAL ADDR #line 1121 "regression-compile-tmp/allimpc1-77.imp" int LOCALBASE; #line 1121 "regression-compile-tmp/allimpc1-77.imp" int LOCALADDR; // 1122 %SHORTINTEGER LOCAL JUMP,LOCAL LABEL #line 1122 "regression-compile-tmp/allimpc1-77.imp" short LOCALJUMP; #line 1122 "regression-compile-tmp/allimpc1-77.imp" short LOCALLABEL; // 1123 %BYTEINTEGER ROUT,NAM,ARR,PREC,TYPE,PRECP #line 1123 "regression-compile-tmp/allimpc1-77.imp" unsigned char ROUT; #line 1123 "regression-compile-tmp/allimpc1-77.imp" unsigned char NAM; #line 1123 "regression-compile-tmp/allimpc1-77.imp" unsigned char ARR; #line 1123 "regression-compile-tmp/allimpc1-77.imp" unsigned char PREC; #line 1123 "regression-compile-tmp/allimpc1-77.imp" unsigned char TYPE; #line 1123 "regression-compile-tmp/allimpc1-77.imp" unsigned char PRECP; // 1124 %INTEGER PTYPE,I,J,K,OLDI,INREG #line 1124 "regression-compile-tmp/allimpc1-77.imp" int PTYPE; #line 1124 "regression-compile-tmp/allimpc1-77.imp" int I; #line 1124 "regression-compile-tmp/allimpc1-77.imp" int J; #line 1124 "regression-compile-tmp/allimpc1-77.imp" int K; #line 1124 "regression-compile-tmp/allimpc1-77.imp" int OLDI; #line 1124 "regression-compile-tmp/allimpc1-77.imp" int INREG; // 1125 %INTEGER PTYPEP,SAVE13,CHNGE13 #line 1125 "regression-compile-tmp/allimpc1-77.imp" int PTYPEP; #line 1125 "regression-compile-tmp/allimpc1-77.imp" int SAVE13; #line 1125 "regression-compile-tmp/allimpc1-77.imp" int CHNGE13; // 1126 LOCAL JUMP=0;LOCAL LABEL=0 #line 1126 "regression-compile-tmp/allimpc1-77.imp" LOCALJUMP = 0; #line 1126 "regression-compile-tmp/allimpc1-77.imp" LOCALLABEL = 0; // 1127 LOCAL BASE=0 #line 1127 "regression-compile-tmp/allimpc1-77.imp" LOCALBASE = 0; // 1128 OLDI=0; ->SW(A(P)) #line 1128 "regression-compile-tmp/allimpc1-77.imp" OLDI = 0; #line 1128 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_idx = A[((P) + ((int)(2)))]; if ((1 <= sw2_SW_idx) && (sw2_SW_idx <= 45)) goto *(sw2_SW-1)[sw2_SW_idx]; /* Bounds=1:45 */ else { /*_imp_signal(8, 2, sw2_SW_idx);*/ fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:45 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); } // 1129 SW(1): MARKER2=P+1+A(P+1); SET LINE #line 1129 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_1:; #line 1129 "regression-compile-tmp/allimpc1-77.imp" MARKER2 = (((short)((((int)(P)) + (1)))) + (A[(((unsigned char)((((int)(P)) + (1)))) + (2))])); #line 1129 "regression-compile-tmp/allimpc1-77.imp" SETLINE(); // 1130 P=P+2; ->L101 %IF A(MARKER2)=2 #line 1130 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 1130 "regression-compile-tmp/allimpc1-77.imp" if (((A[((MARKER2) + ((int)(2)))]) != (2))) goto L_00ff; #line 1130 "regression-compile-tmp/allimpc1-77.imp" goto U_1026; #line 1130 "regression-compile-tmp/allimpc1-77.imp" L_00ff:; // 1131 MASK=15; CUI(0); ->L1 #line 1131 "regression-compile-tmp/allimpc1-77.imp" MASK = 15; #line 1131 "regression-compile-tmp/allimpc1-77.imp" CUI(0); #line 1131 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1132 L101: Q=P #line 1132 "regression-compile-tmp/allimpc1-77.imp" U_1026:; #line 1132 "regression-compile-tmp/allimpc1-77.imp" Q = P; // 1133 FAULT(54) %IF A(P)=9; ! START #line 1133 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (9))) goto L_0100; #line 1133 "regression-compile-tmp/allimpc1-77.imp" FAULT(54); #line 1133 "regression-compile-tmp/allimpc1-77.imp" L_0100:; // 1134 SAVE13=R13; CHNGE13=0 #line 1134 "regression-compile-tmp/allimpc1-77.imp" SAVE13 = R13; #line 1134 "regression-compile-tmp/allimpc1-77.imp" CHNGE13 = 0; // 1135 ->L103 %IF A(P)=3; ! UI =JUMP #line 1135 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (3))) goto L_0101; #line 1135 "regression-compile-tmp/allimpc1-77.imp" goto U_1028; #line 1135 "regression-compile-tmp/allimpc1-77.imp" L_0101:; // 1136 PLABEL=PLABEL-2; JJJ=PLABEL+1 #line 1136 "regression-compile-tmp/allimpc1-77.imp" PLABEL = (((int)(PLABEL)) - (2)); #line 1136 "regression-compile-tmp/allimpc1-77.imp" JJJ = (((int)(PLABEL)) + (1)); // 1137 KKK=PLABEL; P=MARKER2+2 #line 1137 "regression-compile-tmp/allimpc1-77.imp" KKK = PLABEL; #line 1137 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(MARKER2)) + (2)); // 1138 CCOND(A(P-1)-1,JJJ,KKK) #line 1138 "regression-compile-tmp/allimpc1-77.imp" CCOND((((int)(A[(((unsigned char)((((int)(P)) - (1)))) + (2))])) - (1)), JJJ, KKK); // 1139 PLOCAL JUMP(MASK,KKK) #line 1139 "regression-compile-tmp/allimpc1-77.imp" PLOCALJUMP(MASK, KKK); // 1140 R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0 #line 1140 "regression-compile-tmp/allimpc1-77.imp" if (((R13) != (SAVE13))) goto L_00fb; #line 1140 "regression-compile-tmp/allimpc1-77.imp" if (((CHNGE13) == (0))) goto L_0102; #line 1140 "regression-compile-tmp/allimpc1-77.imp" L_00fb:; #line 1140 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; #line 1140 "regression-compile-tmp/allimpc1-77.imp" L_0102:; // 1141 PUSH(LOCAL LABEL,CA,JJJ) #line 1141 "regression-compile-tmp/allimpc1-77.imp" PUSH(&LOCALLABEL, CA, JJJ); // 1142 P=Q; CUI(1) #line 1142 "regression-compile-tmp/allimpc1-77.imp" P = Q; #line 1142 "regression-compile-tmp/allimpc1-77.imp" CUI(1); // 1143 L104: PUSH(LOCAL LABEL,CA,KKK) #line 1143 "regression-compile-tmp/allimpc1-77.imp" U_1029:; #line 1143 "regression-compile-tmp/allimpc1-77.imp" PUSH(&LOCALLABEL, CA, KKK); // 1144 R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0 #line 1144 "regression-compile-tmp/allimpc1-77.imp" if (((R13) != (SAVE13))) goto L_0103; #line 1144 "regression-compile-tmp/allimpc1-77.imp" if (((CHNGE13) == (0))) goto L_0104; #line 1144 "regression-compile-tmp/allimpc1-77.imp" L_0103:; #line 1144 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; #line 1144 "regression-compile-tmp/allimpc1-77.imp" L_0104:; // 1145 L102: REGISTER(LOCAL BASE)=0 %UNLESS LOCAL BASE=10 %OR LOCALBASE=0 #line 1145 "regression-compile-tmp/allimpc1-77.imp" U_102a:; #line 1145 "regression-compile-tmp/allimpc1-77.imp" if (((LOCALBASE) == (10))) goto L_0105; #line 1145 "regression-compile-tmp/allimpc1-77.imp" if (((LOCALBASE) == (0))) goto L_0105; #line 1145 "regression-compile-tmp/allimpc1-77.imp" REGISTER[LOCALBASE] = 0; #line 1145 "regression-compile-tmp/allimpc1-77.imp" L_0105:; // 1146 FILL LOCAL JUMPS; ->L1 #line 1146 "regression-compile-tmp/allimpc1-77.imp" FILLLOCALJUMPS(); #line 1146 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1147 L103: PLABEL=PLABEL-1; JJJ=PLABEL #line 1147 "regression-compile-tmp/allimpc1-77.imp" U_1028:; #line 1147 "regression-compile-tmp/allimpc1-77.imp" PLABEL = (((int)(PLABEL)) - (1)); #line 1147 "regression-compile-tmp/allimpc1-77.imp" JJJ = PLABEL; // 1148 NMDECS(LEVEL)=1 #line 1148 "regression-compile-tmp/allimpc1-77.imp" NMDECS[LEVEL] = 1; // 1149 KKK=A(P+2)+(A(P+1)-1)<<14 #line 1149 "regression-compile-tmp/allimpc1-77.imp" KKK = ((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) + ((short)((((((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))])) - (1))) << (14))))); // 1150 P=MARKER2+2; CCOND(2-A(P-1),JJJ,KKK) #line 1150 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(MARKER2)) + (2)); #line 1150 "regression-compile-tmp/allimpc1-77.imp" CCOND(((2) - ((int)(A[(((unsigned char)((((int)(P)) - (1)))) + (2))]))), JJJ, KKK); // 1151 PLOCAL JUMP(MASK,KKK) #line 1151 "regression-compile-tmp/allimpc1-77.imp" PLOCALJUMP(MASK, KKK); // 1152 R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0 #line 1152 "regression-compile-tmp/allimpc1-77.imp" if (((R13) != (SAVE13))) goto L_0106; #line 1152 "regression-compile-tmp/allimpc1-77.imp" if (((CHNGE13) == (0))) goto L_0107; #line 1152 "regression-compile-tmp/allimpc1-77.imp" L_0106:; #line 1152 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; #line 1152 "regression-compile-tmp/allimpc1-77.imp" L_0107:; // 1153 PUSH(LOCAL LABEL,CA,JJJ); ->L102 #line 1153 "regression-compile-tmp/allimpc1-77.imp" PUSH(&LOCALLABEL, CA, JJJ); #line 1153 "regression-compile-tmp/allimpc1-77.imp" goto U_102a; // 1154 ! // 1155 SW(2): SET LINE;P=P+1; BXLE=0; CNAME(3,4) #line 1155 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_2:; #line 1155 "regression-compile-tmp/allimpc1-77.imp" SETLINE(); #line 1155 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1155 "regression-compile-tmp/allimpc1-77.imp" BXLE = 0; #line 1155 "regression-compile-tmp/allimpc1-77.imp" CNAME(3, 4); // 1156 INC=N; N=N+12 #line 1156 "regression-compile-tmp/allimpc1-77.imp" INC = N; #line 1156 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (12)); // 1157 FAULT(25) %UNLESS TYPE=1 %AND PREC=0 #line 1157 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (1))) goto L_0108; #line 1157 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) == (0))) goto L_0109; #line 1157 "regression-compile-tmp/allimpc1-77.imp" L_0108:; #line 1157 "regression-compile-tmp/allimpc1-77.imp" FAULT(25); #line 1157 "regression-compile-tmp/allimpc1-77.imp" L_0109:; // 1158 Q=P; SKIP EXP; REGISTER(4)=1 #line 1158 "regression-compile-tmp/allimpc1-77.imp" Q = P; #line 1158 "regression-compile-tmp/allimpc1-77.imp" SKIPEXP(); #line 1158 "regression-compile-tmp/allimpc1-77.imp" REGISTER[4] = 1; // 1159 JJ=P; BXLE=1 %IF 3900>CA-CODEBASE(LEVEL)%AND 1<=TSEXP(JJJ)<=2 #line 1159 "regression-compile-tmp/allimpc1-77.imp" JJ = P; #line 1159 "regression-compile-tmp/allimpc1-77.imp" if (((3900) <= ((((int)(CA)) - (CODEBASE[LEVEL]))))) goto L_010a; #line 1159 "regression-compile-tmp/allimpc1-77.imp" if (({int tmp1 = 1, tmp2 = TSEXP(&JJJ), tmp3 = 2; (tmp1 > tmp2) || (tmp2 > tmp3);})) goto L_010a; #line 1159 "regression-compile-tmp/allimpc1-77.imp" BXLE = 1; #line 1159 "regression-compile-tmp/allimpc1-77.imp" L_010a:; // 1160 P=JJ; CSEXP(2,1); ! INTEGER TO REG2 #line 1160 "regression-compile-tmp/allimpc1-77.imp" P = JJ; #line 1160 "regression-compile-tmp/allimpc1-77.imp" CSEXP(2, 1); // 1161 JJJ=P; KKK=TSEXP(QQ); P=JJJ #line 1161 "regression-compile-tmp/allimpc1-77.imp" JJJ = P; #line 1161 "regression-compile-tmp/allimpc1-77.imp" KKK = TSEXP(&QQ); #line 1161 "regression-compile-tmp/allimpc1-77.imp" P = JJJ; // 1162 DUMP(1,2,INC,0,RBASE) %IF KKK=0 #line 1162 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) != (0))) goto L_010b; #line 1162 "regression-compile-tmp/allimpc1-77.imp" DUMP(1, 2, INC, 0, RBASE); #line 1162 "regression-compile-tmp/allimpc1-77.imp" L_010b:; // 1163 CSEXP(3,1) #line 1163 "regression-compile-tmp/allimpc1-77.imp" CSEXP(3, 1); // 1164 %IF KKK=0 %THEN PRX(X'90',3,4,RBASE,INC+4) %ELSE %C #line 1164 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) != (0))) goto L_010c; #line 1164 "regression-compile-tmp/allimpc1-77.imp" PRX(144, 3, 4, RBASE, (((int)(INC)) + (4))); #line 1164 "regression-compile-tmp/allimpc1-77.imp" goto L_010d; #line 1164 "regression-compile-tmp/allimpc1-77.imp" L_010c:; #line 1164 "regression-compile-tmp/allimpc1-77.imp" PRX(144, 2, 4, RBASE, INC); #line 1164 "regression-compile-tmp/allimpc1-77.imp" L_010d:; // 1165 PRX(X'90',2,4,RBASE,INC) // 1166 P=Q; CSEXP(1,1) #line 1166 "regression-compile-tmp/allimpc1-77.imp" P = Q; #line 1166 "regression-compile-tmp/allimpc1-77.imp" CSEXP(1, 1); // 1167 ->L202 %IF CHECKSP=0 #line 1167 "regression-compile-tmp/allimpc1-77.imp" if (((CHECKSP) != (0))) goto L_010e; #line 1167 "regression-compile-tmp/allimpc1-77.imp" goto U_102b; #line 1167 "regression-compile-tmp/allimpc1-77.imp" L_010e:; // 1168 DUMP(0,2,INC,0,RBASE); PPJ(17) #line 1168 "regression-compile-tmp/allimpc1-77.imp" DUMP(0, 2, INC, 0, RBASE); #line 1168 "regression-compile-tmp/allimpc1-77.imp" PPJ(17); // 1169 L202: PLAB(-1); REGISTER(4)=0 #line 1169 "regression-compile-tmp/allimpc1-77.imp" U_102b:; #line 1169 "regression-compile-tmp/allimpc1-77.imp" PLAB((-1)); #line 1169 "regression-compile-tmp/allimpc1-77.imp" REGISTER[4] = 0; // 1170 DUMP(1,1,0,0,4) #line 1170 "regression-compile-tmp/allimpc1-77.imp" DUMP(1, 1, 0, 0, 4); // 1171 PUSH(CYCLE(LEVEL),K,INC+4096*BXLE) #line 1171 "regression-compile-tmp/allimpc1-77.imp" PUSH(&CYCLE[LEVEL], K, ((INC) + ((int)((((int)(4096)) * (BXLE)))))); // 1172 ->L1 #line 1172 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1173 ! // 1174 SW(3): !REPEAT #line 1174 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_3:; // 1175 SET LINE #line 1175 "regression-compile-tmp/allimpc1-77.imp" SETLINE(); // 1176 POP(CYCLE(LEVEL),J,K) #line 1176 "regression-compile-tmp/allimpc1-77.imp" POP(&CYCLE[LEVEL], &J, &K); // 1177 ->L302 %UNLESS J=-1 #line 1177 "regression-compile-tmp/allimpc1-77.imp" if (((J) == ((-1)))) goto L_010f; #line 1177 "regression-compile-tmp/allimpc1-77.imp" goto U_102c; #line 1177 "regression-compile-tmp/allimpc1-77.imp" L_010f:; // 1178 FAULT(1); ->L1 #line 1178 "regression-compile-tmp/allimpc1-77.imp" FAULT(1); #line 1178 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1179 L302: BXLE=K>>12; K=K&4095 #line 1179 "regression-compile-tmp/allimpc1-77.imp" U_102c:; #line 1179 "regression-compile-tmp/allimpc1-77.imp" BXLE = (int)((((unsigned int)(K)) >> (12))); #line 1179 "regression-compile-tmp/allimpc1-77.imp" K = ((K) & (4095)); // 1180 PRX(X'98',2,4,RBASE,K); ! LM 2,4,? #line 1180 "regression-compile-tmp/allimpc1-77.imp" PRX(152, 2, 4, RBASE, K); // 1181 DUMP(2,1,0,0,4); ->L301 %IF BXLE=1 #line 1181 "regression-compile-tmp/allimpc1-77.imp" DUMP(2, 1, 0, 0, 4); #line 1181 "regression-compile-tmp/allimpc1-77.imp" if (((BXLE) != (1))) goto L_0110; #line 1181 "regression-compile-tmp/allimpc1-77.imp" goto U_102d; #line 1181 "regression-compile-tmp/allimpc1-77.imp" L_0110:; // 1182 PLANT(X'1A12'); ! AR 1,2 #line 1182 "regression-compile-tmp/allimpc1-77.imp" PLANT(6674); // 1183 PCONST(X'59304000'); ! C 3,0(4) #line 1183 "regression-compile-tmp/allimpc1-77.imp" PCONST(1496334336); // 1184 K=J; PJ(7,K); ->L1 #line 1184 "regression-compile-tmp/allimpc1-77.imp" K = J; #line 1184 "regression-compile-tmp/allimpc1-77.imp" PJ(7, K); #line 1184 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1185 L301: I=FIND(J,LABEL(LEVEL)) #line 1185 "regression-compile-tmp/allimpc1-77.imp" U_102d:; #line 1185 "regression-compile-tmp/allimpc1-77.imp" I = FIND(J, LABEL[LEVEL]); // 1186 PRX(X'87',1,2,10,I-CODEBASE(LEVEL)); ->L1;! BXLE 1,2,ADDR #line 1186 "regression-compile-tmp/allimpc1-77.imp" PRX(135, 1, 2, 10, (((int)(I)) - (CODEBASE[LEVEL]))); #line 1186 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1187 SW(4): ! (LABEL)':' #line 1187 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_4:; // 1188 K=A(P+2)+(A(P+1)-1)<<14 #line 1188 "regression-compile-tmp/allimpc1-77.imp" K = ((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) + ((short)((((((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))])) - (1))) << (14))))); // 1189 ->L402 %IF FIND(K,LABEL(LEVEL))=-1 #line 1189 "regression-compile-tmp/allimpc1-77.imp" if (((FIND(K, LABEL[LEVEL])) != ((-1)))) goto L_0111; #line 1189 "regression-compile-tmp/allimpc1-77.imp" goto U_102e; #line 1189 "regression-compile-tmp/allimpc1-77.imp" L_0111:; // 1190 FAULT(2); ->L1 #line 1190 "regression-compile-tmp/allimpc1-77.imp" FAULT(2); #line 1190 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1191 L402: PLAB(K); ->L1 #line 1191 "regression-compile-tmp/allimpc1-77.imp" U_102e:; #line 1191 "regression-compile-tmp/allimpc1-77.imp" PLAB(K); #line 1191 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1192 SW(5): Q=P+1; MARKER2=P+3+A (P+2); #line 1192 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_5:; #line 1192 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(P)) + (1)); #line 1192 "regression-compile-tmp/allimpc1-77.imp" MARKER2 = (((short)((((int)(P)) + (3)))) + (A[(((unsigned char)((((int)(P)) + (2)))) + (2))])); // 1193 SET LINE; P=MARKER2 #line 1193 "regression-compile-tmp/allimpc1-77.imp" SETLINE(); #line 1193 "regression-compile-tmp/allimpc1-77.imp" P = MARKER2; // 1194 SAVE13=R13; CHNGE13=0 #line 1194 "regression-compile-tmp/allimpc1-77.imp" SAVE13 = R13; #line 1194 "regression-compile-tmp/allimpc1-77.imp" CHNGE13 = 0; // 1195 ->L510 %IF A(P)=3; ! UI=JUMP #line 1195 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (3))) goto L_0112; #line 1195 "regression-compile-tmp/allimpc1-77.imp" goto U_102f; #line 1195 "regression-compile-tmp/allimpc1-77.imp" L_0112:; // 1196 ->L520 %IF A(P)=9; ! UI =START #line 1196 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (9))) goto L_0113; #line 1196 "regression-compile-tmp/allimpc1-77.imp" goto U_1030; #line 1196 "regression-compile-tmp/allimpc1-77.imp" L_0113:; // 1197 PLABEL=PLABEL-2; JJJ=PLABEL+1; KKK=PLABEL #line 1197 "regression-compile-tmp/allimpc1-77.imp" PLABEL = (((int)(PLABEL)) - (2)); #line 1197 "regression-compile-tmp/allimpc1-77.imp" JJJ = (((int)(PLABEL)) + (1)); #line 1197 "regression-compile-tmp/allimpc1-77.imp" KKK = PLABEL; // 1198 P=Q+2; CCOND(A(Q)-1,JJJ,KKK) #line 1198 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(Q)) + (2)); #line 1198 "regression-compile-tmp/allimpc1-77.imp" CCOND((((int)(A[((Q) + ((int)(2)))])) - (1)), JJJ, KKK); // 1199 P LOCAL JUMP(MASK,KKK) #line 1199 "regression-compile-tmp/allimpc1-77.imp" PLOCALJUMP(MASK, KKK); // 1200 R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0 #line 1200 "regression-compile-tmp/allimpc1-77.imp" if (((R13) != (SAVE13))) goto L_0114; #line 1200 "regression-compile-tmp/allimpc1-77.imp" if (((CHNGE13) == (0))) goto L_0115; #line 1200 "regression-compile-tmp/allimpc1-77.imp" L_0114:; #line 1200 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; #line 1200 "regression-compile-tmp/allimpc1-77.imp" L_0115:; // 1201 PUSH(LOCAL LABEL,CA,JJJ) #line 1201 "regression-compile-tmp/allimpc1-77.imp" PUSH(&LOCALLABEL, CA, JJJ); // 1202 P=MARKER2; CUI(1) #line 1202 "regression-compile-tmp/allimpc1-77.imp" P = MARKER2; #line 1202 "regression-compile-tmp/allimpc1-77.imp" CUI(1); // 1203 ->L104 %UNLESS A(P)=1; ! %ELSE FOLLOWS #line 1203 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) == (1))) goto L_0116; #line 1203 "regression-compile-tmp/allimpc1-77.imp" goto U_1029; #line 1203 "regression-compile-tmp/allimpc1-77.imp" L_0116:; // 1204 P=P+1; ->L107 %IF A(P)=9; ! UI=START #line 1204 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1204 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (9))) goto L_0117; #line 1204 "regression-compile-tmp/allimpc1-77.imp" goto U_1031; #line 1204 "regression-compile-tmp/allimpc1-77.imp" L_0117:; // 1205 PLABEL=PLABEL-1; JJJ=PLABEL #line 1205 "regression-compile-tmp/allimpc1-77.imp" PLABEL = (((int)(PLABEL)) - (1)); #line 1205 "regression-compile-tmp/allimpc1-77.imp" JJJ = PLABEL; // 1206 P LOCAL JUMP(15,JJJ) #line 1206 "regression-compile-tmp/allimpc1-77.imp" PLOCALJUMP(15, JJJ); // 1207 PUSH(LOCAL LABEL,CA,KKK) #line 1207 "regression-compile-tmp/allimpc1-77.imp" PUSH(&LOCALLABEL, CA, KKK); // 1208 R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0 #line 1208 "regression-compile-tmp/allimpc1-77.imp" if (((R13) != (SAVE13))) goto L_0118; #line 1208 "regression-compile-tmp/allimpc1-77.imp" if (((CHNGE13) == (0))) goto L_0119; #line 1208 "regression-compile-tmp/allimpc1-77.imp" L_0118:; #line 1208 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; #line 1208 "regression-compile-tmp/allimpc1-77.imp" L_0119:; // 1209 MASK=15; CUI(2); KKK=JJJ; ->L104 #line 1209 "regression-compile-tmp/allimpc1-77.imp" MASK = 15; #line 1209 "regression-compile-tmp/allimpc1-77.imp" CUI(2); #line 1209 "regression-compile-tmp/allimpc1-77.imp" KKK = JJJ; #line 1209 "regression-compile-tmp/allimpc1-77.imp" goto U_1029; // 1210 L107: PJ(15,SFLABEL-1) #line 1210 "regression-compile-tmp/allimpc1-77.imp" U_1031:; #line 1210 "regression-compile-tmp/allimpc1-77.imp" PJ(15, (((int)(SFLABEL)) - (1))); // 1211 CUI(2); ->L104 #line 1211 "regression-compile-tmp/allimpc1-77.imp" CUI(2); #line 1211 "regression-compile-tmp/allimpc1-77.imp" goto U_1029; // 1212 L510: PLABEL=PLABEL-1; JJJ=PLABEL #line 1212 "regression-compile-tmp/allimpc1-77.imp" U_102f:; #line 1212 "regression-compile-tmp/allimpc1-77.imp" PLABEL = (((int)(PLABEL)) - (1)); #line 1212 "regression-compile-tmp/allimpc1-77.imp" JJJ = PLABEL; // 1213 NMDECS(LEVEL)=1 #line 1213 "regression-compile-tmp/allimpc1-77.imp" NMDECS[LEVEL] = 1; // 1214 KKK=A(P+2)+(A(P+1)-1)<<14 #line 1214 "regression-compile-tmp/allimpc1-77.imp" KKK = ((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) + ((short)((((((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))])) - (1))) << (14))))); // 1215 P=Q+2; CCOND(2-A(Q),JJJ,KKK) #line 1215 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(Q)) + (2)); #line 1215 "regression-compile-tmp/allimpc1-77.imp" CCOND(((2) - ((int)(A[((Q) + ((int)(2)))]))), JJJ, KKK); // 1216 PLOCAL JUMP(MASK,KKK) #line 1216 "regression-compile-tmp/allimpc1-77.imp" PLOCALJUMP(MASK, KKK); // 1217 R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0 #line 1217 "regression-compile-tmp/allimpc1-77.imp" if (((R13) != (SAVE13))) goto L_011a; #line 1217 "regression-compile-tmp/allimpc1-77.imp" if (((CHNGE13) == (0))) goto L_011b; #line 1217 "regression-compile-tmp/allimpc1-77.imp" L_011a:; #line 1217 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; #line 1217 "regression-compile-tmp/allimpc1-77.imp" L_011b:; // 1218 PUSH(LOCAL LABEL,CA,JJJ) #line 1218 "regression-compile-tmp/allimpc1-77.imp" PUSH(&LOCALLABEL, CA, JJJ); // 1219 P=MARKER2+3; ->L102 %UNLESS A(P)=1 #line 1219 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(MARKER2)) + (3)); #line 1219 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) == (1))) goto L_011c; #line 1219 "regression-compile-tmp/allimpc1-77.imp" goto U_102a; #line 1219 "regression-compile-tmp/allimpc1-77.imp" L_011c:; // 1220 P=P+1; MASK=15; CUI(0); ->L102 #line 1220 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1220 "regression-compile-tmp/allimpc1-77.imp" MASK = 15; #line 1220 "regression-compile-tmp/allimpc1-77.imp" CUI(0); #line 1220 "regression-compile-tmp/allimpc1-77.imp" goto U_102a; // 1221 L520: PLABEL=PLABEL-1; JJJ=PLABEL #line 1221 "regression-compile-tmp/allimpc1-77.imp" U_1030:; #line 1221 "regression-compile-tmp/allimpc1-77.imp" PLABEL = (((int)(PLABEL)) - (1)); #line 1221 "regression-compile-tmp/allimpc1-77.imp" JJJ = PLABEL; // 1222 KKK=SFLABEL-1 #line 1222 "regression-compile-tmp/allimpc1-77.imp" KKK = (((int)(SFLABEL)) - (1)); // 1223 P=Q+2; CCOND(A(Q)-1,JJJ,KKK) #line 1223 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(Q)) + (2)); #line 1223 "regression-compile-tmp/allimpc1-77.imp" CCOND((((int)(A[((Q) + ((int)(2)))])) - (1)), JJJ, KKK); // 1224 P LOCAL JUMP(MASK,KKK) #line 1224 "regression-compile-tmp/allimpc1-77.imp" PLOCALJUMP(MASK, KKK); // 1225 R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0 #line 1225 "regression-compile-tmp/allimpc1-77.imp" if (((R13) != (SAVE13))) goto L_011d; #line 1225 "regression-compile-tmp/allimpc1-77.imp" if (((CHNGE13) == (0))) goto L_011e; #line 1225 "regression-compile-tmp/allimpc1-77.imp" L_011d:; #line 1225 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; #line 1225 "regression-compile-tmp/allimpc1-77.imp" L_011e:; // 1226 PUSH(LOCAL LABEL,CA,JJJ) #line 1226 "regression-compile-tmp/allimpc1-77.imp" PUSH(&LOCALLABEL, CA, JJJ); // 1227 P=MARKER2; CUI(1); P=P+1 #line 1227 "regression-compile-tmp/allimpc1-77.imp" P = MARKER2; #line 1227 "regression-compile-tmp/allimpc1-77.imp" CUI(1); #line 1227 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 1228 FAULT(53) %IF A(P)=1; ->L102 #line 1228 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (1))) goto L_011f; #line 1228 "regression-compile-tmp/allimpc1-77.imp" FAULT(53); #line 1228 "regression-compile-tmp/allimpc1-77.imp" L_011f:; #line 1228 "regression-compile-tmp/allimpc1-77.imp" goto U_102a; // 1229 SW(6):L1: ! %COMMENT #line 1229 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_6:; #line 1229 "regression-compile-tmp/allimpc1-77.imp" U_1027:; // 1230 %RETURN #line 1230 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; // 1231 SW(7): ! SIMPLE DECLN #line 1231 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_7:; // 1232 FAULT(57) %UNLESS LEVEL>=2 #line 1232 "regression-compile-tmp/allimpc1-77.imp" if (((LEVEL) >= (2))) goto L_0120; #line 1232 "regression-compile-tmp/allimpc1-77.imp" FAULT(57); #line 1232 "regression-compile-tmp/allimpc1-77.imp" L_0120:; // 1233 FAULT(40) %IF NMDECS(LEVEL)#0 #line 1233 "regression-compile-tmp/allimpc1-77.imp" if (((NMDECS[LEVEL]) == (0))) goto L_0121; #line 1233 "regression-compile-tmp/allimpc1-77.imp" FAULT(40); #line 1233 "regression-compile-tmp/allimpc1-77.imp" L_0121:; // 1234 P=P+1;CLT;ROUT=0 #line 1234 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1234 "regression-compile-tmp/allimpc1-77.imp" CLT(); #line 1234 "regression-compile-tmp/allimpc1-77.imp" ROUT = 0; // 1235 FAULT(70) %IF TYPE=5 %AND ACC=0 #line 1235 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_0122; #line 1235 "regression-compile-tmp/allimpc1-77.imp" if (((ACC) != (0))) goto L_0122; #line 1235 "regression-compile-tmp/allimpc1-77.imp" FAULT(70); #line 1235 "regression-compile-tmp/allimpc1-77.imp" L_0122:; // 1236 ->SCALAR %IF A(P)=1 #line 1236 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (1))) goto L_0123; #line 1236 "regression-compile-tmp/allimpc1-77.imp" goto U_1032; #line 1236 "regression-compile-tmp/allimpc1-77.imp" L_0123:; // 1237 ->VECTOR %IF A(P)=3 #line 1237 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (3))) goto L_0124; #line 1237 "regression-compile-tmp/allimpc1-77.imp" goto U_1033; #line 1237 "regression-compile-tmp/allimpc1-77.imp" L_0124:; // 1238 ARR=1; NAM=(2-A(P+1))<<1; ! NAME ARRAY BIT #line 1238 "regression-compile-tmp/allimpc1-77.imp" ARR = 1; #line 1238 "regression-compile-tmp/allimpc1-77.imp" NAM = ((((2) - ((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))])))) << (1)); // 1239 PACK(PTYPE); P=P+2; SET LINE #line 1239 "regression-compile-tmp/allimpc1-77.imp" PACK(&PTYPE); #line 1239 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 1239 "regression-compile-tmp/allimpc1-77.imp" SETLINE(); // 1240 ACC=4 %IF NAM#0;CADCLN(0);->L1 #line 1240 "regression-compile-tmp/allimpc1-77.imp" if (((NAM) == (0))) goto L_0125; #line 1240 "regression-compile-tmp/allimpc1-77.imp" ACC = 4; #line 1240 "regression-compile-tmp/allimpc1-77.imp" L_0125:; #line 1240 "regression-compile-tmp/allimpc1-77.imp" CADCLN(0); #line 1240 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1241 VECTOR: ARR=2; NAM=0; PACK(PTYPE) #line 1241 "regression-compile-tmp/allimpc1-77.imp" U_1033:; #line 1241 "regression-compile-tmp/allimpc1-77.imp" ARR = 2; #line 1241 "regression-compile-tmp/allimpc1-77.imp" NAM = 0; #line 1241 "regression-compile-tmp/allimpc1-77.imp" PACK(&PTYPE); // 1242 P=P+1; SET LINE; CVDECLN; ->L1 #line 1242 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1242 "regression-compile-tmp/allimpc1-77.imp" SETLINE(); #line 1242 "regression-compile-tmp/allimpc1-77.imp" CVDECLN(); #line 1242 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1243 SCALAR: J=0;ROUT=0;CQN(P+1);P=P+2 #line 1243 "regression-compile-tmp/allimpc1-77.imp" U_1032:; #line 1243 "regression-compile-tmp/allimpc1-77.imp" J = 0; #line 1243 "regression-compile-tmp/allimpc1-77.imp" ROUT = 0; #line 1243 "regression-compile-tmp/allimpc1-77.imp" CQN((((int)(P)) + (1))); #line 1243 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); // 1244 INC=N #line 1244 "regression-compile-tmp/allimpc1-77.imp" INC = N; // 1245 QQ=ACC;ACC=4 %IF TYPE=5;JJ=0 #line 1245 "regression-compile-tmp/allimpc1-77.imp" QQ = ACC; #line 1245 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_0126; #line 1245 "regression-compile-tmp/allimpc1-77.imp" ACC = 4; #line 1245 "regression-compile-tmp/allimpc1-77.imp" L_0126:; #line 1245 "regression-compile-tmp/allimpc1-77.imp" JJ = 0; // 1246 ->L701 %UNLESS ACC=8 %AND N&7#0 #line 1246 "regression-compile-tmp/allimpc1-77.imp" if (((ACC) != (8))) goto L_0127; #line 1246 "regression-compile-tmp/allimpc1-77.imp" if (((((N) & (7))) != (0))) goto L_0128; #line 1246 "regression-compile-tmp/allimpc1-77.imp" L_0127:; #line 1246 "regression-compile-tmp/allimpc1-77.imp" goto U_1034; #line 1246 "regression-compile-tmp/allimpc1-77.imp" L_0128:; // 1247 PUSH(WSP(LEVEL),0,N);N=N+4 ;!DOUBLE WORD BOUNDARY #line 1247 "regression-compile-tmp/allimpc1-77.imp" PUSH(&WSP[LEVEL], 0, N); #line 1247 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (4)); // 1248 L701: SET LINE %IF TYPE=5 #line 1248 "regression-compile-tmp/allimpc1-77.imp" U_1034:; #line 1248 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_0129; #line 1248 "regression-compile-tmp/allimpc1-77.imp" SETLINE(); #line 1248 "regression-compile-tmp/allimpc1-77.imp" L_0129:; // 1249 PACK(PTYPE) #line 1249 "regression-compile-tmp/allimpc1-77.imp" PACK(&PTYPE); // 1250 %CYCLE KK=1,1,A(P) #line 1250 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = A[((P) + ((int)(2)))]; KK = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 1, 1, A[((P) + ((int)(2)))]"); KK -= _increment; _control -= _increment; L_012a:; if (KK == _final) goto L_012b; KK += _increment; _control += _increment; if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */ } // 1251 K=A(P+KK);TESTNST #line 1251 "regression-compile-tmp/allimpc1-77.imp" K = A[(((unsigned char)((((int)(P)) + (KK)))) + (2))]; #line 1251 "regression-compile-tmp/allimpc1-77.imp" TESTNST(); // 1252 STORE TAG(K,N) #line 1252 "regression-compile-tmp/allimpc1-77.imp" STORETAG(K, N); // 1253 ->L705 %UNLESS TYPE=5 #line 1253 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (5))) goto L_012d; #line 1253 "regression-compile-tmp/allimpc1-77.imp" goto U_1035; #line 1253 "regression-compile-tmp/allimpc1-77.imp" L_012d:; // 1254 JJ=JJ+QQ #line 1254 "regression-compile-tmp/allimpc1-77.imp" JJ = (((int)(JJ)) + (QQ)); // 1255 PSS(X'D2',2,WSPR,0,GLA,128) %IF UNASS=1 #line 1255 "regression-compile-tmp/allimpc1-77.imp" if (((UNASS) != (1))) goto L_012e; #line 1255 "regression-compile-tmp/allimpc1-77.imp" PSS(210, 2, WSPR, 0, GLA, 128); #line 1255 "regression-compile-tmp/allimpc1-77.imp" L_012e:; // 1256 PRX(X'50',WSPR,RBASE,0,N) ;!STORE POINTER #line 1256 "regression-compile-tmp/allimpc1-77.imp" PRX(80, WSPR, RBASE, 0, N); // 1257 PSI(X'92',QQ-1,RBASE,N) ;!STORE MAX LENGTH #line 1257 "regression-compile-tmp/allimpc1-77.imp" PSI(146, (((int)(QQ)) - (1)), RBASE, N); // 1258 %IF KK=A(P) %THEN QQ=QQ+(JJ+7)&(-8)-JJ #line 1258 "regression-compile-tmp/allimpc1-77.imp" if (((KK) != (A[((P) + ((int)(2)))]))) goto L_012f; #line 1258 "regression-compile-tmp/allimpc1-77.imp" QQ = (((int)(((QQ) + ((int)((((((int)(JJ)) + (7))) & ((-8)))))))) - (JJ)); #line 1258 "regression-compile-tmp/allimpc1-77.imp" L_012f:; // 1259 PRX(X'41',WSPR,WSPR,0,QQ) ;!ADVANCE WORK SPACE #line 1259 "regression-compile-tmp/allimpc1-77.imp" PRX(65, WSPR, WSPR, 0, QQ); // 1260 L705: N=N+ACC;%REPEAT #line 1260 "regression-compile-tmp/allimpc1-77.imp" U_1035:; #line 1260 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (ACC)); #line 1260 "regression-compile-tmp/allimpc1-77.imp" goto L_012a; #line 1260 "regression-compile-tmp/allimpc1-77.imp" L_012b:; // 1261 N=N+3; N=N&(-4) #line 1261 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (3)); #line 1261 "regression-compile-tmp/allimpc1-77.imp" N = ((N) & ((-4))); // 1262 SET80(INC,N-INC) %IF UNASS=1 %AND TYPE#5 #line 1262 "regression-compile-tmp/allimpc1-77.imp" if (((UNASS) != (1))) goto L_0130; #line 1262 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (5))) goto L_0130; #line 1262 "regression-compile-tmp/allimpc1-77.imp" SET80(INC, (((int)(N)) - (INC))); #line 1262 "regression-compile-tmp/allimpc1-77.imp" L_0130:; // 1263 ->L1 #line 1263 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1264 SW(8): ! %END #line 1264 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_8:; // 1265 CEND(FLAG(LEVEL)) #line 1265 "regression-compile-tmp/allimpc1-77.imp" CEND(FLAG[LEVEL]); // 1266 ->L1 #line 1266 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1267 SW(9): P=P+1; MARKER1=A(P)+P; !(SEX)(RT)(SPEC')(NAME)(FPP) #line 1267 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_9:; #line 1267 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1267 "regression-compile-tmp/allimpc1-77.imp" MARKER1 = (((int)(A[((P) + ((int)(2)))])) + (P)); // 1268 L900: Q=P; KKK=A(MARKER1+1); !KKK ON NAME #line 1268 "regression-compile-tmp/allimpc1-77.imp" U_1036:; #line 1268 "regression-compile-tmp/allimpc1-77.imp" Q = P; #line 1268 "regression-compile-tmp/allimpc1-77.imp" KKK = A[(((unsigned char)((((int)(MARKER1)) + (1)))) + (2))]; // 1269 EXTRN=A(P+1) #line 1269 "regression-compile-tmp/allimpc1-77.imp" EXTRN = A[(((unsigned char)((((int)(P)) + (1)))) + (2))]; // 1270 ->L902 %IF A(MARKER1)=2 #line 1270 "regression-compile-tmp/allimpc1-77.imp" if (((A[((MARKER1) + ((int)(2)))]) != (2))) goto L_0131; #line 1270 "regression-compile-tmp/allimpc1-77.imp" goto U_1037; #line 1270 "regression-compile-tmp/allimpc1-77.imp" L_0131:; // 1271 P=P+1; CRSPEC(0); ->L1 %IF EXTRN=3 #line 1271 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1271 "regression-compile-tmp/allimpc1-77.imp" CRSPEC(0); #line 1271 "regression-compile-tmp/allimpc1-77.imp" if (((EXTRN) != (3))) goto L_0132; #line 1271 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; #line 1271 "regression-compile-tmp/allimpc1-77.imp" L_0132:; // 1272 N0=N0-1; KK='S'*(2-EXTRN) #line 1272 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) - (1)); #line 1272 "regression-compile-tmp/allimpc1-77.imp" KK = ((83) * ((int)((((int)(2)) - (EXTRN))))); // 1273 GXREF(KKK,KK); JJ=TAGS(KKK) #line 1273 "regression-compile-tmp/allimpc1-77.imp" GXREF(KKK, KK); #line 1273 "regression-compile-tmp/allimpc1-77.imp" JJ = TAGS[KKK]; // 1274 FROM1(JJ,Q) #line 1274 "regression-compile-tmp/allimpc1-77.imp" FROM1(JJ, &Q); // 1275 REPLACE1(JJ,Q&(-2)); ->L1 #line 1275 "regression-compile-tmp/allimpc1-77.imp" REPLACE1(JJ, ((Q) & ((-2)))); #line 1275 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1276 L902: FILL JUMPS(LEVEL) #line 1276 "regression-compile-tmp/allimpc1-77.imp" U_1037:; #line 1276 "regression-compile-tmp/allimpc1-77.imp" FILLJUMPS(LEVEL); // 1277 KK=KKK #line 1277 "regression-compile-tmp/allimpc1-77.imp" KK = KKK; // 1278 COPY TAG(KKK); ->L939 %IF OLDI#LEVEL #line 1278 "regression-compile-tmp/allimpc1-77.imp" COPYTAG(KKK); #line 1278 "regression-compile-tmp/allimpc1-77.imp" if (((OLDI) == (LEVEL))) goto L_0133; #line 1278 "regression-compile-tmp/allimpc1-77.imp" goto U_1038; #line 1278 "regression-compile-tmp/allimpc1-77.imp" L_0133:; // 1279 %UNLESS EXTRN=3 %THEN %START #line 1279 "regression-compile-tmp/allimpc1-77.imp" if (((EXTRN) == (3))) goto L_0134; // 1280 CPRMODE=2 %IF CPRMODE=0 #line 1280 "regression-compile-tmp/allimpc1-77.imp" if (((CPRMODE) != (0))) goto L_0135; #line 1280 "regression-compile-tmp/allimpc1-77.imp" CPRMODE = 2; #line 1280 "regression-compile-tmp/allimpc1-77.imp" L_0135:; // 1281 FAULT(55) %UNLESS CPRMODE=2 %AND LEVEL=1 #line 1281 "regression-compile-tmp/allimpc1-77.imp" if (((CPRMODE) != (2))) goto L_00e9; #line 1281 "regression-compile-tmp/allimpc1-77.imp" if (((LEVEL) == (1))) goto L_0136; #line 1281 "regression-compile-tmp/allimpc1-77.imp" L_00e9:; #line 1281 "regression-compile-tmp/allimpc1-77.imp" FAULT(55); #line 1281 "regression-compile-tmp/allimpc1-77.imp" L_0136:; // 1282 DEFINE EP(EXTRN,KKK,CA) #line 1282 "regression-compile-tmp/allimpc1-77.imp" DEFINEEP(EXTRN, KKK, CA); // 1283 PCLOD(0); ! ST 12,28(GLA)--L 12,=A(PERM) #line 1283 "regression-compile-tmp/allimpc1-77.imp" PCLOD(0); // 1284 %FINISH #line 1284 "regression-compile-tmp/allimpc1-77.imp" L_0134:; // 1285 ->L908 %IF A(P+2)=1; ROUT=1 #line 1285 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) != (1))) goto L_0137; #line 1285 "regression-compile-tmp/allimpc1-77.imp" goto U_1039; #line 1285 "regression-compile-tmp/allimpc1-77.imp" L_0137:; #line 1285 "regression-compile-tmp/allimpc1-77.imp" ROUT = 1; // 1286 P=P+3 #line 1286 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); // 1287 CLT;ARR=0;NAM=(A(P)-1)<<1; ! SET NAME ARRAY BIT FOR MAPS #line 1287 "regression-compile-tmp/allimpc1-77.imp" CLT(); #line 1287 "regression-compile-tmp/allimpc1-77.imp" ARR = 0; #line 1287 "regression-compile-tmp/allimpc1-77.imp" NAM = (((((int)(A[((P) + ((int)(2)))])) - (1))) << (1)); // 1288 PACK(KKK); ->L909 #line 1288 "regression-compile-tmp/allimpc1-77.imp" PACK(&KKK); #line 1288 "regression-compile-tmp/allimpc1-77.imp" goto U_103a; // 1289 L908: KKK=10000 #line 1289 "regression-compile-tmp/allimpc1-77.imp" U_1039:; #line 1289 "regression-compile-tmp/allimpc1-77.imp" KKK = 10000; // 1290 L909: ->L940 %IF J=15 %AND PTYPE=KKK #line 1290 "regression-compile-tmp/allimpc1-77.imp" U_103a:; #line 1290 "regression-compile-tmp/allimpc1-77.imp" if (((J) != (15))) goto L_0138; #line 1290 "regression-compile-tmp/allimpc1-77.imp" if (((PTYPE) != (KKK))) goto L_0138; #line 1290 "regression-compile-tmp/allimpc1-77.imp" goto U_103b; #line 1290 "regression-compile-tmp/allimpc1-77.imp" L_0138:; // 1291 FNAME=KK; FAULT(7) %UNLESS PTYPE&7=7 #line 1291 "regression-compile-tmp/allimpc1-77.imp" FNAME = KK; #line 1291 "regression-compile-tmp/allimpc1-77.imp" if (((((PTYPE) & (7))) == (7))) goto L_0139; #line 1291 "regression-compile-tmp/allimpc1-77.imp" FAULT(7); #line 1291 "regression-compile-tmp/allimpc1-77.imp" L_0139:; // 1292 L939: P=Q+1; CRSPEC(0); P=Q; ->L900 #line 1292 "regression-compile-tmp/allimpc1-77.imp" U_1038:; #line 1292 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(Q)) + (1)); #line 1292 "regression-compile-tmp/allimpc1-77.imp" CRSPEC(0); #line 1292 "regression-compile-tmp/allimpc1-77.imp" P = Q; #line 1292 "regression-compile-tmp/allimpc1-77.imp" goto U_1036; // 1293 L940: J=0; REPLACETAG(KK); JJ=K; ! CHANGE TAG TO ROUT SPECIFIED AND DESCRIBED #line 1293 "regression-compile-tmp/allimpc1-77.imp" U_103b:; #line 1293 "regression-compile-tmp/allimpc1-77.imp" J = 0; #line 1293 "regression-compile-tmp/allimpc1-77.imp" REPLACETAG(KK); #line 1293 "regression-compile-tmp/allimpc1-77.imp" JJ = K; // 1294 PLABEL=PLABEL-1 #line 1294 "regression-compile-tmp/allimpc1-77.imp" PLABEL = (((int)(PLABEL)) - (1)); // 1295 PJ(15,PLABEL) %UNLESS COMPILER=1 %OR(CPRMODE=2 %AND LEVEL=1) #line 1295 "regression-compile-tmp/allimpc1-77.imp" if (((COMPILER) == (1))) goto L_013a; #line 1295 "regression-compile-tmp/allimpc1-77.imp" if (((CPRMODE) != (2))) goto L_012c; #line 1295 "regression-compile-tmp/allimpc1-77.imp" if (((LEVEL) == (1))) goto L_013a; #line 1295 "regression-compile-tmp/allimpc1-77.imp" L_012c:; #line 1295 "regression-compile-tmp/allimpc1-77.imp" PJ(15, PLABEL); #line 1295 "regression-compile-tmp/allimpc1-77.imp" L_013a:; // 1296 RAL(LEVEL)=NMAX<<16!SBFLAG<<15!N #line 1296 "regression-compile-tmp/allimpc1-77.imp" RAL[LEVEL] = ((((((NMAX) << (16))) | (((SBFLAG) << (15))))) | (N)); // 1297 RHEAD(KK) #line 1297 "regression-compile-tmp/allimpc1-77.imp" RHEAD(KK); // 1298 PPJ(40) %UNLESS EXTRN=3; ! TO RELOCATE OWNS #line 1298 "regression-compile-tmp/allimpc1-77.imp" if (((EXTRN) == (3))) goto L_013b; #line 1298 "regression-compile-tmp/allimpc1-77.imp" PPJ(40); #line 1298 "regression-compile-tmp/allimpc1-77.imp" L_013b:; // 1299 FLAG(LEVEL)=PTYPE #line 1299 "regression-compile-tmp/allimpc1-77.imp" FLAG[LEVEL] = PTYPE; // 1300 P=MARKER1+1 #line 1300 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(MARKER1)) + (1)); // 1301 ->L942 %IF A(P+1)=2 #line 1301 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) goto L_013c; #line 1301 "regression-compile-tmp/allimpc1-77.imp" goto U_103c; #line 1301 "regression-compile-tmp/allimpc1-77.imp" L_013c:; // 1302 L943: P=P+2; COMPILE FORMAL PARAMETER #line 1302 "regression-compile-tmp/allimpc1-77.imp" U_103d:; #line 1302 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 1302 "regression-compile-tmp/allimpc1-77.imp" COMPILEFORMALPARAMETER(); // 1303 %CYCLE BXLE=1,1,A(P) #line 1303 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = A[((P) + ((int)(2)))]; BXLE = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle BXLE = 1, 1, A[((P) + ((int)(2)))]"); BXLE -= _increment; _control -= _increment; L_013d:; if (BXLE == _final) goto L_013e; BXLE += _increment; _control += _increment; if (BXLE != _control) _imp_signal(4,2,0,"Corrupt control variable BXLE"); /* FOR loop control variable corrupted */ } // 1304 MLINK(JJ); ->L945 %UNLESS JJ=0 #line 1304 "regression-compile-tmp/allimpc1-77.imp" MLINK(&JJ); #line 1304 "regression-compile-tmp/allimpc1-77.imp" if (((JJ) == (0))) goto L_0140; #line 1304 "regression-compile-tmp/allimpc1-77.imp" goto U_103e; #line 1304 "regression-compile-tmp/allimpc1-77.imp" L_0140:; // 1305 FAULT(8); ->L946 #line 1305 "regression-compile-tmp/allimpc1-77.imp" FAULT(8); #line 1305 "regression-compile-tmp/allimpc1-77.imp" goto U_103f; // 1306 L945: FROM LIST(JJ,J,JJJ) #line 1306 "regression-compile-tmp/allimpc1-77.imp" U_103e:; #line 1306 "regression-compile-tmp/allimpc1-77.imp" FROMLIST(JJ, &J, &JJJ); // 1307 ->L946 %IF J=PTYPE %AND(PTYPE#5 %OR JJJ=ACC) #line 1307 "regression-compile-tmp/allimpc1-77.imp" if (((J) != (PTYPE))) goto L_0141; #line 1307 "regression-compile-tmp/allimpc1-77.imp" if (((PTYPE) != (5))) goto L_0142; #line 1307 "regression-compile-tmp/allimpc1-77.imp" if (((JJJ) != (ACC))) goto L_0141; #line 1307 "regression-compile-tmp/allimpc1-77.imp" L_0142:; #line 1307 "regression-compile-tmp/allimpc1-77.imp" goto U_103f; #line 1307 "regression-compile-tmp/allimpc1-77.imp" L_0141:; // 1308 FAULT(9); PRINT NAME(A(P+BXLE)) #line 1308 "regression-compile-tmp/allimpc1-77.imp" FAULT(9); #line 1308 "regression-compile-tmp/allimpc1-77.imp" PRINTNAME(A[(((unsigned char)((((int)(P)) + (BXLE)))) + (2))]); // 1309 L946: K=A(P+BXLE); TESTNST #line 1309 "regression-compile-tmp/allimpc1-77.imp" U_103f:; #line 1309 "regression-compile-tmp/allimpc1-77.imp" K = A[(((unsigned char)((((int)(P)) + (BXLE)))) + (2))]; #line 1309 "regression-compile-tmp/allimpc1-77.imp" TESTNST(); // 1310 OPHEAD=0; UNPACK #line 1310 "regression-compile-tmp/allimpc1-77.imp" OPHEAD = 0; #line 1310 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 1311 ->L947 %IF ROUT=1; ! RT TYPES #line 1311 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) != (1))) goto L_0143; #line 1311 "regression-compile-tmp/allimpc1-77.imp" goto U_1040; #line 1311 "regression-compile-tmp/allimpc1-77.imp" L_0143:; // 1312 ->L9040 %IF PTYPE=5; J=JJJ #line 1312 "regression-compile-tmp/allimpc1-77.imp" if (((PTYPE) != (5))) goto L_0144; #line 1312 "regression-compile-tmp/allimpc1-77.imp" goto U_1041; #line 1312 "regression-compile-tmp/allimpc1-77.imp" L_0144:; #line 1312 "regression-compile-tmp/allimpc1-77.imp" J = JJJ; // 1313 ->L948 %IF TYPE=3; !RECORDS #line 1313 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_0145; #line 1313 "regression-compile-tmp/allimpc1-77.imp" goto U_1042; #line 1313 "regression-compile-tmp/allimpc1-77.imp" L_0145:; // 1314 R=N; ->L950 %IF ARR=1 #line 1314 "regression-compile-tmp/allimpc1-77.imp" R = N; #line 1314 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (1))) goto L_0146; #line 1314 "regression-compile-tmp/allimpc1-77.imp" goto U_1043; #line 1314 "regression-compile-tmp/allimpc1-77.imp" L_0146:; // 1315 ->L949 %IF PREC=3 %AND NAM=0; ! LONG #line 1315 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) != (3))) goto L_0147; #line 1315 "regression-compile-tmp/allimpc1-77.imp" if (((NAM) != (0))) goto L_0147; #line 1315 "regression-compile-tmp/allimpc1-77.imp" goto U_1044; #line 1315 "regression-compile-tmp/allimpc1-77.imp" L_0147:; // 1316 N=N+4-ACC; R=N #line 1316 "regression-compile-tmp/allimpc1-77.imp" N = (((int)((((int)(N)) + (4)))) - (ACC)); #line 1316 "regression-compile-tmp/allimpc1-77.imp" R = N; // 1317 L950: STORE TAG(K,N) #line 1317 "regression-compile-tmp/allimpc1-77.imp" U_1043:; #line 1317 "regression-compile-tmp/allimpc1-77.imp" STORETAG(K, N); // 1318 N=R+ACC; ->L999 #line 1318 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(R)) + (ACC)); #line 1318 "regression-compile-tmp/allimpc1-77.imp" goto U_1045; // 1319 L947: PUSH(OPHEAD,N,1000); !SET DUMMY SIDECHAIN FOR RT TYPES #line 1319 "regression-compile-tmp/allimpc1-77.imp" U_1040:; #line 1319 "regression-compile-tmp/allimpc1-77.imp" PUSH(&OPHEAD, N, 1000); // 1320 J=13 #line 1320 "regression-compile-tmp/allimpc1-77.imp" J = 13; // 1321 L951: KK=OPHEAD #line 1321 "regression-compile-tmp/allimpc1-77.imp" U_1046:; #line 1321 "regression-compile-tmp/allimpc1-77.imp" KK = OPHEAD; // 1322 R=N; N=KK; ->L950 #line 1322 "regression-compile-tmp/allimpc1-77.imp" R = N; #line 1322 "regression-compile-tmp/allimpc1-77.imp" N = KK; #line 1322 "regression-compile-tmp/allimpc1-77.imp" goto U_1043; // 1323 L9040: PRX(X'41',1,0,RBASE,N+4); ! STRING VALUE SET PTR #line 1323 "regression-compile-tmp/allimpc1-77.imp" U_1041:; #line 1323 "regression-compile-tmp/allimpc1-77.imp" PRX(65, 1, 0, RBASE, (((int)(N)) + (4))); // 1324 PRX(X'50',1,0,RBASE,N) #line 1324 "regression-compile-tmp/allimpc1-77.imp" PRX(80, 1, 0, RBASE, N); // 1325 PSI(X'92',JJJ-1,RBASE,N) #line 1325 "regression-compile-tmp/allimpc1-77.imp" PSI(146, (((int)(JJJ)) - (1)), RBASE, N); // 1326 STORE TAG(K,N) #line 1326 "regression-compile-tmp/allimpc1-77.imp" STORETAG(K, N); // 1327 N=N+(ACC+7)&(-4); ->L999 #line 1327 "regression-compile-tmp/allimpc1-77.imp" N = ((N) + ((int)((((((int)(ACC)) + (7))) & ((-4)))))); #line 1327 "regression-compile-tmp/allimpc1-77.imp" goto U_1045; // 1328 L948: PUSH(OPHEAD,0,N); J=0; ->L951; ! DUMMY SIDECHAIN FOR RECORD #line 1328 "regression-compile-tmp/allimpc1-77.imp" U_1042:; #line 1328 "regression-compile-tmp/allimpc1-77.imp" PUSH(&OPHEAD, 0, N); #line 1328 "regression-compile-tmp/allimpc1-77.imp" J = 0; #line 1328 "regression-compile-tmp/allimpc1-77.imp" goto U_1046; // 1329 L949: R=N; ->L950 %IF N&7=0 #line 1329 "regression-compile-tmp/allimpc1-77.imp" U_1044:; #line 1329 "regression-compile-tmp/allimpc1-77.imp" R = N; #line 1329 "regression-compile-tmp/allimpc1-77.imp" if (((((N) & (7))) != (0))) goto L_0148; #line 1329 "regression-compile-tmp/allimpc1-77.imp" goto U_1043; #line 1329 "regression-compile-tmp/allimpc1-77.imp" L_0148:; // 1330 PUSH(WSP(LEVEL),0,N) #line 1330 "regression-compile-tmp/allimpc1-77.imp" PUSH(&WSP[LEVEL], 0, N); // 1331 N=N+4; R=N; ->L950; !ALLIGN ON D W BOUNDARY #line 1331 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (4)); #line 1331 "regression-compile-tmp/allimpc1-77.imp" R = N; #line 1331 "regression-compile-tmp/allimpc1-77.imp" goto U_1043; // 1332 L999: %REPEAT #line 1332 "regression-compile-tmp/allimpc1-77.imp" U_1045:; #line 1332 "regression-compile-tmp/allimpc1-77.imp" goto L_013d; #line 1332 "regression-compile-tmp/allimpc1-77.imp" L_013e:; // 1333 P=P+1+BXLE; ->L943 %IF A(P)=1 #line 1333 "regression-compile-tmp/allimpc1-77.imp" P = (((int)((((int)(P)) + (1)))) + (BXLE)); #line 1333 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (1))) goto L_0149; #line 1333 "regression-compile-tmp/allimpc1-77.imp" goto U_103d; #line 1333 "regression-compile-tmp/allimpc1-77.imp" L_0149:; // 1334 L942: MLINK(JJ); FAULT(10) %UNLESS JJ=0; ->L1202 #line 1334 "regression-compile-tmp/allimpc1-77.imp" U_103c:; #line 1334 "regression-compile-tmp/allimpc1-77.imp" MLINK(&JJ); #line 1334 "regression-compile-tmp/allimpc1-77.imp" if (((JJ) == (0))) goto L_014a; #line 1334 "regression-compile-tmp/allimpc1-77.imp" FAULT(10); #line 1334 "regression-compile-tmp/allimpc1-77.imp" L_014a:; #line 1334 "regression-compile-tmp/allimpc1-77.imp" goto U_1047; // 1335 ! // 1336 SW(10): ! COMMENT #line 1336 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_10:; // 1337 ->L1 #line 1337 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1338 ! // 1339 SW(11): !REALS(LN) #line 1339 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_11:; // 1340 ALL LONG=A(P+1)&1;->L1 #line 1340 "regression-compile-tmp/allimpc1-77.imp" ALLLONG = ((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) & (1)); #line 1340 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1341 SW(12): !%BEGIN #line 1341 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_12:; // 1342 FILL JUMPS(LEVEL) #line 1342 "regression-compile-tmp/allimpc1-77.imp" FILLJUMPS(LEVEL); // 1343 RAL(LEVEL)=SBFLAG<<15!N #line 1343 "regression-compile-tmp/allimpc1-77.imp" RAL[LEVEL] = ((((SBFLAG) << (15))) | (N)); // 1344 PTYPE=0; RHEAD(-1) #line 1344 "regression-compile-tmp/allimpc1-77.imp" PTYPE = 0; #line 1344 "regression-compile-tmp/allimpc1-77.imp" RHEAD((-1)); // 1345 FLAG(LEVEL)=0 #line 1345 "regression-compile-tmp/allimpc1-77.imp" FLAG[LEVEL] = 0; // 1346 ->L1 %IF LEVEL=1=RLEVEL #line 1346 "regression-compile-tmp/allimpc1-77.imp" if ((((LEVEL) != (1))) || (((1) != (RLEVEL)))) goto L_014b; #line 1346 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; #line 1346 "regression-compile-tmp/allimpc1-77.imp" L_014b:; // 1347 ->L1202 %UNLESS LEVEL=2 #line 1347 "regression-compile-tmp/allimpc1-77.imp" if (((LEVEL) == (2))) goto L_014c; #line 1347 "regression-compile-tmp/allimpc1-77.imp" goto U_1047; #line 1347 "regression-compile-tmp/allimpc1-77.imp" L_014c:; // 1348 CPRMODE=1 %IF CPRMODE=0 #line 1348 "regression-compile-tmp/allimpc1-77.imp" if (((CPRMODE) != (0))) goto L_014d; #line 1348 "regression-compile-tmp/allimpc1-77.imp" CPRMODE = 1; #line 1348 "regression-compile-tmp/allimpc1-77.imp" L_014d:; // 1349 DEFINE EP(0,0,0) #line 1349 "regression-compile-tmp/allimpc1-77.imp" DEFINEEP(0, 0, 0); // 1350 FAULT(55) %UNLESS CPRMODE=1 #line 1350 "regression-compile-tmp/allimpc1-77.imp" if (((CPRMODE) == (1))) goto L_014e; #line 1350 "regression-compile-tmp/allimpc1-77.imp" FAULT(55); #line 1350 "regression-compile-tmp/allimpc1-77.imp" L_014e:; // 1351 L1202: PLANT(X'05A0'); CODEBASE(LEVEL)=CA; ->L1 #line 1351 "regression-compile-tmp/allimpc1-77.imp" U_1047:; #line 1351 "regression-compile-tmp/allimpc1-77.imp" PLANT(1440); #line 1351 "regression-compile-tmp/allimpc1-77.imp" CODEBASE[LEVEL] = CA; #line 1351 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1352 SW(13): ! %ENDOFPROGRAM #line 1352 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_13:; // 1353 FAULT(15) %UNLESS LEVEL=2 #line 1353 "regression-compile-tmp/allimpc1-77.imp" if (((LEVEL) == (2))) goto L_014f; #line 1353 "regression-compile-tmp/allimpc1-77.imp" FAULT(15); #line 1353 "regression-compile-tmp/allimpc1-77.imp" L_014f:; // 1354 FAULT(56) %UNLESS CPRMODE=1 #line 1354 "regression-compile-tmp/allimpc1-77.imp" if (((CPRMODE) == (1))) goto L_0150; #line 1354 "regression-compile-tmp/allimpc1-77.imp" FAULT(56); #line 1354 "regression-compile-tmp/allimpc1-77.imp" L_0150:; // 1355 PERM=0; CEND(1) #line 1355 "regression-compile-tmp/allimpc1-77.imp" PERM = 0; #line 1355 "regression-compile-tmp/allimpc1-77.imp" CEND(1); // 1356 LOAD DATA; ->L1 #line 1356 "regression-compile-tmp/allimpc1-77.imp" LOADDATA(); #line 1356 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1357 SW(14): %BEGIN; !SWITCH LABEL #line 1357 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_14:; #line 1357 "regression-compile-tmp/allimpc1-77.imp" void _BLOCK_1_LEVEL_2_(void) { // 1358 !%SHORTROUTINE // 1359 R13=0;MONE=1 #line 1359 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; #line 1359 "regression-compile-tmp/allimpc1-77.imp" MONE = 1; // 1360 COPYTAG(A(P+1)) #line 1360 "regression-compile-tmp/allimpc1-77.imp" COPYTAG(A[(((unsigned char)((((int)(P)) + (1)))) + (2))]); // 1361 ->L1401 %IF OLDI=LEVEL %AND TYPE=6 #line 1361 "regression-compile-tmp/allimpc1-77.imp" if (((OLDI) != (LEVEL))) goto L_0151; #line 1361 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (6))) goto L_0151; #line 1361 "regression-compile-tmp/allimpc1-77.imp" goto U_1048; #line 1361 "regression-compile-tmp/allimpc1-77.imp" L_0151:; // 1362 FAULT(4); ->L1 #line 1362 "regression-compile-tmp/allimpc1-77.imp" FAULT(4); #line 1362 "regression-compile-tmp/allimpc1-77.imp" goto U_1049; // 1363 L1401: FROM LIST(K,ACC,KKK) #line 1363 "regression-compile-tmp/allimpc1-77.imp" U_1048:; #line 1363 "regression-compile-tmp/allimpc1-77.imp" FROMLIST(K, &ACC, &KKK); // 1364 MLINK(K); FROM LIST(K,QQ,KK); ! UB & BIT LIST PART 1 #line 1364 "regression-compile-tmp/allimpc1-77.imp" MLINK(&K); #line 1364 "regression-compile-tmp/allimpc1-77.imp" FROMLIST(K, &QQ, &KK); // 1365 ->L1411 %UNLESS A(P+3)&7=1 #line 1365 "regression-compile-tmp/allimpc1-77.imp" if (((((A[(((unsigned char)((((int)(P)) + (3)))) + (2))]) & (7))) == (1))) goto L_0152; #line 1365 "regression-compile-tmp/allimpc1-77.imp" goto U_104a; #line 1365 "regression-compile-tmp/allimpc1-77.imp" L_0152:; // 1366 %IF A(P+3)=9 %THEN JJ=A(P+4) %ELSE %START #line 1366 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (3)))) + (2))]) != (9))) goto L_0153; #line 1366 "regression-compile-tmp/allimpc1-77.imp" JJ = A[(((unsigned char)((((int)(P)) + (4)))) + (2))]; #line 1366 "regression-compile-tmp/allimpc1-77.imp" goto L_0154; #line 1366 "regression-compile-tmp/allimpc1-77.imp" L_0153:; // 1367 FROMAR4(P+4,JJ); P=P+1; %FINISH #line 1367 "regression-compile-tmp/allimpc1-77.imp" FROMAR4((((int)(P)) + (4)), &JJ); #line 1367 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1367 "regression-compile-tmp/allimpc1-77.imp" L_0154:; // 1368 JJ=-JJ %IF A(P+2)=2 #line 1368 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) != (2))) goto L_0155; #line 1368 "regression-compile-tmp/allimpc1-77.imp" JJ = (-(JJ)); #line 1368 "regression-compile-tmp/allimpc1-77.imp" L_0155:; // 1369 ->L1402 %IF KKK<=JJ<=KK #line 1369 "regression-compile-tmp/allimpc1-77.imp" if ((((KKK) > (JJ))) || (((JJ) > (KK)))) goto L_0156; #line 1369 "regression-compile-tmp/allimpc1-77.imp" goto U_104b; #line 1369 "regression-compile-tmp/allimpc1-77.imp" L_0156:; // 1370 L1411: FAULT(5); ->L1 #line 1370 "regression-compile-tmp/allimpc1-77.imp" U_104a:; #line 1370 "regression-compile-tmp/allimpc1-77.imp" FAULT(5); #line 1370 "regression-compile-tmp/allimpc1-77.imp" goto U_1049; // 1371 L1402: Q=JJ-KKK #line 1371 "regression-compile-tmp/allimpc1-77.imp" U_104b:; #line 1371 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(JJ)) - (KKK)); // 1372 L1404: ->L1403 %IF 31>=Q #line 1372 "regression-compile-tmp/allimpc1-77.imp" U_104c:; #line 1372 "regression-compile-tmp/allimpc1-77.imp" if (((31) < (Q))) goto L_0157; #line 1372 "regression-compile-tmp/allimpc1-77.imp" goto U_104d; #line 1372 "regression-compile-tmp/allimpc1-77.imp" L_0157:; // 1373 MLINK(K); Q=Q-32 #line 1373 "regression-compile-tmp/allimpc1-77.imp" MLINK(&K); #line 1373 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) - (32)); // 1374 FROM LIST(K,QQ,JJJ); ->L1404 #line 1374 "regression-compile-tmp/allimpc1-77.imp" FROMLIST(K, &QQ, &JJJ); #line 1374 "regression-compile-tmp/allimpc1-77.imp" goto U_104c; // 1375 L1403: JJJ=1<L1407 %IF PREC#0 #line 1378 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) == (0))) goto L_0159; #line 1378 "regression-compile-tmp/allimpc1-77.imp" goto U_104e; #line 1378 "regression-compile-tmp/allimpc1-77.imp" L_0159:; // 1379 QQ=ACC+8+(JJ-KKK)<<2; ! WHERE TO PLUG #line 1379 "regression-compile-tmp/allimpc1-77.imp" QQ = ((((((int)(ACC)) + (8)))) + ((((((int)(JJ)) - (KKK))) << (2)))); // 1380 PLUG(QQ,Q>>16) %UNLESS Q>>16=0 #line 1380 "regression-compile-tmp/allimpc1-77.imp" if ((((int)((((unsigned int)(Q)) >> (16)))) == (0))) goto L_015a; #line 1380 "regression-compile-tmp/allimpc1-77.imp" PLUG(QQ, (int)((((unsigned int)(Q)) >> (16)))); #line 1380 "regression-compile-tmp/allimpc1-77.imp" L_015a:; // 1381 L1406: PLUG(QQ+2,Q&X'FFFF'); ->L1 #line 1381 "regression-compile-tmp/allimpc1-77.imp" U_104f:; #line 1381 "regression-compile-tmp/allimpc1-77.imp" PLUG((((int)(QQ)) + (2)), ((Q) & (65535))); #line 1381 "regression-compile-tmp/allimpc1-77.imp" goto U_1049; // 1382 L1407: QQ=ACC+6+(JJ-KKK)<<1 #line 1382 "regression-compile-tmp/allimpc1-77.imp" U_104e:; #line 1382 "regression-compile-tmp/allimpc1-77.imp" QQ = ((((((int)(ACC)) + (6)))) + ((((((int)(JJ)) - (KKK))) << (1)))); // 1383 FAULT(99) %IF Q>X'7FFF';->L1406 #line 1383 "regression-compile-tmp/allimpc1-77.imp" if (((Q) <= (32767))) goto L_015b; #line 1383 "regression-compile-tmp/allimpc1-77.imp" FAULT(99); #line 1383 "regression-compile-tmp/allimpc1-77.imp" L_015b:; #line 1383 "regression-compile-tmp/allimpc1-77.imp" goto U_104f; // 1384 ! // 1385 L1: %END;->L1 #line 1385 "regression-compile-tmp/allimpc1-77.imp" U_1049:; #line 1385 "regression-compile-tmp/allimpc1-77.imp" return; } // End of block _BLOCK_1_LEVEL_2_ at level 3 _BLOCK_1_LEVEL_2_(); #line 1385 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1386 SW(15): %BEGIN; !SWITCH (SWITCH LIST) #line 1386 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_15:; #line 1386 "regression-compile-tmp/allimpc1-77.imp" void _BLOCK_2_LEVEL_2_(void) { // 1387 !%SHORTROUTINE // 1388 %INTEGER BP,QQQ #line 1388 "regression-compile-tmp/allimpc1-77.imp" int BP; #line 1388 "regression-compile-tmp/allimpc1-77.imp" int QQQ; // 1389 Q=P;CNOP(0,4);PJ(15,PLABEL-1) #line 1389 "regression-compile-tmp/allimpc1-77.imp" Q = P; #line 1389 "regression-compile-tmp/allimpc1-77.imp" CNOP(0, 4); #line 1389 "regression-compile-tmp/allimpc1-77.imp" PJ(15, (((int)(PLABEL)) - (1))); // 1390 FAULT(56) %UNLESS LEVEL>=2 #line 1390 "regression-compile-tmp/allimpc1-77.imp" if (((LEVEL) >= (2))) goto L_015c; #line 1390 "regression-compile-tmp/allimpc1-77.imp" FAULT(56); #line 1390 "regression-compile-tmp/allimpc1-77.imp" L_015c:; // 1391 L1528: P=Q+A(Q+1)+2 #line 1391 "regression-compile-tmp/allimpc1-77.imp" U_104a:; #line 1391 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(((Q) + ((int)(A[(((unsigned char)((((int)(Q)) + (1)))) + (2))]))))) + (2)); // 1392 CBPAIR(KKK,KK); ! LB TO KKK, UB TO KK #line 1392 "regression-compile-tmp/allimpc1-77.imp" CBPAIR(&KKK, &KK); // 1393 ->L1501 %UNLESS |KKK||KK| #line 1393 "regression-compile-tmp/allimpc1-77.imp" if ((((_imp_IMOD(KKK)) >= (32767))) || (((32767) > (_imp_IMOD(KK))))) goto L_015d; #line 1393 "regression-compile-tmp/allimpc1-77.imp" L_013f:; #line 1393 "regression-compile-tmp/allimpc1-77.imp" goto U_104b; #line 1393 "regression-compile-tmp/allimpc1-77.imp" L_015d:; // 1394 ->L1535 %IF KKK<=KK; FAULT(27); KK=KKK #line 1394 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) > (KK))) goto L_015e; #line 1394 "regression-compile-tmp/allimpc1-77.imp" goto U_104c; #line 1394 "regression-compile-tmp/allimpc1-77.imp" L_015e:; #line 1394 "regression-compile-tmp/allimpc1-77.imp" FAULT(27); #line 1394 "regression-compile-tmp/allimpc1-77.imp" KK = KKK; // 1395 L1535: %CYCLE QQ=1,1,A(Q+1) #line 1395 "regression-compile-tmp/allimpc1-77.imp" U_104c:; #line 1395 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = A[(((unsigned char)((((int)(Q)) + (1)))) + (2))]; QQ = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle QQ = 1, 1, A[(((unsigned char)((((int)(Q)) + (1)))) + (2))]"); QQ -= _increment; _control -= _increment; L_015f:; if (QQ == _final) goto L_0160; QQ += _increment; _control += _increment; if (QQ != _control) _imp_signal(4,2,0,"Corrupt control variable QQ"); /* FOR loop control variable corrupted */ } // 1396 K=A(Q+QQ+1);TEST NST #line 1396 "regression-compile-tmp/allimpc1-77.imp" K = A[(((unsigned char)((((int)((((int)(Q)) + (QQ)))) + (1)))) + (2))]; #line 1396 "regression-compile-tmp/allimpc1-77.imp" TESTNST(); // 1397 PREC=0 #line 1397 "regression-compile-tmp/allimpc1-77.imp" PREC = 0; // 1398 PREC=2 %IF SBFLAG=1 %OR COMPILER=1 #line 1398 "regression-compile-tmp/allimpc1-77.imp" if (((SBFLAG) == (1))) goto L_0162; #line 1398 "regression-compile-tmp/allimpc1-77.imp" if (((COMPILER) != (1))) goto L_0163; #line 1398 "regression-compile-tmp/allimpc1-77.imp" L_0162:; #line 1398 "regression-compile-tmp/allimpc1-77.imp" PREC = 2; #line 1398 "regression-compile-tmp/allimpc1-77.imp" L_0163:; // 1399 TYPE=6; ROUT=0; NAM=0; ARR=1; PACK(PTYPE) #line 1399 "regression-compile-tmp/allimpc1-77.imp" TYPE = 6; #line 1399 "regression-compile-tmp/allimpc1-77.imp" ROUT = 0; #line 1399 "regression-compile-tmp/allimpc1-77.imp" NAM = 0; #line 1399 "regression-compile-tmp/allimpc1-77.imp" ARR = 1; #line 1399 "regression-compile-tmp/allimpc1-77.imp" PACK(&PTYPE); // 1400 OPHEAD=NEWCELL; JJ=OPHEAD #line 1400 "regression-compile-tmp/allimpc1-77.imp" OPHEAD = NEWCELL(); #line 1400 "regression-compile-tmp/allimpc1-77.imp" JJ = OPHEAD; // 1401 J=0;STORE TAG(K,OPHEAD);R=KKK #line 1401 "regression-compile-tmp/allimpc1-77.imp" J = 0; #line 1401 "regression-compile-tmp/allimpc1-77.imp" STORETAG(K, OPHEAD); #line 1401 "regression-compile-tmp/allimpc1-77.imp" R = KKK; // 1402 INSERT AFTER (OPHEAD,0,KK) #line 1402 "regression-compile-tmp/allimpc1-77.imp" INSERTAFTER(&OPHEAD, 0, KK); // 1403 L1503: ->L1504 %IF KK-R<32 #line 1403 "regression-compile-tmp/allimpc1-77.imp" U_104d:; #line 1403 "regression-compile-tmp/allimpc1-77.imp" if ((((((int)(KK)) - (R))) >= (32))) goto L_0164; #line 1403 "regression-compile-tmp/allimpc1-77.imp" goto U_104e; #line 1403 "regression-compile-tmp/allimpc1-77.imp" L_0164:; // 1404 INSERT AFTER(OPHEAD,0,0) #line 1404 "regression-compile-tmp/allimpc1-77.imp" INSERTAFTER(&OPHEAD, 0, 0); // 1405 R=R+32; ->L1503; ! SET UP BIT LIST #line 1405 "regression-compile-tmp/allimpc1-77.imp" R = (((int)(R)) + (32)); #line 1405 "regression-compile-tmp/allimpc1-77.imp" goto U_104d; // 1406 L1504: REPLACE BOTH(JJ,CA,KKK) #line 1406 "regression-compile-tmp/allimpc1-77.imp" U_104e:; #line 1406 "regression-compile-tmp/allimpc1-77.imp" REPLACEBOTH(JJ, CA, KKK); // 1407 PCONST(KKK&X'FFFFFF'!PREC<<24) #line 1407 "regression-compile-tmp/allimpc1-77.imp" PCONST(((((KKK) & (16777215))) | (((PREC) << (24))))); // 1408 PCONST(KK) #line 1408 "regression-compile-tmp/allimpc1-77.imp" PCONST(KK); // 1409 JJJ=KK-KKK #line 1409 "regression-compile-tmp/allimpc1-77.imp" JJJ = (((int)(KK)) - (KKK)); // 1410 JJJ=(JJJ+1)//2 %IF PREC=2 #line 1410 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) != (2))) goto L_0165; #line 1410 "regression-compile-tmp/allimpc1-77.imp" JJJ = (long)((long)(((((int)(JJJ)) + (1)))) / (long)((int)(2))); #line 1410 "regression-compile-tmp/allimpc1-77.imp" L_0165:; // 1411 %CYCLE I=0,1,JJJ #line 1411 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = JJJ; I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 1, JJJ"); I -= _increment; _control -= _increment; L_0166:; if (I == _final) goto L_0167; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 1412 PCONST(0);%REPEAT #line 1412 "regression-compile-tmp/allimpc1-77.imp" PCONST(0); #line 1412 "regression-compile-tmp/allimpc1-77.imp" goto L_0166; #line 1412 "regression-compile-tmp/allimpc1-77.imp" L_0167:; // 1413 %REPEAT #line 1413 "regression-compile-tmp/allimpc1-77.imp" goto L_015f; #line 1413 "regression-compile-tmp/allimpc1-77.imp" L_0160:; // 1414 Q=P; ->L1528 %UNLESS A(Q)=2 #line 1414 "regression-compile-tmp/allimpc1-77.imp" Q = P; #line 1414 "regression-compile-tmp/allimpc1-77.imp" if (((A[((Q) + ((int)(2)))]) == (2))) goto L_0169; #line 1414 "regression-compile-tmp/allimpc1-77.imp" goto U_104a; #line 1414 "regression-compile-tmp/allimpc1-77.imp" L_0169:; // 1415 PLAB(-1); ->L1 #line 1415 "regression-compile-tmp/allimpc1-77.imp" PLAB((-1)); #line 1415 "regression-compile-tmp/allimpc1-77.imp" goto U_104f; // 1416 L1501: FAULT(18); KK=0; KKK=0; ->L1535 #line 1416 "regression-compile-tmp/allimpc1-77.imp" U_104b:; #line 1416 "regression-compile-tmp/allimpc1-77.imp" FAULT(18); #line 1416 "regression-compile-tmp/allimpc1-77.imp" KK = 0; #line 1416 "regression-compile-tmp/allimpc1-77.imp" KKK = 0; #line 1416 "regression-compile-tmp/allimpc1-77.imp" goto U_104c; // 1417 L1: %END;->L1 #line 1417 "regression-compile-tmp/allimpc1-77.imp" U_104f:; #line 1417 "regression-compile-tmp/allimpc1-77.imp" return; } // End of block _BLOCK_2_LEVEL_2_ at level 3 _BLOCK_2_LEVEL_2_(); #line 1417 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1418 SW(16): QU=\A(P+1)&1; P=P+2; ->L1 #line 1418 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_16:; #line 1418 "regression-compile-tmp/allimpc1-77.imp" QU = (((~(A[(((unsigned char)((((int)(P)) + (1)))) + (2))]))) & (1)); #line 1418 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 1418 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1419 ! // 1420 SW(17): ! '%REGISTER' (NAME) #line 1420 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_17:; // 1421 KK=CLAIMABLE REG #line 1421 "regression-compile-tmp/allimpc1-77.imp" KK = CLAIMABLEREG(); // 1422 ->L1999 %IF KK=0 #line 1422 "regression-compile-tmp/allimpc1-77.imp" if (((KK) != (0))) goto L_016a; #line 1422 "regression-compile-tmp/allimpc1-77.imp" goto U_1048; #line 1422 "regression-compile-tmp/allimpc1-77.imp" L_016a:; // 1423 REGISTER(KK)=-LEVEL #line 1423 "regression-compile-tmp/allimpc1-77.imp" REGISTER[KK] = (-(LEVEL)); // 1424 UVARREG(KK)=LEVEL #line 1424 "regression-compile-tmp/allimpc1-77.imp" UVARREG[(((int)(KK)) - (5))] = LEVEL; // 1425 PTYPE=8; J=0 #line 1425 "regression-compile-tmp/allimpc1-77.imp" PTYPE = 8; #line 1425 "regression-compile-tmp/allimpc1-77.imp" J = 0; // 1426 K=A(P+1); TESTNST #line 1426 "regression-compile-tmp/allimpc1-77.imp" K = A[(((unsigned char)((((int)(P)) + (1)))) + (2))]; #line 1426 "regression-compile-tmp/allimpc1-77.imp" TESTNST(); // 1427 STORE TAG(K,KK); ->L1 #line 1427 "regression-compile-tmp/allimpc1-77.imp" STORETAG(K, KK); #line 1427 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1428 SW(18): ! '%OWN' (TYPE)(OWNDEC) #line 1428 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_18:; // 1429 %BEGIN #line 1429 "regression-compile-tmp/allimpc1-77.imp" void _BLOCK_3_LEVEL_2_(void) { // 1430 !%SHORTROUTINE // 1431 %INTEGER WSP1,LENGTH,BP,PP,SIGN #line 1431 "regression-compile-tmp/allimpc1-77.imp" int WSP1; #line 1431 "regression-compile-tmp/allimpc1-77.imp" int LENGTH; #line 1431 "regression-compile-tmp/allimpc1-77.imp" int BP; #line 1431 "regression-compile-tmp/allimpc1-77.imp" int PP; #line 1431 "regression-compile-tmp/allimpc1-77.imp" int SIGN; // 1432 %INTEGERNAME VAR #line 1432 "regression-compile-tmp/allimpc1-77.imp" int /*name*/*VAR; // 1433 FAULT(40) %UNLESS NMDECS(LEVEL)=0 #line 1433 "regression-compile-tmp/allimpc1-77.imp" if (((NMDECS[LEVEL]) == (0))) goto L_016b; #line 1433 "regression-compile-tmp/allimpc1-77.imp" FAULT(40); #line 1433 "regression-compile-tmp/allimpc1-77.imp" L_016b:; // 1434 P=P+1; CLT #line 1434 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1434 "regression-compile-tmp/allimpc1-77.imp" CLT(); // 1435 FAULT(70) %IF TYPE=5 %AND ACC=0 #line 1435 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_016c; #line 1435 "regression-compile-tmp/allimpc1-77.imp" if (((ACC) != (0))) goto L_016c; #line 1435 "regression-compile-tmp/allimpc1-77.imp" FAULT(70); #line 1435 "regression-compile-tmp/allimpc1-77.imp" L_016c:; // 1436 NAM=0; ROUT=0; ARR=A(P)-1; PACK(PTYPE) #line 1436 "regression-compile-tmp/allimpc1-77.imp" NAM = 0; #line 1436 "regression-compile-tmp/allimpc1-77.imp" ROUT = 0; #line 1436 "regression-compile-tmp/allimpc1-77.imp" ARR = (((int)(A[((P) + ((int)(2)))])) - (1)); #line 1436 "regression-compile-tmp/allimpc1-77.imp" PACK(&PTYPE); // 1437 PP=P+1; P=P+2; ->NONSCALAR %UNLESS ARR=0 #line 1437 "regression-compile-tmp/allimpc1-77.imp" PP = (((int)(P)) + (1)); #line 1437 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 1437 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) == (0))) goto L_016d; #line 1437 "regression-compile-tmp/allimpc1-77.imp" goto U_104f; #line 1437 "regression-compile-tmp/allimpc1-77.imp" L_016d:; // 1438 ->L1801 %UNLESS A(P)=2; ! NO CONST #line 1438 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) == (2))) goto L_016e; #line 1438 "regression-compile-tmp/allimpc1-77.imp" goto U_1050; #line 1438 "regression-compile-tmp/allimpc1-77.imp" L_016e:; // 1439 A(P+1)=4; A(P+2)=9; A(P+3)=0; ! 0== NULL STRING ALSO #line 1439 "regression-compile-tmp/allimpc1-77.imp" A[(((unsigned char)((((int)(P)) + (1)))) + (2))] = 4; #line 1439 "regression-compile-tmp/allimpc1-77.imp" A[(((unsigned char)((((int)(P)) + (2)))) + (2))] = 9; #line 1439 "regression-compile-tmp/allimpc1-77.imp" A[(((unsigned char)((((int)(P)) + (3)))) + (2))] = 0; // 1440 L1801: SIGN=A(P+1); ->L1820 %IF TYPE=5;! STRING #line 1440 "regression-compile-tmp/allimpc1-77.imp" U_1050:; #line 1440 "regression-compile-tmp/allimpc1-77.imp" SIGN = A[(((unsigned char)((((int)(P)) + (1)))) + (2))]; #line 1440 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_016f; #line 1440 "regression-compile-tmp/allimpc1-77.imp" goto U_1051; #line 1440 "regression-compile-tmp/allimpc1-77.imp" L_016f:; // 1441 JJ= SORT CONST(P+2,PREC&1,TYPE) #line 1441 "regression-compile-tmp/allimpc1-77.imp" JJ = SORTCONST((((int)(P)) + (2)), ((PREC) & (1)), TYPE); // 1442 ->L1810 %IF TYPE=2 #line 1442 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_0170; #line 1442 "regression-compile-tmp/allimpc1-77.imp" goto U_1052; #line 1442 "regression-compile-tmp/allimpc1-77.imp" L_0170:; // 1443 VAR==ST(N0-1) #line 1443 "regression-compile-tmp/allimpc1-77.imp" VAR = &ST[(((int)(N0)) - (1))]; // 1444 FAULT(44)%IF(PREC=1 %AND VAR>255)%OR(PREC=2 %AND |VAR|>>16#0) #line 1444 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) != (1))) goto L_0171; #line 1444 "regression-compile-tmp/allimpc1-77.imp" if (((*VAR) > (255))) goto L_0161; #line 1444 "regression-compile-tmp/allimpc1-77.imp" L_0171:; #line 1444 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) != (2))) goto L_0172; #line 1444 "regression-compile-tmp/allimpc1-77.imp" if (((((((_imp_IMOD(*VAR))) >> (16)))) == (0))) goto L_0172; #line 1444 "regression-compile-tmp/allimpc1-77.imp" L_0161:; #line 1444 "regression-compile-tmp/allimpc1-77.imp" FAULT(44); #line 1444 "regression-compile-tmp/allimpc1-77.imp" L_0172:; // 1445 FAULT(44) %IF A(P+2)&7=2; ! REAL CONST FOR INTEGER VARIABLE #line 1445 "regression-compile-tmp/allimpc1-77.imp" if (((((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) & (7))) != (2))) goto L_0173; #line 1445 "regression-compile-tmp/allimpc1-77.imp" FAULT(44); #line 1445 "regression-compile-tmp/allimpc1-77.imp" L_0173:; // 1446 %IF SIGN=2 %THEN VAR=-VAR #line 1446 "regression-compile-tmp/allimpc1-77.imp" if (((SIGN) != (2))) goto L_0174; #line 1446 "regression-compile-tmp/allimpc1-77.imp" *VAR = (-(*VAR)); #line 1446 "regression-compile-tmp/allimpc1-77.imp" L_0174:; // 1447 %IF SIGN=3 %THEN VAR=\VAR #line 1447 "regression-compile-tmp/allimpc1-77.imp" if (((SIGN) != (3))) goto L_0175; #line 1447 "regression-compile-tmp/allimpc1-77.imp" *VAR = (~(*VAR)); #line 1447 "regression-compile-tmp/allimpc1-77.imp" L_0175:; // 1448 L1803: K=A(PP); TESTNST #line 1448 "regression-compile-tmp/allimpc1-77.imp" U_1053:; #line 1448 "regression-compile-tmp/allimpc1-77.imp" K = A[((PP) + ((int)(2)))]; #line 1448 "regression-compile-tmp/allimpc1-77.imp" TESTNST(); // 1449 JJ=JJ+4-BYTES(PREC) %UNLESS PREC=3 #line 1449 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) == (3))) goto L_0176; #line 1449 "regression-compile-tmp/allimpc1-77.imp" JJ = (((unsigned char)((((int)(JJ)) + (4)))) - (BYTES[PREC])); #line 1449 "regression-compile-tmp/allimpc1-77.imp" L_0176:; // 1450 PUSH(TAGS(K),PTYPE<<16!LEVEL<<8!GLA<<4,JJ) #line 1450 "regression-compile-tmp/allimpc1-77.imp" PUSH(&TAGS[K], ((((((PTYPE) << (16))) | (((LEVEL) << (8))))) | (((GLA) << (4)))), JJ); // 1451 PUSH(NAME(LEVEL),0,K); ->L99 #line 1451 "regression-compile-tmp/allimpc1-77.imp" PUSH(&NAME[LEVEL], 0, K); #line 1451 "regression-compile-tmp/allimpc1-77.imp" goto U_1054; // 1452 L1810: FAULT(44) %IF SIGN=3; ! \ WITH REAL #line 1452 "regression-compile-tmp/allimpc1-77.imp" U_1052:; #line 1452 "regression-compile-tmp/allimpc1-77.imp" if (((SIGN) != (3))) goto L_0177; #line 1452 "regression-compile-tmp/allimpc1-77.imp" FAULT(44); #line 1452 "regression-compile-tmp/allimpc1-77.imp" L_0177:; // 1453 ->L1803 %UNLESS SIGN=2 #line 1453 "regression-compile-tmp/allimpc1-77.imp" if (((SIGN) == (2))) goto L_0178; #line 1453 "regression-compile-tmp/allimpc1-77.imp" goto U_1053; #line 1453 "regression-compile-tmp/allimpc1-77.imp" L_0178:; // 1454 ST(JJ>>2)=ST(JJ>>2)!X'80000000';! OR IN SIGN BIT #line 1454 "regression-compile-tmp/allimpc1-77.imp" ST[(int)((((unsigned int)(JJ)) >> (2)))] = ((ST[(int)((((unsigned int)(JJ)) >> (2)))]) | ((-2147483648))); // 1455 ->L1803 #line 1455 "regression-compile-tmp/allimpc1-77.imp" goto U_1053; // 1456 L1820: ! STRINGS #line 1456 "regression-compile-tmp/allimpc1-77.imp" U_1051:; // 1457 ->L1822 %UNLESS A(P+2)=9 %AND A(P+3)<127 #line 1457 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) != (9))) goto L_0179; #line 1457 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (3)))) + (2))]) < (127))) goto L_017a; #line 1457 "regression-compile-tmp/allimpc1-77.imp" L_0179:; #line 1457 "regression-compile-tmp/allimpc1-77.imp" goto U_1055; #line 1457 "regression-compile-tmp/allimpc1-77.imp" L_017a:; // 1458 A(P+2)=5; A(P+4)=A(P+3); A(P+3)=1 #line 1458 "regression-compile-tmp/allimpc1-77.imp" A[(((unsigned char)((((int)(P)) + (2)))) + (2))] = 5; #line 1458 "regression-compile-tmp/allimpc1-77.imp" A[(((unsigned char)((((int)(P)) + (4)))) + (2))] = A[(((unsigned char)((((int)(P)) + (3)))) + (2))]; #line 1458 "regression-compile-tmp/allimpc1-77.imp" A[(((unsigned char)((((int)(P)) + (3)))) + (2))] = 1; // 1459 L1822: FAULT(44) %UNLESS SIGN=4 %AND A(P+2)=5 %AND A(P+3)L99 #line 1473 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (4)); #line 1473 "regression-compile-tmp/allimpc1-77.imp" goto U_1054; // 1474 NONSCALAR:CBPAIR(KK,KKK) #line 1474 "regression-compile-tmp/allimpc1-77.imp" U_104f:; #line 1474 "regression-compile-tmp/allimpc1-77.imp" CBPAIR(&KK, &KKK); // 1475 %IF TYPE=5 %THEN BP=ACC %ELSE BP=BYTES(PREC) #line 1475 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_0180; #line 1475 "regression-compile-tmp/allimpc1-77.imp" BP = ACC; #line 1475 "regression-compile-tmp/allimpc1-77.imp" goto L_0181; #line 1475 "regression-compile-tmp/allimpc1-77.imp" L_0180:; #line 1475 "regression-compile-tmp/allimpc1-77.imp" BP = BYTES[PREC]; #line 1475 "regression-compile-tmp/allimpc1-77.imp" L_0181:; // 1476 LENGTH=KKK-KK+1 #line 1476 "regression-compile-tmp/allimpc1-77.imp" LENGTH = (((int)((((int)(KKK)) - (KK)))) + (1)); // 1477 %IF A(P+1)=0 %THEN ->L3; ! NO CONSTLIST #line 1477 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (0))) goto L_0182; #line 1477 "regression-compile-tmp/allimpc1-77.imp" goto U_1056; #line 1477 "regression-compile-tmp/allimpc1-77.imp" L_0182:; // 1478 L1: FAULT(45) %UNLESS KKK>=KK %AND LENGTH=A(P+1) #line 1478 "regression-compile-tmp/allimpc1-77.imp" U_1057:; #line 1478 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) < (KK))) goto L_017f; #line 1478 "regression-compile-tmp/allimpc1-77.imp" if (((LENGTH) == (A[(((unsigned char)((((int)(P)) + (1)))) + (2))]))) goto L_0183; #line 1478 "regression-compile-tmp/allimpc1-77.imp" L_017f:; #line 1478 "regression-compile-tmp/allimpc1-77.imp" FAULT(45); #line 1478 "regression-compile-tmp/allimpc1-77.imp" L_0183:; // 1479 QQ=CONSTPTR<<2 #line 1479 "regression-compile-tmp/allimpc1-77.imp" QQ = ((CONSTPTR) << (2)); // 1480 JJ=A(P+2)<<2 #line 1480 "regression-compile-tmp/allimpc1-77.imp" JJ = ((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) << (2)); // 1481 %COMMENT OUTPUT AN ARRAYHEAD RELATIVE TO QQ // 1482 ST(N0)=JJ-KK*BP #line 1482 "regression-compile-tmp/allimpc1-77.imp" ST[N0] = ((JJ) - ((int)((((int)(KK)) * (BP))))); // 1483 ST(N0+1)=JJ #line 1483 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (1))] = JJ; // 1484 ST(N0+2)=QQ #line 1484 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (2))] = QQ; // 1485 ST(N0+3)=OWNLINK #line 1485 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (3))] = OWNLINK; // 1486 %COMMENT NOW OUTPUT DOPE VECTOR // 1487 PSYM(1<<16!BP) #line 1487 "regression-compile-tmp/allimpc1-77.imp" PSYM(((((1) << (16))) | (BP))); // 1488 PSYM(KK) #line 1488 "regression-compile-tmp/allimpc1-77.imp" PSYM(KK); // 1489 PSYM(KKK) #line 1489 "regression-compile-tmp/allimpc1-77.imp" PSYM(KKK); // 1490 %COMMENT NOW PLANT CODE // 1491 K=A(PP); J=1; TEST NST #line 1491 "regression-compile-tmp/allimpc1-77.imp" K = A[((PP) + ((int)(2)))]; #line 1491 "regression-compile-tmp/allimpc1-77.imp" J = 1; #line 1491 "regression-compile-tmp/allimpc1-77.imp" TESTNST(); // 1492 OWNLINK=N0<<2 #line 1492 "regression-compile-tmp/allimpc1-77.imp" OWNLINK = ((N0) << (2)); // 1493 RBASE=GLA; STORETAG(K,OWNLINK) #line 1493 "regression-compile-tmp/allimpc1-77.imp" RBASE = GLA; #line 1493 "regression-compile-tmp/allimpc1-77.imp" STORETAG(K, OWNLINK); // 1494 RBASE=10-RLEVEL; N0=N0+4; ->L99 #line 1494 "regression-compile-tmp/allimpc1-77.imp" RBASE = (((int)(10)) - (RLEVEL)); #line 1494 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (4)); #line 1494 "regression-compile-tmp/allimpc1-77.imp" goto U_1054; // 1495 L3: A(P+2)=CONSTPTR #line 1495 "regression-compile-tmp/allimpc1-77.imp" U_1056:; #line 1495 "regression-compile-tmp/allimpc1-77.imp" A[(((unsigned char)((((int)(P)) + (2)))) + (2))] = CONSTPTR; // 1496 A(P+1)=LENGTH; ->L1 %IF LENGTH<1 #line 1496 "regression-compile-tmp/allimpc1-77.imp" A[(((unsigned char)((((int)(P)) + (1)))) + (2))] = LENGTH; #line 1496 "regression-compile-tmp/allimpc1-77.imp" if (((LENGTH) >= (1))) goto L_0184; #line 1496 "regression-compile-tmp/allimpc1-77.imp" goto U_1057; #line 1496 "regression-compile-tmp/allimpc1-77.imp" L_0184:; // 1497 %CYCLE JJ=1,1,(LENGTH*BP+3)//4 #line 1497 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = ((long)((long)(((((int)((((int)(LENGTH)) * (BP)))) + (3)))) / (long)((int)(4)))); JJ = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 1, 1, ((long)((long)(((((int)((((int)(LENGTH)) * (BP)))) + (3)))) / (long)((int)(4))))"); JJ -= _increment; _control -= _increment; L_0185:; if (JJ == _final) goto L_0186; JJ += _increment; _control += _increment; if (JJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJ"); /* FOR loop control variable corrupted */ } // 1498 PSYM(0); %REPEAT; ->L1 #line 1498 "regression-compile-tmp/allimpc1-77.imp" PSYM(0); #line 1498 "regression-compile-tmp/allimpc1-77.imp" goto L_0185; #line 1498 "regression-compile-tmp/allimpc1-77.imp" L_0186:; #line 1498 "regression-compile-tmp/allimpc1-77.imp" goto U_1057; // 1499 L99: %END; ->L1 #line 1499 "regression-compile-tmp/allimpc1-77.imp" U_1054:; #line 1499 "regression-compile-tmp/allimpc1-77.imp" return; } // End of block _BLOCK_3_LEVEL_2_ at level 3 _BLOCK_3_LEVEL_2_(); #line 1499 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1500 SW(19): ! %CLAIM/RELEASE ETC #line 1500 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_19:; // 1501 COPY TAG(A(P+3)) #line 1501 "regression-compile-tmp/allimpc1-77.imp" COPYTAG(A[(((unsigned char)((((int)(P)) + (3)))) + (2))]); // 1502 ->L1910 %IF A(P+2)=1; ! '%ARRAY' #line 1502 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) != (1))) goto L_0188; #line 1502 "regression-compile-tmp/allimpc1-77.imp" goto U_1049; #line 1502 "regression-compile-tmp/allimpc1-77.imp" L_0188:; // 1503 ->L1999 %UNLESS ARR=0 %AND TYPE=3 #line 1503 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (0))) goto L_0187; #line 1503 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (3))) goto L_0189; #line 1503 "regression-compile-tmp/allimpc1-77.imp" L_0187:; #line 1503 "regression-compile-tmp/allimpc1-77.imp" goto U_1048; #line 1503 "regression-compile-tmp/allimpc1-77.imp" L_0189:; // 1504 FROM2(K,K); ->L1920 #line 1504 "regression-compile-tmp/allimpc1-77.imp" FROM2(K, &K); #line 1504 "regression-compile-tmp/allimpc1-77.imp" goto U_104a; // 1505 L1910: ->L1999 %UNLESS ARR=1 %AND TYPE<=3 %AND J<=2 #line 1505 "regression-compile-tmp/allimpc1-77.imp" U_1049:; #line 1505 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (1))) goto L_018a; #line 1505 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) > (3))) goto L_018a; #line 1505 "regression-compile-tmp/allimpc1-77.imp" if (((J) <= (2))) goto L_018b; #line 1505 "regression-compile-tmp/allimpc1-77.imp" L_018a:; #line 1505 "regression-compile-tmp/allimpc1-77.imp" goto U_1048; #line 1505 "regression-compile-tmp/allimpc1-77.imp" L_018b:; // 1506 L1920: ->L1930 %IF A(P+1)=2; ! %RELEASE #line 1506 "regression-compile-tmp/allimpc1-77.imp" U_104a:; #line 1506 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) goto L_018c; #line 1506 "regression-compile-tmp/allimpc1-77.imp" goto U_104b; #line 1506 "regression-compile-tmp/allimpc1-77.imp" L_018c:; // 1507 KK=CLAIMABLE REG; ->L1999 %IF KK=0 #line 1507 "regression-compile-tmp/allimpc1-77.imp" KK = CLAIMABLEREG(); #line 1507 "regression-compile-tmp/allimpc1-77.imp" if (((KK) != (0))) goto L_018d; #line 1507 "regression-compile-tmp/allimpc1-77.imp" goto U_1048; #line 1507 "regression-compile-tmp/allimpc1-77.imp" L_018d:; // 1508 REGISTER(KK)=A(P+3)+1 #line 1508 "regression-compile-tmp/allimpc1-77.imp" REGISTER[KK] = (((int)(A[(((unsigned char)((((int)(P)) + (3)))) + (2))])) + (1)); // 1509 PRX(X'58',KK,0,I,K); ! LOAD THE REGISTER #line 1509 "regression-compile-tmp/allimpc1-77.imp" PRX(88, KK, 0, I, K); // 1510 JJ=TAGS(A(P+3)) #line 1510 "regression-compile-tmp/allimpc1-77.imp" JJ = TAGS[A[(((unsigned char)((((int)(P)) + (3)))) + (2))]]; // 1511 FROM1(JJ,JJJ) #line 1511 "regression-compile-tmp/allimpc1-77.imp" FROM1(JJ, &JJJ); // 1512 JJJ=JJJ!KK<<12 #line 1512 "regression-compile-tmp/allimpc1-77.imp" JJJ = ((JJJ) | (((KK) << (12)))); // 1513 L1925: REPLACE1(JJ,JJJ); ->L1 #line 1513 "regression-compile-tmp/allimpc1-77.imp" U_104c:; #line 1513 "regression-compile-tmp/allimpc1-77.imp" REPLACE1(JJ, JJJ); #line 1513 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1514 L1930: ->L1999 %UNLESS INREG#0 %AND REGISTER(INREG)=A(P+3)+1 #line 1514 "regression-compile-tmp/allimpc1-77.imp" U_104b:; #line 1514 "regression-compile-tmp/allimpc1-77.imp" if (((INREG) == (0))) goto L_018e; #line 1514 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[INREG]) == ((((int)(A[(((unsigned char)((((int)(P)) + (3)))) + (2))])) + (1))))) goto L_018f; #line 1514 "regression-compile-tmp/allimpc1-77.imp" L_018e:; #line 1514 "regression-compile-tmp/allimpc1-77.imp" goto U_1048; #line 1514 "regression-compile-tmp/allimpc1-77.imp" L_018f:; // 1515 REGISTER(INREG)=0; JJ=TAGS(A(P+3)) #line 1515 "regression-compile-tmp/allimpc1-77.imp" REGISTER[INREG] = 0; #line 1515 "regression-compile-tmp/allimpc1-77.imp" JJ = TAGS[A[(((unsigned char)((((int)(P)) + (3)))) + (2))]]; // 1516 FROM1(JJ,JJJ) #line 1516 "regression-compile-tmp/allimpc1-77.imp" FROM1(JJ, &JJJ); // 1517 JJJ=JJJ&X'FFFF0FFF'; ->L1925 #line 1517 "regression-compile-tmp/allimpc1-77.imp" JJJ = ((JJJ) & ((-61441))); #line 1517 "regression-compile-tmp/allimpc1-77.imp" goto U_104c; // 1518 L1999: FAULT(58); ->L1 #line 1518 "regression-compile-tmp/allimpc1-77.imp" U_1048:; #line 1518 "regression-compile-tmp/allimpc1-77.imp" FAULT(58); #line 1518 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1519 SW(26): COMPILER=1; UNASS=0; ->L1 #line 1519 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_26:; #line 1519 "regression-compile-tmp/allimpc1-77.imp" COMPILER = 1; #line 1519 "regression-compile-tmp/allimpc1-77.imp" UNASS = 0; #line 1519 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1520 SW(27): ! '%SPEC' FPP #line 1520 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_27:; // 1521 P=P+1; ->L2701 %IF A(P+1)=1 #line 1521 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1521 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (1))) goto L_0190; #line 1521 "regression-compile-tmp/allimpc1-77.imp" goto U_104d; #line 1521 "regression-compile-tmp/allimpc1-77.imp" L_0190:; // 1522 CRSPEC(2); ->L1 #line 1522 "regression-compile-tmp/allimpc1-77.imp" CRSPEC(2); #line 1522 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1523 L2701: COPY TAG(A(P)) #line 1523 "regression-compile-tmp/allimpc1-77.imp" U_104d:; #line 1523 "regression-compile-tmp/allimpc1-77.imp" COPYTAG(A[((P) + ((int)(2)))]); // 1524 ->L3901 %UNLESS PTYPE=4 %AND A(P+4)=2=A(P+3) #line 1524 "regression-compile-tmp/allimpc1-77.imp" if (((PTYPE) != (4))) goto L_0191; #line 1524 "regression-compile-tmp/allimpc1-77.imp" if ((((A[(((unsigned char)((((int)(P)) + (4)))) + (2))]) != (2))) || (((2) == (A[(((unsigned char)((((int)(P)) + (3)))) + (2))])))) goto L_0192; #line 1524 "regression-compile-tmp/allimpc1-77.imp" L_0191:; #line 1524 "regression-compile-tmp/allimpc1-77.imp" goto U_104e; #line 1524 "regression-compile-tmp/allimpc1-77.imp" L_0192:; // 1525 P=P+2; K=DISPLACEMENT(TAGS(A(P-2))) #line 1525 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 1525 "regression-compile-tmp/allimpc1-77.imp" K = DISPLACEMENT(TAGS[A[(((unsigned char)((((int)(P)) - (2)))) + (2))]]); // 1526 ->L1 %IF K=-1; OPHEAD=K; #line 1526 "regression-compile-tmp/allimpc1-77.imp" if (((K) != ((-1)))) goto L_0193; #line 1526 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; #line 1526 "regression-compile-tmp/allimpc1-77.imp" L_0193:; #line 1526 "regression-compile-tmp/allimpc1-77.imp" OPHEAD = K; // 1527 P=P+2; CRSPEC(3); ->L1 #line 1527 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 1527 "regression-compile-tmp/allimpc1-77.imp" CRSPEC(3); #line 1527 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1528 SW(20): MCSWITCH=1; PERM=1; ->L1; ! %MCODE #line 1528 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_20:; #line 1528 "regression-compile-tmp/allimpc1-77.imp" MCSWITCH = 1; #line 1528 "regression-compile-tmp/allimpc1-77.imp" PERM = 1; #line 1528 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1529 SW(21): SBFLAG=1; ->L1 #line 1529 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_21:; #line 1529 "regression-compile-tmp/allimpc1-77.imp" SBFLAG = 1; #line 1529 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1530 SW(22): P=2; CUCI; ->L1; ! *UCI(S) #line 1530 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_22:; #line 1530 "regression-compile-tmp/allimpc1-77.imp" P = 2; #line 1530 "regression-compile-tmp/allimpc1-77.imp" CUCI(); #line 1530 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1531 SW(23): ! %FAULT FAULTLIST #line 1531 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_23:; // 1532 FAULT(26) %UNLESS LEVEL=2 %AND CPRMODE#2 #line 1532 "regression-compile-tmp/allimpc1-77.imp" if (((LEVEL) != (2))) goto L_0194; #line 1532 "regression-compile-tmp/allimpc1-77.imp" if (((CPRMODE) != (2))) goto L_0195; #line 1532 "regression-compile-tmp/allimpc1-77.imp" L_0194:; #line 1532 "regression-compile-tmp/allimpc1-77.imp" FAULT(26); #line 1532 "regression-compile-tmp/allimpc1-77.imp" L_0195:; // 1533 P=P+1; Q=P+1 #line 1533 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1533 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(P)) + (1)); // 1534 L2302: %IF A(Q)=2 %THEN ->L2303 #line 1534 "regression-compile-tmp/allimpc1-77.imp" U_104f:; #line 1534 "regression-compile-tmp/allimpc1-77.imp" if (((A[((Q) + ((int)(2)))]) != (2))) goto L_0196; #line 1534 "regression-compile-tmp/allimpc1-77.imp" goto U_1050; #line 1534 "regression-compile-tmp/allimpc1-77.imp" L_0196:; // 1535 Q=Q+2; ->L2302 #line 1535 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (2)); #line 1535 "regression-compile-tmp/allimpc1-77.imp" goto U_104f; // 1536 L2303: K=A(Q+2)+(A(Q+1)-1)<<14 #line 1536 "regression-compile-tmp/allimpc1-77.imp" U_1050:; #line 1536 "regression-compile-tmp/allimpc1-77.imp" K = ((A[(((unsigned char)((((int)(Q)) + (2)))) + (2))]) + ((short)((((((int)(A[(((unsigned char)((((int)(Q)) + (1)))) + (2))])) - (1))) << (14))))); // 1537 KKK=A(P);PCONST(X'41100000'!KKK) #line 1537 "regression-compile-tmp/allimpc1-77.imp" KKK = A[((P) + ((int)(2)))]; #line 1537 "regression-compile-tmp/allimpc1-77.imp" PCONST(((1091567616) | (KKK))); // 1538 FAULT(36) %IF KKK>32 %OR KKK=0 %OR KKK=29 %OR 12<=KKK<=13 #line 1538 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) > (32))) goto L_0197; #line 1538 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) == (0))) goto L_0197; #line 1538 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) == (29))) goto L_0197; #line 1538 "regression-compile-tmp/allimpc1-77.imp" if ((((12) > (KKK))) || (((KKK) > (13)))) goto L_0198; #line 1538 "regression-compile-tmp/allimpc1-77.imp" L_0197:; #line 1538 "regression-compile-tmp/allimpc1-77.imp" FAULT(36); #line 1538 "regression-compile-tmp/allimpc1-77.imp" L_0198:; // 1539 PPJ(20); QQ=CA #line 1539 "regression-compile-tmp/allimpc1-77.imp" PPJ(20); #line 1539 "regression-compile-tmp/allimpc1-77.imp" QQ = CA; // 1540 PJ(15,K); ! JUMP TO LABEL #line 1540 "regression-compile-tmp/allimpc1-77.imp" PJ(15, K); // 1541 PCONST(X'07000700') %UNLESS CA=QQ+8;! JUMP MUST BE 8 BYTES #line 1541 "regression-compile-tmp/allimpc1-77.imp" if (((CA) == ((((int)(QQ)) + (8))))) goto L_0199; #line 1541 "regression-compile-tmp/allimpc1-77.imp" PCONST(117442304); #line 1541 "regression-compile-tmp/allimpc1-77.imp" L_0199:; // 1542 P=P+2; ->L2303 %IF A(P-1)=1 #line 1542 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 1542 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (1))) goto L_019a; #line 1542 "regression-compile-tmp/allimpc1-77.imp" goto U_1050; #line 1542 "regression-compile-tmp/allimpc1-77.imp" L_019a:; // 1543 ->L1 %IF A(P+2)=2 #line 1543 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) != (2))) goto L_019b; #line 1543 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; #line 1543 "regression-compile-tmp/allimpc1-77.imp" L_019b:; // 1544 P=P+3; Q=P+1; ->L2302 #line 1544 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); #line 1544 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(P)) + (1)); #line 1544 "regression-compile-tmp/allimpc1-77.imp" goto U_104f; // 1545 SW(24): FAULT(56) %UNLESS CPRMODE=2 %AND RLEVEL=1 #line 1545 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_24:; #line 1545 "regression-compile-tmp/allimpc1-77.imp" if (((CPRMODE) != (2))) goto L_019c; #line 1545 "regression-compile-tmp/allimpc1-77.imp" if (((RLEVEL) == (1))) goto L_019d; #line 1545 "regression-compile-tmp/allimpc1-77.imp" L_019c:; #line 1545 "regression-compile-tmp/allimpc1-77.imp" FAULT(56); #line 1545 "regression-compile-tmp/allimpc1-77.imp" L_019d:; // 1546 LOAD DATA;FINALISE #line 1546 "regression-compile-tmp/allimpc1-77.imp" LOADDATA(); #line 1546 "regression-compile-tmp/allimpc1-77.imp" FINALISE(); // 1547 %STOP #line 1547 "regression-compile-tmp/allimpc1-77.imp" exit(0); // 1548 SW(25): MCSWITCH=0; PERM=0; ->L1; ! %ENDOFMCODE #line 1548 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_25:; #line 1548 "regression-compile-tmp/allimpc1-77.imp" MCSWITCH = 0; #line 1548 "regression-compile-tmp/allimpc1-77.imp" PERM = 0; #line 1548 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1549 SW(28): !%NAME - SPECIAL NAME #line 1549 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_28:; // 1550 J=0; PTYPE=10006 #line 1550 "regression-compile-tmp/allimpc1-77.imp" J = 0; #line 1550 "regression-compile-tmp/allimpc1-77.imp" PTYPE = 10006; // 1551 STORE TAG(A(P+1),SNUM) #line 1551 "regression-compile-tmp/allimpc1-77.imp" STORETAG(A[(((unsigned char)((((int)(P)) + (1)))) + (2))], SNUM); // 1552 SNUM=SNUM+1;->L1 #line 1552 "regression-compile-tmp/allimpc1-77.imp" SNUM = (((int)(SNUM)) + (1)); #line 1552 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1553 SW(29): LIST=1; ->L1; ! %LIST #line 1553 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_29:; #line 1553 "regression-compile-tmp/allimpc1-77.imp" LIST = 1; #line 1553 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1554 SW(30): LIST=0; ->L1 #line 1554 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_30:; #line 1554 "regression-compile-tmp/allimpc1-77.imp" LIST = 0; #line 1554 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1555 SW(31): ! %CONTROL CONST #line 1555 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_31:; // 1556 %IF A(P+1)=9 %THEN J=A(P+2) %ELSE FROMAR4(P+2,J) #line 1556 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (9))) goto L_019e; #line 1556 "regression-compile-tmp/allimpc1-77.imp" J = A[(((unsigned char)((((int)(P)) + (2)))) + (2))]; #line 1556 "regression-compile-tmp/allimpc1-77.imp" goto L_019f; #line 1556 "regression-compile-tmp/allimpc1-77.imp" L_019e:; #line 1556 "regression-compile-tmp/allimpc1-77.imp" FROMAR4((((int)(P)) + (2)), &J); #line 1556 "regression-compile-tmp/allimpc1-77.imp" L_019f:; // 1557 K=J&15; LINENOS=K %UNLESS K=15 #line 1557 "regression-compile-tmp/allimpc1-77.imp" K = ((J) & (15)); #line 1557 "regression-compile-tmp/allimpc1-77.imp" if (((K) == (15))) goto L_01a0; #line 1557 "regression-compile-tmp/allimpc1-77.imp" LINENOS = K; #line 1557 "regression-compile-tmp/allimpc1-77.imp" L_01a0:; // 1558 K=J>>4&15; DIAGS1=K %UNLESS K=15 #line 1558 "regression-compile-tmp/allimpc1-77.imp" K = (((int)((((unsigned int)(J)) >> (4)))) & (15)); #line 1558 "regression-compile-tmp/allimpc1-77.imp" if (((K) == (15))) goto L_01a1; #line 1558 "regression-compile-tmp/allimpc1-77.imp" DIAGS1 = K; #line 1558 "regression-compile-tmp/allimpc1-77.imp" L_01a1:; // 1559 K=J>>8&15 #line 1559 "regression-compile-tmp/allimpc1-77.imp" K = (((int)((((unsigned int)(J)) >> (8)))) & (15)); // 1560 CHECKS=K %UNLESS K=15 #line 1560 "regression-compile-tmp/allimpc1-77.imp" if (((K) == (15))) goto L_01a2; #line 1560 "regression-compile-tmp/allimpc1-77.imp" CHECKS = K; #line 1560 "regression-compile-tmp/allimpc1-77.imp" L_01a2:; // 1561 CHECKSP=K&14 %UNLESS K=15 #line 1561 "regression-compile-tmp/allimpc1-77.imp" if (((K) == (15))) goto L_01a3; #line 1561 "regression-compile-tmp/allimpc1-77.imp" CHECKSP = ((K) & (14)); #line 1561 "regression-compile-tmp/allimpc1-77.imp" L_01a3:; // 1562 K=J>>12&15 #line 1562 "regression-compile-tmp/allimpc1-77.imp" K = (((int)((((unsigned int)(J)) >> (12)))) & (15)); // 1563 UNASS=K %UNLESS K=15 #line 1563 "regression-compile-tmp/allimpc1-77.imp" if (((K) == (15))) goto L_01a4; #line 1563 "regression-compile-tmp/allimpc1-77.imp" UNASS = K; #line 1563 "regression-compile-tmp/allimpc1-77.imp" L_01a4:; // 1564 K=J>>28 #line 1564 "regression-compile-tmp/allimpc1-77.imp" K = (int)((((unsigned int)(J)) >> (28))); // 1565 DCOMP=K %UNLESS K=15 #line 1565 "regression-compile-tmp/allimpc1-77.imp" if (((K) == (15))) goto L_01a5; #line 1565 "regression-compile-tmp/allimpc1-77.imp" DCOMP = K; #line 1565 "regression-compile-tmp/allimpc1-77.imp" L_01a5:; // 1566 ->L1 #line 1566 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1567 SW(32): POP(SBR(LEVEL),J,K); ! FINISH (ELSE') #line 1567 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_32:; #line 1567 "regression-compile-tmp/allimpc1-77.imp" POP(&SBR[LEVEL], &J, &K); // 1568 ->L321 %UNLESS J=-1; FAULT(51); ->L1 #line 1568 "regression-compile-tmp/allimpc1-77.imp" if (((J) == ((-1)))) goto L_01a6; #line 1568 "regression-compile-tmp/allimpc1-77.imp" goto U_1051; #line 1568 "regression-compile-tmp/allimpc1-77.imp" L_01a6:; #line 1568 "regression-compile-tmp/allimpc1-77.imp" FAULT(51); #line 1568 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1569 L321: POP(CYCLE(LEVEL),JJ,KK) #line 1569 "regression-compile-tmp/allimpc1-77.imp" U_1051:; #line 1569 "regression-compile-tmp/allimpc1-77.imp" POP(&CYCLE[LEVEL], &JJ, &KK); // 1570 ->L322 %IF 0>=JJ #line 1570 "regression-compile-tmp/allimpc1-77.imp" if (((0) < (JJ))) goto L_01a7; #line 1570 "regression-compile-tmp/allimpc1-77.imp" goto U_1052; #line 1570 "regression-compile-tmp/allimpc1-77.imp" L_01a7:; // 1571 FAULT(52); ->L321 #line 1571 "regression-compile-tmp/allimpc1-77.imp" FAULT(52); #line 1571 "regression-compile-tmp/allimpc1-77.imp" goto U_1051; // 1572 L322: ->L402 %UNLESS A(2)=1; ! ELSE FOLLOWS #line 1572 "regression-compile-tmp/allimpc1-77.imp" U_1052:; #line 1572 "regression-compile-tmp/allimpc1-77.imp" if (((A[4]) == (1))) goto L_01a8; #line 1572 "regression-compile-tmp/allimpc1-77.imp" goto U_102e; #line 1572 "regression-compile-tmp/allimpc1-77.imp" L_01a8:; // 1573 FAULT(47) %UNLESS J=1 #line 1573 "regression-compile-tmp/allimpc1-77.imp" if (((J) == (1))) goto L_01a9; #line 1573 "regression-compile-tmp/allimpc1-77.imp" FAULT(47); #line 1573 "regression-compile-tmp/allimpc1-77.imp" L_01a9:; // 1574 P=P+2; KK=K #line 1574 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 1574 "regression-compile-tmp/allimpc1-77.imp" KK = K; // 1575 MONE=0;R13=0;SET LINE ;!CLEAR AFTER FINISH #line 1575 "regression-compile-tmp/allimpc1-77.imp" MONE = 0; #line 1575 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; #line 1575 "regression-compile-tmp/allimpc1-77.imp" SETLINE(); // 1576 %IF A(P)=9 %THEN JJ=SFLABEL-1 %ELSE JJ=PLABEL-1 #line 1576 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (9))) goto L_01aa; #line 1576 "regression-compile-tmp/allimpc1-77.imp" JJ = (((int)(SFLABEL)) - (1)); #line 1576 "regression-compile-tmp/allimpc1-77.imp" goto L_01ab; #line 1576 "regression-compile-tmp/allimpc1-77.imp" L_01aa:; #line 1576 "regression-compile-tmp/allimpc1-77.imp" JJ = (((int)(PLABEL)) - (1)); #line 1576 "regression-compile-tmp/allimpc1-77.imp" L_01ab:; // 1577 PJ(15,JJ); PLAB(KK); CUI(2); PLAB(-1); ->L1 #line 1577 "regression-compile-tmp/allimpc1-77.imp" PJ(15, JJ); #line 1577 "regression-compile-tmp/allimpc1-77.imp" PLAB(KK); #line 1577 "regression-compile-tmp/allimpc1-77.imp" CUI(2); #line 1577 "regression-compile-tmp/allimpc1-77.imp" PLAB((-1)); #line 1577 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1578 SW(33): !RECORD FORMAT #line 1578 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_33:; // 1579 FAULT(56) %UNLESS LEVEL>=2 #line 1579 "regression-compile-tmp/allimpc1-77.imp" if (((LEVEL) >= (2))) goto L_01ac; #line 1579 "regression-compile-tmp/allimpc1-77.imp" FAULT(56); #line 1579 "regression-compile-tmp/allimpc1-77.imp" L_01ac:; // 1580 SET LINE; CRFORMAT; ->L1 #line 1580 "regression-compile-tmp/allimpc1-77.imp" SETLINE(); #line 1580 "regression-compile-tmp/allimpc1-77.imp" CRFORMAT(); #line 1580 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1581 SW(34): !RECORDS #line 1581 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_34:; // 1582 %BEGIN #line 1582 "regression-compile-tmp/allimpc1-77.imp" void _BLOCK_4_LEVEL_2_(void) { // 1583 !%SHORTROUTINE // 1584 %ROUTINESPEC TEST AND SET #line 1584 "regression-compile-tmp/allimpc1-77.imp" auto void TESTANDSET( void ); // 1585 SET LINE; P=P+1; MARKER1=P+A(P) #line 1585 "regression-compile-tmp/allimpc1-77.imp" SETLINE(); #line 1585 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1585 "regression-compile-tmp/allimpc1-77.imp" MARKER1 = ((P) + ((int)(A[((P) + ((int)(2)))]))); // 1586 FAULT(57) %UNLESS LEVEL>=2 #line 1586 "regression-compile-tmp/allimpc1-77.imp" if (((LEVEL) >= (2))) goto L_01ad; #line 1586 "regression-compile-tmp/allimpc1-77.imp" FAULT(57); #line 1586 "regression-compile-tmp/allimpc1-77.imp" L_01ad:; // 1587 FAULT(40) %IF NMDECS(LEVEL)#0 #line 1587 "regression-compile-tmp/allimpc1-77.imp" if (((NMDECS[LEVEL]) == (0))) goto L_01ae; #line 1587 "regression-compile-tmp/allimpc1-77.imp" FAULT(40); #line 1587 "regression-compile-tmp/allimpc1-77.imp" L_01ae:; // 1588 CHECK RF;->L1 %IF K=-1 #line 1588 "regression-compile-tmp/allimpc1-77.imp" CHECKRF(); #line 1588 "regression-compile-tmp/allimpc1-77.imp" if (((K) != ((-1)))) goto L_01af; #line 1588 "regression-compile-tmp/allimpc1-77.imp" goto U_1054; #line 1588 "regression-compile-tmp/allimpc1-77.imp" L_01af:; // 1589 TYPE=3;PREC=0;ROUT=0 #line 1589 "regression-compile-tmp/allimpc1-77.imp" TYPE = 3; #line 1589 "regression-compile-tmp/allimpc1-77.imp" PREC = 0; #line 1589 "regression-compile-tmp/allimpc1-77.imp" ROUT = 0; // 1590 ->SCALAR %IF A(P+1)=1 #line 1590 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (1))) goto L_01b0; #line 1590 "regression-compile-tmp/allimpc1-77.imp" goto U_1055; #line 1590 "regression-compile-tmp/allimpc1-77.imp" L_01b0:; // 1591 FAULT(41) %UNLESS A(P+2)=2; ! RECORD NAME ARRAYS FAULTED #line 1591 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) == (2))) goto L_01b1; #line 1591 "regression-compile-tmp/allimpc1-77.imp" FAULT(41); #line 1591 "regression-compile-tmp/allimpc1-77.imp" L_01b1:; // 1592 NAM=0; ARR=1; PACK(PTYPE) #line 1592 "regression-compile-tmp/allimpc1-77.imp" NAM = 0; #line 1592 "regression-compile-tmp/allimpc1-77.imp" ARR = 1; #line 1592 "regression-compile-tmp/allimpc1-77.imp" PACK(&PTYPE); // 1593 P=P+3 #line 1593 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); // 1594 L3401: QQ=P+1 #line 1594 "regression-compile-tmp/allimpc1-77.imp" U_1056:; #line 1594 "regression-compile-tmp/allimpc1-77.imp" QQ = (((int)(P)) + (1)); // 1595 PSS(X'D2',4,WSPR,0,4,0); ! MVC FOR LENGTH #line 1595 "regression-compile-tmp/allimpc1-77.imp" PSS(210, 4, WSPR, 0, 4, 0); // 1596 CADCLN(2) #line 1596 "regression-compile-tmp/allimpc1-77.imp" CADCLN(2); // 1597 %CYCLE Q=1,1,A(QQ) #line 1597 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = A[((QQ) + ((int)(2)))]; Q = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle Q = 1, 1, A[((QQ) + ((int)(2)))]"); Q -= _increment; _control -= _increment; L_01b2:; if (Q == _final) goto L_01b3; Q += _increment; _control += _increment; if (Q != _control) _imp_signal(4,2,0,"Corrupt control variable Q"); /* FOR loop control variable corrupted */ } // 1598 K=A(Q+QQ) #line 1598 "regression-compile-tmp/allimpc1-77.imp" K = A[(((unsigned char)((((int)(Q)) + (QQ)))) + (2))]; // 1599 TEST AND SET #line 1599 "regression-compile-tmp/allimpc1-77.imp" TESTANDSET(); // 1600 PPJ(13) #line 1600 "regression-compile-tmp/allimpc1-77.imp" PPJ(13); // 1601 PRX(X'90',0,3,RBASE,N) #line 1601 "regression-compile-tmp/allimpc1-77.imp" PRX(144, 0, 3, RBASE, N); // 1602 N=N+16 #line 1602 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (16)); // 1603 %REPEAT #line 1603 "regression-compile-tmp/allimpc1-77.imp" goto L_01b2; #line 1603 "regression-compile-tmp/allimpc1-77.imp" L_01b3:; // 1604 ->L1 %IF A(P)=2 #line 1604 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_01b5; #line 1604 "regression-compile-tmp/allimpc1-77.imp" goto U_1054; #line 1604 "regression-compile-tmp/allimpc1-77.imp" L_01b5:; // 1605 P=P+1;CHECK RF;->L3401 #line 1605 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1605 "regression-compile-tmp/allimpc1-77.imp" CHECKRF(); #line 1605 "regression-compile-tmp/allimpc1-77.imp" goto U_1056; // 1606 SCALAR: CQN(P+2);P=P+3;J=0 #line 1606 "regression-compile-tmp/allimpc1-77.imp" U_1055:; #line 1606 "regression-compile-tmp/allimpc1-77.imp" CQN((((int)(P)) + (2))); #line 1606 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); #line 1606 "regression-compile-tmp/allimpc1-77.imp" J = 0; // 1607 PACK(PTYPE) #line 1607 "regression-compile-tmp/allimpc1-77.imp" PACK(&PTYPE); // 1608 %CYCLE Q=1,1,A(P) #line 1608 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = A[((P) + ((int)(2)))]; Q = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle Q = 1, 1, A[((P) + ((int)(2)))]"); Q -= _increment; _control -= _increment; L_01b6:; if (Q == _final) goto L_01b7; Q += _increment; _control += _increment; if (Q != _control) _imp_signal(4,2,0,"Corrupt control variable Q"); /* FOR loop control variable corrupted */ } // 1609 K=A(P+Q) #line 1609 "regression-compile-tmp/allimpc1-77.imp" K = A[(((unsigned char)((((int)(P)) + (Q)))) + (2))]; // 1610 TEST AND SET #line 1610 "regression-compile-tmp/allimpc1-77.imp" TESTANDSET(); // 1611 %IF NAM=1 %THEN PSS(X'D2',4,RBASE,N,GLA,128) %ELSE %C #line 1611 "regression-compile-tmp/allimpc1-77.imp" if (((NAM) != (1))) goto L_01b9; #line 1611 "regression-compile-tmp/allimpc1-77.imp" PSS(210, 4, RBASE, N, GLA, 128); #line 1611 "regression-compile-tmp/allimpc1-77.imp" goto L_01ba; #line 1611 "regression-compile-tmp/allimpc1-77.imp" L_01b9:; #line 1611 "regression-compile-tmp/allimpc1-77.imp" PACLOD(18, 2, ((((RBASE) << (12))) | (N))); #line 1611 "regression-compile-tmp/allimpc1-77.imp" L_01ba:; // 1612 PACLOD(18,2,RBASE<<12!N) // 1613 %COMMENT = ST WSP,? - AH WSP,LENGTH - LA WSP,7(WSP) - N WSP,=F'-8' // 1614 N=N+4; %REPEAT; ->L1 #line 1614 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (4)); #line 1614 "regression-compile-tmp/allimpc1-77.imp" goto L_01b6; #line 1614 "regression-compile-tmp/allimpc1-77.imp" L_01b7:; #line 1614 "regression-compile-tmp/allimpc1-77.imp" goto U_1054; // 1615 %ROUTINE TEST AND SET #line 1615 "regression-compile-tmp/allimpc1-77.imp" void TESTANDSET( void ) #line 1615 "regression-compile-tmp/allimpc1-77.imp" { // 1616 TEST NST #line 1616 "regression-compile-tmp/allimpc1-77.imp" TESTNST(); // 1617 JJJ=NEWCELL #line 1617 "regression-compile-tmp/allimpc1-77.imp" JJJ = NEWCELL(); // 1618 STORE TAG(K,JJJ) #line 1618 "regression-compile-tmp/allimpc1-77.imp" STORETAG(K, JJJ); // 1619 REPLACE BOTH(JJJ,TAGS(A(MARKER1)),N) #line 1619 "regression-compile-tmp/allimpc1-77.imp" REPLACEBOTH(JJJ, TAGS[A[((MARKER1) + ((int)(2)))]], N); // 1620 %END #line 1620 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block TESTANDSET at level 4 // 1621 L1: %END;->L1 #line 1621 "regression-compile-tmp/allimpc1-77.imp" U_1054:; #line 1621 "regression-compile-tmp/allimpc1-77.imp" return; } // End of block _BLOCK_4_LEVEL_2_ at level 3 _BLOCK_4_LEVEL_2_(); #line 1621 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1622 SW(35): ! (RT)'%NAME'(NAMELIST) #line 1622 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_35:; // 1623 P=P+1; MARKER1=P+A(P) #line 1623 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1623 "regression-compile-tmp/allimpc1-77.imp" MARKER1 = ((P) + ((int)(A[((P) + ((int)(2)))]))); // 1624 ->L3801 %IF A(P+1)=1 #line 1624 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (1))) goto L_01bb; #line 1624 "regression-compile-tmp/allimpc1-77.imp" goto U_1053; #line 1624 "regression-compile-tmp/allimpc1-77.imp" L_01bb:; // 1625 ROUT=1; P=P+2;CLT #line 1625 "regression-compile-tmp/allimpc1-77.imp" ROUT = 1; #line 1625 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 1625 "regression-compile-tmp/allimpc1-77.imp" CLT(); // 1626 ARR=2-A(P+1);NAM=(A(P+2)-1)<<1 #line 1626 "regression-compile-tmp/allimpc1-77.imp" ARR = ((2) - ((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))]))); #line 1626 "regression-compile-tmp/allimpc1-77.imp" NAM = (((((int)(A[(((unsigned char)((((int)(P)) + (2)))) + (2))])) - (1))) << (1)); // 1627 PACK(PTYPE); ->L3802 #line 1627 "regression-compile-tmp/allimpc1-77.imp" PACK(&PTYPE); #line 1627 "regression-compile-tmp/allimpc1-77.imp" goto U_1054; // 1628 L3801: PTYPE=11000 #line 1628 "regression-compile-tmp/allimpc1-77.imp" U_1053:; #line 1628 "regression-compile-tmp/allimpc1-77.imp" PTYPE = 11000; // 1629 L3802: J=0;%CYCLE KK=1,1,A(MARKER1) #line 1629 "regression-compile-tmp/allimpc1-77.imp" U_1054:; #line 1629 "regression-compile-tmp/allimpc1-77.imp" J = 0; #line 1629 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = A[((MARKER1) + ((int)(2)))]; KK = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 1, 1, A[((MARKER1) + ((int)(2)))]"); KK -= _increment; _control -= _increment; L_01bc:; if (KK == _final) goto L_01bd; KK += _increment; _control += _increment; if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */ } // 1630 K=A(MARKER1+KK) #line 1630 "regression-compile-tmp/allimpc1-77.imp" K = A[(((unsigned char)((((int)(MARKER1)) + (KK)))) + (2))]; // 1631 TESTNST; OPHEAD=0 #line 1631 "regression-compile-tmp/allimpc1-77.imp" TESTNST(); #line 1631 "regression-compile-tmp/allimpc1-77.imp" OPHEAD = 0; // 1632 PUSH(OPHEAD,N,1000); ! SIDE CHAIN AS RT PARAM #line 1632 "regression-compile-tmp/allimpc1-77.imp" PUSH(&OPHEAD, N, 1000); // 1633 STORE TAG(K,OPHEAD); !LINK IN SIDE CHAIN #line 1633 "regression-compile-tmp/allimpc1-77.imp" STORETAG(K, OPHEAD); // 1634 N=N+40; %REPEAT; ->L1 #line 1634 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (40)); #line 1634 "regression-compile-tmp/allimpc1-77.imp" goto L_01bc; #line 1634 "regression-compile-tmp/allimpc1-77.imp" L_01bd:; #line 1634 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1635 SW(36): ! RECORD SPEC #line 1635 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_36:; // 1636 P=P+1; MARKER1=P+A(P) #line 1636 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1636 "regression-compile-tmp/allimpc1-77.imp" MARKER1 = ((P) + ((int)(A[((P) + ((int)(2)))]))); // 1637 CHECK RF; ->L1 %IF K=-1 #line 1637 "regression-compile-tmp/allimpc1-77.imp" CHECKRF(); #line 1637 "regression-compile-tmp/allimpc1-77.imp" if (((K) != ((-1)))) goto L_01bf; #line 1637 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; #line 1637 "regression-compile-tmp/allimpc1-77.imp" L_01bf:; // 1638 P=P+1; COPYTAG(A(P)) #line 1638 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1638 "regression-compile-tmp/allimpc1-77.imp" COPYTAG(A[((P) + ((int)(2)))]); // 1639 ->L3910 %IF A(P+1)=1 #line 1639 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (1))) goto L_01c0; #line 1639 "regression-compile-tmp/allimpc1-77.imp" goto U_1055; #line 1639 "regression-compile-tmp/allimpc1-77.imp" L_01c0:; // 1640 ->L3902 %IF TYPE=3 %AND NAM=1 #line 1640 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_01c1; #line 1640 "regression-compile-tmp/allimpc1-77.imp" if (((NAM) != (1))) goto L_01c1; #line 1640 "regression-compile-tmp/allimpc1-77.imp" goto U_1056; #line 1640 "regression-compile-tmp/allimpc1-77.imp" L_01c1:; // 1641 L3901: FAULT(63); ->L1 #line 1641 "regression-compile-tmp/allimpc1-77.imp" U_104e:; #line 1641 "regression-compile-tmp/allimpc1-77.imp" FAULT(63); #line 1641 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1642 L3902: FROM1(K,Q) #line 1642 "regression-compile-tmp/allimpc1-77.imp" U_1056:; #line 1642 "regression-compile-tmp/allimpc1-77.imp" FROM1(K, &Q); // 1643 FAULT(63) %UNLESS Q=0 #line 1643 "regression-compile-tmp/allimpc1-77.imp" if (((Q) == (0))) goto L_01c2; #line 1643 "regression-compile-tmp/allimpc1-77.imp" FAULT(63); #line 1643 "regression-compile-tmp/allimpc1-77.imp" L_01c2:; // 1644 REPLACE1(K,TAGS(A(MARKER1))); ->L1 #line 1644 "regression-compile-tmp/allimpc1-77.imp" REPLACE1(K, TAGS[A[((MARKER1) + ((int)(2)))]]); #line 1644 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1645 L3910: #line 1645 "regression-compile-tmp/allimpc1-77.imp" U_1055:; // 1646 P=P+2; K=DISPLACEMENT(TAGS(A(P-2))) #line 1646 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 1646 "regression-compile-tmp/allimpc1-77.imp" K = DISPLACEMENT(TAGS[A[(((unsigned char)((((int)(P)) - (2)))) + (2))]]); // 1647 ->L3901 %IF K=-1; ->L3902 #line 1647 "regression-compile-tmp/allimpc1-77.imp" if (((K) != ((-1)))) goto L_01c3; #line 1647 "regression-compile-tmp/allimpc1-77.imp" goto U_104e; #line 1647 "regression-compile-tmp/allimpc1-77.imp" L_01c3:; #line 1647 "regression-compile-tmp/allimpc1-77.imp" goto U_1056; // 1648 SW(37): ->L1; ! (S) #line 1648 "regression-compile-tmp/allimpc1-77.imp" sw2_SW_37:; #line 1648 "regression-compile-tmp/allimpc1-77.imp" goto U_1027; // 1649 ! // 1650 %ROUTINE CEND (%INTEGER KKK) #line 1650 "regression-compile-tmp/allimpc1-77.imp" void CEND( int KKK ) #line 1650 "regression-compile-tmp/allimpc1-77.imp" { // 1651 !%SHORT %ROUTINE // 1652 %INTEGER DPTR,LNUM,W1,W2 #line 1652 "regression-compile-tmp/allimpc1-77.imp" int DPTR; #line 1652 "regression-compile-tmp/allimpc1-77.imp" int LNUM; #line 1652 "regression-compile-tmp/allimpc1-77.imp" int W1; #line 1652 "regression-compile-tmp/allimpc1-77.imp" int W2; // 1653 %INTEGERARRAY DD(0:300) #line 1653 "regression-compile-tmp/allimpc1-77.imp" int DD[301]; // 1654 SET LINE; R13=0; MONE=1 #line 1654 "regression-compile-tmp/allimpc1-77.imp" SETLINE(); #line 1654 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; #line 1654 "regression-compile-tmp/allimpc1-77.imp" MONE = 1; // 1655 L1: FROM LIST (SBR(LEVEL),J,K) #line 1655 "regression-compile-tmp/allimpc1-77.imp" U_1058:; #line 1655 "regression-compile-tmp/allimpc1-77.imp" FROMLIST(SBR[LEVEL], &J, &K); // 1656 ->L2 %IF J=-1; FAULT(53); ! FINISH MISSING #line 1656 "regression-compile-tmp/allimpc1-77.imp" if (((J) != ((-1)))) goto L_01c4; #line 1656 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; #line 1656 "regression-compile-tmp/allimpc1-77.imp" L_01c4:; #line 1656 "regression-compile-tmp/allimpc1-77.imp" FAULT(53); // 1657 A(2)=32; A(3)=2; CSS(2); ! SO COMPILE IT IN #line 1657 "regression-compile-tmp/allimpc1-77.imp" A[4] = 32; #line 1657 "regression-compile-tmp/allimpc1-77.imp" A[5] = 2; #line 1657 "regression-compile-tmp/allimpc1-77.imp" CSS(2); // 1658 ->L1 #line 1658 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; // 1659 L2: FILL JUMPS(LEVEL) #line 1659 "regression-compile-tmp/allimpc1-77.imp" U_1059:; #line 1659 "regression-compile-tmp/allimpc1-77.imp" FILLJUMPS(LEVEL); // 1660 NMAX=N %IF N>NMAX; ! WORK SPACE POINTER #line 1660 "regression-compile-tmp/allimpc1-77.imp" if (((N) <= (NMAX))) goto L_01c5; #line 1660 "regression-compile-tmp/allimpc1-77.imp" NMAX = N; #line 1660 "regression-compile-tmp/allimpc1-77.imp" L_01c5:; // 1661 POP (JUMP(LEVEL),J,K) #line 1661 "regression-compile-tmp/allimpc1-77.imp" POP(&JUMP[LEVEL], &J, &K); // 1662 ->L3 %IF J=-1 #line 1662 "regression-compile-tmp/allimpc1-77.imp" if (((J) != ((-1)))) goto L_01c6; #line 1662 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 1662 "regression-compile-tmp/allimpc1-77.imp" L_01c6:; // 1663 ->L2 %IF K>=SFLABEL; FAULT(11) #line 1663 "regression-compile-tmp/allimpc1-77.imp" if (((K) < (SFLABEL))) goto L_01c7; #line 1663 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; #line 1663 "regression-compile-tmp/allimpc1-77.imp" L_01c7:; #line 1663 "regression-compile-tmp/allimpc1-77.imp" FAULT(11); // 1664 %IF K<16384 %THEN WRITE(K,4) %ELSE PRINTNAME(K-16384); ->L2; #line 1664 "regression-compile-tmp/allimpc1-77.imp" if (((K) >= (16384))) goto L_01c8; #line 1664 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(K, 4); #line 1664 "regression-compile-tmp/allimpc1-77.imp" goto L_01c9; #line 1664 "regression-compile-tmp/allimpc1-77.imp" L_01c8:; #line 1664 "regression-compile-tmp/allimpc1-77.imp" PRINTNAME((((int)(K)) - (16384))); #line 1664 "regression-compile-tmp/allimpc1-77.imp" L_01c9:; #line 1664 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; // 1665 L3: CLEAR LIST(LABEL(LEVEL)) #line 1665 "regression-compile-tmp/allimpc1-77.imp" U_105a:; #line 1665 "regression-compile-tmp/allimpc1-77.imp" CLEARLIST(&LABEL[LEVEL]); // 1666 CLEAR LIST (WSP (LEVEL)) #line 1666 "regression-compile-tmp/allimpc1-77.imp" CLEARLIST(&WSP[LEVEL]); // 1667 CLEAR LIST(LWSP(LEVEL)) #line 1667 "regression-compile-tmp/allimpc1-77.imp" CLEARLIST(&LWSP[LEVEL]); // 1668 CLEAR LIST(MDARR(LEVEL)) #line 1668 "regression-compile-tmp/allimpc1-77.imp" CLEARLIST(&MDARR[LEVEL]); // 1669 CLEAR LIST(STR WSP(LEVEL)) #line 1669 "regression-compile-tmp/allimpc1-77.imp" CLEARLIST(&STRWSP[LEVEL]); // 1670 %COMMENT CLEAR DECLARATIONS -PLANT DIAGNOSTICS IF REQUIRED // 1671 ->L10 %IF DIAGS1=0 #line 1671 "regression-compile-tmp/allimpc1-77.imp" if (((DIAGS1) != (0))) goto L_01ca; #line 1671 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; #line 1671 "regression-compile-tmp/allimpc1-77.imp" L_01ca:; // 1672 LNUM=LETT(M(LEVEL)) #line 1672 "regression-compile-tmp/allimpc1-77.imp" LNUM = LETT[M[LEVEL]]; // 1673 DD(0)=X'C2C2C2C2' #line 1673 "regression-compile-tmp/allimpc1-77.imp" DD[0] = (-1027423550); // 1674 DD(1)=L(LEVEL)<<16!RBASE<<8!LNUM #line 1674 "regression-compile-tmp/allimpc1-77.imp" DD[1] = ((((((L[LEVEL]) << (16))) | (((RBASE) << (8))))) | (LNUM)); // 1675 DPTR=3; ->L9 %UNLESS LNUM=0 #line 1675 "regression-compile-tmp/allimpc1-77.imp" DPTR = 3; #line 1675 "regression-compile-tmp/allimpc1-77.imp" if (((LNUM) == (0))) goto L_01cb; #line 1675 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; #line 1675 "regression-compile-tmp/allimpc1-77.imp" L_01cb:; // 1676 DD(2)=L(LEVEL-1); ->L10 #line 1676 "regression-compile-tmp/allimpc1-77.imp" DD[2] = L[(((int)(LEVEL)) - (1))]; #line 1676 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; // 1677 L9: W1=M(LEVEL) #line 1677 "regression-compile-tmp/allimpc1-77.imp" U_105c:; #line 1677 "regression-compile-tmp/allimpc1-77.imp" W1 = M[LEVEL]; // 1678 %CYCLE W2=1,1,LNUM #line 1678 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = LNUM; W2 = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle W2 = 1, 1, LNUM"); W2 -= _increment; _control -= _increment; L_01cc:; if (W2 == _final) goto L_01cd; W2 += _increment; _control += _increment; if (W2 != _control) _imp_signal(4,2,0,"Corrupt control variable W2"); /* FOR loop control variable corrupted */ } // 1679 BYTE INTEGER(ADDR(DD(0))+7+W2)=LETT(W1+W2);! MOVE IN RT NAME #line 1679 "regression-compile-tmp/allimpc1-77.imp" *_imp_BYTEINTEGER((((int)((((int)(_imp_ADDR(&DD[0]))) + (7)))) + (W2))) = LETT[(((int)(W1)) + (W2))]; // 1680 %REPEAT #line 1680 "regression-compile-tmp/allimpc1-77.imp" goto L_01cc; #line 1680 "regression-compile-tmp/allimpc1-77.imp" L_01cd:; // 1681 DPTR=DPTR+(LNUM-1)>>2 #line 1681 "regression-compile-tmp/allimpc1-77.imp" DPTR = ((DPTR) + ((int)((((((((int)(LNUM)) - (1)))) >> (2)))))); // 1682 L10: POP(NAME(LEVEL),J,JJ) #line 1682 "regression-compile-tmp/allimpc1-77.imp" U_105b:; #line 1682 "regression-compile-tmp/allimpc1-77.imp" POP(&NAME[LEVEL], &J, &JJ); // 1683 ->L20 %IF J=-1 #line 1683 "regression-compile-tmp/allimpc1-77.imp" if (((J) != ((-1)))) goto L_01cf; #line 1683 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; #line 1683 "regression-compile-tmp/allimpc1-77.imp" L_01cf:; // 1684 COPY TAG(JJ);POP(TAGS(JJ),KK,KK) #line 1684 "regression-compile-tmp/allimpc1-77.imp" COPYTAG(JJ); #line 1684 "regression-compile-tmp/allimpc1-77.imp" POP(&TAGS[JJ], &KK, &KK); // 1685 %IF PTYPE=8 %THEN %START #line 1685 "regression-compile-tmp/allimpc1-77.imp" if (((PTYPE) != (8))) goto L_01d0; // 1686 REGISTER(K)=0; UVARREG(K)=0; %FINISH;!RELEASE REGISTERS #line 1686 "regression-compile-tmp/allimpc1-77.imp" REGISTER[K] = 0; #line 1686 "regression-compile-tmp/allimpc1-77.imp" UVARREG[(((int)(K)) - (5))] = 0; #line 1686 "regression-compile-tmp/allimpc1-77.imp" L_01d0:; // 1687 %IF INREG#0 %THEN REGISTER(INREG) =0 #line 1687 "regression-compile-tmp/allimpc1-77.imp" if (((INREG) == (0))) goto L_01d1; #line 1687 "regression-compile-tmp/allimpc1-77.imp" REGISTER[INREG] = 0; #line 1687 "regression-compile-tmp/allimpc1-77.imp" L_01d1:; // 1688 ->L12 %UNLESS J=15 #line 1688 "regression-compile-tmp/allimpc1-77.imp" if (((J) == (15))) goto L_01d2; #line 1688 "regression-compile-tmp/allimpc1-77.imp" goto U_105e; #line 1688 "regression-compile-tmp/allimpc1-77.imp" L_01d2:; // 1689 FAULT(28); PRINT NAME (JJ) #line 1689 "regression-compile-tmp/allimpc1-77.imp" FAULT(28); #line 1689 "regression-compile-tmp/allimpc1-77.imp" PRINTNAME(JJ); // 1690 L12: OPHEAD=K; ->L13 %IF TYPE=4 #line 1690 "regression-compile-tmp/allimpc1-77.imp" U_105e:; #line 1690 "regression-compile-tmp/allimpc1-77.imp" OPHEAD = K; #line 1690 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (4))) goto L_01d3; #line 1690 "regression-compile-tmp/allimpc1-77.imp" goto U_105f; #line 1690 "regression-compile-tmp/allimpc1-77.imp" L_01d3:; // 1691 ->L14 %UNLESS ROUT=1 %OR TYPE=3 %OR TYPE=6 %OR ARR=2 #line 1691 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) == (1))) goto L_01d4; #line 1691 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (3))) goto L_01d4; #line 1691 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (6))) goto L_01d4; #line 1691 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) == (2))) goto L_01d4; #line 1691 "regression-compile-tmp/allimpc1-77.imp" goto U_1060; #line 1691 "regression-compile-tmp/allimpc1-77.imp" L_01d4:; // 1692 CLEAR LIST(OPHEAD); ->L10 #line 1692 "regression-compile-tmp/allimpc1-77.imp" CLEARLIST(&OPHEAD); #line 1692 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; // 1693 L13: UNDCRF (OPHEAD) #line 1693 "regression-compile-tmp/allimpc1-77.imp" U_105f:; #line 1693 "regression-compile-tmp/allimpc1-77.imp" UNDCRF(&OPHEAD); // 1694 ->L10 #line 1694 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; // 1695 L14: ->L10 %UNLESS TYPE=1 %OR TYPE=2 %OR TYPE=5 #line 1695 "regression-compile-tmp/allimpc1-77.imp" U_1060:; #line 1695 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (1))) goto L_01d5; #line 1695 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (2))) goto L_01d5; #line 1695 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (5))) goto L_01d5; #line 1695 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; #line 1695 "regression-compile-tmp/allimpc1-77.imp" L_01d5:; // 1696 ->L10 %UNLESS ARR=0 %AND DIAGS1=1 %AND ROUT=0 #line 1696 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (0))) goto L_01ce; #line 1696 "regression-compile-tmp/allimpc1-77.imp" if (((DIAGS1) != (1))) goto L_01ce; #line 1696 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) == (0))) goto L_01d6; #line 1696 "regression-compile-tmp/allimpc1-77.imp" L_01ce:; #line 1696 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; #line 1696 "regression-compile-tmp/allimpc1-77.imp" L_01d6:; // 1697 ->L10 %IF DPTR>297 #line 1697 "regression-compile-tmp/allimpc1-77.imp" if (((DPTR) <= (297))) goto L_01d7; #line 1697 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; #line 1697 "regression-compile-tmp/allimpc1-77.imp" L_01d7:; // 1698 Q=WORD(JJ);LNUM=LETT(Q) #line 1698 "regression-compile-tmp/allimpc1-77.imp" Q = WORD[JJ]; #line 1698 "regression-compile-tmp/allimpc1-77.imp" LNUM = LETT[Q]; // 1699 LNUM=8 %IF LNUM>8; ! TRUNCATE NAMES TO 8 CHARS #line 1699 "regression-compile-tmp/allimpc1-77.imp" if (((LNUM) <= (8))) goto L_01d8; #line 1699 "regression-compile-tmp/allimpc1-77.imp" LNUM = 8; #line 1699 "regression-compile-tmp/allimpc1-77.imp" L_01d8:; // 1700 PTYPE= NAM<<6!PREC<<3!TYPE #line 1700 "regression-compile-tmp/allimpc1-77.imp" PTYPE = ((((((NAM) << (6))) | (((PREC) << (3))))) | (TYPE)); // 1701 DD(DPTR)=PTYPE<<24!I<<20!K<<8!LNUM #line 1701 "regression-compile-tmp/allimpc1-77.imp" DD[DPTR] = ((((((((PTYPE) << (24))) | (((I) << (20))))) | (((K) << (8))))) | (LNUM)); // 1702 %CYCLE W1=1,1,LNUM #line 1702 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = LNUM; W1 = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle W1 = 1, 1, LNUM"); W1 -= _increment; _control -= _increment; L_01d9:; if (W1 == _final) goto L_01da; W1 += _increment; _control += _increment; if (W1 != _control) _imp_signal(4,2,0,"Corrupt control variable W1"); /* FOR loop control variable corrupted */ } // 1703 BYTE INTEGER(ADDR(DD(DPTR))+W1+3)=LETT(W1+Q) #line 1703 "regression-compile-tmp/allimpc1-77.imp" *_imp_BYTEINTEGER((((int)((((int)(_imp_ADDR(&DD[DPTR]))) + (W1)))) + (3))) = LETT[(((int)(W1)) + (Q))]; // 1704 %REPEAT #line 1704 "regression-compile-tmp/allimpc1-77.imp" goto L_01d9; #line 1704 "regression-compile-tmp/allimpc1-77.imp" L_01da:; // 1705 DPTR=DPTR+1+(LNUM+3)>>2;->L10 #line 1705 "regression-compile-tmp/allimpc1-77.imp" DPTR = ((((((int)(DPTR)) + (1)))) + ((((((((int)(LNUM)) + (3)))) >> (2))))); #line 1705 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; // 1706 L20: ->L21 %IF DIAGS 1=0 #line 1706 "regression-compile-tmp/allimpc1-77.imp" U_105d:; #line 1706 "regression-compile-tmp/allimpc1-77.imp" if (((DIAGS1) != (0))) goto L_01dc; #line 1706 "regression-compile-tmp/allimpc1-77.imp" goto U_1061; #line 1706 "regression-compile-tmp/allimpc1-77.imp" L_01dc:; // 1707 DD(DPTR)=-1 #line 1707 "regression-compile-tmp/allimpc1-77.imp" DD[DPTR] = (-1); // 1708 LPUT(4,DPTR<<2+4,SSTL,ADDR(DD(0))) #line 1708 "regression-compile-tmp/allimpc1-77.imp" LPUT(4, (((int)(((DPTR) << (2)))) + (4)), SSTL, _imp_ADDR(&DD[0])); // 1709 SSTL=SSTL+DPTR<<2+4 #line 1709 "regression-compile-tmp/allimpc1-77.imp" SSTL = (((int)(((SSTL) + ((int)(((DPTR) << (2))))))) + (4)); // 1710 %COMMENT CHECK CYCLE-REPEATS // 1711 L21: ->L22 %IF CYCLE(LEVEL)=0 #line 1711 "regression-compile-tmp/allimpc1-77.imp" U_1061:; #line 1711 "regression-compile-tmp/allimpc1-77.imp" if (((CYCLE[LEVEL]) != (0))) goto L_01dd; #line 1711 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; #line 1711 "regression-compile-tmp/allimpc1-77.imp" L_01dd:; // 1712 FROM2(CYCLE(LEVEL),J) #line 1712 "regression-compile-tmp/allimpc1-77.imp" FROM2(CYCLE[LEVEL], &J); // 1713 ->L22 %IF J=0 #line 1713 "regression-compile-tmp/allimpc1-77.imp" if (((J) != (0))) goto L_01de; #line 1713 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; #line 1713 "regression-compile-tmp/allimpc1-77.imp" L_01de:; // 1714 POP(CYCLE(LEVEL),I,I) #line 1714 "regression-compile-tmp/allimpc1-77.imp" POP(&CYCLE[LEVEL], &I, &I); // 1715 FAULT(13); ->L21 #line 1715 "regression-compile-tmp/allimpc1-77.imp" FAULT(13); #line 1715 "regression-compile-tmp/allimpc1-77.imp" goto U_1061; // 1716 L22: %COMMENT GARBAGE COLECT DICTIONARY #line 1716 "regression-compile-tmp/allimpc1-77.imp" U_1062:; // 1717 NEXT=RNEXT(LEVEL) #line 1717 "regression-compile-tmp/allimpc1-77.imp" NEXT = RNEXT[LEVEL]; // 1718 %CYCLE W1=0,1,NNAMES #line 1718 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = NNAMES; W1 = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle W1 = 0, 1, NNAMES"); W1 -= _increment; _control -= _increment; L_01df:; if (W1 == _final) goto L_01e0; W1 += _increment; _control += _increment; if (W1 != _control) _imp_signal(4,2,0,"Corrupt control variable W1"); /* FOR loop control variable corrupted */ } // 1719 WORD(W1)=0 %IF WORD(W1)>NEXT #line 1719 "regression-compile-tmp/allimpc1-77.imp" if (((WORD[W1]) <= (NEXT))) goto L_01e2; #line 1719 "regression-compile-tmp/allimpc1-77.imp" WORD[W1] = 0; #line 1719 "regression-compile-tmp/allimpc1-77.imp" L_01e2:; // 1720 %REPEAT #line 1720 "regression-compile-tmp/allimpc1-77.imp" goto L_01df; #line 1720 "regression-compile-tmp/allimpc1-77.imp" L_01e0:; // 1721 %COMMENT PLANT ANY NECESSARY CODE // 1722 NMAX=(NMAX+7)&(-8) #line 1722 "regression-compile-tmp/allimpc1-77.imp" NMAX = (((((int)(NMAX)) + (7))) & ((-8))); // 1723 FAULT(99) %IF NMAX>4092 #line 1723 "regression-compile-tmp/allimpc1-77.imp" if (((NMAX) <= (4092))) goto L_01e3; #line 1723 "regression-compile-tmp/allimpc1-77.imp" FAULT(99); #line 1723 "regression-compile-tmp/allimpc1-77.imp" L_01e3:; // 1724 PLUG(SET(RLEVEL),NMAX) %IF KKK>=10000 %OR KKK=1 #line 1724 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) >= (10000))) goto L_01e1; #line 1724 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) != (1))) goto L_01e4; #line 1724 "regression-compile-tmp/allimpc1-77.imp" L_01e1:; #line 1724 "regression-compile-tmp/allimpc1-77.imp" PLUG(SET[RLEVEL], NMAX); #line 1724 "regression-compile-tmp/allimpc1-77.imp" L_01e4:; // 1725 ->L23 %IF KKK=10000 #line 1725 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) != (10000))) goto L_01e5; #line 1725 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; #line 1725 "regression-compile-tmp/allimpc1-77.imp" L_01e5:; // 1726 ->L24 %IF KKK=0 #line 1726 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) != (0))) goto L_01e6; #line 1726 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 1726 "regression-compile-tmp/allimpc1-77.imp" L_01e6:; // 1727 %IF KKK>10000 %AND COMPILER =0 %THEN %START #line 1727 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) <= (10000))) goto L_01e7; #line 1727 "regression-compile-tmp/allimpc1-77.imp" if (((COMPILER) != (0))) goto L_01e7; // 1728 PCONST(X'4100000B') ;!LA 0,11 --- FAULT 11 #line 1728 "regression-compile-tmp/allimpc1-77.imp" PCONST(1090519051); // 1729 PPJ(21);%FINISH ;! *->RTF1 #line 1729 "regression-compile-tmp/allimpc1-77.imp" PPJ(21); #line 1729 "regression-compile-tmp/allimpc1-77.imp" L_01e7:; // 1730 PPJ(6) %IF KKK=1; ->L30; ! 'STOP' AT END OF PROGRAM #line 1730 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) != (1))) goto L_01e8; #line 1730 "regression-compile-tmp/allimpc1-77.imp" PPJ(6); #line 1730 "regression-compile-tmp/allimpc1-77.imp" L_01e8:; #line 1730 "regression-compile-tmp/allimpc1-77.imp" goto U_1065; // 1731 L23: P=P+1; A(P)=5; CUI(0); ->L30; ! COMPILE '%RTURN' FOR ROUTINES #line 1731 "regression-compile-tmp/allimpc1-77.imp" U_1063:; #line 1731 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1731 "regression-compile-tmp/allimpc1-77.imp" A[((P) + ((int)(2)))] = 5; #line 1731 "regression-compile-tmp/allimpc1-77.imp" CUI(0); #line 1731 "regression-compile-tmp/allimpc1-77.imp" goto U_1065; // 1732 L24: JJ=X'FFF'&RAL(LEVEL-1) #line 1732 "regression-compile-tmp/allimpc1-77.imp" U_1064:; #line 1732 "regression-compile-tmp/allimpc1-77.imp" JJ = ((4095) & (RAL[(((int)(LEVEL)) - (1))])); // 1733 PRX(X'98',10,11,RBASE,JJ); ! RESTORE R11&12 #line 1733 "regression-compile-tmp/allimpc1-77.imp" PRX(152, 10, 11, RBASE, JJ); // 1734 PSS(X'D2',4,GLA,20,RBASE,JJ+8) %IF DIAGS1=1 #line 1734 "regression-compile-tmp/allimpc1-77.imp" if (((DIAGS1) != (1))) goto L_01e9; #line 1734 "regression-compile-tmp/allimpc1-77.imp" PSS(210, 4, GLA, 20, RBASE, (((int)(JJ)) + (8))); #line 1734 "regression-compile-tmp/allimpc1-77.imp" L_01e9:; // 1735 L30: ->L99 %IF KKK=2; NEWLINE #line 1735 "regression-compile-tmp/allimpc1-77.imp" U_1065:; #line 1735 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) != (2))) goto L_01ea; #line 1735 "regression-compile-tmp/allimpc1-77.imp" goto U_1066; #line 1735 "regression-compile-tmp/allimpc1-77.imp" L_01ea:; #line 1735 "regression-compile-tmp/allimpc1-77.imp" _imp_NEWLINE(); // 1736 %IF PRINTMAP=1 %AND LIST=1 %AND KKK#0 %THEN %START #line 1736 "regression-compile-tmp/allimpc1-77.imp" if (((PRINTMAP) != (1))) goto L_01eb; #line 1736 "regression-compile-tmp/allimpc1-77.imp" if (((LIST) != (1))) goto L_01eb; #line 1736 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) == (0))) goto L_01eb; // 1737 print string(" LOCALS EXTEND TO ") #line 1737 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" LOCALS EXTEND TO ")); // 1738 WRITE(NMAX,2); NEWLINE; %FINISH #line 1738 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(NMAX, 2); #line 1738 "regression-compile-tmp/allimpc1-77.imp" _imp_NEWLINE(); #line 1738 "regression-compile-tmp/allimpc1-77.imp" L_01eb:; // 1739 ->L31 %IF LIST#0; WRITE(LINE,5) #line 1739 "regression-compile-tmp/allimpc1-77.imp" if (((LIST) == (0))) goto L_01ec; #line 1739 "regression-compile-tmp/allimpc1-77.imp" goto U_1067; #line 1739 "regression-compile-tmp/allimpc1-77.imp" L_01ec:; #line 1739 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(LINE, 5); // 1740 SPACES(3*LEVEL-3); print string("END") #line 1740 "regression-compile-tmp/allimpc1-77.imp" _imp_SPACES((((int)((((int)(3)) * (LEVEL)))) - (3))); #line 1740 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal("END")); // 1741 L31: ->L33 %IF LEVEL>2 %OR PERM=1 %OR CPRMODE=2 #line 1741 "regression-compile-tmp/allimpc1-77.imp" U_1067:; #line 1741 "regression-compile-tmp/allimpc1-77.imp" if (((LEVEL) > (2))) goto L_01ed; #line 1741 "regression-compile-tmp/allimpc1-77.imp" if (((PERM) == (1))) goto L_01ed; #line 1741 "regression-compile-tmp/allimpc1-77.imp" if (((CPRMODE) != (2))) goto L_01ee; #line 1741 "regression-compile-tmp/allimpc1-77.imp" L_01ed:; #line 1741 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; #line 1741 "regression-compile-tmp/allimpc1-77.imp" L_01ee:; // 1742 ->L32 %IF KKK=1 #line 1742 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) != (1))) goto L_01ef; #line 1742 "regression-compile-tmp/allimpc1-77.imp" goto U_1069; #line 1742 "regression-compile-tmp/allimpc1-77.imp" L_01ef:; // 1743 FAULT(14); A(1)=13; ->L99; ! TOO MANY ENDS #line 1743 "regression-compile-tmp/allimpc1-77.imp" FAULT(14); #line 1743 "regression-compile-tmp/allimpc1-77.imp" A[3] = 13; #line 1743 "regression-compile-tmp/allimpc1-77.imp" goto U_1066; // 1744 L32: KKK=2 #line 1744 "regression-compile-tmp/allimpc1-77.imp" U_1069:; #line 1744 "regression-compile-tmp/allimpc1-77.imp" KKK = 2; // 1745 L33: LEVEL=LEVEL-1 #line 1745 "regression-compile-tmp/allimpc1-77.imp" U_1068:; #line 1745 "regression-compile-tmp/allimpc1-77.imp" LEVEL = (((int)(LEVEL)) - (1)); // 1746 RLEVEL=RLEVEL-1 %IF KKK>=10000 #line 1746 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) < (10000))) goto L_01f0; #line 1746 "regression-compile-tmp/allimpc1-77.imp" RLEVEL = (((int)(RLEVEL)) - (1)); #line 1746 "regression-compile-tmp/allimpc1-77.imp" L_01f0:; // 1747 RBASE=10-RLEVEL; REGISTER (9-RLEVEL)=0 #line 1747 "regression-compile-tmp/allimpc1-77.imp" RBASE = (((int)(10)) - (RLEVEL)); #line 1747 "regression-compile-tmp/allimpc1-77.imp" REGISTER[(((int)(9)) - (RLEVEL))] = 0; // 1748 N=RAL(LEVEL); SBFLAG=N>>15&1 #line 1748 "regression-compile-tmp/allimpc1-77.imp" N = RAL[LEVEL]; #line 1748 "regression-compile-tmp/allimpc1-77.imp" SBFLAG = (((int)((((unsigned int)(N)) >> (15)))) & (1)); // 1749 NMAX=N>>16 %IF KKK>=10000; N=N&4095 #line 1749 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) < (10000))) goto L_01f1; #line 1749 "regression-compile-tmp/allimpc1-77.imp" NMAX = (int)((((unsigned int)(N)) >> (16))); #line 1749 "regression-compile-tmp/allimpc1-77.imp" L_01f1:; #line 1749 "regression-compile-tmp/allimpc1-77.imp" N = ((N) & (4095)); // 1750 ->L2 %IF KKK=2; ! ROUND AGAIN FOR 'ENDOFPROGRAM' #line 1750 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) != (2))) goto L_01f2; #line 1750 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; #line 1750 "regression-compile-tmp/allimpc1-77.imp" L_01f2:; // 1751 ->L99 %IF RLEVEL=1 %AND CPRMODE=2 #line 1751 "regression-compile-tmp/allimpc1-77.imp" if (((RLEVEL) != (1))) goto L_01f3; #line 1751 "regression-compile-tmp/allimpc1-77.imp" if (((CPRMODE) != (2))) goto L_01f3; #line 1751 "regression-compile-tmp/allimpc1-77.imp" goto U_1066; #line 1751 "regression-compile-tmp/allimpc1-77.imp" L_01f3:; // 1752 ->L99 %IF KKK=0 %OR COMPILER=1 #line 1752 "regression-compile-tmp/allimpc1-77.imp" if (((KKK) == (0))) goto L_01f4; #line 1752 "regression-compile-tmp/allimpc1-77.imp" if (((COMPILER) != (1))) goto L_01f5; #line 1752 "regression-compile-tmp/allimpc1-77.imp" L_01f4:; #line 1752 "regression-compile-tmp/allimpc1-77.imp" goto U_1066; #line 1752 "regression-compile-tmp/allimpc1-77.imp" L_01f5:; // 1753 FROM2(JUMP(LEVEL),J) ; PLAB(J) #line 1753 "regression-compile-tmp/allimpc1-77.imp" FROM2(JUMP[LEVEL], &J); #line 1753 "regression-compile-tmp/allimpc1-77.imp" PLAB(J); // 1754 L99: %END #line 1754 "regression-compile-tmp/allimpc1-77.imp" U_1066:; #line 1754 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CEND at level 3 // 1755 %ROUTINE CRSPEC (%BYTEINTEGER M) #line 1755 "regression-compile-tmp/allimpc1-77.imp" void CRSPEC( unsigned char M ) #line 1755 "regression-compile-tmp/allimpc1-77.imp" { // 1756 !%SHORTROUTINE // 1757 %INTEGER PP,KK,JJ,JJJ,Q,TYPEP #line 1757 "regression-compile-tmp/allimpc1-77.imp" int PP; #line 1757 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 1757 "regression-compile-tmp/allimpc1-77.imp" int JJ; #line 1757 "regression-compile-tmp/allimpc1-77.imp" int JJJ; #line 1757 "regression-compile-tmp/allimpc1-77.imp" int Q; #line 1757 "regression-compile-tmp/allimpc1-77.imp" int TYPEP; // 1758 ->L12 %IF M=3 #line 1758 "regression-compile-tmp/allimpc1-77.imp" if (((M) != (3))) goto L_01f6; #line 1758 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; #line 1758 "regression-compile-tmp/allimpc1-77.imp" L_01f6:; // 1759 PP=P; ->L2 %UNLESS M=2 #line 1759 "regression-compile-tmp/allimpc1-77.imp" PP = P; #line 1759 "regression-compile-tmp/allimpc1-77.imp" if (((M) == (2))) goto L_01f7; #line 1759 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 1759 "regression-compile-tmp/allimpc1-77.imp" L_01f7:; // 1760 KK=A(P); P=P+1; COPYTAG(KK) #line 1760 "regression-compile-tmp/allimpc1-77.imp" KK = A[((P) + ((int)(2)))]; #line 1760 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1760 "regression-compile-tmp/allimpc1-77.imp" COPYTAG(KK); // 1761 ->L1 %IF OLDI=LEVEL %AND 10006#PTYPE>=10000 #line 1761 "regression-compile-tmp/allimpc1-77.imp" if (((OLDI) != (LEVEL))) goto L_01f8; #line 1761 "regression-compile-tmp/allimpc1-77.imp" if ((((10006) == (PTYPE))) || (((PTYPE) < (10000)))) goto L_01f8; #line 1761 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; #line 1761 "regression-compile-tmp/allimpc1-77.imp" L_01f8:; // 1762 FAULT(3); ->L99 #line 1762 "regression-compile-tmp/allimpc1-77.imp" FAULT(3); #line 1762 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; // 1763 L1: FROM LIST(K,JJ,Q); OPHEAD=K #line 1763 "regression-compile-tmp/allimpc1-77.imp" U_105b:; #line 1763 "regression-compile-tmp/allimpc1-77.imp" FROMLIST(K, &JJ, &Q); #line 1763 "regression-compile-tmp/allimpc1-77.imp" OPHEAD = K; // 1764 ->L12 %IF Q=1000; ->L10 #line 1764 "regression-compile-tmp/allimpc1-77.imp" if (((Q) != (1000))) goto L_01f9; #line 1764 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; #line 1764 "regression-compile-tmp/allimpc1-77.imp" L_01f9:; #line 1764 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 1765 L2: ->L3 %IF A(PP+1)=2 #line 1765 "regression-compile-tmp/allimpc1-77.imp" U_105a:; #line 1765 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(PP)) + (1)))) + (2))]) != (2))) goto L_01fa; #line 1765 "regression-compile-tmp/allimpc1-77.imp" goto U_105e; #line 1765 "regression-compile-tmp/allimpc1-77.imp" L_01fa:; // 1766 TYPEP=10000; P=PP+3; ->L4 #line 1766 "regression-compile-tmp/allimpc1-77.imp" TYPEP = 10000; #line 1766 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(PP)) + (3)); #line 1766 "regression-compile-tmp/allimpc1-77.imp" goto U_105f; // 1767 L3: ROUT=1;ARR=0;P=PP+2;CLT #line 1767 "regression-compile-tmp/allimpc1-77.imp" U_105e:; #line 1767 "regression-compile-tmp/allimpc1-77.imp" ROUT = 1; #line 1767 "regression-compile-tmp/allimpc1-77.imp" ARR = 0; #line 1767 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(PP)) + (2)); #line 1767 "regression-compile-tmp/allimpc1-77.imp" CLT(); // 1768 NAM=(A(P)-1)*2; PACK(TYPEP); P=P+2 #line 1768 "regression-compile-tmp/allimpc1-77.imp" NAM = (((int)((((int)(A[((P) + ((int)(2)))])) - (1)))) * (2)); #line 1768 "regression-compile-tmp/allimpc1-77.imp" PACK(&TYPEP); #line 1768 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); // 1769 L4: KK=A(P); COPYTAG(KK) #line 1769 "regression-compile-tmp/allimpc1-77.imp" U_105f:; #line 1769 "regression-compile-tmp/allimpc1-77.imp" KK = A[((P) + ((int)(2)))]; #line 1769 "regression-compile-tmp/allimpc1-77.imp" COPYTAG(KK); // 1770 ->L11 %IF OLDI#LEVEL #line 1770 "regression-compile-tmp/allimpc1-77.imp" if (((OLDI) == (LEVEL))) goto L_01fb; #line 1770 "regression-compile-tmp/allimpc1-77.imp" goto U_1060; #line 1770 "regression-compile-tmp/allimpc1-77.imp" L_01fb:; // 1771 ->L1 %IF PTYPE=TYPEP %OR |PTYPE-TYPEP|=1000 #line 1771 "regression-compile-tmp/allimpc1-77.imp" if (((PTYPE) == (TYPEP))) goto L_01fc; #line 1771 "regression-compile-tmp/allimpc1-77.imp" if (((_imp_IMOD((((int)(PTYPE)) - (TYPEP)))) != (1000))) goto L_01fd; #line 1771 "regression-compile-tmp/allimpc1-77.imp" L_01fc:; #line 1771 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; #line 1771 "regression-compile-tmp/allimpc1-77.imp" L_01fd:; // 1772 L10: FNAME=KK;FAULT(7) %UNLESS PTYPE=7 #line 1772 "regression-compile-tmp/allimpc1-77.imp" U_105d:; #line 1772 "regression-compile-tmp/allimpc1-77.imp" FNAME = KK; #line 1772 "regression-compile-tmp/allimpc1-77.imp" if (((PTYPE) == (7))) goto L_01fe; #line 1772 "regression-compile-tmp/allimpc1-77.imp" FAULT(7); #line 1772 "regression-compile-tmp/allimpc1-77.imp" L_01fe:; // 1773 ->L99 %IF M=2 #line 1773 "regression-compile-tmp/allimpc1-77.imp" if (((M) != (2))) goto L_01ff; #line 1773 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; #line 1773 "regression-compile-tmp/allimpc1-77.imp" L_01ff:; // 1774 L11: JJ=NR; NR=NR+1; RA(JJ)=4*N0; N0=N0+1 #line 1774 "regression-compile-tmp/allimpc1-77.imp" U_1060:; #line 1774 "regression-compile-tmp/allimpc1-77.imp" JJ = NR; #line 1774 "regression-compile-tmp/allimpc1-77.imp" NR = (((int)(NR)) + (1)); #line 1774 "regression-compile-tmp/allimpc1-77.imp" RA[JJ] = (((int)(4)) * (N0)); #line 1774 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (1)); // 1775 FAULT(109) %IF NR>NROUTS #line 1775 "regression-compile-tmp/allimpc1-77.imp" if (((NR) <= (NROUTS))) goto L_0200; #line 1775 "regression-compile-tmp/allimpc1-77.imp" FAULT(109); #line 1775 "regression-compile-tmp/allimpc1-77.imp" L_0200:; // 1776 OPHEAD=NEWCELL;J=15;PTYPE=TYPEP #line 1776 "regression-compile-tmp/allimpc1-77.imp" OPHEAD = NEWCELL(); #line 1776 "regression-compile-tmp/allimpc1-77.imp" J = 15; #line 1776 "regression-compile-tmp/allimpc1-77.imp" PTYPE = TYPEP; // 1777 STORE TAG(KK,OPHEAD) #line 1777 "regression-compile-tmp/allimpc1-77.imp" STORETAG(KK, OPHEAD); // 1778 L12: JJJ=OPHEAD; Q=0; ->L24 %IF A(P+1)=2; ! NO FORMAL PARAMS #line 1778 "regression-compile-tmp/allimpc1-77.imp" U_1059:; #line 1778 "regression-compile-tmp/allimpc1-77.imp" JJJ = OPHEAD; #line 1778 "regression-compile-tmp/allimpc1-77.imp" Q = 0; #line 1778 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) goto L_0201; #line 1778 "regression-compile-tmp/allimpc1-77.imp" goto U_1061; #line 1778 "regression-compile-tmp/allimpc1-77.imp" L_0201:; // 1779 L13: P=P+2; COMPILE FORMAL PARAMETER #line 1779 "regression-compile-tmp/allimpc1-77.imp" U_1062:; #line 1779 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 1779 "regression-compile-tmp/allimpc1-77.imp" COMPILEFORMALPARAMETER(); // 1780 %CYCLE PP=1,1,A(P) #line 1780 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = A[((P) + ((int)(2)))]; PP = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle PP = 1, 1, A[((P) + ((int)(2)))]"); PP -= _increment; _control -= _increment; L_0202:; if (PP == _final) goto L_0203; PP += _increment; _control += _increment; if (PP != _control) _imp_signal(4,2,0,"Corrupt control variable PP"); /* FOR loop control variable corrupted */ } // 1781 KK=0; KK=ACC %IF PTYPE=5 #line 1781 "regression-compile-tmp/allimpc1-77.imp" KK = 0; #line 1781 "regression-compile-tmp/allimpc1-77.imp" if (((PTYPE) != (5))) goto L_0205; #line 1781 "regression-compile-tmp/allimpc1-77.imp" KK = ACC; #line 1781 "regression-compile-tmp/allimpc1-77.imp" L_0205:; // 1782 INSERT AFTER(OPHEAD,PTYPE,KK);! FOR STRINGS PUSH IN LMAX #line 1782 "regression-compile-tmp/allimpc1-77.imp" INSERTAFTER(&OPHEAD, PTYPE, KK); // 1783 Q=Q+1; %REPEAT #line 1783 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 1783 "regression-compile-tmp/allimpc1-77.imp" goto L_0202; #line 1783 "regression-compile-tmp/allimpc1-77.imp" L_0203:; // 1784 P=P+PP+1; ->L13 %IF A(P)=1 #line 1784 "regression-compile-tmp/allimpc1-77.imp" P = (((int)((((int)(P)) + (PP)))) + (1)); #line 1784 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (1))) goto L_0206; #line 1784 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; #line 1784 "regression-compile-tmp/allimpc1-77.imp" L_0206:; // 1785 L24: REPLACE2(JJJ,Q) #line 1785 "regression-compile-tmp/allimpc1-77.imp" U_1061:; #line 1785 "regression-compile-tmp/allimpc1-77.imp" REPLACE2(JJJ, Q); // 1786 ->L99 %IF M=3 #line 1786 "regression-compile-tmp/allimpc1-77.imp" if (((M) != (3))) goto L_0207; #line 1786 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; #line 1786 "regression-compile-tmp/allimpc1-77.imp" L_0207:; // 1787 REPLACE1(JJJ,JJ) #line 1787 "regression-compile-tmp/allimpc1-77.imp" REPLACE1(JJJ, JJ); // 1788 L99: %END #line 1788 "regression-compile-tmp/allimpc1-77.imp" U_105c:; #line 1788 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CRSPEC at level 3 // 1789 %ROUTINE COMPILE FORMAL PARAMETER #line 1789 "regression-compile-tmp/allimpc1-77.imp" void COMPILEFORMALPARAMETER( void ) #line 1789 "regression-compile-tmp/allimpc1-77.imp" { // 1790 !%SHORT %ROUTINE // 1791 %SWITCH FPD(1:5) #line 1791 "regression-compile-tmp/allimpc1-77.imp" static int sw3_FPD_idx; static const void * /*SWITCH*/ sw3_FPD[5] = { &&sw3_FPD_1, &&sw3_FPD_2, &&sw3_FPD_3, &&sw3_FPD_4, &&sw3_FPD_5, }; // 1792 ->FPD(A(P)) #line 1792 "regression-compile-tmp/allimpc1-77.imp" sw3_FPD_idx = A[((P) + ((int)(2)))]; if ((1 <= sw3_FPD_idx) && (sw3_FPD_idx <= 5)) goto *(sw3_FPD-1)[sw3_FPD_idx]; /* Bounds=1:5 */ else { /*_imp_signal(8, 2, sw3_FPD_idx);*/ fprintf(stderr, "%%SWITCH index FPD(%d) not in range 1:5 at %s:%d\n", sw3_FPD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 1793 FPD(1): !(RT) #line 1793 "regression-compile-tmp/allimpc1-77.imp" sw3_FPD_1:; // 1794 ACC=16;ROUT=1;NAM=1 #line 1794 "regression-compile-tmp/allimpc1-77.imp" ACC = 16; #line 1794 "regression-compile-tmp/allimpc1-77.imp" ROUT = 1; #line 1794 "regression-compile-tmp/allimpc1-77.imp" NAM = 1; // 1795 ARR=0 #line 1795 "regression-compile-tmp/allimpc1-77.imp" ARR = 0; // 1796 ->L1 %UNLESS A(P+1)=1 #line 1796 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (1))) goto L_0208; #line 1796 "regression-compile-tmp/allimpc1-77.imp" goto U_106a; #line 1796 "regression-compile-tmp/allimpc1-77.imp" L_0208:; // 1797 PREC=0;TYPE=0;P=P+3; ->L98 #line 1797 "regression-compile-tmp/allimpc1-77.imp" PREC = 0; #line 1797 "regression-compile-tmp/allimpc1-77.imp" TYPE = 0; #line 1797 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); #line 1797 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; // 1798 L1: P=P+2; CLT;NAM =2*(A(P)-1)+1 #line 1798 "regression-compile-tmp/allimpc1-77.imp" U_106a:; #line 1798 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 1798 "regression-compile-tmp/allimpc1-77.imp" CLT(); #line 1798 "regression-compile-tmp/allimpc1-77.imp" NAM = (((int)(((2) * ((int)((((int)(A[((P) + ((int)(2)))])) - (1))))))) + (1)); // 1799 P=P+2; ACC=16; ->L98 #line 1799 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 1799 "regression-compile-tmp/allimpc1-77.imp" ACC = 16; #line 1799 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; // 1800 FPD(2): !(LENGTH')(TYPE)(ARRAY')(NAME) #line 1800 "regression-compile-tmp/allimpc1-77.imp" sw3_FPD_2:; // 1801 P=P+1; CLT #line 1801 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1801 "regression-compile-tmp/allimpc1-77.imp" CLT(); // 1802 CQN(P); ROUT=0 #line 1802 "regression-compile-tmp/allimpc1-77.imp" CQN(P); #line 1802 "regression-compile-tmp/allimpc1-77.imp" ROUT = 0; // 1803 FAULT(70) %IF TYPE=5 %AND ACC=0 #line 1803 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_0209; #line 1803 "regression-compile-tmp/allimpc1-77.imp" if (((ACC) != (0))) goto L_0209; #line 1803 "regression-compile-tmp/allimpc1-77.imp" FAULT(70); #line 1803 "regression-compile-tmp/allimpc1-77.imp" L_0209:; // 1804 P=P+1; ->L98 #line 1804 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1804 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; // 1805 FPD(3): !%NAME #line 1805 "regression-compile-tmp/allimpc1-77.imp" sw3_FPD_3:; // 1806 TYPE=0 #line 1806 "regression-compile-tmp/allimpc1-77.imp" TYPE = 0; // 1807 L31: NAM=1; ARR=2-A(P+1); ROUT=0 #line 1807 "regression-compile-tmp/allimpc1-77.imp" U_106c:; #line 1807 "regression-compile-tmp/allimpc1-77.imp" NAM = 1; #line 1807 "regression-compile-tmp/allimpc1-77.imp" ARR = ((2) - ((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))]))); #line 1807 "regression-compile-tmp/allimpc1-77.imp" ROUT = 0; // 1808 ACC=4+12*ARR #line 1808 "regression-compile-tmp/allimpc1-77.imp" ACC = ((4) + ((int)(((12) * ((int)(ARR)))))); // 1809 PREC=0; P=P+2; ->L98 #line 1809 "regression-compile-tmp/allimpc1-77.imp" PREC = 0; #line 1809 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 1809 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; // 1810 FPD(4): TYPE=3; ->L31 #line 1810 "regression-compile-tmp/allimpc1-77.imp" sw3_FPD_4:; #line 1810 "regression-compile-tmp/allimpc1-77.imp" TYPE = 3; #line 1810 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; // 1811 L98: PACK(PTYPE) #line 1811 "regression-compile-tmp/allimpc1-77.imp" U_106b:; #line 1811 "regression-compile-tmp/allimpc1-77.imp" PACK(&PTYPE); // 1812 %END #line 1812 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; sw3_FPD_5:; /*_imp_signal(6,3,sw3_FPD_idx,"SWITCH LABEL NOT SET - sw3_FPD");*/ fprintf(stderr, "%%SWITCH LABEL NOT SET - sw3_FPD(%d): at line %s:%d", sw3_FPD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // End of block COMPILEFORMALPARAMETER at level 3 // 1813 %ROUTINE ASSIGN (%INTEGER P1,P2) #line 1813 "regression-compile-tmp/allimpc1-77.imp" void ASSIGN( int P1, int P2 ) #line 1813 "regression-compile-tmp/allimpc1-77.imp" { // 1814 !%SHORTROUTINE // 1815 %INTEGER Q,ASSOP,KK,REG,PRECP,Z,ZP,TYPEP #line 1815 "regression-compile-tmp/allimpc1-77.imp" int Q; #line 1815 "regression-compile-tmp/allimpc1-77.imp" int ASSOP; #line 1815 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 1815 "regression-compile-tmp/allimpc1-77.imp" int REG; #line 1815 "regression-compile-tmp/allimpc1-77.imp" int PRECP; #line 1815 "regression-compile-tmp/allimpc1-77.imp" int Z; #line 1815 "regression-compile-tmp/allimpc1-77.imp" int ZP; #line 1815 "regression-compile-tmp/allimpc1-77.imp" int TYPEP; // 1816 %INTEGER JJJ #line 1816 "regression-compile-tmp/allimpc1-77.imp" int JJJ; // 1817 %SWITCH SW(1:4), S(0:15) #line 1817 "regression-compile-tmp/allimpc1-77.imp" static int sw4_SW_idx; static const void * /*SWITCH*/ sw4_SW[4] = { &&sw4_SW_1, &&sw4_SW_2, &&sw4_SW_3, &&sw4_SW_4, }; #line 1817 "regression-compile-tmp/allimpc1-77.imp" static int sw5_S_idx; static const void * /*SWITCH*/ sw5_S[16] = { &&sw5_S_0, &&sw5_S_1, &&sw5_S_2, &&sw5_S_3, &&sw5_S_4, &&sw5_S_5, &&sw5_S_6, &&sw5_S_7, &&sw5_S_8, &&sw5_S_9, &&sw5_S_10, &&sw5_S_11, &&sw5_S_12, &&sw5_S_13, &&sw5_S_14, &&sw5_S_15, }; // 1818 ASSOP=A(P2); ->SW(ASSOP); !P2 ON ASSOP #line 1818 "regression-compile-tmp/allimpc1-77.imp" ASSOP = A[((P2) + ((int)(2)))]; #line 1818 "regression-compile-tmp/allimpc1-77.imp" sw4_SW_idx = ASSOP; if ((1 <= sw4_SW_idx) && (sw4_SW_idx <= 4)) goto *(sw4_SW-1)[sw4_SW_idx]; /* Bounds=1:4 */ else { /*_imp_signal(8, 2, sw4_SW_idx);*/ fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:4 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); } // 1819 SW(2):SW(3): COPYTAG(A(P1+1)); P=P2+1 #line 1819 "regression-compile-tmp/allimpc1-77.imp" sw4_SW_2:; #line 1819 "regression-compile-tmp/allimpc1-77.imp" sw4_SW_3:; #line 1819 "regression-compile-tmp/allimpc1-77.imp" COPYTAG(A[(((unsigned char)((((int)(P1)) + (1)))) + (2))]); #line 1819 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P2)) + (1)); // 1820 ->REGVAR %IF TYPE=8 #line 1820 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (8))) goto L_020a; #line 1820 "regression-compile-tmp/allimpc1-77.imp" goto U_105f; #line 1820 "regression-compile-tmp/allimpc1-77.imp" L_020a:; // 1821 ->MAPS %IF ROUT=1 #line 1821 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) != (1))) goto L_020b; #line 1821 "regression-compile-tmp/allimpc1-77.imp" goto U_1060; #line 1821 "regression-compile-tmp/allimpc1-77.imp" L_020b:; // 1822 ->L34 %IF TYPE=2 #line 1822 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_020c; #line 1822 "regression-compile-tmp/allimpc1-77.imp" goto U_1061; #line 1822 "regression-compile-tmp/allimpc1-77.imp" L_020c:; // 1823 ->L50 %IF TYPE=5 #line 1823 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_020d; #line 1823 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; #line 1823 "regression-compile-tmp/allimpc1-77.imp" L_020d:; // 1824 ->L35 %IF TYPE=3 #line 1824 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_020e; #line 1824 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; #line 1824 "regression-compile-tmp/allimpc1-77.imp" L_020e:; // 1825 ->L32 %IF NAM=0 %AND TYPE=1 %AND ARR=0 #line 1825 "regression-compile-tmp/allimpc1-77.imp" if (((NAM) != (0))) goto L_020f; #line 1825 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (1))) goto L_020f; #line 1825 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (0))) goto L_020f; #line 1825 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 1825 "regression-compile-tmp/allimpc1-77.imp" L_020f:; // 1826 L33: P=P2+1 #line 1826 "regression-compile-tmp/allimpc1-77.imp" U_1065:; #line 1826 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P2)) + (1)); // 1827 KK=0; KK=4 %UNLESS ARR=0 %AND ROUT=0 %AND 1>=TYPE #line 1827 "regression-compile-tmp/allimpc1-77.imp" KK = 0; #line 1827 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (0))) goto L_0204; #line 1827 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) != (0))) goto L_0204; #line 1827 "regression-compile-tmp/allimpc1-77.imp" if (((1) >= (TYPE))) goto L_0210; #line 1827 "regression-compile-tmp/allimpc1-77.imp" L_0204:; #line 1827 "regression-compile-tmp/allimpc1-77.imp" KK = 4; #line 1827 "regression-compile-tmp/allimpc1-77.imp" L_0210:; // 1828 L36: %IF KK=4 %AND REGISTER(4)#0 %THEN KK=14 #line 1828 "regression-compile-tmp/allimpc1-77.imp" U_1066:; #line 1828 "regression-compile-tmp/allimpc1-77.imp" if (((KK) != (4))) goto L_0211; #line 1828 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[4]) == (0))) goto L_0211; #line 1828 "regression-compile-tmp/allimpc1-77.imp" KK = 14; #line 1828 "regression-compile-tmp/allimpc1-77.imp" L_0211:; // 1829 CSEXP(KK,1); REG=NEST;KK=P #line 1829 "regression-compile-tmp/allimpc1-77.imp" CSEXP(KK, 1); #line 1829 "regression-compile-tmp/allimpc1-77.imp" REG = NEST; #line 1829 "regression-compile-tmp/allimpc1-77.imp" KK = P; // 1830 REGISTER(REG)=1 %IF REGISTER(REG)=0 #line 1830 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[REG]) != (0))) goto L_0212; #line 1830 "regression-compile-tmp/allimpc1-77.imp" REGISTER[REG] = 1; #line 1830 "regression-compile-tmp/allimpc1-77.imp" L_0212:; // 1831 P=P1+1; CNAME((ASSOP-1)*(ASSOP-1),REG) #line 1831 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P1)) + (1)); #line 1831 "regression-compile-tmp/allimpc1-77.imp" CNAME(((((((int)(ASSOP)) - (1)))) * ((((int)(ASSOP)) - (1)))), REG); // 1832 REGISTER(REG)=0 %IF REGISTER(REG)>0 #line 1832 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[REG]) <= (0))) goto L_0213; #line 1832 "regression-compile-tmp/allimpc1-77.imp" REGISTER[REG] = 0; #line 1832 "regression-compile-tmp/allimpc1-77.imp" L_0213:; // 1833 L30: #line 1833 "regression-compile-tmp/allimpc1-77.imp" U_1067:; // 1834 P=KK; %IF A(P)=1=QU %THEN CQUERY (REG) #line 1834 "regression-compile-tmp/allimpc1-77.imp" P = KK; #line 1834 "regression-compile-tmp/allimpc1-77.imp" if ((((A[((P) + ((int)(2)))]) != (1))) || (((1) != (QU)))) goto L_0214; #line 1834 "regression-compile-tmp/allimpc1-77.imp" CQUERY(REG); #line 1834 "regression-compile-tmp/allimpc1-77.imp" L_0214:; // 1835 P=P+1; ->L1 #line 1835 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1835 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 1836 L31: print string(" CRUNCH "); %MONITOR ; %STOP #line 1836 "regression-compile-tmp/allimpc1-77.imp" U_1069:; #line 1836 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal(" CRUNCH ")); #line 1836 "regression-compile-tmp/allimpc1-77.imp" _imp_monitor(0, (_imp_current_line != 0 ? _imp_current_line : __LINE__), (_imp_current_file != 0 ? _imp_current_file : __FILE__), __PRETTY_FUNCTION__); #line 1836 "regression-compile-tmp/allimpc1-77.imp" exit(0); // 1837 L32: ->L33 %IF ROUT=1 %OR A(P1+2)=1 %OR A(P1+3)=1;! ACTUAL PARAMS #line 1837 "regression-compile-tmp/allimpc1-77.imp" U_1064:; #line 1837 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) == (1))) goto L_0215; #line 1837 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P1)) + (2)))) + (2))]) == (1))) goto L_0215; #line 1837 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P1)) + (3)))) + (2))]) != (1))) goto L_0216; #line 1837 "regression-compile-tmp/allimpc1-77.imp" L_0215:; #line 1837 "regression-compile-tmp/allimpc1-77.imp" goto U_1065; #line 1837 "regression-compile-tmp/allimpc1-77.imp" L_0216:; // 1838 ->L33 %IF UNASS =1 #line 1838 "regression-compile-tmp/allimpc1-77.imp" if (((UNASS) != (1))) goto L_0217; #line 1838 "regression-compile-tmp/allimpc1-77.imp" goto U_1065; #line 1838 "regression-compile-tmp/allimpc1-77.imp" L_0217:; // 1839 PRECP=PREC; TYPEP=PTYPE #line 1839 "regression-compile-tmp/allimpc1-77.imp" PRECP = PREC; #line 1839 "regression-compile-tmp/allimpc1-77.imp" TYPEP = PTYPE; // 1840 KK=K; REG=I; Q=TSEXP(JJJ) #line 1840 "regression-compile-tmp/allimpc1-77.imp" KK = K; #line 1840 "regression-compile-tmp/allimpc1-77.imp" REG = I; #line 1840 "regression-compile-tmp/allimpc1-77.imp" Q = TSEXP(&JJJ); // 1841 PTYPE=TYPEP; UNPACK #line 1841 "regression-compile-tmp/allimpc1-77.imp" PTYPE = TYPEP; #line 1841 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 1842 ->L33 %IF Q=0 %OR A(P)=1=QU #line 1842 "regression-compile-tmp/allimpc1-77.imp" if (((Q) == (0))) goto L_0218; #line 1842 "regression-compile-tmp/allimpc1-77.imp" if ((((A[((P) + ((int)(2)))]) != (1))) || (((1) != (QU)))) goto L_0219; #line 1842 "regression-compile-tmp/allimpc1-77.imp" L_0218:; #line 1842 "regression-compile-tmp/allimpc1-77.imp" goto U_1065; #line 1842 "regression-compile-tmp/allimpc1-77.imp" L_0219:; // 1843 ->L37 %IF 10<=Q<=12 %AND Q-10=PRECP #line 1843 "regression-compile-tmp/allimpc1-77.imp" if ((((10) > (Q))) || (((Q) > (12)))) goto L_021a; #line 1843 "regression-compile-tmp/allimpc1-77.imp" if ((((((int)(Q)) - (10))) != (PRECP))) goto L_021a; #line 1843 "regression-compile-tmp/allimpc1-77.imp" goto U_106d; #line 1843 "regression-compile-tmp/allimpc1-77.imp" L_021a:; // 1844 ->L33 %UNLESS Q=1 %AND PRECP=1 #line 1844 "regression-compile-tmp/allimpc1-77.imp" if (((Q) != (1))) goto L_021b; #line 1844 "regression-compile-tmp/allimpc1-77.imp" if (((PRECP) == (1))) goto L_021c; #line 1844 "regression-compile-tmp/allimpc1-77.imp" L_021b:; #line 1844 "regression-compile-tmp/allimpc1-77.imp" goto U_1065; #line 1844 "regression-compile-tmp/allimpc1-77.imp" L_021c:; // 1845 PSI(X'92',JJJ,REG,KK); ! MVI TO SET BYTE #line 1845 "regression-compile-tmp/allimpc1-77.imp" PSI(146, JJJ, REG, KK); // 1846 P=P+1;->L1; ! SKIP QUERY IF ANY #line 1846 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1846 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 1847 L37: PSS(X'D2',BYTES(PRECP),REG,KK,I,K); ! MVC IF POSSIBL #line 1847 "regression-compile-tmp/allimpc1-77.imp" U_106d:; #line 1847 "regression-compile-tmp/allimpc1-77.imp" PSS(210, BYTES[PRECP], REG, KK, I, K); // 1848 P=P+1; ->L1 #line 1848 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1848 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 1849 L34: Q=2; Q=3 %IF PREC=3 #line 1849 "regression-compile-tmp/allimpc1-77.imp" U_1061:; #line 1849 "regression-compile-tmp/allimpc1-77.imp" Q = 2; #line 1849 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) != (3))) goto L_021d; #line 1849 "regression-compile-tmp/allimpc1-77.imp" Q = 3; #line 1849 "regression-compile-tmp/allimpc1-77.imp" L_021d:; // 1850 %IF A(P1+2)=1 %THEN %START #line 1850 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P1)) + (2)))) + (2))]) != (1))) goto L_021e; // 1851 P=P1+2; FFLAG=0; SKIP APP; ->L55 %IF FFLAG#0 #line 1851 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P1)) + (2)); #line 1851 "regression-compile-tmp/allimpc1-77.imp" FFLAG = 0; #line 1851 "regression-compile-tmp/allimpc1-77.imp" SKIPAPP(); #line 1851 "regression-compile-tmp/allimpc1-77.imp" if (((FFLAG) == (0))) goto L_021f; #line 1851 "regression-compile-tmp/allimpc1-77.imp" goto U_106e; #line 1851 "regression-compile-tmp/allimpc1-77.imp" L_021f:; // 1852 P=P2+1; %FINISH #line 1852 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P2)) + (1)); #line 1852 "regression-compile-tmp/allimpc1-77.imp" L_021e:; // 1853 CSEXP(0,Q); KK=P #line 1853 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, Q); #line 1853 "regression-compile-tmp/allimpc1-77.imp" KK = P; // 1854 FREG(NEST)=1; REG=NEST #line 1854 "regression-compile-tmp/allimpc1-77.imp" FREG[NEST] = 1; #line 1854 "regression-compile-tmp/allimpc1-77.imp" REG = NEST; // 1855 P=P1+1; CNAME(1,NEST) #line 1855 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P1)) + (1)); #line 1855 "regression-compile-tmp/allimpc1-77.imp" CNAME(1, NEST); // 1856 FREG(REG)=0 #line 1856 "regression-compile-tmp/allimpc1-77.imp" FREG[REG] = 0; // 1857 ->L30 #line 1857 "regression-compile-tmp/allimpc1-77.imp" goto U_1067; // 1858 L35: P=P1+1; Q=COPY RECORD TAG #line 1858 "regression-compile-tmp/allimpc1-77.imp" U_1063:; #line 1858 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P1)) + (1)); #line 1858 "regression-compile-tmp/allimpc1-77.imp" Q = COPYRECORDTAG(); // 1859 P=P2+1 #line 1859 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P2)) + (1)); // 1860 TYPE=1 %UNLESS TYPE=2 %OR TYPE=5 #line 1860 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (2))) goto L_0220; #line 1860 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (5))) goto L_0220; #line 1860 "regression-compile-tmp/allimpc1-77.imp" TYPE = 1; #line 1860 "regression-compile-tmp/allimpc1-77.imp" L_0220:; // 1861 ->L50 %IF TYPE=5 #line 1861 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_0221; #line 1861 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; #line 1861 "regression-compile-tmp/allimpc1-77.imp" L_0221:; // 1862 KK=4; ->L36 %IF TYPE=1; ->L34 #line 1862 "regression-compile-tmp/allimpc1-77.imp" KK = 4; #line 1862 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (1))) goto L_0222; #line 1862 "regression-compile-tmp/allimpc1-77.imp" goto U_1066; #line 1862 "regression-compile-tmp/allimpc1-77.imp" L_0222:; #line 1862 "regression-compile-tmp/allimpc1-77.imp" goto U_1061; // 1863 L50: CSTREXP(4);KK=P #line 1863 "regression-compile-tmp/allimpc1-77.imp" U_1062:; #line 1863 "regression-compile-tmp/allimpc1-77.imp" CSTREXP(4); #line 1863 "regression-compile-tmp/allimpc1-77.imp" KK = P; // 1864 REGISTER(4)=1 #line 1864 "regression-compile-tmp/allimpc1-77.imp" REGISTER[4] = 1; // 1865 P=P1+1; #line 1865 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P1)) + (1)); // 1866 CNAME((ASSOP-1)^^2,4) #line 1866 "regression-compile-tmp/allimpc1-77.imp" CNAME(_imp_IEXP((((int)(ASSOP)) - (1)), 2), 4); // 1867 REGISTER(4)=0 #line 1867 "regression-compile-tmp/allimpc1-77.imp" REGISTER[4] = 0; // 1868 REG=4; ->L30 #line 1868 "regression-compile-tmp/allimpc1-77.imp" REG = 4; #line 1868 "regression-compile-tmp/allimpc1-77.imp" goto U_1067; // 1869 MAPS: %IF PTYPE=10006 %THEN %START #line 1869 "regression-compile-tmp/allimpc1-77.imp" U_1060:; #line 1869 "regression-compile-tmp/allimpc1-77.imp" if (((PTYPE) != (10006))) goto L_0223; // 1870 TYPE=TSNAME(K);PREC=TYPE>>3 #line 1870 "regression-compile-tmp/allimpc1-77.imp" TYPE = TSNAME[K]; #line 1870 "regression-compile-tmp/allimpc1-77.imp" PREC = (unsigned char)((((unsigned char)(TYPE)) >> (3))); // 1871 TYPE=TYPE&7; %FINISH #line 1871 "regression-compile-tmp/allimpc1-77.imp" TYPE = ((TYPE) & (7)); #line 1871 "regression-compile-tmp/allimpc1-77.imp" L_0223:; // 1872 ->L33 %IF TYPE=1; ! NORMAL CHANNELS FOR INT MAPS #line 1872 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (1))) goto L_0224; #line 1872 "regression-compile-tmp/allimpc1-77.imp" goto U_1065; #line 1872 "regression-compile-tmp/allimpc1-77.imp" L_0224:; // 1873 ->L50 %IF TYPE=5; ! STRING MAPS #line 1873 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_0225; #line 1873 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; #line 1873 "regression-compile-tmp/allimpc1-77.imp" L_0225:; // 1874 L55: P=P2+1; PRECP=PREC #line 1874 "regression-compile-tmp/allimpc1-77.imp" U_106e:; #line 1874 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P2)) + (1)); #line 1874 "regression-compile-tmp/allimpc1-77.imp" PRECP = PREC; // 1875 CSEXP(0,2+PREC&1) #line 1875 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, ((2) + ((int)(((PREC) & (1)))))); // 1876 Q=PARKF(NEST,3) #line 1876 "regression-compile-tmp/allimpc1-77.imp" Q = PARKF(NEST, 3); // 1877 KK=P; P=P1+1; CNAME(3,1); ! ADDR TO GR1 #line 1877 "regression-compile-tmp/allimpc1-77.imp" KK = P; #line 1877 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P1)) + (1)); #line 1877 "regression-compile-tmp/allimpc1-77.imp" CNAME(3, 1); // 1878 DUMP(16,0,Q,0,RBASE); ! PICK UP TO FR0 #line 1878 "regression-compile-tmp/allimpc1-77.imp" DUMP(16, 0, Q, 0, RBASE); // 1879 DUMP(9+2*PREC,0,0,0,1); ! STUFF IT OFF #line 1879 "regression-compile-tmp/allimpc1-77.imp" DUMP(((9) + ((int)(((2) * ((int)(PREC)))))), 0, 0, 0, 1); // 1880 PUSH(LWSP(LEVEL),0,Q); ->L30; ! TO QUERY PRINT #line 1880 "regression-compile-tmp/allimpc1-77.imp" PUSH(&LWSP[LEVEL], 0, Q); #line 1880 "regression-compile-tmp/allimpc1-77.imp" goto U_1067; // 1881 REGVAR: FAULT(59) %UNLESS A(P1+2)=2=A(P1+3) #line 1881 "regression-compile-tmp/allimpc1-77.imp" U_105f:; #line 1881 "regression-compile-tmp/allimpc1-77.imp" if ((((A[(((unsigned char)((((int)(P1)) + (2)))) + (2))]) != (2))) || (((2) == (A[(((unsigned char)((((int)(P1)) + (3)))) + (2))])))) goto L_0227; #line 1881 "regression-compile-tmp/allimpc1-77.imp" L_0226:; #line 1881 "regression-compile-tmp/allimpc1-77.imp" FAULT(59); #line 1881 "regression-compile-tmp/allimpc1-77.imp" L_0227:; // 1882 KK=K; CSEXP(KK,1) #line 1882 "regression-compile-tmp/allimpc1-77.imp" KK = K; #line 1882 "regression-compile-tmp/allimpc1-77.imp" CSEXP(KK, 1); // 1883 REGISTER(KK)=-1 #line 1883 "regression-compile-tmp/allimpc1-77.imp" REGISTER[KK] = (-1); // 1884 %IF A(P)=1=QU %THEN CQUERY(REG) #line 1884 "regression-compile-tmp/allimpc1-77.imp" if ((((A[((P) + ((int)(2)))]) != (1))) || (((1) != (QU)))) goto L_0228; #line 1884 "regression-compile-tmp/allimpc1-77.imp" CQUERY(REG); #line 1884 "regression-compile-tmp/allimpc1-77.imp" L_0228:; // 1885 P=P+1; ->L1 #line 1885 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1885 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 1886 SW(4): !ASSOP=->L #line 1886 "regression-compile-tmp/allimpc1-77.imp" sw4_SW_4:; // 1887 P=P1+1; CNAME(2,1) #line 1887 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P1)) + (1)); #line 1887 "regression-compile-tmp/allimpc1-77.imp" CNAME(2, 1); // 1888 P=P2+1 #line 1888 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P2)) + (1)); // 1889 CRES(0,0) #line 1889 "regression-compile-tmp/allimpc1-77.imp" CRES(0, 0); // 1890 P=P+1;->L1 #line 1890 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1890 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 1891 SW(1): !ASSOP='==' #line 1891 "regression-compile-tmp/allimpc1-77.imp" sw4_SW_1:; // 1892 P=P1+1; COPYTAG(A(P)) #line 1892 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P1)) + (1)); #line 1892 "regression-compile-tmp/allimpc1-77.imp" COPYTAG(A[((P) + ((int)(2)))]); // 1893 ->L9 %IF I=-1;Q=1 #line 1893 "regression-compile-tmp/allimpc1-77.imp" if (((I) != ((-1)))) goto L_0229; #line 1893 "regression-compile-tmp/allimpc1-77.imp" goto U_106f; #line 1893 "regression-compile-tmp/allimpc1-77.imp" L_0229:; #line 1893 "regression-compile-tmp/allimpc1-77.imp" Q = 1; // 1894 %IF TYPE=3 %THEN Q=COPY RECORD TAG #line 1894 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_022a; #line 1894 "regression-compile-tmp/allimpc1-77.imp" Q = COPYRECORDTAG(); #line 1894 "regression-compile-tmp/allimpc1-77.imp" L_022a:; // 1895 ->L201 %IF Q=0 #line 1895 "regression-compile-tmp/allimpc1-77.imp" if (((Q) != (0))) goto L_022b; #line 1895 "regression-compile-tmp/allimpc1-77.imp" goto U_1070; #line 1895 "regression-compile-tmp/allimpc1-77.imp" L_022b:; // 1896 FAULT(81) %UNLESS A(P2+1)=4 %AND A(P2+2)=1 #line 1896 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P2)) + (1)))) + (2))]) != (4))) goto L_022c; #line 1896 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P2)) + (2)))) + (2))]) == (1))) goto L_022d; #line 1896 "regression-compile-tmp/allimpc1-77.imp" L_022c:; #line 1896 "regression-compile-tmp/allimpc1-77.imp" FAULT(81); #line 1896 "regression-compile-tmp/allimpc1-77.imp" L_022d:; // 1897 ->L101 %IF ROUT=1; NEST=4 #line 1897 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) != (1))) goto L_022e; #line 1897 "regression-compile-tmp/allimpc1-77.imp" goto U_1071; #line 1897 "regression-compile-tmp/allimpc1-77.imp" L_022e:; #line 1897 "regression-compile-tmp/allimpc1-77.imp" NEST = 4; // 1898 ->S((NAM&2+ARR)<<2!(NAM&1)*2!(2-A(P+1))) #line 1898 "regression-compile-tmp/allimpc1-77.imp" sw5_S_idx = (((((((((unsigned char)(((NAM) & (2)))) + (ARR))) << (2))) | ((((int)(((NAM) & (1)))) * (2))))) | (((2) - ((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))]))))); if ((0 <= sw5_S_idx) && (sw5_S_idx <= 15)) goto *sw5_S[sw5_S_idx]; else { /*_imp_signal(8, 2, sw5_S_idx);*/ fprintf(stderr, "%%SWITCH index S(%d) not in range 0:15 at %s:%d\n", sw5_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 1899 L9: FNAME=A(P); FAULT(16) #line 1899 "regression-compile-tmp/allimpc1-77.imp" U_106f:; #line 1899 "regression-compile-tmp/allimpc1-77.imp" FNAME = A[((P) + ((int)(2)))]; #line 1899 "regression-compile-tmp/allimpc1-77.imp" FAULT(16); // 1900 S(0):S(1):S(3):S(4):S(5): #line 1900 "regression-compile-tmp/allimpc1-77.imp" sw5_S_0:; #line 1900 "regression-compile-tmp/allimpc1-77.imp" sw5_S_1:; #line 1900 "regression-compile-tmp/allimpc1-77.imp" sw5_S_3:; #line 1900 "regression-compile-tmp/allimpc1-77.imp" sw5_S_4:; #line 1900 "regression-compile-tmp/allimpc1-77.imp" sw5_S_5:; // 1901 S(7):S(8):S(10):S(11):S(12): #line 1901 "regression-compile-tmp/allimpc1-77.imp" sw5_S_7:; #line 1901 "regression-compile-tmp/allimpc1-77.imp" sw5_S_8:; #line 1901 "regression-compile-tmp/allimpc1-77.imp" sw5_S_10:; #line 1901 "regression-compile-tmp/allimpc1-77.imp" sw5_S_11:; #line 1901 "regression-compile-tmp/allimpc1-77.imp" sw5_S_12:; // 1902 L10: FAULT(82) #line 1902 "regression-compile-tmp/allimpc1-77.imp" U_1072:; #line 1902 "regression-compile-tmp/allimpc1-77.imp" FAULT(82); // 1903 P=P2+1; SKIPEXP; P=P+1; ->L1 #line 1903 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P2)) + (1)); #line 1903 "regression-compile-tmp/allimpc1-77.imp" SKIPEXP(); #line 1903 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1903 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 1904 S(2): ! NAM=1; S(9):!NAMARR + APP; S(15):! NAMARR +NAM+APP; S(13): #line 1904 "regression-compile-tmp/allimpc1-77.imp" sw5_S_2:; // 1905 Z=3; ZP=6 #line 1905 "regression-compile-tmp/allimpc1-77.imp" Z = 3; #line 1905 "regression-compile-tmp/allimpc1-77.imp" ZP = 6; // 1906 L12: P=P2+3; CNAME(Z,4) #line 1906 "regression-compile-tmp/allimpc1-77.imp" U_1073:; #line 1906 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P2)) + (3)); #line 1906 "regression-compile-tmp/allimpc1-77.imp" CNAME(Z, 4); // 1907 ->L10 %UNLESS A(P)=2; PRECP=PREC #line 1907 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) == (2))) goto L_022f; #line 1907 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; #line 1907 "regression-compile-tmp/allimpc1-77.imp" L_022f:; #line 1907 "regression-compile-tmp/allimpc1-77.imp" PRECP = PREC; // 1908 TYPEP=TYPE #line 1908 "regression-compile-tmp/allimpc1-77.imp" TYPEP = TYPE; // 1909 KK=P+2; P=P1+1; CNAME(ZP,4) #line 1909 "regression-compile-tmp/allimpc1-77.imp" KK = (((int)(P)) + (2)); #line 1909 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P1)) + (1)); #line 1909 "regression-compile-tmp/allimpc1-77.imp" CNAME(ZP, 4); // 1910 L14: #line 1910 "regression-compile-tmp/allimpc1-77.imp" U_1074:; // 1911 P=KK; ->L1 %IF PREC=PRECP %AND TYPE=TYPEP #line 1911 "regression-compile-tmp/allimpc1-77.imp" P = KK; #line 1911 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) != (PRECP))) goto L_0230; #line 1911 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (TYPEP))) goto L_0230; #line 1911 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; #line 1911 "regression-compile-tmp/allimpc1-77.imp" L_0230:; // 1912 FAULT(83); ->L1 #line 1912 "regression-compile-tmp/allimpc1-77.imp" FAULT(83); #line 1912 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 1913 S(6): ! ARRAYNAME-NO APP #line 1913 "regression-compile-tmp/allimpc1-77.imp" sw5_S_6:; // 1914 S(14): !NAMARRAYNAME-NO APP #line 1914 "regression-compile-tmp/allimpc1-77.imp" sw5_S_14:; // 1915 Z=12; ZP=11; ->L12 #line 1915 "regression-compile-tmp/allimpc1-77.imp" Z = 12; #line 1915 "regression-compile-tmp/allimpc1-77.imp" ZP = 11; #line 1915 "regression-compile-tmp/allimpc1-77.imp" goto U_1073; // 1916 L201: #line 1916 "regression-compile-tmp/allimpc1-77.imp" U_1070:; // 1917 ->S(6) %IF ARR=1 %AND NAM=1 %AND A(P+1)=2 #line 1917 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (1))) goto L_0231; #line 1917 "regression-compile-tmp/allimpc1-77.imp" if (((NAM) != (1))) goto L_0231; #line 1917 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) goto L_0231; #line 1917 "regression-compile-tmp/allimpc1-77.imp" sw5_S_idx = 6; goto *sw5_S[sw5_S_idx]; #line 1917 "regression-compile-tmp/allimpc1-77.imp" L_0231:; // 1918 Z=15; ZP=14; ->L12 #line 1918 "regression-compile-tmp/allimpc1-77.imp" Z = 15; #line 1918 "regression-compile-tmp/allimpc1-77.imp" ZP = 14; #line 1918 "regression-compile-tmp/allimpc1-77.imp" goto U_1073; // 1919 L101: P=P1+1; CNAME(13,1); ! ASSIGNMENTS TO RECORDNAMES #line 1919 "regression-compile-tmp/allimpc1-77.imp" U_1071:; #line 1919 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P1)) + (1)); #line 1919 "regression-compile-tmp/allimpc1-77.imp" CNAME(13, 1); // 1920 PRECP=PREC; TYPEP=TYPE; JJJ=K; #line 1920 "regression-compile-tmp/allimpc1-77.imp" PRECP = PREC; #line 1920 "regression-compile-tmp/allimpc1-77.imp" TYPEP = TYPE; #line 1920 "regression-compile-tmp/allimpc1-77.imp" JJJ = K; // 1921 ->L10 %UNLESS J=0 %AND NAM=1 #line 1921 "regression-compile-tmp/allimpc1-77.imp" if (((J) != (0))) goto L_0232; #line 1921 "regression-compile-tmp/allimpc1-77.imp" if (((NAM) == (1))) goto L_0233; #line 1921 "regression-compile-tmp/allimpc1-77.imp" L_0232:; #line 1921 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; #line 1921 "regression-compile-tmp/allimpc1-77.imp" L_0233:; // 1922 REG=FINDPP; ->L31 %IF REG=0 #line 1922 "regression-compile-tmp/allimpc1-77.imp" REG = FINDPP(); #line 1922 "regression-compile-tmp/allimpc1-77.imp" if (((REG) != (0))) goto L_0234; #line 1922 "regression-compile-tmp/allimpc1-77.imp" goto U_1069; #line 1922 "regression-compile-tmp/allimpc1-77.imp" L_0234:; // 1923 DUMP(0,REG,DISP,INDEX,BASE); ! ADDRESS OF LHS TO SAFE PLACE #line 1923 "regression-compile-tmp/allimpc1-77.imp" DUMP(0, REG, DISP, INDEX, BASE); // 1924 P=P2+3; CNAME(13,1); ! RHSIDE #line 1924 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P2)) + (3)); #line 1924 "regression-compile-tmp/allimpc1-77.imp" CNAME(13, 1); // 1925 ->L102 %IF BASE=GLA %AND J=0; ! COMMON OR GARDEN ROUTINE #line 1925 "regression-compile-tmp/allimpc1-77.imp" if (((BASE) != (GLA))) goto L_0235; #line 1925 "regression-compile-tmp/allimpc1-77.imp" if (((J) != (0))) goto L_0235; #line 1925 "regression-compile-tmp/allimpc1-77.imp" goto U_1075; #line 1925 "regression-compile-tmp/allimpc1-77.imp" L_0235:; // 1926 PSS(X'D2',16,REG,0,BASE,DISP) #line 1926 "regression-compile-tmp/allimpc1-77.imp" PSS(210, 16, REG, 0, BASE, DISP); // 1927 ->L103 %IF J=14; ! EXTERNAL ROUTINE #line 1927 "regression-compile-tmp/allimpc1-77.imp" if (((J) != (14))) goto L_0236; #line 1927 "regression-compile-tmp/allimpc1-77.imp" goto U_1076; #line 1927 "regression-compile-tmp/allimpc1-77.imp" L_0236:; // 1928 L110: REGISTER(REG)=0; KK=P+2 #line 1928 "regression-compile-tmp/allimpc1-77.imp" U_1077:; #line 1928 "regression-compile-tmp/allimpc1-77.imp" REGISTER[REG] = 0; #line 1928 "regression-compile-tmp/allimpc1-77.imp" KK = (((int)(P)) + (2)); // 1929 FROM2(JJJ,Z); FROM2(K,ZP) #line 1929 "regression-compile-tmp/allimpc1-77.imp" FROM2(JJJ, &Z); #line 1929 "regression-compile-tmp/allimpc1-77.imp" FROM2(K, &ZP); // 1930 FAULT(83) %UNLESS Z=ZP #line 1930 "regression-compile-tmp/allimpc1-77.imp" if (((Z) == (ZP))) goto L_0237; #line 1930 "regression-compile-tmp/allimpc1-77.imp" FAULT(83); #line 1930 "regression-compile-tmp/allimpc1-77.imp" L_0237:; // 1931 ->L14 #line 1931 "regression-compile-tmp/allimpc1-77.imp" goto U_1074; // 1932 L102: DUMP(2,2,DISP,INDEX,BASE); ! PICK UP RT ADDR #line 1932 "regression-compile-tmp/allimpc1-77.imp" U_1075:; #line 1932 "regression-compile-tmp/allimpc1-77.imp" DUMP(2, 2, DISP, INDEX, BASE); // 1933 PRX(X'5A',2,0,GLA,28); ! RELOCATE #line 1933 "regression-compile-tmp/allimpc1-77.imp" PRX(90, 2, 0, GLA, 28); // 1934 PCONST(X'180C181D'); ! LR 0,12 LR1,13 PERM AND GLA #line 1934 "regression-compile-tmp/allimpc1-77.imp" PCONST(403445789); // 1935 PRR(X'18',3,REG); ! CUNNING PTR TO ENVRMNT #line 1935 "regression-compile-tmp/allimpc1-77.imp" PRR(24, 3, REG); // 1936 PRX(X'90',0,9,REG,0); ->L110; ! STUFF OFF + ENVRMNT #line 1936 "regression-compile-tmp/allimpc1-77.imp" PRX(144, 0, 9, REG, 0); #line 1936 "regression-compile-tmp/allimpc1-77.imp" goto U_1077; // 1937 L103: PRX(X'50',9,0,REG,12); ->L110; ! EXTRNS DUMMY ENVRMNT #line 1937 "regression-compile-tmp/allimpc1-77.imp" U_1076:; #line 1937 "regression-compile-tmp/allimpc1-77.imp" PRX(80, 9, 0, REG, 12); #line 1937 "regression-compile-tmp/allimpc1-77.imp" goto U_1077; // 1938 L1: %END #line 1938 "regression-compile-tmp/allimpc1-77.imp" U_1068:; #line 1938 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; sw5_S_9:; sw5_S_13:; sw5_S_15:; /*_imp_signal(6,3,sw5_S_idx,"SWITCH LABEL NOT SET - sw5_S");*/ fprintf(stderr, "%%SWITCH LABEL NOT SET - sw5_S(%d): at line %s:%d", sw5_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // End of block ASSIGN at level 3 // 1939 %ROUTINE CUI(%BYTEINTEGER CODE) #line 1939 "regression-compile-tmp/allimpc1-77.imp" void CUI( unsigned char CODE ) #line 1939 "regression-compile-tmp/allimpc1-77.imp" { // 1940 !%SHORTROUTINE // 1941 %INTEGER KK,JJ,QQ #line 1941 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 1941 "regression-compile-tmp/allimpc1-77.imp" int JJ; #line 1941 "regression-compile-tmp/allimpc1-77.imp" int QQ; // 1942 %SWITCH SW(1:11) #line 1942 "regression-compile-tmp/allimpc1-77.imp" static int sw6_SW_idx; static const void * /*SWITCH*/ sw6_SW[11] = { &&sw6_SW_1, &&sw6_SW_2, &&sw6_SW_3, &&sw6_SW_4, &&sw6_SW_5, &&sw6_SW_6, &&sw6_SW_7, &&sw6_SW_8, &&sw6_SW_9, &&sw6_SW_10, &&sw6_SW_11, }; // 1943 ->SW(A(P)) #line 1943 "regression-compile-tmp/allimpc1-77.imp" sw6_SW_idx = A[((P) + ((int)(2)))]; if ((1 <= sw6_SW_idx) && (sw6_SW_idx <= 11)) goto *(sw6_SW-1)[sw6_SW_idx]; /* Bounds=1:11 */ else { /*_imp_signal(8, 2, sw6_SW_idx);*/ fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:11 at %s:%d\n", sw6_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 1944 SW(1): P=P+1; MARKER1=P+A(P); !(NAME)(APP)(RESTOFUI) #line 1944 "regression-compile-tmp/allimpc1-77.imp" sw6_SW_1:; #line 1944 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1944 "regression-compile-tmp/allimpc1-77.imp" MARKER1 = ((P) + ((int)(A[((P) + ((int)(2)))]))); // 1945 ->L3 %IF A(MARKER 1)=1 #line 1945 "regression-compile-tmp/allimpc1-77.imp" if (((A[((MARKER1) + ((int)(2)))]) != (1))) goto L_0238; #line 1945 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; #line 1945 "regression-compile-tmp/allimpc1-77.imp" L_0238:; // 1946 P=P+1; CNAME(0,0); P=P+1; ->L1 #line 1946 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1946 "regression-compile-tmp/allimpc1-77.imp" CNAME(0, 0); #line 1946 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1946 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; // 1947 L3: ASSIGN(P,MARKER1+1); ->L1 #line 1947 "regression-compile-tmp/allimpc1-77.imp" U_1078:; #line 1947 "regression-compile-tmp/allimpc1-77.imp" ASSIGN(P, (((int)(MARKER1)) + (1))); #line 1947 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; // 1948 SW(2): !->L #line 1948 "regression-compile-tmp/allimpc1-77.imp" sw6_SW_2:; // 1949 NMDECS(LEVEL)=1 #line 1949 "regression-compile-tmp/allimpc1-77.imp" NMDECS[LEVEL] = 1; // 1950 COPY TAG(A(P+1)) #line 1950 "regression-compile-tmp/allimpc1-77.imp" COPYTAG(A[(((unsigned char)((((int)(P)) + (1)))) + (2))]); // 1951 PTYPEP=PTYPE #line 1951 "regression-compile-tmp/allimpc1-77.imp" PTYPEP = PTYPE; // 1952 KK=K; P=P+2 #line 1952 "regression-compile-tmp/allimpc1-77.imp" KK = K; #line 1952 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); // 1953 ->L200 %IF OLDI=LEVEL %AND TYPE=6 #line 1953 "regression-compile-tmp/allimpc1-77.imp" if (((OLDI) != (LEVEL))) goto L_0239; #line 1953 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (6))) goto L_0239; #line 1953 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; #line 1953 "regression-compile-tmp/allimpc1-77.imp" L_0239:; // 1954 FAULT(4);SKIP EXP; ->L1 #line 1954 "regression-compile-tmp/allimpc1-77.imp" FAULT(4); #line 1954 "regression-compile-tmp/allimpc1-77.imp" SKIPEXP(); #line 1954 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; // 1955 L200: CSEXP(1,1);PTYPE=PTYPEP; UNPACK #line 1955 "regression-compile-tmp/allimpc1-77.imp" U_1059:; #line 1955 "regression-compile-tmp/allimpc1-77.imp" CSEXP(1, 1); #line 1955 "regression-compile-tmp/allimpc1-77.imp" PTYPE = PTYPEP; #line 1955 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 1956 FROM LIST(KK,QQ,JJ) #line 1956 "regression-compile-tmp/allimpc1-77.imp" FROMLIST(KK, &QQ, &JJ); // 1957 QQ=QQ-CODEBASE(LEVEL) #line 1957 "regression-compile-tmp/allimpc1-77.imp" QQ = (((int)(QQ)) - (CODEBASE[LEVEL])); // 1958 ->L205 %IF CHECKSP=0 #line 1958 "regression-compile-tmp/allimpc1-77.imp" if (((CHECKSP) != (0))) goto L_023a; #line 1958 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 1958 "regression-compile-tmp/allimpc1-77.imp" L_023a:; // 1959 L201: LOADAD( 2,10,0,QQ);PPJ(7); ->L1 #line 1959 "regression-compile-tmp/allimpc1-77.imp" U_105b:; #line 1959 "regression-compile-tmp/allimpc1-77.imp" LOADAD(2, 10, 0, QQ); #line 1959 "regression-compile-tmp/allimpc1-77.imp" PPJ(7); #line 1959 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; // 1960 L205: JJ=8+QQ-JJ*BYTES(PREC); !@ SW(0) #line 1960 "regression-compile-tmp/allimpc1-77.imp" U_105a:; #line 1960 "regression-compile-tmp/allimpc1-77.imp" JJ = ((((((int)(8)) + (QQ)))) - (((JJ) * ((int)(BYTES[PREC]))))); // 1961 ->L201 %UNLESS 0<=JJ<=4095 #line 1961 "regression-compile-tmp/allimpc1-77.imp" if ((((0) > (JJ))) || (((JJ) <= (4095)))) goto L_023c; #line 1961 "regression-compile-tmp/allimpc1-77.imp" L_023b:; #line 1961 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; #line 1961 "regression-compile-tmp/allimpc1-77.imp" L_023c:; // 1962 ->L210 %IF PREC=0 #line 1962 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) != (0))) goto L_023d; #line 1962 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; #line 1962 "regression-compile-tmp/allimpc1-77.imp" L_023d:; // 1963 PLANT(X'1A11');KK= X'48'; !AR_1,1 #line 1963 "regression-compile-tmp/allimpc1-77.imp" PLANT(6673); #line 1963 "regression-compile-tmp/allimpc1-77.imp" KK = 72; // 1964 L207: PRX(KK,1,1,10,JJ); !L(H)_1,JJ(1,10) #line 1964 "regression-compile-tmp/allimpc1-77.imp" U_105d:; #line 1964 "regression-compile-tmp/allimpc1-77.imp" PRX(KK, 1, 1, 10, JJ); // 1965 PCONST(X'47F1A000');->L1; !BC_15,0(1,10) #line 1965 "regression-compile-tmp/allimpc1-77.imp" PCONST(1207017472); #line 1965 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; // 1966 L210: PCONST(X'89100002');KK= X'58';->L207;! SLL_1,2 #line 1966 "regression-compile-tmp/allimpc1-77.imp" U_105c:; #line 1966 "regression-compile-tmp/allimpc1-77.imp" PCONST((-1995440126)); #line 1966 "regression-compile-tmp/allimpc1-77.imp" KK = 88; #line 1966 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 1967 SW(3): ! '->L'(LABEL) #line 1967 "regression-compile-tmp/allimpc1-77.imp" sw6_SW_3:; // 1968 NMDECS(LEVEL)=1 #line 1968 "regression-compile-tmp/allimpc1-77.imp" NMDECS[LEVEL] = 1; // 1969 K=A(P+2)+(A(P+1)-1)<<14 #line 1969 "regression-compile-tmp/allimpc1-77.imp" K = ((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) + ((short)((((((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))])) - (1))) << (14))))); // 1970 PJ(MASK,K); P=P+3; ->L1 #line 1970 "regression-compile-tmp/allimpc1-77.imp" PJ(MASK, K); #line 1970 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); #line 1970 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; // 1971 SW(4): !PRINT TEXT #line 1971 "regression-compile-tmp/allimpc1-77.imp" sw6_SW_4:; // 1972 K=(A(P+1)+2)//2; P=P+1; PPJ(30) #line 1972 "regression-compile-tmp/allimpc1-77.imp" K = (long)((long)(((((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))])) + (2)))) / (long)((int)(2))); #line 1972 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1972 "regression-compile-tmp/allimpc1-77.imp" PPJ(30); // 1973 %CYCLE KK=1,1,K; PLANT(A(P)<<8!A(P+1)) #line 1973 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = K; KK = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 1, 1, K"); KK -= _increment; _control -= _increment; L_023e:; if (KK == _final) goto L_023f; KK += _increment; _control += _increment; if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */ } #line 1973 "regression-compile-tmp/allimpc1-77.imp" PLANT(((((A[((P) + ((int)(2)))]) << (8))) | (A[(((unsigned char)((((int)(P)) + (1)))) + (2))]))); // 1974 P=P+2; %REPEAT; ->L1 #line 1974 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 1974 "regression-compile-tmp/allimpc1-77.imp" goto L_023e; #line 1974 "regression-compile-tmp/allimpc1-77.imp" L_023f:; #line 1974 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; // 1975 SW(5): !RETURN #line 1975 "regression-compile-tmp/allimpc1-77.imp" sw6_SW_5:; // 1976 FAULT(30) %UNLESS FLAG(LEVEL)=10000 %OR PERM=1 #line 1976 "regression-compile-tmp/allimpc1-77.imp" if (((FLAG[LEVEL]) == (10000))) goto L_0241; #line 1976 "regression-compile-tmp/allimpc1-77.imp" if (((PERM) == (1))) goto L_0241; #line 1976 "regression-compile-tmp/allimpc1-77.imp" FAULT(30); #line 1976 "regression-compile-tmp/allimpc1-77.imp" L_0241:; // 1977 P=P+1 #line 1977 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 1978 L6: PSS(X'D2',4,GLA,20,RBASE,0) %IF DIAGS1=1 #line 1978 "regression-compile-tmp/allimpc1-77.imp" U_105e:; #line 1978 "regression-compile-tmp/allimpc1-77.imp" if (((DIAGS1) != (1))) goto L_0242; #line 1978 "regression-compile-tmp/allimpc1-77.imp" PSS(210, 4, GLA, 20, RBASE, 0); #line 1978 "regression-compile-tmp/allimpc1-77.imp" L_0242:; // 1979 %COMMENT CHECK FOR REGISTER VARS & UPDATE CORE COPY // 1980 %CYCLE KK=5,1,8 #line 1980 "regression-compile-tmp/allimpc1-77.imp" KK = 4; if ((((8)-(5)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 5, 1, 8"); L_0243:; if (KK == 8) goto L_0244; KK += 1; // 1981 %IF 0#UVARREG(KK)= (LEVEL)))) goto L_0246; #line 1981 "regression-compile-tmp/allimpc1-77.imp" PRX(80, KK, 0, RBASE, ((KK) << (2))); #line 1981 "regression-compile-tmp/allimpc1-77.imp" L_0246:; // 1982 %REPEAT #line 1982 "regression-compile-tmp/allimpc1-77.imp" goto L_0243; #line 1982 "regression-compile-tmp/allimpc1-77.imp" L_0244:; // 1983 PRX(X'98',4,15,RBASE,16); ! LM OLD REGISTERS #line 1983 "regression-compile-tmp/allimpc1-77.imp" PRX(152, 4, 15, RBASE, 16); // 1984 R13=0; PRR(7,15,LINK); ->L1; ! BR LINK #line 1984 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; #line 1984 "regression-compile-tmp/allimpc1-77.imp" PRR(7, 15, LINK); #line 1984 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; // 1985 SW(6): ! %RESULT =EXPR #line 1985 "regression-compile-tmp/allimpc1-77.imp" sw6_SW_6:; // 1986 P=P+1; KK=FLAG(LEVEL) #line 1986 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1986 "regression-compile-tmp/allimpc1-77.imp" KK = FLAG[LEVEL]; // 1987 FAULT(31) %UNLESS KK>10000 #line 1987 "regression-compile-tmp/allimpc1-77.imp" if (((KK) > (10000))) goto L_0247; #line 1987 "regression-compile-tmp/allimpc1-77.imp" FAULT(31); #line 1987 "regression-compile-tmp/allimpc1-77.imp" L_0247:; // 1988 ->L61 %IF KK=10002 #line 1988 "regression-compile-tmp/allimpc1-77.imp" if (((KK) != (10002))) goto L_0248; #line 1988 "regression-compile-tmp/allimpc1-77.imp" goto U_105f; #line 1988 "regression-compile-tmp/allimpc1-77.imp" L_0248:; // 1989 ->L62 %IF KK=10032 #line 1989 "regression-compile-tmp/allimpc1-77.imp" if (((KK) != (10032))) goto L_0249; #line 1989 "regression-compile-tmp/allimpc1-77.imp" goto U_1060; #line 1989 "regression-compile-tmp/allimpc1-77.imp" L_0249:; // 1990 ->L63 %IF KK=10005 #line 1990 "regression-compile-tmp/allimpc1-77.imp" if (((KK) != (10005))) goto L_024a; #line 1990 "regression-compile-tmp/allimpc1-77.imp" goto U_1061; #line 1990 "regression-compile-tmp/allimpc1-77.imp" L_024a:; // 1991 CSEXP(1,1); ->L6 #line 1991 "regression-compile-tmp/allimpc1-77.imp" CSEXP(1, 1); #line 1991 "regression-compile-tmp/allimpc1-77.imp" goto U_105e; // 1992 L61: CSEXP(2,2); ->L6 #line 1992 "regression-compile-tmp/allimpc1-77.imp" U_105f:; #line 1992 "regression-compile-tmp/allimpc1-77.imp" CSEXP(2, 2); #line 1992 "regression-compile-tmp/allimpc1-77.imp" goto U_105e; // 1993 L62: CSEXP(2,3); ->L6 #line 1993 "regression-compile-tmp/allimpc1-77.imp" U_1060:; #line 1993 "regression-compile-tmp/allimpc1-77.imp" CSEXP(2, 3); #line 1993 "regression-compile-tmp/allimpc1-77.imp" goto U_105e; // 1994 L63: CSTREXP(1); ->L6 #line 1994 "regression-compile-tmp/allimpc1-77.imp" U_1061:; #line 1994 "regression-compile-tmp/allimpc1-77.imp" CSTREXP(1); #line 1994 "regression-compile-tmp/allimpc1-77.imp" goto U_105e; // 1995 SW(7):SW(8): ! STOP & MONITORSTOP #line 1995 "regression-compile-tmp/allimpc1-77.imp" sw6_SW_7:; #line 1995 "regression-compile-tmp/allimpc1-77.imp" sw6_SW_8:; // 1996 PPJ(6*(A(P)-6)); P=P+1; ->L1 #line 1996 "regression-compile-tmp/allimpc1-77.imp" PPJ(((6) * ((int)((((int)(A[((P) + ((int)(2)))])) - (6)))))); #line 1996 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 1996 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; // 1997 SW(9): SFLABEL=SFLABEL-1 #line 1997 "regression-compile-tmp/allimpc1-77.imp" sw6_SW_9:; #line 1997 "regression-compile-tmp/allimpc1-77.imp" SFLABEL = (((int)(SFLABEL)) - (1)); // 1998 PUSH(SBR(LEVEL),CODE,SFLABEL) #line 1998 "regression-compile-tmp/allimpc1-77.imp" PUSH(&SBR[LEVEL], CODE, SFLABEL); // 1999 PUSH(CYCLE(LEVEL),0,0) #line 1999 "regression-compile-tmp/allimpc1-77.imp" PUSH(&CYCLE[LEVEL], 0, 0); // 2000 ->L1 #line 2000 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; // 2001 SW(11): ! %QUERIES (ONOFF) #line 2001 "regression-compile-tmp/allimpc1-77.imp" sw6_SW_11:; // 2002 KK=2-A(P+1); P=P+2 #line 2002 "regression-compile-tmp/allimpc1-77.imp" KK = ((2) - ((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))]))); #line 2002 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); // 2003 PSI(X'92',KK,GLA,1); ->L1 #line 2003 "regression-compile-tmp/allimpc1-77.imp" PSI(146, KK, GLA, 1); #line 2003 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; // 2004 SW(10): PPJ(31); P=P+1; ; ! %MONITOR #line 2004 "regression-compile-tmp/allimpc1-77.imp" sw6_SW_10:; #line 2004 "regression-compile-tmp/allimpc1-77.imp" PPJ(31); #line 2004 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 2005 L1: %END #line 2005 "regression-compile-tmp/allimpc1-77.imp" U_1058:; #line 2005 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CUI at level 3 // 2006 %ROUTINE CRFORMAT #line 2006 "regression-compile-tmp/allimpc1-77.imp" void CRFORMAT( void ) #line 2006 "regression-compile-tmp/allimpc1-77.imp" { // 2007 !%SHORTROUTINE // 2008 %INTEGER LENGTHP,QQQ,REP,CODE #line 2008 "regression-compile-tmp/allimpc1-77.imp" int LENGTHP; #line 2008 "regression-compile-tmp/allimpc1-77.imp" int QQQ; #line 2008 "regression-compile-tmp/allimpc1-77.imp" int REP; #line 2008 "regression-compile-tmp/allimpc1-77.imp" int CODE; // 2009 K=A(P+1);TEST NST #line 2009 "regression-compile-tmp/allimpc1-77.imp" K = A[(((unsigned char)((((int)(P)) + (1)))) + (2))]; #line 2009 "regression-compile-tmp/allimpc1-77.imp" TESTNST(); // 2010 J=0;PTYPE=4;OPHEAD=NEWCELL #line 2010 "regression-compile-tmp/allimpc1-77.imp" J = 0; #line 2010 "regression-compile-tmp/allimpc1-77.imp" PTYPE = 4; #line 2010 "regression-compile-tmp/allimpc1-77.imp" OPHEAD = NEWCELL(); // 2011 JJJ=OPHEAD;STORE TAG(K,JJJ) #line 2011 "regression-compile-tmp/allimpc1-77.imp" JJJ = OPHEAD; #line 2011 "regression-compile-tmp/allimpc1-77.imp" STORETAG(K, JJJ); // 2012 P=3;Q=0;INC=4;INCP=0 #line 2012 "regression-compile-tmp/allimpc1-77.imp" P = 3; #line 2012 "regression-compile-tmp/allimpc1-77.imp" Q = 0; #line 2012 "regression-compile-tmp/allimpc1-77.imp" INC = 4; #line 2012 "regression-compile-tmp/allimpc1-77.imp" INCP = 0; // 2013 ! INC COUNTS ALONG RECORD FORMAT DOPEVECTOR..INCP BYTES FROM RECORDHD // 2014 ->L101 %IF A(P)=2; ! NO FPP #line 2014 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_024b; #line 2014 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; #line 2014 "regression-compile-tmp/allimpc1-77.imp" L_024b:; // 2015 L1: P=P+1; COMPILE FORMAL PARAMETER #line 2015 "regression-compile-tmp/allimpc1-77.imp" U_1078:; #line 2015 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2015 "regression-compile-tmp/allimpc1-77.imp" COMPILEFORMALPARAMETER(); // 2016 LENGTHP=ACC-1; LENGTHP=3 %IF ACC>8 #line 2016 "regression-compile-tmp/allimpc1-77.imp" LENGTHP = (((int)(ACC)) - (1)); #line 2016 "regression-compile-tmp/allimpc1-77.imp" if (((ACC) <= (8))) goto L_024c; #line 2016 "regression-compile-tmp/allimpc1-77.imp" LENGTHP = 3; #line 2016 "regression-compile-tmp/allimpc1-77.imp" L_024c:; // 2017 L2: ->L3 %IF INCP&LENGTHP=0; INCP=INCP+1; ->L2 #line 2017 "regression-compile-tmp/allimpc1-77.imp" U_1058:; #line 2017 "regression-compile-tmp/allimpc1-77.imp" if (((((INCP) & (LENGTHP))) != (0))) goto L_024d; #line 2017 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; #line 2017 "regression-compile-tmp/allimpc1-77.imp" L_024d:; #line 2017 "regression-compile-tmp/allimpc1-77.imp" INCP = (((int)(INCP)) + (1)); #line 2017 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; // 2018 L3: %CYCLE REP=1,1,A(P); P=P+1 #line 2018 "regression-compile-tmp/allimpc1-77.imp" U_1059:; #line 2018 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = A[((P) + ((int)(2)))]; REP = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle REP = 1, 1, A[((P) + ((int)(2)))]"); REP -= _increment; _control -= _increment; L_024e:; if (REP == _final) goto L_024f; REP += _increment; _control += _increment; if (REP != _control) _imp_signal(4,2,0,"Corrupt control variable REP"); /* FOR loop control variable corrupted */ } #line 2018 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 2019 CODE=255; LENGTHP=ACC #line 2019 "regression-compile-tmp/allimpc1-77.imp" CODE = 255; #line 2019 "regression-compile-tmp/allimpc1-77.imp" LENGTHP = ACC; // 2020 ->L11 %IF ROUT=1 #line 2020 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) != (1))) goto L_0251; #line 2020 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 2020 "regression-compile-tmp/allimpc1-77.imp" L_0251:; // 2021 ->L12 %IF TYPE=3;QQQ=INCP #line 2021 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_0252; #line 2021 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; #line 2021 "regression-compile-tmp/allimpc1-77.imp" L_0252:; #line 2021 "regression-compile-tmp/allimpc1-77.imp" QQQ = INCP; // 2022 ->L4 %UNLESS TYPE=5 #line 2022 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (5))) goto L_0253; #line 2022 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; #line 2022 "regression-compile-tmp/allimpc1-77.imp" L_0253:; // 2023 CODE=250; LENGTHP=ACC-1; QQQ=INC #line 2023 "regression-compile-tmp/allimpc1-77.imp" CODE = 250; #line 2023 "regression-compile-tmp/allimpc1-77.imp" LENGTHP = (((int)(ACC)) - (1)); #line 2023 "regression-compile-tmp/allimpc1-77.imp" QQQ = INC; // 2024 L4: INSERT AFTER(OPHEAD,PTYPE<<4!A(P)<<20,QQQ) #line 2024 "regression-compile-tmp/allimpc1-77.imp" U_105c:; #line 2024 "regression-compile-tmp/allimpc1-77.imp" INSERTAFTER(&OPHEAD, ((((PTYPE) << (4))) | (((A[((P) + ((int)(2)))]) << (20)))), QQQ); // 2025 PSI(X'92',CODE,RBASE,N+INC) #line 2025 "regression-compile-tmp/allimpc1-77.imp" PSI(146, CODE, RBASE, (((int)(N)) + (INC))); // 2026 PSI(X'92',LENGTHP,RBASE,N+INC+1) #line 2026 "regression-compile-tmp/allimpc1-77.imp" PSI(146, LENGTHP, RBASE, (((int)((((int)(N)) + (INC)))) + (1))); // 2027 Q=Q+1 #line 2027 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); // 2028 INC=INC+4; INCP=INCP+ACC #line 2028 "regression-compile-tmp/allimpc1-77.imp" INC = (((int)(INC)) + (4)); #line 2028 "regression-compile-tmp/allimpc1-77.imp" INCP = (((int)(INCP)) + (ACC)); // 2029 ->L15 #line 2029 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 2030 L11: QQQ=NEWCELL; REPLACE BOTH(QQQ,INCP,100) #line 2030 "regression-compile-tmp/allimpc1-77.imp" U_105a:; #line 2030 "regression-compile-tmp/allimpc1-77.imp" QQQ = NEWCELL(); #line 2030 "regression-compile-tmp/allimpc1-77.imp" REPLACEBOTH(QQQ, INCP, 100); // 2031 FAULT(41) %UNLESS PTYPE=11000;! FUNCTIONS TOO DICEY AT PRESENT #line 2031 "regression-compile-tmp/allimpc1-77.imp" if (((PTYPE) == (11000))) goto L_0254; #line 2031 "regression-compile-tmp/allimpc1-77.imp" FAULT(41); #line 2031 "regression-compile-tmp/allimpc1-77.imp" L_0254:; // 2032 ACC=40; LENGTHP=ACC; ->L4; ! RT NAME MUST CARRY ENVRMNT #line 2032 "regression-compile-tmp/allimpc1-77.imp" ACC = 40; #line 2032 "regression-compile-tmp/allimpc1-77.imp" LENGTHP = ACC; #line 2032 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; // 2033 L12: QQQ=NEWCELL; REPLACE BOTH(QQQ,0,INCP); ->L4 #line 2033 "regression-compile-tmp/allimpc1-77.imp" U_105b:; #line 2033 "regression-compile-tmp/allimpc1-77.imp" QQQ = NEWCELL(); #line 2033 "regression-compile-tmp/allimpc1-77.imp" REPLACEBOTH(QQQ, 0, INCP); #line 2033 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; // 2034 L15: %REPEAT #line 2034 "regression-compile-tmp/allimpc1-77.imp" U_105d:; #line 2034 "regression-compile-tmp/allimpc1-77.imp" goto L_024e; #line 2034 "regression-compile-tmp/allimpc1-77.imp" L_024f:; // 2035 P=P+1; ! P ON REST OF FP LIST #line 2035 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 2036 ->L101 %IF A(P)=2; P=P+1; ->L1 #line 2036 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0255; #line 2036 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; #line 2036 "regression-compile-tmp/allimpc1-77.imp" L_0255:; #line 2036 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2036 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; // 2037 L101: P=P+1 #line 2037 "regression-compile-tmp/allimpc1-77.imp" U_1079:; #line 2037 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 2038 L102: ->L201 %IF A(P)=2; ! NO ARRAYS #line 2038 "regression-compile-tmp/allimpc1-77.imp" U_105e:; #line 2038 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0256; #line 2038 "regression-compile-tmp/allimpc1-77.imp" goto U_105f; #line 2038 "regression-compile-tmp/allimpc1-77.imp" L_0256:; // 2039 P=P+2; CLT #line 2039 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 2039 "regression-compile-tmp/allimpc1-77.imp" CLT(); // 2040 NAM= 2*(2-A(P)) #line 2040 "regression-compile-tmp/allimpc1-77.imp" NAM = ((2) * ((int)(((2) - ((int)(A[((P) + ((int)(2)))])))))); // 2041 ACC=4 %IF NAM#0;P=P+1 #line 2041 "regression-compile-tmp/allimpc1-77.imp" if (((NAM) == (0))) goto L_0257; #line 2041 "regression-compile-tmp/allimpc1-77.imp" ACC = 4; #line 2041 "regression-compile-tmp/allimpc1-77.imp" L_0257:; #line 2041 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 2042 ROUT=0; ARR=1; PACK(PTYPE) #line 2042 "regression-compile-tmp/allimpc1-77.imp" ROUT = 0; #line 2042 "regression-compile-tmp/allimpc1-77.imp" ARR = 1; #line 2042 "regression-compile-tmp/allimpc1-77.imp" PACK(&PTYPE); // 2043 L103: #line 2043 "regression-compile-tmp/allimpc1-77.imp" U_1060:; // 2044 PSI(X'92',0,RBASE,N+INC); ! FLAG FOR ARRAYS #line 2044 "regression-compile-tmp/allimpc1-77.imp" PSI(146, 0, RBASE, (((int)(N)) + (INC))); // 2045 DUMP(1,WSPR,N+INC+8,0,RBASE); ! PTR TO DOPE VECTOR #line 2045 "regression-compile-tmp/allimpc1-77.imp" DUMP(1, WSPR, (((int)((((int)(N)) + (INC)))) + (8)), 0, RBASE); // 2046 QQ=P; CADCLN(1) #line 2046 "regression-compile-tmp/allimpc1-77.imp" QQ = P; #line 2046 "regression-compile-tmp/allimpc1-77.imp" CADCLN(1); // 2047 JJ=P; P=QQ+2 #line 2047 "regression-compile-tmp/allimpc1-77.imp" JJ = P; #line 2047 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(QQ)) + (2)); // 2048 REP=P+A(P-1); ! AFTER LAST NAME #line 2048 "regression-compile-tmp/allimpc1-77.imp" REP = ((P) + ((int)(A[(((unsigned char)((((int)(P)) - (1)))) + (2))]))); // 2049 L105: INSERT AFTER(OPHEAD,J!PTYPE<<4!A(P)<<20,INC) #line 2049 "regression-compile-tmp/allimpc1-77.imp" U_1061:; #line 2049 "regression-compile-tmp/allimpc1-77.imp" INSERTAFTER(&OPHEAD, ((((J) | (((PTYPE) << (4))))) | (((A[((P) + ((int)(2)))]) << (20)))), INC); // 2050 INC=INC+16; Q=Q+1 #line 2050 "regression-compile-tmp/allimpc1-77.imp" INC = (((int)(INC)) + (16)); #line 2050 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); // 2051 P=P+1; ->L106 %IF P=REP #line 2051 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2051 "regression-compile-tmp/allimpc1-77.imp" if (((P) != (REP))) goto L_0258; #line 2051 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; #line 2051 "regression-compile-tmp/allimpc1-77.imp" L_0258:; // 2052 PSS(X'D2',16,RBASE,N+INC,RBASE,N+INC-16); ->L105 #line 2052 "regression-compile-tmp/allimpc1-77.imp" PSS(210, 16, RBASE, (((int)(N)) + (INC)), RBASE, (((int)((((int)(N)) + (INC)))) - (16))); #line 2052 "regression-compile-tmp/allimpc1-77.imp" goto U_1061; // 2053 L106: P=JJ+2 #line 2053 "regression-compile-tmp/allimpc1-77.imp" U_1062:; #line 2053 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(JJ)) + (2)); // 2054 ->L103 %IF A(P-1)=1; ->L102; ! P ON RESTOFARRAYLIST #line 2054 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (1))) goto L_0259; #line 2054 "regression-compile-tmp/allimpc1-77.imp" goto U_1060; #line 2054 "regression-compile-tmp/allimpc1-77.imp" L_0259:; #line 2054 "regression-compile-tmp/allimpc1-77.imp" goto U_105e; // 2055 L201: REPLACE BOTH(JJJ,N,Q) #line 2055 "regression-compile-tmp/allimpc1-77.imp" U_105f:; #line 2055 "regression-compile-tmp/allimpc1-77.imp" REPLACEBOTH(JJJ, N, Q); // 2056 PRX(X'41',1,0,0,Q); ! LA 1,ITEMS #line 2056 "regression-compile-tmp/allimpc1-77.imp" PRX(65, 1, 0, 0, Q); // 2057 DUMP(5,1,N,0,RBASE); !STH #line 2057 "regression-compile-tmp/allimpc1-77.imp" DUMP(5, 1, N, 0, RBASE); // 2058 DUMP(0,1,N,0,RBASE) #line 2058 "regression-compile-tmp/allimpc1-77.imp" DUMP(0, 1, N, 0, RBASE); // 2059 PPJ(25); N=N+INC #line 2059 "regression-compile-tmp/allimpc1-77.imp" PPJ(25); #line 2059 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (INC)); // 2060 %END #line 2060 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CRFORMAT at level 3 // 2061 %ROUTINE CADCLN(%BYTEINTEGER MODE) #line 2061 "regression-compile-tmp/allimpc1-77.imp" void CADCLN( unsigned char MODE ) #line 2061 "regression-compile-tmp/allimpc1-77.imp" { // 2062 !%SHORTROUTINE // 2063 ! MODE=0 NORMAL DECN, =1 IN RECORD FORMAY, =2 RECORD ARRAY // 2064 ! P POINTS TO NAMELIST -1 // 2065 %INTEGER Q,QQ,KK,S,JJ,JJJ #line 2065 "regression-compile-tmp/allimpc1-77.imp" int Q; #line 2065 "regression-compile-tmp/allimpc1-77.imp" int QQ; #line 2065 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 2065 "regression-compile-tmp/allimpc1-77.imp" int S; #line 2065 "regression-compile-tmp/allimpc1-77.imp" int JJ; #line 2065 "regression-compile-tmp/allimpc1-77.imp" int JJJ; // 2066 Q=P; PTYPEP=PTYPE #line 2066 "regression-compile-tmp/allimpc1-77.imp" Q = P; #line 2066 "regression-compile-tmp/allimpc1-77.imp" PTYPEP = PTYPE; // 2067 L1: P=A(Q+1)+Q+1 #line 2067 "regression-compile-tmp/allimpc1-77.imp" U_1059:; #line 2067 "regression-compile-tmp/allimpc1-77.imp" P = (((int)((((int)(A[(((unsigned char)((((int)(Q)) + (1)))) + (2))])) + (Q)))) + (1)); // 2068 KK=0; %IF MODE=1 %THEN ->L4 #line 2068 "regression-compile-tmp/allimpc1-77.imp" KK = 0; #line 2068 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (1))) goto L_025a; #line 2068 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 2068 "regression-compile-tmp/allimpc1-77.imp" L_025a:; // 2069 PRX(X'50',WSPR,0,GLA,36); ! PTR TO DOPE VECTOR INTO GLA #line 2069 "regression-compile-tmp/allimpc1-77.imp" PRX(80, WSPR, 0, GLA, 36); // 2070 PSI(X'92',1,GLA,36) %IF UNASS=1;! FLAG TO FILL WITH X'000' #line 2070 "regression-compile-tmp/allimpc1-77.imp" if (((UNASS) != (1))) goto L_025b; #line 2070 "regression-compile-tmp/allimpc1-77.imp" PSI(146, 1, GLA, 36); #line 2070 "regression-compile-tmp/allimpc1-77.imp" L_025b:; // 2071 L4: P=P+2; JJ=P; KK=KK+1 #line 2071 "regression-compile-tmp/allimpc1-77.imp" U_105a:; #line 2071 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 2071 "regression-compile-tmp/allimpc1-77.imp" JJ = P; #line 2071 "regression-compile-tmp/allimpc1-77.imp" KK = (((int)(KK)) + (1)); // 2072 SKIP EXP; QQ=TSEXP(JJJ); P=JJ #line 2072 "regression-compile-tmp/allimpc1-77.imp" SKIPEXP(); #line 2072 "regression-compile-tmp/allimpc1-77.imp" QQ = TSEXP(&JJJ); #line 2072 "regression-compile-tmp/allimpc1-77.imp" P = JJ; // 2073 %IF QQ=0 %THEN CSEXP(4,1) %ELSE CSEXP(1,1) #line 2073 "regression-compile-tmp/allimpc1-77.imp" if (((QQ) != (0))) goto L_025c; #line 2073 "regression-compile-tmp/allimpc1-77.imp" CSEXP(4, 1); #line 2073 "regression-compile-tmp/allimpc1-77.imp" goto L_025d; #line 2073 "regression-compile-tmp/allimpc1-77.imp" L_025c:; #line 2073 "regression-compile-tmp/allimpc1-77.imp" CSEXP(1, 1); #line 2073 "regression-compile-tmp/allimpc1-77.imp" L_025d:; // 2074 REGISTER(4)=1; CSEXP(2,1); REGISTER(4)=0 #line 2074 "regression-compile-tmp/allimpc1-77.imp" REGISTER[4] = 1; #line 2074 "regression-compile-tmp/allimpc1-77.imp" CSEXP(2, 1); #line 2074 "regression-compile-tmp/allimpc1-77.imp" REGISTER[4] = 0; // 2075 PRR(X'18',1,4) %IF QQ=0; ! BOUND PAIR NOW IN R1 & R2 #line 2075 "regression-compile-tmp/allimpc1-77.imp" if (((QQ) != (0))) goto L_025e; #line 2075 "regression-compile-tmp/allimpc1-77.imp" PRR(24, 1, 4); #line 2075 "regression-compile-tmp/allimpc1-77.imp" L_025e:; // 2076 ->L41 %UNLESS KK=1; S=1 #line 2076 "regression-compile-tmp/allimpc1-77.imp" if (((KK) == (1))) goto L_025f; #line 2076 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; #line 2076 "regression-compile-tmp/allimpc1-77.imp" L_025f:; #line 2076 "regression-compile-tmp/allimpc1-77.imp" S = 1; // 2077 %UNLESS MODE=2 %THEN %START #line 2077 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) == (2))) goto L_0260; // 2078 S=0; PRX(X'41',0,0,0,ACC); %FINISH; #line 2078 "regression-compile-tmp/allimpc1-77.imp" S = 0; #line 2078 "regression-compile-tmp/allimpc1-77.imp" PRX(65, 0, 0, 0, ACC); #line 2078 "regression-compile-tmp/allimpc1-77.imp" L_0260:; // 2079 PRX(X'90',S,2,WSPR,4*S); ! STM TO DUMP BOUND PAIR & R0 #line 2079 "regression-compile-tmp/allimpc1-77.imp" PRX(144, S, 2, WSPR, (((int)(4)) * (S))); // 2080 PSI(X'92',3-A(P),WSPR,1); ! MVI TO SET DIMENSION #line 2080 "regression-compile-tmp/allimpc1-77.imp" PSI(146, ((3) - ((int)(A[((P) + ((int)(2)))]))), WSPR, 1); // 2081 MOVER(WSPR,16); ->L42 #line 2081 "regression-compile-tmp/allimpc1-77.imp" MOVER(WSPR, 16); #line 2081 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; // 2082 L41: S=(KK&1)<<2 #line 2082 "regression-compile-tmp/allimpc1-77.imp" U_105b:; #line 2082 "regression-compile-tmp/allimpc1-77.imp" S = ((((KK) & (1))) << (2)); // 2083 %IF S=0 %THEN JJJ=8*A(P) %ELSE JJJ=16 #line 2083 "regression-compile-tmp/allimpc1-77.imp" if (((S) != (0))) goto L_0261; #line 2083 "regression-compile-tmp/allimpc1-77.imp" JJJ = ((8) * ((int)(A[((P) + ((int)(2)))]))); #line 2083 "regression-compile-tmp/allimpc1-77.imp" goto L_0262; #line 2083 "regression-compile-tmp/allimpc1-77.imp" L_0261:; #line 2083 "regression-compile-tmp/allimpc1-77.imp" JJJ = 16; #line 2083 "regression-compile-tmp/allimpc1-77.imp" L_0262:; // 2084 PRX(X'90',1,2,WSPR,S) #line 2084 "regression-compile-tmp/allimpc1-77.imp" PRX(144, 1, 2, WSPR, S); // 2085 MOVER(WSPR,JJJ) #line 2085 "regression-compile-tmp/allimpc1-77.imp" MOVER(WSPR, JJJ); // 2086 L42: ->L4 %IF A(P)=1; ! FOR NEXT BOUND PAIR #line 2086 "regression-compile-tmp/allimpc1-77.imp" U_105c:; #line 2086 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (1))) goto L_0263; #line 2086 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 2086 "regression-compile-tmp/allimpc1-77.imp" L_0263:; // 2087 ->L5 %IF KK<=2 #line 2087 "regression-compile-tmp/allimpc1-77.imp" if (((KK) > (2))) goto L_0264; #line 2087 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; #line 2087 "regression-compile-tmp/allimpc1-77.imp" L_0264:; // 2088 FAULT(37) %IF KK>6 #line 2088 "regression-compile-tmp/allimpc1-77.imp" if (((KK) <= (6))) goto L_0265; #line 2088 "regression-compile-tmp/allimpc1-77.imp" FAULT(37); #line 2088 "regression-compile-tmp/allimpc1-77.imp" L_0265:; // 2089 PACLOD(27,3,KK); ! L 1,=A(DV)--MVI 1(1),KK #line 2089 "regression-compile-tmp/allimpc1-77.imp" PACLOD(27, 3, KK); // 2090 L5: QQ=Q+1; J=KK; PTYPE=PTYPEP; ->L9 %IF MODE >=1 #line 2090 "regression-compile-tmp/allimpc1-77.imp" U_105d:; #line 2090 "regression-compile-tmp/allimpc1-77.imp" QQ = (((int)(Q)) + (1)); #line 2090 "regression-compile-tmp/allimpc1-77.imp" J = KK; #line 2090 "regression-compile-tmp/allimpc1-77.imp" PTYPE = PTYPEP; #line 2090 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) < (1))) goto L_0266; #line 2090 "regression-compile-tmp/allimpc1-77.imp" goto U_105e; #line 2090 "regression-compile-tmp/allimpc1-77.imp" L_0266:; // 2091 %CYCLE JJJ=1,1,A(QQ) #line 2091 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = A[((QQ) + ((int)(2)))]; JJJ = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJJ = 1, 1, A[((QQ) + ((int)(2)))]"); JJJ -= _increment; _control -= _increment; L_0267:; if (JJJ == _final) goto L_0268; JJJ += _increment; _control += _increment; if (JJJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJJ"); /* FOR loop control variable corrupted */ } // 2092 K=A(QQ+JJJ); TESTNST; J=KK #line 2092 "regression-compile-tmp/allimpc1-77.imp" K = A[(((unsigned char)((((int)(QQ)) + (JJJ)))) + (2))]; #line 2092 "regression-compile-tmp/allimpc1-77.imp" TESTNST(); #line 2092 "regression-compile-tmp/allimpc1-77.imp" J = KK; // 2093 STORE TAG(K,N);PPJ(13) #line 2093 "regression-compile-tmp/allimpc1-77.imp" STORETAG(K, N); #line 2093 "regression-compile-tmp/allimpc1-77.imp" PPJ(13); // 2094 PRX(X'90',0,3,RBASE,N); ! STM 0,3--SAVE ARRAYHEAD #line 2094 "regression-compile-tmp/allimpc1-77.imp" PRX(144, 0, 3, RBASE, N); // 2095 N=N+16; %REPEAT #line 2095 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (16)); #line 2095 "regression-compile-tmp/allimpc1-77.imp" goto L_0267; #line 2095 "regression-compile-tmp/allimpc1-77.imp" L_0268:; // 2096 Q=P+2; ->L1 %IF A(Q-1)=1 #line 2096 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(P)) + (2)); #line 2096 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(Q)) - (1)))) + (2))]) != (1))) goto L_026a; #line 2096 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; #line 2096 "regression-compile-tmp/allimpc1-77.imp" L_026a:; // 2097 L9: %END #line 2097 "regression-compile-tmp/allimpc1-77.imp" U_105e:; #line 2097 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CADCLN at level 3 // 2098 %ROUTINE CVDECLN #line 2098 "regression-compile-tmp/allimpc1-77.imp" void CVDECLN( void ) #line 2098 "regression-compile-tmp/allimpc1-77.imp" { // 2099 !%SHORTROUTINE // 2100 %INTEGER LB,UB,ADV,Q,QQ,RANGE,JJJ,KK,DISP0,DISP1 #line 2100 "regression-compile-tmp/allimpc1-77.imp" int LB; #line 2100 "regression-compile-tmp/allimpc1-77.imp" int UB; #line 2100 "regression-compile-tmp/allimpc1-77.imp" int ADV; #line 2100 "regression-compile-tmp/allimpc1-77.imp" int Q; #line 2100 "regression-compile-tmp/allimpc1-77.imp" int QQ; #line 2100 "regression-compile-tmp/allimpc1-77.imp" int RANGE; #line 2100 "regression-compile-tmp/allimpc1-77.imp" int JJJ; #line 2100 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 2100 "regression-compile-tmp/allimpc1-77.imp" int DISP0; #line 2100 "regression-compile-tmp/allimpc1-77.imp" int DISP1; // 2101 Q=P #line 2101 "regression-compile-tmp/allimpc1-77.imp" Q = P; // 2102 P=A(Q+1)+Q+2 #line 2102 "regression-compile-tmp/allimpc1-77.imp" P = (((int)((((int)(A[(((unsigned char)((((int)(Q)) + (1)))) + (2))])) + (Q)))) + (2)); // 2103 CBPAIR(LB,UB) #line 2103 "regression-compile-tmp/allimpc1-77.imp" CBPAIR(&LB, &UB); // 2104 ADV=N0 #line 2104 "regression-compile-tmp/allimpc1-77.imp" ADV = N0; // 2105 ST(N0)=1<<16!ACC #line 2105 "regression-compile-tmp/allimpc1-77.imp" ST[N0] = ((((1) << (16))) | (ACC)); // 2106 ST(N0+1)=LB #line 2106 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (1))] = LB; // 2107 ST(N0+2)=UB #line 2107 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (2))] = UB; // 2108 RANGE=UB-LB+1 #line 2108 "regression-compile-tmp/allimpc1-77.imp" RANGE = (((int)((((int)(UB)) - (LB)))) + (1)); // 2109 ST(N0+3)=RANGE; N0=N0+4 #line 2109 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (3))] = RANGE; #line 2109 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (4)); // 2110 FAULT(44) %IF LB>UB #line 2110 "regression-compile-tmp/allimpc1-77.imp" if (((LB) <= (UB))) goto L_026b; #line 2110 "regression-compile-tmp/allimpc1-77.imp" FAULT(44); #line 2110 "regression-compile-tmp/allimpc1-77.imp" L_026b:; // 2111 PRX(X'41',2,0,GLA,ADV<<2) #line 2111 "regression-compile-tmp/allimpc1-77.imp" PRX(65, 2, 0, GLA, ((ADV) << (2))); // 2112 PRX(X'41',3,0,0,RANGE) #line 2112 "regression-compile-tmp/allimpc1-77.imp" PRX(65, 3, 0, 0, RANGE); // 2113 QQ=Q+1; J=1 #line 2113 "regression-compile-tmp/allimpc1-77.imp" QQ = (((int)(Q)) + (1)); #line 2113 "regression-compile-tmp/allimpc1-77.imp" J = 1; // 2114 %CYCLE JJJ=1,1,A(QQ) #line 2114 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = A[((QQ) + ((int)(2)))]; JJJ = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJJ = 1, 1, A[((QQ) + ((int)(2)))]"); JJJ -= _increment; _control -= _increment; L_026c:; if (JJJ == _final) goto L_026d; JJJ += _increment; _control += _increment; if (JJJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJJ"); /* FOR loop control variable corrupted */ } // 2115 N=(N+7)&(-8) #line 2115 "regression-compile-tmp/allimpc1-77.imp" N = (((((int)(N)) + (7))) & ((-8))); // 2116 DISP1=N+16 #line 2116 "regression-compile-tmp/allimpc1-77.imp" DISP1 = (((int)(N)) + (16)); // 2117 DISP0=DISP1-LB*ACC; FAULT(44) %UNLESS 0= (DISP0))) || (((DISP0) < (4095)))) goto L_026f; #line 2117 "regression-compile-tmp/allimpc1-77.imp" L_0168:; #line 2117 "regression-compile-tmp/allimpc1-77.imp" FAULT(44); #line 2117 "regression-compile-tmp/allimpc1-77.imp" L_026f:; // 2118 KK=NEWCELL; REPLACE BOTH(KK,DISP0,N) #line 2118 "regression-compile-tmp/allimpc1-77.imp" KK = NEWCELL(); #line 2118 "regression-compile-tmp/allimpc1-77.imp" REPLACEBOTH(KK, DISP0, N); // 2119 PRX(X'41',0,0,RBASE,DISP0) #line 2119 "regression-compile-tmp/allimpc1-77.imp" PRX(65, 0, 0, RBASE, DISP0); // 2120 PRX(X'41',1,0,RBASE,DISP1) #line 2120 "regression-compile-tmp/allimpc1-77.imp" PRX(65, 1, 0, RBASE, DISP1); // 2121 K=A(QQ+JJJ); TESTNST #line 2121 "regression-compile-tmp/allimpc1-77.imp" K = A[(((unsigned char)((((int)(QQ)) + (JJJ)))) + (2))]; #line 2121 "regression-compile-tmp/allimpc1-77.imp" TESTNST(); // 2122 STORE TAG(K,KK) #line 2122 "regression-compile-tmp/allimpc1-77.imp" STORETAG(K, KK); // 2123 PRX(X'90',0,3,RBASE,N) #line 2123 "regression-compile-tmp/allimpc1-77.imp" PRX(144, 0, 3, RBASE, N); // 2124 SET80(DISP1,ACC*RANGE) %IF UNASS=1 #line 2124 "regression-compile-tmp/allimpc1-77.imp" if (((UNASS) != (1))) goto L_0270; #line 2124 "regression-compile-tmp/allimpc1-77.imp" SET80(DISP1, (((int)(ACC)) * (RANGE))); #line 2124 "regression-compile-tmp/allimpc1-77.imp" L_0270:; // 2125 N=DISP1+ACC*RANGE #line 2125 "regression-compile-tmp/allimpc1-77.imp" N = ((DISP1) + ((int)((((int)(ACC)) * (RANGE))))); // 2126 %REPEAT #line 2126 "regression-compile-tmp/allimpc1-77.imp" goto L_026c; #line 2126 "regression-compile-tmp/allimpc1-77.imp" L_026d:; // 2127 P=P+1; %IF A(P-1)=1 %THEN CVDECLN #line 2127 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2127 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (1))) goto L_0271; #line 2127 "regression-compile-tmp/allimpc1-77.imp" CVDECLN(); #line 2127 "regression-compile-tmp/allimpc1-77.imp" L_0271:; // 2128 N=(N+3)&(-4) #line 2128 "regression-compile-tmp/allimpc1-77.imp" N = (((((int)(N)) + (3))) & ((-4))); // 2129 %END #line 2129 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CVDECLN at level 3 // 2130 %ROUTINE CSEXP(%INTEGER REG,%BYTEINTEGER MODE) #line 2130 "regression-compile-tmp/allimpc1-77.imp" void CSEXP( int REG, unsigned char MODE ) #line 2130 "regression-compile-tmp/allimpc1-77.imp" { // 2131 %COMMENT MODE=1 FOR %INTEGER, =2REAL, =3LONG,=0INTEGER %IF PNS // 2132 %INTEGER C,D,QP,NOP,X,JJ,OPCODE #line 2132 "regression-compile-tmp/allimpc1-77.imp" int C; #line 2132 "regression-compile-tmp/allimpc1-77.imp" int D; #line 2132 "regression-compile-tmp/allimpc1-77.imp" int QP; #line 2132 "regression-compile-tmp/allimpc1-77.imp" int NOP; #line 2132 "regression-compile-tmp/allimpc1-77.imp" int X; #line 2132 "regression-compile-tmp/allimpc1-77.imp" int JJ; #line 2132 "regression-compile-tmp/allimpc1-77.imp" int OPCODE; // 2133 %INTEGER EVALUATE,OPND #line 2133 "regression-compile-tmp/allimpc1-77.imp" int EVALUATE; #line 2133 "regression-compile-tmp/allimpc1-77.imp" int OPND; // 2134 %SHORTINTEGER OPHEAD #line 2134 "regression-compile-tmp/allimpc1-77.imp" short OPHEAD; // 2135 %BYTEINTEGER REAL,LONGREAL,REALOP #line 2135 "regression-compile-tmp/allimpc1-77.imp" unsigned char REAL; #line 2135 "regression-compile-tmp/allimpc1-77.imp" unsigned char LONGREAL; #line 2135 "regression-compile-tmp/allimpc1-77.imp" unsigned char REALOP; // 2136 %INTEGER OPERATOR,NOPS,LASTOP #line 2136 "regression-compile-tmp/allimpc1-77.imp" int OPERATOR; #line 2136 "regression-compile-tmp/allimpc1-77.imp" int NOPS; #line 2136 "regression-compile-tmp/allimpc1-77.imp" int LASTOP; // 2137 %INTEGERARRAY BS,PT,DP(1:2) #line 2137 "regression-compile-tmp/allimpc1-77.imp" int BS[2]; #line 2137 "regression-compile-tmp/allimpc1-77.imp" int PT[2]; #line 2137 "regression-compile-tmp/allimpc1-77.imp" int DP[2]; // 2138 %INTEGERARRAY OP,OPPREC(0:5) #line 2138 "regression-compile-tmp/allimpc1-77.imp" int OP[6]; #line 2138 "regression-compile-tmp/allimpc1-77.imp" int OPPREC[6]; // 2139 %ROUTINESPEC TEST(%INTEGER N) #line 2139 "regression-compile-tmp/allimpc1-77.imp" auto void TEST( int N ); // 2140 %ROUTINESPEC PLANT(%INTEGER A,B,C) #line 2140 "regression-compile-tmp/allimpc1-77.imp" auto void PLANT( int A, int B, int C ); // 2141 %INTEGERFNSPEC FINDR #line 2141 "regression-compile-tmp/allimpc1-77.imp" auto int FINDR( void ); // 2142 %ROUTINESPEC LOAD(%INTEGERNAME N,%INTEGER REG,MODE) #line 2142 "regression-compile-tmp/allimpc1-77.imp" auto void LOAD( int /*name*/*N, int REG, int MODE ); // 2143 %ROUTINESPEC PRINT ORDERS #line 2143 "regression-compile-tmp/allimpc1-77.imp" auto void PRINTORDERS( void ); // 2144 %OWNINTEGER N0=1024 #line 2144 "regression-compile-tmp/allimpc1-77.imp" static int N0 = 1024; // 2145 QP=0; OPHEAD=0; OPCODE=0 #line 2145 "regression-compile-tmp/allimpc1-77.imp" QP = 0; #line 2145 "regression-compile-tmp/allimpc1-77.imp" OPHEAD = 0; #line 2145 "regression-compile-tmp/allimpc1-77.imp" OPCODE = 0; // 2146 REAL=0; LONGREAL=0; REALOP=0 #line 2146 "regression-compile-tmp/allimpc1-77.imp" REAL = 0; #line 2146 "regression-compile-tmp/allimpc1-77.imp" LONGREAL = 0; #line 2146 "regression-compile-tmp/allimpc1-77.imp" REALOP = 0; // 2147 NOPS=0; LASTOP=0 #line 2147 "regression-compile-tmp/allimpc1-77.imp" NOPS = 0; #line 2147 "regression-compile-tmp/allimpc1-77.imp" LASTOP = 0; // 2148 %BEGIN #line 2148 "regression-compile-tmp/allimpc1-77.imp" void _BLOCK_5_LEVEL_3_(void) { // 2149 !%SHORTROUTINE // 2150 %SWITCH S,SW(1:4) #line 2150 "regression-compile-tmp/allimpc1-77.imp" static int sw7_S_idx; static const void * /*SWITCH*/ sw7_S[4] = { &&sw7_S_1, &&sw7_S_2, &&sw7_S_3, &&sw7_S_4, }; #line 2150 "regression-compile-tmp/allimpc1-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, }; // 2151 AFLAG=0; NOP=N0 #line 2151 "regression-compile-tmp/allimpc1-77.imp" AFLAG = 0; #line 2151 "regression-compile-tmp/allimpc1-77.imp" NOP = N0; // 2152 OP(0)=0; OPPREC(0)=0 #line 2152 "regression-compile-tmp/allimpc1-77.imp" OP[0] = 0; #line 2152 "regression-compile-tmp/allimpc1-77.imp" OPPREC[0] = 0; // 2153 ->S(A(P)); !SWITCH ON PHRASE (+1) #line 2153 "regression-compile-tmp/allimpc1-77.imp" sw7_S_idx = A[((P) + ((int)(2)))]; if ((1 <= sw7_S_idx) && (sw7_S_idx <= 4)) goto *(sw7_S-1)[sw7_S_idx]; /* Bounds=1:4 */ else { /*_imp_signal(8, 2, sw7_S_idx);*/ fprintf(stderr, "%%SWITCH index S(%d) not in range 1:4 at %s:%d\n", sw7_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 2154 S(2): !NEGATE #line 2154 "regression-compile-tmp/allimpc1-77.imp" sw7_S_2:; // 2155 OP(1)=11; #line 2155 "regression-compile-tmp/allimpc1-77.imp" OP[1] = 11; // 2156 L101: OPPREC(1)=2+OP(1)//6; QP=1; ->L1 #line 2156 "regression-compile-tmp/allimpc1-77.imp" U_1074:; #line 2156 "regression-compile-tmp/allimpc1-77.imp" OPPREC[1] = ((2) + (((long)((long)((int)(OP[1])) / (long)((int)(6)))))); #line 2156 "regression-compile-tmp/allimpc1-77.imp" QP = 1; #line 2156 "regression-compile-tmp/allimpc1-77.imp" goto U_1075; // 2157 S(3): OP(1)=23; ->L101; !INITIAL NOT #line 2157 "regression-compile-tmp/allimpc1-77.imp" sw7_S_3:; #line 2157 "regression-compile-tmp/allimpc1-77.imp" OP[1] = 23; #line 2157 "regression-compile-tmp/allimpc1-77.imp" goto U_1074; // 2158 S(1):S(4):L1: ! PLUS OR NULL ALTERNATIVE #line 2158 "regression-compile-tmp/allimpc1-77.imp" sw7_S_1:; #line 2158 "regression-compile-tmp/allimpc1-77.imp" sw7_S_4:; #line 2158 "regression-compile-tmp/allimpc1-77.imp" U_1075:; // 2159 OPND=A(P+1); P=P+2; QP=QP+1 #line 2159 "regression-compile-tmp/allimpc1-77.imp" OPND = A[(((unsigned char)((((int)(P)) + (1)))) + (2))]; #line 2159 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 2159 "regression-compile-tmp/allimpc1-77.imp" QP = (((int)(QP)) + (1)); // 2160 ->SW(OPND); ! SWITCH ON OPERAND #line 2160 "regression-compile-tmp/allimpc1-77.imp" sw8_SW_idx = OPND; 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); } // 2161 SW(1): !NAME #line 2161 "regression-compile-tmp/allimpc1-77.imp" sw8_SW_1:; // 2162 COPYTAG(A(P)) #line 2162 "regression-compile-tmp/allimpc1-77.imp" COPYTAG(A[((P) + ((int)(2)))]); // 2163 ->REGVAR %IF TYPE=8 #line 2163 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (8))) goto L_0272; #line 2163 "regression-compile-tmp/allimpc1-77.imp" goto U_1076; #line 2163 "regression-compile-tmp/allimpc1-77.imp" L_0272:; // 2164 ->L19 %IF TYPE=3 %AND ARR=0 %AND INREG#0 #line 2164 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_0273; #line 2164 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (0))) goto L_0273; #line 2164 "regression-compile-tmp/allimpc1-77.imp" if (((INREG) == (0))) goto L_0273; #line 2164 "regression-compile-tmp/allimpc1-77.imp" goto U_1077; #line 2164 "regression-compile-tmp/allimpc1-77.imp" L_0273:; // 2165 ->L171 %IF ARR=2 %AND A(P+1)=1 #line 2165 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (2))) goto L_0274; #line 2165 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (1))) goto L_0274; #line 2165 "regression-compile-tmp/allimpc1-77.imp" goto U_107a; #line 2165 "regression-compile-tmp/allimpc1-77.imp" L_0274:; // 2166 ->L17 %IF 1<=TYPE<=2 %AND ARR=0 %AND ROUT=0 %AND A(P+1)=2=A(P+2) #line 2166 "regression-compile-tmp/allimpc1-77.imp" if ((((1) > (TYPE))) || (((TYPE) > (2)))) goto L_0275; #line 2166 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (0))) goto L_0275; #line 2166 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) != (0))) goto L_0275; #line 2166 "regression-compile-tmp/allimpc1-77.imp" if ((((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) || (((2) != (A[(((unsigned char)((((int)(P)) + (2)))) + (2))])))) goto L_0275; #line 2166 "regression-compile-tmp/allimpc1-77.imp" goto U_107b; #line 2166 "regression-compile-tmp/allimpc1-77.imp" L_0275:; // 2167 L10: #line 2167 "regression-compile-tmp/allimpc1-77.imp" U_107c:; // 2168 ->L14 %UNLESS TYPE=1 %OR(ROUT=1%AND TYPE=6%AND TSNAME(K)&7=1) #line 2168 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (1))) goto L_0276; #line 2168 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) != (1))) goto L_026e; #line 2168 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (6))) goto L_026e; #line 2168 "regression-compile-tmp/allimpc1-77.imp" if (((((TSNAME[K]) & (7))) == (1))) goto L_0276; #line 2168 "regression-compile-tmp/allimpc1-77.imp" L_026e:; #line 2168 "regression-compile-tmp/allimpc1-77.imp" goto U_107d; #line 2168 "regression-compile-tmp/allimpc1-77.imp" L_0276:; // 2169 C=P; ->L11 %IF QP>1 #line 2169 "regression-compile-tmp/allimpc1-77.imp" C = P; #line 2169 "regression-compile-tmp/allimpc1-77.imp" if (((QP) <= (1))) goto L_0277; #line 2169 "regression-compile-tmp/allimpc1-77.imp" goto U_107e; #line 2169 "regression-compile-tmp/allimpc1-77.imp" L_0277:; // 2170 P=P+1; SKIPAPP; ->L11 %UNLESS A(P)=A(P+1)=2 #line 2170 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2170 "regression-compile-tmp/allimpc1-77.imp" SKIPAPP(); #line 2170 "regression-compile-tmp/allimpc1-77.imp" if ((((A[((P) + ((int)(2)))]) != (A[(((unsigned char)((((int)(P)) + (1)))) + (2))]))) || (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (2)))) goto L_0279; #line 2170 "regression-compile-tmp/allimpc1-77.imp" L_0278:; #line 2170 "regression-compile-tmp/allimpc1-77.imp" goto U_107e; #line 2170 "regression-compile-tmp/allimpc1-77.imp" L_0279:; // 2171 P=C; C=REG #line 2171 "regression-compile-tmp/allimpc1-77.imp" P = C; #line 2171 "regression-compile-tmp/allimpc1-77.imp" C = REG; // 2172 %IF REG<=0 %THEN %START #line 2172 "regression-compile-tmp/allimpc1-77.imp" if (((REG) > (0))) goto L_027a; // 2173 C=FINDR; REGISTER(C)=0 #line 2173 "regression-compile-tmp/allimpc1-77.imp" C = FINDR(); #line 2173 "regression-compile-tmp/allimpc1-77.imp" REGISTER[C] = 0; // 2174 %FINISH #line 2174 "regression-compile-tmp/allimpc1-77.imp" L_027a:; // 2175 CNAME(2,C); NEST=C; ->L80; ! ONE OPND EXPR #line 2175 "regression-compile-tmp/allimpc1-77.imp" CNAME(2, C); #line 2175 "regression-compile-tmp/allimpc1-77.imp" NEST = C; #line 2175 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; // 2176 L11: P=C #line 2176 "regression-compile-tmp/allimpc1-77.imp" U_107e:; #line 2176 "regression-compile-tmp/allimpc1-77.imp" P = C; // 2177 C=FINDPP; ->L14 %IF C=0 #line 2177 "regression-compile-tmp/allimpc1-77.imp" C = FINDPP(); #line 2177 "regression-compile-tmp/allimpc1-77.imp" if (((C) != (0))) goto L_027b; #line 2177 "regression-compile-tmp/allimpc1-77.imp" goto U_107d; #line 2177 "regression-compile-tmp/allimpc1-77.imp" L_027b:; // 2178 CNAME(2,C); NEST=C #line 2178 "regression-compile-tmp/allimpc1-77.imp" CNAME(2, C); #line 2178 "regression-compile-tmp/allimpc1-77.imp" NEST = C; // 2179 ->L80 %IF QP=1 %AND A(P)=2;P=P+1; ! ONE OPND EXPR #line 2179 "regression-compile-tmp/allimpc1-77.imp" if (((QP) != (1))) goto L_027c; #line 2179 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_027c; #line 2179 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; #line 2179 "regression-compile-tmp/allimpc1-77.imp" L_027c:; #line 2179 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 2180 L12: ST(N0)=9; ST(N0+1)=C; N0=N0+3 #line 2180 "regression-compile-tmp/allimpc1-77.imp" U_1080:; #line 2180 "regression-compile-tmp/allimpc1-77.imp" ST[N0] = 9; #line 2180 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (1))] = C; #line 2180 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (3)); // 2181 REGISTER(C)=1 #line 2181 "regression-compile-tmp/allimpc1-77.imp" REGISTER[C] = 1; // 2182 ->L50 #line 2182 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; // 2183 L14: %COMMENT OPERAND MUST BE FETCHED AND STORED #line 2183 "regression-compile-tmp/allimpc1-77.imp" U_107d:; // 2184 CNAME (2,2);NEST =2 #line 2184 "regression-compile-tmp/allimpc1-77.imp" CNAME(2, 2); #line 2184 "regression-compile-tmp/allimpc1-77.imp" NEST = 2; // 2185 %IF TYPE=5 %THEN %START; FAULT(42); TYPE=1; %FINISH; #line 2185 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_027d; #line 2185 "regression-compile-tmp/allimpc1-77.imp" FAULT(42); #line 2185 "regression-compile-tmp/allimpc1-77.imp" TYPE = 1; #line 2185 "regression-compile-tmp/allimpc1-77.imp" L_027d:; // 2186 %IF TYPE=2 %THEN FREG(2)=1 %ELSE REGISTER(2)=1 #line 2186 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_027e; #line 2186 "regression-compile-tmp/allimpc1-77.imp" FREG[2] = 1; #line 2186 "regression-compile-tmp/allimpc1-77.imp" goto L_027f; #line 2186 "regression-compile-tmp/allimpc1-77.imp" L_027e:; #line 2186 "regression-compile-tmp/allimpc1-77.imp" REGISTER[2] = 1; #line 2186 "regression-compile-tmp/allimpc1-77.imp" L_027f:; // 2187 NAM=0;ARR=0;ROUT=0 #line 2187 "regression-compile-tmp/allimpc1-77.imp" NAM = 0; #line 2187 "regression-compile-tmp/allimpc1-77.imp" ARR = 0; #line 2187 "regression-compile-tmp/allimpc1-77.imp" ROUT = 0; // 2188 LONGREAL=1 %IF PREC=3 #line 2188 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) != (3))) goto L_0280; #line 2188 "regression-compile-tmp/allimpc1-77.imp" LONGREAL = 1; #line 2188 "regression-compile-tmp/allimpc1-77.imp" L_0280:; // 2189 ->L80 %IF QP=1 %AND A(P)=2 #line 2189 "regression-compile-tmp/allimpc1-77.imp" if (((QP) != (1))) goto L_0281; #line 2189 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0281; #line 2189 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; #line 2189 "regression-compile-tmp/allimpc1-77.imp" L_0281:; // 2190 L16: ->L15 %IF TYPE=1 #line 2190 "regression-compile-tmp/allimpc1-77.imp" U_1082:; #line 2190 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (1))) goto L_0282; #line 2190 "regression-compile-tmp/allimpc1-77.imp" goto U_1083; #line 2190 "regression-compile-tmp/allimpc1-77.imp" L_0282:; // 2191 REAL=1; LONGREAL=1 %IF PREC=3 #line 2191 "regression-compile-tmp/allimpc1-77.imp" REAL = 1; #line 2191 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) != (3))) goto L_0283; #line 2191 "regression-compile-tmp/allimpc1-77.imp" LONGREAL = 1; #line 2191 "regression-compile-tmp/allimpc1-77.imp" L_0283:; // 2192 ->L161 %IF A(P)=2; ! EXPRESSION ENDED #line 2192 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0284; #line 2192 "regression-compile-tmp/allimpc1-77.imp" goto U_1084; #line 2192 "regression-compile-tmp/allimpc1-77.imp" L_0284:; // 2193 C=PARKF(NEST,PREC) #line 2193 "regression-compile-tmp/allimpc1-77.imp" C = PARKF(NEST, PREC); // 2194 FREG(NEST)=0 #line 2194 "regression-compile-tmp/allimpc1-77.imp" FREG[NEST] = 0; // 2195 L13: ST(N0)=10; P=P+1 #line 2195 "regression-compile-tmp/allimpc1-77.imp" U_1085:; #line 2195 "regression-compile-tmp/allimpc1-77.imp" ST[N0] = 10; #line 2195 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 2196 ST(N0+1)=RBASE!(TYPE!PREC<<3!NAM<<6)<<8 #line 2196 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (1))] = ((RBASE) | (((((((TYPE) | (((PREC) << (3))))) | (((NAM) << (6))))) << (8)))); // 2197 ST(N0+2)=C; N0=N0+3; ->L50 #line 2197 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (2))] = C; #line 2197 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (3)); #line 2197 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; // 2198 L161: ST(N0)=8; ST(N0+1)=NEST+512+PREC<<11 #line 2198 "regression-compile-tmp/allimpc1-77.imp" U_1084:; #line 2198 "regression-compile-tmp/allimpc1-77.imp" ST[N0] = 8; #line 2198 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (1))] = ((((((int)(NEST)) + (512)))) + (((PREC) << (11)))); // 2199 FREG(NEST)=1 #line 2199 "regression-compile-tmp/allimpc1-77.imp" FREG[NEST] = 1; // 2200 N0=N0+3; P=P+1; ->L50 #line 2200 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (3)); #line 2200 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2200 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; // 2201 L15: C=NEST #line 2201 "regression-compile-tmp/allimpc1-77.imp" U_1083:; #line 2201 "regression-compile-tmp/allimpc1-77.imp" C = NEST; // 2202 C=PARK(NEST) #line 2202 "regression-compile-tmp/allimpc1-77.imp" C = PARK(NEST); // 2203 REGISTER(NEST)=0 %UNLESS NEST=C #line 2203 "regression-compile-tmp/allimpc1-77.imp" if (((NEST) == (C))) goto L_0285; #line 2203 "regression-compile-tmp/allimpc1-77.imp" REGISTER[NEST] = 0; #line 2203 "regression-compile-tmp/allimpc1-77.imp" L_0285:; // 2204 ->L18 %IF C>0; ! IN GENERAL REGISTER #line 2204 "regression-compile-tmp/allimpc1-77.imp" if (((C) <= (0))) goto L_0286; #line 2204 "regression-compile-tmp/allimpc1-77.imp" goto U_1086; #line 2204 "regression-compile-tmp/allimpc1-77.imp" L_0286:; // 2205 C=|C|; PREC=0; ->L13; ! IN CORE EQUIVALENT TO INTEGER #line 2205 "regression-compile-tmp/allimpc1-77.imp" C = _imp_IMOD(C); #line 2205 "regression-compile-tmp/allimpc1-77.imp" PREC = 0; #line 2205 "regression-compile-tmp/allimpc1-77.imp" goto U_1085; // 2206 L18: P=P+1; ->L12 #line 2206 "regression-compile-tmp/allimpc1-77.imp" U_1086:; #line 2206 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2206 "regression-compile-tmp/allimpc1-77.imp" goto U_1080; // 2207 L17: %COMMENT OPND HAS BASE REGISTER COVER #line 2207 "regression-compile-tmp/allimpc1-77.imp" U_107b:; // 2208 ST(N0)=2; ST(N0+1)=I!(TYPE!PREC<<3!NAM<<6)<<8 #line 2208 "regression-compile-tmp/allimpc1-77.imp" ST[N0] = 2; #line 2208 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (1))] = ((I) | (((((((TYPE) | (((PREC) << (3))))) | (((NAM) << (6))))) << (8)))); // 2209 ST(N0+2)=K; P=P+4; N0=N0+3 #line 2209 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (2))] = K; #line 2209 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (4)); #line 2209 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (3)); // 2210 REAL=1 %IF TYPE=2 #line 2210 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_0287; #line 2210 "regression-compile-tmp/allimpc1-77.imp" REAL = 1; #line 2210 "regression-compile-tmp/allimpc1-77.imp" L_0287:; // 2211 LONGREAL=1 %IF PREC=3 #line 2211 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) != (3))) goto L_0288; #line 2211 "regression-compile-tmp/allimpc1-77.imp" LONGREAL = 1; #line 2211 "regression-compile-tmp/allimpc1-77.imp" L_0288:; // 2212 ->L50 %UNLESS UNASS=1 %AND(PREC=0 %OR PREC=3) #line 2212 "regression-compile-tmp/allimpc1-77.imp" if (((UNASS) != (1))) goto L_0289; #line 2212 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) == (0))) goto L_028a; #line 2212 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) == (3))) goto L_028a; #line 2212 "regression-compile-tmp/allimpc1-77.imp" L_0289:; #line 2212 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; #line 2212 "regression-compile-tmp/allimpc1-77.imp" L_028a:; // 2213 ->L50 %IF NAM=1 #line 2213 "regression-compile-tmp/allimpc1-77.imp" if (((NAM) != (1))) goto L_028b; #line 2213 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; #line 2213 "regression-compile-tmp/allimpc1-77.imp" L_028b:; // 2214 PSS(X'D5',BYTES(PREC),I,K,GLA,128); ! CLC V,=X'80808080' #line 2214 "regression-compile-tmp/allimpc1-77.imp" PSS(213, BYTES[PREC], I, K, GLA, 128); // 2215 PRX(X'47',8,0,CODER,40); ->L50;;! CHECK ASSIGNED #line 2215 "regression-compile-tmp/allimpc1-77.imp" PRX(71, 8, 0, CODER, 40); #line 2215 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; // 2216 L171: ->L10 %UNLESS A(P+2)=4 %AND A(P+3)=2 %AND A(P+4)=9 #line 2216 "regression-compile-tmp/allimpc1-77.imp" U_107a:; #line 2216 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) != (4))) goto L_028c; #line 2216 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (3)))) + (2))]) != (2))) goto L_028c; #line 2216 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (4)))) + (2))]) == (9))) goto L_028d; #line 2216 "regression-compile-tmp/allimpc1-77.imp" L_028c:; #line 2216 "regression-compile-tmp/allimpc1-77.imp" goto U_107c; #line 2216 "regression-compile-tmp/allimpc1-77.imp" L_028d:; // 2217 ->L10 %UNLESS A(P+5)<256 %AND A(P+6)=2 %AND A(P+7)=2=A(P+8) #line 2217 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (5)))) + (2))]) >= (256))) goto L_028e; #line 2217 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (6)))) + (2))]) != (2))) goto L_028e; #line 2217 "regression-compile-tmp/allimpc1-77.imp" if ((((A[(((unsigned char)((((int)(P)) + (7)))) + (2))]) != (2))) || (((2) == (A[(((unsigned char)((((int)(P)) + (8)))) + (2))])))) goto L_028f; #line 2217 "regression-compile-tmp/allimpc1-77.imp" L_028e:; #line 2217 "regression-compile-tmp/allimpc1-77.imp" goto U_107c; #line 2217 "regression-compile-tmp/allimpc1-77.imp" L_028f:; // 2218 FROM1(K,C); C=C+BYTES(PREC)*A(P+5) #line 2218 "regression-compile-tmp/allimpc1-77.imp" FROM1(K, &C); #line 2218 "regression-compile-tmp/allimpc1-77.imp" C = ((C) + ((int)((((short)(BYTES[PREC])) * (A[(((unsigned char)((((int)(P)) + (5)))) + (2))]))))); // 2219 ->L10 %UNLESS 0L17 #line 2219 "regression-compile-tmp/allimpc1-77.imp" if ((((0) >= (C))) || (((C) < (4096)))) goto L_0291; #line 2219 "regression-compile-tmp/allimpc1-77.imp" L_0290:; #line 2219 "regression-compile-tmp/allimpc1-77.imp" goto U_107c; #line 2219 "regression-compile-tmp/allimpc1-77.imp" L_0291:; #line 2219 "regression-compile-tmp/allimpc1-77.imp" K = C; #line 2219 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (6)); #line 2219 "regression-compile-tmp/allimpc1-77.imp" goto U_107b; // 2220 L19: ->L14 %UNLESS A(P+1)=2 %AND A(P+2)=1; ! NO APP BIUT ENAME #line 2220 "regression-compile-tmp/allimpc1-77.imp" U_1077:; #line 2220 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) goto L_0292; #line 2220 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) == (1))) goto L_0293; #line 2220 "regression-compile-tmp/allimpc1-77.imp" L_0292:; #line 2220 "regression-compile-tmp/allimpc1-77.imp" goto U_107d; #line 2220 "regression-compile-tmp/allimpc1-77.imp" L_0293:; // 2221 P=P+3; FROM1(K,FNAME); I=INREG #line 2221 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); #line 2221 "regression-compile-tmp/allimpc1-77.imp" FROM1(K, &FNAME); #line 2221 "regression-compile-tmp/allimpc1-77.imp" I = INREG; // 2222 K=DISPLACEMENT(FNAME) #line 2222 "regression-compile-tmp/allimpc1-77.imp" K = DISPLACEMENT(FNAME); // 2223 ->L191 %IF I=-1; UNPACK #line 2223 "regression-compile-tmp/allimpc1-77.imp" if (((I) != ((-1)))) goto L_0294; #line 2223 "regression-compile-tmp/allimpc1-77.imp" goto U_1087; #line 2223 "regression-compile-tmp/allimpc1-77.imp" L_0294:; #line 2223 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 2224 ->L17 %IF ARR=0 %AND ROUT=0 %AND 1<=TYPE<=2 %AND A(P+1)=2%C #line 2224 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (0))) goto L_0295; #line 2224 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) != (0))) goto L_0295; #line 2224 "regression-compile-tmp/allimpc1-77.imp" if ((((1) > (TYPE))) || (((TYPE) > (2)))) goto L_0295; #line 2224 "regression-compile-tmp/allimpc1-77.imp" if ((((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) || (((2) != (A[(((unsigned char)((((int)(P)) + (2)))) + (2))])))) goto L_0295; #line 2224 "regression-compile-tmp/allimpc1-77.imp" goto U_107b; #line 2224 "regression-compile-tmp/allimpc1-77.imp" L_0295:; // 2225 =A(P+2); ! NO APP OR SECOND ENAME // 2226 L191: P=P-3; ->L14 #line 2226 "regression-compile-tmp/allimpc1-77.imp" U_1087:; #line 2226 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) - (3)); #line 2226 "regression-compile-tmp/allimpc1-77.imp" goto U_107d; // 2227 REGVAR: ->L14 %UNLESS A(P+1)=2=A(P+2);! NO APP OR ENAME #line 2227 "regression-compile-tmp/allimpc1-77.imp" U_1076:; #line 2227 "regression-compile-tmp/allimpc1-77.imp" if ((((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) || (((2) == (A[(((unsigned char)((((int)(P)) + (2)))) + (2))])))) goto L_0297; #line 2227 "regression-compile-tmp/allimpc1-77.imp" L_0296:; #line 2227 "regression-compile-tmp/allimpc1-77.imp" goto U_107d; #line 2227 "regression-compile-tmp/allimpc1-77.imp" L_0297:; // 2228 P=P+4; ST(N0)=9; ST(N0+1)=K #line 2228 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (4)); #line 2228 "regression-compile-tmp/allimpc1-77.imp" ST[N0] = 9; #line 2228 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (1))] = K; // 2229 N0=N0+3; ->L50 #line 2229 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (3)); #line 2229 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; // 2230 SW(2): !CONSTANT #line 2230 "regression-compile-tmp/allimpc1-77.imp" sw8_SW_2:; // 2231 C=A(P); ST(N0+1)=P; ST(N0+2)=A(P+1) #line 2231 "regression-compile-tmp/allimpc1-77.imp" C = A[((P) + ((int)(2)))]; #line 2231 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (1))] = P; #line 2231 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (2))] = A[(((unsigned char)((((int)(P)) + (1)))) + (2))]; // 2232 ->L24 %IF C&7=2 #line 2232 "regression-compile-tmp/allimpc1-77.imp" if (((((C) & (7))) != (2))) goto L_0298; #line 2232 "regression-compile-tmp/allimpc1-77.imp" goto U_1088; #line 2232 "regression-compile-tmp/allimpc1-77.imp" L_0298:; // 2233 %IF C=5 %THEN %START #line 2233 "regression-compile-tmp/allimpc1-77.imp" if (((C) != (5))) goto L_0299; // 2234 FAULT(42); P=P+A(P+1)&X'FE'+1 #line 2234 "regression-compile-tmp/allimpc1-77.imp" FAULT(42); #line 2234 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(((P) + ((int)(((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) & (254))))))) + (1)); // 2235 C=9; %FINISH #line 2235 "regression-compile-tmp/allimpc1-77.imp" C = 9; #line 2235 "regression-compile-tmp/allimpc1-77.imp" L_0299:; // 2236 ->L22 %UNLESS C>8; !GO UNLESS IMMEDIATE #line 2236 "regression-compile-tmp/allimpc1-77.imp" if (((C) > (8))) goto L_029a; #line 2236 "regression-compile-tmp/allimpc1-77.imp" goto U_1089; #line 2236 "regression-compile-tmp/allimpc1-77.imp" L_029a:; // 2237 ST(N0)=0 #line 2237 "regression-compile-tmp/allimpc1-77.imp" ST[N0] = 0; // 2238 L21: N0=N0+3; P=P+3; #line 2238 "regression-compile-tmp/allimpc1-77.imp" U_108a:; #line 2238 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (3)); #line 2238 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); // 2239 ->L50 #line 2239 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; // 2240 L22: ST(N0)=1; P=P+1; ->L21 #line 2240 "regression-compile-tmp/allimpc1-77.imp" U_1089:; #line 2240 "regression-compile-tmp/allimpc1-77.imp" ST[N0] = 1; #line 2240 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2240 "regression-compile-tmp/allimpc1-77.imp" goto U_108a; // 2241 L24: REAL=1; P=P+2; ->L22 #line 2241 "regression-compile-tmp/allimpc1-77.imp" U_1088:; #line 2241 "regression-compile-tmp/allimpc1-77.imp" REAL = 1; #line 2241 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 2241 "regression-compile-tmp/allimpc1-77.imp" goto U_1089; // 2242 SW(3):SW(4): ! SUB EXPRESSION #line 2242 "regression-compile-tmp/allimpc1-77.imp" sw8_SW_3:; #line 2242 "regression-compile-tmp/allimpc1-77.imp" sw8_SW_4:; // 2243 D=0; D=1 %IF MODE=1 %OR LASTOP=12;! INTEGER EXPONENTS #line 2243 "regression-compile-tmp/allimpc1-77.imp" D = 0; #line 2243 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) == (1))) goto L_029b; #line 2243 "regression-compile-tmp/allimpc1-77.imp" if (((LASTOP) != (12))) goto L_029c; #line 2243 "regression-compile-tmp/allimpc1-77.imp" L_029b:; #line 2243 "regression-compile-tmp/allimpc1-77.imp" D = 1; #line 2243 "regression-compile-tmp/allimpc1-77.imp" L_029c:; // 2244 CSEXP(0,D) #line 2244 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, D); // 2245 ->L32 %UNLESS OPND=4 #line 2245 "regression-compile-tmp/allimpc1-77.imp" if (((OPND) == (4))) goto L_029d; #line 2245 "regression-compile-tmp/allimpc1-77.imp" goto U_108b; #line 2245 "regression-compile-tmp/allimpc1-77.imp" L_029d:; // 2246 D=16*TYPE #line 2246 "regression-compile-tmp/allimpc1-77.imp" D = ((16) * ((int)(TYPE))); // 2247 D=48 %IF TYPE=2 %AND PREC=0 #line 2247 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_029e; #line 2247 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) != (0))) goto L_029e; #line 2247 "regression-compile-tmp/allimpc1-77.imp" D = 48; #line 2247 "regression-compile-tmp/allimpc1-77.imp" L_029e:; // 2248 PRR(D,NEST,NEST); !DEAL WITH MOD SIGNS #line 2248 "regression-compile-tmp/allimpc1-77.imp" PRR(D, NEST, NEST); // 2249 L32: LONGREAL=1 %IF PREC=3 #line 2249 "regression-compile-tmp/allimpc1-77.imp" U_108b:; #line 2249 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) != (3))) goto L_029f; #line 2249 "regression-compile-tmp/allimpc1-77.imp" LONGREAL = 1; #line 2249 "regression-compile-tmp/allimpc1-77.imp" L_029f:; // 2250 ->L80 %IF QP=1 %AND A(P)=2; !ONE OPD EXPRESSION #line 2250 "regression-compile-tmp/allimpc1-77.imp" if (((QP) != (1))) goto L_02a0; #line 2250 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_02a0; #line 2250 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; #line 2250 "regression-compile-tmp/allimpc1-77.imp" L_02a0:; // 2251 ->L16 ; !TO STORE RESULT #line 2251 "regression-compile-tmp/allimpc1-77.imp" goto U_1082; // 2252 L50: %COMMENT DEAL WITH OPERATOR #line 2252 "regression-compile-tmp/allimpc1-77.imp" U_1081:; // 2253 ->L60 %IF A(P-1)=2; !EXPRESSION FINISHED #line 2253 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_02a1; #line 2253 "regression-compile-tmp/allimpc1-77.imp" goto U_108c; #line 2253 "regression-compile-tmp/allimpc1-77.imp" L_02a1:; // 2254 OPERATOR=A(P) #line 2254 "regression-compile-tmp/allimpc1-77.imp" OPERATOR = A[((P) + ((int)(2)))]; // 2255 %IF OPERATOR=12 %THEN %START; ! '.' #line 2255 "regression-compile-tmp/allimpc1-77.imp" if (((OPERATOR) != (12))) goto L_02a2; // 2256 FAULT(42); OPERATOR=2; %FINISH;! CHANGE TO + #line 2256 "regression-compile-tmp/allimpc1-77.imp" FAULT(42); #line 2256 "regression-compile-tmp/allimpc1-77.imp" OPERATOR = 2; #line 2256 "regression-compile-tmp/allimpc1-77.imp" L_02a2:; // 2257 OPERATOR = 6 %IF OPERATOR=13; !%NULL == * #line 2257 "regression-compile-tmp/allimpc1-77.imp" if (((OPERATOR) != (13))) goto L_02a3; #line 2257 "regression-compile-tmp/allimpc1-77.imp" OPERATOR = 6; #line 2257 "regression-compile-tmp/allimpc1-77.imp" L_02a3:; // 2258 REALOP=1 %IF OPERATOR=1 %OR OPERATOR=8 #line 2258 "regression-compile-tmp/allimpc1-77.imp" if (((OPERATOR) == (1))) goto L_02a4; #line 2258 "regression-compile-tmp/allimpc1-77.imp" if (((OPERATOR) != (8))) goto L_02a5; #line 2258 "regression-compile-tmp/allimpc1-77.imp" L_02a4:; #line 2258 "regression-compile-tmp/allimpc1-77.imp" REALOP = 1; #line 2258 "regression-compile-tmp/allimpc1-77.imp" L_02a5:; // 2259 OPERATOR=12 %IF OPERATOR=1 #line 2259 "regression-compile-tmp/allimpc1-77.imp" if (((OPERATOR) != (1))) goto L_02a6; #line 2259 "regression-compile-tmp/allimpc1-77.imp" OPERATOR = 12; #line 2259 "regression-compile-tmp/allimpc1-77.imp" L_02a6:; // 2260 NOPS=NOPS+1; LASTOP=OPERATOR #line 2260 "regression-compile-tmp/allimpc1-77.imp" NOPS = (((int)(NOPS)) + (1)); #line 2260 "regression-compile-tmp/allimpc1-77.imp" LASTOP = OPERATOR; // 2261 C=PRECEDENCE(OPERATOR) #line 2261 "regression-compile-tmp/allimpc1-77.imp" C = (PRECEDENCE-1)[OPERATOR]; // 2262 L51: ->L52 %IF C>OPPREC(QP-1); !OPERATOR MAY BE STORED #line 2262 "regression-compile-tmp/allimpc1-77.imp" U_108d:; #line 2262 "regression-compile-tmp/allimpc1-77.imp" if (((C) <= (OPPREC[(((int)(QP)) - (1))]))) goto L_02a7; #line 2262 "regression-compile-tmp/allimpc1-77.imp" goto U_108e; #line 2262 "regression-compile-tmp/allimpc1-77.imp" L_02a7:; // 2263 QP=QP-1 #line 2263 "regression-compile-tmp/allimpc1-77.imp" QP = (((int)(QP)) - (1)); // 2264 ST(N0)=OP(QP) #line 2264 "regression-compile-tmp/allimpc1-77.imp" ST[N0] = OP[QP]; // 2265 N0=N0+3; ->L51; !UNLOAD STACK #line 2265 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (3)); #line 2265 "regression-compile-tmp/allimpc1-77.imp" goto U_108d; // 2266 L52: OP(QP)=10+OPERATOR #line 2266 "regression-compile-tmp/allimpc1-77.imp" U_108e:; #line 2266 "regression-compile-tmp/allimpc1-77.imp" OP[QP] = (((int)(10)) + (OPERATOR)); // 2267 OPPREC(QP)=C; ->L1; !FOR NEXT OPERAND #line 2267 "regression-compile-tmp/allimpc1-77.imp" OPPREC[QP] = C; #line 2267 "regression-compile-tmp/allimpc1-77.imp" goto U_1075; // 2268 L60: %COMMENT - END OF EXPRESSION #line 2268 "regression-compile-tmp/allimpc1-77.imp" U_108c:; // 2269 %CYCLE JJ=QP-1,-1,0 #line 2269 "regression-compile-tmp/allimpc1-77.imp" JJ = (((unsigned char)((((int)(QP)) - (1)))) + (1)); if ((((0)-((((int)(QP)) - (1)))) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = (((int)(QP)) - (1)), (-1), 0"); L_02a8:; if (JJ == 0) goto L_02a9; JJ += (-1); // 2270 ST(N0)=OP(JJ) #line 2270 "regression-compile-tmp/allimpc1-77.imp" ST[N0] = OP[JJ]; // 2271 N0=N0+3; %REPEAT; !EMPTY OPERATOR STACK #line 2271 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (3)); #line 2271 "regression-compile-tmp/allimpc1-77.imp" goto L_02a8; #line 2271 "regression-compile-tmp/allimpc1-77.imp" L_02a9:; // 2272 REAL=1 %IF MODE#1 %AND REALOP=1 #line 2272 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) == (1))) goto L_02ab; #line 2272 "regression-compile-tmp/allimpc1-77.imp" if (((REALOP) != (1))) goto L_02ab; #line 2272 "regression-compile-tmp/allimpc1-77.imp" REAL = 1; #line 2272 "regression-compile-tmp/allimpc1-77.imp" L_02ab:; // 2273 ->L70 %IF REAL=1 #line 2273 "regression-compile-tmp/allimpc1-77.imp" if (((REAL) != (1))) goto L_02ac; #line 2273 "regression-compile-tmp/allimpc1-77.imp" goto U_108f; #line 2273 "regression-compile-tmp/allimpc1-77.imp" L_02ac:; // 2274 %COMMENT - CAN EVALUATE AS INTEGER // 2275 PRINT ORDERS #line 2275 "regression-compile-tmp/allimpc1-77.imp" PRINTORDERS(); // 2276 L61: ->L71 %IF MODE>=2 #line 2276 "regression-compile-tmp/allimpc1-77.imp" U_1090:; #line 2276 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) < (2))) goto L_02ad; #line 2276 "regression-compile-tmp/allimpc1-77.imp" goto U_1091; #line 2276 "regression-compile-tmp/allimpc1-77.imp" L_02ad:; // 2277 L72: D=1; REG=REG-1 %IF 0>=REG #line 2277 "regression-compile-tmp/allimpc1-77.imp" U_1092:; #line 2277 "regression-compile-tmp/allimpc1-77.imp" D = 1; #line 2277 "regression-compile-tmp/allimpc1-77.imp" if (((0) < (REG))) goto L_02ae; #line 2277 "regression-compile-tmp/allimpc1-77.imp" REG = (((int)(REG)) - (1)); #line 2277 "regression-compile-tmp/allimpc1-77.imp" L_02ae:; // 2278 LOAD(D,REG,REAL) %UNLESS REAL=0 %AND 0>REG %AND DP(1)<0 %C #line 2278 "regression-compile-tmp/allimpc1-77.imp" if (((REAL) != (0))) goto L_02aa; #line 2278 "regression-compile-tmp/allimpc1-77.imp" if (((0) <= (REG))) goto L_02aa; #line 2278 "regression-compile-tmp/allimpc1-77.imp" if (((DP[0]) >= (0))) goto L_02aa; #line 2278 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[BS[0]]) < (0))) goto L_02af; #line 2278 "regression-compile-tmp/allimpc1-77.imp" L_02aa:; #line 2278 "regression-compile-tmp/allimpc1-77.imp" LOAD(&D, REG, REAL); #line 2278 "regression-compile-tmp/allimpc1-77.imp" L_02af:; // 2279 %AND REGISTER(BS(1))<0; ! RESULT IN LOCKED REG // 2280 NEST=BS(1) #line 2280 "regression-compile-tmp/allimpc1-77.imp" NEST = BS[0]; // 2281 %IF REAL=1 %THEN FREG(NEST)=0 %ELSE %START #line 2281 "regression-compile-tmp/allimpc1-77.imp" if (((REAL) != (1))) goto L_02b0; #line 2281 "regression-compile-tmp/allimpc1-77.imp" FREG[NEST] = 0; #line 2281 "regression-compile-tmp/allimpc1-77.imp" goto L_02b1; #line 2281 "regression-compile-tmp/allimpc1-77.imp" L_02b0:; // 2282 REGISTER(NEST)=0 %IF REGISTER(NEST)>0; %FINISH #line 2282 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[NEST]) <= (0))) goto L_02b2; #line 2282 "regression-compile-tmp/allimpc1-77.imp" REGISTER[NEST] = 0; #line 2282 "regression-compile-tmp/allimpc1-77.imp" L_02b2:; #line 2282 "regression-compile-tmp/allimpc1-77.imp" L_02b1:; // 2283 PTYPE=1+30*LONGREAL+REAL #line 2283 "regression-compile-tmp/allimpc1-77.imp" PTYPE = (((unsigned char)(((1) + ((int)(((30) * ((int)(LONGREAL)))))))) + (REAL)); // 2284 N0=NOP; UNPACK; ->L99 #line 2284 "regression-compile-tmp/allimpc1-77.imp" N0 = NOP; #line 2284 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); #line 2284 "regression-compile-tmp/allimpc1-77.imp" goto U_1093; // 2285 L70: %COMMENT EVALUATE AS REAL #line 2285 "regression-compile-tmp/allimpc1-77.imp" U_108f:; // 2286 FAULT(24) %IF MODE=1; ! REAL IN INTEGER EXPRN #line 2286 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (1))) goto L_02b3; #line 2286 "regression-compile-tmp/allimpc1-77.imp" FAULT(24); #line 2286 "regression-compile-tmp/allimpc1-77.imp" L_02b3:; // 2287 LONGREAL=1 %IF MODE=3 #line 2287 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (3))) goto L_02b4; #line 2287 "regression-compile-tmp/allimpc1-77.imp" LONGREAL = 1; #line 2287 "regression-compile-tmp/allimpc1-77.imp" L_02b4:; // 2288 EVALUATE=16*LONGREAL #line 2288 "regression-compile-tmp/allimpc1-77.imp" EVALUATE = ((16) * ((int)(LONGREAL))); // 2289 PRINT ORDERS #line 2289 "regression-compile-tmp/allimpc1-77.imp" PRINTORDERS(); // 2290 ->L72 #line 2290 "regression-compile-tmp/allimpc1-77.imp" goto U_1092; // 2291 L71: LONGREAL=1 %IF MODE=3 #line 2291 "regression-compile-tmp/allimpc1-77.imp" U_1091:; #line 2291 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (3))) goto L_02b5; #line 2291 "regression-compile-tmp/allimpc1-77.imp" LONGREAL = 1; #line 2291 "regression-compile-tmp/allimpc1-77.imp" L_02b5:; // 2292 REAL=1 #line 2292 "regression-compile-tmp/allimpc1-77.imp" REAL = 1; // 2293 EVALUATE=16*LONGREAL #line 2293 "regression-compile-tmp/allimpc1-77.imp" EVALUATE = ((16) * ((int)(LONGREAL))); // 2294 ->L72 #line 2294 "regression-compile-tmp/allimpc1-77.imp" goto U_1092; // 2295 L80: %COMMENT SINGLE OPERAND EXPRESSION #line 2295 "regression-compile-tmp/allimpc1-77.imp" U_107f:; // 2296 BS(1)=NEST; DP(1)=-1 #line 2296 "regression-compile-tmp/allimpc1-77.imp" BS[0] = NEST; #line 2296 "regression-compile-tmp/allimpc1-77.imp" DP[0] = (-1); // 2297 PT(1)=PREC<<3!TYPE #line 2297 "regression-compile-tmp/allimpc1-77.imp" PT[0] = ((((PREC) << (3))) | (TYPE)); // 2298 AFLAG=0; P=P+1 #line 2298 "regression-compile-tmp/allimpc1-77.imp" AFLAG = 0; #line 2298 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 2299 FAULT(24) %IF TYPE=2 %AND MODE=1 #line 2299 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_02b6; #line 2299 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (1))) goto L_02b6; #line 2299 "regression-compile-tmp/allimpc1-77.imp" FAULT(24); #line 2299 "regression-compile-tmp/allimpc1-77.imp" L_02b6:; // 2300 ->L61 %IF TYPE=1; ->L71 #line 2300 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (1))) goto L_02b7; #line 2300 "regression-compile-tmp/allimpc1-77.imp" goto U_1090; #line 2300 "regression-compile-tmp/allimpc1-77.imp" L_02b7:; #line 2300 "regression-compile-tmp/allimpc1-77.imp" goto U_1091; // 2301 L99: %END;->L99 #line 2301 "regression-compile-tmp/allimpc1-77.imp" U_1093:; #line 2301 "regression-compile-tmp/allimpc1-77.imp" return; } // End of block _BLOCK_5_LEVEL_3_ at level 4 _BLOCK_5_LEVEL_3_(); #line 2301 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; // 2302 %INTEGERFN FINDR #line 2302 "regression-compile-tmp/allimpc1-77.imp" int FINDR( void ) #line 2302 "regression-compile-tmp/allimpc1-77.imp" { // 2303 !%SHORTROUTINE // 2304 %INTEGER I #line 2304 "regression-compile-tmp/allimpc1-77.imp" int I; // 2305 ->L2 %IF 0>=REG #line 2305 "regression-compile-tmp/allimpc1-77.imp" if (((0) < (REG))) goto L_02b8; #line 2305 "regression-compile-tmp/allimpc1-77.imp" goto U_1074; #line 2305 "regression-compile-tmp/allimpc1-77.imp" L_02b8:; // 2306 I=REG; ->L1 %IF REGISTER(I)=0 #line 2306 "regression-compile-tmp/allimpc1-77.imp" I = REG; #line 2306 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[I]) != (0))) goto L_02b9; #line 2306 "regression-compile-tmp/allimpc1-77.imp" goto U_1075; #line 2306 "regression-compile-tmp/allimpc1-77.imp" L_02b9:; // 2307 L2: %CYCLE I=1,1,RBASE-1 #line 2307 "regression-compile-tmp/allimpc1-77.imp" U_1074:; #line 2307 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = (((int)(RBASE)) - (1)); I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, (((int)(RBASE)) - (1))"); I -= _increment; _control -= _increment; L_02ba:; if (I == _final) goto L_02bb; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 2308 ->L1 %IF REGISTER(I)=0 #line 2308 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[I]) != (0))) goto L_02bd; #line 2308 "regression-compile-tmp/allimpc1-77.imp" goto U_1075; #line 2308 "regression-compile-tmp/allimpc1-77.imp" L_02bd:; // 2309 %REPEAT; FAULT(241) #line 2309 "regression-compile-tmp/allimpc1-77.imp" goto L_02ba; #line 2309 "regression-compile-tmp/allimpc1-77.imp" L_02bb:; #line 2309 "regression-compile-tmp/allimpc1-77.imp" FAULT(241); // 2310 L1: REGISTER(I)=1; %RESULT=I; %END #line 2310 "regression-compile-tmp/allimpc1-77.imp" U_1075:; #line 2310 "regression-compile-tmp/allimpc1-77.imp" REGISTER[I] = 1; #line 2310 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return I; #line 2310 "regression-compile-tmp/allimpc1-77.imp" } // End of block FINDR at level 4 // 2311 %INTEGERFN FINDPR #line 2311 "regression-compile-tmp/allimpc1-77.imp" int FINDPR( void ) #line 2311 "regression-compile-tmp/allimpc1-77.imp" { // 2312 %INTEGER I #line 2312 "regression-compile-tmp/allimpc1-77.imp" int I; // 2313 %CYCLE I=0,2,6 #line 2313 "regression-compile-tmp/allimpc1-77.imp" I = (-2); if ((((6)-(0)) % (2)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 0, 2, 6"); L_02be:; if (I == 6) goto L_02bf; I += 2; // 2314 ->FOUND %IF REGISTER(I)=0 %AND REGISTER(I+1)=0 #line 2314 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[I]) != (0))) goto L_02c1; #line 2314 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[(((int)(I)) + (1))]) != (0))) goto L_02c1; #line 2314 "regression-compile-tmp/allimpc1-77.imp" goto U_1075; #line 2314 "regression-compile-tmp/allimpc1-77.imp" L_02c1:; // 2315 %REPEAT #line 2315 "regression-compile-tmp/allimpc1-77.imp" goto L_02be; #line 2315 "regression-compile-tmp/allimpc1-77.imp" L_02bf:; // 2316 FAULT(242) #line 2316 "regression-compile-tmp/allimpc1-77.imp" FAULT(242); // 2317 FOUND: REGISTER(I)=1 #line 2317 "regression-compile-tmp/allimpc1-77.imp" U_1075:; #line 2317 "regression-compile-tmp/allimpc1-77.imp" REGISTER[I] = 1; // 2318 REGISTER(I+1)=1 #line 2318 "regression-compile-tmp/allimpc1-77.imp" REGISTER[(((int)(I)) + (1))] = 1; // 2319 %RESULT=I #line 2319 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return I; // 2320 %END #line 2320 "regression-compile-tmp/allimpc1-77.imp" } // End of block FINDPR at level 4 // 2321 %INTEGERFN FIND FR #line 2321 "regression-compile-tmp/allimpc1-77.imp" int FINDFR( void ) #line 2321 "regression-compile-tmp/allimpc1-77.imp" { // 2322 !%SHORTROUTINE // 2323 %INTEGER I #line 2323 "regression-compile-tmp/allimpc1-77.imp" int I; // 2324 %CYCLE I=6,-2,0 #line 2324 "regression-compile-tmp/allimpc1-77.imp" I = 8; if ((((0)-(6)) % ((-2))) != 0) _imp_signal(5,1,0,"Illegal cycle I = 6, (-2), 0"); L_02c2:; if (I == 0) goto L_02c3; I += (-2); // 2325 ->L1 %IF FREG (I)=0 #line 2325 "regression-compile-tmp/allimpc1-77.imp" if (((FREG[I]) != (0))) goto L_02c5; #line 2325 "regression-compile-tmp/allimpc1-77.imp" goto U_1076; #line 2325 "regression-compile-tmp/allimpc1-77.imp" L_02c5:; // 2326 %REPEAT; FAULT(242) #line 2326 "regression-compile-tmp/allimpc1-77.imp" goto L_02c2; #line 2326 "regression-compile-tmp/allimpc1-77.imp" L_02c3:; #line 2326 "regression-compile-tmp/allimpc1-77.imp" FAULT(242); // 2327 L1: FREG(I)=1; %RESULT=I #line 2327 "regression-compile-tmp/allimpc1-77.imp" U_1076:; #line 2327 "regression-compile-tmp/allimpc1-77.imp" FREG[I] = 1; #line 2327 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return I; // 2328 %END #line 2328 "regression-compile-tmp/allimpc1-77.imp" } // End of block FINDFR at level 4 // 2329 %ROUTINE LOAD(%INTEGERNAME N,%INTEGER REG,MODE) #line 2329 "regression-compile-tmp/allimpc1-77.imp" void LOAD( int /*name*/*N, int REG, int MODE ) #line 2329 "regression-compile-tmp/allimpc1-77.imp" { // 2330 !%SHORTROUTINE // 2331 %INTEGER I,X #line 2331 "regression-compile-tmp/allimpc1-77.imp" int I; #line 2331 "regression-compile-tmp/allimpc1-77.imp" int X; // 2332 %INTEGERNAME BSI,DPI,PTI #line 2332 "regression-compile-tmp/allimpc1-77.imp" int /*name*/*BSI; #line 2332 "regression-compile-tmp/allimpc1-77.imp" int /*name*/*DPI; #line 2332 "regression-compile-tmp/allimpc1-77.imp" int /*name*/*PTI; // 2333 I=N; ->NOCHOICE %UNLESS I=0 #line 2333 "regression-compile-tmp/allimpc1-77.imp" I = *N; #line 2333 "regression-compile-tmp/allimpc1-77.imp" if (((I) == (0))) goto L_02c6; #line 2333 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; #line 2333 "regression-compile-tmp/allimpc1-77.imp" L_02c6:; // 2334 I=1; ->CHOSEN %IF DP(1)<0 %AND REGISTER(BS(1))>=0 #line 2334 "regression-compile-tmp/allimpc1-77.imp" I = 1; #line 2334 "regression-compile-tmp/allimpc1-77.imp" if (((DP[0]) >= (0))) goto L_02c7; #line 2334 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[BS[0]]) < (0))) goto L_02c7; #line 2334 "regression-compile-tmp/allimpc1-77.imp" goto U_1080; #line 2334 "regression-compile-tmp/allimpc1-77.imp" L_02c7:; // 2335 I=2; ->CHOSEN %IF DP(2)<0 %AND REGISTER(BS(2))>=0 #line 2335 "regression-compile-tmp/allimpc1-77.imp" I = 2; #line 2335 "regression-compile-tmp/allimpc1-77.imp" if (((DP[1]) >= (0))) goto L_02c8; #line 2335 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[BS[1]]) < (0))) goto L_02c8; #line 2335 "regression-compile-tmp/allimpc1-77.imp" goto U_1080; #line 2335 "regression-compile-tmp/allimpc1-77.imp" L_02c8:; // 2336 ->CHOSEN %IF MODE=0 %AND (PT(2)=255 %OR PT(2)&24=8) #line 2336 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (0))) goto L_02c9; #line 2336 "regression-compile-tmp/allimpc1-77.imp" if (((PT[1]) == (255))) goto L_02c4; #line 2336 "regression-compile-tmp/allimpc1-77.imp" if (((((PT[1]) & (24))) != (8))) goto L_02c9; #line 2336 "regression-compile-tmp/allimpc1-77.imp" L_02c4:; #line 2336 "regression-compile-tmp/allimpc1-77.imp" goto U_1080; #line 2336 "regression-compile-tmp/allimpc1-77.imp" L_02c9:; // 2337 ->CHOSEN %IF MODE=1 %AND (PT(2)&7=1 %OR (EVALUATE>0 %AND %C #line 2337 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (1))) goto L_02ca; #line 2337 "regression-compile-tmp/allimpc1-77.imp" if (((((PT[1]) & (7))) == (1))) goto L_02cb; #line 2337 "regression-compile-tmp/allimpc1-77.imp" if (((EVALUATE) <= (0))) goto L_02ca; #line 2337 "regression-compile-tmp/allimpc1-77.imp" if (((((PT[1]) & (24))) != (0))) goto L_02ca; #line 2337 "regression-compile-tmp/allimpc1-77.imp" L_02cb:; #line 2337 "regression-compile-tmp/allimpc1-77.imp" goto U_1080; #line 2337 "regression-compile-tmp/allimpc1-77.imp" L_02ca:; // 2338 PT(2)&24=0)); I=1 #line 2338 "regression-compile-tmp/allimpc1-77.imp" I = 1; // 2339 CHOSEN: N=I #line 2339 "regression-compile-tmp/allimpc1-77.imp" U_1080:; #line 2339 "regression-compile-tmp/allimpc1-77.imp" *N = I; // 2340 NOCHOICE:BSI==BS(I);DPI==DP(I);PTI==PT(I) #line 2340 "regression-compile-tmp/allimpc1-77.imp" U_107f:; #line 2340 "regression-compile-tmp/allimpc1-77.imp" BSI = &BS[(((int)(I)) - (1))]; #line 2340 "regression-compile-tmp/allimpc1-77.imp" DPI = &DP[(((int)(I)) - (1))]; #line 2340 "regression-compile-tmp/allimpc1-77.imp" PTI = &PT[(((int)(I)) - (1))]; // 2341 ->SHORT CONST %IF MODE=0 %AND PTI=255 #line 2341 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (0))) goto L_02cc; #line 2341 "regression-compile-tmp/allimpc1-77.imp" if (((*PTI) != (255))) goto L_02cc; #line 2341 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; #line 2341 "regression-compile-tmp/allimpc1-77.imp" L_02cc:; // 2342 TEST(I) %IF MODE=1 %OR PTI&64#0 #line 2342 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) == (1))) goto L_02cd; #line 2342 "regression-compile-tmp/allimpc1-77.imp" if (((((*PTI) & (64))) == (0))) goto L_02ce; #line 2342 "regression-compile-tmp/allimpc1-77.imp" L_02cd:; #line 2342 "regression-compile-tmp/allimpc1-77.imp" TEST(I); #line 2342 "regression-compile-tmp/allimpc1-77.imp" L_02ce:; // 2343 ->INREG %IF DPI<0 #line 2343 "regression-compile-tmp/allimpc1-77.imp" if (((*DPI) >= (0))) goto L_02cf; #line 2343 "regression-compile-tmp/allimpc1-77.imp" goto U_1082; #line 2343 "regression-compile-tmp/allimpc1-77.imp" L_02cf:; // 2344 ->NOFIND %IF REG>=0 #line 2344 "regression-compile-tmp/allimpc1-77.imp" if (((REG) < (0))) goto L_02d0; #line 2344 "regression-compile-tmp/allimpc1-77.imp" goto U_1083; #line 2344 "regression-compile-tmp/allimpc1-77.imp" L_02d0:; // 2345 %IF MODE=0 %THEN REG=FINDR %ELSE REG=FINDFR #line 2345 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (0))) goto L_02d1; #line 2345 "regression-compile-tmp/allimpc1-77.imp" REG = FINDR(); #line 2345 "regression-compile-tmp/allimpc1-77.imp" goto L_02d2; #line 2345 "regression-compile-tmp/allimpc1-77.imp" L_02d1:; #line 2345 "regression-compile-tmp/allimpc1-77.imp" REG = FINDFR(); #line 2345 "regression-compile-tmp/allimpc1-77.imp" L_02d2:; // 2346 NOFIND: X=MODE<<3! (PTI>>2&6)+2 #line 2346 "regression-compile-tmp/allimpc1-77.imp" U_1083:; #line 2346 "regression-compile-tmp/allimpc1-77.imp" X = (((int)(((((MODE) << (3))) | ((((int)(((*(unsigned int *)(PTI)) >> (2)))) & (6)))))) + (2)); // 2347 DUMP(X,REG,DPI,0,BSI) ; ->L98 ;! PICK UP VARIABLE #line 2347 "regression-compile-tmp/allimpc1-77.imp" DUMP(X, REG, *DPI, 0, *BSI); #line 2347 "regression-compile-tmp/allimpc1-77.imp" goto U_1084; // 2348 INREG: ->L90 %IF MODE=1 #line 2348 "regression-compile-tmp/allimpc1-77.imp" U_1082:; #line 2348 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (1))) goto L_02d3; #line 2348 "regression-compile-tmp/allimpc1-77.imp" goto U_1085; #line 2348 "regression-compile-tmp/allimpc1-77.imp" L_02d3:; // 2349 ->L99 %IF BSI=REG #line 2349 "regression-compile-tmp/allimpc1-77.imp" if (((*BSI) != (REG))) goto L_02d4; #line 2349 "regression-compile-tmp/allimpc1-77.imp" goto U_1086; #line 2349 "regression-compile-tmp/allimpc1-77.imp" L_02d4:; // 2350 ->LOCKED %IF REGISTER(BSI)<0 #line 2350 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[*BSI]) >= (0))) goto L_02d5; #line 2350 "regression-compile-tmp/allimpc1-77.imp" goto U_1087; #line 2350 "regression-compile-tmp/allimpc1-77.imp" L_02d5:; // 2351 ->L99 %IF 0>REG #line 2351 "regression-compile-tmp/allimpc1-77.imp" if (((0) <= (REG))) goto L_02d6; #line 2351 "regression-compile-tmp/allimpc1-77.imp" goto U_1086; #line 2351 "regression-compile-tmp/allimpc1-77.imp" L_02d6:; // 2352 REGISTER(BSI)=0 #line 2352 "regression-compile-tmp/allimpc1-77.imp" REGISTER[*BSI] = 0; // 2353 SWOP: PRR(X'18',REG,BSI); ->L98 #line 2353 "regression-compile-tmp/allimpc1-77.imp" U_1088:; #line 2353 "regression-compile-tmp/allimpc1-77.imp" PRR(24, REG, *BSI); #line 2353 "regression-compile-tmp/allimpc1-77.imp" goto U_1084; // 2354 LOCKED: REG=FINDR %IF 0>REG; ->SWOP #line 2354 "regression-compile-tmp/allimpc1-77.imp" U_1087:; #line 2354 "regression-compile-tmp/allimpc1-77.imp" if (((0) <= (REG))) goto L_02d7; #line 2354 "regression-compile-tmp/allimpc1-77.imp" REG = FINDR(); #line 2354 "regression-compile-tmp/allimpc1-77.imp" L_02d7:; #line 2354 "regression-compile-tmp/allimpc1-77.imp" goto U_1088; // 2355 L90: ->L91 %IF BSI=0; !CURRENTLY CAN LEAVE NOTHING INFR0 #line 2355 "regression-compile-tmp/allimpc1-77.imp" U_1085:; #line 2355 "regression-compile-tmp/allimpc1-77.imp" if (((*BSI) != (0))) goto L_02d8; #line 2355 "regression-compile-tmp/allimpc1-77.imp" goto U_1089; #line 2355 "regression-compile-tmp/allimpc1-77.imp" L_02d8:; // 2356 ->L99 %IF BSI=REG %OR 0>REG #line 2356 "regression-compile-tmp/allimpc1-77.imp" if (((*BSI) == (REG))) goto L_02d9; #line 2356 "regression-compile-tmp/allimpc1-77.imp" if (((0) <= (REG))) goto L_02da; #line 2356 "regression-compile-tmp/allimpc1-77.imp" L_02d9:; #line 2356 "regression-compile-tmp/allimpc1-77.imp" goto U_1086; #line 2356 "regression-compile-tmp/allimpc1-77.imp" L_02da:; // 2357 L91: #line 2357 "regression-compile-tmp/allimpc1-77.imp" U_1089:; // 2358 REG=FINDFR %IF 0>REG #line 2358 "regression-compile-tmp/allimpc1-77.imp" if (((0) <= (REG))) goto L_02db; #line 2358 "regression-compile-tmp/allimpc1-77.imp" REG = FINDFR(); #line 2358 "regression-compile-tmp/allimpc1-77.imp" L_02db:; // 2359 PRR(X'38'-EVALUATE,REG,BSI) #line 2359 "regression-compile-tmp/allimpc1-77.imp" PRR((((int)(56)) - (EVALUATE)), REG, *BSI); // 2360 FREG(BSI)=0; ->L98 #line 2360 "regression-compile-tmp/allimpc1-77.imp" FREG[*BSI] = 0; #line 2360 "regression-compile-tmp/allimpc1-77.imp" goto U_1084; // 2361 SHORT CONST: REG=FINDR %IF 0>REG #line 2361 "regression-compile-tmp/allimpc1-77.imp" U_1081:; #line 2361 "regression-compile-tmp/allimpc1-77.imp" if (((0) <= (REG))) goto L_02dc; #line 2361 "regression-compile-tmp/allimpc1-77.imp" REG = FINDR(); #line 2361 "regression-compile-tmp/allimpc1-77.imp" L_02dc:; // 2362 DUMP(0,REG,DPI,0,0); !LOAD ADDRESS #line 2362 "regression-compile-tmp/allimpc1-77.imp" DUMP(0, REG, *DPI, 0, 0); // 2363 L98: BSI=REG; DPI=-2 #line 2363 "regression-compile-tmp/allimpc1-77.imp" U_1084:; #line 2363 "regression-compile-tmp/allimpc1-77.imp" *BSI = REG; #line 2363 "regression-compile-tmp/allimpc1-77.imp" *DPI = (-2); // 2364 L99: %END #line 2364 "regression-compile-tmp/allimpc1-77.imp" U_1086:; #line 2364 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block LOAD at level 4 // 2365 %ROUTINE PLANT(%INTEGER OPCODE,R1,R2) #line 2365 "regression-compile-tmp/allimpc1-77.imp" void PLANT( int OPCODE, int R1, int R2 ) #line 2365 "regression-compile-tmp/allimpc1-77.imp" { // 2366 !%SHORTROUTINE // 2367 %INTEGER BSR2 #line 2367 "regression-compile-tmp/allimpc1-77.imp" int BSR2; // 2368 BSR2=BS(R2);R1=BS(R1) #line 2368 "regression-compile-tmp/allimpc1-77.imp" BSR2 = BS[(((int)(R2)) - (1))]; #line 2368 "regression-compile-tmp/allimpc1-77.imp" R1 = BS[(((int)(R1)) - (1))]; // 2369 ->RROP %IF DP(R2)<0 #line 2369 "regression-compile-tmp/allimpc1-77.imp" if (((DP[(((int)(R2)) - (1))]) >= (0))) goto L_02dd; #line 2369 "regression-compile-tmp/allimpc1-77.imp" goto U_107b; #line 2369 "regression-compile-tmp/allimpc1-77.imp" L_02dd:; // 2370 %IF PT(R2)&24=16 %AND X'5A'<=OPCODE<=X'5B' %THEN %C #line 2370 "regression-compile-tmp/allimpc1-77.imp" if (((((PT[(((int)(R2)) - (1))]) & (24))) != (16))) goto L_02de; #line 2370 "regression-compile-tmp/allimpc1-77.imp" if ((((90) > (OPCODE))) || (((OPCODE) > (91)))) goto L_02de; #line 2370 "regression-compile-tmp/allimpc1-77.imp" OPCODE = (((int)(OPCODE)) - (16)); #line 2370 "regression-compile-tmp/allimpc1-77.imp" L_02de:; // 2371 OPCODE=OPCODE-16; ! CAN PLANT HALF LENGTH OP // 2372 PRX(OPCODE,R1,0,BSR2,DP(R2));->L99 #line 2372 "regression-compile-tmp/allimpc1-77.imp" PRX(OPCODE, R1, 0, BSR2, DP[(((int)(R2)) - (1))]); #line 2372 "regression-compile-tmp/allimpc1-77.imp" goto U_107c; // 2373 RROP: PRR(OPCODE-64,R1,BSR2) #line 2373 "regression-compile-tmp/allimpc1-77.imp" U_107b:; #line 2373 "regression-compile-tmp/allimpc1-77.imp" PRR((((int)(OPCODE)) - (64)), R1, BSR2); // 2374 %IF REAL=1 %THEN FREG(BSR2)=0 #line 2374 "regression-compile-tmp/allimpc1-77.imp" if (((REAL) != (1))) goto L_02df; #line 2374 "regression-compile-tmp/allimpc1-77.imp" FREG[BSR2] = 0; #line 2374 "regression-compile-tmp/allimpc1-77.imp" L_02df:; // 2375 %IF REAL=0 %AND REGISTER(BSR2)>0 %THEN REGISTER(BSR2)=0 #line 2375 "regression-compile-tmp/allimpc1-77.imp" if (((REAL) != (0))) goto L_02e0; #line 2375 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[BSR2]) <= (0))) goto L_02e0; #line 2375 "regression-compile-tmp/allimpc1-77.imp" REGISTER[BSR2] = 0; #line 2375 "regression-compile-tmp/allimpc1-77.imp" L_02e0:; // 2376 L99: %END #line 2376 "regression-compile-tmp/allimpc1-77.imp" U_107c:; #line 2376 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PLANT at level 4 // 2377 %ROUTINE TEST(%INTEGER N) #line 2377 "regression-compile-tmp/allimpc1-77.imp" void TEST( int N ) #line 2377 "regression-compile-tmp/allimpc1-77.imp" { // 2378 !%SHORTROUTINE // 2379 %COMMENT INSPECTS OPERAND - MAKES TYPE CONVERSIONS ETC. // 2380 %INTEGER X #line 2380 "regression-compile-tmp/allimpc1-77.imp" int X; // 2381 %INTEGERNAME LBASE,LDISP,LPTYPE #line 2381 "regression-compile-tmp/allimpc1-77.imp" int /*name*/*LBASE; #line 2381 "regression-compile-tmp/allimpc1-77.imp" int /*name*/*LDISP; #line 2381 "regression-compile-tmp/allimpc1-77.imp" int /*name*/*LPTYPE; // 2382 %BYTEINTEGER LPREC #line 2382 "regression-compile-tmp/allimpc1-77.imp" unsigned char LPREC; // 2383 LPTYPE==PT(N); LDISP==DP(N) #line 2383 "regression-compile-tmp/allimpc1-77.imp" LPTYPE = &PT[(((int)(N)) - (1))]; #line 2383 "regression-compile-tmp/allimpc1-77.imp" LDISP = &DP[(((int)(N)) - (1))]; // 2384 LBASE==BS(N); LPREC=LPTYPE>>3&3 #line 2384 "regression-compile-tmp/allimpc1-77.imp" LBASE = &BS[(((int)(N)) - (1))]; #line 2384 "regression-compile-tmp/allimpc1-77.imp" LPREC = (((int)(((*(unsigned int *)(LPTYPE)) >> (3)))) & (3)); // 2385 ->SHORTCONST %IF LPTYPE=255 #line 2385 "regression-compile-tmp/allimpc1-77.imp" if (((*LPTYPE) != (255))) goto L_02e1; #line 2385 "regression-compile-tmp/allimpc1-77.imp" goto U_107d; #line 2385 "regression-compile-tmp/allimpc1-77.imp" L_02e1:; // 2386 ->START %UNLESS LPTYPE&64 #0 ;! GO UNLESS NAME TYPE #line 2386 "regression-compile-tmp/allimpc1-77.imp" if (((((*LPTYPE) & (64))) != (0))) goto L_02e2; #line 2386 "regression-compile-tmp/allimpc1-77.imp" goto U_107e; #line 2386 "regression-compile-tmp/allimpc1-77.imp" L_02e2:; // 2387 RP13=R13;R13=LBASE<<12!LDISP #line 2387 "regression-compile-tmp/allimpc1-77.imp" RP13 = R13; #line 2387 "regression-compile-tmp/allimpc1-77.imp" R13 = ((((*LBASE) << (12))) | (*LDISP)); // 2388 PRX(X'58',LINK,0,LBASE,LDISP) %UNLESS R13=RP13 #line 2388 "regression-compile-tmp/allimpc1-77.imp" if (((R13) == (RP13))) goto L_02e3; #line 2388 "regression-compile-tmp/allimpc1-77.imp" PRX(88, LINK, 0, *LBASE, *LDISP); #line 2388 "regression-compile-tmp/allimpc1-77.imp" L_02e3:; // 2389 LPTYPE=LPTYPE&31; LBASE=LINK;LDISP=0 #line 2389 "regression-compile-tmp/allimpc1-77.imp" *LPTYPE = ((*LPTYPE) & (31)); #line 2389 "regression-compile-tmp/allimpc1-77.imp" *LBASE = LINK; #line 2389 "regression-compile-tmp/allimpc1-77.imp" *LDISP = 0; // 2390 START: ->FLOATING %IF REAL#0 #line 2390 "regression-compile-tmp/allimpc1-77.imp" U_107e:; #line 2390 "regression-compile-tmp/allimpc1-77.imp" if (((REAL) == (0))) goto L_02e4; #line 2390 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; #line 2390 "regression-compile-tmp/allimpc1-77.imp" L_02e4:; // 2391 ->FINISH %IF LPREC=0 %OR (LPREC=2 %AND 12<=OPCODE<=13) #line 2391 "regression-compile-tmp/allimpc1-77.imp" if (((LPREC) == (0))) goto L_02e5; #line 2391 "regression-compile-tmp/allimpc1-77.imp" if (((LPREC) != (2))) goto L_02e6; #line 2391 "regression-compile-tmp/allimpc1-77.imp" if ((((12) > (OPCODE))) || (((OPCODE) > (13)))) goto L_02e6; #line 2391 "regression-compile-tmp/allimpc1-77.imp" L_02e5:; #line 2391 "regression-compile-tmp/allimpc1-77.imp" goto U_1080; #line 2391 "regression-compile-tmp/allimpc1-77.imp" L_02e6:; // 2392 PICKUP: LOAD(N,-1,0) #line 2392 "regression-compile-tmp/allimpc1-77.imp" U_1081:; #line 2392 "regression-compile-tmp/allimpc1-77.imp" LOAD(&N, (-1), 0); // 2393 LPREC=0; ->FINISH #line 2393 "regression-compile-tmp/allimpc1-77.imp" LPREC = 0; #line 2393 "regression-compile-tmp/allimpc1-77.imp" goto U_1080; // 2394 SHORTCONST: LPREC=0; ->PICK UP %IF REAL=0 #line 2394 "regression-compile-tmp/allimpc1-77.imp" U_107d:; #line 2394 "regression-compile-tmp/allimpc1-77.imp" LPREC = 0; #line 2394 "regression-compile-tmp/allimpc1-77.imp" if (((REAL) != (0))) goto L_02e7; #line 2394 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; #line 2394 "regression-compile-tmp/allimpc1-77.imp" L_02e7:; // 2395 ->INGLA %IF 0<=LDISP<=2;! THESE 3 ALWAYS IN THE GLA #line 2395 "regression-compile-tmp/allimpc1-77.imp" if ((((0) > (*LDISP))) || (((*LDISP) > (2)))) goto L_02e8; #line 2395 "regression-compile-tmp/allimpc1-77.imp" goto U_1082; #line 2395 "regression-compile-tmp/allimpc1-77.imp" L_02e8:; // 2396 A(-2)=9; A(-1)=LDISP #line 2396 "regression-compile-tmp/allimpc1-77.imp" A[0] = 9; #line 2396 "regression-compile-tmp/allimpc1-77.imp" A[1] = *LDISP; // 2397 LDISP= SORT CONST(-2,LONGREAL,2);! COMPILE TIME FLOAT #line 2397 "regression-compile-tmp/allimpc1-77.imp" *LDISP = SORTCONST((-2), LONGREAL, 2); // 2398 L1: LBASE=GLA; ->FINISH #line 2398 "regression-compile-tmp/allimpc1-77.imp" U_1083:; #line 2398 "regression-compile-tmp/allimpc1-77.imp" *LBASE = GLA; #line 2398 "regression-compile-tmp/allimpc1-77.imp" goto U_1080; // 2399 INGLA: LDISP= 8*LDISP+40; ->L1 #line 2399 "regression-compile-tmp/allimpc1-77.imp" U_1082:; #line 2399 "regression-compile-tmp/allimpc1-77.imp" *LDISP = (((int)((((int)(8)) * (*LDISP)))) + (40)); #line 2399 "regression-compile-tmp/allimpc1-77.imp" goto U_1083; // 2400 FLOATING:->FLOAT IT %IF LPTYPE&7=1 ;! INTEGER - RUN TIME FLOAT #line 2400 "regression-compile-tmp/allimpc1-77.imp" U_107f:; #line 2400 "regression-compile-tmp/allimpc1-77.imp" if (((((*LPTYPE) & (7))) != (1))) goto L_02e9; #line 2400 "regression-compile-tmp/allimpc1-77.imp" goto U_1084; #line 2400 "regression-compile-tmp/allimpc1-77.imp" L_02e9:; // 2401 ->FINISH %IF LPREC=3 %OR EVALUATE=0 #line 2401 "regression-compile-tmp/allimpc1-77.imp" if (((LPREC) == (3))) goto L_02ea; #line 2401 "regression-compile-tmp/allimpc1-77.imp" if (((EVALUATE) != (0))) goto L_02eb; #line 2401 "regression-compile-tmp/allimpc1-77.imp" L_02ea:; #line 2401 "regression-compile-tmp/allimpc1-77.imp" goto U_1080; #line 2401 "regression-compile-tmp/allimpc1-77.imp" L_02eb:; // 2402 %COMMENT MUST STRETCH A 32 BIT REAL // 2403 FREG(LBASE)=1 %IF LDISP<0 #line 2403 "regression-compile-tmp/allimpc1-77.imp" if (((*LDISP) >= (0))) goto L_02ec; #line 2403 "regression-compile-tmp/allimpc1-77.imp" FREG[*LBASE] = 1; #line 2403 "regression-compile-tmp/allimpc1-77.imp" L_02ec:; // 2404 X=FINDFR;PRR(X'2B',X,X); !FIND AND CLEAR REGISTER #line 2404 "regression-compile-tmp/allimpc1-77.imp" X = FINDFR(); #line 2404 "regression-compile-tmp/allimpc1-77.imp" PRR(43, X, X); // 2405 %IF LDISP<0 %THEN %START #line 2405 "regression-compile-tmp/allimpc1-77.imp" if (((*LDISP) >= (0))) goto L_02ed; // 2406 PRR(X'38',X,LBASE); ! LER_X,LBASE #line 2406 "regression-compile-tmp/allimpc1-77.imp" PRR(56, X, *LBASE); // 2407 FREG(LBASE)=0; #line 2407 "regression-compile-tmp/allimpc1-77.imp" FREG[*LBASE] = 0; // 2408 %FINISH %ELSE PRX(X'78',X,0,LBASE,LDISP) #line 2408 "regression-compile-tmp/allimpc1-77.imp" goto L_02ee; #line 2408 "regression-compile-tmp/allimpc1-77.imp" L_02ed:; #line 2408 "regression-compile-tmp/allimpc1-77.imp" PRX(120, X, 0, *LBASE, *LDISP); #line 2408 "regression-compile-tmp/allimpc1-77.imp" L_02ee:; // 2409 LBASE=X;LDISP=-2; ->FINISH #line 2409 "regression-compile-tmp/allimpc1-77.imp" *LBASE = X; #line 2409 "regression-compile-tmp/allimpc1-77.imp" *LDISP = (-2); #line 2409 "regression-compile-tmp/allimpc1-77.imp" goto U_1080; // 2410 FLOATIT: LOAD(N,1,0);PPJ(43); REGISTER(1)=0 #line 2410 "regression-compile-tmp/allimpc1-77.imp" U_1084:; #line 2410 "regression-compile-tmp/allimpc1-77.imp" LOAD(&N, 1, 0); #line 2410 "regression-compile-tmp/allimpc1-77.imp" PPJ(43); #line 2410 "regression-compile-tmp/allimpc1-77.imp" REGISTER[1] = 0; // 2411 LBASE=0; LDISP=-2 #line 2411 "regression-compile-tmp/allimpc1-77.imp" *LBASE = 0; #line 2411 "regression-compile-tmp/allimpc1-77.imp" *LDISP = (-2); // 2412 FINISH: LPTYPE=(1+REAL)!LPREC<<3 #line 2412 "regression-compile-tmp/allimpc1-77.imp" U_1080:; #line 2412 "regression-compile-tmp/allimpc1-77.imp" *LPTYPE = ((((1) + ((int)(REAL)))) | (((LPREC) << (3)))); // 2413 %IF LONGREAL=1 %AND REAL=1 %THEN LPTYPE=LPTYPE!24 #line 2413 "regression-compile-tmp/allimpc1-77.imp" if (((LONGREAL) != (1))) goto L_02ef; #line 2413 "regression-compile-tmp/allimpc1-77.imp" if (((REAL) != (1))) goto L_02ef; #line 2413 "regression-compile-tmp/allimpc1-77.imp" *LPTYPE = ((*LPTYPE) | (24)); #line 2413 "regression-compile-tmp/allimpc1-77.imp" L_02ef:; // 2414 %END #line 2414 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block TEST at level 4 // 2415 %ROUTINE MULT(%INTEGERNAME RESULT) #line 2415 "regression-compile-tmp/allimpc1-77.imp" void MULT( int /*name*/*RESULT ) #line 2415 "regression-compile-tmp/allimpc1-77.imp" { // 2416 !%SHORTROUTINE // 2417 %INTEGER I,K #line 2417 "regression-compile-tmp/allimpc1-77.imp" int I; #line 2417 "regression-compile-tmp/allimpc1-77.imp" int K; // 2418 %CYCLE I=1,1,2 #line 2418 "regression-compile-tmp/allimpc1-77.imp" I = 0; if ((((2)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 2"); L_02f0:; if (I == 2) goto L_02f1; I += 1; // 2419 ->L30 %IF PT(I)=255 %AND DP(I)=2 #line 2419 "regression-compile-tmp/allimpc1-77.imp" if (((PT[(((int)(I)) - (1))]) != (255))) goto L_02f3; #line 2419 "regression-compile-tmp/allimpc1-77.imp" if (((DP[(((int)(I)) - (1))]) != (2))) goto L_02f3; #line 2419 "regression-compile-tmp/allimpc1-77.imp" goto U_107b; #line 2419 "regression-compile-tmp/allimpc1-77.imp" L_02f3:; // 2420 ->L1 %IF DP(I)<0 %AND REGISTER(BS(I))>=0 #line 2420 "regression-compile-tmp/allimpc1-77.imp" if (((DP[(((int)(I)) - (1))]) >= (0))) goto L_02f4; #line 2420 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[BS[(((int)(I)) - (1))]]) < (0))) goto L_02f4; #line 2420 "regression-compile-tmp/allimpc1-77.imp" goto U_107c; #line 2420 "regression-compile-tmp/allimpc1-77.imp" L_02f4:; // 2421 L5: %REPEAT #line 2421 "regression-compile-tmp/allimpc1-77.imp" U_107d:; #line 2421 "regression-compile-tmp/allimpc1-77.imp" goto L_02f0; #line 2421 "regression-compile-tmp/allimpc1-77.imp" L_02f1:; // 2422 I=1; K=FINDPR #line 2422 "regression-compile-tmp/allimpc1-77.imp" I = 1; #line 2422 "regression-compile-tmp/allimpc1-77.imp" K = FINDPR(); // 2423 LOAD(I,K+1,0); ->L11 #line 2423 "regression-compile-tmp/allimpc1-77.imp" LOAD(&I, (((int)(K)) + (1)), 0); #line 2423 "regression-compile-tmp/allimpc1-77.imp" goto U_107e; // 2424 L1: ->L14 %IF BS(I)&1=1 %AND I>0 %AND REGISTER(BS(I)-1)=0 #line 2424 "regression-compile-tmp/allimpc1-77.imp" U_107c:; #line 2424 "regression-compile-tmp/allimpc1-77.imp" if (((((BS[(((int)(I)) - (1))]) & (1))) != (1))) goto L_02f5; #line 2424 "regression-compile-tmp/allimpc1-77.imp" if (((I) <= (0))) goto L_02f5; #line 2424 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[(((int)(BS[(((int)(I)) - (1))])) - (1))]) != (0))) goto L_02f5; #line 2424 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; #line 2424 "regression-compile-tmp/allimpc1-77.imp" L_02f5:; // 2425 ->L12 %IF BS(I)&1=0 %AND REGISTER(BS(I)+1)=0 #line 2425 "regression-compile-tmp/allimpc1-77.imp" if (((((BS[(((int)(I)) - (1))]) & (1))) != (0))) goto L_02f6; #line 2425 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[(((int)(BS[(((int)(I)) - (1))])) + (1))]) != (0))) goto L_02f6; #line 2425 "regression-compile-tmp/allimpc1-77.imp" goto U_1080; #line 2425 "regression-compile-tmp/allimpc1-77.imp" L_02f6:; // 2426 ->L5 #line 2426 "regression-compile-tmp/allimpc1-77.imp" goto U_107d; // 2427 L12: K=BS(I); REGISTER(K+1)=1 #line 2427 "regression-compile-tmp/allimpc1-77.imp" U_1080:; #line 2427 "regression-compile-tmp/allimpc1-77.imp" K = BS[(((int)(I)) - (1))]; #line 2427 "regression-compile-tmp/allimpc1-77.imp" REGISTER[(((int)(K)) + (1))] = 1; // 2428 PRR(X'18',K+1,K); ->L13 #line 2428 "regression-compile-tmp/allimpc1-77.imp" PRR(24, (((int)(K)) + (1)), K); #line 2428 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; // 2429 L14: REGISTER(BS(I)-1)=1 #line 2429 "regression-compile-tmp/allimpc1-77.imp" U_107f:; #line 2429 "regression-compile-tmp/allimpc1-77.imp" REGISTER[(((int)(BS[(((int)(I)) - (1))])) - (1))] = 1; // 2430 L11: BS(I)=BS(I)-1 #line 2430 "regression-compile-tmp/allimpc1-77.imp" U_107e:; #line 2430 "regression-compile-tmp/allimpc1-77.imp" BS[(((int)(I)) - (1))] = (((int)(BS[(((int)(I)) - (1))])) - (1)); // 2431 L13: TEST(3-I); PLANT(X'5C',I,3-I);! MULTIPLY #line 2431 "regression-compile-tmp/allimpc1-77.imp" U_1081:; #line 2431 "regression-compile-tmp/allimpc1-77.imp" TEST((((int)(3)) - (I))); #line 2431 "regression-compile-tmp/allimpc1-77.imp" PLANT(92, I, (((int)(3)) - (I))); // 2432 ->L15 %IF CHECKSP=0 #line 2432 "regression-compile-tmp/allimpc1-77.imp" if (((CHECKSP) != (0))) goto L_02f7; #line 2432 "regression-compile-tmp/allimpc1-77.imp" goto U_1082; #line 2432 "regression-compile-tmp/allimpc1-77.imp" L_02f7:; // 2433 PRX(X'8F',BS(I),0,0,32); ! SLDA ?,32 #line 2433 "regression-compile-tmp/allimpc1-77.imp" PRX(143, BS[(((int)(I)) - (1))], 0, 0, 32); // 2434 L15: RESULT=257+BS(I)-CHECKSP #line 2434 "regression-compile-tmp/allimpc1-77.imp" U_1082:; #line 2434 "regression-compile-tmp/allimpc1-77.imp" *RESULT = (((unsigned char)((((int)(257)) + (BS[(((int)(I)) - (1))])))) - (CHECKSP)); // 2435 REGISTER(BS(I)+CHECKSP)=0 #line 2435 "regression-compile-tmp/allimpc1-77.imp" REGISTER[((BS[(((int)(I)) - (1))]) + ((int)(CHECKSP)))] = 0; // 2436 AFLAG=CHECKS #line 2436 "regression-compile-tmp/allimpc1-77.imp" AFLAG = CHECKS; // 2437 ->L99 #line 2437 "regression-compile-tmp/allimpc1-77.imp" goto U_1083; // 2438 L30: K= 3-I; LOAD(K,-1,0) #line 2438 "regression-compile-tmp/allimpc1-77.imp" U_107b:; #line 2438 "regression-compile-tmp/allimpc1-77.imp" K = (((int)(3)) - (I)); #line 2438 "regression-compile-tmp/allimpc1-77.imp" LOAD(&K, (-1), 0); // 2439 PRR(X'1A',BS(K),BS(K)) #line 2439 "regression-compile-tmp/allimpc1-77.imp" PRR(26, BS[(((int)(K)) - (1))], BS[(((int)(K)) - (1))]); // 2440 AFLAG=1; RESULT=256+BS(K) #line 2440 "regression-compile-tmp/allimpc1-77.imp" AFLAG = 1; #line 2440 "regression-compile-tmp/allimpc1-77.imp" *RESULT = (((int)(256)) + (BS[(((int)(K)) - (1))])); // 2441 L99: %END #line 2441 "regression-compile-tmp/allimpc1-77.imp" U_1083:; #line 2441 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block MULT at level 4 // 2442 %ROUTINE DIV(%INTEGERNAME RESULT) #line 2442 "regression-compile-tmp/allimpc1-77.imp" void DIV( int /*name*/*RESULT ) #line 2442 "regression-compile-tmp/allimpc1-77.imp" { // 2443 !%SHORTROUTINE // 2444 %INTEGER I,K #line 2444 "regression-compile-tmp/allimpc1-77.imp" int I; #line 2444 "regression-compile-tmp/allimpc1-77.imp" int K; // 2445 ->L3 %IF DP(1)<0 #line 2445 "regression-compile-tmp/allimpc1-77.imp" if (((DP[0]) >= (0))) goto L_02f8; #line 2445 "regression-compile-tmp/allimpc1-77.imp" goto U_107c; #line 2445 "regression-compile-tmp/allimpc1-77.imp" L_02f8:; // 2446 L1: K=FIND PR #line 2446 "regression-compile-tmp/allimpc1-77.imp" U_107d:; #line 2446 "regression-compile-tmp/allimpc1-77.imp" K = FINDPR(); // 2447 L2: I=1; LOAD(I,K,0); ->L10 #line 2447 "regression-compile-tmp/allimpc1-77.imp" U_107e:; #line 2447 "regression-compile-tmp/allimpc1-77.imp" I = 1; #line 2447 "regression-compile-tmp/allimpc1-77.imp" LOAD(&I, K, 0); #line 2447 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; // 2448 L3: ->L4 %IF BS(1)&1=0 %AND REGISTER(BS(1)+1)=0 #line 2448 "regression-compile-tmp/allimpc1-77.imp" U_107c:; #line 2448 "regression-compile-tmp/allimpc1-77.imp" if (((((BS[0]) & (1))) != (0))) goto L_02f9; #line 2448 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[(((int)(BS[0])) + (1))]) != (0))) goto L_02f9; #line 2448 "regression-compile-tmp/allimpc1-77.imp" goto U_1080; #line 2448 "regression-compile-tmp/allimpc1-77.imp" L_02f9:; // 2449 K=FINDPR; ->L2 #line 2449 "regression-compile-tmp/allimpc1-77.imp" K = FINDPR(); #line 2449 "regression-compile-tmp/allimpc1-77.imp" goto U_107e; // 2450 L4: ->L1 %IF REGISTER(BS(1))<0; !A CLAIMED REGISTER #line 2450 "regression-compile-tmp/allimpc1-77.imp" U_1080:; #line 2450 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[BS[0]]) >= (0))) goto L_02fa; #line 2450 "regression-compile-tmp/allimpc1-77.imp" goto U_107d; #line 2450 "regression-compile-tmp/allimpc1-77.imp" L_02fa:; // 2451 REGISTER(BS(1)+1)=1; K=BS(1) #line 2451 "regression-compile-tmp/allimpc1-77.imp" REGISTER[(((int)(BS[0])) + (1))] = 1; #line 2451 "regression-compile-tmp/allimpc1-77.imp" K = BS[0]; // 2452 L10: PRX(X'8E',K,0,0,32); ! SRDA K,32 #line 2452 "regression-compile-tmp/allimpc1-77.imp" U_107f:; #line 2452 "regression-compile-tmp/allimpc1-77.imp" PRX(142, K, 0, 0, 32); // 2453 TEST(2); PLANT(X'5D',1,2); ! DIVIDE #line 2453 "regression-compile-tmp/allimpc1-77.imp" TEST(2); #line 2453 "regression-compile-tmp/allimpc1-77.imp" PLANT(93, 1, 2); // 2454 ->L20 %IF CHECKSP=0 #line 2454 "regression-compile-tmp/allimpc1-77.imp" if (((CHECKSP) != (0))) goto L_02fb; #line 2454 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; #line 2454 "regression-compile-tmp/allimpc1-77.imp" L_02fb:; // 2455 ->L20 %IF OPCODE=17; PRR(X'12',K,K); ! LTR #line 2455 "regression-compile-tmp/allimpc1-77.imp" if (((OPCODE) != (17))) goto L_02fc; #line 2455 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; #line 2455 "regression-compile-tmp/allimpc1-77.imp" L_02fc:; #line 2455 "regression-compile-tmp/allimpc1-77.imp" PRR(18, K, K); // 2456 PRX(X'47',7,0,CODER,64); ! BC 7,64(CODE) #line 2456 "regression-compile-tmp/allimpc1-77.imp" PRX(71, 7, 0, CODER, 64); // 2457 L20: REGISTER(K)=0 #line 2457 "regression-compile-tmp/allimpc1-77.imp" U_1081:; #line 2457 "regression-compile-tmp/allimpc1-77.imp" REGISTER[K] = 0; // 2458 AFLAG=0;RESULT=K+257 #line 2458 "regression-compile-tmp/allimpc1-77.imp" AFLAG = 0; #line 2458 "regression-compile-tmp/allimpc1-77.imp" *RESULT = (((int)(K)) + (257)); // 2459 %END #line 2459 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DIV at level 4 // 2460 %ROUTINE PRINT ORDERS #line 2460 "regression-compile-tmp/allimpc1-77.imp" void PRINTORDERS( void ) #line 2460 "regression-compile-tmp/allimpc1-77.imp" { // 2461 !%SHORTROUTINE // 2462 %SWITCH S(0:49) #line 2462 "regression-compile-tmp/allimpc1-77.imp" static int sw9_S_idx; static const void * /*SWITCH*/ sw9_S[50] = { &&sw9_S_0, &&sw9_S_1, &&sw9_S_2, &&sw9_S_3, &&sw9_S_4, &&sw9_S_5, &&sw9_S_6, &&sw9_S_7, &&sw9_S_8, &&sw9_S_9, &&sw9_S_10, &&sw9_S_11, &&sw9_S_12, &&sw9_S_13, &&sw9_S_14, &&sw9_S_15, &&sw9_S_16, &&sw9_S_17, &&sw9_S_18, &&sw9_S_19, &&sw9_S_20, &&sw9_S_21, &&sw9_S_22, &&sw9_S_23, &&sw9_S_24, &&sw9_S_25, &&sw9_S_26, &&sw9_S_27, &&sw9_S_28, &&sw9_S_29, &&sw9_S_30, &&sw9_S_31, &&sw9_S_32, &&sw9_S_33, &&sw9_S_34, &&sw9_S_35, &&sw9_S_36, &&sw9_S_37, &&sw9_S_38, &&sw9_S_39, &&sw9_S_40, &&sw9_S_41, &&sw9_S_42, &&sw9_S_43, &&sw9_S_44, &&sw9_S_45, &&sw9_S_46, &&sw9_S_47, &&sw9_S_48, &&sw9_S_49, }; // 2463 %INTEGER C,D,LAST,KK #line 2463 "regression-compile-tmp/allimpc1-77.imp" int C; #line 2463 "regression-compile-tmp/allimpc1-77.imp" int D; #line 2463 "regression-compile-tmp/allimpc1-77.imp" int LAST; #line 2463 "regression-compile-tmp/allimpc1-77.imp" int KK; // 2464 LAST=N0-6 #line 2464 "regression-compile-tmp/allimpc1-77.imp" LAST = (((int)(N0)) - (6)); // 2465 %CYCLE JJ=NOP,3,LAST #line 2465 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = NOP; _increment = 3; _final = LAST; JJ = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = NOP, 3, LAST"); JJ -= _increment; _control -= _increment; L_02fd:; if (JJ == _final) goto L_02fe; JJ += _increment; _control += _increment; if (JJ != _control) _imp_signal(4,2,0,"Corrupt control variable JJ"); /* FOR loop control variable corrupted */ } // 2466 OPCODE=ST(JJ) #line 2466 "regression-compile-tmp/allimpc1-77.imp" OPCODE = ST[JJ]; // 2467 ->SKIP %IF 10>=OPCODE %OR OPCODE=24 #line 2467 "regression-compile-tmp/allimpc1-77.imp" if (((10) >= (OPCODE))) goto L_0300; #line 2467 "regression-compile-tmp/allimpc1-77.imp" if (((OPCODE) != (24))) goto L_0301; #line 2467 "regression-compile-tmp/allimpc1-77.imp" L_0300:; #line 2467 "regression-compile-tmp/allimpc1-77.imp" goto U_107e; #line 2467 "regression-compile-tmp/allimpc1-77.imp" L_0301:; // 2468 %IF OPCODE=11 %OR OPCODE=23 %THEN KK=1 %ELSE KK=2 #line 2468 "regression-compile-tmp/allimpc1-77.imp" if (((OPCODE) == (11))) goto L_0302; #line 2468 "regression-compile-tmp/allimpc1-77.imp" if (((OPCODE) != (23))) goto L_0303; #line 2468 "regression-compile-tmp/allimpc1-77.imp" L_0302:; #line 2468 "regression-compile-tmp/allimpc1-77.imp" KK = 1; #line 2468 "regression-compile-tmp/allimpc1-77.imp" goto L_0304; #line 2468 "regression-compile-tmp/allimpc1-77.imp" L_0303:; #line 2468 "regression-compile-tmp/allimpc1-77.imp" KK = 2; #line 2468 "regression-compile-tmp/allimpc1-77.imp" L_0304:; // 2469 %CYCLE KK=KK,-1,1 #line 2469 "regression-compile-tmp/allimpc1-77.imp" KK = ((KK) + ((int)(1))); if ((((1)-(KK)) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle KK = KK, (-1), 1"); L_0305:; if (KK == 1) goto L_0306; KK += (-1); // 2470 POP(OPHEAD,C,DP(KK)) #line 2470 "regression-compile-tmp/allimpc1-77.imp" POP(&OPHEAD, &C, &DP[(((int)(KK)) - (1))]); // 2471 PT(KK)=C>>8; BS(KK)=C&15 #line 2471 "regression-compile-tmp/allimpc1-77.imp" PT[(((int)(KK)) - (1))] = (int)((((unsigned int)(C)) >> (8))); #line 2471 "regression-compile-tmp/allimpc1-77.imp" BS[(((int)(KK)) - (1))] = ((C) & (15)); // 2472 %REPEAT #line 2472 "regression-compile-tmp/allimpc1-77.imp" goto L_0305; #line 2472 "regression-compile-tmp/allimpc1-77.imp" L_0306:; // 2473 SKIP: ->S(OPCODE+25*REAL) #line 2473 "regression-compile-tmp/allimpc1-77.imp" U_107e:; #line 2473 "regression-compile-tmp/allimpc1-77.imp" sw9_S_idx = ((OPCODE) + ((int)(((25) * ((int)(REAL)))))); if ((0 <= sw9_S_idx) && (sw9_S_idx <= 49)) goto *sw9_S[sw9_S_idx]; else { /*_imp_signal(8, 2, sw9_S_idx);*/ fprintf(stderr, "%%SWITCH index S(%d) not in range 0:49 at %s:%d\n", sw9_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 2474 S(0): ! INTEGER CONST<4096 IN INT EXP #line 2474 "regression-compile-tmp/allimpc1-77.imp" sw9_S_0:; // 2475 S(25): ! INT CONST<4096 IN REAL EXRRN #line 2475 "regression-compile-tmp/allimpc1-77.imp" sw9_S_25:; // 2476 D=X'FF00'; C=ST(JJ+2);->L99 #line 2476 "regression-compile-tmp/allimpc1-77.imp" D = 65280; #line 2476 "regression-compile-tmp/allimpc1-77.imp" C = ST[(((int)(JJ)) + (2))]; #line 2476 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; // 2477 S(1): ! LONG INT CONST IN INT EXPRN #line 2477 "regression-compile-tmp/allimpc1-77.imp" sw9_S_1:; // 2478 C=SORT CONST(ST(JJ+1),0,1) #line 2478 "regression-compile-tmp/allimpc1-77.imp" C = SORTCONST(ST[(((int)(JJ)) + (1))], 0, 1); // 2479 D=256+GLA;->L99 #line 2479 "regression-compile-tmp/allimpc1-77.imp" D = (((int)(256)) + (GLA)); #line 2479 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; // 2480 S(26): ! LONG ICONST IN EXPRN #line 2480 "regression-compile-tmp/allimpc1-77.imp" sw9_S_26:; // 2481 D=512+GLA; D=D+3<<11 %IF LONGREAL=1 #line 2481 "regression-compile-tmp/allimpc1-77.imp" D = (((int)(512)) + (GLA)); #line 2481 "regression-compile-tmp/allimpc1-77.imp" if (((LONGREAL) != (1))) goto L_0308; #line 2481 "regression-compile-tmp/allimpc1-77.imp" D = ((D) + ((int)(((3) << (11))))); #line 2481 "regression-compile-tmp/allimpc1-77.imp" L_0308:; // 2482 C=SORT CONST(ST(JJ+1),LONGREAL,2);->L99 #line 2482 "regression-compile-tmp/allimpc1-77.imp" C = SORTCONST(ST[(((int)(JJ)) + (1))], LONGREAL, 2); #line 2482 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; // 2483 S(2): S(27): !LOCAL VARIABLE #line 2483 "regression-compile-tmp/allimpc1-77.imp" sw9_S_2:; #line 2483 "regression-compile-tmp/allimpc1-77.imp" sw9_S_27:; // 2484 D=ST(JJ+1); C=ST(JJ+2); ->L99 #line 2484 "regression-compile-tmp/allimpc1-77.imp" D = ST[(((int)(JJ)) + (1))]; #line 2484 "regression-compile-tmp/allimpc1-77.imp" C = ST[(((int)(JJ)) + (2))]; #line 2484 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; // 2485 S(33): ! REAL IN FR #line 2485 "regression-compile-tmp/allimpc1-77.imp" sw9_S_33:; // 2486 D=ST(JJ+1); C=-2; ->L99 #line 2486 "regression-compile-tmp/allimpc1-77.imp" D = ST[(((int)(JJ)) + (1))]; #line 2486 "regression-compile-tmp/allimpc1-77.imp" C = (-2); #line 2486 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; // 2487 S(9): S(34): !(INTEGER) IN G.R. #line 2487 "regression-compile-tmp/allimpc1-77.imp" sw9_S_9:; #line 2487 "regression-compile-tmp/allimpc1-77.imp" sw9_S_34:; // 2488 D=256+ST(JJ+1); C=-2; ->L99 #line 2488 "regression-compile-tmp/allimpc1-77.imp" D = (((int)(256)) + (ST[(((int)(JJ)) + (1))])); #line 2488 "regression-compile-tmp/allimpc1-77.imp" C = (-2); #line 2488 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; // 2489 S(10): S(35): !PARKED IN CORE #line 2489 "regression-compile-tmp/allimpc1-77.imp" sw9_S_10:; #line 2489 "regression-compile-tmp/allimpc1-77.imp" sw9_S_35:; // 2490 C=ST(JJ+2);D=ST(JJ+1) #line 2490 "regression-compile-tmp/allimpc1-77.imp" C = ST[(((int)(JJ)) + (2))]; #line 2490 "regression-compile-tmp/allimpc1-77.imp" D = ST[(((int)(JJ)) + (1))]; // 2491 %IF REAL=1 %AND D>>8&24=24 %THEN PUSH(LWSP(LEVEL),0,C) %ELSE %C #line 2491 "regression-compile-tmp/allimpc1-77.imp" if (((REAL) != (1))) goto L_0309; #line 2491 "regression-compile-tmp/allimpc1-77.imp" if ((((((int)((((unsigned int)(D)) >> (8)))) & (24))) != (24))) goto L_0309; #line 2491 "regression-compile-tmp/allimpc1-77.imp" PUSH(&LWSP[LEVEL], 0, C); #line 2491 "regression-compile-tmp/allimpc1-77.imp" goto L_030a; #line 2491 "regression-compile-tmp/allimpc1-77.imp" L_0309:; #line 2491 "regression-compile-tmp/allimpc1-77.imp" PUSH(&WSP[LEVEL], 0, C); #line 2491 "regression-compile-tmp/allimpc1-77.imp" L_030a:; // 2492 PUSH(WSP(LEVEL),0,C); ->L99 #line 2492 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; // 2493 S(11): ! NEGATE IN INTEGER EXPRN #line 2493 "regression-compile-tmp/allimpc1-77.imp" sw9_S_11:; // 2494 ->L109 %UNLESS PT(1)=255 %AND DP(1)=1 #line 2494 "regression-compile-tmp/allimpc1-77.imp" if (((PT[0]) != (255))) goto L_0307; #line 2494 "regression-compile-tmp/allimpc1-77.imp" if (((DP[0]) == (1))) goto L_030b; #line 2494 "regression-compile-tmp/allimpc1-77.imp" L_0307:; #line 2494 "regression-compile-tmp/allimpc1-77.imp" goto U_1080; #line 2494 "regression-compile-tmp/allimpc1-77.imp" L_030b:; // 2495 AFLAG=0; D=256+GLA; C=16; ->L99 ;! OPTIMISE (-1) #line 2495 "regression-compile-tmp/allimpc1-77.imp" AFLAG = 0; #line 2495 "regression-compile-tmp/allimpc1-77.imp" D = (((int)(256)) + (GLA)); #line 2495 "regression-compile-tmp/allimpc1-77.imp" C = 16; #line 2495 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; // 2496 S(36): ! NEGATE IN REAL EXPRN #line 2496 "regression-compile-tmp/allimpc1-77.imp" sw9_S_36:; // 2497 L109: C=1; D=X'13'+REAL*(32-EVALUATE) #line 2497 "regression-compile-tmp/allimpc1-77.imp" U_1080:; #line 2497 "regression-compile-tmp/allimpc1-77.imp" C = 1; #line 2497 "regression-compile-tmp/allimpc1-77.imp" D = ((19) + ((int)(((REAL) * ((unsigned char)((((int)(32)) - (EVALUATE)))))))); // 2498 LOAD(C,-1,REAL) #line 2498 "regression-compile-tmp/allimpc1-77.imp" LOAD(&C, (-1), REAL); // 2499 AFLAG=1 #line 2499 "regression-compile-tmp/allimpc1-77.imp" AFLAG = 1; // 2500 PRR(D,BS(1),BS(1)); ! LCR,LCER,LCDR #line 2500 "regression-compile-tmp/allimpc1-77.imp" PRR(D, BS[0], BS[0]); // 2501 L111: D=(REAL+1+24*LONGREAL)<<8!BS(C) #line 2501 "regression-compile-tmp/allimpc1-77.imp" U_1081:; #line 2501 "regression-compile-tmp/allimpc1-77.imp" D = ((((((((((int)(REAL)) + (1)))) + (((24) * ((int)(LONGREAL)))))) << (8))) | (BS[(((int)(C)) - (1))])); // 2502 C=-2; ->L99 #line 2502 "regression-compile-tmp/allimpc1-77.imp" C = (-2); #line 2502 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; // 2503 S(23): !INITIAL NOT #line 2503 "regression-compile-tmp/allimpc1-77.imp" sw9_S_23:; // 2504 C=1; AFLAG=2; LOAD(C,-1,0) #line 2504 "regression-compile-tmp/allimpc1-77.imp" C = 1; #line 2504 "regression-compile-tmp/allimpc1-77.imp" AFLAG = 2; #line 2504 "regression-compile-tmp/allimpc1-77.imp" LOAD(&C, (-1), 0); // 2505 PRX(X'57',BS(1),0,GLA,16); ->L111 #line 2505 "regression-compile-tmp/allimpc1-77.imp" PRX(87, BS[0], 0, GLA, 16); #line 2505 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; // 2506 S(12): S(37): !ADDITION #line 2506 "regression-compile-tmp/allimpc1-77.imp" sw9_S_12:; #line 2506 "regression-compile-tmp/allimpc1-77.imp" sw9_S_37:; // 2507 AFLAG=1;D=X'5A' #line 2507 "regression-compile-tmp/allimpc1-77.imp" AFLAG = 1; #line 2507 "regression-compile-tmp/allimpc1-77.imp" D = 90; // 2508 L125: C=0 #line 2508 "regression-compile-tmp/allimpc1-77.imp" U_1082:; #line 2508 "regression-compile-tmp/allimpc1-77.imp" C = 0; // 2509 L126: LOAD(C,-1,REAL); TEST(3-C) #line 2509 "regression-compile-tmp/allimpc1-77.imp" U_1083:; #line 2509 "regression-compile-tmp/allimpc1-77.imp" LOAD(&C, (-1), REAL); #line 2509 "regression-compile-tmp/allimpc1-77.imp" TEST((((int)(3)) - (C))); // 2510 D=D+REAL*(X'20'-EVALUATE) #line 2510 "regression-compile-tmp/allimpc1-77.imp" D = ((D) + ((int)(((REAL) * ((unsigned char)((((int)(32)) - (EVALUATE)))))))); // 2511 PLANT(D,C,3-C);->L111 #line 2511 "regression-compile-tmp/allimpc1-77.imp" PLANT(D, C, (((int)(3)) - (C))); #line 2511 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; // 2512 S(13): S(38): !SUBTRACTION #line 2512 "regression-compile-tmp/allimpc1-77.imp" sw9_S_13:; #line 2512 "regression-compile-tmp/allimpc1-77.imp" sw9_S_38:; // 2513 AFLAG=1; D=X'5B';C=1 #line 2513 "regression-compile-tmp/allimpc1-77.imp" AFLAG = 1; #line 2513 "regression-compile-tmp/allimpc1-77.imp" D = 91; #line 2513 "regression-compile-tmp/allimpc1-77.imp" C = 1; // 2514 ->L126 %UNLESS REAL=0 %AND PT(2)=255 %AND 1<=DP(2)<=2 #line 2514 "regression-compile-tmp/allimpc1-77.imp" if (((REAL) != (0))) goto L_030c; #line 2514 "regression-compile-tmp/allimpc1-77.imp" if (((PT[1]) != (255))) goto L_030c; #line 2514 "regression-compile-tmp/allimpc1-77.imp" if ((((1) > (DP[1]))) || (((DP[1]) <= (2)))) goto L_030d; #line 2514 "regression-compile-tmp/allimpc1-77.imp" L_030c:; #line 2514 "regression-compile-tmp/allimpc1-77.imp" goto U_1083; #line 2514 "regression-compile-tmp/allimpc1-77.imp" L_030d:; // 2515 AFLAG=0; LOAD(C,-1,0) #line 2515 "regression-compile-tmp/allimpc1-77.imp" AFLAG = 0; #line 2515 "regression-compile-tmp/allimpc1-77.imp" LOAD(&C, (-1), 0); // 2516 PRR(6,BS(1),0) %IF DP(2)=2 #line 2516 "regression-compile-tmp/allimpc1-77.imp" if (((DP[1]) != (2))) goto L_030e; #line 2516 "regression-compile-tmp/allimpc1-77.imp" PRR(6, BS[0], 0); #line 2516 "regression-compile-tmp/allimpc1-77.imp" L_030e:; // 2517 PRR(6,BS(1),0);->L111 ;!BCTR TO SUBTRACT 1 OR 2 #line 2517 "regression-compile-tmp/allimpc1-77.imp" PRR(6, BS[0], 0); #line 2517 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; // 2518 S(14): D=X'57'; !EXCLUSIVE OR #line 2518 "regression-compile-tmp/allimpc1-77.imp" sw9_S_14:; #line 2518 "regression-compile-tmp/allimpc1-77.imp" D = 87; // 2519 L141: AFLAG=2; ->L125 #line 2519 "regression-compile-tmp/allimpc1-77.imp" U_1084:; #line 2519 "regression-compile-tmp/allimpc1-77.imp" AFLAG = 2; #line 2519 "regression-compile-tmp/allimpc1-77.imp" goto U_1082; // 2520 S(15): D=X'56';->L141; !OR #line 2520 "regression-compile-tmp/allimpc1-77.imp" sw9_S_15:; #line 2520 "regression-compile-tmp/allimpc1-77.imp" D = 86; #line 2520 "regression-compile-tmp/allimpc1-77.imp" goto U_1084; // 2521 S(16): MULT(D); C=-2; ->L99 #line 2521 "regression-compile-tmp/allimpc1-77.imp" sw9_S_16:; #line 2521 "regression-compile-tmp/allimpc1-77.imp" MULT(&D); #line 2521 "regression-compile-tmp/allimpc1-77.imp" C = (-2); #line 2521 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; // 2522 S(17):S(18): DIV(D); C=-2; ->L99 #line 2522 "regression-compile-tmp/allimpc1-77.imp" sw9_S_17:; #line 2522 "regression-compile-tmp/allimpc1-77.imp" sw9_S_18:; #line 2522 "regression-compile-tmp/allimpc1-77.imp" DIV(&D); #line 2522 "regression-compile-tmp/allimpc1-77.imp" C = (-2); #line 2522 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; // 2523 S(19): D=X'54';->L141; !AND #line 2523 "regression-compile-tmp/allimpc1-77.imp" sw9_S_19:; #line 2523 "regression-compile-tmp/allimpc1-77.imp" D = 84; #line 2523 "regression-compile-tmp/allimpc1-77.imp" goto U_1084; // 2524 S(20):S(21): !SLL(21) AND SLR #line 2524 "regression-compile-tmp/allimpc1-77.imp" sw9_S_20:; #line 2524 "regression-compile-tmp/allimpc1-77.imp" sw9_S_21:; // 2525 D=0 #line 2525 "regression-compile-tmp/allimpc1-77.imp" D = 0; // 2526 C=1; LOAD(C,-1,0) #line 2526 "regression-compile-tmp/allimpc1-77.imp" C = 1; #line 2526 "regression-compile-tmp/allimpc1-77.imp" LOAD(&C, (-1), 0); // 2527 D=1 %IF PT(2)=255 #line 2527 "regression-compile-tmp/allimpc1-77.imp" if (((PT[1]) != (255))) goto L_030f; #line 2527 "regression-compile-tmp/allimpc1-77.imp" D = 1; #line 2527 "regression-compile-tmp/allimpc1-77.imp" L_030f:; // 2528 C=2; LOAD(C,-1,0) %IF D=0 #line 2528 "regression-compile-tmp/allimpc1-77.imp" C = 2; #line 2528 "regression-compile-tmp/allimpc1-77.imp" if (((D) != (0))) goto L_0310; #line 2528 "regression-compile-tmp/allimpc1-77.imp" LOAD(&C, (-1), 0); #line 2528 "regression-compile-tmp/allimpc1-77.imp" L_0310:; // 2529 PRX(X'89'+OPCODE-21,BS(1),0,BS(2),D*DP(2)) #line 2529 "regression-compile-tmp/allimpc1-77.imp" PRX((((int)((((int)(137)) + (OPCODE)))) - (21)), BS[0], 0, BS[1], (((int)(D)) * (DP[1]))); // 2530 REGISTER(BS(2))=0 %IF D=0 #line 2530 "regression-compile-tmp/allimpc1-77.imp" if (((D) != (0))) goto L_0311; #line 2530 "regression-compile-tmp/allimpc1-77.imp" REGISTER[BS[1]] = 0; #line 2530 "regression-compile-tmp/allimpc1-77.imp" L_0311:; // 2531 C=1; AFLAG=0; ->L111 #line 2531 "regression-compile-tmp/allimpc1-77.imp" C = 1; #line 2531 "regression-compile-tmp/allimpc1-77.imp" AFLAG = 0; #line 2531 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; // 2532 S(22): %CYCLE C=1,1,2 #line 2532 "regression-compile-tmp/allimpc1-77.imp" sw9_S_22:; #line 2532 "regression-compile-tmp/allimpc1-77.imp" C = 0; if ((((2)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle C = 1, 1, 2"); L_0312:; if (C == 2) goto L_0313; C += 1; // 2533 LOAD(C,-1,0) #line 2533 "regression-compile-tmp/allimpc1-77.imp" LOAD(&C, (-1), 0); // 2534 DUMP(1,BS(C),28+4*C,0,GLA) #line 2534 "regression-compile-tmp/allimpc1-77.imp" DUMP(1, BS[(((int)(C)) - (1))], ((28) + ((int)((((int)(4)) * (C))))), 0, GLA); // 2535 REGISTER(BS(C))=0; %REPEAT #line 2535 "regression-compile-tmp/allimpc1-77.imp" REGISTER[BS[(((int)(C)) - (1))]] = 0; #line 2535 "regression-compile-tmp/allimpc1-77.imp" goto L_0312; #line 2535 "regression-compile-tmp/allimpc1-77.imp" L_0313:; // 2536 ->L221 %IF REGISTER(0)#0 #line 2536 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[0]) == (0))) goto L_0315; #line 2536 "regression-compile-tmp/allimpc1-77.imp" goto U_1085; #line 2536 "regression-compile-tmp/allimpc1-77.imp" L_0315:; // 2537 C=2; AFLAG=0 #line 2537 "regression-compile-tmp/allimpc1-77.imp" C = 2; #line 2537 "regression-compile-tmp/allimpc1-77.imp" AFLAG = 0; // 2538 REGISTER(0)=1 #line 2538 "regression-compile-tmp/allimpc1-77.imp" REGISTER[0] = 1; // 2539 PPJ(15); BS(2)=0; ->L111; ! RESULT IN R0 #line 2539 "regression-compile-tmp/allimpc1-77.imp" PPJ(15); #line 2539 "regression-compile-tmp/allimpc1-77.imp" BS[1] = 0; #line 2539 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; // 2540 L221: C=FINDR; D=FINDR; PRR(X'18',C,0) #line 2540 "regression-compile-tmp/allimpc1-77.imp" U_1085:; #line 2540 "regression-compile-tmp/allimpc1-77.imp" C = FINDR(); #line 2540 "regression-compile-tmp/allimpc1-77.imp" D = FINDR(); #line 2540 "regression-compile-tmp/allimpc1-77.imp" PRR(24, C, 0); // 2541 PPJ(15); PRR(X'18',D,0); PRR(X'18',0,C) #line 2541 "regression-compile-tmp/allimpc1-77.imp" PPJ(15); #line 2541 "regression-compile-tmp/allimpc1-77.imp" PRR(24, D, 0); #line 2541 "regression-compile-tmp/allimpc1-77.imp" PRR(24, 0, C); // 2542 REGISTER(C)=0; C=2; AFLAG=0; BS(2)=D; ->L111 #line 2542 "regression-compile-tmp/allimpc1-77.imp" REGISTER[C] = 0; #line 2542 "regression-compile-tmp/allimpc1-77.imp" C = 2; #line 2542 "regression-compile-tmp/allimpc1-77.imp" AFLAG = 0; #line 2542 "regression-compile-tmp/allimpc1-77.imp" BS[1] = D; #line 2542 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; // 2543 S(39):S(40):S(42):S(44):S(45):S(46):S(48): !INTEGER OP IN REAL #line 2543 "regression-compile-tmp/allimpc1-77.imp" sw9_S_39:; #line 2543 "regression-compile-tmp/allimpc1-77.imp" sw9_S_40:; #line 2543 "regression-compile-tmp/allimpc1-77.imp" sw9_S_42:; #line 2543 "regression-compile-tmp/allimpc1-77.imp" sw9_S_44:; #line 2543 "regression-compile-tmp/allimpc1-77.imp" sw9_S_45:; #line 2543 "regression-compile-tmp/allimpc1-77.imp" sw9_S_46:; #line 2543 "regression-compile-tmp/allimpc1-77.imp" sw9_S_48:; // 2544 FAULT(24); ! INTEGER OP IN REAL #line 2544 "regression-compile-tmp/allimpc1-77.imp" FAULT(24); // 2545 %IF OPCODE=23 %THEN OPCODE=36 %ELSE OPCODE=37;! \ ->L - ... #line 2545 "regression-compile-tmp/allimpc1-77.imp" if (((OPCODE) != (23))) goto L_0316; #line 2545 "regression-compile-tmp/allimpc1-77.imp" OPCODE = 36; #line 2545 "regression-compile-tmp/allimpc1-77.imp" goto L_0317; #line 2545 "regression-compile-tmp/allimpc1-77.imp" L_0316:; #line 2545 "regression-compile-tmp/allimpc1-77.imp" OPCODE = 37; #line 2545 "regression-compile-tmp/allimpc1-77.imp" L_0317:; // 2546 ->S(OPCODE); ! ! TREAT OTHERS AS + #line 2546 "regression-compile-tmp/allimpc1-77.imp" sw9_S_idx = OPCODE; if ((0 <= sw9_S_idx) && (sw9_S_idx <= 49)) goto *sw9_S[sw9_S_idx]; else { /*_imp_signal(8, 2, sw9_S_idx);*/ fprintf(stderr, "%%SWITCH index S(%d) not in range 0:49 at %s:%d\n", sw9_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 2547 S(41): !REAL MULT #line 2547 "regression-compile-tmp/allimpc1-77.imp" sw9_S_41:; // 2548 D=X'5C';C=0 #line 2548 "regression-compile-tmp/allimpc1-77.imp" D = 92; #line 2548 "regression-compile-tmp/allimpc1-77.imp" C = 0; // 2549 L410: AFLAG=0; ->L126 #line 2549 "regression-compile-tmp/allimpc1-77.imp" U_1086:; #line 2549 "regression-compile-tmp/allimpc1-77.imp" AFLAG = 0; #line 2549 "regression-compile-tmp/allimpc1-77.imp" goto U_1083; // 2550 S(43): ! REAL DIVISION #line 2550 "regression-compile-tmp/allimpc1-77.imp" sw9_S_43:; // 2551 D=X'5D';C=1;->L410 #line 2551 "regression-compile-tmp/allimpc1-77.imp" D = 93; #line 2551 "regression-compile-tmp/allimpc1-77.imp" C = 1; #line 2551 "regression-compile-tmp/allimpc1-77.imp" goto U_1086; // 2552 S(47): !REAL EXPONENTIATION #line 2552 "regression-compile-tmp/allimpc1-77.imp" sw9_S_47:; // 2553 C=1; LOAD(C,-1,1) #line 2553 "regression-compile-tmp/allimpc1-77.imp" C = 1; #line 2553 "regression-compile-tmp/allimpc1-77.imp" LOAD(&C, (-1), 1); // 2554 ->L222 %IF PT(2)=255 %AND DP(2)=2; ! OPTIMISE **2 #line 2554 "regression-compile-tmp/allimpc1-77.imp" if (((PT[1]) != (255))) goto L_0318; #line 2554 "regression-compile-tmp/allimpc1-77.imp" if (((DP[1]) != (2))) goto L_0318; #line 2554 "regression-compile-tmp/allimpc1-77.imp" goto U_1087; #line 2554 "regression-compile-tmp/allimpc1-77.imp" L_0318:; // 2555 PRR(X'38'-EVALUATE,0,BS(1)) #line 2555 "regression-compile-tmp/allimpc1-77.imp" PRR((((int)(56)) - (EVALUATE)), 0, BS[0]); // 2556 C=2; FAULT(39) %UNLESS PT(2)=255 %OR PT(2)&7<=1 #line 2556 "regression-compile-tmp/allimpc1-77.imp" C = 2; #line 2556 "regression-compile-tmp/allimpc1-77.imp" if (((PT[1]) == (255))) goto L_0319; #line 2556 "regression-compile-tmp/allimpc1-77.imp" if (((((PT[1]) & (7))) <= (1))) goto L_0319; #line 2556 "regression-compile-tmp/allimpc1-77.imp" FAULT(39); #line 2556 "regression-compile-tmp/allimpc1-77.imp" L_0319:; // 2557 LOAD(C,1,0); PPJ(36) #line 2557 "regression-compile-tmp/allimpc1-77.imp" LOAD(&C, 1, 0); #line 2557 "regression-compile-tmp/allimpc1-77.imp" PPJ(36); // 2558 REGISTER(1)=0 #line 2558 "regression-compile-tmp/allimpc1-77.imp" REGISTER[1] = 0; // 2559 PRR(X'38'-EVALUATE,BS(1),0) #line 2559 "regression-compile-tmp/allimpc1-77.imp" PRR((((int)(56)) - (EVALUATE)), BS[0], 0); // 2560 C=1;->L111 #line 2560 "regression-compile-tmp/allimpc1-77.imp" C = 1; #line 2560 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; // 2561 L222: PRR(X'3C'-EVALUATE,BS(1),BS(1)) #line 2561 "regression-compile-tmp/allimpc1-77.imp" U_1087:; #line 2561 "regression-compile-tmp/allimpc1-77.imp" PRR((((int)(60)) - (EVALUATE)), BS[0], BS[0]); // 2562 C=1; ->L111 #line 2562 "regression-compile-tmp/allimpc1-77.imp" C = 1; #line 2562 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; // 2563 L99: PUSH(OPHEAD,D,C) %UNLESS JJ=LAST #line 2563 "regression-compile-tmp/allimpc1-77.imp" U_107f:; #line 2563 "regression-compile-tmp/allimpc1-77.imp" if (((JJ) == (LAST))) goto L_031a; #line 2563 "regression-compile-tmp/allimpc1-77.imp" PUSH(&OPHEAD, D, C); #line 2563 "regression-compile-tmp/allimpc1-77.imp" L_031a:; // 2564 S(24):S(49): %REPEAT #line 2564 "regression-compile-tmp/allimpc1-77.imp" sw9_S_24:; #line 2564 "regression-compile-tmp/allimpc1-77.imp" sw9_S_49:; #line 2564 "regression-compile-tmp/allimpc1-77.imp" goto L_02fd; #line 2564 "regression-compile-tmp/allimpc1-77.imp" L_02fe:; // 2565 DP(1)=C;PT(1)=D>>8;BS(1)=D&15 ;! FINAL RESULT #line 2565 "regression-compile-tmp/allimpc1-77.imp" DP[0] = C; #line 2565 "regression-compile-tmp/allimpc1-77.imp" PT[0] = (int)((((unsigned int)(D)) >> (8))); #line 2565 "regression-compile-tmp/allimpc1-77.imp" BS[0] = ((D) & (15)); // 2566 %END #line 2566 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; sw9_S_3:; sw9_S_4:; sw9_S_5:; sw9_S_6:; sw9_S_7:; sw9_S_8:; sw9_S_28:; sw9_S_29:; sw9_S_30:; sw9_S_31:; sw9_S_32:; /*_imp_signal(6,3,sw9_S_idx,"SWITCH LABEL NOT SET - sw9_S");*/ fprintf(stderr, "%%SWITCH LABEL NOT SET - sw9_S(%d): at line %s:%d", sw9_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // End of block PRINTORDERS at level 4 // 2567 L99: %END; ! OF ROUTINE CSEXP #line 2567 "regression-compile-tmp/allimpc1-77.imp" U_1072:; #line 2567 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CSEXP at level 3 // 2568 %INTEGERFN SORT CONST(%INTEGER P,LONG,TYPE) #line 2568 "regression-compile-tmp/allimpc1-77.imp" int SORTCONST( int P, int LONG, int TYPE ) #line 2568 "regression-compile-tmp/allimpc1-77.imp" { // 2569 !%SHORTROUTINE // 2570 %LONGREAL CVALUE #line 2570 "regression-compile-tmp/allimpc1-77.imp" double CVALUE; // 2571 %INTEGER I,K #line 2571 "regression-compile-tmp/allimpc1-77.imp" int I; #line 2571 "regression-compile-tmp/allimpc1-77.imp" int K; // 2572 ->L50 %IF TYPE=2 #line 2572 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_031b; #line 2572 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; #line 2572 "regression-compile-tmp/allimpc1-77.imp" L_031b:; // 2573 { FAULT(24) %IF A(P)&7#1 ; ! This is faulting erroneously on the sparc // 2574 %IF A(P)=9 %THEN I=A(P+1) %ELSE FROMAR4(P+1,I) #line 2574 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (9))) goto L_031c; #line 2574 "regression-compile-tmp/allimpc1-77.imp" I = A[(((unsigned char)((((int)(P)) + (1)))) + (2))]; #line 2574 "regression-compile-tmp/allimpc1-77.imp" goto L_031d; #line 2574 "regression-compile-tmp/allimpc1-77.imp" L_031c:; #line 2574 "regression-compile-tmp/allimpc1-77.imp" FROMAR4((((int)(P)) + (1)), &I); #line 2574 "regression-compile-tmp/allimpc1-77.imp" L_031d:; // 2575 L40: K=N0 #line 2575 "regression-compile-tmp/allimpc1-77.imp" U_1059:; #line 2575 "regression-compile-tmp/allimpc1-77.imp" K = N0; // 2576 ST(K)=I; N0=N0+1 #line 2576 "regression-compile-tmp/allimpc1-77.imp" ST[K] = I; #line 2576 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (1)); // 2577 %RESULT =K<<2 #line 2577 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return ((K) << (2)); // 2578 L50: CVALUE=0 #line 2578 "regression-compile-tmp/allimpc1-77.imp" U_1058:; #line 2578 "regression-compile-tmp/allimpc1-77.imp" CVALUE = 0; // 2579 ->L60 %UNLESS A(P)&7=1 #line 2579 "regression-compile-tmp/allimpc1-77.imp" if (((((A[((P) + ((int)(2)))]) & (7))) == (1))) goto L_031e; #line 2579 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 2579 "regression-compile-tmp/allimpc1-77.imp" L_031e:; // 2580 %IF A(P)=9 %THEN I=A(P+1) %ELSE FROMAR4(P+1,I) #line 2580 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (9))) goto L_031f; #line 2580 "regression-compile-tmp/allimpc1-77.imp" I = A[(((unsigned char)((((int)(P)) + (1)))) + (2))]; #line 2580 "regression-compile-tmp/allimpc1-77.imp" goto L_0320; #line 2580 "regression-compile-tmp/allimpc1-77.imp" L_031f:; #line 2580 "regression-compile-tmp/allimpc1-77.imp" FROMAR4((((int)(P)) + (1)), &I); #line 2580 "regression-compile-tmp/allimpc1-77.imp" L_0320:; // 2581 CVALUE=I;->L70 #line 2581 "regression-compile-tmp/allimpc1-77.imp" CVALUE = I; #line 2581 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; // 2582 L60: FROMAR8(P+1,CVALUE) #line 2582 "regression-compile-tmp/allimpc1-77.imp" U_105a:; #line 2582 "regression-compile-tmp/allimpc1-77.imp" FROMAR8((((int)(P)) + (1)), &CVALUE); // 2583 L70: ->L75 %IF LONG#0 #line 2583 "regression-compile-tmp/allimpc1-77.imp" U_105b:; #line 2583 "regression-compile-tmp/allimpc1-77.imp" if (((LONG) == (0))) goto L_0321; #line 2583 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; #line 2583 "regression-compile-tmp/allimpc1-77.imp" L_0321:; // 2584 I=INTEGER(ADDR(CVALUE)); ->L40 #line 2584 "regression-compile-tmp/allimpc1-77.imp" I = *_imp_INTEGER(_imp_ADDR(&CVALUE)); #line 2584 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; // 2585 L75: K=(N0+1)&(-2) #line 2585 "regression-compile-tmp/allimpc1-77.imp" U_105c:; #line 2585 "regression-compile-tmp/allimpc1-77.imp" K = (((((int)(N0)) + (1))) & ((-2))); // 2586 ST(K)=INTEGER(ADDR(CVALUE)) #line 2586 "regression-compile-tmp/allimpc1-77.imp" ST[K] = *_imp_INTEGER(_imp_ADDR(&CVALUE)); // 2587 ST(K+1)=INTEGER(ADDR(CVALUE)+4) #line 2587 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(K)) + (1))] = *_imp_INTEGER((((int)(_imp_ADDR(&CVALUE))) + (4))); // 2588 N0=K+2 #line 2588 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(K)) + (2)); // 2589 %RESULT=K<<2 #line 2589 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return ((K) << (2)); // 2590 %END #line 2590 "regression-compile-tmp/allimpc1-77.imp" } // End of block SORTCONST at level 3 // 2591 %ROUTINE CSTREXP(%INTEGER REG) #line 2591 "regression-compile-tmp/allimpc1-77.imp" void CSTREXP( int REG ) #line 2591 "regression-compile-tmp/allimpc1-77.imp" { // 2592 !%SHORTROUTINE // 2593 %COMMENT EVALUATES STRING EXPR USING CURRENT // 2594 %COMMENT WORKAREA AND 1 SUBROUTINES LEAVES ADDR IN // 2595 %COMMENT REG -VE IF STRING MUST BE MOVED TO WK.ARREA // 2596 %INTEGER JJ,QQ,KK,WKAREA,PP #line 2596 "regression-compile-tmp/allimpc1-77.imp" int JJ; #line 2596 "regression-compile-tmp/allimpc1-77.imp" int QQ; #line 2596 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 2596 "regression-compile-tmp/allimpc1-77.imp" int WKAREA; #line 2596 "regression-compile-tmp/allimpc1-77.imp" int PP; // 2597 SETEX %UNLESS STRINST#0 #line 2597 "regression-compile-tmp/allimpc1-77.imp" if (((STRINST) != (0))) goto L_0322; #line 2597 "regression-compile-tmp/allimpc1-77.imp" SETEX(); #line 2597 "regression-compile-tmp/allimpc1-77.imp" L_0322:; // 2598 PP=P #line 2598 "regression-compile-tmp/allimpc1-77.imp" PP = P; // 2599 JJ=TSEXP(QQ); ->L71 %IF JJ=20 %AND REG>=0 #line 2599 "regression-compile-tmp/allimpc1-77.imp" JJ = TSEXP(&QQ); #line 2599 "regression-compile-tmp/allimpc1-77.imp" if (((JJ) != (20))) goto L_0323; #line 2599 "regression-compile-tmp/allimpc1-77.imp" if (((REG) < (0))) goto L_0323; #line 2599 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; #line 2599 "regression-compile-tmp/allimpc1-77.imp" L_0323:; // 2600 P=PP; REG=|REG| #line 2600 "regression-compile-tmp/allimpc1-77.imp" P = PP; #line 2600 "regression-compile-tmp/allimpc1-77.imp" REG = _imp_IMOD(REG); // 2601 WKAREA=GET STR WSP #line 2601 "regression-compile-tmp/allimpc1-77.imp" WKAREA = GETSTRWSP(); // 2602 PSI(X'92',0,RBASE,WKAREA); ! CLEAR WORK AREA #line 2602 "regression-compile-tmp/allimpc1-77.imp" PSI(146, 0, RBASE, WKAREA); // 2603 ->L2 %IF A(P)=4 #line 2603 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (4))) goto L_0324; #line 2603 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; #line 2603 "regression-compile-tmp/allimpc1-77.imp" L_0324:; // 2604 L1: FAULT(71) #line 2604 "regression-compile-tmp/allimpc1-77.imp" U_105a:; #line 2604 "regression-compile-tmp/allimpc1-77.imp" FAULT(71); // 2605 L4: P=PP; SKIP EXP; ->L99 #line 2605 "regression-compile-tmp/allimpc1-77.imp" U_105b:; #line 2605 "regression-compile-tmp/allimpc1-77.imp" P = PP; #line 2605 "regression-compile-tmp/allimpc1-77.imp" SKIPEXP(); #line 2605 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; // 2606 L5: FAULT(72); ->L4 #line 2606 "regression-compile-tmp/allimpc1-77.imp" U_105d:; #line 2606 "regression-compile-tmp/allimpc1-77.imp" FAULT(72); #line 2606 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; // 2607 L2: ->L10 %IF A(P+1)=2 #line 2607 "regression-compile-tmp/allimpc1-77.imp" U_1059:; #line 2607 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) goto L_0325; #line 2607 "regression-compile-tmp/allimpc1-77.imp" goto U_105e; #line 2607 "regression-compile-tmp/allimpc1-77.imp" L_0325:; // 2608 ->L1 %UNLESS A(P+1)=1 ;!NAME #line 2608 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (1))) goto L_0326; #line 2608 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 2608 "regression-compile-tmp/allimpc1-77.imp" L_0326:; // 2609 P=P+2; CNAME(2,1) #line 2609 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 2609 "regression-compile-tmp/allimpc1-77.imp" CNAME(2, 1); // 2610 ->L1 %UNLESS TYPE=5;->L20 #line 2610 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (5))) goto L_0327; #line 2610 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 2610 "regression-compile-tmp/allimpc1-77.imp" L_0327:; #line 2610 "regression-compile-tmp/allimpc1-77.imp" goto U_105f; // 2611 L10: P=P+2;->L14 %IF A(P)=5 #line 2611 "regression-compile-tmp/allimpc1-77.imp" U_105e:; #line 2611 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 2611 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (5))) goto L_0328; #line 2611 "regression-compile-tmp/allimpc1-77.imp" goto U_1060; #line 2611 "regression-compile-tmp/allimpc1-77.imp" L_0328:; // 2612 ->L1 %UNLESS A(P)=9 %AND A(P+1)<127 #line 2612 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (9))) goto L_02ff; #line 2612 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) < (127))) goto L_0329; #line 2612 "regression-compile-tmp/allimpc1-77.imp" L_02ff:; #line 2612 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 2612 "regression-compile-tmp/allimpc1-77.imp" L_0329:; // 2613 ->L11 %IF A(P+1)=0 #line 2613 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (0))) goto L_032a; #line 2613 "regression-compile-tmp/allimpc1-77.imp" goto U_1061; #line 2613 "regression-compile-tmp/allimpc1-77.imp" L_032a:; // 2614 PRX(X'41',1,0,0,A(P+1)) #line 2614 "regression-compile-tmp/allimpc1-77.imp" PRX(65, 1, 0, 0, A[(((unsigned char)((((int)(P)) + (1)))) + (2))]); // 2615 P=P+2;->L20 #line 2615 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 2615 "regression-compile-tmp/allimpc1-77.imp" goto U_105f; // 2616 L11: P=P+2; ->L21; ! NULL STRING #line 2616 "regression-compile-tmp/allimpc1-77.imp" U_1061:; #line 2616 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 2616 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; // 2617 L14: %COMMENT STRING CONSTANT PUT IN CODE CF (TEXTTEXT) #line 2617 "regression-compile-tmp/allimpc1-77.imp" U_1060:; // 2618 KK=(CA+6+A(P+1)-CODEBASE(LEVEL))&(-2) #line 2618 "regression-compile-tmp/allimpc1-77.imp" KK = (((((int)((((short)((((int)(CA)) + (6)))) + (A[(((unsigned char)((((int)(P)) + (1)))) + (2))])))) - (CODEBASE[LEVEL]))) & ((-2))); // 2619 QQ=0;->L15 %IF KK<4095 #line 2619 "regression-compile-tmp/allimpc1-77.imp" QQ = 0; #line 2619 "regression-compile-tmp/allimpc1-77.imp" if (((KK) >= (4095))) goto L_032b; #line 2619 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; #line 2619 "regression-compile-tmp/allimpc1-77.imp" L_032b:; // 2620 KK=KK+4;QQ=1 #line 2620 "regression-compile-tmp/allimpc1-77.imp" KK = (((int)(KK)) + (4)); #line 2620 "regression-compile-tmp/allimpc1-77.imp" QQ = 1; // 2621 PRX(X'58',1,GLA,0,PAGENO(KK)<<2) #line 2621 "regression-compile-tmp/allimpc1-77.imp" PRX(88, 1, GLA, 0, ((PAGENO(KK)) << (2))); // 2622 L15: PRX(X'45',1,10,QQ,KK&4095) #line 2622 "regression-compile-tmp/allimpc1-77.imp" U_1063:; #line 2622 "regression-compile-tmp/allimpc1-77.imp" PRX(69, 1, 10, QQ, ((KK) & (4095))); // 2623 P=P+1; %CYCLE KK=1,1,(A(P)+2)//2 #line 2623 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2623 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = ((long)((long)(((((int)(A[((P) + ((int)(2)))])) + (2)))) / (long)((int)(2)))); KK = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 1, 1, ((long)((long)(((((int)(A[((P) + ((int)(2)))])) + (2)))) / (long)((int)(2))))"); KK -= _increment; _control -= _increment; L_032c:; if (KK == _final) goto L_032d; KK += _increment; _control += _increment; if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */ } // 2624 PLANT(A(P)<<8!A(P+1)) #line 2624 "regression-compile-tmp/allimpc1-77.imp" PLANT(((((A[((P) + ((int)(2)))]) << (8))) | (A[(((unsigned char)((((int)(P)) + (1)))) + (2))]))); // 2625 P=P+2;%REPEAT #line 2625 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 2625 "regression-compile-tmp/allimpc1-77.imp" goto L_032c; #line 2625 "regression-compile-tmp/allimpc1-77.imp" L_032d:; // 2626 L20: PRX(X'41',2,RBASE,0,WKAREA) #line 2626 "regression-compile-tmp/allimpc1-77.imp" U_105f:; #line 2626 "regression-compile-tmp/allimpc1-77.imp" PRX(65, 2, RBASE, 0, WKAREA); // 2627 PPJ(26) #line 2627 "regression-compile-tmp/allimpc1-77.imp" PPJ(26); // 2628 L21: ->L90 %IF A(P)=2; ! END OF EXPRN #line 2628 "regression-compile-tmp/allimpc1-77.imp" U_1062:; #line 2628 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_032f; #line 2628 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 2628 "regression-compile-tmp/allimpc1-77.imp" L_032f:; // 2629 ->L5 %UNLESS A(P+1)=12 #line 2629 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (12))) goto L_0330; #line 2629 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; #line 2629 "regression-compile-tmp/allimpc1-77.imp" L_0330:; // 2630 P=P+1;->L2 #line 2630 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2630 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; // 2631 L71: DUMP(2,REG,K,I,0); ->L99 #line 2631 "regression-compile-tmp/allimpc1-77.imp" U_1058:; #line 2631 "regression-compile-tmp/allimpc1-77.imp" DUMP(2, REG, K, I, 0); #line 2631 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; // 2632 L90: P=P+1 #line 2632 "regression-compile-tmp/allimpc1-77.imp" U_1064:; #line 2632 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 2633 PUSH(STR WSP(LEVEL),0,WKAREA) #line 2633 "regression-compile-tmp/allimpc1-77.imp" PUSH(&STRWSP[LEVEL], 0, WKAREA); // 2634 PRX(X'41',REG,0,RBASE,WKAREA) #line 2634 "regression-compile-tmp/allimpc1-77.imp" PRX(65, REG, 0, RBASE, WKAREA); // 2635 L99: PTYPE=5; UNPACK; %END #line 2635 "regression-compile-tmp/allimpc1-77.imp" U_105c:; #line 2635 "regression-compile-tmp/allimpc1-77.imp" PTYPE = 5; #line 2635 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); #line 2635 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CSTREXP at level 3 // 2636 %ROUTINE CRES(%INTEGER MODE,LAB) #line 2636 "regression-compile-tmp/allimpc1-77.imp" void CRES( int MODE, int LAB ) #line 2636 "regression-compile-tmp/allimpc1-77.imp" { // 2637 %ROUTINESPEC SKIP NAME #line 2637 "regression-compile-tmp/allimpc1-77.imp" auto void SKIPNAME( void ); // 2638 %ROUTINESPEC FAIL(%INTEGER MASK) #line 2638 "regression-compile-tmp/allimpc1-77.imp" auto void FAIL( int MASK ); // 2639 !%SHORTROUTINE // 2640 %INTEGER P1,P2,P3,W,SEXPRN #line 2640 "regression-compile-tmp/allimpc1-77.imp" int P1; #line 2640 "regression-compile-tmp/allimpc1-77.imp" int P2; #line 2640 "regression-compile-tmp/allimpc1-77.imp" int P3; #line 2640 "regression-compile-tmp/allimpc1-77.imp" int W; #line 2640 "regression-compile-tmp/allimpc1-77.imp" int SEXPRN; // 2641 %COMMENT MODE=0 UNCONDITIONAL # 0 CONDITIONAL // 2642 %COMMENT ENTER WITH ADDR OF LHS IN R1 AND P ON PLUS'' // 2643 SEXPRN=0;W=GET DBLE WRD #line 2643 "regression-compile-tmp/allimpc1-77.imp" SEXPRN = 0; #line 2643 "regression-compile-tmp/allimpc1-77.imp" W = GETDBLEWRD(); // 2644 P1=P;->L1 %IF A(P)=4 #line 2644 "regression-compile-tmp/allimpc1-77.imp" P1 = P; #line 2644 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (4))) goto L_0331; #line 2644 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; #line 2644 "regression-compile-tmp/allimpc1-77.imp" L_0331:; // 2645 L1000: P=P1;SKIP EXP #line 2645 "regression-compile-tmp/allimpc1-77.imp" U_105c:; #line 2645 "regression-compile-tmp/allimpc1-77.imp" P = P1; #line 2645 "regression-compile-tmp/allimpc1-77.imp" SKIPEXP(); // 2646 FAULT(74);->L99 #line 2646 "regression-compile-tmp/allimpc1-77.imp" FAULT(74); #line 2646 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 2647 L1: ->L1000 %UNLESS TYPE=5 #line 2647 "regression-compile-tmp/allimpc1-77.imp" U_105b:; #line 2647 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (5))) goto L_0332; #line 2647 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; #line 2647 "regression-compile-tmp/allimpc1-77.imp" L_0332:; // 2648 PRR(X'1B',2,2) ;!SR_2,2 #line 2648 "regression-compile-tmp/allimpc1-77.imp" PRR(27, 2, 2); // 2649 PRX(X'90',1,2,RBASE,W) ;!STM_1,2,W(RBASE) #line 2649 "regression-compile-tmp/allimpc1-77.imp" PRX(144, 1, 2, RBASE, W); // 2650 P2=-1;P=P+2 #line 2650 "regression-compile-tmp/allimpc1-77.imp" P2 = (-1); #line 2650 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); // 2651 ->L10 %IF A(P-1)=3 ;!SUB EXPRESSION #line 2651 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (3))) goto L_0333; #line 2651 "regression-compile-tmp/allimpc1-77.imp" goto U_105e; #line 2651 "regression-compile-tmp/allimpc1-77.imp" L_0333:; // 2652 ->L1000 %UNLESS A(P-1)=1 #line 2652 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) == (1))) goto L_0334; #line 2652 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; #line 2652 "regression-compile-tmp/allimpc1-77.imp" L_0334:; // 2653 L3: P2=P;SKIP NAME #line 2653 "regression-compile-tmp/allimpc1-77.imp" U_105f:; #line 2653 "regression-compile-tmp/allimpc1-77.imp" P2 = P; #line 2653 "regression-compile-tmp/allimpc1-77.imp" SKIPNAME(); // 2654 ->L50 %IF A(P)=2 ;!END #line 2654 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0335; #line 2654 "regression-compile-tmp/allimpc1-77.imp" goto U_1060; #line 2654 "regression-compile-tmp/allimpc1-77.imp" L_0335:; // 2655 ->L1000 %UNLESS A(P+1)=12 ;!ONLY - PERMITTED #line 2655 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (12))) goto L_0336; #line 2655 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; #line 2655 "regression-compile-tmp/allimpc1-77.imp" L_0336:; // 2656 ->L1000 %UNLESS A(P+2)=3; P=P+3 #line 2656 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) == (3))) goto L_0337; #line 2656 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; #line 2656 "regression-compile-tmp/allimpc1-77.imp" L_0337:; #line 2656 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); // 2657 L10: CSTREXP(-4); ! STRING MUST GO TO WK.AREA #line 2657 "regression-compile-tmp/allimpc1-77.imp" U_105e:; #line 2657 "regression-compile-tmp/allimpc1-77.imp" CSTREXP((-4)); // 2658 ! IN CASE OF SIDE EFFECTS // 2659 SEXPRN=SEXPRN+1 #line 2659 "regression-compile-tmp/allimpc1-77.imp" SEXPRN = (((int)(SEXPRN)) + (1)); // 2660 PRX(X'98',1,2,RBASE,W) #line 2660 "regression-compile-tmp/allimpc1-77.imp" PRX(152, 1, 2, RBASE, W); // 2661 PPJ(27) #line 2661 "regression-compile-tmp/allimpc1-77.imp" PPJ(27); // 2662 FAIL(7) #line 2662 "regression-compile-tmp/allimpc1-77.imp" FAIL(7); // 2663 PRX(X'90',1,2,RBASE,W); ! SAVE R1 AND R2 FOR LATER #line 2663 "regression-compile-tmp/allimpc1-77.imp" PRX(144, 1, 2, RBASE, W); // 2664 ->L15 %IF P2<0 #line 2664 "regression-compile-tmp/allimpc1-77.imp" if (((P2) >= (0))) goto L_0338; #line 2664 "regression-compile-tmp/allimpc1-77.imp" goto U_1061; #line 2664 "regression-compile-tmp/allimpc1-77.imp" L_0338:; // 2665 P3=P;P=P2 #line 2665 "regression-compile-tmp/allimpc1-77.imp" P3 = P; #line 2665 "regression-compile-tmp/allimpc1-77.imp" P = P2; // 2666 CNAME(1,4) #line 2666 "regression-compile-tmp/allimpc1-77.imp" CNAME(1, 4); // 2667 FAULT(71) %UNLESS TYPE=5 #line 2667 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (5))) goto L_0339; #line 2667 "regression-compile-tmp/allimpc1-77.imp" FAULT(71); #line 2667 "regression-compile-tmp/allimpc1-77.imp" L_0339:; // 2668 P=P3 #line 2668 "regression-compile-tmp/allimpc1-77.imp" P = P3; // 2669 L12: ->L1000 %UNLESS A(P)=1 %AND A(P+1)=12 %AND A(P+2)=1 #line 2669 "regression-compile-tmp/allimpc1-77.imp" U_1062:; #line 2669 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (1))) goto L_032e; #line 2669 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (12))) goto L_032e; #line 2669 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) == (1))) goto L_033a; #line 2669 "regression-compile-tmp/allimpc1-77.imp" L_032e:; #line 2669 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; #line 2669 "regression-compile-tmp/allimpc1-77.imp" L_033a:; // 2670 P=P+3;->L3 #line 2670 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); #line 2670 "regression-compile-tmp/allimpc1-77.imp" goto U_105f; // 2671 L15: PSI(X'95',0,4,0) #line 2671 "regression-compile-tmp/allimpc1-77.imp" U_1061:; #line 2671 "regression-compile-tmp/allimpc1-77.imp" PSI(149, 0, 4, 0); // 2672 FAIL(7);->L12 #line 2672 "regression-compile-tmp/allimpc1-77.imp" FAIL(7); #line 2672 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; // 2673 L50: ->L1000 %IF SEXPRN=0 #line 2673 "regression-compile-tmp/allimpc1-77.imp" U_1060:; #line 2673 "regression-compile-tmp/allimpc1-77.imp" if (((SEXPRN) != (0))) goto L_033b; #line 2673 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; #line 2673 "regression-compile-tmp/allimpc1-77.imp" L_033b:; // 2674 PRX(X'98',1,2,RBASE,W); ! SAVE R1 AND R2 FOR LATER #line 2674 "regression-compile-tmp/allimpc1-77.imp" PRX(152, 1, 2, RBASE, W); // 2675 PPJ(37) #line 2675 "regression-compile-tmp/allimpc1-77.imp" PPJ(37); // 2676 P3=P;P=P2 #line 2676 "regression-compile-tmp/allimpc1-77.imp" P3 = P; #line 2676 "regression-compile-tmp/allimpc1-77.imp" P = P2; // 2677 CNAME(1,4) #line 2677 "regression-compile-tmp/allimpc1-77.imp" CNAME(1, 4); // 2678 FAULT(71) %UNLESS TYPE=5 #line 2678 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (5))) goto L_033c; #line 2678 "regression-compile-tmp/allimpc1-77.imp" FAULT(71); #line 2678 "regression-compile-tmp/allimpc1-77.imp" L_033c:; // 2679 P=P3+1 #line 2679 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P3)) + (1)); // 2680 L99: PUSH(LWSP(LEVEL),0,W) #line 2680 "regression-compile-tmp/allimpc1-77.imp" U_105d:; #line 2680 "regression-compile-tmp/allimpc1-77.imp" PUSH(&LWSP[LEVEL], 0, W); // 2681 %RETURN #line 2681 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; // 2682 %ROUTINE SKIP NAME #line 2682 "regression-compile-tmp/allimpc1-77.imp" void SKIPNAME( void ) #line 2682 "regression-compile-tmp/allimpc1-77.imp" { // 2683 L1: P=P+1;SKIP APP #line 2683 "regression-compile-tmp/allimpc1-77.imp" U_1063:; #line 2683 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2683 "regression-compile-tmp/allimpc1-77.imp" SKIPAPP(); // 2684 P=P+1;%RETURN %IF A(P-1)=2 #line 2684 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2684 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_033d; #line 2684 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 2684 "regression-compile-tmp/allimpc1-77.imp" L_033d:; // 2685 P=P+1;->L1 #line 2685 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2685 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 2686 %END #line 2686 "regression-compile-tmp/allimpc1-77.imp" return; } // End of block SKIPNAME at level 4 // 2687 %ROUTINE FAIL(%INTEGER MASK) #line 2687 "regression-compile-tmp/allimpc1-77.imp" void FAIL( int MASK ) #line 2687 "regression-compile-tmp/allimpc1-77.imp" { // 2688 %IF MODE=0 %THEN PRX(X'47',MASK,0,CODER,152) %ELSE %C #line 2688 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (0))) goto L_033e; #line 2688 "regression-compile-tmp/allimpc1-77.imp" PRX(71, MASK, 0, CODER, 152); #line 2688 "regression-compile-tmp/allimpc1-77.imp" goto L_033f; #line 2688 "regression-compile-tmp/allimpc1-77.imp" L_033e:; #line 2688 "regression-compile-tmp/allimpc1-77.imp" PLOCALJUMP(MASK, LAB); #line 2688 "regression-compile-tmp/allimpc1-77.imp" L_033f:; // 2689 P LOCAL JUMP(MASK,LAB) // 2690 %END #line 2690 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block FAIL at level 4 // 2691 %END #line 2691 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CRES at level 3 // 2692 %ROUTINE CCOND(%INTEGER IU,NEARLAB,FARLAB) #line 2692 "regression-compile-tmp/allimpc1-77.imp" void CCOND( int IU, int NEARLAB, int FARLAB ) #line 2692 "regression-compile-tmp/allimpc1-77.imp" { // 2693 %COMMENT IU=0 FOR IF =1 FOR UNLESS // 2694 %ROUTINESPEC CCC #line 2694 "regression-compile-tmp/allimpc1-77.imp" auto void CCC( void ); // 2695 %ROUTINESPEC CSC(%INTEGERNAME FLAB) #line 2695 "regression-compile-tmp/allimpc1-77.imp" auto void CSC( int /*name*/*FLAB ); // 2696 %COMMENT P ON ALT OF (SC) // 2697 %INTEGER T,C,FAILPT,BASE,DISP #line 2697 "regression-compile-tmp/allimpc1-77.imp" int T; #line 2697 "regression-compile-tmp/allimpc1-77.imp" int C; #line 2697 "regression-compile-tmp/allimpc1-77.imp" int FAILPT; #line 2697 "regression-compile-tmp/allimpc1-77.imp" int BASE; #line 2697 "regression-compile-tmp/allimpc1-77.imp" int DISP; // 2698 %INTEGER JNPORFP,TP,CLAUSES #line 2698 "regression-compile-tmp/allimpc1-77.imp" int JNPORFP; #line 2698 "regression-compile-tmp/allimpc1-77.imp" int TP; #line 2698 "regression-compile-tmp/allimpc1-77.imp" int CLAUSES; // 2699 CLAUSES=0 #line 2699 "regression-compile-tmp/allimpc1-77.imp" CLAUSES = 0; // 2700 T=A(P+1+A(P+1)) #line 2700 "regression-compile-tmp/allimpc1-77.imp" T = A[(((unsigned char)((((short)((((int)(P)) + (1)))) + (A[(((unsigned char)((((int)(P)) + (1)))) + (2))])))) + (2))]; // 2701 T=0 %IF T=3; !0=SC 1=%AND 2=%OR #line 2701 "regression-compile-tmp/allimpc1-77.imp" if (((T) != (3))) goto L_0340; #line 2701 "regression-compile-tmp/allimpc1-77.imp" T = 0; #line 2701 "regression-compile-tmp/allimpc1-77.imp" L_0340:; // 2702 TP=T ; TP=TP+1 %IF T=0 #line 2702 "regression-compile-tmp/allimpc1-77.imp" TP = T; #line 2702 "regression-compile-tmp/allimpc1-77.imp" if (((T) != (0))) goto L_0341; #line 2702 "regression-compile-tmp/allimpc1-77.imp" TP = (((int)(TP)) + (1)); #line 2702 "regression-compile-tmp/allimpc1-77.imp" L_0341:; // 2703 %IF IU!!(TP-1)=0 %THEN JNPORFP=FARLAB %ELSE JNPORFP=NEARLAB #line 2703 "regression-compile-tmp/allimpc1-77.imp" if (((((IU) ^ ((((int)(TP)) - (1))))) != (0))) goto L_0342; #line 2703 "regression-compile-tmp/allimpc1-77.imp" JNPORFP = FARLAB; #line 2703 "regression-compile-tmp/allimpc1-77.imp" goto L_0343; #line 2703 "regression-compile-tmp/allimpc1-77.imp" L_0342:; #line 2703 "regression-compile-tmp/allimpc1-77.imp" JNPORFP = NEARLAB; #line 2703 "regression-compile-tmp/allimpc1-77.imp" L_0343:; // 2704 FAILPT = 0; CCC ; ->L99 #line 2704 "regression-compile-tmp/allimpc1-77.imp" FAILPT = 0; #line 2704 "regression-compile-tmp/allimpc1-77.imp" CCC(); #line 2704 "regression-compile-tmp/allimpc1-77.imp" goto U_105f; // 2705 %ROUTINE CCOMP(%INTEGER C) #line 2705 "regression-compile-tmp/allimpc1-77.imp" void CCOMP( int C ) #line 2705 "regression-compile-tmp/allimpc1-77.imp" { // 2706 !%SHORTROUTINE // 2707 ! C=1 FIRST TIME, 2 SECOND // 2708 %INTEGER M,L,Q,R,T #line 2708 "regression-compile-tmp/allimpc1-77.imp" int M; #line 2708 "regression-compile-tmp/allimpc1-77.imp" int L; #line 2708 "regression-compile-tmp/allimpc1-77.imp" int Q; #line 2708 "regression-compile-tmp/allimpc1-77.imp" int R; #line 2708 "regression-compile-tmp/allimpc1-77.imp" int T; // 2709 %OWNBYTEINTEGERARRAY FCOMP(1:7)=8,10,2,7,12,4,7; #line 2709 "regression-compile-tmp/allimpc1-77.imp" static unsigned char FCOMP[7] = { 8, 10, 2, 7, 12, 4, 7, }; // 2710 %OWNBYTEINTEGERARRAY BCOMP(1:7)=8,12,4,7,10,2,7; #line 2710 "regression-compile-tmp/allimpc1-77.imp" static unsigned char BCOMP[7] = { 8, 12, 4, 7, 10, 2, 7, }; // 2711 %SWITCH SW(-10:2) #line 2711 "regression-compile-tmp/allimpc1-77.imp" static int sw10_SW_idx; static const void * /*SWITCH*/ sw10_SW[13] = { &&sw10_SW_M_10, &&sw10_SW_M_9, &&sw10_SW_M_8, &&sw10_SW_M_7, &&sw10_SW_M_6, &&sw10_SW_M_5, &&sw10_SW_M_4, &&sw10_SW_M_3, &&sw10_SW_M_2, &&sw10_SW_M_1, &&sw10_SW_0, &&sw10_SW_1, &&sw10_SW_2, }; // 2712 M=A(P) #line 2712 "regression-compile-tmp/allimpc1-77.imp" M = A[((P) + ((int)(2)))]; // 2713 P=P+1; ->SW(C) %UNLESS M=8 #line 2713 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2713 "regression-compile-tmp/allimpc1-77.imp" if (((M) == (8))) goto L_0344; #line 2713 "regression-compile-tmp/allimpc1-77.imp" sw10_SW_idx = C; if ((-10 <= sw10_SW_idx) && (sw10_SW_idx <= 2)) goto *(sw10_SW+10)[sw10_SW_idx]; /* Bounds=-10:2 */ else { /*_imp_signal(8, 2, sw10_SW_idx);*/ fprintf(stderr, "%%SWITCH index SW(%d) not in range -10:2 at %s:%d\n", sw10_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } #line 2713 "regression-compile-tmp/allimpc1-77.imp" L_0344:; // 2714 FAULT(73); SKIP EXP; ->L1 #line 2714 "regression-compile-tmp/allimpc1-77.imp" FAULT(73); #line 2714 "regression-compile-tmp/allimpc1-77.imp" SKIPEXP(); #line 2714 "regression-compile-tmp/allimpc1-77.imp" goto U_106d; // 2715 SW(-10): ! FIRST OPERAND SIMPLE STRING #line 2715 "regression-compile-tmp/allimpc1-77.imp" sw10_SW_M_10:; // 2716 CSTREXP(1); NEST=1; DUMP(2,2,DISP,0,BASE); ->L161 #line 2716 "regression-compile-tmp/allimpc1-77.imp" CSTREXP(1); #line 2716 "regression-compile-tmp/allimpc1-77.imp" NEST = 1; #line 2716 "regression-compile-tmp/allimpc1-77.imp" DUMP(2, 2, DISP, 0, BASE); #line 2716 "regression-compile-tmp/allimpc1-77.imp" goto U_106e; // 2717 SW(-9): T=P; R=TSEXP(Q) #line 2717 "regression-compile-tmp/allimpc1-77.imp" sw10_SW_M_9:; #line 2717 "regression-compile-tmp/allimpc1-77.imp" T = P; #line 2717 "regression-compile-tmp/allimpc1-77.imp" R = TSEXP(&Q); // 2718 ->REG1 %IF R=10 %AND A(P)=2 #line 2718 "regression-compile-tmp/allimpc1-77.imp" if (((R) != (10))) goto L_0345; #line 2718 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0345; #line 2718 "regression-compile-tmp/allimpc1-77.imp" goto U_106f; #line 2718 "regression-compile-tmp/allimpc1-77.imp" L_0345:; // 2719 ->REG2 %IF R=11 %AND A(P)=2 #line 2719 "regression-compile-tmp/allimpc1-77.imp" if (((R) != (11))) goto L_0346; #line 2719 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0346; #line 2719 "regression-compile-tmp/allimpc1-77.imp" goto U_1070; #line 2719 "regression-compile-tmp/allimpc1-77.imp" L_0346:; // 2720 P=T; CSEXP(0,0) #line 2720 "regression-compile-tmp/allimpc1-77.imp" P = T; #line 2720 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, 0); // 2721 ->REG3 %IF TYPE=2 #line 2721 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_0347; #line 2721 "regression-compile-tmp/allimpc1-77.imp" goto U_1071; #line 2721 "regression-compile-tmp/allimpc1-77.imp" L_0347:; // 2722 PRR(X'19',DISP,NEST); ->L20; !CR #line 2722 "regression-compile-tmp/allimpc1-77.imp" PRR(25, DISP, NEST); #line 2722 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; // 2723 REG1: Q=X'59'; ->RCOM #line 2723 "regression-compile-tmp/allimpc1-77.imp" U_106f:; #line 2723 "regression-compile-tmp/allimpc1-77.imp" Q = 89; #line 2723 "regression-compile-tmp/allimpc1-77.imp" goto U_1073; // 2724 REG2: Q=X'49' #line 2724 "regression-compile-tmp/allimpc1-77.imp" U_1070:; #line 2724 "regression-compile-tmp/allimpc1-77.imp" Q = 73; // 2725 RCOM: PRX(Q,DISP,0,I,K); ->L20; !C OR CH #line 2725 "regression-compile-tmp/allimpc1-77.imp" U_1073:; #line 2725 "regression-compile-tmp/allimpc1-77.imp" PRX(Q, DISP, 0, I, K); #line 2725 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; // 2726 REG3: PRR(X'18',1,DISP); ->L37 ; !TO FLOAT ETC #line 2726 "regression-compile-tmp/allimpc1-77.imp" U_1071:; #line 2726 "regression-compile-tmp/allimpc1-77.imp" PRR(24, 1, DISP); #line 2726 "regression-compile-tmp/allimpc1-77.imp" goto U_1074; // 2727 SW(-5): !FIRST OPERAND LONG REAL #line 2727 "regression-compile-tmp/allimpc1-77.imp" sw10_SW_M_5:; // 2728 CSEXP(0,3); Q=X'69'; ! COMPILE LONG #line 2728 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, 3); #line 2728 "regression-compile-tmp/allimpc1-77.imp" Q = 105; // 2729 L51: PRX(Q,NEST,0,BASE,DISP); ->L21 #line 2729 "regression-compile-tmp/allimpc1-77.imp" U_1075:; #line 2729 "regression-compile-tmp/allimpc1-77.imp" PRX(Q, NEST, 0, BASE, DISP); #line 2729 "regression-compile-tmp/allimpc1-77.imp" goto U_1076; // 2730 SW(-4): !FIRST OPERAND SHORT REAL #line 2730 "regression-compile-tmp/allimpc1-77.imp" sw10_SW_M_4:; // 2731 Q=X'79'; CSEXP(0,2) #line 2731 "regression-compile-tmp/allimpc1-77.imp" Q = 121; #line 2731 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, 2); // 2732 L40: ->L51 %IF PREC=0; !SHORT EXPRESSION #line 2732 "regression-compile-tmp/allimpc1-77.imp" U_1077:; #line 2732 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) != (0))) goto L_0348; #line 2732 "regression-compile-tmp/allimpc1-77.imp" goto U_1075; #line 2732 "regression-compile-tmp/allimpc1-77.imp" L_0348:; // 2733 PRR(X'2B',0,0) #line 2733 "regression-compile-tmp/allimpc1-77.imp" PRR(43, 0, 0); // 2734 PRX(X'78',0,0,BASE,DISP); !STETCH IST OPN #line 2734 "regression-compile-tmp/allimpc1-77.imp" PRX(120, 0, 0, BASE, DISP); // 2735 PRR(X'29',0,NEST); ->L20 #line 2735 "regression-compile-tmp/allimpc1-77.imp" PRR(41, 0, NEST); #line 2735 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; // 2736 SW(-3): !FIRST OPERAND ASHORT CONSTANY #line 2736 "regression-compile-tmp/allimpc1-77.imp" sw10_SW_M_3:; // 2737 CSEXP(0,0) #line 2737 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, 0); // 2738 ->L30 %IF VALUE=0 #line 2738 "regression-compile-tmp/allimpc1-77.imp" if (((VALUE) != (0))) goto L_0349; #line 2738 "regression-compile-tmp/allimpc1-77.imp" goto U_107a; #line 2738 "regression-compile-tmp/allimpc1-77.imp" L_0349:; // 2739 ->L36 %IF TYPE=2 #line 2739 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_034a; #line 2739 "regression-compile-tmp/allimpc1-77.imp" goto U_107b; #line 2739 "regression-compile-tmp/allimpc1-77.imp" L_034a:; // 2740 R=2 #line 2740 "regression-compile-tmp/allimpc1-77.imp" R = 2; // 2741 R=1 %IF NEST=2 #line 2741 "regression-compile-tmp/allimpc1-77.imp" if (((NEST) != (2))) goto L_034b; #line 2741 "regression-compile-tmp/allimpc1-77.imp" R = 1; #line 2741 "regression-compile-tmp/allimpc1-77.imp" L_034b:; // 2742 DUMP(0,R,VALUE,0,0); !LOAD ADDR FOR CONSTANT #line 2742 "regression-compile-tmp/allimpc1-77.imp" DUMP(0, R, VALUE, 0, 0); // 2743 L29: PRR(X'19',R,NEST); ->L20; !CR2,1 #line 2743 "regression-compile-tmp/allimpc1-77.imp" U_107c:; #line 2743 "regression-compile-tmp/allimpc1-77.imp" PRR(25, R, NEST); #line 2743 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; // 2744 L30: !COMPARISONS WITH ZERO #line 2744 "regression-compile-tmp/allimpc1-77.imp" U_107a:; // 2745 ->L35 %IF TYPE=5 #line 2745 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_034c; #line 2745 "regression-compile-tmp/allimpc1-77.imp" goto U_107d; #line 2745 "regression-compile-tmp/allimpc1-77.imp" L_034c:; // 2746 ->L32 %IF AFLAG=1 #line 2746 "regression-compile-tmp/allimpc1-77.imp" if (((AFLAG) != (1))) goto L_034d; #line 2746 "regression-compile-tmp/allimpc1-77.imp" goto U_107e; #line 2746 "regression-compile-tmp/allimpc1-77.imp" L_034d:; // 2747 ->L31 %IF TYPE=2 #line 2747 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_034e; #line 2747 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; #line 2747 "regression-compile-tmp/allimpc1-77.imp" L_034e:; // 2748 ->L32 %IF AFLAG=2 %AND 7<=FCOMP(M)<=8 #line 2748 "regression-compile-tmp/allimpc1-77.imp" if (((AFLAG) != (2))) goto L_034f; #line 2748 "regression-compile-tmp/allimpc1-77.imp" if ((((7) > ((FCOMP-1)[M]))) || ((((FCOMP-1)[M]) > (8)))) goto L_034f; #line 2748 "regression-compile-tmp/allimpc1-77.imp" goto U_107e; #line 2748 "regression-compile-tmp/allimpc1-77.imp" L_034f:; // 2749 L31: PRR((TYPE-1)*(2-PREC&1)*16+X'12',NEST,NEST); !LTR,LTER,LTDR #line 2749 "regression-compile-tmp/allimpc1-77.imp" U_107f:; #line 2749 "regression-compile-tmp/allimpc1-77.imp" PRR((((int)((((int)(((((((int)(TYPE)) - (1)))) * (((2) - ((int)(((PREC) & (1))))))))) * (16)))) + (18)), NEST, NEST); // 2750 L32: ->L21 %IF C=-3; ->L20 #line 2750 "regression-compile-tmp/allimpc1-77.imp" U_107e:; #line 2750 "regression-compile-tmp/allimpc1-77.imp" if (((C) != ((-3)))) goto L_0350; #line 2750 "regression-compile-tmp/allimpc1-77.imp" goto U_1076; #line 2750 "regression-compile-tmp/allimpc1-77.imp" L_0350:; #line 2750 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; // 2751 L35: PSI(X'95',0,NEST,0); ->L20; ! NULL STRING LENGTH=0 #line 2751 "regression-compile-tmp/allimpc1-77.imp" U_107d:; #line 2751 "regression-compile-tmp/allimpc1-77.imp" PSI(149, 0, NEST, 0); #line 2751 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; // 2752 L36: DUMP(0,1,VALUE,0,0); #line 2752 "regression-compile-tmp/allimpc1-77.imp" U_107b:; #line 2752 "regression-compile-tmp/allimpc1-77.imp" DUMP(0, 1, VALUE, 0, 0); // 2753 L37: PPJ(43); #line 2753 "regression-compile-tmp/allimpc1-77.imp" U_1074:; #line 2753 "regression-compile-tmp/allimpc1-77.imp" PPJ(43); // 2754 PRR((1-PREC&1)*16+X'29',0,NEST); ! CDR OR CER #line 2754 "regression-compile-tmp/allimpc1-77.imp" PRR((((int)((((int)(((1) - ((int)(((PREC) & (1))))))) * (16)))) + (41)), 0, NEST); // 2755 ->L20 #line 2755 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; // 2756 SW(-2): Q=X'49'; !OPERAND SHORT #line 2756 "regression-compile-tmp/allimpc1-77.imp" sw10_SW_M_2:; #line 2756 "regression-compile-tmp/allimpc1-77.imp" Q = 73; // 2757 L24: CSEXP(0,0); ->L25 %IF TYPE=2 #line 2757 "regression-compile-tmp/allimpc1-77.imp" U_1080:; #line 2757 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, 0); #line 2757 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_0351; #line 2757 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; #line 2757 "regression-compile-tmp/allimpc1-77.imp" L_0351:; // 2758 PRX(Q,NEST,0,BASE,DISP); ->L21; ! C OR CH #line 2758 "regression-compile-tmp/allimpc1-77.imp" PRX(Q, NEST, 0, BASE, DISP); #line 2758 "regression-compile-tmp/allimpc1-77.imp" goto U_1076; // 2759 L25: R=2; R=6 %IF Q=X'49'; ! HERE FOR REALS #line 2759 "regression-compile-tmp/allimpc1-77.imp" U_1081:; #line 2759 "regression-compile-tmp/allimpc1-77.imp" R = 2; #line 2759 "regression-compile-tmp/allimpc1-77.imp" if (((Q) != (73))) goto L_0352; #line 2759 "regression-compile-tmp/allimpc1-77.imp" R = 6; #line 2759 "regression-compile-tmp/allimpc1-77.imp" L_0352:; // 2760 L26: DUMP(R,1,DISP,0,BASE); ->L37 #line 2760 "regression-compile-tmp/allimpc1-77.imp" U_1082:; #line 2760 "regression-compile-tmp/allimpc1-77.imp" DUMP(R, 1, DISP, 0, BASE); #line 2760 "regression-compile-tmp/allimpc1-77.imp" goto U_1074; // 2761 SW(-1): ! FIRST OPERAND A BYTE #line 2761 "regression-compile-tmp/allimpc1-77.imp" sw10_SW_M_1:; // 2762 T=P; R=TSEXP(Q); L=1 #line 2762 "regression-compile-tmp/allimpc1-77.imp" T = P; #line 2762 "regression-compile-tmp/allimpc1-77.imp" R = TSEXP(&Q); #line 2762 "regression-compile-tmp/allimpc1-77.imp" L = 1; // 2763 ->L18 %IF R=11 %AND A(P)=2 #line 2763 "regression-compile-tmp/allimpc1-77.imp" if (((R) != (11))) goto L_0353; #line 2763 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0353; #line 2763 "regression-compile-tmp/allimpc1-77.imp" goto U_1083; #line 2763 "regression-compile-tmp/allimpc1-77.imp" L_0353:; // 2764 ->L19 %IF R=1 %AND A(P)=2 #line 2764 "regression-compile-tmp/allimpc1-77.imp" if (((R) != (1))) goto L_0354; #line 2764 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0354; #line 2764 "regression-compile-tmp/allimpc1-77.imp" goto U_1084; #line 2764 "regression-compile-tmp/allimpc1-77.imp" L_0354:; // 2765 P=T;CSEXP(0,0); ->L14 %IF TYPE=2 #line 2765 "regression-compile-tmp/allimpc1-77.imp" P = T; #line 2765 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, 0); #line 2765 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_0355; #line 2765 "regression-compile-tmp/allimpc1-77.imp" goto U_1085; #line 2765 "regression-compile-tmp/allimpc1-77.imp" L_0355:; // 2766 R=2; R=1 %IF NEST=2 #line 2766 "regression-compile-tmp/allimpc1-77.imp" R = 2; #line 2766 "regression-compile-tmp/allimpc1-77.imp" if (((NEST) != (2))) goto L_0356; #line 2766 "regression-compile-tmp/allimpc1-77.imp" R = 1; #line 2766 "regression-compile-tmp/allimpc1-77.imp" L_0356:; // 2767 DUMP(4,R,DISP,0,BASE); ->L29 #line 2767 "regression-compile-tmp/allimpc1-77.imp" DUMP(4, R, DISP, 0, BASE); #line 2767 "regression-compile-tmp/allimpc1-77.imp" goto U_107c; // 2768 L14: R=4; ->L26 #line 2768 "regression-compile-tmp/allimpc1-77.imp" U_1085:; #line 2768 "regression-compile-tmp/allimpc1-77.imp" R = 4; #line 2768 "regression-compile-tmp/allimpc1-77.imp" goto U_1082; // 2769 L18: PSS(X'D5',L,BASE,DISP,I,K); ->L20; ! CLC COMPARISONS #line 2769 "regression-compile-tmp/allimpc1-77.imp" U_1083:; #line 2769 "regression-compile-tmp/allimpc1-77.imp" PSS(213, L, BASE, DISP, I, K); #line 2769 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; // 2770 L19: PSI(X'95',Q,BASE,DISP);->L20; !CLI FOR BYTE/INTEGER #line 2770 "regression-compile-tmp/allimpc1-77.imp" U_1084:; #line 2770 "regression-compile-tmp/allimpc1-77.imp" PSI(149, Q, BASE, DISP); #line 2770 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; // 2771 SW(0): !FIRST OPERAND INTEGER #line 2771 "regression-compile-tmp/allimpc1-77.imp" sw10_SW_0:; // 2772 T=P; R=TSEXP(Q); L=4 #line 2772 "regression-compile-tmp/allimpc1-77.imp" T = P; #line 2772 "regression-compile-tmp/allimpc1-77.imp" R = TSEXP(&Q); #line 2772 "regression-compile-tmp/allimpc1-77.imp" L = 4; // 2773 ->RSTORE %UNLESS R=10 %AND A(P)=2 #line 2773 "regression-compile-tmp/allimpc1-77.imp" if (((R) != (10))) goto L_0357; #line 2773 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) == (2))) goto L_0358; #line 2773 "regression-compile-tmp/allimpc1-77.imp" L_0357:; #line 2773 "regression-compile-tmp/allimpc1-77.imp" goto U_1086; #line 2773 "regression-compile-tmp/allimpc1-77.imp" L_0358:; // 2774 ->L18 %IF 7<=FCOMP(M)<=8 #line 2774 "regression-compile-tmp/allimpc1-77.imp" if ((((7) > ((FCOMP-1)[M]))) || ((((FCOMP-1)[M]) > (8)))) goto L_0359; #line 2774 "regression-compile-tmp/allimpc1-77.imp" goto U_1083; #line 2774 "regression-compile-tmp/allimpc1-77.imp" L_0359:; // 2775 RSTORE: P=T; Q=X'59'; ->L24 #line 2775 "regression-compile-tmp/allimpc1-77.imp" U_1086:; #line 2775 "regression-compile-tmp/allimpc1-77.imp" P = T; #line 2775 "regression-compile-tmp/allimpc1-77.imp" Q = 89; #line 2775 "regression-compile-tmp/allimpc1-77.imp" goto U_1080; // 2776 SW(1): !FIRST OPERAND EXPRESSION #line 2776 "regression-compile-tmp/allimpc1-77.imp" sw10_SW_1:; // 2777 SW(2): !2ND HALT OF DOUBLE SEDED #line 2777 "regression-compile-tmp/allimpc1-77.imp" sw10_SW_2:; // 2778 T=P; PTYPEP=PTYPE; R=TSEXP(VALUE) #line 2778 "regression-compile-tmp/allimpc1-77.imp" T = P; #line 2778 "regression-compile-tmp/allimpc1-77.imp" PTYPEP = PTYPE; #line 2778 "regression-compile-tmp/allimpc1-77.imp" R = TSEXP(&VALUE); // 2779 PTYPE=PTYPEP;UNPACK #line 2779 "regression-compile-tmp/allimpc1-77.imp" PTYPE = PTYPEP; #line 2779 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 2780 ->L30 %IF R=1 %AND VALUE=0 %AND(A(P)=2 %OR C=2) #line 2780 "regression-compile-tmp/allimpc1-77.imp" if (((R) != (1))) goto L_035a; #line 2780 "regression-compile-tmp/allimpc1-77.imp" if (((VALUE) != (0))) goto L_035a; #line 2780 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) == (2))) goto L_035b; #line 2780 "regression-compile-tmp/allimpc1-77.imp" if (((C) != (2))) goto L_035a; #line 2780 "regression-compile-tmp/allimpc1-77.imp" L_035b:; #line 2780 "regression-compile-tmp/allimpc1-77.imp" goto U_107a; #line 2780 "regression-compile-tmp/allimpc1-77.imp" L_035a:; // 2781 ->L160 %IF TYPE=5 #line 2781 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_035c; #line 2781 "regression-compile-tmp/allimpc1-77.imp" goto U_1087; #line 2781 "regression-compile-tmp/allimpc1-77.imp" L_035c:; // 2782 ->L150 %IF TYPE=2 #line 2782 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_035d; #line 2782 "regression-compile-tmp/allimpc1-77.imp" goto U_1088; #line 2782 "regression-compile-tmp/allimpc1-77.imp" L_035d:; // 2783 ->L120 %IF R=0 %OR 14<=R<=15 %OR(A(P)=1 %AND C=1) #line 2783 "regression-compile-tmp/allimpc1-77.imp" if (((R) == (0))) goto L_035e; #line 2783 "regression-compile-tmp/allimpc1-77.imp" if ((((14) > (R))) || (((R) <= (15)))) goto L_035e; #line 2783 "regression-compile-tmp/allimpc1-77.imp" L_035f:; #line 2783 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (1))) goto L_0360; #line 2783 "regression-compile-tmp/allimpc1-77.imp" if (((C) != (1))) goto L_0360; #line 2783 "regression-compile-tmp/allimpc1-77.imp" L_035e:; #line 2783 "regression-compile-tmp/allimpc1-77.imp" goto U_1089; #line 2783 "regression-compile-tmp/allimpc1-77.imp" L_0360:; // 2784 ->L130 %IF UNASS=1 %OR R=100 %OR R=11 %OR R<=2 #line 2784 "regression-compile-tmp/allimpc1-77.imp" if (((UNASS) == (1))) goto L_0361; #line 2784 "regression-compile-tmp/allimpc1-77.imp" if (((R) == (100))) goto L_0361; #line 2784 "regression-compile-tmp/allimpc1-77.imp" if (((R) == (11))) goto L_0361; #line 2784 "regression-compile-tmp/allimpc1-77.imp" if (((R) > (2))) goto L_0362; #line 2784 "regression-compile-tmp/allimpc1-77.imp" L_0361:; #line 2784 "regression-compile-tmp/allimpc1-77.imp" goto U_108a; #line 2784 "regression-compile-tmp/allimpc1-77.imp" L_0362:; // 2785 ->L131 %IF R=50; ! REGISTER VARIABLE #line 2785 "regression-compile-tmp/allimpc1-77.imp" if (((R) != (50))) goto L_0363; #line 2785 "regression-compile-tmp/allimpc1-77.imp" goto U_108b; #line 2785 "regression-compile-tmp/allimpc1-77.imp" L_0363:; // 2786 Q=X'59'; Q=X'49' %IF R=12 #line 2786 "regression-compile-tmp/allimpc1-77.imp" Q = 89; #line 2786 "regression-compile-tmp/allimpc1-77.imp" if (((R) != (12))) goto L_0364; #line 2786 "regression-compile-tmp/allimpc1-77.imp" Q = 73; #line 2786 "regression-compile-tmp/allimpc1-77.imp" L_0364:; // 2787 PRX(Q,NEST,0,I,K); ->L20 #line 2787 "regression-compile-tmp/allimpc1-77.imp" PRX(Q, NEST, 0, I, K); #line 2787 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; // 2788 L130: !1ST OPND INTEGER IN NEST-2ND OPN SIMPLE INTEGER EXPRN #line 2788 "regression-compile-tmp/allimpc1-77.imp" U_108a:; // 2789 R=NEST; REGISTER(R)=1 %IF REGISTER(R)=0 #line 2789 "regression-compile-tmp/allimpc1-77.imp" R = NEST; #line 2789 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[R]) != (0))) goto L_0365; #line 2789 "regression-compile-tmp/allimpc1-77.imp" REGISTER[R] = 1; #line 2789 "regression-compile-tmp/allimpc1-77.imp" L_0365:; // 2790 P=T; CSEXP(0,1) #line 2790 "regression-compile-tmp/allimpc1-77.imp" P = T; #line 2790 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, 1); // 2791 REGISTER(R)=0 %IF REGISTER(R)>0; ->L29 #line 2791 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[R]) <= (0))) goto L_0366; #line 2791 "regression-compile-tmp/allimpc1-77.imp" REGISTER[R] = 0; #line 2791 "regression-compile-tmp/allimpc1-77.imp" L_0366:; #line 2791 "regression-compile-tmp/allimpc1-77.imp" goto U_107c; // 2792 L131: PRR(X'19',NEST,K); ->L20 #line 2792 "regression-compile-tmp/allimpc1-77.imp" U_108b:; #line 2792 "regression-compile-tmp/allimpc1-77.imp" PRR(25, NEST, K); #line 2792 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; // 2793 L120: !1ST OPND INTEGER EXPRN IN NEST-SECOND OPND UNKNOWN #line 2793 "regression-compile-tmp/allimpc1-77.imp" U_1089:; // 2794 Q=PARK(NEST); P=T #line 2794 "regression-compile-tmp/allimpc1-77.imp" Q = PARK(NEST); #line 2794 "regression-compile-tmp/allimpc1-77.imp" P = T; // 2795 CSEXP(0,0); ->L122 %IF TYPE=2 #line 2795 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, 0); #line 2795 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_0367; #line 2795 "regression-compile-tmp/allimpc1-77.imp" goto U_108c; #line 2795 "regression-compile-tmp/allimpc1-77.imp" L_0367:; // 2796 UNPARK(X'59',NEST,Q); ->L21 #line 2796 "regression-compile-tmp/allimpc1-77.imp" UNPARK(89, NEST, Q); #line 2796 "regression-compile-tmp/allimpc1-77.imp" goto U_1076; // 2797 L122: UNPARK(X'58',1,Q); ->L37; ! TO FLOAT FIRST OPERAND #line 2797 "regression-compile-tmp/allimpc1-77.imp" U_108c:; #line 2797 "regression-compile-tmp/allimpc1-77.imp" UNPARK(88, 1, Q); #line 2797 "regression-compile-tmp/allimpc1-77.imp" goto U_1074; // 2798 L150: P=T; Q=PARKF(NEST,PREC); ! #line 2798 "regression-compile-tmp/allimpc1-77.imp" U_1088:; #line 2798 "regression-compile-tmp/allimpc1-77.imp" P = T; #line 2798 "regression-compile-tmp/allimpc1-77.imp" Q = PARKF(NEST, PREC); // 2799 ->L155 %IF PREC=0 #line 2799 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) != (0))) goto L_0368; #line 2799 "regression-compile-tmp/allimpc1-77.imp" goto U_108d; #line 2799 "regression-compile-tmp/allimpc1-77.imp" L_0368:; // 2800 CSEXP(0,3); !1ST OPND LONG REAL EXPR #line 2800 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, 3); // 2801 PUSH(LWSP(LEVEL),0,Q) #line 2801 "regression-compile-tmp/allimpc1-77.imp" PUSH(&LWSP[LEVEL], 0, Q); // 2802 BASE=RBASE #line 2802 "regression-compile-tmp/allimpc1-77.imp" BASE = RBASE; // 2803 DISP=Q; Q=X'69'; ->L51 #line 2803 "regression-compile-tmp/allimpc1-77.imp" DISP = Q; #line 2803 "regression-compile-tmp/allimpc1-77.imp" Q = 105; #line 2803 "regression-compile-tmp/allimpc1-77.imp" goto U_1075; // 2804 L155: CSEXP(0,2); !1ST OPND SHORT REAL EXPRN #line 2804 "regression-compile-tmp/allimpc1-77.imp" U_108d:; #line 2804 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, 2); // 2805 PUSH(WSP(LEVEL),0,Q) #line 2805 "regression-compile-tmp/allimpc1-77.imp" PUSH(&WSP[LEVEL], 0, Q); // 2806 BASE=RBASE;DISP=Q #line 2806 "regression-compile-tmp/allimpc1-77.imp" BASE = RBASE; #line 2806 "regression-compile-tmp/allimpc1-77.imp" DISP = Q; // 2807 Q=X'79'; ->L40 #line 2807 "regression-compile-tmp/allimpc1-77.imp" Q = 121; #line 2807 "regression-compile-tmp/allimpc1-77.imp" goto U_1077; // 2808 L160: %COMMENT 1ST OPERAND A STRING EXPRESSION PTR IN NEST #line 2808 "regression-compile-tmp/allimpc1-77.imp" U_1087:; // 2809 P=T; POP(STR WSP(LEVEL),R,T);! RMEOVE WKAREA WITH STRING%C #line 2809 "regression-compile-tmp/allimpc1-77.imp" P = T; #line 2809 "regression-compile-tmp/allimpc1-77.imp" POP(&STRWSP[LEVEL], &R, &T); // 2810 !FROM FREE LIST TO PREVENT CORRUPTION // 2811 R=PARK(NEST) #line 2811 "regression-compile-tmp/allimpc1-77.imp" R = PARK(NEST); // 2812 CSTREXP(1); NEST=1 #line 2812 "regression-compile-tmp/allimpc1-77.imp" CSTREXP(1); #line 2812 "regression-compile-tmp/allimpc1-77.imp" NEST = 1; // 2813 UNPARK(X'58',2,R) #line 2813 "regression-compile-tmp/allimpc1-77.imp" UNPARK(88, 2, R); // 2814 PUSH(STR WSP(LEVEL),0,T) #line 2814 "regression-compile-tmp/allimpc1-77.imp" PUSH(&STRWSP[LEVEL], 0, T); // 2815 L161: ->L162 %UNLESS 7<=FCOMP(M)<=8; ! OPTIMISE = & \= #line 2815 "regression-compile-tmp/allimpc1-77.imp" U_106e:; #line 2815 "regression-compile-tmp/allimpc1-77.imp" if ((((7) > ((FCOMP-1)[M]))) || ((((FCOMP-1)[M]) <= (8)))) goto L_036a; #line 2815 "regression-compile-tmp/allimpc1-77.imp" L_0369:; #line 2815 "regression-compile-tmp/allimpc1-77.imp" goto U_108e; #line 2815 "regression-compile-tmp/allimpc1-77.imp" L_036a:; // 2816 PRX(X'43',3,0,1,0); ! IC TO SET UP FOR EX #line 2816 "regression-compile-tmp/allimpc1-77.imp" PRX(67, 3, 0, 1, 0); // 2817 PRX(X'44',3,0,GLA,STRINST+6); ->L20; ! EX_3,COMPARISON #line 2817 "regression-compile-tmp/allimpc1-77.imp" PRX(68, 3, 0, GLA, (((int)(STRINST)) + (6))); #line 2817 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; // 2818 L162: PPJ(35); ! GO TO SUBROUTINE FOR COMPARISON #line 2818 "regression-compile-tmp/allimpc1-77.imp" U_108e:; #line 2818 "regression-compile-tmp/allimpc1-77.imp" PPJ(35); // 2819 L20: MASK=FCOMP(M); ->L1; ! MASK FOR NORMAL COMPARISON #line 2819 "regression-compile-tmp/allimpc1-77.imp" U_1072:; #line 2819 "regression-compile-tmp/allimpc1-77.imp" MASK = (FCOMP-1)[M]; #line 2819 "regression-compile-tmp/allimpc1-77.imp" goto U_106d; // 2820 L21: MASK=BCOMP(M); ! BACKWARDS COMPARISON #line 2820 "regression-compile-tmp/allimpc1-77.imp" U_1076:; #line 2820 "regression-compile-tmp/allimpc1-77.imp" MASK = (BCOMP-1)[M]; // 2821 L1: %END #line 2821 "regression-compile-tmp/allimpc1-77.imp" U_106d:; #line 2821 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; sw10_SW_M_8:; sw10_SW_M_7:; sw10_SW_M_6:; /*_imp_signal(6,3,sw10_SW_idx,"SWITCH LABEL NOT SET - sw10_SW");*/ fprintf(stderr, "%%SWITCH LABEL NOT SET - sw10_SW(%d): at line %s:%d", sw10_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // End of block CCOMP at level 4 // 2822 %ROUTINE CCC #line 2822 "regression-compile-tmp/allimpc1-77.imp" void CCC( void ) #line 2822 "regression-compile-tmp/allimpc1-77.imp" { // 2823 !%SHORTROUTINE // 2824 %INTEGER LINE,FLAB #line 2824 "regression-compile-tmp/allimpc1-77.imp" int LINE; #line 2824 "regression-compile-tmp/allimpc1-77.imp" int FLAB; // 2825 CSC(FLAB) #line 2825 "regression-compile-tmp/allimpc1-77.imp" CSC(&FLAB); // 2826 C=A(P) ; P=P+1 #line 2826 "regression-compile-tmp/allimpc1-77.imp" C = A[((P) + ((int)(2)))]; #line 2826 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 2827 CLAUSES=CLAUSES+1 #line 2827 "regression-compile-tmp/allimpc1-77.imp" CLAUSES = (((int)(CLAUSES)) + (1)); // 2828 ->L10 %IF T=0 %OR(CLAUSES>1 %AND C=2) #line 2828 "regression-compile-tmp/allimpc1-77.imp" if (((T) == (0))) goto L_036b; #line 2828 "regression-compile-tmp/allimpc1-77.imp" if (((CLAUSES) <= (1))) goto L_036c; #line 2828 "regression-compile-tmp/allimpc1-77.imp" if (((C) != (2))) goto L_036c; #line 2828 "regression-compile-tmp/allimpc1-77.imp" L_036b:; #line 2828 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; #line 2828 "regression-compile-tmp/allimpc1-77.imp" L_036c:; // 2829 ->L2 %IF FAILPT#0 #line 2829 "regression-compile-tmp/allimpc1-77.imp" if (((FAILPT) == (0))) goto L_036d; #line 2829 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 2829 "regression-compile-tmp/allimpc1-77.imp" L_036d:; // 2830 FAILPT=1 ; LINE=1 ; ->L3 #line 2830 "regression-compile-tmp/allimpc1-77.imp" FAILPT = 1; #line 2830 "regression-compile-tmp/allimpc1-77.imp" LINE = 1; #line 2830 "regression-compile-tmp/allimpc1-77.imp" goto U_1065; // 2831 L2: LINE=0 #line 2831 "regression-compile-tmp/allimpc1-77.imp" U_1064:; #line 2831 "regression-compile-tmp/allimpc1-77.imp" LINE = 0; // 2832 L3: #line 2832 "regression-compile-tmp/allimpc1-77.imp" U_1065:; // 2833 PLOCAL JUMP(MASK,JNPORFP) #line 2833 "regression-compile-tmp/allimpc1-77.imp" PLOCALJUMP(MASK, JNPORFP); // 2834 %UNLESS FLAB=0 %THEN %START #line 2834 "regression-compile-tmp/allimpc1-77.imp" if (((FLAB) == (0))) goto L_036e; // 2835 PUSH(LOCAL LABEL,CA,FLAB) #line 2835 "regression-compile-tmp/allimpc1-77.imp" PUSH(&LOCALLABEL, CA, FLAB); // 2836 R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0 #line 2836 "regression-compile-tmp/allimpc1-77.imp" if (((R13) != (SAVE13))) goto L_0314; #line 2836 "regression-compile-tmp/allimpc1-77.imp" if (((CHNGE13) == (0))) goto L_036f; #line 2836 "regression-compile-tmp/allimpc1-77.imp" L_0314:; #line 2836 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; #line 2836 "regression-compile-tmp/allimpc1-77.imp" L_036f:; // 2837 %FINISH #line 2837 "regression-compile-tmp/allimpc1-77.imp" L_036e:; // 2838 CCC; !FIX NEXT CLAUSE #line 2838 "regression-compile-tmp/allimpc1-77.imp" CCC(); // 2839 ->L10 %IF LINE=0 #line 2839 "regression-compile-tmp/allimpc1-77.imp" if (((LINE) != (0))) goto L_0370; #line 2839 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; #line 2839 "regression-compile-tmp/allimpc1-77.imp" L_0370:; // 2840 MASK=MASK!!15 %IF JNPORFP=NEARLAB #line 2840 "regression-compile-tmp/allimpc1-77.imp" if (((JNPORFP) != (NEARLAB))) goto L_0371; #line 2840 "regression-compile-tmp/allimpc1-77.imp" MASK = ((MASK) ^ (15)); #line 2840 "regression-compile-tmp/allimpc1-77.imp" L_0371:; // 2841 L10: %END #line 2841 "regression-compile-tmp/allimpc1-77.imp" U_1063:; #line 2841 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CCC at level 4 // 2842 %ROUTINE CSC(%INTEGERNAME FLAB) #line 2842 "regression-compile-tmp/allimpc1-77.imp" void CSC( int /*name*/*FLAB ) #line 2842 "regression-compile-tmp/allimpc1-77.imp" { // 2843 !%SHORTROUTINE // 2844 %INTEGER LINE,Q,R,S,TP,NEAR #line 2844 "regression-compile-tmp/allimpc1-77.imp" int LINE; #line 2844 "regression-compile-tmp/allimpc1-77.imp" int Q; #line 2844 "regression-compile-tmp/allimpc1-77.imp" int R; #line 2844 "regression-compile-tmp/allimpc1-77.imp" int S; #line 2844 "regression-compile-tmp/allimpc1-77.imp" int TP; #line 2844 "regression-compile-tmp/allimpc1-77.imp" int NEAR; // 2845 FLAB=0 #line 2845 "regression-compile-tmp/allimpc1-77.imp" *FLAB = 0; // 2846 S=A(P+1+A(P+1)) #line 2846 "regression-compile-tmp/allimpc1-77.imp" S = A[(((unsigned char)((((short)((((int)(P)) + (1)))) + (A[(((unsigned char)((((int)(P)) + (1)))) + (2))])))) + (2))]; // 2847 LINE=S #line 2847 "regression-compile-tmp/allimpc1-77.imp" LINE = S; // 2848 NEAR=NEARLAB #line 2848 "regression-compile-tmp/allimpc1-77.imp" NEAR = NEARLAB; // 2849 ->START %IF T=0 %OR(S=2 %AND CLAUSES>0) #line 2849 "regression-compile-tmp/allimpc1-77.imp" if (((T) == (0))) goto L_0372; #line 2849 "regression-compile-tmp/allimpc1-77.imp" if (((S) != (2))) goto L_0373; #line 2849 "regression-compile-tmp/allimpc1-77.imp" if (((CLAUSES) <= (0))) goto L_0373; #line 2849 "regression-compile-tmp/allimpc1-77.imp" L_0372:; #line 2849 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; #line 2849 "regression-compile-tmp/allimpc1-77.imp" L_0373:; // 2850 PLABEL=PLABEL-1; NEAR=PLABEL #line 2850 "regression-compile-tmp/allimpc1-77.imp" PLABEL = (((int)(PLABEL)) - (1)); #line 2850 "regression-compile-tmp/allimpc1-77.imp" NEAR = PLABEL; // 2851 START: ->L1 %IF A(P)=1 #line 2851 "regression-compile-tmp/allimpc1-77.imp" U_1068:; #line 2851 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (1))) goto L_0374; #line 2851 "regression-compile-tmp/allimpc1-77.imp" goto U_1069; #line 2851 "regression-compile-tmp/allimpc1-77.imp" L_0374:; // 2852 P=P+2 #line 2852 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); // 2853 ->REDUND %IF T=0 #line 2853 "regression-compile-tmp/allimpc1-77.imp" if (((T) != (0))) goto L_0375; #line 2853 "regression-compile-tmp/allimpc1-77.imp" goto U_106d; #line 2853 "regression-compile-tmp/allimpc1-77.imp" L_0375:; // 2854 ->REDUND2 %IF T=A(P+1+A(P+1)) #line 2854 "regression-compile-tmp/allimpc1-77.imp" if (((T) != (A[(((unsigned char)((((short)((((int)(P)) + (1)))) + (A[(((unsigned char)((((int)(P)) + (1)))) + (2))])))) + (2))]))) goto L_0376; #line 2854 "regression-compile-tmp/allimpc1-77.imp" goto U_106e; #line 2854 "regression-compile-tmp/allimpc1-77.imp" L_0376:; // 2855 FLAB=NEAR %UNLESS NEAR=NEARLAB #line 2855 "regression-compile-tmp/allimpc1-77.imp" if (((NEAR) == (NEARLAB))) goto L_0377; #line 2855 "regression-compile-tmp/allimpc1-77.imp" *FLAB = NEAR; #line 2855 "regression-compile-tmp/allimpc1-77.imp" L_0377:; // 2856 TP=T-1; ->LAST %IF NEAR=NEARLAB #line 2856 "regression-compile-tmp/allimpc1-77.imp" TP = (((int)(T)) - (1)); #line 2856 "regression-compile-tmp/allimpc1-77.imp" if (((NEAR) != (NEARLAB))) goto L_0378; #line 2856 "regression-compile-tmp/allimpc1-77.imp" goto U_106f; #line 2856 "regression-compile-tmp/allimpc1-77.imp" L_0378:; // 2857 CCOND(TP,NEAR,FARLAB); ->L9 #line 2857 "regression-compile-tmp/allimpc1-77.imp" CCOND(TP, NEAR, FARLAB); #line 2857 "regression-compile-tmp/allimpc1-77.imp" goto U_1070; // 2858 REDUND:CCOND(IU,NEARLAB,FARLAB); ->L9 #line 2858 "regression-compile-tmp/allimpc1-77.imp" U_106d:; #line 2858 "regression-compile-tmp/allimpc1-77.imp" CCOND(IU, NEARLAB, FARLAB); #line 2858 "regression-compile-tmp/allimpc1-77.imp" goto U_1070; // 2859 REDUND2: CCOND(IU,NEARLAB,FARLAB) #line 2859 "regression-compile-tmp/allimpc1-77.imp" U_106e:; #line 2859 "regression-compile-tmp/allimpc1-77.imp" CCOND(IU, NEARLAB, FARLAB); // 2860 MASK=MASK!!15 %IF JNPORFP=NEARLAB ;->L9 #line 2860 "regression-compile-tmp/allimpc1-77.imp" if (((JNPORFP) != (NEARLAB))) goto L_0379; #line 2860 "regression-compile-tmp/allimpc1-77.imp" MASK = ((MASK) ^ (15)); #line 2860 "regression-compile-tmp/allimpc1-77.imp" L_0379:; #line 2860 "regression-compile-tmp/allimpc1-77.imp" goto U_1070; // 2861 LAST: CCOND(IU,NEAR,FARLAB) #line 2861 "regression-compile-tmp/allimpc1-77.imp" U_106f:; #line 2861 "regression-compile-tmp/allimpc1-77.imp" CCOND(IU, NEAR, FARLAB); // 2862 NEARLAB=0; ->L9 #line 2862 "regression-compile-tmp/allimpc1-77.imp" NEARLAB = 0; #line 2862 "regression-compile-tmp/allimpc1-77.imp" goto U_1070; // 2863 L1: %COMMENT CLASSIFY SIMPLE CONDITION AND ACT ACCORDINGLY #line 2863 "regression-compile-tmp/allimpc1-77.imp" U_1069:; // 2864 P=P+2; S=P; SKIP EXP #line 2864 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 2864 "regression-compile-tmp/allimpc1-77.imp" S = P; #line 2864 "regression-compile-tmp/allimpc1-77.imp" SKIPEXP(); // 2865 ->L21 %IF A(P)=8; ! RESOLUTION (ALL OCCURRENCES) #line 2865 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (8))) goto L_037a; #line 2865 "regression-compile-tmp/allimpc1-77.imp" goto U_1071; #line 2865 "regression-compile-tmp/allimpc1-77.imp" L_037a:; // 2866 P=P+1; Q=TSEXP(R); ! TEST MIDDLE OPERAND FIRST #line 2866 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2866 "regression-compile-tmp/allimpc1-77.imp" Q = TSEXP(&R); // 2867 %IF TYPE=3 %THEN %START #line 2867 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_037b; // 2868 P=P+2; R=COPY RECORD TAG; %FINISH #line 2868 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 2868 "regression-compile-tmp/allimpc1-77.imp" R = COPYRECORDTAG(); #line 2868 "regression-compile-tmp/allimpc1-77.imp" L_037b:; // 2869 ->STR %IF TYPE=5 #line 2869 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_037c; #line 2869 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; #line 2869 "regression-compile-tmp/allimpc1-77.imp" L_037c:; // 2870 ->ZERO %IF Q=1 %AND R=0 %AND A(P)=2;! ! NOT DOUBLE SIDED #line 2870 "regression-compile-tmp/allimpc1-77.imp" if (((Q) != (1))) goto L_037d; #line 2870 "regression-compile-tmp/allimpc1-77.imp" if (((R) != (0))) goto L_037d; #line 2870 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_037d; #line 2870 "regression-compile-tmp/allimpc1-77.imp" goto U_1073; #line 2870 "regression-compile-tmp/allimpc1-77.imp" L_037d:; // 2871 P=S; Q=TSEXP(R); ! TEST LHS #line 2871 "regression-compile-tmp/allimpc1-77.imp" P = S; #line 2871 "regression-compile-tmp/allimpc1-77.imp" Q = TSEXP(&R); // 2872 ->CONST %IF 1<=Q<=2 #line 2872 "regression-compile-tmp/allimpc1-77.imp" if ((((1) > (Q))) || (((Q) > (2)))) goto L_037e; #line 2872 "regression-compile-tmp/allimpc1-77.imp" goto U_1074; #line 2872 "regression-compile-tmp/allimpc1-77.imp" L_037e:; // 2873 ->SIMPLE %IF Q=20 #line 2873 "regression-compile-tmp/allimpc1-77.imp" if (((Q) != (20))) goto L_037f; #line 2873 "regression-compile-tmp/allimpc1-77.imp" goto U_1075; #line 2873 "regression-compile-tmp/allimpc1-77.imp" L_037f:; // 2874 ->REGVAR %IF Q=50 #line 2874 "regression-compile-tmp/allimpc1-77.imp" if (((Q) != (50))) goto L_0380; #line 2874 "regression-compile-tmp/allimpc1-77.imp" goto U_1076; #line 2874 "regression-compile-tmp/allimpc1-77.imp" L_0380:; // 2875 ->STR %IF TYPE=5 #line 2875 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_0381; #line 2875 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; #line 2875 "regression-compile-tmp/allimpc1-77.imp" L_0381:; // 2876 ->NORMAL %UNLESS UNASS=0 %AND 10<=Q<=15 #line 2876 "regression-compile-tmp/allimpc1-77.imp" if (((UNASS) != (0))) goto L_0382; #line 2876 "regression-compile-tmp/allimpc1-77.imp" if ((((10) > (Q))) || (((Q) <= (15)))) goto L_0383; #line 2876 "regression-compile-tmp/allimpc1-77.imp" L_0382:; #line 2876 "regression-compile-tmp/allimpc1-77.imp" goto U_1077; #line 2876 "regression-compile-tmp/allimpc1-77.imp" L_0383:; // 2877 SIMPLE: BASE=I; DISP=K; CCOMP(10-Q); ->L8 #line 2877 "regression-compile-tmp/allimpc1-77.imp" U_1075:; #line 2877 "regression-compile-tmp/allimpc1-77.imp" BASE = I; #line 2877 "regression-compile-tmp/allimpc1-77.imp" DISP = K; #line 2877 "regression-compile-tmp/allimpc1-77.imp" CCOMP((((int)(10)) - (Q))); #line 2877 "regression-compile-tmp/allimpc1-77.imp" goto U_107a; // 2878 REGVAR: DISP=K; CCOMP(-9); ->L8 #line 2878 "regression-compile-tmp/allimpc1-77.imp" U_1076:; #line 2878 "regression-compile-tmp/allimpc1-77.imp" DISP = K; #line 2878 "regression-compile-tmp/allimpc1-77.imp" CCOMP((-9)); #line 2878 "regression-compile-tmp/allimpc1-77.imp" goto U_107a; // 2879 STR: P=S; CSTREXP(1); NEST=1; CCOMP(1); ->L8 #line 2879 "regression-compile-tmp/allimpc1-77.imp" U_1072:; #line 2879 "regression-compile-tmp/allimpc1-77.imp" P = S; #line 2879 "regression-compile-tmp/allimpc1-77.imp" CSTREXP(1); #line 2879 "regression-compile-tmp/allimpc1-77.imp" NEST = 1; #line 2879 "regression-compile-tmp/allimpc1-77.imp" CCOMP(1); #line 2879 "regression-compile-tmp/allimpc1-77.imp" goto U_107a; // 2880 CONST: VALUE=R; CCOMP(-3); ->L8 #line 2880 "regression-compile-tmp/allimpc1-77.imp" U_1074:; #line 2880 "regression-compile-tmp/allimpc1-77.imp" VALUE = R; #line 2880 "regression-compile-tmp/allimpc1-77.imp" CCOMP((-3)); #line 2880 "regression-compile-tmp/allimpc1-77.imp" goto U_107a; // 2881 L21: P=S+2; ->L22 %UNLESS A(S)=4 %AND A(S+1)=1 #line 2881 "regression-compile-tmp/allimpc1-77.imp" U_1071:; #line 2881 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(S)) + (2)); #line 2881 "regression-compile-tmp/allimpc1-77.imp" if (((A[((S) + ((int)(2)))]) != (4))) goto L_0384; #line 2881 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(S)) + (1)))) + (2))]) == (1))) goto L_0385; #line 2881 "regression-compile-tmp/allimpc1-77.imp" L_0384:; #line 2881 "regression-compile-tmp/allimpc1-77.imp" goto U_107b; #line 2881 "regression-compile-tmp/allimpc1-77.imp" L_0385:; // 2882 CNAME(2,1) #line 2882 "regression-compile-tmp/allimpc1-77.imp" CNAME(2, 1); // 2883 ->L23 %IF A(P)=2 %AND TYPE=5 #line 2883 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0386; #line 2883 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_0386; #line 2883 "regression-compile-tmp/allimpc1-77.imp" goto U_107c; #line 2883 "regression-compile-tmp/allimpc1-77.imp" L_0386:; // 2884 L22: P=S; SKIP EXP #line 2884 "regression-compile-tmp/allimpc1-77.imp" U_107b:; #line 2884 "regression-compile-tmp/allimpc1-77.imp" P = S; #line 2884 "regression-compile-tmp/allimpc1-77.imp" SKIPEXP(); // 2885 L28: P=P+1; SKIP EXP #line 2885 "regression-compile-tmp/allimpc1-77.imp" U_107d:; #line 2885 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2885 "regression-compile-tmp/allimpc1-77.imp" SKIPEXP(); // 2886 FAULT(73); ->L8 #line 2886 "regression-compile-tmp/allimpc1-77.imp" FAULT(73); #line 2886 "regression-compile-tmp/allimpc1-77.imp" goto U_107a; // 2887 L23: P=P+2 #line 2887 "regression-compile-tmp/allimpc1-77.imp" U_107c:; #line 2887 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); // 2888 FLAB=NEAR %UNLESS NEAR=NEARLAB #line 2888 "regression-compile-tmp/allimpc1-77.imp" if (((NEAR) == (NEARLAB))) goto L_0387; #line 2888 "regression-compile-tmp/allimpc1-77.imp" *FLAB = NEAR; #line 2888 "regression-compile-tmp/allimpc1-77.imp" L_0387:; // 2889 %IF T#2 %THEN R=JNPORFP %ELSE %START #line 2889 "regression-compile-tmp/allimpc1-77.imp" if (((T) == (2))) goto L_0388; #line 2889 "regression-compile-tmp/allimpc1-77.imp" R = JNPORFP; #line 2889 "regression-compile-tmp/allimpc1-77.imp" goto L_0389; #line 2889 "regression-compile-tmp/allimpc1-77.imp" L_0388:; // 2890 %IF JNPORFP#FARLAB %AND LINE=2 %AND CLAUSES>0 %C #line 2890 "regression-compile-tmp/allimpc1-77.imp" if (((JNPORFP) == (FARLAB))) goto L_038a; #line 2890 "regression-compile-tmp/allimpc1-77.imp" if (((LINE) != (2))) goto L_038a; #line 2890 "regression-compile-tmp/allimpc1-77.imp" if (((CLAUSES) <= (0))) goto L_038a; #line 2890 "regression-compile-tmp/allimpc1-77.imp" R = FARLAB; #line 2890 "regression-compile-tmp/allimpc1-77.imp" goto L_038b; #line 2890 "regression-compile-tmp/allimpc1-77.imp" L_038a:; #line 2890 "regression-compile-tmp/allimpc1-77.imp" R = NEAR; #line 2890 "regression-compile-tmp/allimpc1-77.imp" L_038b:; // 2891 %THEN R=FARLAB %ELSE R=NEAR // 2892 %FINISH #line 2892 "regression-compile-tmp/allimpc1-77.imp" L_0389:; // 2893 CRES(1,R) #line 2893 "regression-compile-tmp/allimpc1-77.imp" CRES(1, R); // 2894 ->L28 %UNLESS A(P)=2 ;! NO DOUBLE SIDED RESOLUTION #line 2894 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) == (2))) goto L_038c; #line 2894 "regression-compile-tmp/allimpc1-77.imp" goto U_107d; #line 2894 "regression-compile-tmp/allimpc1-77.imp" L_038c:; // 2895 P=P+1; #line 2895 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 2896 MASK=15; ->L10 #line 2896 "regression-compile-tmp/allimpc1-77.imp" MASK = 15; #line 2896 "regression-compile-tmp/allimpc1-77.imp" goto U_107e; // 2897 ZERO: P=S; Q=TSEXP(R); ->SIMPLE %IF Q=11; ! CLI FOR BYTE/ZERO #line 2897 "regression-compile-tmp/allimpc1-77.imp" U_1073:; #line 2897 "regression-compile-tmp/allimpc1-77.imp" P = S; #line 2897 "regression-compile-tmp/allimpc1-77.imp" Q = TSEXP(&R); #line 2897 "regression-compile-tmp/allimpc1-77.imp" if (((Q) != (11))) goto L_038d; #line 2897 "regression-compile-tmp/allimpc1-77.imp" goto U_1075; #line 2897 "regression-compile-tmp/allimpc1-77.imp" L_038d:; // 2898 ->STR %IF TYPE=5 #line 2898 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_038e; #line 2898 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; #line 2898 "regression-compile-tmp/allimpc1-77.imp" L_038e:; // 2899 NORMAL: P=S; CSEXP(0,0); CCOMP(1) #line 2899 "regression-compile-tmp/allimpc1-77.imp" U_1077:; #line 2899 "regression-compile-tmp/allimpc1-77.imp" P = S; #line 2899 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, 0); #line 2899 "regression-compile-tmp/allimpc1-77.imp" CCOMP(1); // 2900 L8: P=P+1 #line 2900 "regression-compile-tmp/allimpc1-77.imp" U_107a:; #line 2900 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 2901 ->L10 %IF A(P-1)=2; ! GO UNLESS DOUBLESIDED #line 2901 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_038f; #line 2901 "regression-compile-tmp/allimpc1-77.imp" goto U_107e; #line 2901 "regression-compile-tmp/allimpc1-77.imp" L_038f:; // 2902 FLAB=NEAR %UNLESS NEAR=NEARLAB #line 2902 "regression-compile-tmp/allimpc1-77.imp" if (((NEAR) == (NEARLAB))) goto L_0390; #line 2902 "regression-compile-tmp/allimpc1-77.imp" *FLAB = NEAR; #line 2902 "regression-compile-tmp/allimpc1-77.imp" L_0390:; // 2903 ->ORCOND %IF T=2 #line 2903 "regression-compile-tmp/allimpc1-77.imp" if (((T) != (2))) goto L_0391; #line 2903 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; #line 2903 "regression-compile-tmp/allimpc1-77.imp" L_0391:; // 2904 R=JNPORFP; ->L7 #line 2904 "regression-compile-tmp/allimpc1-77.imp" R = JNPORFP; #line 2904 "regression-compile-tmp/allimpc1-77.imp" goto U_1080; // 2905 ORCOND: %IF JNPORFP#FARLAB %AND LINE=2 %AND CLAUSES>0 %THEN %C #line 2905 "regression-compile-tmp/allimpc1-77.imp" U_107f:; #line 2905 "regression-compile-tmp/allimpc1-77.imp" if (((JNPORFP) == (FARLAB))) goto L_0392; #line 2905 "regression-compile-tmp/allimpc1-77.imp" if (((LINE) != (2))) goto L_0392; #line 2905 "regression-compile-tmp/allimpc1-77.imp" if (((CLAUSES) <= (0))) goto L_0392; #line 2905 "regression-compile-tmp/allimpc1-77.imp" R = FARLAB; #line 2905 "regression-compile-tmp/allimpc1-77.imp" goto L_0393; #line 2905 "regression-compile-tmp/allimpc1-77.imp" L_0392:; #line 2905 "regression-compile-tmp/allimpc1-77.imp" R = NEAR; #line 2905 "regression-compile-tmp/allimpc1-77.imp" L_0393:; // 2906 R=FARLAB %ELSE R=NEAR // 2907 %COMMENT LAST DOUBLESIDED IN OR CONDITION IS SPECIAL // 2908 L7: #line 2908 "regression-compile-tmp/allimpc1-77.imp" U_1080:; // 2909 PLOCAL JUMP(MASK!!15,R) #line 2909 "regression-compile-tmp/allimpc1-77.imp" PLOCALJUMP(((MASK) ^ (15)), R); // 2910 CCOMP(2) #line 2910 "regression-compile-tmp/allimpc1-77.imp" CCOMP(2); // 2911 L10: MASK=MASK!!15 %IF T=1 %OR(T=0 %AND IU=0) #line 2911 "regression-compile-tmp/allimpc1-77.imp" U_107e:; #line 2911 "regression-compile-tmp/allimpc1-77.imp" if (((T) == (1))) goto L_0394; #line 2911 "regression-compile-tmp/allimpc1-77.imp" if (((T) != (0))) goto L_0395; #line 2911 "regression-compile-tmp/allimpc1-77.imp" if (((IU) != (0))) goto L_0395; #line 2911 "regression-compile-tmp/allimpc1-77.imp" L_0394:; #line 2911 "regression-compile-tmp/allimpc1-77.imp" MASK = ((MASK) ^ (15)); #line 2911 "regression-compile-tmp/allimpc1-77.imp" L_0395:; // 2912 L9: %END #line 2912 "regression-compile-tmp/allimpc1-77.imp" U_1070:; #line 2912 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CSC at level 4 // 2913 L99: %END ;!OF CCOND #line 2913 "regression-compile-tmp/allimpc1-77.imp" U_105f:; #line 2913 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CCOND at level 3 // 2914 %ROUTINE FILL LOCAL JUMPS #line 2914 "regression-compile-tmp/allimpc1-77.imp" void FILLLOCALJUMPS( void ) #line 2914 "regression-compile-tmp/allimpc1-77.imp" { // 2915 !%SHORTROUTINE // 2916 %INTEGER T,C,J #line 2916 "regression-compile-tmp/allimpc1-77.imp" int T; #line 2916 "regression-compile-tmp/allimpc1-77.imp" int C; #line 2916 "regression-compile-tmp/allimpc1-77.imp" int J; // 2917 L1: POP(LOCAL JUMP,T,C) #line 2917 "regression-compile-tmp/allimpc1-77.imp" U_106c:; #line 2917 "regression-compile-tmp/allimpc1-77.imp" POP(&LOCALJUMP, &T, &C); // 2918 ->L98 %IF T=-1 #line 2918 "regression-compile-tmp/allimpc1-77.imp" if (((T) != ((-1)))) goto L_0396; #line 2918 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; #line 2918 "regression-compile-tmp/allimpc1-77.imp" L_0396:; // 2919 J=FIND(C,LOCAL LABEL) #line 2919 "regression-compile-tmp/allimpc1-77.imp" J = FIND(C, LOCALLABEL); // 2920 FAULT(233) %IF J=-1 #line 2920 "regression-compile-tmp/allimpc1-77.imp" if (((J) != ((-1)))) goto L_0397; #line 2920 "regression-compile-tmp/allimpc1-77.imp" FAULT(233); #line 2920 "regression-compile-tmp/allimpc1-77.imp" L_0397:; // 2921 J=J-LOCAL ADDR #line 2921 "regression-compile-tmp/allimpc1-77.imp" J = (((int)(J)) - (LOCALADDR)); // 2922 PLUG(T+2,J); ->L1 #line 2922 "regression-compile-tmp/allimpc1-77.imp" PLUG((((int)(T)) + (2)), J); #line 2922 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; // 2923 L98: CLEAR LIST(LOCAL LABEL) #line 2923 "regression-compile-tmp/allimpc1-77.imp" U_1079:; #line 2923 "regression-compile-tmp/allimpc1-77.imp" CLEARLIST(&LOCALLABEL); // 2924 %END #line 2924 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block FILLLOCALJUMPS at level 3 // 2925 %ROUTINE P LOCAL JUMP(%INTEGER MASK,LABEL) #line 2925 "regression-compile-tmp/allimpc1-77.imp" void PLOCALJUMP( int MASK, int LABEL ) #line 2925 "regression-compile-tmp/allimpc1-77.imp" { // 2926 !%SHORTROUTINE // 2927 %RETURN %IF MASK=0 #line 2927 "regression-compile-tmp/allimpc1-77.imp" if (((MASK) != (0))) goto L_0398; #line 2927 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 2927 "regression-compile-tmp/allimpc1-77.imp" L_0398:; // 2928 CHNGE13=1 %UNLESS SAVE13=R13 #line 2928 "regression-compile-tmp/allimpc1-77.imp" if (((SAVE13) == (R13))) goto L_0399; #line 2928 "regression-compile-tmp/allimpc1-77.imp" CHNGE13 = 1; #line 2928 "regression-compile-tmp/allimpc1-77.imp" L_0399:; // 2929 ->L1 %IF LABEL>21000 #line 2929 "regression-compile-tmp/allimpc1-77.imp" if (((LABEL) <= (21000))) goto L_039a; #line 2929 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 2929 "regression-compile-tmp/allimpc1-77.imp" L_039a:; // 2930 PJ(MASK,LABEL); ->L99 #line 2930 "regression-compile-tmp/allimpc1-77.imp" PJ(MASK, LABEL); #line 2930 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; // 2931 L1: ->L2 %UNLESS LOCAL BASE=0 #line 2931 "regression-compile-tmp/allimpc1-77.imp" U_106b:; #line 2931 "regression-compile-tmp/allimpc1-77.imp" if (((LOCALBASE) == (0))) goto L_039b; #line 2931 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; #line 2931 "regression-compile-tmp/allimpc1-77.imp" L_039b:; // 2932 LOCAL BASE=10; LOCAL ADDR=CODEBASE(LEVEL) #line 2932 "regression-compile-tmp/allimpc1-77.imp" LOCALBASE = 10; #line 2932 "regression-compile-tmp/allimpc1-77.imp" LOCALADDR = CODEBASE[LEVEL]; // 2933 ->L2 %IF SBFLAG=1 %OR 3000+800*COMPILER>CA-CODEBASE(LEVEL) #line 2933 "regression-compile-tmp/allimpc1-77.imp" if (((SBFLAG) == (1))) goto L_039c; #line 2933 "regression-compile-tmp/allimpc1-77.imp" if (((((3000) + ((int)(((800) * ((int)(COMPILER))))))) <= ((((int)(CA)) - (CODEBASE[LEVEL]))))) goto L_039d; #line 2933 "regression-compile-tmp/allimpc1-77.imp" L_039c:; #line 2933 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; #line 2933 "regression-compile-tmp/allimpc1-77.imp" L_039d:; // 2934 LOCAL BASE=FIND PP #line 2934 "regression-compile-tmp/allimpc1-77.imp" LOCALBASE = FINDPP(); // 2935 FAULT(231) %IF LOCAL BASE<=0 #line 2935 "regression-compile-tmp/allimpc1-77.imp" if (((LOCALBASE) > (0))) goto L_039e; #line 2935 "regression-compile-tmp/allimpc1-77.imp" FAULT(231); #line 2935 "regression-compile-tmp/allimpc1-77.imp" L_039e:; // 2936 PRR(5,LOCAL BASE,0); LOCAL ADDR=CA #line 2936 "regression-compile-tmp/allimpc1-77.imp" PRR(5, LOCALBASE, 0); #line 2936 "regression-compile-tmp/allimpc1-77.imp" LOCALADDR = CA; // 2937 L2: PUSH(LOCAL JUMP,CA,LABEL) #line 2937 "regression-compile-tmp/allimpc1-77.imp" U_1079:; #line 2937 "regression-compile-tmp/allimpc1-77.imp" PUSH(&LOCALJUMP, CA, LABEL); // 2938 PRX(X'47',MASK,LOCAL BASE,0,0) #line 2938 "regression-compile-tmp/allimpc1-77.imp" PRX(71, MASK, LOCALBASE, 0, 0); // 2939 L99: %END #line 2939 "regression-compile-tmp/allimpc1-77.imp" U_106c:; #line 2939 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PLOCALJUMP at level 3 // 2940 %ROUTINE CSNAME(%INTEGER Z,REG) #line 2940 "regression-compile-tmp/allimpc1-77.imp" void CSNAME( int Z, int REG ) #line 2940 "regression-compile-tmp/allimpc1-77.imp" { // 2941 %INTEGERARRAY B(0:5) #line 2941 "regression-compile-tmp/allimpc1-77.imp" int B[6]; // 2942 %OWNBYTEINTEGERARRAY PLABEL(0:45)=9,9,3,3, #line 2942 "regression-compile-tmp/allimpc1-77.imp" static unsigned char PLABEL[46] = { 9, 9, 3, 3, 1, 14, 14, 14, 2, 3, 1, 18, 4, 3, 12, 12, 33, 42, 34, 35, 32, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 5, 12, 12, 12, 12, 12, 12, 12, 12, }; // 2943 1,14(3),2,3,1,18,4,3,12(2), // 2944 33,42,34,35,32,12(16),5,12(8); // 2945 %OWNBYTEINTEGERARRAY MODE(0:45)=16(2), #line 2945 "regression-compile-tmp/allimpc1-77.imp" static unsigned char MODE[46] = { 16, 16, 0, 0, 0, 16, 16, 16, 2, 16, 16, 31, 32, 0, 18, 31, 18, 18, 18, 63, 47, 23, 23, 18, 31, 31, 31, 31, 31, 31, 31, 31, 23, 23, 47, 47, 18, 16, 2, 23, 16, 16, 23, 0, 0, 0, }; // 2946 0(3),16(3),2,16(2),31,32,0, // 2947 18,31,18(3),63,47,23(2),18,31(7), // 2948 31,23(2),47(2),18,16,2,23,16(2), // 2949 23,0(3); // 2950 ! TOP 4 BITS OF MODE = NO OF PARAMS BOTTOM 4 ALLOWED Z VALUE // 2951 %SWITCH SW(0:45) #line 2951 "regression-compile-tmp/allimpc1-77.imp" static int sw11_SW_idx; static const void * /*SWITCH*/ sw11_SW[46] = { &&sw11_SW_0, &&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, &&sw11_SW_10, &&sw11_SW_11, &&sw11_SW_12, &&sw11_SW_13, &&sw11_SW_14, &&sw11_SW_15, &&sw11_SW_16, &&sw11_SW_17, &&sw11_SW_18, &&sw11_SW_19, &&sw11_SW_20, &&sw11_SW_21, &&sw11_SW_22, &&sw11_SW_23, &&sw11_SW_24, &&sw11_SW_25, &&sw11_SW_26, &&sw11_SW_27, &&sw11_SW_28, &&sw11_SW_29, &&sw11_SW_30, &&sw11_SW_31, &&sw11_SW_32, &&sw11_SW_33, &&sw11_SW_34, &&sw11_SW_35, &&sw11_SW_36, &&sw11_SW_37, &&sw11_SW_38, &&sw11_SW_39, &&sw11_SW_40, &&sw11_SW_41, &&sw11_SW_42, &&sw11_SW_43, &&sw11_SW_44, &&sw11_SW_45, }; // 2952 %INTEGER PL,KK,PP,V,JJ #line 2952 "regression-compile-tmp/allimpc1-77.imp" int PL; #line 2952 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 2952 "regression-compile-tmp/allimpc1-77.imp" int PP; #line 2952 "regression-compile-tmp/allimpc1-77.imp" int V; #line 2952 "regression-compile-tmp/allimpc1-77.imp" int JJ; // 2953 KK=K; JJ=COUNTAPS #line 2953 "regression-compile-tmp/allimpc1-77.imp" KK = K; #line 2953 "regression-compile-tmp/allimpc1-77.imp" JJ = COUNTAPS(); // 2954 PL=PLABEL(KK); PP=P+1; V=MODE(K) #line 2954 "regression-compile-tmp/allimpc1-77.imp" PL = PLABEL[KK]; #line 2954 "regression-compile-tmp/allimpc1-77.imp" PP = (((int)(P)) + (1)); #line 2954 "regression-compile-tmp/allimpc1-77.imp" V = MODE[K]; // 2955 P=P+1; P=P+1 %IF V>>4#0 #line 2955 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2955 "regression-compile-tmp/allimpc1-77.imp" if ((((int)((((unsigned int)(V)) >> (4)))) == (0))) goto L_039f; #line 2955 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2955 "regression-compile-tmp/allimpc1-77.imp" L_039f:; // 2956 ->L1010 %IF V&15=15 #line 2956 "regression-compile-tmp/allimpc1-77.imp" if (((((V) & (15))) != (15))) goto L_03a0; #line 2956 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; #line 2956 "regression-compile-tmp/allimpc1-77.imp" L_03a0:; // 2957 ->L1001 %IF V>>4#JJ; V=V&15 #line 2957 "regression-compile-tmp/allimpc1-77.imp" if ((((int)((((unsigned int)(V)) >> (4)))) == (JJ))) goto L_03a1; #line 2957 "regression-compile-tmp/allimpc1-77.imp" goto U_105e; #line 2957 "regression-compile-tmp/allimpc1-77.imp" L_03a1:; #line 2957 "regression-compile-tmp/allimpc1-77.imp" V = ((V) & (15)); // 2958 ->L1002 %IF V=0 %AND Z#0; ! ROUTINE CALL IN EXPRESSION #line 2958 "regression-compile-tmp/allimpc1-77.imp" if (((V) != (0))) goto L_03a2; #line 2958 "regression-compile-tmp/allimpc1-77.imp" if (((Z) == (0))) goto L_03a2; #line 2958 "regression-compile-tmp/allimpc1-77.imp" goto U_105f; #line 2958 "regression-compile-tmp/allimpc1-77.imp" L_03a2:; // 2959 ->L1003 %IF V=2 %AND Z#2; ! FN CALLED INCORRECTLY #line 2959 "regression-compile-tmp/allimpc1-77.imp" if (((V) != (2))) goto L_03a3; #line 2959 "regression-compile-tmp/allimpc1-77.imp" if (((Z) == (2))) goto L_03a3; #line 2959 "regression-compile-tmp/allimpc1-77.imp" goto U_1060; #line 2959 "regression-compile-tmp/allimpc1-77.imp" L_03a3:; // 2960 ->L1005 %IF Z=0 %AND V#0 #line 2960 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (0))) goto L_03a4; #line 2960 "regression-compile-tmp/allimpc1-77.imp" if (((V) == (0))) goto L_03a4; #line 2960 "regression-compile-tmp/allimpc1-77.imp" goto U_1061; #line 2960 "regression-compile-tmp/allimpc1-77.imp" L_03a4:; // 2961 L1010: ->SW(KK) #line 2961 "regression-compile-tmp/allimpc1-77.imp" U_105d:; #line 2961 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_idx = KK; if ((0 <= sw11_SW_idx) && (sw11_SW_idx <= 45)) goto *sw11_SW[sw11_SW_idx]; else { /*_imp_signal(8, 2, sw11_SW_idx);*/ fprintf(stderr, "%%SWITCH index SW(%d) not in range 0:45 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); } // 2962 L1001: FAULT(19); PRINTNAME(FNAME) #line 2962 "regression-compile-tmp/allimpc1-77.imp" U_105e:; #line 2962 "regression-compile-tmp/allimpc1-77.imp" FAULT(19); #line 2962 "regression-compile-tmp/allimpc1-77.imp" PRINTNAME(FNAME); // 2963 L1000: P=PP; SKIP APP; P=P-1; ->L99 #line 2963 "regression-compile-tmp/allimpc1-77.imp" U_1062:; #line 2963 "regression-compile-tmp/allimpc1-77.imp" P = PP; #line 2963 "regression-compile-tmp/allimpc1-77.imp" SKIPAPP(); #line 2963 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) - (1)); #line 2963 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 2964 L1002: FAULT(23); ->L1000 #line 2964 "regression-compile-tmp/allimpc1-77.imp" U_105f:; #line 2964 "regression-compile-tmp/allimpc1-77.imp" FAULT(23); #line 2964 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; // 2965 L1003: FAULT(29); ->L1000 #line 2965 "regression-compile-tmp/allimpc1-77.imp" U_1060:; #line 2965 "regression-compile-tmp/allimpc1-77.imp" FAULT(29); #line 2965 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; // 2966 L1004: FAULT(22); ->L1000 #line 2966 "regression-compile-tmp/allimpc1-77.imp" U_1064:; #line 2966 "regression-compile-tmp/allimpc1-77.imp" FAULT(22); #line 2966 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; // 2967 L1005: FAULT(17); ->L1000 #line 2967 "regression-compile-tmp/allimpc1-77.imp" U_1061:; #line 2967 "regression-compile-tmp/allimpc1-77.imp" FAULT(17); #line 2967 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; // 2968 L1: PPJ(PL); ->L99 #line 2968 "regression-compile-tmp/allimpc1-77.imp" U_1065:; #line 2968 "regression-compile-tmp/allimpc1-77.imp" PPJ(PL); #line 2968 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 2969 SW(4): CIOCP(1); ->L99; ! SKIP SYMBOL #line 2969 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_4:; #line 2969 "regression-compile-tmp/allimpc1-77.imp" CIOCP(1); #line 2969 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 2970 SW(2): V=10; ! NEWLINE #line 2970 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_2:; #line 2970 "regression-compile-tmp/allimpc1-77.imp" V = 10; // 2971 PRX(X'41',1,0,0,V) #line 2971 "regression-compile-tmp/allimpc1-77.imp" PRX(65, 1, 0, 0, V); // 2972 L23: CIOCP(3); ->L99 #line 2972 "regression-compile-tmp/allimpc1-77.imp" U_1066:; #line 2972 "regression-compile-tmp/allimpc1-77.imp" CIOCP(3); #line 2972 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 2973 L21: PRX(X'41',1,0,0,V); ->L1 #line 2973 "regression-compile-tmp/allimpc1-77.imp" U_1067:; #line 2973 "regression-compile-tmp/allimpc1-77.imp" PRX(65, 1, 0, 0, V); #line 2973 "regression-compile-tmp/allimpc1-77.imp" goto U_1065; // 2974 SW(3): V=32; ->L21; ! SPACE #line 2974 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_3:; #line 2974 "regression-compile-tmp/allimpc1-77.imp" V = 32; #line 2974 "regression-compile-tmp/allimpc1-77.imp" goto U_1067; // 2975 SW(5): V=0; ! RUNOUT #line 2975 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_5:; #line 2975 "regression-compile-tmp/allimpc1-77.imp" V = 0; // 2976 L51: CSEXP(2,1); ->L21 #line 2976 "regression-compile-tmp/allimpc1-77.imp" U_1068:; #line 2976 "regression-compile-tmp/allimpc1-77.imp" CSEXP(2, 1); #line 2976 "regression-compile-tmp/allimpc1-77.imp" goto U_1067; // 2977 SW(6): V=10; ->L51; ! NEWLINES(N) #line 2977 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_6:; #line 2977 "regression-compile-tmp/allimpc1-77.imp" V = 10; #line 2977 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 2978 SW(7): V=32; ->L51; ! SPACES(N) #line 2978 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_7:; #line 2978 "regression-compile-tmp/allimpc1-77.imp" V = 32; #line 2978 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 2979 SW(0):SW(1): ! SELECT INPUT AND OUTPUT #line 2979 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_0:; #line 2979 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_1:; // 2980 CSEXP(1,1); CIOCP(KK+8) #line 2980 "regression-compile-tmp/allimpc1-77.imp" CSEXP(1, 1); #line 2980 "regression-compile-tmp/allimpc1-77.imp" CIOCP((((int)(KK)) + (8))); // 2981 ->L99 #line 2981 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 2982 SW(9): ! PRINTSYMBOL #line 2982 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_9:; // 2983 CSEXP(1,1); ->L23 #line 2983 "regression-compile-tmp/allimpc1-77.imp" CSEXP(1, 1); #line 2983 "regression-compile-tmp/allimpc1-77.imp" goto U_1066; // 2984 SW(8): CIOCP(2); ! NEXT SYMBOL #line 2984 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_8:; #line 2984 "regression-compile-tmp/allimpc1-77.imp" CIOCP(2); // 2985 L81: %UNLESS REG=1 %THEN PRR(X'18',REG,1) #line 2985 "regression-compile-tmp/allimpc1-77.imp" U_1069:; #line 2985 "regression-compile-tmp/allimpc1-77.imp" if (((REG) == (1))) goto L_03a5; #line 2985 "regression-compile-tmp/allimpc1-77.imp" PRR(24, REG, 1); #line 2985 "regression-compile-tmp/allimpc1-77.imp" L_03a5:; // 2986 L82: PTYPE=10001;UNPACK; ->L99 #line 2986 "regression-compile-tmp/allimpc1-77.imp" U_106d:; #line 2986 "regression-compile-tmp/allimpc1-77.imp" PTYPE = 10001; #line 2986 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); #line 2986 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 2987 SW(10): CIOCP(1); ! READ SYMBOL #line 2987 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_10:; #line 2987 "regression-compile-tmp/allimpc1-77.imp" CIOCP(1); // 2988 L106: ->L1004 %UNLESS A(P)=4 %AND A(P+1)=1 #line 2988 "regression-compile-tmp/allimpc1-77.imp" U_106e:; #line 2988 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (4))) goto L_03a6; #line 2988 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (1))) goto L_03a7; #line 2988 "regression-compile-tmp/allimpc1-77.imp" L_03a6:; #line 2988 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 2988 "regression-compile-tmp/allimpc1-77.imp" L_03a7:; // 2989 P=P+2; COPYTAG(A(P)); UNPACK #line 2989 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 2989 "regression-compile-tmp/allimpc1-77.imp" COPYTAG(A[((P) + ((int)(2)))]); #line 2989 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 2990 ->L104 %UNLESS TYPE=1 %AND ARR=0 %AND ROUT=0 #line 2990 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (1))) goto L_03a8; #line 2990 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (0))) goto L_03a8; #line 2990 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) == (0))) goto L_03a9; #line 2990 "regression-compile-tmp/allimpc1-77.imp" L_03a8:; #line 2990 "regression-compile-tmp/allimpc1-77.imp" goto U_106f; #line 2990 "regression-compile-tmp/allimpc1-77.imp" L_03a9:; // 2991 CNAME(1,1) #line 2991 "regression-compile-tmp/allimpc1-77.imp" CNAME(1, 1); // 2992 L102: ->L1004 %UNLESS A(P)=2; P=P+1; ->L99 #line 2992 "regression-compile-tmp/allimpc1-77.imp" U_1070:; #line 2992 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) == (2))) goto L_03aa; #line 2992 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 2992 "regression-compile-tmp/allimpc1-77.imp" L_03aa:; #line 2992 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 2992 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 2993 L104: PLANT(X'1841'); REGISTER(4)=1 #line 2993 "regression-compile-tmp/allimpc1-77.imp" U_106f:; #line 2993 "regression-compile-tmp/allimpc1-77.imp" PLANT(6209); #line 2993 "regression-compile-tmp/allimpc1-77.imp" REGISTER[4] = 1; // 2994 CNAME(1,4); REGISTER(4)=0 #line 2994 "regression-compile-tmp/allimpc1-77.imp" CNAME(1, 4); #line 2994 "regression-compile-tmp/allimpc1-77.imp" REGISTER[4] = 0; // 2995 ->L1004 %UNLESS TYPE=1; ->L102 #line 2995 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (1))) goto L_03ab; #line 2995 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 2995 "regression-compile-tmp/allimpc1-77.imp" L_03ab:; #line 2995 "regression-compile-tmp/allimpc1-77.imp" goto U_1070; // 2996 SW(11): ! READ #line 2996 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_11:; // 2997 B(0)=1; B(1)=1000 #line 2997 "regression-compile-tmp/allimpc1-77.imp" B[0] = 1; #line 2997 "regression-compile-tmp/allimpc1-77.imp" B[1] = 1000; // 2998 L110: JJ=10000; ->L1004 %IF 0#Z#13; ->L302 #line 2998 "regression-compile-tmp/allimpc1-77.imp" U_1071:; #line 2998 "regression-compile-tmp/allimpc1-77.imp" JJ = 10000; #line 2998 "regression-compile-tmp/allimpc1-77.imp" if ((((0) == (Z))) || (((Z) == (13)))) goto L_03ac; #line 2998 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 2998 "regression-compile-tmp/allimpc1-77.imp" L_03ac:; #line 2998 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; // 2999 SW(12): ! WRITE #line 2999 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_12:; // 3000 CSEXP(1,1); P=P+1 #line 3000 "regression-compile-tmp/allimpc1-77.imp" CSEXP(1, 1); #line 3000 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3001 JJ=P; V=TSEXP(KK) #line 3001 "regression-compile-tmp/allimpc1-77.imp" JJ = P; #line 3001 "regression-compile-tmp/allimpc1-77.imp" V = TSEXP(&KK); // 3002 ->L121 %UNLESS V=0 #line 3002 "regression-compile-tmp/allimpc1-77.imp" if (((V) == (0))) goto L_03ad; #line 3002 "regression-compile-tmp/allimpc1-77.imp" goto U_1073; #line 3002 "regression-compile-tmp/allimpc1-77.imp" L_03ad:; // 3003 V=PARK(1); CSEXP(2,1) #line 3003 "regression-compile-tmp/allimpc1-77.imp" V = PARK(1); #line 3003 "regression-compile-tmp/allimpc1-77.imp" CSEXP(2, 1); // 3004 UNPARK(X'58',1,V) #line 3004 "regression-compile-tmp/allimpc1-77.imp" UNPARK(88, 1, V); // 3005 L120: PPJ(PL); ->L99 #line 3005 "regression-compile-tmp/allimpc1-77.imp" U_1074:; #line 3005 "regression-compile-tmp/allimpc1-77.imp" PPJ(PL); #line 3005 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 3006 L121: P=JJ; REGISTER(1)=1 #line 3006 "regression-compile-tmp/allimpc1-77.imp" U_1073:; #line 3006 "regression-compile-tmp/allimpc1-77.imp" P = JJ; #line 3006 "regression-compile-tmp/allimpc1-77.imp" REGISTER[1] = 1; // 3007 CSEXP(2,1); REGISTER(1)=0; ->L120 #line 3007 "regression-compile-tmp/allimpc1-77.imp" CSEXP(2, 1); #line 3007 "regression-compile-tmp/allimpc1-77.imp" REGISTER[1] = 0; #line 3007 "regression-compile-tmp/allimpc1-77.imp" goto U_1074; // 3008 SW(13): ! NEWPAGE #line 3008 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_13:; // 3009 PRX(X'41',1,0,0,12); ! LA 0,12 #line 3009 "regression-compile-tmp/allimpc1-77.imp" PRX(65, 1, 0, 0, 12); // 3010 CIOCP(5); ->L99 #line 3010 "regression-compile-tmp/allimpc1-77.imp" CIOCP(5); #line 3010 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 3011 SW(14): ->L1004 %UNLESS A(P)=4 %AND A(P+1)=1;! ADDR #line 3011 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_14:; #line 3011 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (4))) goto L_03ae; #line 3011 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (1))) goto L_03af; #line 3011 "regression-compile-tmp/allimpc1-77.imp" L_03ae:; #line 3011 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 3011 "regression-compile-tmp/allimpc1-77.imp" L_03af:; // 3012 P=P+2 #line 3012 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); // 3013 CNAME(3,REG); ->L1004 %UNLESS A(P)=2 #line 3013 "regression-compile-tmp/allimpc1-77.imp" CNAME(3, REG); #line 3013 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) == (2))) goto L_03b0; #line 3013 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 3013 "regression-compile-tmp/allimpc1-77.imp" L_03b0:; // 3014 P=P+1; ->L82 #line 3014 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3014 "regression-compile-tmp/allimpc1-77.imp" goto U_106d; // 3015 SW(16): ! INT #line 3015 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_16:; // 3016 SW(17): ! INTPT #line 3016 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_17:; // 3017 CSEXP(0,3) #line 3017 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, 3); // 3018 PRR(X'28',0,NEST)%UNLESS NEST=0 #line 3018 "regression-compile-tmp/allimpc1-77.imp" if (((NEST) == (0))) goto L_03b1; #line 3018 "regression-compile-tmp/allimpc1-77.imp" PRR(40, 0, NEST); #line 3018 "regression-compile-tmp/allimpc1-77.imp" L_03b1:; // 3019 PPJ(PL); ->L81 #line 3019 "regression-compile-tmp/allimpc1-77.imp" PPJ(PL); #line 3019 "regression-compile-tmp/allimpc1-77.imp" goto U_1069; // 3020 SW(18): CSEXP(6,3) ; ! FRACPT #line 3020 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_18:; #line 3020 "regression-compile-tmp/allimpc1-77.imp" CSEXP(6, 3); // 3021 PCLOD(32); !INSERT FRACPT SR IN LINE #line 3021 "regression-compile-tmp/allimpc1-77.imp" PCLOD(32); // 3022 PRR(X'28',REG,2) %UNLESS REG=2 #line 3022 "regression-compile-tmp/allimpc1-77.imp" if (((REG) == (2))) goto L_03b2; #line 3022 "regression-compile-tmp/allimpc1-77.imp" PRR(40, REG, 2); #line 3022 "regression-compile-tmp/allimpc1-77.imp" L_03b2:; // 3023 PTYPE=10032; UNPACK; ->L99 #line 3023 "regression-compile-tmp/allimpc1-77.imp" PTYPE = 10032; #line 3023 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); #line 3023 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 3024 SW(19): ! PRINT #line 3024 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_19:; // 3025 B(0)=3;B(3)=1 #line 3025 "regression-compile-tmp/allimpc1-77.imp" B[0] = 3; #line 3025 "regression-compile-tmp/allimpc1-77.imp" B[3] = 1; // 3026 L191: B(1)=32;B(2)=1;->L110 #line 3026 "regression-compile-tmp/allimpc1-77.imp" U_1075:; #line 3026 "regression-compile-tmp/allimpc1-77.imp" B[1] = 32; #line 3026 "regression-compile-tmp/allimpc1-77.imp" B[2] = 1; #line 3026 "regression-compile-tmp/allimpc1-77.imp" goto U_1071; // 3027 SW(20): ! PRINTFL #line 3027 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_20:; // 3028 QPREAL=N0<<2+4 #line 3028 "regression-compile-tmp/allimpc1-77.imp" QPREAL = (((int)(((N0) << (2)))) + (4)); // 3029 B(0)=2;->L191 #line 3029 "regression-compile-tmp/allimpc1-77.imp" B[0] = 2; #line 3029 "regression-compile-tmp/allimpc1-77.imp" goto U_1075; // 3030 SW(39): JJ=11032; ->L210; ! LONGREAL #line 3030 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_39:; #line 3030 "regression-compile-tmp/allimpc1-77.imp" JJ = 11032; #line 3030 "regression-compile-tmp/allimpc1-77.imp" goto U_1076; // 3031 SW(21): JJ=11002; ! REAL #line 3031 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_21:; #line 3031 "regression-compile-tmp/allimpc1-77.imp" JJ = 11002; // 3032 L210: CSEXP(0,1); P=P+1 #line 3032 "regression-compile-tmp/allimpc1-77.imp" U_1076:; #line 3032 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, 1); #line 3032 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3033 ->L212 %UNLESS NEST=0 #line 3033 "regression-compile-tmp/allimpc1-77.imp" if (((NEST) == (0))) goto L_03b3; #line 3033 "regression-compile-tmp/allimpc1-77.imp" goto U_1077; #line 3033 "regression-compile-tmp/allimpc1-77.imp" L_03b3:; // 3034 PLANT(X'1810'); NEST=1 #line 3034 "regression-compile-tmp/allimpc1-77.imp" PLANT(6160); #line 3034 "regression-compile-tmp/allimpc1-77.imp" NEST = 1; // 3035 L212: PTYPE=JJ; UNPACK; ->L99 #line 3035 "regression-compile-tmp/allimpc1-77.imp" U_1077:; #line 3035 "regression-compile-tmp/allimpc1-77.imp" PTYPE = JJ; #line 3035 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); #line 3035 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 3036 SW(22): JJ=11001; ->L210; ! INTEGER #line 3036 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_22:; #line 3036 "regression-compile-tmp/allimpc1-77.imp" JJ = 11001; #line 3036 "regression-compile-tmp/allimpc1-77.imp" goto U_1076; // 3037 SW(23): CSEXP(REG,3); ! MOD #line 3037 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_23:; #line 3037 "regression-compile-tmp/allimpc1-77.imp" CSEXP(REG, 3); // 3038 PRR(X'20',REG,REG); ->L99; ! LPDR #line 3038 "regression-compile-tmp/allimpc1-77.imp" PRR(32, REG, REG); #line 3038 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 3039 SW(25):SW(26):SW(27): ! SQRT,LOG,SIN #line 3039 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_25:; #line 3039 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_26:; #line 3039 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_27:; // 3040 SW(28):SW(29):SW (30): ! COS,TAN,EXP #line 3040 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_28:; #line 3040 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_29:; #line 3040 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_30:; // 3041 B(0)=1 #line 3041 "regression-compile-tmp/allimpc1-77.imp" B[0] = 1; // 3042 L301: B(1)=32;JJ=10032; #line 3042 "regression-compile-tmp/allimpc1-77.imp" U_107a:; #line 3042 "regression-compile-tmp/allimpc1-77.imp" B[1] = 32; #line 3042 "regression-compile-tmp/allimpc1-77.imp" JJ = 10032; // 3043 ->L1004 %IF 2#Z#13 #line 3043 "regression-compile-tmp/allimpc1-77.imp" if ((((2) == (Z))) || (((Z) == (13)))) goto L_03b4; #line 3043 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 3043 "regression-compile-tmp/allimpc1-77.imp" L_03b4:; // 3044 L302: REDEFINE EP(JJ,B) #line 3044 "regression-compile-tmp/allimpc1-77.imp" U_1072:; #line 3044 "regression-compile-tmp/allimpc1-77.imp" REDEFINEEP(JJ, &B[-(0)]); // 3045 CNAME(Z,REG);P=P-2;->L99 #line 3045 "regression-compile-tmp/allimpc1-77.imp" CNAME(Z, REG); #line 3045 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) - (2)); #line 3045 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 3046 SW(31): ! MAP RECORD #line 3046 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_31:; // 3047 CSEXP(REG,1); FAULT(84) %UNLESS Z=15 #line 3047 "regression-compile-tmp/allimpc1-77.imp" CSEXP(REG, 1); #line 3047 "regression-compile-tmp/allimpc1-77.imp" if (((Z) == (15))) goto L_03b5; #line 3047 "regression-compile-tmp/allimpc1-77.imp" FAULT(84); #line 3047 "regression-compile-tmp/allimpc1-77.imp" L_03b5:; // 3048 PTYPE=3; UNPACK #line 3048 "regression-compile-tmp/allimpc1-77.imp" PTYPE = 3; #line 3048 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 3049 ->L99 #line 3049 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 3050 SW(32): JJ=11011; ->L210; ! BYTEINTEGER #line 3050 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_32:; #line 3050 "regression-compile-tmp/allimpc1-77.imp" JJ = 11011; #line 3050 "regression-compile-tmp/allimpc1-77.imp" goto U_1076; // 3051 SW(33): JJ=11021; ->L210; ! SHORT INTEGER #line 3051 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_33:; #line 3051 "regression-compile-tmp/allimpc1-77.imp" JJ = 11021; #line 3051 "regression-compile-tmp/allimpc1-77.imp" goto U_1076; // 3052 SW(34):SW(35): !RADIUS & ARCTAN #line 3052 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_34:; #line 3052 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_35:; // 3053 B(0)=2; B(2)=32; ->L301 #line 3053 "regression-compile-tmp/allimpc1-77.imp" B[0] = 2; #line 3053 "regression-compile-tmp/allimpc1-77.imp" B[2] = 32; #line 3053 "regression-compile-tmp/allimpc1-77.imp" goto U_107a; // 3054 SW(36): ! %INTEGERFN PARITY #line 3054 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_36:; // 3055 CSEXP(REG,1) #line 3055 "regression-compile-tmp/allimpc1-77.imp" CSEXP(REG, 1); // 3056 PRX(X'89',REG,0,0,31); ! SLL REL,31 #line 3056 "regression-compile-tmp/allimpc1-77.imp" PRX(137, REG, 0, 0, 31); // 3057 PRX(X'8A',REG,0,0,30); ! SRA REG,30 #line 3057 "regression-compile-tmp/allimpc1-77.imp" PRX(138, REG, 0, 0, 30); // 3058 PRX(X'5B',REG,0,GLA,16);! S_REG,,=F'-1' #line 3058 "regression-compile-tmp/allimpc1-77.imp" PRX(91, REG, 0, GLA, 16); // 3059 ->L99 #line 3059 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 3060 SW(37): CSTREXP(1); CIOCP(7); ->L99; ! PRINT STRING #line 3060 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_37:; #line 3060 "regression-compile-tmp/allimpc1-77.imp" CSTREXP(1); #line 3060 "regression-compile-tmp/allimpc1-77.imp" CIOCP(7); #line 3060 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 3061 SW(38): PRX(X'41',REG,0,0,10); ->L82 #line 3061 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_38:; #line 3061 "regression-compile-tmp/allimpc1-77.imp" PRX(65, REG, 0, 0, 10); #line 3061 "regression-compile-tmp/allimpc1-77.imp" goto U_106d; // 3062 SW(40): ! PRINTCH #line 3062 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_40:; // 3063 CSEXP(1,1); CIOCP(5); ->L99 #line 3063 "regression-compile-tmp/allimpc1-77.imp" CSEXP(1, 1); #line 3063 "regression-compile-tmp/allimpc1-77.imp" CIOCP(5); #line 3063 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 3064 SW(41): ! READ CH #line 3064 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_41:; // 3065 CIOCP(4); ->L106 #line 3065 "regression-compile-tmp/allimpc1-77.imp" CIOCP(4); #line 3065 "regression-compile-tmp/allimpc1-77.imp" goto U_106e; // 3066 SW(42): JJ=11005; ->L210; ! STRING #line 3066 "regression-compile-tmp/allimpc1-77.imp" sw11_SW_42:; #line 3066 "regression-compile-tmp/allimpc1-77.imp" JJ = 11005; #line 3066 "regression-compile-tmp/allimpc1-77.imp" goto U_1076; // 3067 L99: %END #line 3067 "regression-compile-tmp/allimpc1-77.imp" U_1063:; #line 3067 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; sw11_SW_15:; sw11_SW_24:; sw11_SW_43:; sw11_SW_44:; sw11_SW_45:; /*_imp_signal(6,3,sw11_SW_idx,"SWITCH LABEL NOT SET - sw11_SW");*/ fprintf(stderr, "%%SWITCH LABEL NOT SET - sw11_SW(%d): at line %s:%d", sw11_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // End of block CSNAME at level 3 // 3068 %ROUTINE CIOCP(%INTEGER N) #line 3068 "regression-compile-tmp/allimpc1-77.imp" void CIOCP( int N ) #line 3068 "regression-compile-tmp/allimpc1-77.imp" { // 3069 PRX(X'41',0,0,0,N); ! LA 0,N #line 3069 "regression-compile-tmp/allimpc1-77.imp" PRX(65, 0, 0, 0, N); // 3070 PRX(X'90',4,1,11,16); ! STM 4,1,16(11) #line 3070 "regression-compile-tmp/allimpc1-77.imp" PRX(144, 4, 1, 11, 16); // 3071 PRX(X'98',12,14,GLA,140); ! LM 12,14,=V(IOCP) #line 3071 "regression-compile-tmp/allimpc1-77.imp" PRX(152, 12, 14, GLA, 140); // 3072 PRR(X'05',15,14); ! BALR 15,14 #line 3072 "regression-compile-tmp/allimpc1-77.imp" PRR(5, 15, 14); // 3073 R13=0 #line 3073 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; // 3074 %END #line 3074 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CIOCP at level 3 // 3075 %ROUTINE CANAME(%INTEGER Z,BS,DP,CLINK,BSRF,DPRF) #line 3075 "regression-compile-tmp/allimpc1-77.imp" void CANAME( int Z, int BS, int DP, int CLINK, int BSRF, int DPRF ) #line 3075 "regression-compile-tmp/allimpc1-77.imp" { // 3076 ! BS& DP FOR ARRAY HEAD BSRF & DPRF POINT TO MULTIPLIER // 3077 ! IN RECORD FORMAT FOR RECORD ARRAYS LINK POINTS TO LP CELL HOLDING // 3078 ! DIMENSION OF ARRAY IN CASE THIS HAS TO BE DEDUCED & INSERTED // 3079 !%SHORTROUTINE // 3080 %SWITCH S(0:3) #line 3080 "regression-compile-tmp/allimpc1-77.imp" static int sw12_S_idx; static const void * /*SWITCH*/ sw12_S[4] = { &&sw12_S_0, &&sw12_S_1, &&sw12_S_2, &&sw12_S_3, }; // 3081 %INTEGER PTYPEP,KK,RR,PP,JJ,JJJ #line 3081 "regression-compile-tmp/allimpc1-77.imp" int PTYPEP; #line 3081 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 3081 "regression-compile-tmp/allimpc1-77.imp" int RR; #line 3081 "regression-compile-tmp/allimpc1-77.imp" int PP; #line 3081 "regression-compile-tmp/allimpc1-77.imp" int JJ; #line 3081 "regression-compile-tmp/allimpc1-77.imp" int JJJ; // 3082 %INTEGER KKK,DIS,Q,PRECP,CHECKSP #line 3082 "regression-compile-tmp/allimpc1-77.imp" int KKK; #line 3082 "regression-compile-tmp/allimpc1-77.imp" int DIS; #line 3082 "regression-compile-tmp/allimpc1-77.imp" int Q; #line 3082 "regression-compile-tmp/allimpc1-77.imp" int PRECP; #line 3082 "regression-compile-tmp/allimpc1-77.imp" int CHECKSP; // 3083 %INTEGER BASEREG,ARRP,BASIC DISP #line 3083 "regression-compile-tmp/allimpc1-77.imp" int BASEREG; #line 3083 "regression-compile-tmp/allimpc1-77.imp" int ARRP; #line 3083 "regression-compile-tmp/allimpc1-77.imp" int BASICDISP; // 3084 CHECKSP=CHECKS; CHECKSP=1 %IF TYPE=0; ! NO TYPE MUST GO TO PERM #line 3084 "regression-compile-tmp/allimpc1-77.imp" CHECKSP = CHECKS; #line 3084 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (0))) goto L_03b6; #line 3084 "regression-compile-tmp/allimpc1-77.imp" CHECKSP = 1; #line 3084 "regression-compile-tmp/allimpc1-77.imp" L_03b6:; // 3085 PP=P; BASEREG=LINK #line 3085 "regression-compile-tmp/allimpc1-77.imp" PP = P; #line 3085 "regression-compile-tmp/allimpc1-77.imp" BASEREG = LINK; // 3086 %IF INREG#0 %THEN %START #line 3086 "regression-compile-tmp/allimpc1-77.imp" if (((INREG) == (0))) goto L_03b7; // 3087 CHECKSP=0 %IF TYPE#0; BASEREG=INREG #line 3087 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (0))) goto L_03b8; #line 3087 "regression-compile-tmp/allimpc1-77.imp" CHECKSP = 0; #line 3087 "regression-compile-tmp/allimpc1-77.imp" L_03b8:; #line 3087 "regression-compile-tmp/allimpc1-77.imp" BASEREG = INREG; // 3088 %FINISH #line 3088 "regression-compile-tmp/allimpc1-77.imp" L_03b7:; // 3089 JJ=J; PTYPEP=PTYPE #line 3089 "regression-compile-tmp/allimpc1-77.imp" JJ = J; #line 3089 "regression-compile-tmp/allimpc1-77.imp" PTYPEP = PTYPE; // 3090 ARRP=ARR #line 3090 "regression-compile-tmp/allimpc1-77.imp" ARRP = ARR; // 3091 Q=COUNT APS; ->L1 %UNLESS JJ=0 #line 3091 "regression-compile-tmp/allimpc1-77.imp" Q = COUNTAPS(); #line 3091 "regression-compile-tmp/allimpc1-77.imp" if (((JJ) == (0))) goto L_03b9; #line 3091 "regression-compile-tmp/allimpc1-77.imp" goto U_1067; #line 3091 "regression-compile-tmp/allimpc1-77.imp" L_03b9:; // 3092 FROM1(CLINK,JJ) #line 3092 "regression-compile-tmp/allimpc1-77.imp" FROM1(CLINK, &JJ); // 3093 REPLACE1(CLINK,JJ!Q); JJ=Q #line 3093 "regression-compile-tmp/allimpc1-77.imp" REPLACE1(CLINK, ((JJ) | (Q))); #line 3093 "regression-compile-tmp/allimpc1-77.imp" JJ = Q; // 3094 L1: ->L4 %IF JJ=Q#0 #line 3094 "regression-compile-tmp/allimpc1-77.imp" U_1067:; #line 3094 "regression-compile-tmp/allimpc1-77.imp" if ((((JJ) != (Q))) || (((Q) == (0)))) goto L_03ba; #line 3094 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; #line 3094 "regression-compile-tmp/allimpc1-77.imp" L_03ba:; // 3095 FAULT(19); PRINTNAME(FNAME) #line 3095 "regression-compile-tmp/allimpc1-77.imp" FAULT(19); #line 3095 "regression-compile-tmp/allimpc1-77.imp" PRINTNAME(FNAME); // 3096 P=P+1; SKIP APP; ->L99 #line 3096 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3096 "regression-compile-tmp/allimpc1-77.imp" SKIPAPP(); #line 3096 "regression-compile-tmp/allimpc1-77.imp" goto U_1069; // 3097 L4: #line 3097 "regression-compile-tmp/allimpc1-77.imp" U_1068:; // 3098 %IF ARRP=2 %THEN FROM LIST(K,BASIC DISP,DP) #line 3098 "regression-compile-tmp/allimpc1-77.imp" if (((ARRP) != (2))) goto L_03bb; #line 3098 "regression-compile-tmp/allimpc1-77.imp" FROMLIST(K, &BASICDISP, &DP); #line 3098 "regression-compile-tmp/allimpc1-77.imp" L_03bb:; // 3099 ->L12 %UNLESS CHECKSP=0 %AND JJ=1 %AND Z#3 #line 3099 "regression-compile-tmp/allimpc1-77.imp" if (((CHECKSP) != (0))) goto L_03bc; #line 3099 "regression-compile-tmp/allimpc1-77.imp" if (((JJ) != (1))) goto L_03bc; #line 3099 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (3))) goto L_03bd; #line 3099 "regression-compile-tmp/allimpc1-77.imp" L_03bc:; #line 3099 "regression-compile-tmp/allimpc1-77.imp" goto U_106d; #line 3099 "regression-compile-tmp/allimpc1-77.imp" L_03bd:; // 3100 ->L12 %UNLESS 2>=TYPE #line 3100 "regression-compile-tmp/allimpc1-77.imp" if (((2) >= (TYPE))) goto L_03be; #line 3100 "regression-compile-tmp/allimpc1-77.imp" goto U_106d; #line 3100 "regression-compile-tmp/allimpc1-77.imp" L_03be:; // 3101 PRECP=PREC; KKK=0; P=PP+2; JJJ=TSEXP(KKK) #line 3101 "regression-compile-tmp/allimpc1-77.imp" PRECP = PREC; #line 3101 "regression-compile-tmp/allimpc1-77.imp" KKK = 0; #line 3101 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(PP)) + (2)); #line 3101 "regression-compile-tmp/allimpc1-77.imp" JJJ = TSEXP(&KKK); // 3102 %IF 3<=JJJ<=99 %THEN DIS=0 %ELSE DIS=KKK*BYTES(PRECP) #line 3102 "regression-compile-tmp/allimpc1-77.imp" if ((((3) > (JJJ))) || (((JJJ) > (99)))) goto L_03bf; #line 3102 "regression-compile-tmp/allimpc1-77.imp" DIS = 0; #line 3102 "regression-compile-tmp/allimpc1-77.imp" goto L_03c0; #line 3102 "regression-compile-tmp/allimpc1-77.imp" L_03bf:; #line 3102 "regression-compile-tmp/allimpc1-77.imp" DIS = ((KKK) * ((int)(BYTES[PRECP]))); #line 3102 "regression-compile-tmp/allimpc1-77.imp" L_03c0:; // 3103 ->L12 %IF DIS>4095 %OR (ARRP=2 %AND DIS+BASIC DISP>4095) #line 3103 "regression-compile-tmp/allimpc1-77.imp" if (((DIS) > (4095))) goto L_03c1; #line 3103 "regression-compile-tmp/allimpc1-77.imp" if (((ARRP) != (2))) goto L_03c2; #line 3103 "regression-compile-tmp/allimpc1-77.imp" if ((((((int)(DIS)) + (BASICDISP))) <= (4095))) goto L_03c2; #line 3103 "regression-compile-tmp/allimpc1-77.imp" L_03c1:; #line 3103 "regression-compile-tmp/allimpc1-77.imp" goto U_106d; #line 3103 "regression-compile-tmp/allimpc1-77.imp" L_03c2:; // 3104 ->REGVAR %IF JJJ=50 %AND PRECP=1 #line 3104 "regression-compile-tmp/allimpc1-77.imp" if (((JJJ) != (50))) goto L_03c3; #line 3104 "regression-compile-tmp/allimpc1-77.imp" if (((PRECP) != (1))) goto L_03c3; #line 3104 "regression-compile-tmp/allimpc1-77.imp" goto U_106e; #line 3104 "regression-compile-tmp/allimpc1-77.imp" L_03c3:; // 3105 ->RDISP %IF JJJ=101 #line 3105 "regression-compile-tmp/allimpc1-77.imp" if (((JJJ) != (101))) goto L_03c4; #line 3105 "regression-compile-tmp/allimpc1-77.imp" goto U_106f; #line 3105 "regression-compile-tmp/allimpc1-77.imp" L_03c4:; // 3106 ->CONST %IF 1<=JJJ<=2 #line 3106 "regression-compile-tmp/allimpc1-77.imp" if ((((1) > (JJJ))) || (((JJJ) > (2)))) goto L_03c5; #line 3106 "regression-compile-tmp/allimpc1-77.imp" goto U_1070; #line 3106 "regression-compile-tmp/allimpc1-77.imp" L_03c5:; // 3107 ->L12 %UNLESS JJJ=100 #line 3107 "regression-compile-tmp/allimpc1-77.imp" if (((JJJ) == (100))) goto L_03c6; #line 3107 "regression-compile-tmp/allimpc1-77.imp" goto U_106d; #line 3107 "regression-compile-tmp/allimpc1-77.imp" L_03c6:; // 3108 DUMP(2+2*PREC,1,K,0,I); P=P+1; ->L9 #line 3108 "regression-compile-tmp/allimpc1-77.imp" DUMP(((2) + ((int)(((2) * ((int)(PREC)))))), 1, K, 0, I); #line 3108 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3108 "regression-compile-tmp/allimpc1-77.imp" goto U_1071; // 3109 REGVAR: JJJ=K; P=P+1; ->L8; !CAN ONLY OPTIMISE BYTES #line 3109 "regression-compile-tmp/allimpc1-77.imp" U_106e:; #line 3109 "regression-compile-tmp/allimpc1-77.imp" JJJ = K; #line 3109 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3109 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; // 3110 RDISP: ->REGVAR %IF PRECP=1 #line 3110 "regression-compile-tmp/allimpc1-77.imp" U_106f:; #line 3110 "regression-compile-tmp/allimpc1-77.imp" if (((PRECP) != (1))) goto L_03c7; #line 3110 "regression-compile-tmp/allimpc1-77.imp" goto U_106e; #line 3110 "regression-compile-tmp/allimpc1-77.imp" L_03c7:; // 3111 PRR(X'18',1,K); P=P+1; ->L9 #line 3111 "regression-compile-tmp/allimpc1-77.imp" PRR(24, 1, K); #line 3111 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3111 "regression-compile-tmp/allimpc1-77.imp" goto U_1071; // 3112 L12: P=PP+2; DIS=0 #line 3112 "regression-compile-tmp/allimpc1-77.imp" U_106d:; #line 3112 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(PP)) + (2)); #line 3112 "regression-compile-tmp/allimpc1-77.imp" DIS = 0; // 3113 ->L21 %UNLESS JJ=1 #line 3113 "regression-compile-tmp/allimpc1-77.imp" if (((JJ) == (1))) goto L_03c8; #line 3113 "regression-compile-tmp/allimpc1-77.imp" goto U_1073; #line 3113 "regression-compile-tmp/allimpc1-77.imp" L_03c8:; // 3114 CSEXP(1,1);P=P+1 #line 3114 "regression-compile-tmp/allimpc1-77.imp" CSEXP(1, 1); #line 3114 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3115 ->L10 %IF CHECKSP=1 #line 3115 "regression-compile-tmp/allimpc1-77.imp" if (((CHECKSP) != (1))) goto L_03c9; #line 3115 "regression-compile-tmp/allimpc1-77.imp" goto U_1074; #line 3115 "regression-compile-tmp/allimpc1-77.imp" L_03c9:; // 3116 L9: JJJ=1 #line 3116 "regression-compile-tmp/allimpc1-77.imp" U_1071:; #line 3116 "regression-compile-tmp/allimpc1-77.imp" JJJ = 1; // 3117 L8: %IF BASEREG#LINK %THEN ->L5 #line 3117 "regression-compile-tmp/allimpc1-77.imp" U_1072:; #line 3117 "regression-compile-tmp/allimpc1-77.imp" if (((BASEREG) == (LINK))) goto L_03ca; #line 3117 "regression-compile-tmp/allimpc1-77.imp" goto U_1075; #line 3117 "regression-compile-tmp/allimpc1-77.imp" L_03ca:; // 3118 ->VECTOR %IF ARRP=2 #line 3118 "regression-compile-tmp/allimpc1-77.imp" if (((ARRP) != (2))) goto L_03cb; #line 3118 "regression-compile-tmp/allimpc1-77.imp" goto U_1076; #line 3118 "regression-compile-tmp/allimpc1-77.imp" L_03cb:; // 3119 RP13=R13; R13=BS<<12!DP #line 3119 "regression-compile-tmp/allimpc1-77.imp" RP13 = R13; #line 3119 "regression-compile-tmp/allimpc1-77.imp" R13 = ((((BS) << (12))) | (DP)); // 3120 PRX(X'58',LINK,0,BS,DP) %UNLESS R13=RP13; ! ADDR A0 #line 3120 "regression-compile-tmp/allimpc1-77.imp" if (((R13) == (RP13))) goto L_03cc; #line 3120 "regression-compile-tmp/allimpc1-77.imp" PRX(88, LINK, 0, BS, DP); #line 3120 "regression-compile-tmp/allimpc1-77.imp" L_03cc:; // 3121 ->L5 #line 3121 "regression-compile-tmp/allimpc1-77.imp" goto U_1075; // 3122 VECTOR: DIS=DIS+BASIC DISP; BASEREG=BS #line 3122 "regression-compile-tmp/allimpc1-77.imp" U_1076:; #line 3122 "regression-compile-tmp/allimpc1-77.imp" DIS = (((int)(DIS)) + (BASICDISP)); #line 3122 "regression-compile-tmp/allimpc1-77.imp" BASEREG = BS; // 3123 L5: PTYPE=PTYPEP; UNPACK #line 3123 "regression-compile-tmp/allimpc1-77.imp" U_1075:; #line 3123 "regression-compile-tmp/allimpc1-77.imp" PTYPE = PTYPEP; #line 3123 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 3124 ->L6 %IF JJJ=0 #line 3124 "regression-compile-tmp/allimpc1-77.imp" if (((JJJ) != (0))) goto L_03cd; #line 3124 "regression-compile-tmp/allimpc1-77.imp" goto U_1077; #line 3124 "regression-compile-tmp/allimpc1-77.imp" L_03cd:; // 3125 ->STR %IF TYPE=5 #line 3125 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_03ce; #line 3125 "regression-compile-tmp/allimpc1-77.imp" goto U_107a; #line 3125 "regression-compile-tmp/allimpc1-77.imp" L_03ce:; // 3126 ->S(PREC) %UNLESS TYPE=3; ! RECORDS #line 3126 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (3))) goto L_03cf; #line 3126 "regression-compile-tmp/allimpc1-77.imp" sw12_S_idx = PREC; if ((0 <= sw12_S_idx) && (sw12_S_idx <= 3)) goto *sw12_S[sw12_S_idx]; else { /*_imp_signal(8, 2, sw12_S_idx);*/ fprintf(stderr, "%%SWITCH index S(%d) not in range 0:3 at %s:%d\n", sw12_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } #line 3126 "regression-compile-tmp/allimpc1-77.imp" L_03cf:; // 3127 L3: PRX(X'4C',1,0,BSRF,DPRF); ->L6 #line 3127 "regression-compile-tmp/allimpc1-77.imp" U_107b:; #line 3127 "regression-compile-tmp/allimpc1-77.imp" PRX(76, 1, 0, BSRF, DPRF); #line 3127 "regression-compile-tmp/allimpc1-77.imp" goto U_1077; // 3128 STR: PRX(X'58',2,0,BS,DP+8); ! ADDR OF DV #line 3128 "regression-compile-tmp/allimpc1-77.imp" U_107a:; #line 3128 "regression-compile-tmp/allimpc1-77.imp" PRX(88, 2, 0, BS, (((int)(DP)) + (8))); // 3129 BSRF=2; DPRF=2; ->L3 #line 3129 "regression-compile-tmp/allimpc1-77.imp" BSRF = 2; #line 3129 "regression-compile-tmp/allimpc1-77.imp" DPRF = 2; #line 3129 "regression-compile-tmp/allimpc1-77.imp" goto U_107b; // 3130 S(3): !LONG REAL #line 3130 "regression-compile-tmp/allimpc1-77.imp" sw12_S_3:; // 3131 S(0): ! %INTEGER #line 3131 "regression-compile-tmp/allimpc1-77.imp" sw12_S_0:; // 3132 PCONST(X'89100002'! PREC); ->L6; ! SLL 1,2 OR 3 #line 3132 "regression-compile-tmp/allimpc1-77.imp" PCONST((((-1995440126)) | (PREC))); #line 3132 "regression-compile-tmp/allimpc1-77.imp" goto U_1077; // 3133 S(2): ! %SHORT #line 3133 "regression-compile-tmp/allimpc1-77.imp" sw12_S_2:; // 3134 PLANT(X'1A11'); ! AR 1,1 #line 3134 "regression-compile-tmp/allimpc1-77.imp" PLANT(6673); // 3135 S(1):L6: DISP=DIS; INDEX=JJJ; BASE=BASEREG; ->L99 #line 3135 "regression-compile-tmp/allimpc1-77.imp" sw12_S_1:; #line 3135 "regression-compile-tmp/allimpc1-77.imp" U_1077:; #line 3135 "regression-compile-tmp/allimpc1-77.imp" DISP = DIS; #line 3135 "regression-compile-tmp/allimpc1-77.imp" INDEX = JJJ; #line 3135 "regression-compile-tmp/allimpc1-77.imp" BASE = BASEREG; #line 3135 "regression-compile-tmp/allimpc1-77.imp" goto U_1069; // 3136 CONST: JJJ=0; P=P+1; ! 1 D WITH A CONSTANT SUFFIX #line 3136 "regression-compile-tmp/allimpc1-77.imp" U_1070:; #line 3136 "regression-compile-tmp/allimpc1-77.imp" JJJ = 0; #line 3136 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3137 ->L8 #line 3137 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; // 3138 L10: ! 1 DIMENSION PLUS CHECKS #line 3138 "regression-compile-tmp/allimpc1-77.imp" U_1074:; // 3139 DUMP(0,3,DP,0,BS); ! ADDR ARRAYHEAD #line 3139 "regression-compile-tmp/allimpc1-77.imp" DUMP(0, 3, DP, 0, BS); // 3140 PPJ(22+JJ); JJJ=1; ! PERM CHECKS BOUNDS AND SHIFTS #line 3140 "regression-compile-tmp/allimpc1-77.imp" PPJ((((int)(22)) + (JJ))); #line 3140 "regression-compile-tmp/allimpc1-77.imp" JJJ = 1; // 3141 L11: PTYPE=PTYPEP; UNPACK #line 3141 "regression-compile-tmp/allimpc1-77.imp" U_107c:; #line 3141 "regression-compile-tmp/allimpc1-77.imp" PTYPE = PTYPEP; #line 3141 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 3142 ->L6 #line 3142 "regression-compile-tmp/allimpc1-77.imp" goto U_1077; // 3143 L21: ! TWO DIMENSIONS #line 3143 "regression-compile-tmp/allimpc1-77.imp" U_1073:; // 3144 ->L31 %UNLESS JJ=2 %AND CHECKSP=0 #line 3144 "regression-compile-tmp/allimpc1-77.imp" if (((JJ) != (2))) goto L_03d0; #line 3144 "regression-compile-tmp/allimpc1-77.imp" if (((CHECKSP) == (0))) goto L_03d1; #line 3144 "regression-compile-tmp/allimpc1-77.imp" L_03d0:; #line 3144 "regression-compile-tmp/allimpc1-77.imp" goto U_107d; #line 3144 "regression-compile-tmp/allimpc1-77.imp" L_03d1:; // 3145 CSEXP(2,1);JJJ=2;P=P+1 #line 3145 "regression-compile-tmp/allimpc1-77.imp" CSEXP(2, 1); #line 3145 "regression-compile-tmp/allimpc1-77.imp" JJJ = 2; #line 3145 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3146 KK=P;Q=TSEXP(PP);P=KK #line 3146 "regression-compile-tmp/allimpc1-77.imp" KK = P; #line 3146 "regression-compile-tmp/allimpc1-77.imp" Q = TSEXP(&PP); #line 3146 "regression-compile-tmp/allimpc1-77.imp" P = KK; // 3147 ->L22 %UNLESS Q=0 #line 3147 "regression-compile-tmp/allimpc1-77.imp" if (((Q) == (0))) goto L_03d2; #line 3147 "regression-compile-tmp/allimpc1-77.imp" goto U_107e; #line 3147 "regression-compile-tmp/allimpc1-77.imp" L_03d2:; // 3148 JJJ=PARK(2) #line 3148 "regression-compile-tmp/allimpc1-77.imp" JJJ = PARK(2); // 3149 L22: CSEXP(1,1);P=P+1 #line 3149 "regression-compile-tmp/allimpc1-77.imp" U_107e:; #line 3149 "regression-compile-tmp/allimpc1-77.imp" CSEXP(1, 1); #line 3149 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3150 PRX(X'4C',1,0,BS,DP+14); ! MH 1,MULTIPLIER #line 3150 "regression-compile-tmp/allimpc1-77.imp" PRX(76, 1, 0, BS, (((int)(DP)) + (14))); // 3151 UNPARK(X'5A',1,JJJ); !ADD 1ST SUFFIX #line 3151 "regression-compile-tmp/allimpc1-77.imp" UNPARK(90, 1, JJJ); // 3152 ->L9 #line 3152 "regression-compile-tmp/allimpc1-77.imp" goto U_1071; // 3153 L31: !MULTIDIMENSION - ALWAYS VIA PERM #line 3153 "regression-compile-tmp/allimpc1-77.imp" U_107d:; // 3154 RR=GET ARR WSP #line 3154 "regression-compile-tmp/allimpc1-77.imp" RR = GETARRWSP(); // 3155 %CYCLE PP=0,1,JJ-1 #line 3155 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 0; _increment = 1; _final = (((int)(JJ)) - (1)); PP = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle PP = 0, 1, (((int)(JJ)) - (1))"); PP -= _increment; _control -= _increment; L_03d3:; if (PP == _final) goto L_03d4; PP += _increment; _control += _increment; if (PP != _control) _imp_signal(4,2,0,"Corrupt control variable PP"); /* FOR loop control variable corrupted */ } // 3156 CSEXP(0,1);P=P+1 #line 3156 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, 1); #line 3156 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3157 DUMP(1,NEST,RR+PP<<2,0,RBASE) #line 3157 "regression-compile-tmp/allimpc1-77.imp" DUMP(1, NEST, ((RR) + ((int)(((PP) << (2))))), 0, RBASE); // 3158 %REPEAT #line 3158 "regression-compile-tmp/allimpc1-77.imp" goto L_03d3; #line 3158 "regression-compile-tmp/allimpc1-77.imp" L_03d4:; // 3159 DUMP(0,1,RR+PP<<2,0,RBASE); !LA 1,2 #line 3159 "regression-compile-tmp/allimpc1-77.imp" DUMP(0, 1, ((RR) + ((int)(((PP) << (2))))), 0, RBASE); // 3160 DUMP(0,2,DP,0,BS) ;!LA 2,ARRAY HEAD #line 3160 "regression-compile-tmp/allimpc1-77.imp" DUMP(0, 2, DP, 0, BS); // 3161 PPJ(24);JJJ=1; #line 3161 "regression-compile-tmp/allimpc1-77.imp" PPJ(24); #line 3161 "regression-compile-tmp/allimpc1-77.imp" JJJ = 1; // 3162 PUSH(MDARR(LEVEL),0,RR) ;!FREE WORK SPACE #line 3162 "regression-compile-tmp/allimpc1-77.imp" PUSH(&MDARR[LEVEL], 0, RR); // 3163 ->L11 #line 3163 "regression-compile-tmp/allimpc1-77.imp" goto U_107c; // 3164 L99: J=JJ; %END #line 3164 "regression-compile-tmp/allimpc1-77.imp" U_1069:; #line 3164 "regression-compile-tmp/allimpc1-77.imp" J = JJ; #line 3164 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CANAME at level 3 // 3165 %ROUTINE CENAME(%INTEGER Z,MODE,BS,DP) #line 3165 "regression-compile-tmp/allimpc1-77.imp" void CENAME( int Z, int MODE, int BS, int DP ) #line 3165 "regression-compile-tmp/allimpc1-77.imp" { // 3166 !%SHORTROUTINE // 3167 %COMMENT MODE=0 POINTER TO RECORD IN CORE AT BS & DP // 3168 %COMMENT MODE=1 POINTER TO RECORD IN REGISTER BS DP RUBBISH // 3169 %COMMENT MODE=2 RECORD REG CLAIMED // 3170 ! P POINTS TO (ENAME)***** FNAME HOLD FORMAT NAME // 3171 %INTEGER Q,QQQ,BSRF,DPRF #line 3171 "regression-compile-tmp/allimpc1-77.imp" int Q; #line 3171 "regression-compile-tmp/allimpc1-77.imp" int QQQ; #line 3171 "regression-compile-tmp/allimpc1-77.imp" int BSRF; #line 3171 "regression-compile-tmp/allimpc1-77.imp" int DPRF; // 3172 ->L2 %IF A(P)=1 #line 3172 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (1))) goto L_03d6; #line 3172 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 3172 "regression-compile-tmp/allimpc1-77.imp" L_03d6:; // 3173 ->L1 %IF Z>=14; FAULT(64) #line 3173 "regression-compile-tmp/allimpc1-77.imp" if (((Z) < (14))) goto L_03d7; #line 3173 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; #line 3173 "regression-compile-tmp/allimpc1-77.imp" L_03d7:; #line 3173 "regression-compile-tmp/allimpc1-77.imp" FAULT(64); // 3174 P=P-2 #line 3174 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) - (2)); // 3175 PTYPE=1; UNPACK; ->L99 #line 3175 "regression-compile-tmp/allimpc1-77.imp" PTYPE = 1; #line 3175 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); #line 3175 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; // 3176 L1: BASE=BS; DISP=DP #line 3176 "regression-compile-tmp/allimpc1-77.imp" U_105b:; #line 3176 "regression-compile-tmp/allimpc1-77.imp" BASE = BS; #line 3176 "regression-compile-tmp/allimpc1-77.imp" DISP = DP; // 3177 DISP=-1 %IF MODE#0 #line 3177 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) == (0))) goto L_03d8; #line 3177 "regression-compile-tmp/allimpc1-77.imp" DISP = (-1); #line 3177 "regression-compile-tmp/allimpc1-77.imp" L_03d8:; // 3178 INDEX=0; ->L99 #line 3178 "regression-compile-tmp/allimpc1-77.imp" INDEX = 0; #line 3178 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; // 3179 L2: P=P+1; Q=DISPLACEMENT(FNAME); UNPACK #line 3179 "regression-compile-tmp/allimpc1-77.imp" U_105a:; #line 3179 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3179 "regression-compile-tmp/allimpc1-77.imp" Q = DISPLACEMENT(FNAME); #line 3179 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 3180 ! K POINTS TO CELL HOLD ING DETAILS FOR THOS CELL // 3181 ->L98 %IF Q=-1; ->L50 %IF TYPE =3 #line 3181 "regression-compile-tmp/allimpc1-77.imp" if (((Q) != ((-1)))) goto L_03d9; #line 3181 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; #line 3181 "regression-compile-tmp/allimpc1-77.imp" L_03d9:; #line 3181 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_03da; #line 3181 "regression-compile-tmp/allimpc1-77.imp" goto U_105e; #line 3181 "regression-compile-tmp/allimpc1-77.imp" L_03da:; // 3182 ->L20 %IF ARR=1 #line 3182 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (1))) goto L_03db; #line 3182 "regression-compile-tmp/allimpc1-77.imp" goto U_105f; #line 3182 "regression-compile-tmp/allimpc1-77.imp" L_03db:; // 3183 ->L30 %IF TYPE=5 #line 3183 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_03dc; #line 3183 "regression-compile-tmp/allimpc1-77.imp" goto U_1060; #line 3183 "regression-compile-tmp/allimpc1-77.imp" L_03dc:; // 3184 ->L11 %IF MODE#0 #line 3184 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) == (0))) goto L_03dd; #line 3184 "regression-compile-tmp/allimpc1-77.imp" goto U_1061; #line 3184 "regression-compile-tmp/allimpc1-77.imp" L_03dd:; // 3185 RP13=R13; R13=BS<<12!DP #line 3185 "regression-compile-tmp/allimpc1-77.imp" RP13 = R13; #line 3185 "regression-compile-tmp/allimpc1-77.imp" R13 = ((((BS) << (12))) | (DP)); // 3186 PRX(X'58',LINK,0,BS,DP) %UNLESS R13=RP13 #line 3186 "regression-compile-tmp/allimpc1-77.imp" if (((R13) == (RP13))) goto L_03de; #line 3186 "regression-compile-tmp/allimpc1-77.imp" PRX(88, LINK, 0, BS, DP); #line 3186 "regression-compile-tmp/allimpc1-77.imp" L_03de:; // 3187 BASE=LINK #line 3187 "regression-compile-tmp/allimpc1-77.imp" BASE = LINK; // 3188 L7: INDEX=0; DISP=Q #line 3188 "regression-compile-tmp/allimpc1-77.imp" U_1062:; #line 3188 "regression-compile-tmp/allimpc1-77.imp" INDEX = 0; #line 3188 "regression-compile-tmp/allimpc1-77.imp" DISP = Q; // 3189 %IF ROUT=1 %THEN FROM1(Q,DISP); ->L99 #line 3189 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) != (1))) goto L_03df; #line 3189 "regression-compile-tmp/allimpc1-77.imp" FROM1(Q, &DISP); #line 3189 "regression-compile-tmp/allimpc1-77.imp" L_03df:; #line 3189 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; // 3190 L11: BASE=BS; ->L7 #line 3190 "regression-compile-tmp/allimpc1-77.imp" U_1061:; #line 3190 "regression-compile-tmp/allimpc1-77.imp" BASE = BS; #line 3190 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; // 3191 L20: ! DEAL WITH ARRAY IN RECORD #line 3191 "regression-compile-tmp/allimpc1-77.imp" U_105f:; // 3192 FROM LIST(FNAME,BSRF,QQQ) #line 3192 "regression-compile-tmp/allimpc1-77.imp" FROMLIST(FNAME, &BSRF, &QQQ); // 3193 BSRF=BSRF>>4&15 #line 3193 "regression-compile-tmp/allimpc1-77.imp" BSRF = (((int)((((unsigned int)(BSRF)) >> (4)))) & (15)); // 3194 FROM1(QQQ,DPRF) #line 3194 "regression-compile-tmp/allimpc1-77.imp" FROM1(QQQ, &DPRF); // 3195 ->L21 %IF Z<10 %OR A(P+1)=1; K=DPRF+Q #line 3195 "regression-compile-tmp/allimpc1-77.imp" if (((Z) < (10))) goto L_03d5; #line 3195 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (1))) goto L_03e0; #line 3195 "regression-compile-tmp/allimpc1-77.imp" L_03d5:; #line 3195 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; #line 3195 "regression-compile-tmp/allimpc1-77.imp" L_03e0:; #line 3195 "regression-compile-tmp/allimpc1-77.imp" K = (((int)(DPRF)) + (Q)); // 3196 I=BSRF; ! SS5V1 #line 3196 "regression-compile-tmp/allimpc1-77.imp" I = BSRF; // 3197 DUMP(2,1,DP,0,BS) %IF MODE=0; ->L99; ! R1 NOW POINTS TO REORD #line 3197 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (0))) goto L_03e1; #line 3197 "regression-compile-tmp/allimpc1-77.imp" DUMP(2, 1, DP, 0, BS); #line 3197 "regression-compile-tmp/allimpc1-77.imp" L_03e1:; #line 3197 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; // 3198 L21: ->L22 %UNLESS MODE=0 %AND BS<4;! WILL POINTER BE DESTROTED? #line 3198 "regression-compile-tmp/allimpc1-77.imp" U_1063:; #line 3198 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (0))) goto L_03e2; #line 3198 "regression-compile-tmp/allimpc1-77.imp" if (((BS) < (4))) goto L_03e3; #line 3198 "regression-compile-tmp/allimpc1-77.imp" L_03e2:; #line 3198 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 3198 "regression-compile-tmp/allimpc1-77.imp" L_03e3:; // 3199 DUMP(2,1,DP,0,BS); MODE=1; BS=1; ! YES-- SO SAVE IT #line 3199 "regression-compile-tmp/allimpc1-77.imp" DUMP(2, 1, DP, 0, BS); #line 3199 "regression-compile-tmp/allimpc1-77.imp" MODE = 1; #line 3199 "regression-compile-tmp/allimpc1-77.imp" BS = 1; // 3200 L22: QQQ=PARK(1) %IF MODE=1 #line 3200 "regression-compile-tmp/allimpc1-77.imp" U_1064:; #line 3200 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (1))) goto L_03e4; #line 3200 "regression-compile-tmp/allimpc1-77.imp" QQQ = PARK(1); #line 3200 "regression-compile-tmp/allimpc1-77.imp" L_03e4:; // 3201 CANAME(3,BSRF,DPRF+Q,K,0,0) #line 3201 "regression-compile-tmp/allimpc1-77.imp" CANAME(3, BSRF, (((int)(DPRF)) + (Q)), K, 0, 0); // 3202 R13=0 #line 3202 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; // 3203 %IF MODE=0 %THEN PRX(X'5A',INDEX,BS,0,DP) #line 3203 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (0))) goto L_03e5; #line 3203 "regression-compile-tmp/allimpc1-77.imp" PRX(90, INDEX, BS, 0, DP); #line 3203 "regression-compile-tmp/allimpc1-77.imp" L_03e5:; // 3204 %IF MODE=1 %THEN UNPARK(X'5A',INDEX,QQQ) #line 3204 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (1))) goto L_03e6; #line 3204 "regression-compile-tmp/allimpc1-77.imp" UNPARK(90, INDEX, QQQ); #line 3204 "regression-compile-tmp/allimpc1-77.imp" L_03e6:; // 3205 %IF MODE=2 %THEN PRR(X'1A',INDEX,BS) #line 3205 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (2))) goto L_03e7; #line 3205 "regression-compile-tmp/allimpc1-77.imp" PRR(26, INDEX, BS); #line 3205 "regression-compile-tmp/allimpc1-77.imp" L_03e7:; // 3206 I=BSRF; K=DPRF+Q #line 3206 "regression-compile-tmp/allimpc1-77.imp" I = BSRF; #line 3206 "regression-compile-tmp/allimpc1-77.imp" K = (((int)(DPRF)) + (Q)); // 3207 ->L99 #line 3207 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; // 3208 L30: FROMLIST(FNAME,BSRF,QQQ) #line 3208 "regression-compile-tmp/allimpc1-77.imp" U_1060:; #line 3208 "regression-compile-tmp/allimpc1-77.imp" FROMLIST(FNAME, &BSRF, &QQQ); // 3209 FROM1(QQQ,DPRF); BSRF=BSRF>>4&15 #line 3209 "regression-compile-tmp/allimpc1-77.imp" FROM1(QQQ, &DPRF); #line 3209 "regression-compile-tmp/allimpc1-77.imp" BSRF = (((int)((((unsigned int)(BSRF)) >> (4)))) & (15)); // 3210 PRR(X'18',1,BS) %IF MODE#0 %AND BS#1 #line 3210 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) == (0))) goto L_03e8; #line 3210 "regression-compile-tmp/allimpc1-77.imp" if (((BS) == (1))) goto L_03e8; #line 3210 "regression-compile-tmp/allimpc1-77.imp" PRR(24, 1, BS); #line 3210 "regression-compile-tmp/allimpc1-77.imp" L_03e8:; // 3211 PRX(X'58',1,BS,0,DP) %IF MODE=0 #line 3211 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (0))) goto L_03e9; #line 3211 "regression-compile-tmp/allimpc1-77.imp" PRX(88, 1, BS, 0, DP); #line 3211 "regression-compile-tmp/allimpc1-77.imp" L_03e9:; // 3212 PRX(X'5A',1,BSRF,0,DPRF+Q) #line 3212 "regression-compile-tmp/allimpc1-77.imp" PRX(90, 1, BSRF, 0, (((int)(DPRF)) + (Q))); // 3213 BASE=1; INDEX=0; DISP=0 #line 3213 "regression-compile-tmp/allimpc1-77.imp" BASE = 1; #line 3213 "regression-compile-tmp/allimpc1-77.imp" INDEX = 0; #line 3213 "regression-compile-tmp/allimpc1-77.imp" DISP = 0; // 3214 I=BSRF; K=DPRF+Q; ->L99 #line 3214 "regression-compile-tmp/allimpc1-77.imp" I = BSRF; #line 3214 "regression-compile-tmp/allimpc1-77.imp" K = (((int)(DPRF)) + (Q)); #line 3214 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; // 3215 L50: ! RECORDNAME IN RECORD--Q POINTS TO SIDECHAIN #line 3215 "regression-compile-tmp/allimpc1-77.imp" U_105e:; // 3216 DUMP(2,1,DP,0,BS) %IF MODE=0;! LOAD PTR TO FIRST RECORD #line 3216 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (0))) goto L_03ea; #line 3216 "regression-compile-tmp/allimpc1-77.imp" DUMP(2, 1, DP, 0, BS); #line 3216 "regression-compile-tmp/allimpc1-77.imp" L_03ea:; // 3217 PRR(X'18',1,BS) %IF MODE#0 #line 3217 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) == (0))) goto L_03eb; #line 3217 "regression-compile-tmp/allimpc1-77.imp" PRR(24, 1, BS); #line 3217 "regression-compile-tmp/allimpc1-77.imp" L_03eb:; // 3218 FROM2(Q,QQQ) #line 3218 "regression-compile-tmp/allimpc1-77.imp" FROM2(Q, &QQQ); // 3219 CRNAME(Z,1,K,1,QQQ); ->L99 #line 3219 "regression-compile-tmp/allimpc1-77.imp" CRNAME(Z, 1, K, 1, QQQ); #line 3219 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; // 3220 L98: P=P+1; SKIP APP; P=P-2 #line 3220 "regression-compile-tmp/allimpc1-77.imp" U_105d:; #line 3220 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3220 "regression-compile-tmp/allimpc1-77.imp" SKIPAPP(); #line 3220 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) - (2)); // 3221 L99: %END #line 3221 "regression-compile-tmp/allimpc1-77.imp" U_105c:; #line 3221 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CENAME at level 3 // 3222 %ROUTINE CRNAME(%INTEGER Z,MODE,CLINK,BS,DP) #line 3222 "regression-compile-tmp/allimpc1-77.imp" void CRNAME( int Z, int MODE, int CLINK, int BS, int DP ) #line 3222 "regression-compile-tmp/allimpc1-77.imp" { // 3223 !%SHORTROUTINE // 3224 %COMMENT DEALS WITH RECORD NAME CALLING CENAME TO COMPILE SUBFIELDS // 3225 %COMMENT MODE=0 POINTER TO RECORD IN CORE AT BS & DP // 3226 %COMMENT MODE=1 POINTER TO RECORD IN REGISTER BS DP RUBBISH // 3227 %COMMENT CLINK POINTS TO CELL CONTAING NAME DETAILS // 3228 %INTEGER KK,JJ,Q,QQ #line 3228 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 3228 "regression-compile-tmp/allimpc1-77.imp" int JJ; #line 3228 "regression-compile-tmp/allimpc1-77.imp" int Q; #line 3228 "regression-compile-tmp/allimpc1-77.imp" int QQ; // 3229 FROM2(CLINK,Q) #line 3229 "regression-compile-tmp/allimpc1-77.imp" FROM2(CLINK, &Q); // 3230 FROM1(Q,FNAME) #line 3230 "regression-compile-tmp/allimpc1-77.imp" FROM1(Q, &FNAME); // 3231 ->L50 %IF ARR=0 #line 3231 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (0))) goto L_03ec; #line 3231 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; #line 3231 "regression-compile-tmp/allimpc1-77.imp" L_03ec:; // 3232 I=BS; K=DP; #line 3232 "regression-compile-tmp/allimpc1-77.imp" I = BS; #line 3232 "regression-compile-tmp/allimpc1-77.imp" K = DP; // 3233 ->L99 %IF 11<=Z<=12 %AND A(P+1)=2 ;! FETCH ARRAYHEAD #line 3233 "regression-compile-tmp/allimpc1-77.imp" if ((((11) > (Z))) || (((Z) > (12)))) goto L_03ed; #line 3233 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) goto L_03ed; #line 3233 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; #line 3233 "regression-compile-tmp/allimpc1-77.imp" L_03ed:; // 3234 FROM LIST(FNAME,KK,JJ) #line 3234 "regression-compile-tmp/allimpc1-77.imp" FROMLIST(FNAME, &KK, &JJ); // 3235 KK=KK>>4&15; ! BASE REG OF FORMAT #line 3235 "regression-compile-tmp/allimpc1-77.imp" KK = (((int)((((unsigned int)(KK)) >> (4)))) & (15)); // 3236 FROM1(JJ,JJ) #line 3236 "regression-compile-tmp/allimpc1-77.imp" FROM1(JJ, &JJ); // 3237 %IF MODE=2 %THEN PRR(X'1A',INDEX,BS) #line 3237 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (2))) goto L_03ee; #line 3237 "regression-compile-tmp/allimpc1-77.imp" PRR(26, INDEX, BS); #line 3237 "regression-compile-tmp/allimpc1-77.imp" L_03ee:; // 3238 ->L3 %UNLESS MODE=0 %AND BS<4;! WILL POINTER BE DESTROTED? #line 3238 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (0))) goto L_03ef; #line 3238 "regression-compile-tmp/allimpc1-77.imp" if (((BS) < (4))) goto L_03f0; #line 3238 "regression-compile-tmp/allimpc1-77.imp" L_03ef:; #line 3238 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; #line 3238 "regression-compile-tmp/allimpc1-77.imp" L_03f0:; // 3239 DUMP(2,1,DP,0,BS); MODE=1; BS=1; ! YES-- SO SAVE IT #line 3239 "regression-compile-tmp/allimpc1-77.imp" DUMP(2, 1, DP, 0, BS); #line 3239 "regression-compile-tmp/allimpc1-77.imp" MODE = 1; #line 3239 "regression-compile-tmp/allimpc1-77.imp" BS = 1; // 3240 L3: #line 3240 "regression-compile-tmp/allimpc1-77.imp" U_105d:; // 3241 QQ=BS; QQ=PARK(BS) %IF MODE=1 #line 3241 "regression-compile-tmp/allimpc1-77.imp" QQ = BS; #line 3241 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (1))) goto L_03f1; #line 3241 "regression-compile-tmp/allimpc1-77.imp" QQ = PARK(BS); #line 3241 "regression-compile-tmp/allimpc1-77.imp" L_03f1:; // 3242 CANAME(Z,QQ,DP,CLINK,KK,JJ+2) #line 3242 "regression-compile-tmp/allimpc1-77.imp" CANAME(Z, QQ, DP, CLINK, KK, (((int)(JJ)) + (2))); // 3243 FROM1(Q,FNAME) #line 3243 "regression-compile-tmp/allimpc1-77.imp" FROM1(Q, &FNAME); // 3244 REGISTER(QQ)=0 %IF MODE=1 #line 3244 "regression-compile-tmp/allimpc1-77.imp" if (((MODE) != (1))) goto L_03f2; #line 3244 "regression-compile-tmp/allimpc1-77.imp" REGISTER[QQ] = 0; #line 3244 "regression-compile-tmp/allimpc1-77.imp" L_03f2:; // 3245 PRR(X'1A',1,LINK) #line 3245 "regression-compile-tmp/allimpc1-77.imp" PRR(26, 1, LINK); // 3246 CENAME(Z,1,1,0); ->L99 #line 3246 "regression-compile-tmp/allimpc1-77.imp" CENAME(Z, 1, 1, 0); #line 3246 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; // 3247 L50: P=P+1; ->L51 %IF A(P)=2 #line 3247 "regression-compile-tmp/allimpc1-77.imp" U_105b:; #line 3247 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3247 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_03f3; #line 3247 "regression-compile-tmp/allimpc1-77.imp" goto U_105e; #line 3247 "regression-compile-tmp/allimpc1-77.imp" L_03f3:; // 3248 FAULT(19); SKIP APP #line 3248 "regression-compile-tmp/allimpc1-77.imp" FAULT(19); #line 3248 "regression-compile-tmp/allimpc1-77.imp" SKIPAPP(); // 3249 L51: P=P+1 #line 3249 "regression-compile-tmp/allimpc1-77.imp" U_105e:; #line 3249 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3250 %IF INREG=0 %OR Z=14 %THEN CENAME(Z,0,BS,DP) %ELSE %C #line 3250 "regression-compile-tmp/allimpc1-77.imp" if (((INREG) == (0))) goto L_03f4; #line 3250 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (14))) goto L_03f5; #line 3250 "regression-compile-tmp/allimpc1-77.imp" L_03f4:; #line 3250 "regression-compile-tmp/allimpc1-77.imp" CENAME(Z, 0, BS, DP); #line 3250 "regression-compile-tmp/allimpc1-77.imp" goto L_03f6; #line 3250 "regression-compile-tmp/allimpc1-77.imp" L_03f5:; #line 3250 "regression-compile-tmp/allimpc1-77.imp" CENAME(Z, 2, INREG, 0); #line 3250 "regression-compile-tmp/allimpc1-77.imp" L_03f6:; // 3251 CENAME(Z,2,INREG,0) // 3252 L99: %END #line 3252 "regression-compile-tmp/allimpc1-77.imp" U_105c:; #line 3252 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CRNAME at level 3 // 3253 %ROUTINE CNAME(%INTEGER Z,REG) #line 3253 "regression-compile-tmp/allimpc1-77.imp" void CNAME( int Z, int REG ) #line 3253 "regression-compile-tmp/allimpc1-77.imp" { // 3254 %INTEGER JJ,JJJ,KK,RR,PTYPEP,LEVELP #line 3254 "regression-compile-tmp/allimpc1-77.imp" int JJ; #line 3254 "regression-compile-tmp/allimpc1-77.imp" int JJJ; #line 3254 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 3254 "regression-compile-tmp/allimpc1-77.imp" int RR; #line 3254 "regression-compile-tmp/allimpc1-77.imp" int PTYPEP; #line 3254 "regression-compile-tmp/allimpc1-77.imp" int LEVELP; // 3255 %INTEGER DISPP #line 3255 "regression-compile-tmp/allimpc1-77.imp" int DISPP; // 3256 %COMMENT Z=0-RTCALL, Z=1 STORE(=), Z=2 FETCH, Z=3 FETCH ADDR, Z=4 STORE(<-), Z=6 STORE PTR, Z=12 FETCH ARRAYHEAD, Z=11 STORE ARRAY HEAD // 3257 %SWITCH S,FUNNY(10:15) #line 3257 "regression-compile-tmp/allimpc1-77.imp" static int sw13_S_idx; static const void * /*SWITCH*/ sw13_S[6] = { &&sw13_S_10, &&sw13_S_11, &&sw13_S_12, &&sw13_S_13, &&sw13_S_14, &&sw13_S_15, }; #line 3257 "regression-compile-tmp/allimpc1-77.imp" static int sw14_FUNNY_idx; static const void * /*SWITCH*/ sw14_FUNNY[6] = { &&sw14_FUNNY_10, &&sw14_FUNNY_11, &&sw14_FUNNY_12, &&sw14_FUNNY_13, &&sw14_FUNNY_14, &&sw14_FUNNY_15, }; // 3258 %SWITCH SW(0:8),MOD(0:31) #line 3258 "regression-compile-tmp/allimpc1-77.imp" static int sw15_SW_idx; static const void * /*SWITCH*/ sw15_SW[9] = { &&sw15_SW_0, &&sw15_SW_1, &&sw15_SW_2, &&sw15_SW_3, &&sw15_SW_4, &&sw15_SW_5, &&sw15_SW_6, &&sw15_SW_7, &&sw15_SW_8, }; #line 3258 "regression-compile-tmp/allimpc1-77.imp" static int sw16_MOD_idx; static const void * /*SWITCH*/ sw16_MOD[32] = { &&sw16_MOD_0, &&sw16_MOD_1, &&sw16_MOD_2, &&sw16_MOD_3, &&sw16_MOD_4, &&sw16_MOD_5, &&sw16_MOD_6, &&sw16_MOD_7, &&sw16_MOD_8, &&sw16_MOD_9, &&sw16_MOD_10, &&sw16_MOD_11, &&sw16_MOD_12, &&sw16_MOD_13, &&sw16_MOD_14, &&sw16_MOD_15, &&sw16_MOD_16, &&sw16_MOD_17, &&sw16_MOD_18, &&sw16_MOD_19, &&sw16_MOD_20, &&sw16_MOD_21, &&sw16_MOD_22, &&sw16_MOD_23, &&sw16_MOD_24, &&sw16_MOD_25, &&sw16_MOD_26, &&sw16_MOD_27, &&sw16_MOD_28, &&sw16_MOD_29, &&sw16_MOD_30, &&sw16_MOD_31, }; // 3259 FNAME=A(P); COPYTAG(FNAME) #line 3259 "regression-compile-tmp/allimpc1-77.imp" FNAME = A[((P) + ((int)(2)))]; #line 3259 "regression-compile-tmp/allimpc1-77.imp" COPYTAG(FNAME); // 3260 ->L3 %UNLESS I=-1; #line 3260 "regression-compile-tmp/allimpc1-77.imp" if (((I) == ((-1)))) goto L_03f7; #line 3260 "regression-compile-tmp/allimpc1-77.imp" goto U_105f; #line 3260 "regression-compile-tmp/allimpc1-77.imp" L_03f7:; // 3261 { FAULT(16) ;! Generating erroneous fault // 3262 I=LEVEL; J=0; K=FNAME #line 3262 "regression-compile-tmp/allimpc1-77.imp" I = LEVEL; #line 3262 "regression-compile-tmp/allimpc1-77.imp" J = 0; #line 3262 "regression-compile-tmp/allimpc1-77.imp" K = FNAME; // 3263 PTYPE=7;STORE TAG(K,N) #line 3263 "regression-compile-tmp/allimpc1-77.imp" PTYPE = 7; #line 3263 "regression-compile-tmp/allimpc1-77.imp" STORETAG(K, N); // 3264 K=N; N=N+4; UNPACK #line 3264 "regression-compile-tmp/allimpc1-77.imp" K = N; #line 3264 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (4)); #line 3264 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 3265 L3: JJ=J; JJ=0 %IF JJ=15 #line 3265 "regression-compile-tmp/allimpc1-77.imp" U_105f:; #line 3265 "regression-compile-tmp/allimpc1-77.imp" JJ = J; #line 3265 "regression-compile-tmp/allimpc1-77.imp" if (((JJ) != (15))) goto L_03f8; #line 3265 "regression-compile-tmp/allimpc1-77.imp" JJ = 0; #line 3265 "regression-compile-tmp/allimpc1-77.imp" L_03f8:; // 3266 LEVELP=I; DISPP=K #line 3266 "regression-compile-tmp/allimpc1-77.imp" LEVELP = I; #line 3266 "regression-compile-tmp/allimpc1-77.imp" DISPP = K; // 3267 ->L502 %IF TYPE=7 #line 3267 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (7))) goto L_03f9; #line 3267 "regression-compile-tmp/allimpc1-77.imp" goto U_1060; #line 3267 "regression-compile-tmp/allimpc1-77.imp" L_03f9:; // 3268 ->L500 %IF Z=0 %AND (ROUT#1 %OR 0#TYPE#6) #line 3268 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (0))) goto L_03fa; #line 3268 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) != (1))) goto L_03fb; #line 3268 "regression-compile-tmp/allimpc1-77.imp" if ((((0) == (TYPE))) || (((TYPE) == (6)))) goto L_03fa; #line 3268 "regression-compile-tmp/allimpc1-77.imp" L_03fb:; #line 3268 "regression-compile-tmp/allimpc1-77.imp" goto U_1061; #line 3268 "regression-compile-tmp/allimpc1-77.imp" L_03fa:; // 3269 ->FUNNY(Z) %IF Z>=10 #line 3269 "regression-compile-tmp/allimpc1-77.imp" if (((Z) < (10))) goto L_03fc; #line 3269 "regression-compile-tmp/allimpc1-77.imp" sw14_FUNNY_idx = Z; if ((10 <= sw14_FUNNY_idx) && (sw14_FUNNY_idx <= 15)) goto *(sw14_FUNNY-10)[sw14_FUNNY_idx]; /* Bounds=10:15 */ else { /*_imp_signal(8, 2, sw14_FUNNY_idx);*/ fprintf(stderr, "%%SWITCH index FUNNY(%d) not in range 10:15 at %s:%d\n", sw14_FUNNY_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } #line 3269 "regression-compile-tmp/allimpc1-77.imp" L_03fc:; // 3270 ->L501 %IF ROUT=1 #line 3270 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) != (1))) goto L_03fd; #line 3270 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; #line 3270 "regression-compile-tmp/allimpc1-77.imp" L_03fd:; // 3271 ->SW(TYPE) #line 3271 "regression-compile-tmp/allimpc1-77.imp" sw15_SW_idx = TYPE; if ((0 <= sw15_SW_idx) && (sw15_SW_idx <= 8)) goto *sw15_SW[sw15_SW_idx]; else { /*_imp_signal(8, 2, sw15_SW_idx);*/ fprintf(stderr, "%%SWITCH index SW(%d) not in range 0:8 at %s:%d\n", sw15_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 3272 L500: ->SW(3) %IF TYPE=3 #line 3272 "regression-compile-tmp/allimpc1-77.imp" U_1061:; #line 3272 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_03fe; #line 3272 "regression-compile-tmp/allimpc1-77.imp" sw15_SW_idx = 3; goto *sw15_SW[sw15_SW_idx]; #line 3272 "regression-compile-tmp/allimpc1-77.imp" L_03fe:; // 3273 FAULT(17) %UNLESS TYPE=7; ->L502 #line 3273 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (7))) goto L_03ff; #line 3273 "regression-compile-tmp/allimpc1-77.imp" FAULT(17); #line 3273 "regression-compile-tmp/allimpc1-77.imp" L_03ff:; #line 3273 "regression-compile-tmp/allimpc1-77.imp" goto U_1060; // 3274 SW(6): ->L661 %UNLESS Z=3 %AND ARR=1 #line 3274 "regression-compile-tmp/allimpc1-77.imp" sw15_SW_6:; #line 3274 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (3))) goto L_0400; #line 3274 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) == (1))) goto L_0401; #line 3274 "regression-compile-tmp/allimpc1-77.imp" L_0400:; #line 3274 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; #line 3274 "regression-compile-tmp/allimpc1-77.imp" L_0401:; // 3275 K=K<<2; ARR=0; I=10; ->L600 #line 3275 "regression-compile-tmp/allimpc1-77.imp" K = ((K) << (2)); #line 3275 "regression-compile-tmp/allimpc1-77.imp" ARR = 0; #line 3275 "regression-compile-tmp/allimpc1-77.imp" I = 10; #line 3275 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; // 3276 SW(4): !RECORD FORMAT NAME #line 3276 "regression-compile-tmp/allimpc1-77.imp" sw15_SW_4:; // 3277 L661: FAULT(20) #line 3277 "regression-compile-tmp/allimpc1-77.imp" U_1063:; #line 3277 "regression-compile-tmp/allimpc1-77.imp" FAULT(20); // 3278 SW(7):L502: P=P+1; ! NAME NOT SET #line 3278 "regression-compile-tmp/allimpc1-77.imp" sw15_SW_7:; #line 3278 "regression-compile-tmp/allimpc1-77.imp" U_1060:; #line 3278 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3279 PTYPE=1; UNPACK; ->L6 %IF A(P)=2; ->L102 #line 3279 "regression-compile-tmp/allimpc1-77.imp" PTYPE = 1; #line 3279 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); #line 3279 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0402; #line 3279 "regression-compile-tmp/allimpc1-77.imp" goto U_1065; #line 3279 "regression-compile-tmp/allimpc1-77.imp" L_0402:; #line 3279 "regression-compile-tmp/allimpc1-77.imp" goto U_1066; // 3280 FUNNY(11): ->L1011 %IF TYPE=3 #line 3280 "regression-compile-tmp/allimpc1-77.imp" sw14_FUNNY_11:; #line 3280 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_0403; #line 3280 "regression-compile-tmp/allimpc1-77.imp" goto U_1067; #line 3280 "regression-compile-tmp/allimpc1-77.imp" L_0403:; // 3281 FAULT(17) %UNLESS ARR=1 %AND NAM=1 %AND K>>12=0 #line 3281 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (1))) goto L_0404; #line 3281 "regression-compile-tmp/allimpc1-77.imp" if (((NAM) != (1))) goto L_0404; #line 3281 "regression-compile-tmp/allimpc1-77.imp" if ((((int)((((unsigned int)(K)) >> (12)))) == (0))) goto L_0405; #line 3281 "regression-compile-tmp/allimpc1-77.imp" L_0404:; #line 3281 "regression-compile-tmp/allimpc1-77.imp" FAULT(17); #line 3281 "regression-compile-tmp/allimpc1-77.imp" L_0405:; // 3282 PRX(X'90',0,3,I,K); ->L91 #line 3282 "regression-compile-tmp/allimpc1-77.imp" PRX(144, 0, 3, I, K); #line 3282 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 3283 L1011: PCLOD(44);->SW(3); !STM 0,3,0(11) - LA 11,16(11) #line 3283 "regression-compile-tmp/allimpc1-77.imp" U_1067:; #line 3283 "regression-compile-tmp/allimpc1-77.imp" PCLOD(44); #line 3283 "regression-compile-tmp/allimpc1-77.imp" sw15_SW_idx = 3; goto *sw15_SW[sw15_SW_idx]; // 3284 S(11): MOVER(WSPR,-16) #line 3284 "regression-compile-tmp/allimpc1-77.imp" sw13_S_11:; #line 3284 "regression-compile-tmp/allimpc1-77.imp" MOVER(WSPR, (-16)); // 3285 PSS(X'D2',16,1,0,WSPR,0); ->L91 #line 3285 "regression-compile-tmp/allimpc1-77.imp" PSS(210, 16, 1, 0, WSPR, 0); #line 3285 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 3286 FUNNY(12): ->SW(3) %IF TYPE=3 #line 3286 "regression-compile-tmp/allimpc1-77.imp" sw14_FUNNY_12:; #line 3286 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_0406; #line 3286 "regression-compile-tmp/allimpc1-77.imp" sw15_SW_idx = 3; goto *sw15_SW[sw15_SW_idx]; #line 3286 "regression-compile-tmp/allimpc1-77.imp" L_0406:; // 3287 ->L1202 %IF ARR=2; ! VECTORS #line 3287 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (2))) goto L_0407; #line 3287 "regression-compile-tmp/allimpc1-77.imp" goto U_1069; #line 3287 "regression-compile-tmp/allimpc1-77.imp" L_0407:; // 3288 FAULT(17) %UNLESS ARR=1 #line 3288 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) == (1))) goto L_0408; #line 3288 "regression-compile-tmp/allimpc1-77.imp" FAULT(17); #line 3288 "regression-compile-tmp/allimpc1-77.imp" L_0408:; // 3289 L1201: PRX(X'98',0,3,I,K&4095); ->L91 #line 3289 "regression-compile-tmp/allimpc1-77.imp" U_106d:; #line 3289 "regression-compile-tmp/allimpc1-77.imp" PRX(152, 0, 3, I, ((K) & (4095))); #line 3289 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 3290 L1202: FROM2(K,K); ->L1201 #line 3290 "regression-compile-tmp/allimpc1-77.imp" U_1069:; #line 3290 "regression-compile-tmp/allimpc1-77.imp" FROM2(K, &K); #line 3290 "regression-compile-tmp/allimpc1-77.imp" goto U_106d; // 3291 S(12): ->L1201 %IF TYPE=3 %AND ARR=1 #line 3291 "regression-compile-tmp/allimpc1-77.imp" sw13_S_12:; #line 3291 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_0409; #line 3291 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (1))) goto L_0409; #line 3291 "regression-compile-tmp/allimpc1-77.imp" goto U_106d; #line 3291 "regression-compile-tmp/allimpc1-77.imp" L_0409:; // 3292 PRR(X'18',0,1) #line 3292 "regression-compile-tmp/allimpc1-77.imp" PRR(24, 0, 1); // 3293 PRX(X'5A',0,0,I,K) #line 3293 "regression-compile-tmp/allimpc1-77.imp" PRX(90, 0, 0, I, K); // 3294 PRX(X'5A',1,0,I,K+4) #line 3294 "regression-compile-tmp/allimpc1-77.imp" PRX(90, 1, 0, I, (((int)(K)) + (4))); // 3295 PRX(X'98',2,3,I,K+8); ->L91 #line 3295 "regression-compile-tmp/allimpc1-77.imp" PRX(152, 2, 3, I, (((int)(K)) + (8))); #line 3295 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 3296 FUNNY(13): ! SET BASE & DISP FOR ROUTINE ADDR #line 3296 "regression-compile-tmp/allimpc1-77.imp" sw14_FUNNY_13:; // 3297 ->SW(3) %IF TYPE=3 #line 3297 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_040a; #line 3297 "regression-compile-tmp/allimpc1-77.imp" sw15_SW_idx = 3; goto *sw15_SW[sw15_SW_idx]; #line 3297 "regression-compile-tmp/allimpc1-77.imp" L_040a:; // 3298 ->L1302 %IF PTYPE=10006 #line 3298 "regression-compile-tmp/allimpc1-77.imp" if (((PTYPE) != (10006))) goto L_040b; #line 3298 "regression-compile-tmp/allimpc1-77.imp" goto U_106e; #line 3298 "regression-compile-tmp/allimpc1-77.imp" L_040b:; // 3299 ->L1301 %IF ROUT=1 %AND NAM&1=1 #line 3299 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) != (1))) goto L_040c; #line 3299 "regression-compile-tmp/allimpc1-77.imp" if (((((NAM) & (1))) != (1))) goto L_040c; #line 3299 "regression-compile-tmp/allimpc1-77.imp" goto U_106f; #line 3299 "regression-compile-tmp/allimpc1-77.imp" L_040c:; // 3300 BASE=GLA; FROM1(K,DISP) #line 3300 "regression-compile-tmp/allimpc1-77.imp" BASE = GLA; #line 3300 "regression-compile-tmp/allimpc1-77.imp" FROM1(K, &DISP); // 3301 INDEX=0; DISP=RA(DISP) #line 3301 "regression-compile-tmp/allimpc1-77.imp" INDEX = 0; #line 3301 "regression-compile-tmp/allimpc1-77.imp" DISP = RA[DISP]; // 3302 DISP=DISP+4 %IF J=14; ! EXTERNAL ROUTINES SKIP LINK #line 3302 "regression-compile-tmp/allimpc1-77.imp" if (((J) != (14))) goto L_040d; #line 3302 "regression-compile-tmp/allimpc1-77.imp" DISP = (((int)(DISP)) + (4)); #line 3302 "regression-compile-tmp/allimpc1-77.imp" L_040d:; // 3303 L1300: ->L500 %UNLESS ROUT=1 #line 3303 "regression-compile-tmp/allimpc1-77.imp" U_1070:; #line 3303 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) == (1))) goto L_040e; #line 3303 "regression-compile-tmp/allimpc1-77.imp" goto U_1061; #line 3303 "regression-compile-tmp/allimpc1-77.imp" L_040e:; // 3304 ->L91 #line 3304 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 3305 L1301: BASE=I; FROM1(K,DISP) #line 3305 "regression-compile-tmp/allimpc1-77.imp" U_106f:; #line 3305 "regression-compile-tmp/allimpc1-77.imp" BASE = I; #line 3305 "regression-compile-tmp/allimpc1-77.imp" FROM1(K, &DISP); // 3306 INDEX=0; ->L91 #line 3306 "regression-compile-tmp/allimpc1-77.imp" INDEX = 0; #line 3306 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 3307 L1302: CSNAME(Z,REG); ->L6 #line 3307 "regression-compile-tmp/allimpc1-77.imp" U_106e:; #line 3307 "regression-compile-tmp/allimpc1-77.imp" CSNAME(Z, REG); #line 3307 "regression-compile-tmp/allimpc1-77.imp" goto U_1065; // 3308 S(13): FROM2(K,K); ->L1300 #line 3308 "regression-compile-tmp/allimpc1-77.imp" sw13_S_13:; #line 3308 "regression-compile-tmp/allimpc1-77.imp" FROM2(K, &K); #line 3308 "regression-compile-tmp/allimpc1-77.imp" goto U_1070; // 3309 FUNNY(15): ! FETCH RECORD NAME #line 3309 "regression-compile-tmp/allimpc1-77.imp" sw14_FUNNY_15:; // 3310 ->L1501 %IF PTYPE=10006 #line 3310 "regression-compile-tmp/allimpc1-77.imp" if (((PTYPE) != (10006))) goto L_040f; #line 3310 "regression-compile-tmp/allimpc1-77.imp" goto U_1071; #line 3310 "regression-compile-tmp/allimpc1-77.imp" L_040f:; // 3311 FUNNY(14): ! STORE INTO RECORD NAME #line 3311 "regression-compile-tmp/allimpc1-77.imp" sw14_FUNNY_14:; // 3312 RR=0; %IF ARR=0 %AND INREG#0 %AND A(P+1)=2=A(P+2)%THEN RR=INREG #line 3312 "regression-compile-tmp/allimpc1-77.imp" RR = 0; #line 3312 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (0))) goto L_0410; #line 3312 "regression-compile-tmp/allimpc1-77.imp" if (((INREG) == (0))) goto L_0410; #line 3312 "regression-compile-tmp/allimpc1-77.imp" if ((((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) || (((2) != (A[(((unsigned char)((((int)(P)) + (2)))) + (2))])))) goto L_0410; #line 3312 "regression-compile-tmp/allimpc1-77.imp" RR = INREG; #line 3312 "regression-compile-tmp/allimpc1-77.imp" L_0410:; // 3313 ->SW(3) %IF TYPE=3; ->L661 #line 3313 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_0411; #line 3313 "regression-compile-tmp/allimpc1-77.imp" sw15_SW_idx = 3; goto *sw15_SW[sw15_SW_idx]; #line 3313 "regression-compile-tmp/allimpc1-77.imp" L_0411:; #line 3313 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; // 3314 S(14): FAULT(20) %UNLESS TYPE=3 %AND NAM=1 #line 3314 "regression-compile-tmp/allimpc1-77.imp" sw13_S_14:; #line 3314 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_0412; #line 3314 "regression-compile-tmp/allimpc1-77.imp" if (((NAM) == (1))) goto L_0413; #line 3314 "regression-compile-tmp/allimpc1-77.imp" L_0412:; #line 3314 "regression-compile-tmp/allimpc1-77.imp" FAULT(20); #line 3314 "regression-compile-tmp/allimpc1-77.imp" L_0413:; // 3315 PRR(X'18',RR,REG) %IF REG#RR#0 #line 3315 "regression-compile-tmp/allimpc1-77.imp" if ((((REG) == (RR))) || (((RR) == (0)))) goto L_0414; #line 3315 "regression-compile-tmp/allimpc1-77.imp" PRR(24, RR, REG); #line 3315 "regression-compile-tmp/allimpc1-77.imp" L_0414:; // 3316 DISP=0 %IF DISP<0 #line 3316 "regression-compile-tmp/allimpc1-77.imp" if (((DISP) >= (0))) goto L_0415; #line 3316 "regression-compile-tmp/allimpc1-77.imp" DISP = 0; #line 3316 "regression-compile-tmp/allimpc1-77.imp" L_0415:; // 3317 R13=0 %IF R13=BASE<<12!DISP #line 3317 "regression-compile-tmp/allimpc1-77.imp" if (((R13) != (((((BASE) << (12))) | (DISP))))) goto L_0416; #line 3317 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; #line 3317 "regression-compile-tmp/allimpc1-77.imp" L_0416:; // 3318 L1401: DUMP(Z-13,REG,DISP,INDEX,BASE) #line 3318 "regression-compile-tmp/allimpc1-77.imp" U_1072:; #line 3318 "regression-compile-tmp/allimpc1-77.imp" DUMP((((int)(Z)) - (13)), REG, DISP, INDEX, BASE); // 3319 P=P+1; ->L9005 #line 3319 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3319 "regression-compile-tmp/allimpc1-77.imp" goto U_1073; // 3320 S(15): ->L661 %UNLESS TYPE=3 #line 3320 "regression-compile-tmp/allimpc1-77.imp" sw13_S_15:; #line 3320 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (3))) goto L_0417; #line 3320 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; #line 3320 "regression-compile-tmp/allimpc1-77.imp" L_0417:; // 3321 ->L1401 %IF DISP>=0 #line 3321 "regression-compile-tmp/allimpc1-77.imp" if (((DISP) < (0))) goto L_0418; #line 3321 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; #line 3321 "regression-compile-tmp/allimpc1-77.imp" L_0418:; // 3322 DUMP(0,REG,0,INDEX,BASE); P=P+1; ->L9005 #line 3322 "regression-compile-tmp/allimpc1-77.imp" DUMP(0, REG, 0, INDEX, BASE); #line 3322 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3322 "regression-compile-tmp/allimpc1-77.imp" goto U_1073; // 3323 L1501: CSNAME(Z,REG) #line 3323 "regression-compile-tmp/allimpc1-77.imp" U_1071:; #line 3323 "regression-compile-tmp/allimpc1-77.imp" CSNAME(Z, REG); // 3324 FAULT(22) %UNLESS A(P)=2 %AND A(P+1)=2; P=P+2; ->L9005 #line 3324 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0419; #line 3324 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (2))) goto L_041a; #line 3324 "regression-compile-tmp/allimpc1-77.imp" L_0419:; #line 3324 "regression-compile-tmp/allimpc1-77.imp" FAULT(22); #line 3324 "regression-compile-tmp/allimpc1-77.imp" L_041a:; #line 3324 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 3324 "regression-compile-tmp/allimpc1-77.imp" goto U_1073; // 3325 SW(3): ! RECORD #line 3325 "regression-compile-tmp/allimpc1-77.imp" sw15_SW_3:; // 3326 FROM2(K,JJJ) #line 3326 "regression-compile-tmp/allimpc1-77.imp" FROM2(K, &JJJ); // 3327 CRNAME(Z,0,TAGS(A(P)),I,JJJ) #line 3327 "regression-compile-tmp/allimpc1-77.imp" CRNAME(Z, 0, TAGS[A[((P) + ((int)(2)))]], I, JJJ); // 3328 ->S(Z) %IF Z>=10 #line 3328 "regression-compile-tmp/allimpc1-77.imp" if (((Z) < (10))) goto L_041b; #line 3328 "regression-compile-tmp/allimpc1-77.imp" sw13_S_idx = Z; if ((10 <= sw13_S_idx) && (sw13_S_idx <= 15)) goto *(sw13_S-10)[sw13_S_idx]; /* Bounds=10:15 */ else { /*_imp_signal(8, 2, sw13_S_idx);*/ fprintf(stderr, "%%SWITCH index S(%d) not in range 10:15 at %s:%d\n", sw13_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } #line 3328 "regression-compile-tmp/allimpc1-77.imp" L_041b:; // 3329 ->L5020 %IF TYPE=5 #line 3329 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_041c; #line 3329 "regression-compile-tmp/allimpc1-77.imp" goto U_1074; #line 3329 "regression-compile-tmp/allimpc1-77.imp" L_041c:; // 3330 ->L601 %UNLESS Z=0 #line 3330 "regression-compile-tmp/allimpc1-77.imp" if (((Z) == (0))) goto L_041d; #line 3330 "regression-compile-tmp/allimpc1-77.imp" goto U_1075; #line 3330 "regression-compile-tmp/allimpc1-77.imp" L_041d:; // 3331 ->L500 %UNLESS ROUT=1 %AND NAM=1 #line 3331 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) != (1))) goto L_041e; #line 3331 "regression-compile-tmp/allimpc1-77.imp" if (((NAM) == (1))) goto L_041f; #line 3331 "regression-compile-tmp/allimpc1-77.imp" L_041e:; #line 3331 "regression-compile-tmp/allimpc1-77.imp" goto U_1061; #line 3331 "regression-compile-tmp/allimpc1-77.imp" L_041f:; // 3332 LEVELP=PARK(BASE); RR=DISP #line 3332 "regression-compile-tmp/allimpc1-77.imp" LEVELP = PARK(BASE); #line 3332 "regression-compile-tmp/allimpc1-77.imp" RR = DISP; // 3333 PTYPEP=PTYPE; FROM2(K,JJ) #line 3333 "regression-compile-tmp/allimpc1-77.imp" PTYPEP = PTYPE; #line 3333 "regression-compile-tmp/allimpc1-77.imp" FROM2(K, &JJ); // 3334 FROM2(JJ,K); ->L22 #line 3334 "regression-compile-tmp/allimpc1-77.imp" FROM2(JJ, &K); #line 3334 "regression-compile-tmp/allimpc1-77.imp" goto U_1076; // 3335 SW(5): !STRINGS #line 3335 "regression-compile-tmp/allimpc1-77.imp" sw15_SW_5:; // 3336 BASE=I; INDEX=0; DISP=K #line 3336 "regression-compile-tmp/allimpc1-77.imp" BASE = I; #line 3336 "regression-compile-tmp/allimpc1-77.imp" INDEX = 0; #line 3336 "regression-compile-tmp/allimpc1-77.imp" DISP = K; // 3337 JJJ=2; ->L5000 %UNLESS ARR=1 #line 3337 "regression-compile-tmp/allimpc1-77.imp" JJJ = 2; #line 3337 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) == (1))) goto L_0420; #line 3337 "regression-compile-tmp/allimpc1-77.imp" goto U_1077; #line 3337 "regression-compile-tmp/allimpc1-77.imp" L_0420:; // 3338 CANAME(Z,I,K,TAGS(FNAME),0,0) #line 3338 "regression-compile-tmp/allimpc1-77.imp" CANAME(Z, I, K, TAGS[FNAME], 0, 0); // 3339 L4998: NAM=NAM>>1;JJJ=0 #line 3339 "regression-compile-tmp/allimpc1-77.imp" U_107a:; #line 3339 "regression-compile-tmp/allimpc1-77.imp" NAM = (unsigned char)((((unsigned char)(NAM)) >> (1))); #line 3339 "regression-compile-tmp/allimpc1-77.imp" JJJ = 0; // 3340 ->L5000 %UNLESS Z=3 #line 3340 "regression-compile-tmp/allimpc1-77.imp" if (((Z) == (3))) goto L_0421; #line 3340 "regression-compile-tmp/allimpc1-77.imp" goto U_1077; #line 3340 "regression-compile-tmp/allimpc1-77.imp" L_0421:; // 3341 DUMP(0,REG,DISP,INDEX,BASE) #line 3341 "regression-compile-tmp/allimpc1-77.imp" DUMP(0, REG, DISP, INDEX, BASE); // 3342 PRX (X'58',2,0,LEVELP,DISPP+8) %IF CHECKS#0 #line 3342 "regression-compile-tmp/allimpc1-77.imp" if (((CHECKS) == (0))) goto L_0422; #line 3342 "regression-compile-tmp/allimpc1-77.imp" PRX(88, 2, 0, LEVELP, (((int)(DISPP)) + (8))); #line 3342 "regression-compile-tmp/allimpc1-77.imp" L_0422:; // 3343 PACLOD(10,6,REG<<4); ->L9 #line 3343 "regression-compile-tmp/allimpc1-77.imp" PACLOD(10, 6, ((REG) << (4))); #line 3343 "regression-compile-tmp/allimpc1-77.imp" goto U_107b; // 3344 %COMMENT L 2,LMAX. BCTR 2,0. SLL 2,24. OR REG,2 // 3345 L5000: ->L605 %IF 2<=Z<=3 #line 3345 "regression-compile-tmp/allimpc1-77.imp" U_1077:; #line 3345 "regression-compile-tmp/allimpc1-77.imp" if ((((2) > (Z))) || (((Z) > (3)))) goto L_0423; #line 3345 "regression-compile-tmp/allimpc1-77.imp" goto U_107c; #line 3345 "regression-compile-tmp/allimpc1-77.imp" L_0423:; // 3346 PRR(X'18',4,REG) %UNLESS REG=4 #line 3346 "regression-compile-tmp/allimpc1-77.imp" if (((REG) == (4))) goto L_0424; #line 3346 "regression-compile-tmp/allimpc1-77.imp" PRR(24, 4, REG); #line 3346 "regression-compile-tmp/allimpc1-77.imp" L_0424:; // 3347 DUMP(JJJ,1,DISP,INDEX,BASE) #line 3347 "regression-compile-tmp/allimpc1-77.imp" DUMP(JJJ, 1, DISP, INDEX, BASE); // 3348 ->L5001 %IF ARR=0 #line 3348 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (0))) goto L_0425; #line 3348 "regression-compile-tmp/allimpc1-77.imp" goto U_107d; #line 3348 "regression-compile-tmp/allimpc1-77.imp" L_0425:; // 3349 PRX(X'58',2,0,LEVELP,DISPP+8) %IF Z=4 %OR CHECKS#0 #line 3349 "regression-compile-tmp/allimpc1-77.imp" if (((Z) == (4))) goto L_0426; #line 3349 "regression-compile-tmp/allimpc1-77.imp" if (((CHECKS) == (0))) goto L_0427; #line 3349 "regression-compile-tmp/allimpc1-77.imp" L_0426:; #line 3349 "regression-compile-tmp/allimpc1-77.imp" PRX(88, 2, 0, LEVELP, (((int)(DISPP)) + (8))); #line 3349 "regression-compile-tmp/allimpc1-77.imp" L_0427:; // 3350 I=2; K=3 #line 3350 "regression-compile-tmp/allimpc1-77.imp" I = 2; #line 3350 "regression-compile-tmp/allimpc1-77.imp" K = 3; // 3351 L5001: STORE STRING(Z,4,1,I,K);->L9 #line 3351 "regression-compile-tmp/allimpc1-77.imp" U_107d:; #line 3351 "regression-compile-tmp/allimpc1-77.imp" STORESTRING(Z, 4, 1, I, K); #line 3351 "regression-compile-tmp/allimpc1-77.imp" goto U_107b; // 3352 L5020: ! STRINGS IN RE CORDS #line 3352 "regression-compile-tmp/allimpc1-77.imp" U_1074:; // 3353 ->L5025 %IF ARR=1 #line 3353 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (1))) goto L_0428; #line 3353 "regression-compile-tmp/allimpc1-77.imp" goto U_107e; #line 3353 "regression-compile-tmp/allimpc1-77.imp" L_0428:; // 3354 ->L9 %IF 2<=Z<=3 #line 3354 "regression-compile-tmp/allimpc1-77.imp" if ((((2) > (Z))) || (((Z) > (3)))) goto L_0429; #line 3354 "regression-compile-tmp/allimpc1-77.imp" goto U_107b; #line 3354 "regression-compile-tmp/allimpc1-77.imp" L_0429:; // 3355 PRR(X'18',4,REG) %UNLESS REG=4; ->L5001 #line 3355 "regression-compile-tmp/allimpc1-77.imp" if (((REG) == (4))) goto L_042a; #line 3355 "regression-compile-tmp/allimpc1-77.imp" PRR(24, 4, REG); #line 3355 "regression-compile-tmp/allimpc1-77.imp" L_042a:; #line 3355 "regression-compile-tmp/allimpc1-77.imp" goto U_107d; // 3356 L5025: ! STRING ARRAYS IN RECORDS #line 3356 "regression-compile-tmp/allimpc1-77.imp" U_107e:; // 3357 LEVELP=I; DISPP=K; ->L4998 #line 3357 "regression-compile-tmp/allimpc1-77.imp" LEVELP = I; #line 3357 "regression-compile-tmp/allimpc1-77.imp" DISPP = K; #line 3357 "regression-compile-tmp/allimpc1-77.imp" goto U_107a; // 3358 SW(8): !REGISTER VARIABLE #line 3358 "regression-compile-tmp/allimpc1-77.imp" sw15_SW_8:; // 3359 FAULT(29) %UNLESS 1<=Z<=2 %OR Z=4 #line 3359 "regression-compile-tmp/allimpc1-77.imp" if ((((1) > (Z))) || (((Z) <= (2)))) goto L_042c; #line 3359 "regression-compile-tmp/allimpc1-77.imp" L_042b:; #line 3359 "regression-compile-tmp/allimpc1-77.imp" if (((Z) == (4))) goto L_042c; #line 3359 "regression-compile-tmp/allimpc1-77.imp" FAULT(29); #line 3359 "regression-compile-tmp/allimpc1-77.imp" L_042c:; // 3360 ->L9 %IF K=REG #line 3360 "regression-compile-tmp/allimpc1-77.imp" if (((K) != (REG))) goto L_042d; #line 3360 "regression-compile-tmp/allimpc1-77.imp" goto U_107b; #line 3360 "regression-compile-tmp/allimpc1-77.imp" L_042d:; // 3361 %IF Z=2 %THEN PRR(X'18',REG,K) %ELSE PRR(X'18',K,REG) #line 3361 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (2))) goto L_042e; #line 3361 "regression-compile-tmp/allimpc1-77.imp" PRR(24, REG, K); #line 3361 "regression-compile-tmp/allimpc1-77.imp" goto L_042f; #line 3361 "regression-compile-tmp/allimpc1-77.imp" L_042e:; #line 3361 "regression-compile-tmp/allimpc1-77.imp" PRR(24, K, REG); #line 3361 "regression-compile-tmp/allimpc1-77.imp" L_042f:; // 3362 ->L9 #line 3362 "regression-compile-tmp/allimpc1-77.imp" goto U_107b; // 3363 SW(0): %UNLESS Z=3 %OR Z>10 %THEN %START #line 3363 "regression-compile-tmp/allimpc1-77.imp" sw15_SW_0:; #line 3363 "regression-compile-tmp/allimpc1-77.imp" if (((Z) == (3))) goto L_0430; #line 3363 "regression-compile-tmp/allimpc1-77.imp" if (((Z) > (10))) goto L_0430; // 3364 FAULT(12); TYPE=1; PTYPE=PTYPE+1; %FINISH #line 3364 "regression-compile-tmp/allimpc1-77.imp" FAULT(12); #line 3364 "regression-compile-tmp/allimpc1-77.imp" TYPE = 1; #line 3364 "regression-compile-tmp/allimpc1-77.imp" PTYPE = (((int)(PTYPE)) + (1)); #line 3364 "regression-compile-tmp/allimpc1-77.imp" L_0430:; // 3365 SW(2): !REAL #line 3365 "regression-compile-tmp/allimpc1-77.imp" sw15_SW_2:; // 3366 SW(1): ->L600 %IF ARR=0; ! TYPE 1 = %INTEGER #line 3366 "regression-compile-tmp/allimpc1-77.imp" sw15_SW_1:; #line 3366 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (0))) goto L_0431; #line 3366 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 3366 "regression-compile-tmp/allimpc1-77.imp" L_0431:; // 3367 CANAME(Z,I,K,TAGS(FNAME),0,0) #line 3367 "regression-compile-tmp/allimpc1-77.imp" CANAME(Z, I, K, TAGS[FNAME], 0, 0); // 3368 TYPE=1 %IF TYPE=0; ! IN CASE OF ABUSE OF ARRAYNAME #line 3368 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (0))) goto L_0432; #line 3368 "regression-compile-tmp/allimpc1-77.imp" TYPE = 1; #line 3368 "regression-compile-tmp/allimpc1-77.imp" L_0432:; // 3369 NAM=NAM>>1; ->L601 #line 3369 "regression-compile-tmp/allimpc1-77.imp" NAM = (unsigned char)((((unsigned char)(NAM)) >> (1))); #line 3369 "regression-compile-tmp/allimpc1-77.imp" goto U_1075; // 3370 L501: ->L503 %UNLESS Z#0 %AND PTYPE=10000;! ROUTINES #line 3370 "regression-compile-tmp/allimpc1-77.imp" U_1062:; #line 3370 "regression-compile-tmp/allimpc1-77.imp" if (((Z) == (0))) goto L_0433; #line 3370 "regression-compile-tmp/allimpc1-77.imp" if (((PTYPE) == (10000))) goto L_0434; #line 3370 "regression-compile-tmp/allimpc1-77.imp" L_0433:; #line 3370 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; #line 3370 "regression-compile-tmp/allimpc1-77.imp" L_0434:; // 3371 FAULT(23); PRINTNAME(A(P)); ->L503 #line 3371 "regression-compile-tmp/allimpc1-77.imp" FAULT(23); #line 3371 "regression-compile-tmp/allimpc1-77.imp" PRINTNAME(A[((P) + ((int)(2)))]); #line 3371 "regression-compile-tmp/allimpc1-77.imp" goto U_107f; // 3372 L503: PTYPEP=PTYPE #line 3372 "regression-compile-tmp/allimpc1-77.imp" U_107f:; #line 3372 "regression-compile-tmp/allimpc1-77.imp" PTYPEP = PTYPE; // 3373 ->L20 %UNLESS PTYPE=10006 #line 3373 "regression-compile-tmp/allimpc1-77.imp" if (((PTYPE) == (10006))) goto L_0435; #line 3373 "regression-compile-tmp/allimpc1-77.imp" goto U_1080; #line 3373 "regression-compile-tmp/allimpc1-77.imp" L_0435:; // 3374 CSNAME(Z,REG) #line 3374 "regression-compile-tmp/allimpc1-77.imp" CSNAME(Z, REG); // 3375 ->L202 %IF ROUT=1 %AND NAM>=1 %AND Z#0; ->L6; ! MAPS #line 3375 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) != (1))) goto L_0436; #line 3375 "regression-compile-tmp/allimpc1-77.imp" if (((NAM) < (1))) goto L_0436; #line 3375 "regression-compile-tmp/allimpc1-77.imp" if (((Z) == (0))) goto L_0436; #line 3375 "regression-compile-tmp/allimpc1-77.imp" goto U_1081; #line 3375 "regression-compile-tmp/allimpc1-77.imp" L_0436:; #line 3375 "regression-compile-tmp/allimpc1-77.imp" goto U_1065; // 3376 L20: KK=K; FROM LIST(KK,RR,K) #line 3376 "regression-compile-tmp/allimpc1-77.imp" U_1080:; #line 3376 "regression-compile-tmp/allimpc1-77.imp" KK = K; #line 3376 "regression-compile-tmp/allimpc1-77.imp" FROMLIST(KK, &RR, &K); // 3377 L22: ->L21 %UNLESS K=1000; FAULT(21); ->L502 #line 3377 "regression-compile-tmp/allimpc1-77.imp" U_1076:; #line 3377 "regression-compile-tmp/allimpc1-77.imp" if (((K) == (1000))) goto L_0437; #line 3377 "regression-compile-tmp/allimpc1-77.imp" goto U_1082; #line 3377 "regression-compile-tmp/allimpc1-77.imp" L_0437:; #line 3377 "regression-compile-tmp/allimpc1-77.imp" FAULT(21); #line 3377 "regression-compile-tmp/allimpc1-77.imp" goto U_1060; // 3378 L21: CRCALL(KK) #line 3378 "regression-compile-tmp/allimpc1-77.imp" U_1082:; #line 3378 "regression-compile-tmp/allimpc1-77.imp" CRCALL(KK); // 3379 PTYPE=PTYPEP; UNPACK #line 3379 "regression-compile-tmp/allimpc1-77.imp" PTYPE = PTYPEP; #line 3379 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 3380 ->L37 %IF NAM&1=1 #line 3380 "regression-compile-tmp/allimpc1-77.imp" if (((((NAM) & (1))) != (1))) goto L_0438; #line 3380 "regression-compile-tmp/allimpc1-77.imp" goto U_1083; #line 3380 "regression-compile-tmp/allimpc1-77.imp" L_0438:; // 3381 ->L36 %IF JJ=14 #line 3381 "regression-compile-tmp/allimpc1-77.imp" if (((JJ) != (14))) goto L_0439; #line 3381 "regression-compile-tmp/allimpc1-77.imp" goto U_1084; #line 3381 "regression-compile-tmp/allimpc1-77.imp" L_0439:; // 3382 DUMP(2,1,RA(RR),0,GLA) ;! RT ADDR TO REG1 #line 3382 "regression-compile-tmp/allimpc1-77.imp" DUMP(2, 1, RA[RR], 0, GLA); // 3383 PRX(X'45',LINK,0,GLA,116); ! BAL 15,SR IN PERM #line 3383 "regression-compile-tmp/allimpc1-77.imp" PRX(69, LINK, 0, GLA, 116); // 3384 L371: MONE=1; R13=0 #line 3384 "regression-compile-tmp/allimpc1-77.imp" U_1085:; #line 3384 "regression-compile-tmp/allimpc1-77.imp" MONE = 1; #line 3384 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; // 3385 P=P+1 #line 3385 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3386 ->L1 %IF PTYPE=10000 %OR PTYPE=11000; ! ROUTINE OR RTNAME #line 3386 "regression-compile-tmp/allimpc1-77.imp" if (((PTYPE) == (10000))) goto L_043a; #line 3386 "regression-compile-tmp/allimpc1-77.imp" if (((PTYPE) != (11000))) goto L_043b; #line 3386 "regression-compile-tmp/allimpc1-77.imp" L_043a:; #line 3386 "regression-compile-tmp/allimpc1-77.imp" goto U_1086; #line 3386 "regression-compile-tmp/allimpc1-77.imp" L_043b:; // 3387 ->L201 %IF NAM>1; !MAPS #line 3387 "regression-compile-tmp/allimpc1-77.imp" if (((NAM) <= (1))) goto L_043c; #line 3387 "regression-compile-tmp/allimpc1-77.imp" goto U_1087; #line 3387 "regression-compile-tmp/allimpc1-77.imp" L_043c:; // 3388 FAULT(29) %UNLESS Z=2; !FN OUT OF CONTEXT #line 3388 "regression-compile-tmp/allimpc1-77.imp" if (((Z) == (2))) goto L_043d; #line 3388 "regression-compile-tmp/allimpc1-77.imp" FAULT(29); #line 3388 "regression-compile-tmp/allimpc1-77.imp" L_043d:; // 3389 ->L43 %IF TYPE=2 #line 3389 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_043e; #line 3389 "regression-compile-tmp/allimpc1-77.imp" goto U_1088; #line 3389 "regression-compile-tmp/allimpc1-77.imp" L_043e:; // 3390 L44: PRR(X'18',REG,1) %UNLESS REG=1; ->L1 #line 3390 "regression-compile-tmp/allimpc1-77.imp" U_1089:; #line 3390 "regression-compile-tmp/allimpc1-77.imp" if (((REG) == (1))) goto L_043f; #line 3390 "regression-compile-tmp/allimpc1-77.imp" PRR(24, REG, 1); #line 3390 "regression-compile-tmp/allimpc1-77.imp" L_043f:; #line 3390 "regression-compile-tmp/allimpc1-77.imp" goto U_1086; // 3391 L43: PRR(X'28',REG,2) %UNLESS REG=2; ->L1 #line 3391 "regression-compile-tmp/allimpc1-77.imp" U_1088:; #line 3391 "regression-compile-tmp/allimpc1-77.imp" if (((REG) == (2))) goto L_0440; #line 3391 "regression-compile-tmp/allimpc1-77.imp" PRR(40, REG, 2); #line 3391 "regression-compile-tmp/allimpc1-77.imp" L_0440:; #line 3391 "regression-compile-tmp/allimpc1-77.imp" goto U_1086; // 3392 L36: ! CALL OF EXTERNAL ROUTINE #line 3392 "regression-compile-tmp/allimpc1-77.imp" U_1084:; // 3393 PACLOD(55,4,RA(RR)+4); !STM 4,14 - LM 12,14-BALR 13,14 #line 3393 "regression-compile-tmp/allimpc1-77.imp" PACLOD(55, 4, (((int)(RA[RR])) + (4))); // 3394 ->L371 #line 3394 "regression-compile-tmp/allimpc1-77.imp" goto U_1085; // 3395 L37: ! CALL OF RT PARAM******** REGISTERS MUST BE RESET #line 3395 "regression-compile-tmp/allimpc1-77.imp" U_1083:; // 3396 REGISTER(LEVELP)=0 %IF LEVELP= (RBASE))) goto L_0441; #line 3396 "regression-compile-tmp/allimpc1-77.imp" REGISTER[LEVELP] = 0; #line 3396 "regression-compile-tmp/allimpc1-77.imp" L_0441:; // 3397 PACLOD(61,4,LEVELP<<12!RR) #line 3397 "regression-compile-tmp/allimpc1-77.imp" PACLOD(61, 4, ((((LEVELP) << (12))) | (RR))); // 3398 %COMMENT STM 4,14,?--LM 12,15 ? -- LM 5,9,20(15) -- BALR 15,14 // 3399 ->L371 #line 3399 "regression-compile-tmp/allimpc1-77.imp" goto U_1085; // 3400 L201: %COMMENT - REAL MAPS AND INTEGER MAPS #line 3400 "regression-compile-tmp/allimpc1-77.imp" U_1087:; // 3401 NEST=1 #line 3401 "regression-compile-tmp/allimpc1-77.imp" NEST = 1; // 3402 L202: #line 3402 "regression-compile-tmp/allimpc1-77.imp" U_1081:; // 3403 ->L205 %IF TYPE=5; ! STRING MAPS #line 3403 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_0442; #line 3403 "regression-compile-tmp/allimpc1-77.imp" goto U_108a; #line 3403 "regression-compile-tmp/allimpc1-77.imp" L_0442:; // 3404 ->L203 %IF Z=3 #line 3404 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (3))) goto L_0443; #line 3404 "regression-compile-tmp/allimpc1-77.imp" goto U_108b; #line 3404 "regression-compile-tmp/allimpc1-77.imp" L_0443:; // 3405 JJJ=Z; JJJ=1 %IF Z=4 #line 3405 "regression-compile-tmp/allimpc1-77.imp" JJJ = Z; #line 3405 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (4))) goto L_0444; #line 3405 "regression-compile-tmp/allimpc1-77.imp" JJJ = 1; #line 3405 "regression-compile-tmp/allimpc1-77.imp" L_0444:; // 3406 JJJ=TYPE<<3+PREC<<1-8+JJJ #line 3406 "regression-compile-tmp/allimpc1-77.imp" JJJ = (((int)((((int)((((((TYPE) << (3)))) + (((PREC) << (1)))))) - (8)))) + (JJJ)); // 3407 DUMP(JJJ,REG,0,0,NEST) #line 3407 "regression-compile-tmp/allimpc1-77.imp" DUMP(JJJ, REG, 0, 0, NEST); // 3408 CHECK CAPACITY(REG,0,0,NEST) %IF Z=1 %AND CHECKS=1 #line 3408 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (1))) goto L_0445; #line 3408 "regression-compile-tmp/allimpc1-77.imp" if (((CHECKS) != (1))) goto L_0445; #line 3408 "regression-compile-tmp/allimpc1-77.imp" CHECKCAPACITY(REG, 0, 0, NEST); #line 3408 "regression-compile-tmp/allimpc1-77.imp" L_0445:; // 3409 TEST ASS(REG) %IF Z=2 %AND UNASS=1 #line 3409 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (2))) goto L_0446; #line 3409 "regression-compile-tmp/allimpc1-77.imp" if (((UNASS) != (1))) goto L_0446; #line 3409 "regression-compile-tmp/allimpc1-77.imp" TESTASS(REG); #line 3409 "regression-compile-tmp/allimpc1-77.imp" L_0446:; // 3410 ->L1 #line 3410 "regression-compile-tmp/allimpc1-77.imp" goto U_1086; // 3411 L203: PRR(X'18',REG,NEST) %UNLESS REG=NEST; ->L1 #line 3411 "regression-compile-tmp/allimpc1-77.imp" U_108b:; #line 3411 "regression-compile-tmp/allimpc1-77.imp" if (((REG) == (NEST))) goto L_0447; #line 3411 "regression-compile-tmp/allimpc1-77.imp" PRR(24, REG, NEST); #line 3411 "regression-compile-tmp/allimpc1-77.imp" L_0447:; #line 3411 "regression-compile-tmp/allimpc1-77.imp" goto U_1086; // 3412 L205: %COMMENT STRING MAPS #line 3412 "regression-compile-tmp/allimpc1-77.imp" U_108a:; // 3413 %IF NEST#1 %THEN PRR(X'18',1,NEST) #line 3413 "regression-compile-tmp/allimpc1-77.imp" if (((NEST) == (1))) goto L_0448; #line 3413 "regression-compile-tmp/allimpc1-77.imp" PRR(24, 1, NEST); #line 3413 "regression-compile-tmp/allimpc1-77.imp" L_0448:; // 3414 ->L206 %IF 2<=Z<=3 #line 3414 "regression-compile-tmp/allimpc1-77.imp" if ((((2) > (Z))) || (((Z) > (3)))) goto L_0449; #line 3414 "regression-compile-tmp/allimpc1-77.imp" goto U_108c; #line 3414 "regression-compile-tmp/allimpc1-77.imp" L_0449:; // 3415 STORE STRING(Z,REG,1,0,255); ->L1 #line 3415 "regression-compile-tmp/allimpc1-77.imp" STORESTRING(Z, REG, 1, 0, 255); #line 3415 "regression-compile-tmp/allimpc1-77.imp" goto U_1086; // 3416 L206: PCLOD(69);->L44; ! LA 0,255--SLL 0,24 OR 1,0 #line 3416 "regression-compile-tmp/allimpc1-77.imp" U_108c:; #line 3416 "regression-compile-tmp/allimpc1-77.imp" PCLOD(69); #line 3416 "regression-compile-tmp/allimpc1-77.imp" goto U_1089; // 3417 !ARR=0 // 3418 L600: BASE=I; INDEX=0; DISP=K #line 3418 "regression-compile-tmp/allimpc1-77.imp" U_1064:; #line 3418 "regression-compile-tmp/allimpc1-77.imp" BASE = I; #line 3418 "regression-compile-tmp/allimpc1-77.imp" INDEX = 0; #line 3418 "regression-compile-tmp/allimpc1-77.imp" DISP = K; // 3419 L601: ->L602 %IF Z=6 #line 3419 "regression-compile-tmp/allimpc1-77.imp" U_1075:; #line 3419 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (6))) goto L_044a; #line 3419 "regression-compile-tmp/allimpc1-77.imp" goto U_108d; #line 3419 "regression-compile-tmp/allimpc1-77.imp" L_044a:; // 3420 ->MOD(NAM<<4!PREC<<2!Z&3) #line 3420 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_idx = ((((((NAM) << (4))) | (((PREC) << (2))))) | (((Z) & (3)))); if ((0 <= sw16_MOD_idx) && (sw16_MOD_idx <= 31)) goto *sw16_MOD[sw16_MOD_idx]; else { /*_imp_signal(8, 2, sw16_MOD_idx);*/ fprintf(stderr, "%%SWITCH index MOD(%d) not in range 0:31 at %s:%d\n", sw16_MOD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 3421 L602: FAULT(17) %IF NAM=0 #line 3421 "regression-compile-tmp/allimpc1-77.imp" U_108d:; #line 3421 "regression-compile-tmp/allimpc1-77.imp" if (((NAM) != (0))) goto L_044b; #line 3421 "regression-compile-tmp/allimpc1-77.imp" FAULT(17); #line 3421 "regression-compile-tmp/allimpc1-77.imp" L_044b:; // 3422 R13=0 %IF R13=BASE<<12!DISP #line 3422 "regression-compile-tmp/allimpc1-77.imp" if (((R13) != (((((BASE) << (12))) | (DISP))))) goto L_044c; #line 3422 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; #line 3422 "regression-compile-tmp/allimpc1-77.imp" L_044c:; // 3423 JJJ=1; ->L605 #line 3423 "regression-compile-tmp/allimpc1-77.imp" JJJ = 1; #line 3423 "regression-compile-tmp/allimpc1-77.imp" goto U_107c; // 3424 MOD(1): ! INTEGER STORE (=) #line 3424 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_1:; // 3425 MOD(0): ! INTEGER STORE(<-) #line 3425 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_0:; // 3426 MOD(5): ! BYTE STORE(=) #line 3426 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_5:; // 3427 MOD(4): ! BYTE STORE(<-) #line 3427 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_4:; // 3428 MOD(9): ! SHORT STORE(=) #line 3428 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_9:; // 3429 MOD(8): ! SHORT STORE(<-) #line 3429 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_8:; // 3430 MOD(12): !LONG REAL STORE (<-) #line 3430 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_12:; // 3431 MOD(13): !LONG REAL STORE (=) #line 3431 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_13:; // 3432 MOD(2): !INTEGER OR REAL FETCH #line 3432 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_2:; // 3433 MOD(14): !LONGREAL FETCH #line 3433 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_14:; // 3434 JJJ=Z; JJJ=1 %IF Z=4 #line 3434 "regression-compile-tmp/allimpc1-77.imp" JJJ = Z; #line 3434 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (4))) goto L_044d; #line 3434 "regression-compile-tmp/allimpc1-77.imp" JJJ = 1; #line 3434 "regression-compile-tmp/allimpc1-77.imp" L_044d:; // 3435 JJJ=TYPE<<3+PREC<<1-8+JJJ #line 3435 "regression-compile-tmp/allimpc1-77.imp" JJJ = (((int)((((int)((((((TYPE) << (3)))) + (((PREC) << (1)))))) - (8)))) + (JJJ)); // 3436 L605: DUMP(JJJ,REG,DISP,INDEX,BASE) #line 3436 "regression-compile-tmp/allimpc1-77.imp" U_107c:; #line 3436 "regression-compile-tmp/allimpc1-77.imp" DUMP(JJJ, REG, DISP, INDEX, BASE); // 3437 CHECK CAPACITY(REG,DISP,INDEX,BASE) %IF Z=1 %AND CHECKS=1 #line 3437 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (1))) goto L_044e; #line 3437 "regression-compile-tmp/allimpc1-77.imp" if (((CHECKS) != (1))) goto L_044e; #line 3437 "regression-compile-tmp/allimpc1-77.imp" CHECKCAPACITY(REG, DISP, INDEX, BASE); #line 3437 "regression-compile-tmp/allimpc1-77.imp" L_044e:; // 3438 TEST ASS(REG) %IF Z=2 %AND UNASS=1 #line 3438 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (2))) goto L_044f; #line 3438 "regression-compile-tmp/allimpc1-77.imp" if (((UNASS) != (1))) goto L_044f; #line 3438 "regression-compile-tmp/allimpc1-77.imp" TESTASS(REG); #line 3438 "regression-compile-tmp/allimpc1-77.imp" L_044f:; // 3439 ->L9 #line 3439 "regression-compile-tmp/allimpc1-77.imp" goto U_107b; // 3440 MOD(31): !LONG REAL NAME FETCH ADDR #line 3440 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_31:; // 3441 MOD(19): ! INTEGER NAME FETCH ADDR #line 3441 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_19:; // 3442 MOD(23): ! BYTE NAME FETCH ADDR #line 3442 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_23:; // 3443 MOD(27): ! SHORT NAME FETCH ADDR #line 3443 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_27:; // 3444 JJJ=2;->L605 #line 3444 "regression-compile-tmp/allimpc1-77.imp" JJJ = 2; #line 3444 "regression-compile-tmp/allimpc1-77.imp" goto U_107c; // 3445 MOD(15): !LONG REAL FETCH ADDR #line 3445 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_15:; // 3446 MOD(3): ! INTEGER FETCH ADDR #line 3446 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_3:; // 3447 MOD(7): ! BYTE FETCH ADDR #line 3447 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_7:; // 3448 MOD(11): ! SHORT FETCH ADDR #line 3448 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_11:; // 3449 JJJ=0;->L605 #line 3449 "regression-compile-tmp/allimpc1-77.imp" JJJ = 0; #line 3449 "regression-compile-tmp/allimpc1-77.imp" goto U_107c; // 3450 MOD(6): ! BYTE FETCH #line 3450 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_6:; // 3451 MOD(10): ! SHORT FETCH #line 3451 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_10:; // 3452 JJJ=PREC<<1+2;->L605 #line 3452 "regression-compile-tmp/allimpc1-77.imp" JJJ = (((int)(((PREC) << (1)))) + (2)); #line 3452 "regression-compile-tmp/allimpc1-77.imp" goto U_107c; // 3453 MOD(16): ! INTEGER NAME STORE (<-) #line 3453 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_16:; // 3454 MOD(20): ! BYTE NAME STORE (<-) #line 3454 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_20:; // 3455 MOD(24): ! SHORT NAME STORE (<-) #line 3455 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_24:; // 3456 MOD(17): ! INTEGER NAME STORE (=) #line 3456 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_17:; // 3457 MOD(21): ! BYTE NAME STORE (=) #line 3457 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_21:; // 3458 MOD(25): ! SHORT NAME STORE (=) #line 3458 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_25:; // 3459 MOD(28): !LONG REAL NAME STORE (<-) #line 3459 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_28:; // 3460 MOD(29): !LONG REAL NAME STORE (=) #line 3460 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_29:; // 3461 MOD(18): ! INTEGER NAME FETCH #line 3461 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_18:; // 3462 MOD(22): ! BYTE NAME FETCH #line 3462 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_22:; // 3463 MOD(26): ! SHORT NAME FETCH #line 3463 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_26:; // 3464 MOD(30): !LONG REAL NAME FETCH #line 3464 "regression-compile-tmp/allimpc1-77.imp" sw16_MOD_30:; // 3465 RP13=R13; R13=BASE<<12!DISP #line 3465 "regression-compile-tmp/allimpc1-77.imp" RP13 = R13; #line 3465 "regression-compile-tmp/allimpc1-77.imp" R13 = ((((BASE) << (12))) | (DISP)); // 3466 PRX(X'58',LINK,INDEX,BASE,DISP) %UNLESS R13=RP13 %AND INDEX=0 #line 3466 "regression-compile-tmp/allimpc1-77.imp" if (((R13) != (RP13))) goto L_0450; #line 3466 "regression-compile-tmp/allimpc1-77.imp" if (((INDEX) == (0))) goto L_0451; #line 3466 "regression-compile-tmp/allimpc1-77.imp" L_0450:; #line 3466 "regression-compile-tmp/allimpc1-77.imp" PRX(88, LINK, INDEX, BASE, DISP); #line 3466 "regression-compile-tmp/allimpc1-77.imp" L_0451:; // 3467 JJJ=Z; JJJ=1 %IF Z=4 #line 3467 "regression-compile-tmp/allimpc1-77.imp" JJJ = Z; #line 3467 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (4))) goto L_0452; #line 3467 "regression-compile-tmp/allimpc1-77.imp" JJJ = 1; #line 3467 "regression-compile-tmp/allimpc1-77.imp" L_0452:; // 3468 JJJ=TYPE<<3+PREC<<1-8+JJJ #line 3468 "regression-compile-tmp/allimpc1-77.imp" JJJ = (((int)((((int)((((((TYPE) << (3)))) + (((PREC) << (1)))))) - (8)))) + (JJJ)); // 3469 DUMP(JJJ,REG,0,0,LINK) #line 3469 "regression-compile-tmp/allimpc1-77.imp" DUMP(JJJ, REG, 0, 0, LINK); // 3470 CHECK CAPACITY(REG,0,0,LINK) %IF Z=1 %AND CHECKS=1 #line 3470 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (1))) goto L_0453; #line 3470 "regression-compile-tmp/allimpc1-77.imp" if (((CHECKS) != (1))) goto L_0453; #line 3470 "regression-compile-tmp/allimpc1-77.imp" CHECKCAPACITY(REG, 0, 0, LINK); #line 3470 "regression-compile-tmp/allimpc1-77.imp" L_0453:; // 3471 TEST ASS (REG) %IF Z=2 %AND UNASS=1 #line 3471 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (2))) goto L_0454; #line 3471 "regression-compile-tmp/allimpc1-77.imp" if (((UNASS) != (1))) goto L_0454; #line 3471 "regression-compile-tmp/allimpc1-77.imp" TESTASS(REG); #line 3471 "regression-compile-tmp/allimpc1-77.imp" L_0454:; // 3472 L9: ->L1 %UNLESS ARR=0 #line 3472 "regression-compile-tmp/allimpc1-77.imp" U_107b:; #line 3472 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) == (0))) goto L_0455; #line 3472 "regression-compile-tmp/allimpc1-77.imp" goto U_1086; #line 3472 "regression-compile-tmp/allimpc1-77.imp" L_0455:; // 3473 L91: P=P+1 #line 3473 "regression-compile-tmp/allimpc1-77.imp" U_1068:; #line 3473 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3474 ->L6 %IF A(P)=2 #line 3474 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0456; #line 3474 "regression-compile-tmp/allimpc1-77.imp" goto U_1065; #line 3474 "regression-compile-tmp/allimpc1-77.imp" L_0456:; // 3475 FAULT(19) #line 3475 "regression-compile-tmp/allimpc1-77.imp" FAULT(19); // 3476 L102: SKIP APP; ->L1 #line 3476 "regression-compile-tmp/allimpc1-77.imp" U_1066:; #line 3476 "regression-compile-tmp/allimpc1-77.imp" SKIPAPP(); #line 3476 "regression-compile-tmp/allimpc1-77.imp" goto U_1086; // 3477 L6: P=P+1 #line 3477 "regression-compile-tmp/allimpc1-77.imp" U_1065:; #line 3477 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3478 L1: P=P+1; ->L9005 %IF A(P-1)=2 #line 3478 "regression-compile-tmp/allimpc1-77.imp" U_1086:; #line 3478 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3478 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_0457; #line 3478 "regression-compile-tmp/allimpc1-77.imp" goto U_1073; #line 3478 "regression-compile-tmp/allimpc1-77.imp" L_0457:; // 3479 FAULT(69); ->L91 #line 3479 "regression-compile-tmp/allimpc1-77.imp" FAULT(69); #line 3479 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 3480 L9005: %END #line 3480 "regression-compile-tmp/allimpc1-77.imp" U_1073:; #line 3480 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; sw14_FUNNY_10:; /*_imp_signal(6,3,sw14_FUNNY_idx,"SWITCH LABEL NOT SET - sw14_FUNNY");*/ fprintf(stderr, "%%SWITCH LABEL NOT SET - sw14_FUNNY(%d): at line %s:%d", sw14_FUNNY_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); sw13_S_10:; /*_imp_signal(6,3,sw13_S_idx,"SWITCH LABEL NOT SET - sw13_S");*/ fprintf(stderr, "%%SWITCH LABEL NOT SET - sw13_S(%d): at line %s:%d", sw13_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // End of block CNAME at level 3 // 3481 %ROUTINE CRCALL (%INTEGER CLINK) #line 3481 "regression-compile-tmp/allimpc1-77.imp" void CRCALL( int CLINK ) #line 3481 "regression-compile-tmp/allimpc1-77.imp" { // 3482 !%SHORTROUTINE // 3483 %SWITCH FPD(0:3) #line 3483 "regression-compile-tmp/allimpc1-77.imp" static int sw17_FPD_idx; static const void * /*SWITCH*/ sw17_FPD[4] = { &&sw17_FPD_0, &&sw17_FPD_1, &&sw17_FPD_2, &&sw17_FPD_3, }; // 3484 %INTEGER KK,II,III,Q,QQ,QQQ,PP,RF #line 3484 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 3484 "regression-compile-tmp/allimpc1-77.imp" int II; #line 3484 "regression-compile-tmp/allimpc1-77.imp" int III; #line 3484 "regression-compile-tmp/allimpc1-77.imp" int Q; #line 3484 "regression-compile-tmp/allimpc1-77.imp" int QQ; #line 3484 "regression-compile-tmp/allimpc1-77.imp" int QQQ; #line 3484 "regression-compile-tmp/allimpc1-77.imp" int PP; #line 3484 "regression-compile-tmp/allimpc1-77.imp" int RF; // 3485 %ROUTINESPEC MOVEBACK #line 3485 "regression-compile-tmp/allimpc1-77.imp" auto void MOVEBACK( void ); // 3486 %INTEGER MOVED,TOMOVE,TYPEP #line 3486 "regression-compile-tmp/allimpc1-77.imp" int MOVED; #line 3486 "regression-compile-tmp/allimpc1-77.imp" int TOMOVE; #line 3486 "regression-compile-tmp/allimpc1-77.imp" int TYPEP; // 3487 %SHORTINTEGER LIST; LIST=0 #line 3487 "regression-compile-tmp/allimpc1-77.imp" short LIST; #line 3487 "regression-compile-tmp/allimpc1-77.imp" LIST = 0; // 3488 FFLAG=0; KK=COUNT APS #line 3488 "regression-compile-tmp/allimpc1-77.imp" FFLAG = 0; #line 3488 "regression-compile-tmp/allimpc1-77.imp" KK = COUNTAPS(); // 3489 P=P+1; ->L2 %IF K=KK #line 3489 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3489 "regression-compile-tmp/allimpc1-77.imp" if (((K) != (KK))) goto L_0458; #line 3489 "regression-compile-tmp/allimpc1-77.imp" goto U_1061; #line 3489 "regression-compile-tmp/allimpc1-77.imp" L_0458:; // 3490 FAULT(19); PRINTNAME(FNAME) #line 3490 "regression-compile-tmp/allimpc1-77.imp" FAULT(19); #line 3490 "regression-compile-tmp/allimpc1-77.imp" PRINTNAME(FNAME); // 3491 SKIP APP; P=P-1; ->L99 #line 3491 "regression-compile-tmp/allimpc1-77.imp" SKIPAPP(); #line 3491 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) - (1)); #line 3491 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; // 3492 L2: ->L99 %IF K=0; ! NO PARAMETERS #line 3492 "regression-compile-tmp/allimpc1-77.imp" U_1061:; #line 3492 "regression-compile-tmp/allimpc1-77.imp" if (((K) != (0))) goto L_0459; #line 3492 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; #line 3492 "regression-compile-tmp/allimpc1-77.imp" L_0459:; // 3493 Q=0; QQ=64; RF=1-FFLAG; ! RF=1 NO NEED TO MOVE WSPR #line 3493 "regression-compile-tmp/allimpc1-77.imp" Q = 0; #line 3493 "regression-compile-tmp/allimpc1-77.imp" QQ = 64; #line 3493 "regression-compile-tmp/allimpc1-77.imp" RF = ((1) - ((int)(FFLAG))); // 3494 MOVED=0; RF=1 %IF KK=1 #line 3494 "regression-compile-tmp/allimpc1-77.imp" MOVED = 0; #line 3494 "regression-compile-tmp/allimpc1-77.imp" if (((KK) != (1))) goto L_045a; #line 3494 "regression-compile-tmp/allimpc1-77.imp" RF = 1; #line 3494 "regression-compile-tmp/allimpc1-77.imp" L_045a:; // 3495 L7: MLINK(CLINK) #line 3495 "regression-compile-tmp/allimpc1-77.imp" U_1063:; #line 3495 "regression-compile-tmp/allimpc1-77.imp" MLINK(&CLINK); // 3496 FROM1(CLINK,PTYPE) #line 3496 "regression-compile-tmp/allimpc1-77.imp" FROM1(CLINK, &PTYPE); // 3497 P=P+1; UNPACK #line 3497 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3497 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 3498 II=TYPE; III=PREC; QQQ=P #line 3498 "regression-compile-tmp/allimpc1-77.imp" II = TYPE; #line 3498 "regression-compile-tmp/allimpc1-77.imp" III = PREC; #line 3498 "regression-compile-tmp/allimpc1-77.imp" QQQ = P; // 3499 PP=(NAM<<1!ARR)&3 #line 3499 "regression-compile-tmp/allimpc1-77.imp" PP = ((((((NAM) << (1))) | (ARR))) & (3)); // 3500 ->L10 %UNLESS(PP=0 %AND ROUT=0) %OR(A(P)=4 %AND A(P+1)=1) #line 3500 "regression-compile-tmp/allimpc1-77.imp" if (((PP) != (0))) goto L_045b; #line 3500 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) == (0))) goto L_045c; #line 3500 "regression-compile-tmp/allimpc1-77.imp" L_045b:; #line 3500 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (4))) goto L_045d; #line 3500 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (1))) goto L_045c; #line 3500 "regression-compile-tmp/allimpc1-77.imp" L_045d:; #line 3500 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 3500 "regression-compile-tmp/allimpc1-77.imp" L_045c:; // 3501 ->L12 %IF ROUT=1; ->FPD(PP) #line 3501 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) != (1))) goto L_045e; #line 3501 "regression-compile-tmp/allimpc1-77.imp" goto U_1065; #line 3501 "regression-compile-tmp/allimpc1-77.imp" L_045e:; #line 3501 "regression-compile-tmp/allimpc1-77.imp" sw17_FPD_idx = PP; if ((0 <= sw17_FPD_idx) && (sw17_FPD_idx <= 3)) goto *sw17_FPD[sw17_FPD_idx]; else { /*_imp_signal(8, 2, sw17_FPD_idx);*/ fprintf(stderr, "%%SWITCH index FPD(%d) not in range 0:3 at %s:%d\n", sw17_FPD_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 3502 L10: P=QQQ; SKIP EXP; #line 3502 "regression-compile-tmp/allimpc1-77.imp" U_1064:; #line 3502 "regression-compile-tmp/allimpc1-77.imp" P = QQQ; #line 3502 "regression-compile-tmp/allimpc1-77.imp" SKIPEXP(); // 3503 L11: FAULT(22); ->L53 #line 3503 "regression-compile-tmp/allimpc1-77.imp" U_1066:; #line 3503 "regression-compile-tmp/allimpc1-77.imp" FAULT(22); #line 3503 "regression-compile-tmp/allimpc1-77.imp" goto U_1067; // 3504 %COMMENT ROUTINE TYPE PARAMETERS // 3505 L12: II=PTYPE; P=P+2; CNAME(13,0) #line 3505 "regression-compile-tmp/allimpc1-77.imp" U_1065:; #line 3505 "regression-compile-tmp/allimpc1-77.imp" II = PTYPE; #line 3505 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 3505 "regression-compile-tmp/allimpc1-77.imp" CNAME(13, 0); // 3506 ->L10 %IF 1000#|PTYPE-II|#0 #line 3506 "regression-compile-tmp/allimpc1-77.imp" if ((((1000) == (_imp_IMOD((((int)(PTYPE)) - (II)))))) || (((_imp_IMOD((((int)(PTYPE)) - (II)))) == (0)))) goto L_045f; #line 3506 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 3506 "regression-compile-tmp/allimpc1-77.imp" L_045f:; // 3507 ->L10 %IF A(P)=1; P=P+1 #line 3507 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (1))) goto L_0460; #line 3507 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 3507 "regression-compile-tmp/allimpc1-77.imp" L_0460:; #line 3507 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3508 ->L13 %IF J=14; ! EXTERNAL #line 3508 "regression-compile-tmp/allimpc1-77.imp" if (((J) != (14))) goto L_0461; #line 3508 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; #line 3508 "regression-compile-tmp/allimpc1-77.imp" L_0461:; // 3509 ->L15 %IF NAM&1#0; ! RT NAME OR RTTYPE #line 3509 "regression-compile-tmp/allimpc1-77.imp" if (((((NAM) & (1))) == (0))) goto L_0462; #line 3509 "regression-compile-tmp/allimpc1-77.imp" goto U_1069; #line 3509 "regression-compile-tmp/allimpc1-77.imp" L_0462:; // 3510 DUMP(2,2,DISP,INDEX,BASE); ! PICK UP RT ADDR #line 3510 "regression-compile-tmp/allimpc1-77.imp" DUMP(2, 2, DISP, INDEX, BASE); // 3511 PRX(X'5A',2,0,GLA,28); ! RELOCATE #line 3511 "regression-compile-tmp/allimpc1-77.imp" PRX(90, 2, 0, GLA, 28); // 3512 PCONST(X'180C181D'); ! LR 0,12 LR1,13 PERM AND GLA #line 3512 "regression-compile-tmp/allimpc1-77.imp" PCONST(403445789); // 3513 PUSH(LIST,QQ+12,0); ->L69 #line 3513 "regression-compile-tmp/allimpc1-77.imp" PUSH(&LIST, (((int)(QQ)) + (12)), 0); #line 3513 "regression-compile-tmp/allimpc1-77.imp" goto U_106d; // 3514 L13: PRX(X'98',0,2,BASE,DISP); ! CODE,GLA,EP #line 3514 "regression-compile-tmp/allimpc1-77.imp" U_1068:; #line 3514 "regression-compile-tmp/allimpc1-77.imp" PRX(152, 0, 2, BASE, DISP); // 3515 PRR(X'18',3,9); ->L69; ! ANYTHING D W ALIGNED AS ENVRMNT #line 3515 "regression-compile-tmp/allimpc1-77.imp" PRR(24, 3, 9); #line 3515 "regression-compile-tmp/allimpc1-77.imp" goto U_106d; // 3516 L15: PRX(X'98',0,3,BASE,DISP); ->L69 #line 3516 "regression-compile-tmp/allimpc1-77.imp" U_1069:; #line 3516 "regression-compile-tmp/allimpc1-77.imp" PRX(152, 0, 3, BASE, DISP); #line 3516 "regression-compile-tmp/allimpc1-77.imp" goto U_106d; // 3517 FPD(0): ->L41 %IF PREC=3 #line 3517 "regression-compile-tmp/allimpc1-77.imp" sw17_FPD_0:; #line 3517 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) != (3))) goto L_0463; #line 3517 "regression-compile-tmp/allimpc1-77.imp" goto U_106e; #line 3517 "regression-compile-tmp/allimpc1-77.imp" L_0463:; // 3518 ->L45 %IF TYPE=5 #line 3518 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_0464; #line 3518 "regression-compile-tmp/allimpc1-77.imp" goto U_106f; #line 3518 "regression-compile-tmp/allimpc1-77.imp" L_0464:; // 3519 ->L39 %UNLESS UNASS=0 %AND TYPE=1 #line 3519 "regression-compile-tmp/allimpc1-77.imp" if (((UNASS) != (0))) goto L_0465; #line 3519 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (1))) goto L_0466; #line 3519 "regression-compile-tmp/allimpc1-77.imp" L_0465:; #line 3519 "regression-compile-tmp/allimpc1-77.imp" goto U_1070; #line 3519 "regression-compile-tmp/allimpc1-77.imp" L_0466:; // 3520 PP=P; TYPEP=PREC #line 3520 "regression-compile-tmp/allimpc1-77.imp" PP = P; #line 3520 "regression-compile-tmp/allimpc1-77.imp" TYPEP = PREC; // 3521 II=TSEXP(III) #line 3521 "regression-compile-tmp/allimpc1-77.imp" II = TSEXP(&III); // 3522 ->L42 %IF II=10 %AND TYPEP=0 #line 3522 "regression-compile-tmp/allimpc1-77.imp" if (((II) != (10))) goto L_0467; #line 3522 "regression-compile-tmp/allimpc1-77.imp" if (((TYPEP) != (0))) goto L_0467; #line 3522 "regression-compile-tmp/allimpc1-77.imp" goto U_1071; #line 3522 "regression-compile-tmp/allimpc1-77.imp" L_0467:; // 3523 ->L43 %IF II=1 %AND TYPEP=1 #line 3523 "regression-compile-tmp/allimpc1-77.imp" if (((II) != (1))) goto L_0468; #line 3523 "regression-compile-tmp/allimpc1-77.imp" if (((TYPEP) != (1))) goto L_0468; #line 3523 "regression-compile-tmp/allimpc1-77.imp" goto U_1072; #line 3523 "regression-compile-tmp/allimpc1-77.imp" L_0468:; // 3524 P=PP; TYPE=1 #line 3524 "regression-compile-tmp/allimpc1-77.imp" P = PP; #line 3524 "regression-compile-tmp/allimpc1-77.imp" TYPE = 1; // 3525 L39: CSEXP(0,TYPE) #line 3525 "regression-compile-tmp/allimpc1-77.imp" U_1070:; #line 3525 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, TYPE); // 3526 MOVE BACK #line 3526 "regression-compile-tmp/allimpc1-77.imp" MOVEBACK(); // 3527 DUMP(8*TYPE-7,NEST,QQ-MOVED,0,WSPR) #line 3527 "regression-compile-tmp/allimpc1-77.imp" DUMP((((int)(((8) * ((int)(TYPE))))) - (7)), NEST, (((int)(QQ)) - (MOVED)), 0, WSPR); // 3528 CHECK CAPACITY(NEST,QQ-MOVED,0,WSPR) %IF CHECKS=1 #line 3528 "regression-compile-tmp/allimpc1-77.imp" if (((CHECKS) != (1))) goto L_0469; #line 3528 "regression-compile-tmp/allimpc1-77.imp" CHECKCAPACITY(NEST, (((int)(QQ)) - (MOVED)), 0, WSPR); #line 3528 "regression-compile-tmp/allimpc1-77.imp" L_0469:; // 3529 TOMOVE=4;->L50 #line 3529 "regression-compile-tmp/allimpc1-77.imp" TOMOVE = 4; #line 3529 "regression-compile-tmp/allimpc1-77.imp" goto U_1073; // 3530 L42: MOVEBACK #line 3530 "regression-compile-tmp/allimpc1-77.imp" U_1071:; #line 3530 "regression-compile-tmp/allimpc1-77.imp" MOVEBACK(); // 3531 PSS(X'D2',4,WSPR,QQ-MOVED,I,K) #line 3531 "regression-compile-tmp/allimpc1-77.imp" PSS(210, 4, WSPR, (((int)(QQ)) - (MOVED)), I, K); // 3532 TOMOVE=4; ->L50 #line 3532 "regression-compile-tmp/allimpc1-77.imp" TOMOVE = 4; #line 3532 "regression-compile-tmp/allimpc1-77.imp" goto U_1073; // 3533 L43: MOVEBACK #line 3533 "regression-compile-tmp/allimpc1-77.imp" U_1072:; #line 3533 "regression-compile-tmp/allimpc1-77.imp" MOVEBACK(); // 3534 PSI(X'92',III,WSPR,QQ-MOVED+3) #line 3534 "regression-compile-tmp/allimpc1-77.imp" PSI(146, III, WSPR, (((int)((((int)(QQ)) - (MOVED)))) + (3))); // 3535 TOMOVE=4; ->L50 #line 3535 "regression-compile-tmp/allimpc1-77.imp" TOMOVE = 4; #line 3535 "regression-compile-tmp/allimpc1-77.imp" goto U_1073; // 3536 L41: II=0; II=4 %UNLESS QQ&7=0; !LONG REAL #line 3536 "regression-compile-tmp/allimpc1-77.imp" U_106e:; #line 3536 "regression-compile-tmp/allimpc1-77.imp" II = 0; #line 3536 "regression-compile-tmp/allimpc1-77.imp" if (((((QQ) & (7))) == (0))) goto L_046a; #line 3536 "regression-compile-tmp/allimpc1-77.imp" II = 4; #line 3536 "regression-compile-tmp/allimpc1-77.imp" L_046a:; // 3537 CSEXP(0,3) #line 3537 "regression-compile-tmp/allimpc1-77.imp" CSEXP(0, 3); // 3538 DUMP(15,NEST,QQ-MOVED+II,0,WSPR) #line 3538 "regression-compile-tmp/allimpc1-77.imp" DUMP(15, NEST, (((int)((((int)(QQ)) - (MOVED)))) + (II)), 0, WSPR); // 3539 TOMOVE=8+II;->L50 #line 3539 "regression-compile-tmp/allimpc1-77.imp" TOMOVE = (((int)(8)) + (II)); #line 3539 "regression-compile-tmp/allimpc1-77.imp" goto U_1073; // 3540 L45: CSTREXP(4); FROM2(CLINK,III) #line 3540 "regression-compile-tmp/allimpc1-77.imp" U_106f:; #line 3540 "regression-compile-tmp/allimpc1-77.imp" CSTREXP(4); #line 3540 "regression-compile-tmp/allimpc1-77.imp" FROM2(CLINK, &III); // 3541 PRX(X'41',1,0,WSPR,QQ-MOVED+4) #line 3541 "regression-compile-tmp/allimpc1-77.imp" PRX(65, 1, 0, WSPR, (((int)((((int)(QQ)) - (MOVED)))) + (4))); // 3542 STORE STRING(1,4,1,0,III-1) #line 3542 "regression-compile-tmp/allimpc1-77.imp" STORESTRING(1, 4, 1, 0, (((int)(III)) - (1))); // 3543 TOMOVE =(III+7)&(-4); ->L50 #line 3543 "regression-compile-tmp/allimpc1-77.imp" TOMOVE = (((((int)(III)) + (7))) & ((-4))); #line 3543 "regression-compile-tmp/allimpc1-77.imp" goto U_1073; // 3544 FPD(2): ! NAME TYPES INCLUDES RECORDNAME #line 3544 "regression-compile-tmp/allimpc1-77.imp" sw17_FPD_2:; // 3545 P=P+2 #line 3545 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); // 3546 %IF TYPE=3 %THEN CNAME(15,1) %ELSE CNAME(3,1) #line 3546 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_046b; #line 3546 "regression-compile-tmp/allimpc1-77.imp" CNAME(15, 1); #line 3546 "regression-compile-tmp/allimpc1-77.imp" goto L_046c; #line 3546 "regression-compile-tmp/allimpc1-77.imp" L_046b:; #line 3546 "regression-compile-tmp/allimpc1-77.imp" CNAME(3, 1); #line 3546 "regression-compile-tmp/allimpc1-77.imp" L_046c:; // 3547 ->L10 %IF A(P)=1; P=P+1; ! CHECK NO RESTOF EXPRN #line 3547 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (1))) goto L_046d; #line 3547 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 3547 "regression-compile-tmp/allimpc1-77.imp" L_046d:; #line 3547 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3548 ->L11 %UNLESS (II=TYPE %AND III=PREC) %OR II=0 #line 3548 "regression-compile-tmp/allimpc1-77.imp" if (((II) != (TYPE))) goto L_046e; #line 3548 "regression-compile-tmp/allimpc1-77.imp" if (((III) == (PREC))) goto L_046f; #line 3548 "regression-compile-tmp/allimpc1-77.imp" L_046e:; #line 3548 "regression-compile-tmp/allimpc1-77.imp" if (((II) == (0))) goto L_046f; #line 3548 "regression-compile-tmp/allimpc1-77.imp" goto U_1066; #line 3548 "regression-compile-tmp/allimpc1-77.imp" L_046f:; // 3549 MOVE BACK #line 3549 "regression-compile-tmp/allimpc1-77.imp" MOVEBACK(); // 3550 DUMP(1,1,QQ-MOVED,0,WSPR) #line 3550 "regression-compile-tmp/allimpc1-77.imp" DUMP(1, 1, (((int)(QQ)) - (MOVED)), 0, WSPR); // 3551 TOMOVE=4;->L50 %UNLESS II=0 #line 3551 "regression-compile-tmp/allimpc1-77.imp" TOMOVE = 4; #line 3551 "regression-compile-tmp/allimpc1-77.imp" if (((II) == (0))) goto L_0470; #line 3551 "regression-compile-tmp/allimpc1-77.imp" goto U_1073; #line 3551 "regression-compile-tmp/allimpc1-77.imp" L_0470:; // 3552 FAULT(12) %UNLESS 2>=TYPE #line 3552 "regression-compile-tmp/allimpc1-77.imp" if (((2) >= (TYPE))) goto L_0471; #line 3552 "regression-compile-tmp/allimpc1-77.imp" FAULT(12); #line 3552 "regression-compile-tmp/allimpc1-77.imp" L_0471:; // 3553 PSI(X'92',PREC<<3!TYPE,WSPR,QQ-MOVED); ->L50;!FLAG FOR %NAME #line 3553 "regression-compile-tmp/allimpc1-77.imp" PSI(146, ((((PREC) << (3))) | (TYPE)), WSPR, (((int)(QQ)) - (MOVED))); #line 3553 "regression-compile-tmp/allimpc1-77.imp" goto U_1073; // 3554 FPD(1):FPD(3): ! ARRAYNAME (+ARRAY VALUE) #line 3554 "regression-compile-tmp/allimpc1-77.imp" sw17_FPD_1:; #line 3554 "regression-compile-tmp/allimpc1-77.imp" sw17_FPD_3:; // 3555 P=P+2; CNAME(12,0); ->L10 %IF A(P)=1; ! REST OF EXPRN #line 3555 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 3555 "regression-compile-tmp/allimpc1-77.imp" CNAME(12, 0); #line 3555 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (1))) goto L_0472; #line 3555 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 3555 "regression-compile-tmp/allimpc1-77.imp" L_0472:; // 3556 P=P+1 #line 3556 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3557 FROM2(CLINK,PP) #line 3557 "regression-compile-tmp/allimpc1-77.imp" FROM2(CLINK, &PP); // 3558 %IF PP=0 %THEN %START; REPLACE2(CLINK,J); %FINISH #line 3558 "regression-compile-tmp/allimpc1-77.imp" if (((PP) != (0))) goto L_0473; #line 3558 "regression-compile-tmp/allimpc1-77.imp" REPLACE2(CLINK, J); #line 3558 "regression-compile-tmp/allimpc1-77.imp" L_0473:; // 3559 FAULT(22) %UNLESS ARR>0 %AND(J=0 %OR PP=0 %OR J=PP) #line 3559 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) <= (0))) goto L_0474; #line 3559 "regression-compile-tmp/allimpc1-77.imp" if (((J) == (0))) goto L_0475; #line 3559 "regression-compile-tmp/allimpc1-77.imp" if (((PP) == (0))) goto L_0475; #line 3559 "regression-compile-tmp/allimpc1-77.imp" if (((J) == (PP))) goto L_0475; #line 3559 "regression-compile-tmp/allimpc1-77.imp" L_0474:; #line 3559 "regression-compile-tmp/allimpc1-77.imp" FAULT(22); #line 3559 "regression-compile-tmp/allimpc1-77.imp" L_0475:; // 3560 FAULT(22) %UNLESS II=0 %OR(TYPE=II %AND III=PREC) #line 3560 "regression-compile-tmp/allimpc1-77.imp" if (((II) == (0))) goto L_0476; #line 3560 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (II))) goto L_0477; #line 3560 "regression-compile-tmp/allimpc1-77.imp" if (((III) == (PREC))) goto L_0476; #line 3560 "regression-compile-tmp/allimpc1-77.imp" L_0477:; #line 3560 "regression-compile-tmp/allimpc1-77.imp" FAULT(22); #line 3560 "regression-compile-tmp/allimpc1-77.imp" L_0476:; // 3561 L69: MOVE BACK #line 3561 "regression-compile-tmp/allimpc1-77.imp" U_106d:; #line 3561 "regression-compile-tmp/allimpc1-77.imp" MOVEBACK(); // 3562 PRX(X'90',0,3,WSPR,QQ-MOVED); ! STM #line 3562 "regression-compile-tmp/allimpc1-77.imp" PRX(144, 0, 3, WSPR, (((int)(QQ)) - (MOVED))); // 3563 TOMOVE=16 #line 3563 "regression-compile-tmp/allimpc1-77.imp" TOMOVE = 16; // 3564 L50: QQ=QQ+TOMOVE #line 3564 "regression-compile-tmp/allimpc1-77.imp" U_1073:; #line 3564 "regression-compile-tmp/allimpc1-77.imp" QQ = (((int)(QQ)) + (TOMOVE)); // 3565 ->L53 %IF RF=1 %OR Q=KK-1 #line 3565 "regression-compile-tmp/allimpc1-77.imp" if (((RF) == (1))) goto L_0478; #line 3565 "regression-compile-tmp/allimpc1-77.imp" if (((Q) != ((((int)(KK)) - (1))))) goto L_0479; #line 3565 "regression-compile-tmp/allimpc1-77.imp" L_0478:; #line 3565 "regression-compile-tmp/allimpc1-77.imp" goto U_1067; #line 3565 "regression-compile-tmp/allimpc1-77.imp" L_0479:; // 3566 II=(QQ+7)&(-8)-MOVED #line 3566 "regression-compile-tmp/allimpc1-77.imp" II = (((int)((((((int)(QQ)) + (7))) & ((-8))))) - (MOVED)); // 3567 MOVER(WSPR,II); MOVED=MOVED+II #line 3567 "regression-compile-tmp/allimpc1-77.imp" MOVER(WSPR, II); #line 3567 "regression-compile-tmp/allimpc1-77.imp" MOVED = (((int)(MOVED)) + (II)); // 3568 L53: Q=Q+1; ->L7 %UNLESS Q=KK #line 3568 "regression-compile-tmp/allimpc1-77.imp" U_1067:; #line 3568 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 3568 "regression-compile-tmp/allimpc1-77.imp" if (((Q) == (KK))) goto L_047a; #line 3568 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; #line 3568 "regression-compile-tmp/allimpc1-77.imp" L_047a:; // 3569 MOVER(WSPR,-MOVED) %UNLESS RF=1 #line 3569 "regression-compile-tmp/allimpc1-77.imp" if (((RF) == (1))) goto L_047b; #line 3569 "regression-compile-tmp/allimpc1-77.imp" MOVER(WSPR, (-(MOVED))); #line 3569 "regression-compile-tmp/allimpc1-77.imp" L_047b:; // 3570 L55: POP(LIST,Q,QQ); ->L99 %IF Q=-1 #line 3570 "regression-compile-tmp/allimpc1-77.imp" U_1074:; #line 3570 "regression-compile-tmp/allimpc1-77.imp" POP(&LIST, &Q, &QQ); #line 3570 "regression-compile-tmp/allimpc1-77.imp" if (((Q) != ((-1)))) goto L_047c; #line 3570 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; #line 3570 "regression-compile-tmp/allimpc1-77.imp" L_047c:; // 3571 PRX(X'50',WSPR,0,WSPR,Q); ->L55;! POINTER TO SAVE AREA RTTYPES #line 3571 "regression-compile-tmp/allimpc1-77.imp" PRX(80, WSPR, 0, WSPR, Q); #line 3571 "regression-compile-tmp/allimpc1-77.imp" goto U_1074; // 3572 %ROUTINE MOVEBACK #line 3572 "regression-compile-tmp/allimpc1-77.imp" void MOVEBACK( void ) #line 3572 "regression-compile-tmp/allimpc1-77.imp" { // 3573 ->L1 %IF QQ>=MOVED #line 3573 "regression-compile-tmp/allimpc1-77.imp" if (((QQ) < (MOVED))) goto L_047d; #line 3573 "regression-compile-tmp/allimpc1-77.imp" goto U_1075; #line 3573 "regression-compile-tmp/allimpc1-77.imp" L_047d:; // 3574 MOVER(WSPR,QQ-MOVED); MOVED=QQ #line 3574 "regression-compile-tmp/allimpc1-77.imp" MOVER(WSPR, (((int)(QQ)) - (MOVED))); #line 3574 "regression-compile-tmp/allimpc1-77.imp" MOVED = QQ; // 3575 L1: %END #line 3575 "regression-compile-tmp/allimpc1-77.imp" U_1075:; #line 3575 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block MOVEBACK at level 4 // 3576 L99: %END #line 3576 "regression-compile-tmp/allimpc1-77.imp" U_1062:; #line 3576 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CRCALL at level 3 // 3577 %COMMENT Z=1 FOR= ,4 FOR <- AND MAX LENGTH IN BYTE DEFINED BY BML&DML // 3578 %ROUTINE STORE STRING(%INTEGER Z,FROM,TO,BML,DML) #line 3578 "regression-compile-tmp/allimpc1-77.imp" void STORESTRING( int Z, int FROM, int TO, int BML, int DML ) #line 3578 "regression-compile-tmp/allimpc1-77.imp" { // 3579 !%SHORTROUTINE // 3580 %COMMENT REGISTER 2 IS ASSUMED TO BE USABLE. // 3581 FAULT(239) %UNLESS TO=1 %AND FROM=4 #line 3581 "regression-compile-tmp/allimpc1-77.imp" if (((TO) != (1))) goto L_047e; #line 3581 "regression-compile-tmp/allimpc1-77.imp" if (((FROM) == (4))) goto L_047f; #line 3581 "regression-compile-tmp/allimpc1-77.imp" L_047e:; #line 3581 "regression-compile-tmp/allimpc1-77.imp" FAULT(239); #line 3581 "regression-compile-tmp/allimpc1-77.imp" L_047f:; // 3582 ->L10 %IF Z=4 #line 3582 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (4))) goto L_0480; #line 3582 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; #line 3582 "regression-compile-tmp/allimpc1-77.imp" L_0480:; // 3583 ->L2 %IF CHECKS=0 #line 3583 "regression-compile-tmp/allimpc1-77.imp" if (((CHECKS) != (0))) goto L_0481; #line 3583 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; #line 3583 "regression-compile-tmp/allimpc1-77.imp" L_0481:; // 3584 ->L1 %IF BML>0 #line 3584 "regression-compile-tmp/allimpc1-77.imp" if (((BML) <= (0))) goto L_0482; #line 3584 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; #line 3584 "regression-compile-tmp/allimpc1-77.imp" L_0482:; // 3585 PSI(X'95',DML,FROM,0); ->L3; ! CLI FOR FIXED LENGTH #line 3585 "regression-compile-tmp/allimpc1-77.imp" PSI(149, DML, FROM, 0); #line 3585 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; // 3586 L1: #line 3586 "regression-compile-tmp/allimpc1-77.imp" U_1059:; // 3587 PSS(X'D5',1,FROM,0,BML,DML) ;!CLC_ACTUALL(1),MAX #line 3587 "regression-compile-tmp/allimpc1-77.imp" PSS(213, 1, FROM, 0, BML, DML); // 3588 L3: #line 3588 "regression-compile-tmp/allimpc1-77.imp" U_105a:; // 3589 PRX(X'47',2,0,CODER,88) ;!BH_FAIL #line 3589 "regression-compile-tmp/allimpc1-77.imp" PRX(71, 2, 0, CODER, 88); // 3590 L2: PRX(X'43',2,0,FROM,0) ;!IC_2,ACTUALL #line 3590 "regression-compile-tmp/allimpc1-77.imp" U_1058:; #line 3590 "regression-compile-tmp/allimpc1-77.imp" PRX(67, 2, 0, FROM, 0); // 3591 PRX(X'44',2,0,GLA,STRINST) ;!EX_2,MOVE #line 3591 "regression-compile-tmp/allimpc1-77.imp" PRX(68, 2, 0, GLA, STRINST); // 3592 ->L99 #line 3592 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; // 3593 L10: PRX(X'43',2,0,BML,DML) ;!IC_2,MAXL #line 3593 "regression-compile-tmp/allimpc1-77.imp" U_1078:; #line 3593 "regression-compile-tmp/allimpc1-77.imp" PRX(67, 2, 0, BML, DML); // 3594 PPJ(39) #line 3594 "regression-compile-tmp/allimpc1-77.imp" PPJ(39); // 3595 L99: %END #line 3595 "regression-compile-tmp/allimpc1-77.imp" U_105b:; #line 3595 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block STORESTRING at level 3 // 3596 %ROUTINE TEST NST #line 3596 "regression-compile-tmp/allimpc1-77.imp" void TESTNST( void ) #line 3596 "regression-compile-tmp/allimpc1-77.imp" { // 3597 FNAME=K #line 3597 "regression-compile-tmp/allimpc1-77.imp" FNAME = K; // 3598 FAULT(7) %UNLESS FIND(FNAME,NAME(LEVEL))=-1 #line 3598 "regression-compile-tmp/allimpc1-77.imp" if (((FIND(FNAME, NAME[LEVEL])) == ((-1)))) goto L_0483; #line 3598 "regression-compile-tmp/allimpc1-77.imp" FAULT(7); #line 3598 "regression-compile-tmp/allimpc1-77.imp" L_0483:; // 3599 %END #line 3599 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block TESTNST at level 3 // 3600 %ROUTINE CUCI #line 3600 "regression-compile-tmp/allimpc1-77.imp" void CUCI( void ) #line 3600 "regression-compile-tmp/allimpc1-77.imp" { // 3601 !%SHORTROUTINE // 3602 %ROUTINESPEC DXB #line 3602 "regression-compile-tmp/allimpc1-77.imp" auto void DXB( void ); // 3603 %ROUTINESPEC DLB #line 3603 "regression-compile-tmp/allimpc1-77.imp" auto void DLB( void ); // 3604 %ROUTINESPEC DB #line 3604 "regression-compile-tmp/allimpc1-77.imp" auto void DB( void ); // 3605 %ROUTINESPEC CUCS #line 3605 "regression-compile-tmp/allimpc1-77.imp" auto void CUCS( void ); // 3606 %INTEGER Z,KK,X,OPCODE,REG #line 3606 "regression-compile-tmp/allimpc1-77.imp" int Z; #line 3606 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 3606 "regression-compile-tmp/allimpc1-77.imp" int X; #line 3606 "regression-compile-tmp/allimpc1-77.imp" int OPCODE; #line 3606 "regression-compile-tmp/allimpc1-77.imp" int REG; // 3607 %SWITCH SW(1:4),S(1:8) #line 3607 "regression-compile-tmp/allimpc1-77.imp" static int sw18_SW_idx; static const void * /*SWITCH*/ sw18_SW[4] = { &&sw18_SW_1, &&sw18_SW_2, &&sw18_SW_3, &&sw18_SW_4, }; #line 3607 "regression-compile-tmp/allimpc1-77.imp" static int sw19_S_idx; static const void * /*SWITCH*/ sw19_S[8] = { &&sw19_S_1, &&sw19_S_2, &&sw19_S_3, &&sw19_S_4, &&sw19_S_5, &&sw19_S_6, &&sw19_S_7, &&sw19_S_8, }; // 3608 P=2; ->SW(A(P)) #line 3608 "regression-compile-tmp/allimpc1-77.imp" P = 2; #line 3608 "regression-compile-tmp/allimpc1-77.imp" sw18_SW_idx = A[((P) + ((int)(2)))]; if ((1 <= sw18_SW_idx) && (sw18_SW_idx <= 4)) goto *(sw18_SW-1)[sw18_SW_idx]; /* Bounds=1:4 */ else { /*_imp_signal(8, 2, sw18_SW_idx);*/ fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:4 at %s:%d\n", sw18_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 3609 SW(1): ! **(N),(@')(NAME)(APP) #line 3609 "regression-compile-tmp/allimpc1-77.imp" sw18_SW_1:; // 3610 NEST=A(3); P=5; Z=A(4)-1 #line 3610 "regression-compile-tmp/allimpc1-77.imp" NEST = A[5]; #line 3610 "regression-compile-tmp/allimpc1-77.imp" P = 5; #line 3610 "regression-compile-tmp/allimpc1-77.imp" Z = (((int)(A[6])) - (1)); // 3611 Z=3 %IF Z=0; CNAME(Z,NEST) #line 3611 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (0))) goto L_0484; #line 3611 "regression-compile-tmp/allimpc1-77.imp" Z = 3; #line 3611 "regression-compile-tmp/allimpc1-77.imp" L_0484:; #line 3611 "regression-compile-tmp/allimpc1-77.imp" CNAME(Z, NEST); // 3612 ->L99 #line 3612 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 3613 SW(2): PPJ(A(P+1)); ->L99 #line 3613 "regression-compile-tmp/allimpc1-77.imp" sw18_SW_2:; #line 3613 "regression-compile-tmp/allimpc1-77.imp" PPJ(A[(((unsigned char)((((int)(P)) + (1)))) + (2))]); #line 3613 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 3614 SW(4): ! *PUT_CONST #line 3614 "regression-compile-tmp/allimpc1-77.imp" sw18_SW_4:; // 3615 ->L401 %IF A(P+1)#9 #line 3615 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (9))) goto L_0485; #line 3615 "regression-compile-tmp/allimpc1-77.imp" goto U_105e; #line 3615 "regression-compile-tmp/allimpc1-77.imp" L_0485:; // 3616 PLANT(A(P+2)); P=P+3; ->L99 #line 3616 "regression-compile-tmp/allimpc1-77.imp" PLANT(A[(((unsigned char)((((int)(P)) + (2)))) + (2))]); #line 3616 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); #line 3616 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 3617 L401: FAULT(32) %UNLESS A(P+1)=1 #line 3617 "regression-compile-tmp/allimpc1-77.imp" U_105e:; #line 3617 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) == (1))) goto L_0486; #line 3617 "regression-compile-tmp/allimpc1-77.imp" FAULT(32); #line 3617 "regression-compile-tmp/allimpc1-77.imp" L_0486:; // 3618 PLANT(A(P+3)); ! LEAST SIGNIFICANT 16 BITS ONLY #line 3618 "regression-compile-tmp/allimpc1-77.imp" PLANT(A[(((unsigned char)((((int)(P)) + (3)))) + (2))]); // 3619 P=P+4; ->L99 #line 3619 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (4)); #line 3619 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 3620 SW(3): OPCODE=A(P+2);P=P+3; ->S(A(P-2)) #line 3620 "regression-compile-tmp/allimpc1-77.imp" sw18_SW_3:; #line 3620 "regression-compile-tmp/allimpc1-77.imp" OPCODE = A[(((unsigned char)((((int)(P)) + (2)))) + (2))]; #line 3620 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); #line 3620 "regression-compile-tmp/allimpc1-77.imp" sw19_S_idx = A[(((unsigned char)((((int)(P)) - (2)))) + (2))]; if ((1 <= sw19_S_idx) && (sw19_S_idx <= 8)) goto *(sw19_S-1)[sw19_S_idx]; /* Bounds=1:8 */ else { /*_imp_signal(8, 2, sw19_S_idx);*/ fprintf(stderr, "%%SWITCH index S(%d) not in range 1:8 at %s:%d\n", sw19_S_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 3621 S(1): ->L87 %IF OPCODE=0; #line 3621 "regression-compile-tmp/allimpc1-77.imp" sw19_S_1:; #line 3621 "regression-compile-tmp/allimpc1-77.imp" if (((OPCODE) != (0))) goto L_0487; #line 3621 "regression-compile-tmp/allimpc1-77.imp" goto U_105f; #line 3621 "regression-compile-tmp/allimpc1-77.imp" L_0487:; // 3622 PRR(OPCODE,A(P),A(P+1)); P=P+2; ->L99; ! RR #line 3622 "regression-compile-tmp/allimpc1-77.imp" PRR(OPCODE, A[((P) + ((int)(2)))], A[(((unsigned char)((((int)(P)) + (1)))) + (2))]); #line 3622 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 3622 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 3623 S(2): REG=A(P); P=P+1;DXB; !RX #line 3623 "regression-compile-tmp/allimpc1-77.imp" sw19_S_2:; #line 3623 "regression-compile-tmp/allimpc1-77.imp" REG = A[((P) + ((int)(2)))]; #line 3623 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3623 "regression-compile-tmp/allimpc1-77.imp" DXB(); // 3624 L11: PRX(OPCODE,REG,X,I,K);->L99 #line 3624 "regression-compile-tmp/allimpc1-77.imp" U_1060:; #line 3624 "regression-compile-tmp/allimpc1-77.imp" PRX(OPCODE, REG, X, I, K); #line 3624 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 3625 S(3): REG=A(P); X=A(P+1);P=P+2; !RS #line 3625 "regression-compile-tmp/allimpc1-77.imp" sw19_S_3:; #line 3625 "regression-compile-tmp/allimpc1-77.imp" REG = A[((P) + ((int)(2)))]; #line 3625 "regression-compile-tmp/allimpc1-77.imp" X = A[(((unsigned char)((((int)(P)) + (1)))) + (2))]; #line 3625 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); // 3626 DB; ->L11 #line 3626 "regression-compile-tmp/allimpc1-77.imp" DB(); #line 3626 "regression-compile-tmp/allimpc1-77.imp" goto U_1060; // 3627 S(4): DB;Z=0;->L41 %IF A(P)=2;Z=A(P+2); !SI #line 3627 "regression-compile-tmp/allimpc1-77.imp" sw19_S_4:; #line 3627 "regression-compile-tmp/allimpc1-77.imp" DB(); #line 3627 "regression-compile-tmp/allimpc1-77.imp" Z = 0; #line 3627 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0488; #line 3627 "regression-compile-tmp/allimpc1-77.imp" goto U_1061; #line 3627 "regression-compile-tmp/allimpc1-77.imp" L_0488:; #line 3627 "regression-compile-tmp/allimpc1-77.imp" Z = A[(((unsigned char)((((int)(P)) + (2)))) + (2))]; // 3628 FAULT(32) %UNLESS A(P+1)=9 %AND Z<256 #line 3628 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (9))) goto L_0489; #line 3628 "regression-compile-tmp/allimpc1-77.imp" if (((Z) < (256))) goto L_048a; #line 3628 "regression-compile-tmp/allimpc1-77.imp" L_0489:; #line 3628 "regression-compile-tmp/allimpc1-77.imp" FAULT(32); #line 3628 "regression-compile-tmp/allimpc1-77.imp" L_048a:; // 3629 P=P+2 #line 3629 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); // 3630 L41: PSI(OPCODE,Z,I,K);P=P+1; ->L99 #line 3630 "regression-compile-tmp/allimpc1-77.imp" U_1061:; #line 3630 "regression-compile-tmp/allimpc1-77.imp" PSI(OPCODE, Z, I, K); #line 3630 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3630 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 3631 S(5): REG=A(P);P=P+1; DB; !SHIFT INSTR. #line 3631 "regression-compile-tmp/allimpc1-77.imp" sw19_S_5:; #line 3631 "regression-compile-tmp/allimpc1-77.imp" REG = A[((P) + ((int)(2)))]; #line 3631 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3631 "regression-compile-tmp/allimpc1-77.imp" DB(); // 3632 X=0; ->L11 #line 3632 "regression-compile-tmp/allimpc1-77.imp" X = 0; #line 3632 "regression-compile-tmp/allimpc1-77.imp" goto U_1060; // 3633 S(6): DLB;KK=K;Z=X;REG=I;DB; !SS FORMAT #line 3633 "regression-compile-tmp/allimpc1-77.imp" sw19_S_6:; #line 3633 "regression-compile-tmp/allimpc1-77.imp" DLB(); #line 3633 "regression-compile-tmp/allimpc1-77.imp" KK = K; #line 3633 "regression-compile-tmp/allimpc1-77.imp" Z = X; #line 3633 "regression-compile-tmp/allimpc1-77.imp" REG = I; #line 3633 "regression-compile-tmp/allimpc1-77.imp" DB(); // 3634 Z=1 %IF Z=0 #line 3634 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (0))) goto L_048b; #line 3634 "regression-compile-tmp/allimpc1-77.imp" Z = 1; #line 3634 "regression-compile-tmp/allimpc1-77.imp" L_048b:; // 3635 L61: PSS(OPCODE,Z,REG,KK,I,K); ->L99 #line 3635 "regression-compile-tmp/allimpc1-77.imp" U_1062:; #line 3635 "regression-compile-tmp/allimpc1-77.imp" PSS(OPCODE, Z, REG, KK, I, K); #line 3635 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 3636 S(7): DLB; KK=K; Z=X; REG=I; !PACKED DECIMAL #line 3636 "regression-compile-tmp/allimpc1-77.imp" sw19_S_7:; #line 3636 "regression-compile-tmp/allimpc1-77.imp" DLB(); #line 3636 "regression-compile-tmp/allimpc1-77.imp" KK = K; #line 3636 "regression-compile-tmp/allimpc1-77.imp" Z = X; #line 3636 "regression-compile-tmp/allimpc1-77.imp" REG = I; // 3637 DLB; Z=1 %IF Z=0 #line 3637 "regression-compile-tmp/allimpc1-77.imp" DLB(); #line 3637 "regression-compile-tmp/allimpc1-77.imp" if (((Z) != (0))) goto L_048c; #line 3637 "regression-compile-tmp/allimpc1-77.imp" Z = 1; #line 3637 "regression-compile-tmp/allimpc1-77.imp" L_048c:; // 3638 X=1 %IF X=0 #line 3638 "regression-compile-tmp/allimpc1-77.imp" if (((X) != (0))) goto L_048d; #line 3638 "regression-compile-tmp/allimpc1-77.imp" X = 1; #line 3638 "regression-compile-tmp/allimpc1-77.imp" L_048d:; // 3639 Z=(Z-1)<<4!X; ->L61 #line 3639 "regression-compile-tmp/allimpc1-77.imp" Z = (((((((int)(Z)) - (1))) << (4))) | (X)); #line 3639 "regression-compile-tmp/allimpc1-77.imp" goto U_1062; // 3640 S(8): REG=A(P); P=P+1; !FUNNIES #line 3640 "regression-compile-tmp/allimpc1-77.imp" sw19_S_8:; #line 3640 "regression-compile-tmp/allimpc1-77.imp" REG = A[((P) + ((int)(2)))]; #line 3640 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3641 ->L85 %IF OPCODE=X'80' ;! IDL #line 3641 "regression-compile-tmp/allimpc1-77.imp" if (((OPCODE) != (128))) goto L_048e; #line 3641 "regression-compile-tmp/allimpc1-77.imp" goto U_1063; #line 3641 "regression-compile-tmp/allimpc1-77.imp" L_048e:; // 3642 ->L83 %IF OPCODE=10; ! SVC #line 3642 "regression-compile-tmp/allimpc1-77.imp" if (((OPCODE) != (10))) goto L_048f; #line 3642 "regression-compile-tmp/allimpc1-77.imp" goto U_1064; #line 3642 "regression-compile-tmp/allimpc1-77.imp" L_048f:; // 3643 PRR(OPCODE,REG,0);->L99 #line 3643 "regression-compile-tmp/allimpc1-77.imp" PRR(OPCODE, REG, 0); #line 3643 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 3644 L83: PLANT(X'A00'!REG); ->L99 #line 3644 "regression-compile-tmp/allimpc1-77.imp" U_1064:; #line 3644 "regression-compile-tmp/allimpc1-77.imp" PLANT(((2560) | (REG))); #line 3644 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 3645 L85: PSI(OPCODE,REG,0,0); ->L99 #line 3645 "regression-compile-tmp/allimpc1-77.imp" U_1063:; #line 3645 "regression-compile-tmp/allimpc1-77.imp" PSI(OPCODE, REG, 0, 0); #line 3645 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 3646 L87: CNOP(A(P),A(P+1)); ->L99 #line 3646 "regression-compile-tmp/allimpc1-77.imp" U_105f:; #line 3646 "regression-compile-tmp/allimpc1-77.imp" CNOP(A[((P) + ((int)(2)))], A[(((unsigned char)((((int)(P)) + (1)))) + (2))]); #line 3646 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 3647 %ROUTINE DB #line 3647 "regression-compile-tmp/allimpc1-77.imp" void DB( void ) #line 3647 "regression-compile-tmp/allimpc1-77.imp" { // 3648 ->L2 %IF A(P)=1 #line 3648 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (1))) goto L_0490; #line 3648 "regression-compile-tmp/allimpc1-77.imp" goto U_1065; #line 3648 "regression-compile-tmp/allimpc1-77.imp" L_0490:; // 3649 K=A(P+1); I=0; P=P+3 #line 3649 "regression-compile-tmp/allimpc1-77.imp" K = A[(((unsigned char)((((int)(P)) + (1)))) + (2))]; #line 3649 "regression-compile-tmp/allimpc1-77.imp" I = 0; #line 3649 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); // 3650 ->L99 %IF A(P-1)=2 #line 3650 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_0491; #line 3650 "regression-compile-tmp/allimpc1-77.imp" goto U_1066; #line 3650 "regression-compile-tmp/allimpc1-77.imp" L_0491:; // 3651 I=A(P);P=P+1;->L99 #line 3651 "regression-compile-tmp/allimpc1-77.imp" I = A[((P) + ((int)(2)))]; #line 3651 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3651 "regression-compile-tmp/allimpc1-77.imp" goto U_1066; // 3652 L2: CUCS #line 3652 "regression-compile-tmp/allimpc1-77.imp" U_1065:; #line 3652 "regression-compile-tmp/allimpc1-77.imp" CUCS(); // 3653 L99: %END #line 3653 "regression-compile-tmp/allimpc1-77.imp" U_1066:; #line 3653 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DB at level 4 // 3654 %ROUTINE DXB #line 3654 "regression-compile-tmp/allimpc1-77.imp" void DXB( void ) #line 3654 "regression-compile-tmp/allimpc1-77.imp" { // 3655 %SWITCH SW(1:3) #line 3655 "regression-compile-tmp/allimpc1-77.imp" static int sw20_SW_idx; static const void * /*SWITCH*/ sw20_SW[3] = { &&sw20_SW_1, &&sw20_SW_2, &&sw20_SW_3, }; // 3656 ->L2 %IF A(P)=2 #line 3656 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0492; #line 3656 "regression-compile-tmp/allimpc1-77.imp" goto U_1066; #line 3656 "regression-compile-tmp/allimpc1-77.imp" L_0492:; // 3657 CUCS;X=0;P=P+1 #line 3657 "regression-compile-tmp/allimpc1-77.imp" CUCS(); #line 3657 "regression-compile-tmp/allimpc1-77.imp" X = 0; #line 3657 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3658 ->L99 %IF A(P-1)=2 #line 3658 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_0493; #line 3658 "regression-compile-tmp/allimpc1-77.imp" goto U_1067; #line 3658 "regression-compile-tmp/allimpc1-77.imp" L_0493:; // 3659 X=A(P);P=P+1; ->L99 #line 3659 "regression-compile-tmp/allimpc1-77.imp" X = A[((P) + ((int)(2)))]; #line 3659 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3659 "regression-compile-tmp/allimpc1-77.imp" goto U_1067; // 3660 L2: K=A(P+1);P=P+2;I=0;X=0 #line 3660 "regression-compile-tmp/allimpc1-77.imp" U_1066:; #line 3660 "regression-compile-tmp/allimpc1-77.imp" K = A[(((unsigned char)((((int)(P)) + (1)))) + (2))]; #line 3660 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 3660 "regression-compile-tmp/allimpc1-77.imp" I = 0; #line 3660 "regression-compile-tmp/allimpc1-77.imp" X = 0; // 3661 ->SW(A(P)) #line 3661 "regression-compile-tmp/allimpc1-77.imp" sw20_SW_idx = A[((P) + ((int)(2)))]; if ((1 <= sw20_SW_idx) && (sw20_SW_idx <= 3)) goto *(sw20_SW-1)[sw20_SW_idx]; /* Bounds=1:3 */ else { /*_imp_signal(8, 2, sw20_SW_idx);*/ fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:3 at %s:%d\n", sw20_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 3662 SW(1): X=A(P+1);P=P+1 #line 3662 "regression-compile-tmp/allimpc1-77.imp" sw20_SW_1:; #line 3662 "regression-compile-tmp/allimpc1-77.imp" X = A[(((unsigned char)((((int)(P)) + (1)))) + (2))]; #line 3662 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3663 SW(2): I=A(P+1);P=P+1 #line 3663 "regression-compile-tmp/allimpc1-77.imp" sw20_SW_2:; #line 3663 "regression-compile-tmp/allimpc1-77.imp" I = A[(((unsigned char)((((int)(P)) + (1)))) + (2))]; #line 3663 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3664 SW(3): P=P+1 #line 3664 "regression-compile-tmp/allimpc1-77.imp" sw20_SW_3:; #line 3664 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3665 L99: %END #line 3665 "regression-compile-tmp/allimpc1-77.imp" U_1067:; #line 3665 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DXB at level 4 // 3666 %ROUTINE DLB #line 3666 "regression-compile-tmp/allimpc1-77.imp" void DLB( void ) #line 3666 "regression-compile-tmp/allimpc1-77.imp" { // 3667 ->L2 %IF A(P)=2 #line 3667 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0494; #line 3667 "regression-compile-tmp/allimpc1-77.imp" goto U_1065; #line 3667 "regression-compile-tmp/allimpc1-77.imp" L_0494:; // 3668 K=A(P+1); X=A(P+2); I=A(P+3); P=P+4; ->L99 #line 3668 "regression-compile-tmp/allimpc1-77.imp" K = A[(((unsigned char)((((int)(P)) + (1)))) + (2))]; #line 3668 "regression-compile-tmp/allimpc1-77.imp" X = A[(((unsigned char)((((int)(P)) + (2)))) + (2))]; #line 3668 "regression-compile-tmp/allimpc1-77.imp" I = A[(((unsigned char)((((int)(P)) + (3)))) + (2))]; #line 3668 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (4)); #line 3668 "regression-compile-tmp/allimpc1-77.imp" goto U_1066; // 3669 L2: CUCS; X=A(P); P=P+1 #line 3669 "regression-compile-tmp/allimpc1-77.imp" U_1065:; #line 3669 "regression-compile-tmp/allimpc1-77.imp" CUCS(); #line 3669 "regression-compile-tmp/allimpc1-77.imp" X = A[((P) + ((int)(2)))]; #line 3669 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3670 L99: %END #line 3670 "regression-compile-tmp/allimpc1-77.imp" U_1066:; #line 3670 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DLB at level 4 // 3671 %ROUTINE CUCS #line 3671 "regression-compile-tmp/allimpc1-77.imp" void CUCS( void ) #line 3671 "regression-compile-tmp/allimpc1-77.imp" { // 3672 %SWITCH UTYPE(0:8) #line 3672 "regression-compile-tmp/allimpc1-77.imp" static int sw21_UTYPE_idx; static const void * /*SWITCH*/ sw21_UTYPE[9] = { &&sw21_UTYPE_0, &&sw21_UTYPE_1, &&sw21_UTYPE_2, &&sw21_UTYPE_3, &&sw21_UTYPE_4, &&sw21_UTYPE_5, &&sw21_UTYPE_6, &&sw21_UTYPE_7, &&sw21_UTYPE_8, }; // 3673 P=P+1 #line 3673 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3674 ->L10 %IF A(P)=2 #line 3674 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0495; #line 3674 "regression-compile-tmp/allimpc1-77.imp" goto U_1066; #line 3674 "regression-compile-tmp/allimpc1-77.imp" L_0495:; // 3675 FNAME=A(P+1); COPYTAG(FNAME) #line 3675 "regression-compile-tmp/allimpc1-77.imp" FNAME = A[(((unsigned char)((((int)(P)) + (1)))) + (2))]; #line 3675 "regression-compile-tmp/allimpc1-77.imp" COPYTAG(FNAME); // 3676 P=P+3; ->L1 %UNLESS I=-1 #line 3676 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); #line 3676 "regression-compile-tmp/allimpc1-77.imp" if (((I) == ((-1)))) goto L_0496; #line 3676 "regression-compile-tmp/allimpc1-77.imp" goto U_1067; #line 3676 "regression-compile-tmp/allimpc1-77.imp" L_0496:; // 3677 FAULT(16); J=0; I=LEVEL; PTYPE=7; UNPACK #line 3677 "regression-compile-tmp/allimpc1-77.imp" FAULT(16); #line 3677 "regression-compile-tmp/allimpc1-77.imp" J = 0; #line 3677 "regression-compile-tmp/allimpc1-77.imp" I = LEVEL; #line 3677 "regression-compile-tmp/allimpc1-77.imp" PTYPE = 7; #line 3677 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 3678 STORE TAG(FNAME,N);K=N;N=N+4 #line 3678 "regression-compile-tmp/allimpc1-77.imp" STORETAG(FNAME, N); #line 3678 "regression-compile-tmp/allimpc1-77.imp" K = N; #line 3678 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (4)); // 3679 L1: FAULT(33) %IF ROUT=1; ->UTYPE(TYPE) #line 3679 "regression-compile-tmp/allimpc1-77.imp" U_1067:; #line 3679 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) != (1))) goto L_0497; #line 3679 "regression-compile-tmp/allimpc1-77.imp" FAULT(33); #line 3679 "regression-compile-tmp/allimpc1-77.imp" L_0497:; #line 3679 "regression-compile-tmp/allimpc1-77.imp" sw21_UTYPE_idx = TYPE; if ((0 <= sw21_UTYPE_idx) && (sw21_UTYPE_idx <= 8)) goto *sw21_UTYPE[sw21_UTYPE_idx]; else { /*_imp_signal(8, 2, sw21_UTYPE_idx);*/ fprintf(stderr, "%%SWITCH index UTYPE(%d) not in range 0:8 at %s:%d\n", sw21_UTYPE_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 3680 UTYPE(3): FROM2(K,K); ->L9; ! RECORDS #line 3680 "regression-compile-tmp/allimpc1-77.imp" sw21_UTYPE_3:; #line 3680 "regression-compile-tmp/allimpc1-77.imp" FROM2(K, &K); #line 3680 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 3681 UTYPE(4): FROM1(K,K); ->L9; ! FORMATS #line 3681 "regression-compile-tmp/allimpc1-77.imp" sw21_UTYPE_4:; #line 3681 "regression-compile-tmp/allimpc1-77.imp" FROM1(K, &K); #line 3681 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 3682 UTYPE(8):FAULT(33); ->L9 #line 3682 "regression-compile-tmp/allimpc1-77.imp" sw21_UTYPE_8:; #line 3682 "regression-compile-tmp/allimpc1-77.imp" FAULT(33); #line 3682 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; // 3683 UTYPE(6): FROM1(K,K); ! SWITCHES #line 3683 "regression-compile-tmp/allimpc1-77.imp" sw21_UTYPE_6:; #line 3683 "regression-compile-tmp/allimpc1-77.imp" FROM1(K, &K); // 3684 K=K-CODEBASE(OLDI); FAULT(99) %IF K>4095 #line 3684 "regression-compile-tmp/allimpc1-77.imp" K = (((int)(K)) - (CODEBASE[OLDI])); #line 3684 "regression-compile-tmp/allimpc1-77.imp" if (((K) <= (4095))) goto L_0498; #line 3684 "regression-compile-tmp/allimpc1-77.imp" FAULT(99); #line 3684 "regression-compile-tmp/allimpc1-77.imp" L_0498:; // 3685 I=10 #line 3685 "regression-compile-tmp/allimpc1-77.imp" I = 10; // 3686 UTYPE(0):UTYPE(1):UTYPE(2):UTYPE(5):UTYPE(7): #line 3686 "regression-compile-tmp/allimpc1-77.imp" sw21_UTYPE_0:; #line 3686 "regression-compile-tmp/allimpc1-77.imp" sw21_UTYPE_1:; #line 3686 "regression-compile-tmp/allimpc1-77.imp" sw21_UTYPE_2:; #line 3686 "regression-compile-tmp/allimpc1-77.imp" sw21_UTYPE_5:; #line 3686 "regression-compile-tmp/allimpc1-77.imp" sw21_UTYPE_7:; // 3687 ->L9 %UNLESS ARR=2; ! VECTOR #line 3687 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) == (2))) goto L_0499; #line 3687 "regression-compile-tmp/allimpc1-77.imp" goto U_1068; #line 3687 "regression-compile-tmp/allimpc1-77.imp" L_0499:; // 3688 FROM2(K,K); ! EXTRACT DISPLACEMENT #line 3688 "regression-compile-tmp/allimpc1-77.imp" FROM2(K, &K); // 3689 L9: ->L99 %IF A(P-1)=2 #line 3689 "regression-compile-tmp/allimpc1-77.imp" U_1068:; #line 3689 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_049a; #line 3689 "regression-compile-tmp/allimpc1-77.imp" goto U_1069; #line 3689 "regression-compile-tmp/allimpc1-77.imp" L_049a:; // 3690 K=K+A(P); P=P+1; ->L99 #line 3690 "regression-compile-tmp/allimpc1-77.imp" K = ((K) + ((int)(A[((P) + ((int)(2)))]))); #line 3690 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3690 "regression-compile-tmp/allimpc1-77.imp" goto U_1069; // 3691 L10: K=A(P+2)+(A(P+1)-1)<<14 #line 3691 "regression-compile-tmp/allimpc1-77.imp" U_1066:; #line 3691 "regression-compile-tmp/allimpc1-77.imp" K = ((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) + ((short)((((((int)(A[(((unsigned char)((((int)(P)) + (1)))) + (2))])) - (1))) << (14))))); // 3692 J=FIND(K,LABEL(LEVEL)) #line 3692 "regression-compile-tmp/allimpc1-77.imp" J = FIND(K, LABEL[LEVEL]); // 3693 ->L25 %IF J=-1 #line 3693 "regression-compile-tmp/allimpc1-77.imp" if (((J) != ((-1)))) goto L_049b; #line 3693 "regression-compile-tmp/allimpc1-77.imp" goto U_106d; #line 3693 "regression-compile-tmp/allimpc1-77.imp" L_049b:; // 3694 K=J-CODEBASE(LEVEL); I=10 #line 3694 "regression-compile-tmp/allimpc1-77.imp" K = (((int)(J)) - (CODEBASE[LEVEL])); #line 3694 "regression-compile-tmp/allimpc1-77.imp" I = 10; // 3695 FAULT(99) %IF K>4095; P=P+3; ->L99 #line 3695 "regression-compile-tmp/allimpc1-77.imp" if (((K) <= (4095))) goto L_049c; #line 3695 "regression-compile-tmp/allimpc1-77.imp" FAULT(99); #line 3695 "regression-compile-tmp/allimpc1-77.imp" L_049c:; #line 3695 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); #line 3695 "regression-compile-tmp/allimpc1-77.imp" goto U_1069; // 3696 L25: PUSH(JUMP(LEVEL),CA!LABSET,K) #line 3696 "regression-compile-tmp/allimpc1-77.imp" U_106d:; #line 3696 "regression-compile-tmp/allimpc1-77.imp" PUSH(&JUMP[LEVEL], ((CA) | (LABSET)), K); // 3697 K=0; I=0; P=P+3 #line 3697 "regression-compile-tmp/allimpc1-77.imp" K = 0; #line 3697 "regression-compile-tmp/allimpc1-77.imp" I = 0; #line 3697 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); // 3698 L99: %END #line 3698 "regression-compile-tmp/allimpc1-77.imp" U_1069:; #line 3698 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CUCS at level 4 // 3699 L99: %END #line 3699 "regression-compile-tmp/allimpc1-77.imp" U_105d:; #line 3699 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CUCI at level 3 // 3700 %ROUTINE TEST ASS(%INTEGER REG) #line 3700 "regression-compile-tmp/allimpc1-77.imp" void TESTASS( int REG ) #line 3700 "regression-compile-tmp/allimpc1-77.imp" { // 3701 !%SHORTROUTINE // 3702 %INTEGER J #line 3702 "regression-compile-tmp/allimpc1-77.imp" int J; // 3703 %RETURN %UNLESS 1<=TYPE<=2 #line 3703 "regression-compile-tmp/allimpc1-77.imp" if ((((1) > (TYPE))) || (((TYPE) <= (2)))) goto L_049e; #line 3703 "regression-compile-tmp/allimpc1-77.imp" L_049d:; #line 3703 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 3703 "regression-compile-tmp/allimpc1-77.imp" L_049e:; // 3704 ->L5 %IF TYPE=1 #line 3704 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (1))) goto L_049f; #line 3704 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3704 "regression-compile-tmp/allimpc1-77.imp" L_049f:; // 3705 J=X'79'; J=X'69' %IF PREC=3 #line 3705 "regression-compile-tmp/allimpc1-77.imp" J = 121; #line 3705 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) != (3))) goto L_04a0; #line 3705 "regression-compile-tmp/allimpc1-77.imp" J = 105; #line 3705 "regression-compile-tmp/allimpc1-77.imp" L_04a0:; // 3706 L3: PRX(J,REG,0,GLA,128) #line 3706 "regression-compile-tmp/allimpc1-77.imp" U_106c:; #line 3706 "regression-compile-tmp/allimpc1-77.imp" PRX(J, REG, 0, GLA, 128); // 3707 PRX(X'47',8,0,CODER,40); ->L99 #line 3707 "regression-compile-tmp/allimpc1-77.imp" PRX(71, 8, 0, CODER, 40); #line 3707 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; // 3708 L5: ->L99 %UNLESS PREC=0 #line 3708 "regression-compile-tmp/allimpc1-77.imp" U_106b:; #line 3708 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) == (0))) goto L_04a1; #line 3708 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; #line 3708 "regression-compile-tmp/allimpc1-77.imp" L_04a1:; // 3709 J=X'59'; ->L3 #line 3709 "regression-compile-tmp/allimpc1-77.imp" J = 89; #line 3709 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; // 3710 L99: %END #line 3710 "regression-compile-tmp/allimpc1-77.imp" U_1079:; #line 3710 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block TESTASS at level 3 // 3711 %ROUTINE GXREF(%INTEGER NAME,HASH) #line 3711 "regression-compile-tmp/allimpc1-77.imp" void GXREF( int NAME, int HASH ) #line 3711 "regression-compile-tmp/allimpc1-77.imp" { // 3712 !%SHORTROUTINE // 3713 %INTEGER I,J,K,N,NP #line 3713 "regression-compile-tmp/allimpc1-77.imp" int I; #line 3713 "regression-compile-tmp/allimpc1-77.imp" int J; #line 3713 "regression-compile-tmp/allimpc1-77.imp" int K; #line 3713 "regression-compile-tmp/allimpc1-77.imp" int N; #line 3713 "regression-compile-tmp/allimpc1-77.imp" int NP; // 3714 I=N0; N0=N0+7; J=WORD(NAME) #line 3714 "regression-compile-tmp/allimpc1-77.imp" I = N0; #line 3714 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (7)); #line 3714 "regression-compile-tmp/allimpc1-77.imp" J = WORD[NAME]; // 3715 ST(I+1)=0; ST(I+2)=0; ST(I+3)=0 #line 3715 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(I)) + (1))] = 0; #line 3715 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(I)) + (2))] = 0; #line 3715 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(I)) + (3))] = 0; // 3716 N=LETT(J); NP=N; NP=8 %IF NP>8 #line 3716 "regression-compile-tmp/allimpc1-77.imp" N = LETT[J]; #line 3716 "regression-compile-tmp/allimpc1-77.imp" NP = N; #line 3716 "regression-compile-tmp/allimpc1-77.imp" if (((NP) <= (8))) goto L_04a2; #line 3716 "regression-compile-tmp/allimpc1-77.imp" NP = 8; #line 3716 "regression-compile-tmp/allimpc1-77.imp" L_04a2:; // 3717 K=ADDR(ST(I+5)); ->L1 %IF HASH=0 #line 3717 "regression-compile-tmp/allimpc1-77.imp" K = _imp_ADDR(&ST[(((int)(I)) + (5))]); #line 3717 "regression-compile-tmp/allimpc1-77.imp" if (((HASH) != (0))) goto L_04a3; #line 3717 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; #line 3717 "regression-compile-tmp/allimpc1-77.imp" L_04a3:; // 3718 ST(I+5)=HASH<<16!'#'<<8 #line 3718 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(I)) + (5))] = ((((HASH) << (16))) | (((35) << (8)))); // 3719 K=K+2; N=N+2 #line 3719 "regression-compile-tmp/allimpc1-77.imp" K = (((int)(K)) + (2)); #line 3719 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (2)); // 3720 NP=6 %IF NP>6 #line 3720 "regression-compile-tmp/allimpc1-77.imp" if (((NP) <= (6))) goto L_04a4; #line 3720 "regression-compile-tmp/allimpc1-77.imp" NP = 6; #line 3720 "regression-compile-tmp/allimpc1-77.imp" L_04a4:; // 3721 L1: %CYCLE NP=1,1,NP #line 3721 "regression-compile-tmp/allimpc1-77.imp" U_1059:; #line 3721 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = NP; NP = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle NP = 1, 1, NP"); NP -= _increment; _control -= _increment; L_04a5:; if (NP == _final) goto L_04a6; NP += _increment; _control += _increment; if (NP != _control) _imp_signal(4,2,0,"Corrupt control variable NP"); /* FOR loop control variable corrupted */ } // 3722 BYTEINTEGER(K+NP)=LETT(J+NP); %REPEAT #line 3722 "regression-compile-tmp/allimpc1-77.imp" *_imp_BYTEINTEGER((((int)(K)) + (NP))) = LETT[(((int)(J)) + (NP))]; #line 3722 "regression-compile-tmp/allimpc1-77.imp" goto L_04a5; #line 3722 "regression-compile-tmp/allimpc1-77.imp" L_04a6:; // 3723 N=8 %IF N>8; ST(I+4)=X'80000000'; ! MARK NEW FORMAT #line 3723 "regression-compile-tmp/allimpc1-77.imp" if (((N) <= (8))) goto L_04a8; #line 3723 "regression-compile-tmp/allimpc1-77.imp" N = 8; #line 3723 "regression-compile-tmp/allimpc1-77.imp" L_04a8:; #line 3723 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(I)) + (4))] = (-2147483648); // 3724 ST(I)=XREFLINK; XREFLINK=I<<2; ! LINK IN REFERENCE #line 3724 "regression-compile-tmp/allimpc1-77.imp" ST[I] = XREFLINK; #line 3724 "regression-compile-tmp/allimpc1-77.imp" XREFLINK = ((I) << (2)); // 3725 BYTE INTEGER(ADDR(ST(I+5)))=N #line 3725 "regression-compile-tmp/allimpc1-77.imp" *_imp_BYTEINTEGER(_imp_ADDR(&ST[(((int)(I)) + (5))])) = N; // 3726 N0=N0+1 %IF N=8 #line 3726 "regression-compile-tmp/allimpc1-77.imp" if (((N) != (8))) goto L_04a9; #line 3726 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (1)); #line 3726 "regression-compile-tmp/allimpc1-77.imp" L_04a9:; // 3727 %END #line 3727 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block GXREF at level 3 // 3728 %ROUTINE UNDCRF (%SHORTINTEGERNAME OPHEAD) ; ! Care needed with short conversion! #line 3728 "regression-compile-tmp/allimpc1-77.imp" void UNDCRF( short /*name*/*OPHEAD ) #line 3728 "regression-compile-tmp/allimpc1-77.imp" { // 3729 %INTEGER I,J #line 3729 "regression-compile-tmp/allimpc1-77.imp" int I; #line 3729 "regression-compile-tmp/allimpc1-77.imp" int J; // 3730 %SHORTINTEGER OP #line 3730 "regression-compile-tmp/allimpc1-77.imp" short OP; // 3731 %COMMENT UNSCRAMBLES RECORD FORMAT TAGS LIST & SIDECHAIN // 3732 POP (OPHEAD,I,J); ! LST ITEM IS DESPMENT #line 3732 "regression-compile-tmp/allimpc1-77.imp" POP(OPHEAD, &I, &J); // 3733 L1: POP (OPHEAD,I,J) #line 3733 "regression-compile-tmp/allimpc1-77.imp" U_1079:; #line 3733 "regression-compile-tmp/allimpc1-77.imp" POP(OPHEAD, &I, &J); // 3734 ->L9 %IF I=-1 #line 3734 "regression-compile-tmp/allimpc1-77.imp" if (((I) != ((-1)))) goto L_04aa; #line 3734 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; #line 3734 "regression-compile-tmp/allimpc1-77.imp" L_04aa:; // 3735 OP=J;PTYPE=I>>4&X'FFFF';UNPACK #line 3735 "regression-compile-tmp/allimpc1-77.imp" OP = J; #line 3735 "regression-compile-tmp/allimpc1-77.imp" PTYPE = (((int)((((unsigned int)(I)) >> (4)))) & (65535)); #line 3735 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 3736 %IF ROUT=1 %OR TYPE=3 %THEN CLEAR LIST(OP) #line 3736 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) == (1))) goto L_04a7; #line 3736 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_04ab; #line 3736 "regression-compile-tmp/allimpc1-77.imp" L_04a7:; #line 3736 "regression-compile-tmp/allimpc1-77.imp" CLEARLIST(&OP); #line 3736 "regression-compile-tmp/allimpc1-77.imp" L_04ab:; // 3737 ->L1 #line 3737 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; // 3738 L9: %END #line 3738 "regression-compile-tmp/allimpc1-77.imp" U_1078:; #line 3738 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block UNDCRF at level 3 // 3739 %ROUTINE CLT #line 3739 "regression-compile-tmp/allimpc1-77.imp" void CLT( void ) #line 3739 "regression-compile-tmp/allimpc1-77.imp" { // 3740 !%SHORTROUTINE // 3741 %COMMENT P ON PHRASE TYPE AT ENTRY - TO NEXT PHRASE AT EXIT // 3742 TYPE=TYPEFLAG(A(P)) #line 3742 "regression-compile-tmp/allimpc1-77.imp" TYPE = (TYPEFLAG-1)[A[((P) + ((int)(2)))]]; // 3743 PREC=TYPE>>3; TYPE=TYPE&7 #line 3743 "regression-compile-tmp/allimpc1-77.imp" PREC = (unsigned char)((((unsigned char)(TYPE)) >> (3))); #line 3743 "regression-compile-tmp/allimpc1-77.imp" TYPE = ((TYPE) & (7)); // 3744 PREC=3 %IF TYPE=2 %AND ALL LONG#0 #line 3744 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_04ac; #line 3744 "regression-compile-tmp/allimpc1-77.imp" if (((ALLLONG) == (0))) goto L_04ac; #line 3744 "regression-compile-tmp/allimpc1-77.imp" PREC = 3; #line 3744 "regression-compile-tmp/allimpc1-77.imp" L_04ac:; // 3745 ACC=BYTES(PREC);P=P+1 #line 3745 "regression-compile-tmp/allimpc1-77.imp" ACC = BYTES[PREC]; #line 3745 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3746 ->L99 %UNLESS TYPE=5 #line 3746 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (5))) goto L_04ad; #line 3746 "regression-compile-tmp/allimpc1-77.imp" goto U_1057; #line 3746 "regression-compile-tmp/allimpc1-77.imp" L_04ad:; // 3747 ->L2 %UNLESS A(P)=2 #line 3747 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) == (2))) goto L_04ae; #line 3747 "regression-compile-tmp/allimpc1-77.imp" goto U_106a; #line 3747 "regression-compile-tmp/allimpc1-77.imp" L_04ae:; // 3748 ACC=0; P=P+1; ->L99 #line 3748 "regression-compile-tmp/allimpc1-77.imp" ACC = 0; #line 3748 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3748 "regression-compile-tmp/allimpc1-77.imp" goto U_1057; // 3749 L1: P=P+1;FAULT(70);->L99 #line 3749 "regression-compile-tmp/allimpc1-77.imp" U_106b:; #line 3749 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3749 "regression-compile-tmp/allimpc1-77.imp" FAULT(70); #line 3749 "regression-compile-tmp/allimpc1-77.imp" goto U_1057; // 3750 L2: P=P+1;ACC=A(P)+1 #line 3750 "regression-compile-tmp/allimpc1-77.imp" U_106a:; #line 3750 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3750 "regression-compile-tmp/allimpc1-77.imp" ACC = (((int)(A[((P) + ((int)(2)))])) + (1)); // 3751 ->L1 %UNLESS 2<=ACC<=256 #line 3751 "regression-compile-tmp/allimpc1-77.imp" if ((((2) > (ACC))) || (((ACC) <= (256)))) goto L_04b0; #line 3751 "regression-compile-tmp/allimpc1-77.imp" L_04af:; #line 3751 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3751 "regression-compile-tmp/allimpc1-77.imp" L_04b0:; // 3752 P=P+1 #line 3752 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3753 L99: %END #line 3753 "regression-compile-tmp/allimpc1-77.imp" U_1057:; #line 3753 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CLT at level 3 // 3754 %ROUTINE CQN(%INTEGER P) #line 3754 "regression-compile-tmp/allimpc1-77.imp" void CQN( int P ) #line 3754 "regression-compile-tmp/allimpc1-77.imp" { // 3755 !%SHORTROUTINE // 3756 %BYTEINTEGER I #line 3756 "regression-compile-tmp/allimpc1-77.imp" unsigned char I; // 3757 I=A(P);NAM=0;ARR=0 #line 3757 "regression-compile-tmp/allimpc1-77.imp" I = A[((P) + ((int)(2)))]; #line 3757 "regression-compile-tmp/allimpc1-77.imp" NAM = 0; #line 3757 "regression-compile-tmp/allimpc1-77.imp" ARR = 0; // 3758 NAM=2 %IF I=1 ;ARR=1 %IF I<=2 #line 3758 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (1))) goto L_04b1; #line 3758 "regression-compile-tmp/allimpc1-77.imp" NAM = 2; #line 3758 "regression-compile-tmp/allimpc1-77.imp" L_04b1:; #line 3758 "regression-compile-tmp/allimpc1-77.imp" if (((I) > (2))) goto L_04b2; #line 3758 "regression-compile-tmp/allimpc1-77.imp" ARR = 1; #line 3758 "regression-compile-tmp/allimpc1-77.imp" L_04b2:; // 3759 NAM=NAM!1 %IF I<=3;ACC=16 %IF ARR=1 #line 3759 "regression-compile-tmp/allimpc1-77.imp" if (((I) > (3))) goto L_04b3; #line 3759 "regression-compile-tmp/allimpc1-77.imp" NAM = ((NAM) | (1)); #line 3759 "regression-compile-tmp/allimpc1-77.imp" L_04b3:; #line 3759 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (1))) goto L_04b4; #line 3759 "regression-compile-tmp/allimpc1-77.imp" ACC = 16; #line 3759 "regression-compile-tmp/allimpc1-77.imp" L_04b4:; // 3760 ACC=4 %IF I=3 #line 3760 "regression-compile-tmp/allimpc1-77.imp" if (((I) != (3))) goto L_04b5; #line 3760 "regression-compile-tmp/allimpc1-77.imp" ACC = 4; #line 3760 "regression-compile-tmp/allimpc1-77.imp" L_04b5:; // 3761 %END #line 3761 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CQN at level 3 // 3762 %ROUTINE SKIP EXP #line 3762 "regression-compile-tmp/allimpc1-77.imp" void SKIPEXP( void ) #line 3762 "regression-compile-tmp/allimpc1-77.imp" { // 3763 !%SHORTROUTINE // 3764 %SWITCH SW(1:4);%INTEGER J #line 3764 "regression-compile-tmp/allimpc1-77.imp" static int sw22_SW_idx; static const void * /*SWITCH*/ sw22_SW[4] = { &&sw22_SW_1, &&sw22_SW_2, &&sw22_SW_3, &&sw22_SW_4, }; #line 3764 "regression-compile-tmp/allimpc1-77.imp" int J; // 3765 %OWNINTEGER RT=10000 #line 3765 "regression-compile-tmp/allimpc1-77.imp" static int RT = 10000; // 3766 L3: P=P+1; ->SW(A(P)); ! SWITCH ON OPERAND #line 3766 "regression-compile-tmp/allimpc1-77.imp" U_106c:; #line 3766 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3766 "regression-compile-tmp/allimpc1-77.imp" sw22_SW_idx = A[((P) + ((int)(2)))]; if ((1 <= sw22_SW_idx) && (sw22_SW_idx <= 4)) goto *(sw22_SW-1)[sw22_SW_idx]; /* Bounds=1:4 */ else { /*_imp_signal(8, 2, sw22_SW_idx);*/ fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:4 at %s:%d\n", sw22_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 3767 SW(1): P=P+2; ! OPERAND = NAME #line 3767 "regression-compile-tmp/allimpc1-77.imp" sw22_SW_1:; #line 3767 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); // 3768 J=ADDR(ASLIST(TAGS(A(P-1)))) #line 3768 "regression-compile-tmp/allimpc1-77.imp" J = _imp_ADDR(&ASLIST[TAGS[A[(((unsigned char)((((int)(P)) - (1)))) + (2))]]]); // 3769 ->L5 %IF SHORT INTEGER(J)= (RT))) goto L_04b6; #line 3769 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; #line 3769 "regression-compile-tmp/allimpc1-77.imp" L_04b6:; #line 3769 "regression-compile-tmp/allimpc1-77.imp" FFLAG = 1; // 3770 L5: SKIP APP; P=P+1 #line 3770 "regression-compile-tmp/allimpc1-77.imp" U_1079:; #line 3770 "regression-compile-tmp/allimpc1-77.imp" SKIPAPP(); #line 3770 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 3771 ->L1 %IF A(P-1)=2; P=P+1; ->L5 #line 3771 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_04b7; #line 3771 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; #line 3771 "regression-compile-tmp/allimpc1-77.imp" L_04b7:; #line 3771 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3771 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; // 3772 SW(2): ! CONST #line 3772 "regression-compile-tmp/allimpc1-77.imp" sw22_SW_2:; // 3773 P=P+1; J=A(P) #line 3773 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3773 "regression-compile-tmp/allimpc1-77.imp" J = A[((P) + ((int)(2)))]; // 3774 %IF J=9 %THEN %START; P=P+2; ->L1; %FINISH #line 3774 "regression-compile-tmp/allimpc1-77.imp" if (((J) != (9))) goto L_04b8; #line 3774 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (2)); #line 3774 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; #line 3774 "regression-compile-tmp/allimpc1-77.imp" L_04b8:; // 3775 %IF J=1 %THEN %START; P=P+3; ->L1; %FINISH #line 3775 "regression-compile-tmp/allimpc1-77.imp" if (((J) != (1))) goto L_04b9; #line 3775 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); #line 3775 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; #line 3775 "regression-compile-tmp/allimpc1-77.imp" L_04b9:; // 3776 %IF J=2 %THEN %START; P=P+5; ->L1; %FINISH #line 3776 "regression-compile-tmp/allimpc1-77.imp" if (((J) != (2))) goto L_04ba; #line 3776 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (5)); #line 3776 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; #line 3776 "regression-compile-tmp/allimpc1-77.imp" L_04ba:; // 3777 P=P+A(P+1)&X'FE'+3; ->L1 #line 3777 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(((P) + ((int)(((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) & (254))))))) + (3)); #line 3777 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; // 3778 SW(3):SW(4): P=P+1; SKIP EXP #line 3778 "regression-compile-tmp/allimpc1-77.imp" sw22_SW_3:; #line 3778 "regression-compile-tmp/allimpc1-77.imp" sw22_SW_4:; #line 3778 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3778 "regression-compile-tmp/allimpc1-77.imp" SKIPEXP(); // 3779 L1: P=P+1; ->L3 %IF A(P-1)=1 #line 3779 "regression-compile-tmp/allimpc1-77.imp" U_1078:; #line 3779 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3779 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (1))) goto L_04bb; #line 3779 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; #line 3779 "regression-compile-tmp/allimpc1-77.imp" L_04bb:; // 3780 %END #line 3780 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SKIPEXP at level 3 // 3781 %ROUTINE SKIP APP; ! SKIPS ACTUAL PARAMETER PART #line 3781 "regression-compile-tmp/allimpc1-77.imp" void SKIPAPP( void ) #line 3781 "regression-compile-tmp/allimpc1-77.imp" { // 3782 L5: P=P+1; ->L1 %IF A(P-1)=2; SKIP EXP; ->L5 #line 3782 "regression-compile-tmp/allimpc1-77.imp" U_1057:; #line 3782 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3782 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) - (1)))) + (2))]) != (2))) goto L_04bc; #line 3782 "regression-compile-tmp/allimpc1-77.imp" goto U_106a; #line 3782 "regression-compile-tmp/allimpc1-77.imp" L_04bc:; #line 3782 "regression-compile-tmp/allimpc1-77.imp" SKIPEXP(); #line 3782 "regression-compile-tmp/allimpc1-77.imp" goto U_1057; // 3783 L1: %END #line 3783 "regression-compile-tmp/allimpc1-77.imp" U_106a:; #line 3783 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SKIPAPP at level 3 // 3784 %ROUTINE CQUERY(%INTEGER REG) #line 3784 "regression-compile-tmp/allimpc1-77.imp" void CQUERY( int REG ) #line 3784 "regression-compile-tmp/allimpc1-77.imp" { // 3785 !%SHORTROUTINE // 3786 PSI(X'95',0,GLA,1); ! CLI 1(GLA),0 #line 3786 "regression-compile-tmp/allimpc1-77.imp" PSI(149, 0, GLA, 1); // 3787 PJ(8,PLABEL-1); ! JUMP ROUND IF QUERIES OFF #line 3787 "regression-compile-tmp/allimpc1-77.imp" PJ(8, (((int)(PLABEL)) - (1))); // 3788 ->L1 %IF TYPE=2 #line 3788 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_04bd; #line 3788 "regression-compile-tmp/allimpc1-77.imp" goto U_106a; #line 3788 "regression-compile-tmp/allimpc1-77.imp" L_04bd:; // 3789 ->L5 %IF TYPE=5 #line 3789 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_04be; #line 3789 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3789 "regression-compile-tmp/allimpc1-77.imp" L_04be:; // 3790 PRR(X'18',1,REG) %UNLESS REG=1; ! LR 1,REG #line 3790 "regression-compile-tmp/allimpc1-77.imp" if (((REG) == (1))) goto L_04bf; #line 3790 "regression-compile-tmp/allimpc1-77.imp" PRR(24, 1, REG); #line 3790 "regression-compile-tmp/allimpc1-77.imp" L_04bf:; // 3791 PCONST(X'4120000B'); ! LA 2,11 #line 3791 "regression-compile-tmp/allimpc1-77.imp" PCONST(1092616203); // 3792 PPJ(4); ->L9; ! TO WRITE #line 3792 "regression-compile-tmp/allimpc1-77.imp" PPJ(4); #line 3792 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; // 3793 L1: PCONST(X'41100020'); PPJ(3); ! OUTPUT SPACE #line 3793 "regression-compile-tmp/allimpc1-77.imp" U_106a:; #line 3793 "regression-compile-tmp/allimpc1-77.imp" PCONST(1091567648); #line 3793 "regression-compile-tmp/allimpc1-77.imp" PPJ(3); // 3794 %IF QPREAL=0 %THEN %START #line 3794 "regression-compile-tmp/allimpc1-77.imp" if (((QPREAL) != (0))) goto L_04c0; // 3795 QPREAL=N0<<2+4 #line 3795 "regression-compile-tmp/allimpc1-77.imp" QPREAL = (((int)(((N0) << (2)))) + (4)); // 3796 ST(N0)=XREFLINK; XREFLINK=QPREAL-4 #line 3796 "regression-compile-tmp/allimpc1-77.imp" ST[N0] = XREFLINK; #line 3796 "regression-compile-tmp/allimpc1-77.imp" XREFLINK = (((int)(QPREAL)) - (4)); // 3797 ST(N0+4)=8; ST(N0+5)=M'I#PR'; ST(N0+6)=M'INTF' #line 3797 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (4))] = 8; #line 3797 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (5))] = 1227051090; #line 3797 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (6))] = 1229870150; // 3798 !! ^^^^^^ ^^^^^^^ WARNING! Endianness // 3799 N0=N0+7; %FINISH #line 3799 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (7)); #line 3799 "regression-compile-tmp/allimpc1-77.imp" L_04c0:; // 3800 PACLOD(82,1,REG<<4) #line 3800 "regression-compile-tmp/allimpc1-77.imp" PACLOD(82, 1, ((REG) << (4))); // 3801 %COMMENT STD REG,64(11).LA 0,12.ST 0,68(11) %ABD SS ENTRYPRINTF // 3802 PACLOD(55,4,QPREAL); ->L9 #line 3802 "regression-compile-tmp/allimpc1-77.imp" PACLOD(55, 4, QPREAL); #line 3802 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; // 3803 L5: PCONST(X'4110000A'); PPJ(3); ! NEWLINE #line 3803 "regression-compile-tmp/allimpc1-77.imp" U_106b:; #line 3803 "regression-compile-tmp/allimpc1-77.imp" PCONST(1091567626); #line 3803 "regression-compile-tmp/allimpc1-77.imp" PPJ(3); // 3804 PRR(X'18',1,REG); PPJ(5) #line 3804 "regression-compile-tmp/allimpc1-77.imp" PRR(24, 1, REG); #line 3804 "regression-compile-tmp/allimpc1-77.imp" PPJ(5); // 3805 L9: PLAB(-1) #line 3805 "regression-compile-tmp/allimpc1-77.imp" U_106c:; #line 3805 "regression-compile-tmp/allimpc1-77.imp" PLAB((-1)); // 3806 %END #line 3806 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CQUERY at level 3 // 3807 %ROUTINE LOADAD(%INTEGER REG,BASE,X,DISP) #line 3807 "regression-compile-tmp/allimpc1-77.imp" void LOADAD( int REG, int BASE, int X, int DISP ) #line 3807 "regression-compile-tmp/allimpc1-77.imp" { // 3808 !%SHORTROUTINE // 3809 ! LOADS ADDRESS & DEALS CORRECTLY WITH DISP>4095 // 3810 %INTEGER I #line 3810 "regression-compile-tmp/allimpc1-77.imp" int I; // 3811 PRX(X'41',REG,X,BASE,DISP&4095) #line 3811 "regression-compile-tmp/allimpc1-77.imp" PRX(65, REG, X, BASE, ((DISP) & (4095))); // 3812 I=PAGENO(DISP) #line 3812 "regression-compile-tmp/allimpc1-77.imp" I = PAGENO(DISP); // 3813 PRX(X'5A',REG,0,GLA,4*I)%UNLESS 4095>=DISP #line 3813 "regression-compile-tmp/allimpc1-77.imp" if (((4095) >= (DISP))) goto L_04c1; #line 3813 "regression-compile-tmp/allimpc1-77.imp" PRX(90, REG, 0, GLA, (((int)(4)) * (I))); #line 3813 "regression-compile-tmp/allimpc1-77.imp" L_04c1:; // 3814 %END #line 3814 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block LOADAD at level 3 // 3815 %INTEGERFN TSEXP(%INTEGERNAME CODE) #line 3815 "regression-compile-tmp/allimpc1-77.imp" int TSEXP( int /*name*/*CODE ) #line 3815 "regression-compile-tmp/allimpc1-77.imp" { // 3816 !%SHORTROUTINE // 3817 %SWITCH SW(1:4) #line 3817 "regression-compile-tmp/allimpc1-77.imp" static int sw23_SW_idx; static const void * /*SWITCH*/ sw23_SW[4] = { &&sw23_SW_1, &&sw23_SW_2, &&sw23_SW_3, &&sw23_SW_4, }; // 3818 TYPE=1 #line 3818 "regression-compile-tmp/allimpc1-77.imp" TYPE = 1; // 3819 ->L9 %IF 1#A(P)#4; ->SW(A(P+1)) #line 3819 "regression-compile-tmp/allimpc1-77.imp" if ((((1) == (A[((P) + ((int)(2)))]))) || (((A[((P) + ((int)(2)))]) == (4)))) goto L_04c2; #line 3819 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3819 "regression-compile-tmp/allimpc1-77.imp" L_04c2:; #line 3819 "regression-compile-tmp/allimpc1-77.imp" sw23_SW_idx = A[(((unsigned char)((((int)(P)) + (1)))) + (2))]; if ((1 <= sw23_SW_idx) && (sw23_SW_idx <= 4)) goto *(sw23_SW-1)[sw23_SW_idx]; /* Bounds=1:4 */ else { /*_imp_signal(8, 2, sw23_SW_idx);*/ fprintf(stderr, "%%SWITCH index SW(%d) not in range 1:4 at %s:%d\n", sw23_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 3820 SW(1): CODE=A(P+2); COPYTAG(CODE) #line 3820 "regression-compile-tmp/allimpc1-77.imp" sw23_SW_1:; #line 3820 "regression-compile-tmp/allimpc1-77.imp" *CODE = A[(((unsigned char)((((int)(P)) + (2)))) + (2))]; #line 3820 "regression-compile-tmp/allimpc1-77.imp" COPYTAG(*CODE); // 3821 %IF PTYPE=10006 %THEN %START #line 3821 "regression-compile-tmp/allimpc1-77.imp" if (((PTYPE) != (10006))) goto L_04c3; // 3822 TYPE=TSNAME(K);PREC=TYPE>>3 #line 3822 "regression-compile-tmp/allimpc1-77.imp" TYPE = TSNAME[K]; #line 3822 "regression-compile-tmp/allimpc1-77.imp" PREC = (unsigned char)((((unsigned char)(TYPE)) >> (3))); // 3823 TYPE=TYPE&7; %FINISH #line 3823 "regression-compile-tmp/allimpc1-77.imp" TYPE = ((TYPE) & (7)); #line 3823 "regression-compile-tmp/allimpc1-77.imp" L_04c3:; // 3824 ->L40 %IF TYPE=8; !REGISTER VARIABLE #line 3824 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (8))) goto L_04c4; #line 3824 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; #line 3824 "regression-compile-tmp/allimpc1-77.imp" L_04c4:; // 3825 ->L30 %IF TYPE=3 %AND ARR=0 %AND INREG#0 #line 3825 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_04c5; #line 3825 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (0))) goto L_04c5; #line 3825 "regression-compile-tmp/allimpc1-77.imp" if (((INREG) == (0))) goto L_04c5; #line 3825 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; #line 3825 "regression-compile-tmp/allimpc1-77.imp" L_04c5:; // 3826 ->L50 %IF ARR=2 %AND TYPE=1 #line 3826 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (2))) goto L_04c6; #line 3826 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (1))) goto L_04c6; #line 3826 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; #line 3826 "regression-compile-tmp/allimpc1-77.imp" L_04c6:; // 3827 ->L9 %UNLESS A(P+3)=2 =A(P+4); ! NO APP OR ENAME #line 3827 "regression-compile-tmp/allimpc1-77.imp" if ((((A[(((unsigned char)((((int)(P)) + (3)))) + (2))]) != (2))) || (((2) == (A[(((unsigned char)((((int)(P)) + (4)))) + (2))])))) goto L_04c8; #line 3827 "regression-compile-tmp/allimpc1-77.imp" L_04c7:; #line 3827 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3827 "regression-compile-tmp/allimpc1-77.imp" L_04c8:; // 3828 ->L9 %UNLESS ROUT=0 %AND ARR=0 #line 3828 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) != (0))) goto L_04c9; #line 3828 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) == (0))) goto L_04ca; #line 3828 "regression-compile-tmp/allimpc1-77.imp" L_04c9:; #line 3828 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3828 "regression-compile-tmp/allimpc1-77.imp" L_04ca:; // 3829 ->L20 %IF TYPE=5 #line 3829 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (5))) goto L_04cb; #line 3829 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; #line 3829 "regression-compile-tmp/allimpc1-77.imp" L_04cb:; // 3830 ->L9 %UNLESS NAM=0 #line 3830 "regression-compile-tmp/allimpc1-77.imp" if (((NAM) == (0))) goto L_04cc; #line 3830 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3830 "regression-compile-tmp/allimpc1-77.imp" L_04cc:; // 3831 ->L14 %IF TYPE=2 #line 3831 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (2))) goto L_04cd; #line 3831 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; #line 3831 "regression-compile-tmp/allimpc1-77.imp" L_04cd:; // 3832 ->L9 %UNLESS TYPE=1 #line 3832 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (1))) goto L_04ce; #line 3832 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3832 "regression-compile-tmp/allimpc1-77.imp" L_04ce:; // 3833 ->L11 %IF A(P+5)=2; ! NO RST OF EXPS #line 3833 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (5)))) + (2))]) != (2))) goto L_04cf; #line 3833 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 3833 "regression-compile-tmp/allimpc1-77.imp" L_04cf:; // 3834 ->L9 %UNLESS A(P+6)=2=A(P+7) #line 3834 "regression-compile-tmp/allimpc1-77.imp" if ((((A[(((unsigned char)((((int)(P)) + (6)))) + (2))]) != (2))) || (((2) == (A[(((unsigned char)((((int)(P)) + (7)))) + (2))])))) goto L_04d1; #line 3834 "regression-compile-tmp/allimpc1-77.imp" L_04d0:; #line 3834 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3834 "regression-compile-tmp/allimpc1-77.imp" L_04d1:; // 3835 ->L9 %UNLESS A(P+8)=9 %AND A(P+10)=2 #line 3835 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (8)))) + (2))]) != (9))) goto L_04d2; #line 3835 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (10)))) + (2))]) == (2))) goto L_04d3; #line 3835 "regression-compile-tmp/allimpc1-77.imp" L_04d2:; #line 3835 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3835 "regression-compile-tmp/allimpc1-77.imp" L_04d3:; // 3836 CODE=A(P+9); P=P+11; %RESULT=100 #line 3836 "regression-compile-tmp/allimpc1-77.imp" *CODE = A[(((unsigned char)((((int)(P)) + (9)))) + (2))]; #line 3836 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (11)); #line 3836 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return 100; // 3837 L11: P=P+6; %RESULT=10+PREC #line 3837 "regression-compile-tmp/allimpc1-77.imp" U_105a:; #line 3837 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (6)); #line 3837 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return ((10) + ((int)(PREC))); // 3838 L14: ->L9 %UNLESS A(P+5)=2; !NO NOT OF EXPRN #line 3838 "regression-compile-tmp/allimpc1-77.imp" U_1059:; #line 3838 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (5)))) + (2))]) == (2))) goto L_04d4; #line 3838 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3838 "regression-compile-tmp/allimpc1-77.imp" L_04d4:; // 3839 P=P+6; %RESULT=14+PREC&1 #line 3839 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (6)); #line 3839 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return ((14) + ((int)(((PREC) & (1))))); // 3840 L20: ->L9 %UNLESS A(P+5)=2 #line 3840 "regression-compile-tmp/allimpc1-77.imp" U_1058:; #line 3840 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (5)))) + (2))]) == (2))) goto L_04d5; #line 3840 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3840 "regression-compile-tmp/allimpc1-77.imp" L_04d5:; // 3841 P=P+6; %RESULT=20 #line 3841 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (6)); #line 3841 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return 20; // 3842 L30: ->L9 %UNLESS A(P+3)=2 %AND A(P+4)=1; ! NO APP BUT ENAME #line 3842 "regression-compile-tmp/allimpc1-77.imp" U_1079:; #line 3842 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (3)))) + (2))]) != (2))) goto L_04d6; #line 3842 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (4)))) + (2))]) == (1))) goto L_04d7; #line 3842 "regression-compile-tmp/allimpc1-77.imp" L_04d6:; #line 3842 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3842 "regression-compile-tmp/allimpc1-77.imp" L_04d7:; // 3843 P=P+5; FROM1(K,FNAME); I=INREG #line 3843 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (5)); #line 3843 "regression-compile-tmp/allimpc1-77.imp" FROM1(K, &FNAME); #line 3843 "regression-compile-tmp/allimpc1-77.imp" I = INREG; // 3844 K=DISPLACEMENT(FNAME); UNPACK #line 3844 "regression-compile-tmp/allimpc1-77.imp" K = DISPLACEMENT(FNAME); #line 3844 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 3845 ->L9 %IF I=-1 %OR ARR#0 %OR ROUT#0 #line 3845 "regression-compile-tmp/allimpc1-77.imp" if (((I) == ((-1)))) goto L_04d8; #line 3845 "regression-compile-tmp/allimpc1-77.imp" if (((ARR) != (0))) goto L_04d8; #line 3845 "regression-compile-tmp/allimpc1-77.imp" if (((ROUT) == (0))) goto L_04d9; #line 3845 "regression-compile-tmp/allimpc1-77.imp" L_04d8:; #line 3845 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3845 "regression-compile-tmp/allimpc1-77.imp" L_04d9:; // 3846 ->L9 %UNLESS 1<=TYPE<=2 %AND A(P+1)=2=A(P+2) #line 3846 "regression-compile-tmp/allimpc1-77.imp" if ((((1) > (TYPE))) || (((TYPE) > (2)))) goto L_04da; #line 3846 "regression-compile-tmp/allimpc1-77.imp" if ((((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (2))) || (((2) == (A[(((unsigned char)((((int)(P)) + (2)))) + (2))])))) goto L_04db; #line 3846 "regression-compile-tmp/allimpc1-77.imp" L_04da:; #line 3846 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3846 "regression-compile-tmp/allimpc1-77.imp" L_04db:; // 3847 ->L9 %UNLESS A(P+3)=2; ! NO REST OF EXPRN #line 3847 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (3)))) + (2))]) == (2))) goto L_04dc; #line 3847 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3847 "regression-compile-tmp/allimpc1-77.imp" L_04dc:; // 3848 P=P-2; ->L11 %IF TYPE=1; ->L14 #line 3848 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) - (2)); #line 3848 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (1))) goto L_04dd; #line 3848 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 3848 "regression-compile-tmp/allimpc1-77.imp" L_04dd:; #line 3848 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; // 3849 L40: ->L41 %IF A(P+5)=2; !NO REST OF EXP #line 3849 "regression-compile-tmp/allimpc1-77.imp" U_106c:; #line 3849 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (5)))) + (2))]) != (2))) goto L_04de; #line 3849 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; #line 3849 "regression-compile-tmp/allimpc1-77.imp" L_04de:; // 3850 ->L9 %UNLESS A(P+6)=2=A(P+7) #line 3850 "regression-compile-tmp/allimpc1-77.imp" if ((((A[(((unsigned char)((((int)(P)) + (6)))) + (2))]) != (2))) || (((2) == (A[(((unsigned char)((((int)(P)) + (7)))) + (2))])))) goto L_04e0; #line 3850 "regression-compile-tmp/allimpc1-77.imp" L_04df:; #line 3850 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3850 "regression-compile-tmp/allimpc1-77.imp" L_04e0:; // 3851 ->L9 %UNLESS A(P+8)=9 %AND A(P+10)=2 #line 3851 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (8)))) + (2))]) != (9))) goto L_04e1; #line 3851 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (10)))) + (2))]) == (2))) goto L_04e2; #line 3851 "regression-compile-tmp/allimpc1-77.imp" L_04e1:; #line 3851 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3851 "regression-compile-tmp/allimpc1-77.imp" L_04e2:; // 3852 CODE=A(P+9);P=P+11; %RESULT=101 #line 3852 "regression-compile-tmp/allimpc1-77.imp" *CODE = A[(((unsigned char)((((int)(P)) + (9)))) + (2))]; #line 3852 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (11)); #line 3852 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return 101; // 3853 L41: P=P+6; %RESULT=50 #line 3853 "regression-compile-tmp/allimpc1-77.imp" U_105b:; #line 3853 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (6)); #line 3853 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return 50; // 3854 L50: ->L9 %UNLESS A(P+3)=1 %AND A(P+4)=4 %AND A(P+5)=2 #line 3854 "regression-compile-tmp/allimpc1-77.imp" U_1078:; #line 3854 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (3)))) + (2))]) != (1))) goto L_04e3; #line 3854 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (4)))) + (2))]) != (4))) goto L_04e3; #line 3854 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (5)))) + (2))]) == (2))) goto L_04e4; #line 3854 "regression-compile-tmp/allimpc1-77.imp" L_04e3:; #line 3854 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3854 "regression-compile-tmp/allimpc1-77.imp" L_04e4:; // 3855 ->L9 %UNLESS A(P+6)=9 %AND A(P+7)<256 %AND A(P+8)=2 #line 3855 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (6)))) + (2))]) != (9))) goto L_04e5; #line 3855 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (7)))) + (2))]) >= (256))) goto L_04e5; #line 3855 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (8)))) + (2))]) == (2))) goto L_04e6; #line 3855 "regression-compile-tmp/allimpc1-77.imp" L_04e5:; #line 3855 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3855 "regression-compile-tmp/allimpc1-77.imp" L_04e6:; // 3856 ->L9 %UNLESS A(P+9)=2 %AND A(P+10)=2 %AND A(P+11)=2 #line 3856 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (9)))) + (2))]) != (2))) goto L_04e7; #line 3856 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (10)))) + (2))]) != (2))) goto L_04e7; #line 3856 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (11)))) + (2))]) == (2))) goto L_04e8; #line 3856 "regression-compile-tmp/allimpc1-77.imp" L_04e7:; #line 3856 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3856 "regression-compile-tmp/allimpc1-77.imp" L_04e8:; // 3857 FROM1(K,K); K=K+A(P+7)*BYTES(PREC) #line 3857 "regression-compile-tmp/allimpc1-77.imp" FROM1(K, &K); #line 3857 "regression-compile-tmp/allimpc1-77.imp" K = ((K) + ((int)(((A[(((unsigned char)((((int)(P)) + (7)))) + (2))]) * ((short)(BYTES[PREC])))))); // 3858 ->L9 %UNLESS 0<=K<4096 #line 3858 "regression-compile-tmp/allimpc1-77.imp" if ((((0) > (K))) || (((K) < (4096)))) goto L_04ea; #line 3858 "regression-compile-tmp/allimpc1-77.imp" L_04e9:; #line 3858 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3858 "regression-compile-tmp/allimpc1-77.imp" L_04ea:; // 3859 P=P+12; %RESULT=10+PREC #line 3859 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (12)); #line 3859 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return ((10) + ((int)(PREC))); // 3860 SW(2): TYPE=A(P+2)&7 #line 3860 "regression-compile-tmp/allimpc1-77.imp" sw23_SW_2:; #line 3860 "regression-compile-tmp/allimpc1-77.imp" TYPE = ((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) & (7)); // 3861 ->L9 %UNLESS A(P+2)=9 #line 3861 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (2)))) + (2))]) == (9))) goto L_04eb; #line 3861 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3861 "regression-compile-tmp/allimpc1-77.imp" L_04eb:; // 3862 ->L21 %IF A(P+4)=1; ! REST OF EXPR #line 3862 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (4)))) + (2))]) != (1))) goto L_04ec; #line 3862 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; #line 3862 "regression-compile-tmp/allimpc1-77.imp" L_04ec:; // 3863 CODE=A(P+3); P=P+5 #line 3863 "regression-compile-tmp/allimpc1-77.imp" *CODE = A[(((unsigned char)((((int)(P)) + (3)))) + (2))]; #line 3863 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (5)); // 3864 %RESULT=1 %IF 256>CODE #line 3864 "regression-compile-tmp/allimpc1-77.imp" if (((256) <= (*CODE))) goto L_04ed; #line 3864 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return 1; #line 3864 "regression-compile-tmp/allimpc1-77.imp" L_04ed:; // 3865 %RESULT=2 #line 3865 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return 2; // 3866 L21: %IF A(P+5)=12 %THEN TYPE=5;! STRING EXPRESSION #line 3866 "regression-compile-tmp/allimpc1-77.imp" U_105c:; #line 3866 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (5)))) + (2))]) != (12))) goto L_04ee; #line 3866 "regression-compile-tmp/allimpc1-77.imp" TYPE = 5; #line 3866 "regression-compile-tmp/allimpc1-77.imp" L_04ee:; // 3867 SW(3):SW(4):L9:%RESULT=0 #line 3867 "regression-compile-tmp/allimpc1-77.imp" sw23_SW_3:; #line 3867 "regression-compile-tmp/allimpc1-77.imp" sw23_SW_4:; #line 3867 "regression-compile-tmp/allimpc1-77.imp" U_106b:; #line 3867 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return 0; // 3868 %END #line 3868 "regression-compile-tmp/allimpc1-77.imp" } // End of block TSEXP at level 3 // 3869 %ROUTINE MOVE R(%INTEGER R,N) #line 3869 "regression-compile-tmp/allimpc1-77.imp" void MOVER( int R, int N ) #line 3869 "regression-compile-tmp/allimpc1-77.imp" { // 3870 !%SHORTROUTINE // 3871 ->L99 %IF N=0; ->L2 %IF 0>N #line 3871 "regression-compile-tmp/allimpc1-77.imp" if (((N) != (0))) goto L_04ef; #line 3871 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3871 "regression-compile-tmp/allimpc1-77.imp" L_04ef:; #line 3871 "regression-compile-tmp/allimpc1-77.imp" if (((0) <= (N))) goto L_04f0; #line 3871 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; #line 3871 "regression-compile-tmp/allimpc1-77.imp" L_04f0:; // 3872 DUMP(0,R,N,0,R); ->L99 #line 3872 "regression-compile-tmp/allimpc1-77.imp" DUMP(0, R, N, 0, R); #line 3872 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; // 3873 L2: N=-N; ->L3 %UNLESS N=4 %OR N=8 #line 3873 "regression-compile-tmp/allimpc1-77.imp" U_106c:; #line 3873 "regression-compile-tmp/allimpc1-77.imp" N = (-(N)); #line 3873 "regression-compile-tmp/allimpc1-77.imp" if (((N) == (4))) goto L_04f1; #line 3873 "regression-compile-tmp/allimpc1-77.imp" if (((N) == (8))) goto L_04f1; #line 3873 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; #line 3873 "regression-compile-tmp/allimpc1-77.imp" L_04f1:; // 3874 PRX(X'5A',R,0,GLA,76+N); ->L99 #line 3874 "regression-compile-tmp/allimpc1-77.imp" PRX(90, R, 0, GLA, (((int)(76)) + (N))); #line 3874 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; // 3875 L3: PCONST(X'41000000'!N); ! LA 0,N #line 3875 "regression-compile-tmp/allimpc1-77.imp" U_1079:; #line 3875 "regression-compile-tmp/allimpc1-77.imp" PCONST(((1090519040) | (N))); // 3876 PRR(X'1B',R,0); ! SR R,0 #line 3876 "regression-compile-tmp/allimpc1-77.imp" PRR(27, R, 0); // 3877 L99: %END #line 3877 "regression-compile-tmp/allimpc1-77.imp" U_106b:; #line 3877 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block MOVER at level 3 // 3878 %INTEGERFN FIND PP #line 3878 "regression-compile-tmp/allimpc1-77.imp" int FINDPP( void ) #line 3878 "regression-compile-tmp/allimpc1-77.imp" { // 3879 !%SHORTROUTINE // 3880 %INTEGER I #line 3880 "regression-compile-tmp/allimpc1-77.imp" int I; // 3881 %CYCLE I=9-RLEVEL,-1,4 #line 3881 "regression-compile-tmp/allimpc1-77.imp" I = (((unsigned char)((((int)(9)) - (RLEVEL)))) + (1)); if ((((4)-((((int)(9)) - (RLEVEL)))) % ((-1))) != 0) _imp_signal(5,1,0,"Illegal cycle I = (((int)(9)) - (RLEVEL)), (-1), 4"); L_04f2:; if (I == 4) goto L_04f3; I += (-1); // 3882 ->L1 %IF REGISTER(I)=0 #line 3882 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[I]) != (0))) goto L_04f5; #line 3882 "regression-compile-tmp/allimpc1-77.imp" goto U_106a; #line 3882 "regression-compile-tmp/allimpc1-77.imp" L_04f5:; // 3883 %REPEAT #line 3883 "regression-compile-tmp/allimpc1-77.imp" goto L_04f2; #line 3883 "regression-compile-tmp/allimpc1-77.imp" L_04f3:; // 3884 %RESULT=0 #line 3884 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return 0; // 3885 L1: REGISTER(I)=1 #line 3885 "regression-compile-tmp/allimpc1-77.imp" U_106a:; #line 3885 "regression-compile-tmp/allimpc1-77.imp" REGISTER[I] = 1; // 3886 %RESULT=I #line 3886 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return I; // 3887 %END #line 3887 "regression-compile-tmp/allimpc1-77.imp" } // End of block FINDPP at level 3 // 3888 %ROUTINE UNPARK(%INTEGER OPCODE,REG,Q) #line 3888 "regression-compile-tmp/allimpc1-77.imp" void UNPARK( int OPCODE, int REG, int Q ) #line 3888 "regression-compile-tmp/allimpc1-77.imp" { // 3889 !%SHORTROUTINE // 3890 ->L1 %IF 0>Q #line 3890 "regression-compile-tmp/allimpc1-77.imp" if (((0) <= (Q))) goto L_04f6; #line 3890 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; #line 3890 "regression-compile-tmp/allimpc1-77.imp" L_04f6:; // 3891 PRR(OPCODE-X'40',REG,Q); REGISTER(Q)=0; ->L9 #line 3891 "regression-compile-tmp/allimpc1-77.imp" PRR((((int)(OPCODE)) - (64)), REG, Q); #line 3891 "regression-compile-tmp/allimpc1-77.imp" REGISTER[Q] = 0; #line 3891 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; // 3892 L1: Q=|Q|; PRX(OPCODE,REG,0,RBASE,Q) #line 3892 "regression-compile-tmp/allimpc1-77.imp" U_106c:; #line 3892 "regression-compile-tmp/allimpc1-77.imp" Q = _imp_IMOD(Q); #line 3892 "regression-compile-tmp/allimpc1-77.imp" PRX(OPCODE, REG, 0, RBASE, Q); // 3893 PUSH(WSP(LEVEL),0,Q); #line 3893 "regression-compile-tmp/allimpc1-77.imp" PUSH(&WSP[LEVEL], 0, Q); // 3894 L9: %END #line 3894 "regression-compile-tmp/allimpc1-77.imp" U_1079:; #line 3894 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block UNPARK at level 3 // 3895 %INTEGERFN PARK(%INTEGER REG) #line 3895 "regression-compile-tmp/allimpc1-77.imp" int PARK( int REG ) #line 3895 "regression-compile-tmp/allimpc1-77.imp" { // 3896 !%SHORTROUTINE // 3897 %INTEGER I,J,P #line 3897 "regression-compile-tmp/allimpc1-77.imp" int I; #line 3897 "regression-compile-tmp/allimpc1-77.imp" int J; #line 3897 "regression-compile-tmp/allimpc1-77.imp" int P; // 3898 P=CLAIMABLE REG #line 3898 "regression-compile-tmp/allimpc1-77.imp" P = CLAIMABLEREG(); // 3899 ->L1 %IF P=0 #line 3899 "regression-compile-tmp/allimpc1-77.imp" if (((P) != (0))) goto L_04f7; #line 3899 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; #line 3899 "regression-compile-tmp/allimpc1-77.imp" L_04f7:; // 3900 REGISTER(P)=1 #line 3900 "regression-compile-tmp/allimpc1-77.imp" REGISTER[P] = 1; // 3901 ->L2 %IF P=REG #line 3901 "regression-compile-tmp/allimpc1-77.imp" if (((P) != (REG))) goto L_04f8; #line 3901 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; #line 3901 "regression-compile-tmp/allimpc1-77.imp" L_04f8:; // 3902 PRR(X'18',P,REG); ! LR P,REG #line 3902 "regression-compile-tmp/allimpc1-77.imp" PRR(24, P, REG); // 3903 L2: %RESULT=P #line 3903 "regression-compile-tmp/allimpc1-77.imp" U_1078:; #line 3903 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return P; // 3904 L1: POP(WSP(LEVEL),I,J); ->L3 %UNLESS J=-1 #line 3904 "regression-compile-tmp/allimpc1-77.imp" U_1079:; #line 3904 "regression-compile-tmp/allimpc1-77.imp" POP(&WSP[LEVEL], &I, &J); #line 3904 "regression-compile-tmp/allimpc1-77.imp" if (((J) == ((-1)))) goto L_04f9; #line 3904 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; #line 3904 "regression-compile-tmp/allimpc1-77.imp" L_04f9:; // 3905 J=N; N=N+4 #line 3905 "regression-compile-tmp/allimpc1-77.imp" J = N; #line 3905 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (4)); // 3906 L3: DUMP(1,REG,J,0,RBASE); %RESULT=-J #line 3906 "regression-compile-tmp/allimpc1-77.imp" U_1058:; #line 3906 "regression-compile-tmp/allimpc1-77.imp" DUMP(1, REG, J, 0, RBASE); #line 3906 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return (-(J)); // 3907 %END #line 3907 "regression-compile-tmp/allimpc1-77.imp" } // End of block PARK at level 3 // 3908 %INTEGERFN CLAIMABLE REG #line 3908 "regression-compile-tmp/allimpc1-77.imp" int CLAIMABLEREG( void ) #line 3908 "regression-compile-tmp/allimpc1-77.imp" { // 3909 !%SHORTROUTINE // 3910 %INTEGER I #line 3910 "regression-compile-tmp/allimpc1-77.imp" int I; // 3911 ->L1 %IF RBASE<= 4 #line 3911 "regression-compile-tmp/allimpc1-77.imp" if (((RBASE) > (4))) goto L_04fa; #line 3911 "regression-compile-tmp/allimpc1-77.imp" goto U_106a; #line 3911 "regression-compile-tmp/allimpc1-77.imp" L_04fa:; // 3912 %CYCLE I=5,1,RBASE #line 3912 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 5; _increment = 1; _final = RBASE; I = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle I = 5, 1, RBASE"); I -= _increment; _control -= _increment; L_04fb:; if (I == _final) goto L_04fc; I += _increment; _control += _increment; if (I != _control) _imp_signal(4,2,0,"Corrupt control variable I"); /* FOR loop control variable corrupted */ } // 3913 %RESULT=I %IF REGISTER(I)=0 #line 3913 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[I]) != (0))) goto L_04fe; #line 3913 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return I; #line 3913 "regression-compile-tmp/allimpc1-77.imp" L_04fe:; // 3914 %REPEAT #line 3914 "regression-compile-tmp/allimpc1-77.imp" goto L_04fb; #line 3914 "regression-compile-tmp/allimpc1-77.imp" L_04fc:; // 3915 L1: %RESULT=0 #line 3915 "regression-compile-tmp/allimpc1-77.imp" U_106a:; #line 3915 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return 0; // 3916 %END #line 3916 "regression-compile-tmp/allimpc1-77.imp" } // End of block CLAIMABLEREG at level 3 // 3917 %INTEGERFN PARKF (%INTEGER REG,PREC) #line 3917 "regression-compile-tmp/allimpc1-77.imp" int PARKF( int REG, int PREC ) #line 3917 "regression-compile-tmp/allimpc1-77.imp" { // 3918 !%SHORTROUTINE // 3919 %INTEGER I,J #line 3919 "regression-compile-tmp/allimpc1-77.imp" int I; #line 3919 "regression-compile-tmp/allimpc1-77.imp" int J; // 3920 ->L10 %UNLESS PREC=0 #line 3920 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) == (0))) goto L_04ff; #line 3920 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; #line 3920 "regression-compile-tmp/allimpc1-77.imp" L_04ff:; // 3921 POP(WSP(LEVEL),I,J) #line 3921 "regression-compile-tmp/allimpc1-77.imp" POP(&WSP[LEVEL], &I, &J); // 3922 ->L3 %UNLESS J=-1 #line 3922 "regression-compile-tmp/allimpc1-77.imp" if (((J) == ((-1)))) goto L_0500; #line 3922 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; #line 3922 "regression-compile-tmp/allimpc1-77.imp" L_0500:; // 3923 J=N; N=N+4 #line 3923 "regression-compile-tmp/allimpc1-77.imp" J = N; #line 3923 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (4)); // 3924 L3: DUMP(9+2*PREC,REG,J,0,RBASE) #line 3924 "regression-compile-tmp/allimpc1-77.imp" U_1078:; #line 3924 "regression-compile-tmp/allimpc1-77.imp" DUMP(((9) + ((int)((((int)(2)) * (PREC))))), REG, J, 0, RBASE); // 3925 %RESULT=J #line 3925 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return J; // 3926 L10: J=GET DBLE WRD;->L3 ;!PARKING SPACE #line 3926 "regression-compile-tmp/allimpc1-77.imp" U_1079:; #line 3926 "regression-compile-tmp/allimpc1-77.imp" J = GETDBLEWRD(); #line 3926 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; // 3927 %END #line 3927 "regression-compile-tmp/allimpc1-77.imp" } // End of block PARKF at level 3 // 3928 %INTEGERFN GET ARR WSP #line 3928 "regression-compile-tmp/allimpc1-77.imp" int GETARRWSP( void ) #line 3928 "regression-compile-tmp/allimpc1-77.imp" { // 3929 %COMMENT PRODUCES 6 CONTIGUOUS WORDS UNDER BASE // 3930 %COMMENT REGISTER COVER FOR ARRAY ACCESS // 3931 %INTEGER I,J #line 3931 "regression-compile-tmp/allimpc1-77.imp" int I; #line 3931 "regression-compile-tmp/allimpc1-77.imp" int J; // 3932 POP(MDARR(LEVEL),I,J) #line 3932 "regression-compile-tmp/allimpc1-77.imp" POP(&MDARR[LEVEL], &I, &J); // 3933 ->L1 %IF J>0 #line 3933 "regression-compile-tmp/allimpc1-77.imp" if (((J) <= (0))) goto L_0501; #line 3933 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 3933 "regression-compile-tmp/allimpc1-77.imp" L_0501:; // 3934 J=N; N=N+24 #line 3934 "regression-compile-tmp/allimpc1-77.imp" J = N; #line 3934 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (24)); // 3935 L1: %RESULT =J #line 3935 "regression-compile-tmp/allimpc1-77.imp" U_106b:; #line 3935 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return J; // 3936 %END #line 3936 "regression-compile-tmp/allimpc1-77.imp" } // End of block GETARRWSP at level 3 // 3937 %ROUTINE RHEAD(%INTEGER KK) #line 3937 "regression-compile-tmp/allimpc1-77.imp" void RHEAD( int KK ) #line 3937 "regression-compile-tmp/allimpc1-77.imp" { // 3938 !%SHORTROUTINE // 3939 %INTEGER FLAG,W1,W2 #line 3939 "regression-compile-tmp/allimpc1-77.imp" int FLAG; #line 3939 "regression-compile-tmp/allimpc1-77.imp" int W1; #line 3939 "regression-compile-tmp/allimpc1-77.imp" int W2; // 3940 FLAG=KK;FLAG=10000 %IF RLEVEL=0 #line 3940 "regression-compile-tmp/allimpc1-77.imp" FLAG = KK; #line 3940 "regression-compile-tmp/allimpc1-77.imp" if (((RLEVEL) != (0))) goto L_0502; #line 3940 "regression-compile-tmp/allimpc1-77.imp" FLAG = 10000; #line 3940 "regression-compile-tmp/allimpc1-77.imp" L_0502:; // 3941 ->L5 %IF RLEVEL=0 #line 3941 "regression-compile-tmp/allimpc1-77.imp" if (((RLEVEL) != (0))) goto L_0503; #line 3941 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; #line 3941 "regression-compile-tmp/allimpc1-77.imp" L_0503:; // 3942 ->L5 %UNLESS LIST=0 #line 3942 "regression-compile-tmp/allimpc1-77.imp" if (((LIST) == (0))) goto L_0504; #line 3942 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; #line 3942 "regression-compile-tmp/allimpc1-77.imp" L_0504:; // 3943 NEWLINE;WRITE(LINE,5);SPACES(3*LEVEL) #line 3943 "regression-compile-tmp/allimpc1-77.imp" _imp_NEWLINE(); #line 3943 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(LINE, 5); #line 3943 "regression-compile-tmp/allimpc1-77.imp" _imp_SPACES((((int)(3)) * (LEVEL))); // 3944 %IF KK<0 %THEN print string("BEGIN") %ELSE %START #line 3944 "regression-compile-tmp/allimpc1-77.imp" if (((KK) >= (0))) goto L_0505; #line 3944 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal("BEGIN")); #line 3944 "regression-compile-tmp/allimpc1-77.imp" goto L_0506; #line 3944 "regression-compile-tmp/allimpc1-77.imp" L_0505:; // 3945 print string("RT/FN/MAP "); PRINTNAME(KK); %FINISH #line 3945 "regression-compile-tmp/allimpc1-77.imp" _imp_PRINTSTRING(_imp_str_literal("RT/FN/MAP ")); #line 3945 "regression-compile-tmp/allimpc1-77.imp" PRINTNAME(KK); #line 3945 "regression-compile-tmp/allimpc1-77.imp" L_0506:; // 3946 WRITE(CA,6) #line 3946 "regression-compile-tmp/allimpc1-77.imp" _imp_WRITE(CA, 6); // 3947 L5: LEVEL=LEVEL+1 #line 3947 "regression-compile-tmp/allimpc1-77.imp" U_1079:; #line 3947 "regression-compile-tmp/allimpc1-77.imp" LEVEL = (((int)(LEVEL)) + (1)); // 3948 ->L6 %IF FLAG<0 #line 3948 "regression-compile-tmp/allimpc1-77.imp" if (((FLAG) >= (0))) goto L_0507; #line 3948 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; #line 3948 "regression-compile-tmp/allimpc1-77.imp" L_0507:; // 3949 RLEVEL=RLEVEL+1;RBASE=10-RLEVEL;R13=0 #line 3949 "regression-compile-tmp/allimpc1-77.imp" RLEVEL = (((int)(RLEVEL)) + (1)); #line 3949 "regression-compile-tmp/allimpc1-77.imp" RBASE = (((int)(10)) - (RLEVEL)); #line 3949 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; // 3950 FAULT(35) %IF RBASE=4 %OR REGISTER(RBASE)#0 #line 3950 "regression-compile-tmp/allimpc1-77.imp" if (((RBASE) == (4))) goto L_04fd; #line 3950 "regression-compile-tmp/allimpc1-77.imp" if (((REGISTER[RBASE]) == (0))) goto L_0508; #line 3950 "regression-compile-tmp/allimpc1-77.imp" L_04fd:; #line 3950 "regression-compile-tmp/allimpc1-77.imp" FAULT(35); #line 3950 "regression-compile-tmp/allimpc1-77.imp" L_0508:; // 3951 REGISTER(RBASE)=1 #line 3951 "regression-compile-tmp/allimpc1-77.imp" REGISTER[RBASE] = 1; // 3952 L6: FAULT(34) %IF LEVEL=10 #line 3952 "regression-compile-tmp/allimpc1-77.imp" U_1078:; #line 3952 "regression-compile-tmp/allimpc1-77.imp" if (((LEVEL) != (10))) goto L_0509; #line 3952 "regression-compile-tmp/allimpc1-77.imp" FAULT(34); #line 3952 "regression-compile-tmp/allimpc1-77.imp" L_0509:; // 3953 FAULT(105) %IF LEVEL>MAX LEVELS #line 3953 "regression-compile-tmp/allimpc1-77.imp" if (((LEVEL) <= (MAXLEVELS))) goto L_050a; #line 3953 "regression-compile-tmp/allimpc1-77.imp" FAULT(105); #line 3953 "regression-compile-tmp/allimpc1-77.imp" L_050a:; // 3954 NMDECS(LEVEL)=0 #line 3954 "regression-compile-tmp/allimpc1-77.imp" NMDECS[LEVEL] = 0; // 3955 ->L10 %IF FLAG>=0 #line 3955 "regression-compile-tmp/allimpc1-77.imp" if (((FLAG) < (0))) goto L_050b; #line 3955 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; #line 3955 "regression-compile-tmp/allimpc1-77.imp" L_050b:; // 3956 PRX(X'90',10,11,RBASE,N); ! STM 10,11,? #line 3956 "regression-compile-tmp/allimpc1-77.imp" PRX(144, 10, 11, RBASE, N); // 3957 N=N+12;W1=RBASE;W2=N-4 #line 3957 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (12)); #line 3957 "regression-compile-tmp/allimpc1-77.imp" W1 = RBASE; #line 3957 "regression-compile-tmp/allimpc1-77.imp" W2 = (((int)(N)) - (4)); // 3958 ->L20 #line 3958 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; // 3959 L10: ->L25 %IF KK<0 #line 3959 "regression-compile-tmp/allimpc1-77.imp" U_1058:; #line 3959 "regression-compile-tmp/allimpc1-77.imp" if (((KK) >= (0))) goto L_050c; #line 3959 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 3959 "regression-compile-tmp/allimpc1-77.imp" L_050c:; // 3960 FROM LIST(JJ,J,K);ST(RA(J)>>2)=CA #line 3960 "regression-compile-tmp/allimpc1-77.imp" FROMLIST(JJ, &J, &K); #line 3960 "regression-compile-tmp/allimpc1-77.imp" ST[(short)((((unsigned short)(RA[J])) >> (2)))] = CA; // 3961 PRX(X'50',LINK,0,WSPR,60); !SAVE LINK #line 3961 "regression-compile-tmp/allimpc1-77.imp" PRX(80, LINK, 0, WSPR, 60); // 3962 W1=WSPR; W2=0 #line 3962 "regression-compile-tmp/allimpc1-77.imp" W1 = WSPR; #line 3962 "regression-compile-tmp/allimpc1-77.imp" W2 = 0; // 3963 L20: ->L21 %IF DIAGS1=0 #line 3963 "regression-compile-tmp/allimpc1-77.imp" U_1059:; #line 3963 "regression-compile-tmp/allimpc1-77.imp" if (((DIAGS1) != (0))) goto L_050d; #line 3963 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; #line 3963 "regression-compile-tmp/allimpc1-77.imp" L_050d:; // 3964 PSS(X'D2',4,W1,W2,GLA,20) #line 3964 "regression-compile-tmp/allimpc1-77.imp" PSS(210, 4, W1, W2, GLA, 20); // 3965 LOADAD(0,0,0,LINE) #line 3965 "regression-compile-tmp/allimpc1-77.imp" LOADAD(0, 0, 0, LINE); // 3966 PCONST(X'4000D014') ; !STH 0,20(GLA) #line 3966 "regression-compile-tmp/allimpc1-77.imp" PCONST(1073795092); // 3967 L21: MONE=1;SET LINE #line 3967 "regression-compile-tmp/allimpc1-77.imp" U_105b:; #line 3967 "regression-compile-tmp/allimpc1-77.imp" MONE = 1; #line 3967 "regression-compile-tmp/allimpc1-77.imp" SETLINE(); // 3968 L25: PRR(X'18',RBASE,WSPR) %UNLESS FLAG<0 #line 3968 "regression-compile-tmp/allimpc1-77.imp" U_105a:; #line 3968 "regression-compile-tmp/allimpc1-77.imp" if (((FLAG) < (0))) goto L_050e; #line 3968 "regression-compile-tmp/allimpc1-77.imp" PRR(24, RBASE, WSPR); #line 3968 "regression-compile-tmp/allimpc1-77.imp" L_050e:; // 3969 %IF KK<0 %THEN W1=0 %ELSE W1=WORD(KK) #line 3969 "regression-compile-tmp/allimpc1-77.imp" if (((KK) >= (0))) goto L_050f; #line 3969 "regression-compile-tmp/allimpc1-77.imp" W1 = 0; #line 3969 "regression-compile-tmp/allimpc1-77.imp" goto L_0510; #line 3969 "regression-compile-tmp/allimpc1-77.imp" L_050f:; #line 3969 "regression-compile-tmp/allimpc1-77.imp" W1 = WORD[KK]; #line 3969 "regression-compile-tmp/allimpc1-77.imp" L_0510:; // 3970 L(LEVEL)=LINE;M(LEVEL)=W1 #line 3970 "regression-compile-tmp/allimpc1-77.imp" L[LEVEL] = LINE; #line 3970 "regression-compile-tmp/allimpc1-77.imp" M[LEVEL] = W1; // 3971 RNEXT(LEVEL)=NEXT #line 3971 "regression-compile-tmp/allimpc1-77.imp" RNEXT[LEVEL] = NEXT; // 3972 %RETURN %IF FLAG<0 #line 3972 "regression-compile-tmp/allimpc1-77.imp" if (((FLAG) >= (0))) goto L_0511; #line 3972 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 3972 "regression-compile-tmp/allimpc1-77.imp" L_0511:; // 3973 SET(RLEVEL)=CA+2 #line 3973 "regression-compile-tmp/allimpc1-77.imp" SET[RLEVEL] = (((int)(CA)) + (2)); // 3974 PRX(X'41',WSPR,WSPR,0,0); ! LA WSP,?(WSP) #line 3974 "regression-compile-tmp/allimpc1-77.imp" PRX(65, WSPR, WSPR, 0, 0); // 3975 %IF CHECKS#0 %THEN PCLOD(75); ! CHECK VFOR EXCESS BLOCKS #line 3975 "regression-compile-tmp/allimpc1-77.imp" if (((CHECKS) == (0))) goto L_0512; #line 3975 "regression-compile-tmp/allimpc1-77.imp" PCLOD(75); #line 3975 "regression-compile-tmp/allimpc1-77.imp" L_0512:; // 3976 N=64; NMAX=N; #line 3976 "regression-compile-tmp/allimpc1-77.imp" N = 64; #line 3976 "regression-compile-tmp/allimpc1-77.imp" NMAX = N; // 3977 %END #line 3977 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block RHEAD at level 3 // 3978 %ROUTINE SET80(%INTEGER WHERE,N) #line 3978 "regression-compile-tmp/allimpc1-77.imp" void SET80( int WHERE, int N ) #line 3978 "regression-compile-tmp/allimpc1-77.imp" { // 3979 %RETURN %IF N<=2 #line 3979 "regression-compile-tmp/allimpc1-77.imp" if (((N) > (2))) goto L_0513; #line 3979 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 3979 "regression-compile-tmp/allimpc1-77.imp" L_0513:; // 3980 %INTEGER K #line 3980 "regression-compile-tmp/allimpc1-77.imp" int K; // 3981 !%SHORTROUTINE // 3982 PSI(X'92',X'80',RBASE,WHERE) #line 3982 "regression-compile-tmp/allimpc1-77.imp" PSI(146, 128, RBASE, WHERE); // 3983 N=N-1; K=WHERE #line 3983 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) - (1)); #line 3983 "regression-compile-tmp/allimpc1-77.imp" K = WHERE; // 3984 L1: ->L2 %IF N<=256 #line 3984 "regression-compile-tmp/allimpc1-77.imp" U_106c:; #line 3984 "regression-compile-tmp/allimpc1-77.imp" if (((N) > (256))) goto L_0514; #line 3984 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; #line 3984 "regression-compile-tmp/allimpc1-77.imp" L_0514:; // 3985 PSS(X'D2',256,RBASE,K+1,RBASE,K) #line 3985 "regression-compile-tmp/allimpc1-77.imp" PSS(210, 256, RBASE, (((int)(K)) + (1)), RBASE, K); // 3986 K=K+256; N=N-256; ->L1 #line 3986 "regression-compile-tmp/allimpc1-77.imp" K = (((int)(K)) + (256)); #line 3986 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) - (256)); #line 3986 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; // 3987 L2: PSS(X'D2',N,RBASE,K+1,RBASE,K) #line 3987 "regression-compile-tmp/allimpc1-77.imp" U_1079:; #line 3987 "regression-compile-tmp/allimpc1-77.imp" PSS(210, N, RBASE, (((int)(K)) + (1)), RBASE, K); // 3988 %END #line 3988 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SET80 at level 3 // 3989 %ROUTINE CBPAIR(%INTEGERNAME LB,UB) #line 3989 "regression-compile-tmp/allimpc1-77.imp" void CBPAIR( int /*name*/*LB, int /*name*/*UB ) #line 3989 "regression-compile-tmp/allimpc1-77.imp" { // 3990 !%SHORTROUTINE // 3991 %INTEGER KK,KKK,JJ,BP #line 3991 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 3991 "regression-compile-tmp/allimpc1-77.imp" int KKK; #line 3991 "regression-compile-tmp/allimpc1-77.imp" int JJ; #line 3991 "regression-compile-tmp/allimpc1-77.imp" int BP; // 3992 P=P+1; KK=0 #line 3992 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3992 "regression-compile-tmp/allimpc1-77.imp" KK = 0; // 3993 %CYCLE JJ=1,1,2; KKK=KK #line 3993 "regression-compile-tmp/allimpc1-77.imp" JJ = 0; if ((((2)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 1, 1, 2"); L_0515:; if (JJ == 2) goto L_0516; JJ += 1; #line 3993 "regression-compile-tmp/allimpc1-77.imp" KKK = KK; // 3994 %IF A(P)=2 %THEN KK=-1 %ELSE KK=1 #line 3994 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0518; #line 3994 "regression-compile-tmp/allimpc1-77.imp" KK = (-1); #line 3994 "regression-compile-tmp/allimpc1-77.imp" goto L_0519; #line 3994 "regression-compile-tmp/allimpc1-77.imp" L_0518:; #line 3994 "regression-compile-tmp/allimpc1-77.imp" KK = 1; #line 3994 "regression-compile-tmp/allimpc1-77.imp" L_0519:; // 3995 ->REAL %IF A(P+1)&7=2 #line 3995 "regression-compile-tmp/allimpc1-77.imp" if (((((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) & (7))) != (2))) goto L_051a; #line 3995 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; #line 3995 "regression-compile-tmp/allimpc1-77.imp" L_051a:; // 3996 ->STRING %IF A(P+1)&7=5 #line 3996 "regression-compile-tmp/allimpc1-77.imp" if (((((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) & (7))) != (5))) goto L_051b; #line 3996 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; #line 3996 "regression-compile-tmp/allimpc1-77.imp" L_051b:; // 3997 %IF A(P+1)=9 %THEN BP=A(P+2) %ELSE %START #line 3997 "regression-compile-tmp/allimpc1-77.imp" if (((A[(((unsigned char)((((int)(P)) + (1)))) + (2))]) != (9))) goto L_051c; #line 3997 "regression-compile-tmp/allimpc1-77.imp" BP = A[(((unsigned char)((((int)(P)) + (2)))) + (2))]; #line 3997 "regression-compile-tmp/allimpc1-77.imp" goto L_051d; #line 3997 "regression-compile-tmp/allimpc1-77.imp" L_051c:; // 3998 FROMAR4(P+2,BP); P=P+1; %FINISH #line 3998 "regression-compile-tmp/allimpc1-77.imp" FROMAR4((((int)(P)) + (2)), &BP); #line 3998 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 3998 "regression-compile-tmp/allimpc1-77.imp" L_051d:; // 3999 KK=KK*BP; P=P+3; ->AGAIN #line 3999 "regression-compile-tmp/allimpc1-77.imp" KK = (((int)(KK)) * (BP)); #line 3999 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (3)); #line 3999 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; // 4000 REAL: FAULT(24); P=P+6; KK=0; ->AGAIN #line 4000 "regression-compile-tmp/allimpc1-77.imp" U_1058:; #line 4000 "regression-compile-tmp/allimpc1-77.imp" FAULT(24); #line 4000 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (6)); #line 4000 "regression-compile-tmp/allimpc1-77.imp" KK = 0; #line 4000 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; // 4001 STRING: FAULT(42); P=P*A(P+2)&X'FE'+2; KK=0 #line 4001 "regression-compile-tmp/allimpc1-77.imp" U_1059:; #line 4001 "regression-compile-tmp/allimpc1-77.imp" FAULT(42); #line 4001 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(((((P) * ((int)(A[(((unsigned char)((((int)(P)) + (2)))) + (2))])))) & (254)))) + (2)); #line 4001 "regression-compile-tmp/allimpc1-77.imp" KK = 0; // 4002 AGAIN: %REPEAT #line 4002 "regression-compile-tmp/allimpc1-77.imp" U_105a:; #line 4002 "regression-compile-tmp/allimpc1-77.imp" goto L_0515; #line 4002 "regression-compile-tmp/allimpc1-77.imp" L_0516:; // 4003 LB=KKK; UB=KK #line 4003 "regression-compile-tmp/allimpc1-77.imp" *LB = KKK; #line 4003 "regression-compile-tmp/allimpc1-77.imp" *UB = KK; // 4004 %END #line 4004 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CBPAIR at level 3 // 4005 %ROUTINE LOAD DATA #line 4005 "regression-compile-tmp/allimpc1-77.imp" void LOADDATA( void ) #line 4005 "regression-compile-tmp/allimpc1-77.imp" { // 4006 !%SHORTROUTINE // 4007 %INTEGER LDLINK,JJ,KK,PTR,JJJ #line 4007 "regression-compile-tmp/allimpc1-77.imp" int LDLINK; #line 4007 "regression-compile-tmp/allimpc1-77.imp" int JJ; #line 4007 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 4007 "regression-compile-tmp/allimpc1-77.imp" int PTR; #line 4007 "regression-compile-tmp/allimpc1-77.imp" int JJJ; // 4008 %SHORTINTEGER HEAD #line 4008 "regression-compile-tmp/allimpc1-77.imp" short HEAD; // 4009 LDPTR=8+8*NEPS #line 4009 "regression-compile-tmp/allimpc1-77.imp" LDPTR = ((8) + ((int)(((8) * ((int)(NEPS)))))); // 4010 %INTEGERARRAY BUFFER(0:LDPTR) #line 4010 "regression-compile-tmp/allimpc1-77.imp" int BUFFER[((LDPTR) + ((int)(1)))]; // 4011 BUFFER(0)=7; BUFFER(2)=88 #line 4011 "regression-compile-tmp/allimpc1-77.imp" BUFFER[0] = 7; #line 4011 "regression-compile-tmp/allimpc1-77.imp" BUFFER[2] = 88; // 4012 BUFFER(3)=0; BUFFER(4)=0 #line 4012 "regression-compile-tmp/allimpc1-77.imp" BUFFER[3] = 0; #line 4012 "regression-compile-tmp/allimpc1-77.imp" BUFFER[4] = 0; // 4013 BUFFER(5)=0; BUFFER(6)=64 #line 4013 "regression-compile-tmp/allimpc1-77.imp" BUFFER[5] = 0; #line 4013 "regression-compile-tmp/allimpc1-77.imp" BUFFER[6] = 64; // 4014 PTR=8; LDLINK=0 #line 4014 "regression-compile-tmp/allimpc1-77.imp" PTR = 8; #line 4014 "regression-compile-tmp/allimpc1-77.imp" LDLINK = 0; // 4015 L1: POP(EPLINK,JJ,KK) #line 4015 "regression-compile-tmp/allimpc1-77.imp" U_1059:; #line 4015 "regression-compile-tmp/allimpc1-77.imp" POP(&EPLINK, &JJ, &KK); // 4016 ->L10 %IF JJ<0 #line 4016 "regression-compile-tmp/allimpc1-77.imp" if (((JJ) >= (0))) goto L_051e; #line 4016 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 4016 "regression-compile-tmp/allimpc1-77.imp" L_051e:; // 4017 HEAD=KK #line 4017 "regression-compile-tmp/allimpc1-77.imp" HEAD = KK; // 4018 BUFFER(PTR)=LDLINK #line 4018 "regression-compile-tmp/allimpc1-77.imp" BUFFER[PTR] = LDLINK; // 4019 LDLINK=PTR<<2 #line 4019 "regression-compile-tmp/allimpc1-77.imp" LDLINK = ((PTR) << (2)); // 4020 BUFFER(PTR+1)=0 #line 4020 "regression-compile-tmp/allimpc1-77.imp" BUFFER[(((int)(PTR)) + (1))] = 0; // 4021 BUFFER(PTR+2)=0 #line 4021 "regression-compile-tmp/allimpc1-77.imp" BUFFER[(((int)(PTR)) + (2))] = 0; // 4022 BUFFER(PTR+3)=JJ #line 4022 "regression-compile-tmp/allimpc1-77.imp" BUFFER[(((int)(PTR)) + (3))] = JJ; // 4023 BUFFER(PTR+4)=X'80000000' #line 4023 "regression-compile-tmp/allimpc1-77.imp" BUFFER[(((int)(PTR)) + (4))] = (-2147483648); // 4024 POP(HEAD,BUFFER(PTR+5),KK); ! FIRST BIT OF ID. #line 4024 "regression-compile-tmp/allimpc1-77.imp" POP(&HEAD, &BUFFER[(((int)(PTR)) + (5))], &KK); // 4025 %IF KK>3 %THEN POP(HEAD,BUFFER(PTR+6),JJJ) #line 4025 "regression-compile-tmp/allimpc1-77.imp" if (((KK) <= (3))) goto L_051f; #line 4025 "regression-compile-tmp/allimpc1-77.imp" POP(&HEAD, &BUFFER[(((int)(PTR)) + (6))], &JJJ); #line 4025 "regression-compile-tmp/allimpc1-77.imp" L_051f:; // 4026 PTR=PTR+7; %IF KK>7 %THEN %START #line 4026 "regression-compile-tmp/allimpc1-77.imp" PTR = (((int)(PTR)) + (7)); #line 4026 "regression-compile-tmp/allimpc1-77.imp" if (((KK) <= (7))) goto L_0520; // 4027 POP(HEAD,BUFFER(PTR),JJJ); PTR=PTR+1; %FINISH; ->L1 #line 4027 "regression-compile-tmp/allimpc1-77.imp" POP(&HEAD, &BUFFER[PTR], &JJJ); #line 4027 "regression-compile-tmp/allimpc1-77.imp" PTR = (((int)(PTR)) + (1)); #line 4027 "regression-compile-tmp/allimpc1-77.imp" L_0520:; #line 4027 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; // 4028 L10: BUFFER(1)=LDLINK #line 4028 "regression-compile-tmp/allimpc1-77.imp" U_105a:; #line 4028 "regression-compile-tmp/allimpc1-77.imp" BUFFER[1] = LDLINK; // 4029 LPUT(3,PTR<<2,0,ADDR(BUFFER(0))) #line 4029 "regression-compile-tmp/allimpc1-77.imp" LPUT(3, ((PTR) << (2)), 0, _imp_ADDR(&BUFFER[0])); // 4030 LDPTR=PTR #line 4030 "regression-compile-tmp/allimpc1-77.imp" LDPTR = PTR; // 4031 %END #line 4031 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block LOADDATA at level 3 // 4032 %ROUTINE DEFINE EP(%INTEGER MODE,NAME,ADR) #line 4032 "regression-compile-tmp/allimpc1-77.imp" void DEFINEEP( int MODE, int NAME, int ADR ) #line 4032 "regression-compile-tmp/allimpc1-77.imp" { // 4033 !%SHORTROUTINE // 4034 %SHORTINTEGER HEAD #line 4034 "regression-compile-tmp/allimpc1-77.imp" short HEAD; // 4035 %INTEGER JJ,KK,LENGTH,ID1,ID2,ID3 #line 4035 "regression-compile-tmp/allimpc1-77.imp" int JJ; #line 4035 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 4035 "regression-compile-tmp/allimpc1-77.imp" int LENGTH; #line 4035 "regression-compile-tmp/allimpc1-77.imp" int ID1; #line 4035 "regression-compile-tmp/allimpc1-77.imp" int ID2; #line 4035 "regression-compile-tmp/allimpc1-77.imp" int ID3; // 4036 %SWITCH SW(0:2) #line 4036 "regression-compile-tmp/allimpc1-77.imp" static int sw24_SW_idx; static const void * /*SWITCH*/ sw24_SW[3] = { &&sw24_SW_0, &&sw24_SW_1, &&sw24_SW_2, }; // 4037 KK=WORD(NAME) #line 4037 "regression-compile-tmp/allimpc1-77.imp" KK = WORD[NAME]; // 4038 HEAD=0; ->SW(MODE) #line 4038 "regression-compile-tmp/allimpc1-77.imp" HEAD = 0; #line 4038 "regression-compile-tmp/allimpc1-77.imp" sw24_SW_idx = MODE; if ((0 <= sw24_SW_idx) && (sw24_SW_idx <= 2)) goto *sw24_SW[sw24_SW_idx]; else { /*_imp_signal(8, 2, sw24_SW_idx);*/ fprintf(stderr, "%%SWITCH index SW(%d) not in range 0:2 at %s:%d\n", sw24_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // 4039 SW(0): %COMMENT DEFINE S#GO #line 4039 "regression-compile-tmp/allimpc1-77.imp" sw24_SW_0:; // 4040 !! WARNING!!! The fact that these M'xxx' constants are 3 bytes, and // 4041 !! the length byte is plugged in below suggests that we are looking // 4042 !! at some big-endian-dependent code here! Which might explain why // 4043 !! there are problems with the PRIMs. // 4044 LENGTH=4; ID1=M'S#G'; ID2=M'O '; ->L10 #line 4044 "regression-compile-tmp/allimpc1-77.imp" LENGTH = 4; #line 4044 "regression-compile-tmp/allimpc1-77.imp" ID1 = 5448519; #line 4044 "regression-compile-tmp/allimpc1-77.imp" ID2 = 1327505440; #line 4044 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 4045 !! ^^^^^^ // 4046 SW(1): %COMMENT SYSTEM EP #line 4046 "regression-compile-tmp/allimpc1-77.imp" sw24_SW_1:; // 4047 LENGTH=LETT(KK)+2 #line 4047 "regression-compile-tmp/allimpc1-77.imp" LENGTH = (((int)(LETT[KK])) + (2)); // 4048 ID1=M'S#A'; %CYCLE JJ=1,1,6 #line 4048 "regression-compile-tmp/allimpc1-77.imp" ID1 = 5448513; #line 4048 "regression-compile-tmp/allimpc1-77.imp" JJ = 0; if ((((6)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 1, 1, 6"); L_0521:; if (JJ == 6) goto L_0522; JJ += 1; // 4049 !! ^^^^^^ // 4050 BYTEINTEGER(ADDR(ID1)+JJ+2)=LETT(KK+JJ) #line 4050 "regression-compile-tmp/allimpc1-77.imp" *_imp_BYTEINTEGER((((int)((((int)(_imp_ADDR(&ID1))) + (JJ)))) + (2))) = LETT[(((int)(KK)) + (JJ))]; // 4051 %REPEAT; ->L10 #line 4051 "regression-compile-tmp/allimpc1-77.imp" goto L_0521; #line 4051 "regression-compile-tmp/allimpc1-77.imp" L_0522:; #line 4051 "regression-compile-tmp/allimpc1-77.imp" goto U_105d; // 4052 SW(2): %COMMENT ENTRY TO EXTERNAL ROUTINE #line 4052 "regression-compile-tmp/allimpc1-77.imp" sw24_SW_2:; // 4053 LENGTH=LETT(KK) #line 4053 "regression-compile-tmp/allimpc1-77.imp" LENGTH = LETT[KK]; // 4054 %CYCLE JJ=1,1,8 #line 4054 "regression-compile-tmp/allimpc1-77.imp" JJ = 0; if ((((8)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle JJ = 1, 1, 8"); L_0524:; if (JJ == 8) goto L_0525; JJ += 1; // 4055 BYTE INTEGER(ADDR(ID1)+JJ)=LETT(KK+JJ) #line 4055 "regression-compile-tmp/allimpc1-77.imp" *_imp_BYTEINTEGER((((int)(_imp_ADDR(&ID1))) + (JJ))) = LETT[(((int)(KK)) + (JJ))]; // 4056 %REPEAT #line 4056 "regression-compile-tmp/allimpc1-77.imp" goto L_0524; #line 4056 "regression-compile-tmp/allimpc1-77.imp" L_0525:; // 4057 L10: LENGTH=8 %IF LENGTH>8 #line 4057 "regression-compile-tmp/allimpc1-77.imp" U_105d:; #line 4057 "regression-compile-tmp/allimpc1-77.imp" if (((LENGTH) <= (8))) goto L_0527; #line 4057 "regression-compile-tmp/allimpc1-77.imp" LENGTH = 8; #line 4057 "regression-compile-tmp/allimpc1-77.imp" L_0527:; // 4058 BYTE INTEGER(ADDR(ID1))=LENGTH #line 4058 "regression-compile-tmp/allimpc1-77.imp" *_imp_BYTEINTEGER(_imp_ADDR(&ID1)) = LENGTH; // 4059 %IF LENGTH>7 %THEN PUSH(HEAD,ID3,0) #line 4059 "regression-compile-tmp/allimpc1-77.imp" if (((LENGTH) <= (7))) goto L_0528; #line 4059 "regression-compile-tmp/allimpc1-77.imp" PUSH(&HEAD, ID3, 0); #line 4059 "regression-compile-tmp/allimpc1-77.imp" L_0528:; // 4060 %IF LENGTH>3 %THEN PUSH(HEAD,ID2,0) #line 4060 "regression-compile-tmp/allimpc1-77.imp" if (((LENGTH) <= (3))) goto L_0529; #line 4060 "regression-compile-tmp/allimpc1-77.imp" PUSH(&HEAD, ID2, 0); #line 4060 "regression-compile-tmp/allimpc1-77.imp" L_0529:; // 4061 PUSH(HEAD,ID1,LENGTH) ; ! COMPLETE SIDE CHAIN #line 4061 "regression-compile-tmp/allimpc1-77.imp" PUSH(&HEAD, ID1, LENGTH); // 4062 PUSH(EPLINK,ADR,HEAD); ! LINK TO MAIN LIST #line 4062 "regression-compile-tmp/allimpc1-77.imp" PUSH(&EPLINK, ADR, HEAD); // 4063 NEPS=NEPS+1 #line 4063 "regression-compile-tmp/allimpc1-77.imp" NEPS = (((int)(NEPS)) + (1)); // 4064 %END #line 4064 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DEFINEEP at level 3 // 4065 %ROUTINE REDEFINE EP(%INTEGER TYPEP,%INTEGERARRAYNAME PARAMS) #line 4065 "regression-compile-tmp/allimpc1-77.imp" void REDEFINEEP( int TYPEP, int /*arrayname*/*PARAMS ) #line 4065 "regression-compile-tmp/allimpc1-77.imp" { // 4066 !%SHORTROUTINE // 4067 %INTEGER JJ,KK;%SHORTINTEGER OPHEAD #line 4067 "regression-compile-tmp/allimpc1-77.imp" int JJ; #line 4067 "regression-compile-tmp/allimpc1-77.imp" int KK; #line 4067 "regression-compile-tmp/allimpc1-77.imp" short OPHEAD; // 4068 JJ=N0;P=P-2;GXREF(A(P),'I') #line 4068 "regression-compile-tmp/allimpc1-77.imp" JJ = N0; #line 4068 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) - (2)); #line 4068 "regression-compile-tmp/allimpc1-77.imp" GXREF(A[((P) + ((int)(2)))], 73); // 4069 K=NEWCELL;OPHEAD=K #line 4069 "regression-compile-tmp/allimpc1-77.imp" K = NEWCELL(); #line 4069 "regression-compile-tmp/allimpc1-77.imp" OPHEAD = K; // 4070 ->L1 %IF PARAMS(0)=0 ; %CYCLE KK=1,1,PARAMS(0) #line 4070 "regression-compile-tmp/allimpc1-77.imp" if (((PARAMS[0]) != (0))) goto L_052a; #line 4070 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; #line 4070 "regression-compile-tmp/allimpc1-77.imp" L_052a:; #line 4070 "regression-compile-tmp/allimpc1-77.imp" {static int _initial, _increment, _final, _control; _initial = 1; _increment = 1; _final = PARAMS[0]; KK = _control = _initial; if (((_final-_initial) % _increment) != 0) _imp_signal(5,1,0,"Illegal cycle KK = 1, 1, PARAMS[0]"); KK -= _increment; _control -= _increment; L_052b:; if (KK == _final) goto L_052c; KK += _increment; _control += _increment; if (KK != _control) _imp_signal(4,2,0,"Corrupt control variable KK"); /* FOR loop control variable corrupted */ } // 4071 INSERT AFTER(OPHEAD,PARAMS(KK),0) #line 4071 "regression-compile-tmp/allimpc1-77.imp" INSERTAFTER(&OPHEAD, PARAMS[KK], 0); // 4072 %REPEAT #line 4072 "regression-compile-tmp/allimpc1-77.imp" goto L_052b; #line 4072 "regression-compile-tmp/allimpc1-77.imp" L_052c:; // 4073 L1: I=9;J=14;OLDI=0;PTYPE=TYPEP #line 4073 "regression-compile-tmp/allimpc1-77.imp" U_1078:; #line 4073 "regression-compile-tmp/allimpc1-77.imp" I = 9; #line 4073 "regression-compile-tmp/allimpc1-77.imp" J = 14; #line 4073 "regression-compile-tmp/allimpc1-77.imp" OLDI = 0; #line 4073 "regression-compile-tmp/allimpc1-77.imp" PTYPE = TYPEP; // 4074 REPLACE TAG(A(P));REPLACE BOTH(K,NR,PARAMS(0)) #line 4074 "regression-compile-tmp/allimpc1-77.imp" REPLACETAG(A[((P) + ((int)(2)))]); #line 4074 "regression-compile-tmp/allimpc1-77.imp" REPLACEBOTH(K, NR, PARAMS[0]); // 4075 RA(NR)=JJ<<2;NR=NR+1 #line 4075 "regression-compile-tmp/allimpc1-77.imp" RA[NR] = ((JJ) << (2)); #line 4075 "regression-compile-tmp/allimpc1-77.imp" NR = (((int)(NR)) + (1)); // 4076 %END #line 4076 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block REDEFINEEP at level 3 // 4077 %INTEGERFN GET DBLE WRD #line 4077 "regression-compile-tmp/allimpc1-77.imp" int GETDBLEWRD( void ) #line 4077 "regression-compile-tmp/allimpc1-77.imp" { // 4078 !%SHORT %ROUTINE // 4079 %COMMENT PRODUCES A DOUBLE WORD OF TEMPORARY SPACE // 4080 %COMMENT COVERED BY CURRENT BASE REGISTER (RBASE) // 4081 %INTEGER I,J #line 4081 "regression-compile-tmp/allimpc1-77.imp" int I; #line 4081 "regression-compile-tmp/allimpc1-77.imp" int J; // 4082 POP(LWSP(LEVEL),I,J) #line 4082 "regression-compile-tmp/allimpc1-77.imp" POP(&LWSP[LEVEL], &I, &J); // 4083 ->L3 %UNLESS I=-1 #line 4083 "regression-compile-tmp/allimpc1-77.imp" if (((I) == ((-1)))) goto L_052e; #line 4083 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 4083 "regression-compile-tmp/allimpc1-77.imp" L_052e:; // 4084 ->L2 %IF N&7=0 #line 4084 "regression-compile-tmp/allimpc1-77.imp" if (((((N) & (7))) != (0))) goto L_052f; #line 4084 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; #line 4084 "regression-compile-tmp/allimpc1-77.imp" L_052f:; // 4085 PUSH(WSP(LEVEL),0,N);N=N+4 #line 4085 "regression-compile-tmp/allimpc1-77.imp" PUSH(&WSP[LEVEL], 0, N); #line 4085 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (4)); // 4086 L2: J=N;N=N+8 #line 4086 "regression-compile-tmp/allimpc1-77.imp" U_106c:; #line 4086 "regression-compile-tmp/allimpc1-77.imp" J = N; #line 4086 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (8)); // 4087 L3: %RESULT =J #line 4087 "regression-compile-tmp/allimpc1-77.imp" U_106b:; #line 4087 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return J; // 4088 %END #line 4088 "regression-compile-tmp/allimpc1-77.imp" } // End of block GETDBLEWRD at level 3 // 4089 %INTEGERFN GET STR WSP #line 4089 "regression-compile-tmp/allimpc1-77.imp" int GETSTRWSP( void ) #line 4089 "regression-compile-tmp/allimpc1-77.imp" { // 4090 !%SHORTROUTINE // 4091 %INTEGER I,J #line 4091 "regression-compile-tmp/allimpc1-77.imp" int I; #line 4091 "regression-compile-tmp/allimpc1-77.imp" int J; // 4092 POP(STR WSP(LEVEL),I,J) #line 4092 "regression-compile-tmp/allimpc1-77.imp" POP(&STRWSP[LEVEL], &I, &J); // 4093 ->L2 %UNLESS J=-1 #line 4093 "regression-compile-tmp/allimpc1-77.imp" if (((J) == ((-1)))) goto L_0530; #line 4093 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 4093 "regression-compile-tmp/allimpc1-77.imp" L_0530:; // 4094 J=N; N=N+256 #line 4094 "regression-compile-tmp/allimpc1-77.imp" J = N; #line 4094 "regression-compile-tmp/allimpc1-77.imp" N = (((int)(N)) + (256)); // 4095 L2: %RESULT=J #line 4095 "regression-compile-tmp/allimpc1-77.imp" U_106b:; #line 4095 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return J; // 4096 %END #line 4096 "regression-compile-tmp/allimpc1-77.imp" } // End of block GETSTRWSP at level 3 // 4097 %ROUTINE SETEX #line 4097 "regression-compile-tmp/allimpc1-77.imp" void SETEX( void ) #line 4097 "regression-compile-tmp/allimpc1-77.imp" { // 4098 %RETURN %UNLESS STRINST=0 #line 4098 "regression-compile-tmp/allimpc1-77.imp" if (((STRINST) == (0))) goto L_0531; #line 4098 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 4098 "regression-compile-tmp/allimpc1-77.imp" L_0531:; // 4099 ST(N0)=X'D2001000' #line 4099 "regression-compile-tmp/allimpc1-77.imp" ST[N0] = (-771747840); // 4100 ST(N0+1)=X'4000D500' #line 4100 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (1))] = 1073796352; // 4101 ST(N0+2)=X'20001000' #line 4101 "regression-compile-tmp/allimpc1-77.imp" ST[(((int)(N0)) + (2))] = 536875008; // 4102 STRINST=N0<<2; N0=N0+3 #line 4102 "regression-compile-tmp/allimpc1-77.imp" STRINST = ((N0) << (2)); #line 4102 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (3)); // 4103 %END #line 4103 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SETEX at level 3 // 4104 %ROUTINE SETLINE #line 4104 "regression-compile-tmp/allimpc1-77.imp" void SETLINE( void ) #line 4104 "regression-compile-tmp/allimpc1-77.imp" { // 4105 !%SHORTROUTINE // 4106 %INTEGER K #line 4106 "regression-compile-tmp/allimpc1-77.imp" int K; // 4107 %OWNINTEGER VALUE #line 4107 "regression-compile-tmp/allimpc1-77.imp" static int VALUE; // 4108 %RETURN %UNLESS LINENOS=1 #line 4108 "regression-compile-tmp/allimpc1-77.imp" if (((LINENOS) == (1))) goto L_0532; #line 4108 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 4108 "regression-compile-tmp/allimpc1-77.imp" L_0532:; // 4109 K=LINE&255 #line 4109 "regression-compile-tmp/allimpc1-77.imp" K = ((LINE) & (255)); // 4110 MONE=1 %IF K=0 #line 4110 "regression-compile-tmp/allimpc1-77.imp" if (((K) != (0))) goto L_0533; #line 4110 "regression-compile-tmp/allimpc1-77.imp" MONE = 1; #line 4110 "regression-compile-tmp/allimpc1-77.imp" L_0533:; // 4111 PSI(X'92',K,GLA,23) %UNLESS K=VALUE %AND MONE=0 #line 4111 "regression-compile-tmp/allimpc1-77.imp" if (((K) != (VALUE))) goto L_052d; #line 4111 "regression-compile-tmp/allimpc1-77.imp" if (((MONE) == (0))) goto L_0534; #line 4111 "regression-compile-tmp/allimpc1-77.imp" L_052d:; #line 4111 "regression-compile-tmp/allimpc1-77.imp" PSI(146, K, GLA, 23); #line 4111 "regression-compile-tmp/allimpc1-77.imp" L_0534:; // 4112 VALUE=K #line 4112 "regression-compile-tmp/allimpc1-77.imp" VALUE = K; // 4113 ->L9 %IF MONE=0 #line 4113 "regression-compile-tmp/allimpc1-77.imp" if (((MONE) != (0))) goto L_0535; #line 4113 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 4113 "regression-compile-tmp/allimpc1-77.imp" L_0535:; // 4114 PSI(X'92',LINE>>8,GLA,22); ! MVI #line 4114 "regression-compile-tmp/allimpc1-77.imp" PSI(146, (int)((((unsigned int)(LINE)) >> (8))), GLA, 22); // 4115 L9: MONE=0; %END #line 4115 "regression-compile-tmp/allimpc1-77.imp" U_106b:; #line 4115 "regression-compile-tmp/allimpc1-77.imp" MONE = 0; #line 4115 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block SETLINE at level 3 // 4116 %ROUTINE CHECK CAPACITY(%INTEGER REG,DIS,X,LEVEL) #line 4116 "regression-compile-tmp/allimpc1-77.imp" void CHECKCAPACITY( int REG, int DIS, int X, int LEVEL ) #line 4116 "regression-compile-tmp/allimpc1-77.imp" { // 4117 !%SHORTROUTINE // 4118 %INTEGER MASK #line 4118 "regression-compile-tmp/allimpc1-77.imp" int MASK; // 4119 %RETURN %UNLESS TYPE=1 %AND 1<=PREC<=2 #line 4119 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (1))) goto L_0536; #line 4119 "regression-compile-tmp/allimpc1-77.imp" if ((((1) > (PREC))) || (((PREC) <= (2)))) goto L_0537; #line 4119 "regression-compile-tmp/allimpc1-77.imp" L_0536:; #line 4119 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; #line 4119 "regression-compile-tmp/allimpc1-77.imp" L_0537:; // 4120 ->L3 %IF PREC=1; ! %YTE #line 4120 "regression-compile-tmp/allimpc1-77.imp" if (((PREC) != (1))) goto L_0538; #line 4120 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; #line 4120 "regression-compile-tmp/allimpc1-77.imp" L_0538:; // 4121 MASK=7 #line 4121 "regression-compile-tmp/allimpc1-77.imp" MASK = 7; // 4122 PRX(X'49',REG,LEVEL,X,DIS); ! CH REG,STORED VALUE #line 4122 "regression-compile-tmp/allimpc1-77.imp" PRX(73, REG, LEVEL, X, DIS); // 4123 L1: PRX(X'47',MASK,12,0,88); ->L99; ! BC MASK,CAPACITY EXCE #line 4123 "regression-compile-tmp/allimpc1-77.imp" U_1058:; #line 4123 "regression-compile-tmp/allimpc1-77.imp" PRX(71, MASK, 12, 0, 88); #line 4123 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; // 4124 L3: PRX(X'55',REG,0,GLA,24); ! CL_1,=F'255' #line 4124 "regression-compile-tmp/allimpc1-77.imp" U_1078:; #line 4124 "regression-compile-tmp/allimpc1-77.imp" PRX(85, REG, 0, GLA, 24); // 4125 MASK=2; ->L1 #line 4125 "regression-compile-tmp/allimpc1-77.imp" MASK = 2; #line 4125 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; // 4126 L99: %END #line 4126 "regression-compile-tmp/allimpc1-77.imp" U_1059:; #line 4126 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CHECKCAPACITY at level 3 // 4127 ! ******* LIST***PROCESSING***ROUTINES // 4128 %COMMENT MACROISING THE FROMS,REPLACES & MLINK SAVES TIME & SPACE; // 4129 %COMMENT MACROISING THE OTHERS SAVES TIME BUT INCREASES SIZE // 4130 %ROUTINE FROM LIST(%INTEGER CELL,%INTEGERNAME S1,S2) #line 4130 "regression-compile-tmp/allimpc1-77.imp" void FROMLIST( int CELL, int /*name*/*S1, int /*name*/*S2 ) #line 4130 "regression-compile-tmp/allimpc1-77.imp" { // 4131 %INTEGER J #line 4131 "regression-compile-tmp/allimpc1-77.imp" int J; // 4132 J=ADDR(ASLIST(CELL)) #line 4132 "regression-compile-tmp/allimpc1-77.imp" J = _imp_ADDR(&ASLIST[CELL]); // 4133 S1=INTEGER(J) #line 4133 "regression-compile-tmp/allimpc1-77.imp" *S1 = *_imp_INTEGER(J); // 4134 S2= SHORT INTEGER(J+4) #line 4134 "regression-compile-tmp/allimpc1-77.imp" *S2 = *_imp_SHORTINTEGER((((int)(J)) + (4))); // 4135 %END #line 4135 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block FROMLIST at level 3 // 4136 %INTEGERFN NEW CELL #line 4136 "regression-compile-tmp/allimpc1-77.imp" int NEWCELL( void ) #line 4136 "regression-compile-tmp/allimpc1-77.imp" { // 4137 %INTEGER P #line 4137 "regression-compile-tmp/allimpc1-77.imp" int P; // 4138 P=ASL; FAULT(107) %IF P=0 #line 4138 "regression-compile-tmp/allimpc1-77.imp" P = ASL; #line 4138 "regression-compile-tmp/allimpc1-77.imp" if (((P) != (0))) goto L_0539; #line 4138 "regression-compile-tmp/allimpc1-77.imp" FAULT(107); #line 4138 "regression-compile-tmp/allimpc1-77.imp" L_0539:; // 4139 ASL= SHORT INTEGER(ADDR(ASLIST(P+6)));! NEXT FREE CELL #line 4139 "regression-compile-tmp/allimpc1-77.imp" ASL = *_imp_SHORTINTEGER(_imp_ADDR(&ASLIST[(((int)(P)) + (6))])); // 4140 SET SHORT INTEGER(ADDR(ASLIST(P+6)), 0); ! LINK OF NEWCELL TO 0 #line 4140 "regression-compile-tmp/allimpc1-77.imp" SETSHORTINTEGER(_imp_ADDR(&ASLIST[(((int)(P)) + (6))]), 0); // 4141 %RESULT=P #line 4141 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return P; // 4142 %END #line 4142 "regression-compile-tmp/allimpc1-77.imp" } // End of block NEWCELL at level 3 // 4143 %ROUTINE PUSH(%SHORTINTEGERNAME CELL,%INTEGER S1,S2) ; ! Care needed with short conversion! #line 4143 "regression-compile-tmp/allimpc1-77.imp" void PUSH( short /*name*/*CELL, int S1, int S2 ) #line 4143 "regression-compile-tmp/allimpc1-77.imp" { // 4144 %INTEGER P,Q #line 4144 "regression-compile-tmp/allimpc1-77.imp" int P; #line 4144 "regression-compile-tmp/allimpc1-77.imp" int Q; // 4145 P=NEWCELL #line 4145 "regression-compile-tmp/allimpc1-77.imp" P = NEWCELL(); // 4146 Q=ADDR(ASLIST(P)) #line 4146 "regression-compile-tmp/allimpc1-77.imp" Q = _imp_ADDR(&ASLIST[P]); // 4147 INTEGER(Q)=S1 #line 4147 "regression-compile-tmp/allimpc1-77.imp" *_imp_INTEGER(Q) = S1; // 4148 SET SHORT INTEGER(Q+4, S2) #line 4148 "regression-compile-tmp/allimpc1-77.imp" SETSHORTINTEGER((((int)(Q)) + (4)), S2); // 4149 SET SHORT INTEGER(Q+6, CELL) #line 4149 "regression-compile-tmp/allimpc1-77.imp" SETSHORTINTEGER((((int)(Q)) + (6)), *CELL); // 4150 CELL=P #line 4150 "regression-compile-tmp/allimpc1-77.imp" *CELL = P; // 4151 %END #line 4151 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PUSH at level 3 // 4152 %ROUTINE POP(%SHORTINTEGERNAME CELL,%INTEGERNAME S1,S2) #line 4152 "regression-compile-tmp/allimpc1-77.imp" void POP( short /*name*/*CELL, int /*name*/*S1, int /*name*/*S2 ) #line 4152 "regression-compile-tmp/allimpc1-77.imp" { // 4153 %INTEGER P,Q #line 4153 "regression-compile-tmp/allimpc1-77.imp" int P; #line 4153 "regression-compile-tmp/allimpc1-77.imp" int Q; // 4154 Q=ADDR(ASLIST(CELL)) #line 4154 "regression-compile-tmp/allimpc1-77.imp" Q = _imp_ADDR(&ASLIST[*CELL]); // 4155 S1=INTEGER(Q) #line 4155 "regression-compile-tmp/allimpc1-77.imp" *S1 = *_imp_INTEGER(Q); // 4156 S2=SHORT INTEGER(Q+4) #line 4156 "regression-compile-tmp/allimpc1-77.imp" *S2 = *_imp_SHORTINTEGER((((int)(Q)) + (4))); // 4157 ->L1 %IF CELL=0; ! LIST ALREADY EMPTY #line 4157 "regression-compile-tmp/allimpc1-77.imp" if (((*CELL) != (0))) goto L_053a; #line 4157 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; #line 4157 "regression-compile-tmp/allimpc1-77.imp" L_053a:; // 4158 P=CELL; CELL=SHORT INTEGER(Q+6);! CELL ONTO NEXT CELL #line 4158 "regression-compile-tmp/allimpc1-77.imp" P = *CELL; #line 4158 "regression-compile-tmp/allimpc1-77.imp" *CELL = *_imp_SHORTINTEGER((((int)(Q)) + (6))); // 4159 SHORT INTEGER(Q+6)=ASL; ASL=P;! OLD CELL ONTO FREE LIST #line 4159 "regression-compile-tmp/allimpc1-77.imp" *_imp_SHORTINTEGER((((int)(Q)) + (6))) = ASL; #line 4159 "regression-compile-tmp/allimpc1-77.imp" ASL = P; // 4160 L1: %END #line 4160 "regression-compile-tmp/allimpc1-77.imp" U_1078:; #line 4160 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block POP at level 3 // 4161 %ROUTINE REPLACE1(%INTEGER CELL,S1) #line 4161 "regression-compile-tmp/allimpc1-77.imp" void REPLACE1( int CELL, int S1 ) #line 4161 "regression-compile-tmp/allimpc1-77.imp" { // 4162 INTEGER(ADDR(ASLIST(CELL)))=S1 #line 4162 "regression-compile-tmp/allimpc1-77.imp" *_imp_INTEGER(_imp_ADDR(&ASLIST[CELL])) = S1; // 4163 %END #line 4163 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block REPLACE1 at level 3 // 4164 %ROUTINE REPLACE2(%INTEGER CELL,S2) #line 4164 "regression-compile-tmp/allimpc1-77.imp" void REPLACE2( int CELL, int S2 ) #line 4164 "regression-compile-tmp/allimpc1-77.imp" { // 4165 SHORT INTEGER(ADDR(ASLIST(CELL+4)))=S2 #line 4165 "regression-compile-tmp/allimpc1-77.imp" *_imp_SHORTINTEGER(_imp_ADDR(&ASLIST[(((int)(CELL)) + (4))])) = S2; // 4166 %END #line 4166 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block REPLACE2 at level 3 // 4167 %ROUTINE MLINK(%INTEGERNAME CELL) #line 4167 "regression-compile-tmp/allimpc1-77.imp" void MLINK( int /*name*/*CELL ) #line 4167 "regression-compile-tmp/allimpc1-77.imp" { // 4168 CELL=SHORT INTEGER(ADDR(ASLIST(CELL+6))) #line 4168 "regression-compile-tmp/allimpc1-77.imp" *CELL = *_imp_SHORTINTEGER(_imp_ADDR(&ASLIST[((*(int *)(CELL)) + (6))])); // 4169 %END #line 4169 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block MLINK at level 3 // 4170 %ROUTINE INSERT AFTER(%SHORTINTEGERNAME CELL,%INTEGER S1,S2) #line 4170 "regression-compile-tmp/allimpc1-77.imp" void INSERTAFTER( short /*name*/*CELL, int S1, int S2 ) #line 4170 "regression-compile-tmp/allimpc1-77.imp" { // 4171 ->L1 %IF CELL=0 #line 4171 "regression-compile-tmp/allimpc1-77.imp" if (((*CELL) != (0))) goto L_053b; #line 4171 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; #line 4171 "regression-compile-tmp/allimpc1-77.imp" L_053b:; // 4172 PUSH(SHORT INTEGER(ADDR(ASLIST(CELL+6))),S1,S2) #line 4172 "regression-compile-tmp/allimpc1-77.imp" PUSH(_imp_SHORTINTEGER(_imp_ADDR(&ASLIST[((*(int *)(CELL)) + (6))])), S1, S2); // 4173 CELL=SHORT INTEGER(ADDR(ASLIST(CELL+6))) #line 4173 "regression-compile-tmp/allimpc1-77.imp" *CELL = *_imp_SHORTINTEGER(_imp_ADDR(&ASLIST[((*(int *)(CELL)) + (6))])); // 4174 %RETURN #line 4174 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; // 4175 L1: PUSH(CELL,S1,S2) #line 4175 "regression-compile-tmp/allimpc1-77.imp" U_106c:; #line 4175 "regression-compile-tmp/allimpc1-77.imp" PUSH(CELL, S1, S2); // 4176 %END #line 4176 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block INSERTAFTER at level 3 // 4177 %INTEGERFN FIND(%INTEGER LAB,LIST) #line 4177 "regression-compile-tmp/allimpc1-77.imp" int FIND( int LAB, int LIST ) #line 4177 "regression-compile-tmp/allimpc1-77.imp" { // 4178 L3: ->L1 %IF LIST=0 #line 4178 "regression-compile-tmp/allimpc1-77.imp" U_106b:; #line 4178 "regression-compile-tmp/allimpc1-77.imp" if (((LIST) != (0))) goto L_053c; #line 4178 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; #line 4178 "regression-compile-tmp/allimpc1-77.imp" L_053c:; // 4179 ->L4 %IF SHORT INTEGER(ADDR(ASLIST(LIST+4)))=LAB #line 4179 "regression-compile-tmp/allimpc1-77.imp" if (((*_imp_SHORTINTEGER(_imp_ADDR(&ASLIST[(((int)(LIST)) + (4))]))) != (LAB))) goto L_053d; #line 4179 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; #line 4179 "regression-compile-tmp/allimpc1-77.imp" L_053d:; // 4180 MLINK(LIST); ->L3 #line 4180 "regression-compile-tmp/allimpc1-77.imp" MLINK(&LIST); #line 4180 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; // 4181 L4: %RESULT=INTEGER(ADDR(ASLIST(LIST))) #line 4181 "regression-compile-tmp/allimpc1-77.imp" U_1079:; #line 4181 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return *_imp_INTEGER(_imp_ADDR(&ASLIST[LIST])); // 4182 L1: %RESULT =-1 #line 4182 "regression-compile-tmp/allimpc1-77.imp" U_106c:; #line 4182 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return (-1); // 4183 %END #line 4183 "regression-compile-tmp/allimpc1-77.imp" } // End of block FIND at level 3 // 4184 %ROUTINE FROM1(%INTEGER CELL,%INTEGERNAME S1) #line 4184 "regression-compile-tmp/allimpc1-77.imp" void FROM1( int CELL, int /*name*/*S1 ) #line 4184 "regression-compile-tmp/allimpc1-77.imp" { // 4185 S1=INTEGER(ADDR(ASLIST(CELL))) #line 4185 "regression-compile-tmp/allimpc1-77.imp" *S1 = *_imp_INTEGER(_imp_ADDR(&ASLIST[CELL])); // 4186 %END #line 4186 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block FROM1 at level 3 // 4187 %ROUTINE FROM2(%INTEGER CELL,%INTEGERNAME S2) #line 4187 "regression-compile-tmp/allimpc1-77.imp" void FROM2( int CELL, int /*name*/*S2 ) #line 4187 "regression-compile-tmp/allimpc1-77.imp" { // 4188 S2=SHORT INTEGER(ADDR(ASLIST(CELL+4))) #line 4188 "regression-compile-tmp/allimpc1-77.imp" *S2 = *_imp_SHORTINTEGER(_imp_ADDR(&ASLIST[(((int)(CELL)) + (4))])); // 4189 %END #line 4189 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block FROM2 at level 3 // 4190 %ROUTINE REPLACE BOTH(%INTEGER CELL,S1,S2) #line 4190 "regression-compile-tmp/allimpc1-77.imp" void REPLACEBOTH( int CELL, int S1, int S2 ) #line 4190 "regression-compile-tmp/allimpc1-77.imp" { // 4191 %INTEGER I #line 4191 "regression-compile-tmp/allimpc1-77.imp" int I; // 4192 I=ADDR(ASLIST(CELL)) #line 4192 "regression-compile-tmp/allimpc1-77.imp" I = _imp_ADDR(&ASLIST[CELL]); // 4193 INTEGER(I)=S1 #line 4193 "regression-compile-tmp/allimpc1-77.imp" *_imp_INTEGER(I) = S1; // 4194 SHORT INTEGER(I+4)=S2 #line 4194 "regression-compile-tmp/allimpc1-77.imp" *_imp_SHORTINTEGER((((int)(I)) + (4))) = S2; // 4195 %END #line 4195 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block REPLACEBOTH at level 3 // 4196 %ROUTINE CLEAR LIST (%SHORTINTEGERNAME OPHEAD) #line 4196 "regression-compile-tmp/allimpc1-77.imp" void CLEARLIST( short /*name*/*OPHEAD ) #line 4196 "regression-compile-tmp/allimpc1-77.imp" { // 4197 %INTEGER I,J #line 4197 "regression-compile-tmp/allimpc1-77.imp" int I; #line 4197 "regression-compile-tmp/allimpc1-77.imp" int J; // 4198 L1: POP(OPHEAD,I,J) #line 4198 "regression-compile-tmp/allimpc1-77.imp" U_106c:; #line 4198 "regression-compile-tmp/allimpc1-77.imp" POP(OPHEAD, &I, &J); // 4199 ->L1 %UNLESS I=-1 #line 4199 "regression-compile-tmp/allimpc1-77.imp" if (((I) == ((-1)))) goto L_053e; #line 4199 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; #line 4199 "regression-compile-tmp/allimpc1-77.imp" L_053e:; // 4200 %END #line 4200 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CLEARLIST at level 3 // 4201 ! ************END****OF****LIST****PROCESSING ROUTINES // 4202 %ROUTINE STORE TAG(%INTEGER KK,SLINK) #line 4202 "regression-compile-tmp/allimpc1-77.imp" void STORETAG( int KK, int SLINK ) #line 4202 "regression-compile-tmp/allimpc1-77.imp" { // 4203 PUSH(TAGS(KK),PTYPE<<16!LEVEL<<8!RBASE<<4!J,SLINK) #line 4203 "regression-compile-tmp/allimpc1-77.imp" PUSH(&TAGS[KK], ((((((((PTYPE) << (16))) | (((LEVEL) << (8))))) | (((RBASE) << (4))))) | (J)), SLINK); // 4204 PUSH(NAME(LEVEL),0,KK) %UNLESS LEVEL<=1 #line 4204 "regression-compile-tmp/allimpc1-77.imp" if (((LEVEL) <= (1))) goto L_053f; #line 4204 "regression-compile-tmp/allimpc1-77.imp" PUSH(&NAME[LEVEL], 0, KK); #line 4204 "regression-compile-tmp/allimpc1-77.imp" L_053f:; // 4205 %END #line 4205 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block STORETAG at level 3 // 4206 %INTEGERFN COUNT APS #line 4206 "regression-compile-tmp/allimpc1-77.imp" int COUNTAPS( void ) #line 4206 "regression-compile-tmp/allimpc1-77.imp" { // 4207 %INTEGER PP,Q #line 4207 "regression-compile-tmp/allimpc1-77.imp" int PP; #line 4207 "regression-compile-tmp/allimpc1-77.imp" int Q; // 4208 Q=0; PP=P; P=P+1; ! P ON NAME AT ENTRY #line 4208 "regression-compile-tmp/allimpc1-77.imp" Q = 0; #line 4208 "regression-compile-tmp/allimpc1-77.imp" PP = P; #line 4208 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); // 4209 L1: ->L2 %IF A(P)=2 #line 4209 "regression-compile-tmp/allimpc1-77.imp" U_106b:; #line 4209 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0540; #line 4209 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; #line 4209 "regression-compile-tmp/allimpc1-77.imp" L_0540:; // 4210 P=P+1; Q=Q+1; SKIP EXP; ->L1 #line 4210 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 4210 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) + (1)); #line 4210 "regression-compile-tmp/allimpc1-77.imp" SKIPEXP(); #line 4210 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; // 4211 L2: P=PP; %RESULT=Q #line 4211 "regression-compile-tmp/allimpc1-77.imp" U_106c:; #line 4211 "regression-compile-tmp/allimpc1-77.imp" P = PP; #line 4211 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return Q; // 4212 %END #line 4212 "regression-compile-tmp/allimpc1-77.imp" } // End of block COUNTAPS at level 3 // 4213 %INTEGERFN DISPLACEMENT(%INTEGER LINK) #line 4213 "regression-compile-tmp/allimpc1-77.imp" int DISPLACEMENT( int LINK ) #line 4213 "regression-compile-tmp/allimpc1-77.imp" { // 4214 !%SHORTROUTINE // 4215 ! A(P) HAS ENAME--LINK IS HEAD OF RFORMAT LIST. RESULT IS DISP FROM // 4216 ! START OF RECORD FOR SCALAR DISP OF DV FROM RECORD FORMAT FOR ARRAY // 4217 %INTEGER RR,II #line 4217 "regression-compile-tmp/allimpc1-77.imp" int RR; #line 4217 "regression-compile-tmp/allimpc1-77.imp" int II; // 4218 ->L2 %IF LINK=0 #line 4218 "regression-compile-tmp/allimpc1-77.imp" if (((LINK) != (0))) goto L_0541; #line 4218 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; #line 4218 "regression-compile-tmp/allimpc1-77.imp" L_0541:; // 4219 FROM2(LINK,LINK) #line 4219 "regression-compile-tmp/allimpc1-77.imp" FROM2(LINK, &LINK); // 4220 L1: MLINK(LINK); FROM LIST(LINK,RR,II) #line 4220 "regression-compile-tmp/allimpc1-77.imp" U_1079:; #line 4220 "regression-compile-tmp/allimpc1-77.imp" MLINK(&LINK); #line 4220 "regression-compile-tmp/allimpc1-77.imp" FROMLIST(LINK, &RR, &II); // 4221 ->L2 %IF II=-1 #line 4221 "regression-compile-tmp/allimpc1-77.imp" if (((II) != ((-1)))) goto L_0542; #line 4221 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; #line 4221 "regression-compile-tmp/allimpc1-77.imp" L_0542:; // 4222 J=RR&15;PTYPE=RR>>4&X'FFFF' #line 4222 "regression-compile-tmp/allimpc1-77.imp" J = ((RR) & (15)); #line 4222 "regression-compile-tmp/allimpc1-77.imp" PTYPE = (((int)((((unsigned int)(RR)) >> (4)))) & (65535)); // 4223 RR=RR>>20;K=LINK #line 4223 "regression-compile-tmp/allimpc1-77.imp" RR = (int)((((unsigned int)(RR)) >> (20))); #line 4223 "regression-compile-tmp/allimpc1-77.imp" K = LINK; // 4224 INREG=0 #line 4224 "regression-compile-tmp/allimpc1-77.imp" INREG = 0; // 4225 ->L99 %IF RR=A(P); ->L1 #line 4225 "regression-compile-tmp/allimpc1-77.imp" if (((RR) != (A[((P) + ((int)(2)))]))) goto L_0543; #line 4225 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; #line 4225 "regression-compile-tmp/allimpc1-77.imp" L_0543:; #line 4225 "regression-compile-tmp/allimpc1-77.imp" goto U_1079; // 4226 L2: FAULT(65); PRINT NAME(A(P)) #line 4226 "regression-compile-tmp/allimpc1-77.imp" U_106c:; #line 4226 "regression-compile-tmp/allimpc1-77.imp" FAULT(65); #line 4226 "regression-compile-tmp/allimpc1-77.imp" PRINTNAME(A[((P) + ((int)(2)))]); // 4227 PTYPE=1 #line 4227 "regression-compile-tmp/allimpc1-77.imp" PTYPE = 1; // 4228 L99: %RESULT=II #line 4228 "regression-compile-tmp/allimpc1-77.imp" U_1078:; #line 4228 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return II; // 4229 %END #line 4229 "regression-compile-tmp/allimpc1-77.imp" } // End of block DISPLACEMENT at level 3 // 4230 %INTEGERFN COPY RECORD TAG #line 4230 "regression-compile-tmp/allimpc1-77.imp" int COPYRECORDTAG( void ) #line 4230 "regression-compile-tmp/allimpc1-77.imp" { // 4231 !%SHORTROUTINE // 4232 ! AS COPY TAG-GIVES TYNE ETC OF THE ENAME // 4233 !P POINTS TO RECORD NAME // 4234 %INTEGER Q,FNAME #line 4234 "regression-compile-tmp/allimpc1-77.imp" int Q; #line 4234 "regression-compile-tmp/allimpc1-77.imp" int FNAME; // 4235 ! K POINT TO SIDE CHAIN // 4236 L1: FROM1(K,FNAME) #line 4236 "regression-compile-tmp/allimpc1-77.imp" U_106b:; #line 4236 "regression-compile-tmp/allimpc1-77.imp" FROM1(K, &FNAME); // 4237 P=P+1; SKIP APP #line 4237 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 4237 "regression-compile-tmp/allimpc1-77.imp" SKIPAPP(); // 4238 %RESULT=0 %IF A(P)=2 #line 4238 "regression-compile-tmp/allimpc1-77.imp" if (((A[((P) + ((int)(2)))]) != (2))) goto L_0544; #line 4238 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return 0; #line 4238 "regression-compile-tmp/allimpc1-77.imp" L_0544:; // 4239 P=P+1; Q=DISPLACEMENT (FNAME) #line 4239 "regression-compile-tmp/allimpc1-77.imp" P = (((int)(P)) + (1)); #line 4239 "regression-compile-tmp/allimpc1-77.imp" Q = DISPLACEMENT(FNAME); // 4240 PTYPE=7 %IF Q=-1 #line 4240 "regression-compile-tmp/allimpc1-77.imp" if (((Q) != ((-1)))) goto L_0545; #line 4240 "regression-compile-tmp/allimpc1-77.imp" PTYPE = 7; #line 4240 "regression-compile-tmp/allimpc1-77.imp" L_0545:; // 4241 UNPACK #line 4241 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 4242 %IF TYPE=3 %THEN %START #line 4242 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) != (3))) goto L_0546; // 4243 K=Q; ->L1; %FINISH #line 4243 "regression-compile-tmp/allimpc1-77.imp" K = Q; #line 4243 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 4243 "regression-compile-tmp/allimpc1-77.imp" L_0546:; // 4244 %RESULT=-1 %IF Q=-1 #line 4244 "regression-compile-tmp/allimpc1-77.imp" if (((Q) != ((-1)))) goto L_0547; #line 4244 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return (-1); #line 4244 "regression-compile-tmp/allimpc1-77.imp" L_0547:; // 4245 %RESULT=1 #line 4245 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return 1; // 4246 %END #line 4246 "regression-compile-tmp/allimpc1-77.imp" } // End of block COPYRECORDTAG at level 3 // 4247 %ROUTINE COPY TAG(%INTEGER KK) #line 4247 "regression-compile-tmp/allimpc1-77.imp" void COPYTAG( int KK ) #line 4247 "regression-compile-tmp/allimpc1-77.imp" { // 4248 %INTEGER Q #line 4248 "regression-compile-tmp/allimpc1-77.imp" int Q; // 4249 FROM LIST(TAGS(KK),Q,K) #line 4249 "regression-compile-tmp/allimpc1-77.imp" FROMLIST(TAGS[KK], &Q, &K); // 4250 ->NOTSET %IF Q=-1 #line 4250 "regression-compile-tmp/allimpc1-77.imp" if (((Q) != ((-1)))) goto L_0548; #line 4250 "regression-compile-tmp/allimpc1-77.imp" goto U_106b; #line 4250 "regression-compile-tmp/allimpc1-77.imp" L_0548:; // 4251 PTYPE=Q>>16 #line 4251 "regression-compile-tmp/allimpc1-77.imp" PTYPE = (int)((((unsigned int)(Q)) >> (16))); // 4252 INREG=Q>>12&15 #line 4252 "regression-compile-tmp/allimpc1-77.imp" INREG = (((int)((((unsigned int)(Q)) >> (12)))) & (15)); // 4253 OLDI=Q>>8&15 #line 4253 "regression-compile-tmp/allimpc1-77.imp" OLDI = (((int)((((unsigned int)(Q)) >> (8)))) & (15)); // 4254 I=Q>>4&15 #line 4254 "regression-compile-tmp/allimpc1-77.imp" I = (((int)((((unsigned int)(Q)) >> (4)))) & (15)); // 4255 J=Q&15 #line 4255 "regression-compile-tmp/allimpc1-77.imp" J = ((Q) & (15)); // 4256 L1: UNPACK #line 4256 "regression-compile-tmp/allimpc1-77.imp" U_106c:; #line 4256 "regression-compile-tmp/allimpc1-77.imp" UNPACK(); // 4257 %RETURN #line 4257 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; // 4258 NOTSET: PTYPE=7 #line 4258 "regression-compile-tmp/allimpc1-77.imp" U_106b:; #line 4258 "regression-compile-tmp/allimpc1-77.imp" PTYPE = 7; // 4259 I=-1; J=I; OLDI=J; ->L1 #line 4259 "regression-compile-tmp/allimpc1-77.imp" I = (-1); #line 4259 "regression-compile-tmp/allimpc1-77.imp" J = I; #line 4259 "regression-compile-tmp/allimpc1-77.imp" OLDI = J; #line 4259 "regression-compile-tmp/allimpc1-77.imp" goto U_106c; // 4260 %END #line 4260 "regression-compile-tmp/allimpc1-77.imp" return; } // End of block COPYTAG at level 3 // 4261 %ROUTINE REPLACE TAG (%INTEGER KK) #line 4261 "regression-compile-tmp/allimpc1-77.imp" void REPLACETAG( int KK ) #line 4261 "regression-compile-tmp/allimpc1-77.imp" { // 4262 !%SHORTROUTINE // 4263 %INTEGER P,Q #line 4263 "regression-compile-tmp/allimpc1-77.imp" int P; #line 4263 "regression-compile-tmp/allimpc1-77.imp" int Q; // 4264 P=TAGS(KK) #line 4264 "regression-compile-tmp/allimpc1-77.imp" P = TAGS[KK]; // 4265 Q=PTYPE<<16!INREG<<12!OLDI<<8!I<<4!J #line 4265 "regression-compile-tmp/allimpc1-77.imp" Q = ((((((((((PTYPE) << (16))) | (((INREG) << (12))))) | (((OLDI) << (8))))) | (((I) << (4))))) | (J)); // 4266 REPLACE BOTH(P,Q,K) #line 4266 "regression-compile-tmp/allimpc1-77.imp" REPLACEBOTH(P, Q, K); // 4267 %END #line 4267 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block REPLACETAG at level 3 // 4268 %ROUTINE UNPACK #line 4268 "regression-compile-tmp/allimpc1-77.imp" void UNPACK( void ) #line 4268 "regression-compile-tmp/allimpc1-77.imp" { // 4269 %INTEGER Q #line 4269 "regression-compile-tmp/allimpc1-77.imp" int Q; // 4270 ROUT=PTYPE//10000 #line 4270 "regression-compile-tmp/allimpc1-77.imp" ROUT = (long)((long)((int)(PTYPE)) / (long)((int)(10000))); // 4271 Q=PTYPE-10000*ROUT #line 4271 "regression-compile-tmp/allimpc1-77.imp" Q = ((PTYPE) - ((int)(((10000) * ((int)(ROUT)))))); // 4272 NAM=Q//1000 #line 4272 "regression-compile-tmp/allimpc1-77.imp" NAM = (long)((long)((int)(Q)) / (long)((int)(1000))); // 4273 Q=Q-1000*NAM #line 4273 "regression-compile-tmp/allimpc1-77.imp" Q = ((Q) - ((int)(((1000) * ((int)(NAM)))))); // 4274 ARR=Q//100 #line 4274 "regression-compile-tmp/allimpc1-77.imp" ARR = (long)((long)((int)(Q)) / (long)((int)(100))); // 4275 Q=Q-100*ARR #line 4275 "regression-compile-tmp/allimpc1-77.imp" Q = ((Q) - ((int)(((100) * ((int)(ARR)))))); // 4276 PREC=Q//10 #line 4276 "regression-compile-tmp/allimpc1-77.imp" PREC = (long)((long)((int)(Q)) / (long)((int)(10))); // 4277 TYPE=Q-10*PREC #line 4277 "regression-compile-tmp/allimpc1-77.imp" TYPE = ((Q) - ((int)(((10) * ((int)(PREC)))))); // 4278 %END #line 4278 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block UNPACK at level 3 // 4279 %ROUTINE PACK(%INTEGERNAME PTYPE) #line 4279 "regression-compile-tmp/allimpc1-77.imp" void PACK( int /*name*/*PTYPE ) #line 4279 "regression-compile-tmp/allimpc1-77.imp" { // 4280 %INTEGER Q #line 4280 "regression-compile-tmp/allimpc1-77.imp" int Q; // 4281 Q=10000*ROUT+1000*NAM+100*ARR #line 4281 "regression-compile-tmp/allimpc1-77.imp" Q = ((((((((10000) * ((int)(ROUT))))) + (((1000) * ((int)(NAM))))))) + (((100) * ((int)(ARR))))); // 4282 PTYPE=Q+10*PREC+TYPE #line 4282 "regression-compile-tmp/allimpc1-77.imp" *PTYPE = (((unsigned char)(((Q) + ((int)(((10) * ((int)(PREC)))))))) + (TYPE)); // 4283 %END #line 4283 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PACK at level 3 // 4284 !************* LABEL ***** AND**** JUMP **** ROUTINES************* // 4285 %ROUTINE PPJ(%BYTEINTEGER N) #line 4285 "regression-compile-tmp/allimpc1-77.imp" void PPJ( unsigned char N ) #line 4285 "regression-compile-tmp/allimpc1-77.imp" { // 4286 R13=0; PCONST(X'45F0C000'!N<<2); ! BAL LINP,PLAB N #line 4286 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; #line 4286 "regression-compile-tmp/allimpc1-77.imp" PCONST(((1173405696) | (((N) << (2))))); // 4287 %END #line 4287 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PPJ at level 3 // 4288 %INTEGERFN PAGENO(%INTEGER N) #line 4288 "regression-compile-tmp/allimpc1-77.imp" int PAGENO( int N ) #line 4288 "regression-compile-tmp/allimpc1-77.imp" { // 4289 %INTEGER I,J #line 4289 "regression-compile-tmp/allimpc1-77.imp" int I; #line 4289 "regression-compile-tmp/allimpc1-77.imp" int J; // 4290 J=N>>12; I=PAGENOS(J) #line 4290 "regression-compile-tmp/allimpc1-77.imp" J = (int)((((unsigned int)(N)) >> (12))); #line 4290 "regression-compile-tmp/allimpc1-77.imp" I = PAGENOS[J]; // 4291 %RESULT=I %UNLESS I=0 #line 4291 "regression-compile-tmp/allimpc1-77.imp" if (((I) == (0))) goto L_0549; #line 4291 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return I; #line 4291 "regression-compile-tmp/allimpc1-77.imp" L_0549:; // 4292 ST(N0)=J<<12 #line 4292 "regression-compile-tmp/allimpc1-77.imp" ST[N0] = ((J) << (12)); // 4293 PAGENOS(J)=N0 #line 4293 "regression-compile-tmp/allimpc1-77.imp" PAGENOS[J] = N0; // 4294 N0=N0+1 #line 4294 "regression-compile-tmp/allimpc1-77.imp" N0 = (((int)(N0)) + (1)); // 4295 %RESULT=N0-1 #line 4295 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return (((int)(N0)) - (1)); // 4296 %END #line 4296 "regression-compile-tmp/allimpc1-77.imp" } // End of block PAGENO at level 3 // 4297 %ROUTINE FILL JUMPS(%INTEGER LEVEL) #line 4297 "regression-compile-tmp/allimpc1-77.imp" void FILLJUMPS( int LEVEL ) #line 4297 "regression-compile-tmp/allimpc1-77.imp" { // 4298 !%SHORTROUTINE // 4299 %INTEGER J,K,Q,KK #line 4299 "regression-compile-tmp/allimpc1-77.imp" int J; #line 4299 "regression-compile-tmp/allimpc1-77.imp" int K; #line 4299 "regression-compile-tmp/allimpc1-77.imp" int Q; #line 4299 "regression-compile-tmp/allimpc1-77.imp" int KK; // 4300 OPHEAD=0 #line 4300 "regression-compile-tmp/allimpc1-77.imp" OPHEAD = 0; // 4301 L1: POP(JUMP(LEVEL),J,K); ->L3 %IF J=-1 #line 4301 "regression-compile-tmp/allimpc1-77.imp" U_1078:; #line 4301 "regression-compile-tmp/allimpc1-77.imp" POP(&JUMP[LEVEL], &J, &K); #line 4301 "regression-compile-tmp/allimpc1-77.imp" if (((J) != ((-1)))) goto L_054a; #line 4301 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; #line 4301 "regression-compile-tmp/allimpc1-77.imp" L_054a:; // 4302 Q=FIND(K,LABEL(LEVEL)) #line 4302 "regression-compile-tmp/allimpc1-77.imp" Q = FIND(K, LABEL[LEVEL]); // 4303 ->L2 %UNLESS Q=-1; #line 4303 "regression-compile-tmp/allimpc1-77.imp" if (((Q) == ((-1)))) goto L_054b; #line 4303 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; #line 4303 "regression-compile-tmp/allimpc1-77.imp" L_054b:; // 4304 PUSH(OPHEAD,J,K); ->L1 #line 4304 "regression-compile-tmp/allimpc1-77.imp" PUSH(&OPHEAD, J, K); #line 4304 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; // 4305 L2: KK=0 #line 4305 "regression-compile-tmp/allimpc1-77.imp" U_1059:; #line 4305 "regression-compile-tmp/allimpc1-77.imp" KK = 0; // 4306 Q=Q-CODEBASE(LEVEL); K=Q>>12 #line 4306 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(Q)) - (CODEBASE[LEVEL])); #line 4306 "regression-compile-tmp/allimpc1-77.imp" K = (int)((((unsigned int)(Q)) >> (12))); // 4307 ->L22 %IF J&LABSET#0 #line 4307 "regression-compile-tmp/allimpc1-77.imp" if (((((J) & (LABSET))) == (0))) goto L_054c; #line 4307 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 4307 "regression-compile-tmp/allimpc1-77.imp" L_054c:; // 4308 ->L23 %IF SBFLAG=1 #line 4308 "regression-compile-tmp/allimpc1-77.imp" if (((SBFLAG) != (1))) goto L_054d; #line 4308 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; #line 4308 "regression-compile-tmp/allimpc1-77.imp" L_054d:; // 4309 PLUG(J,X'58E0') #line 4309 "regression-compile-tmp/allimpc1-77.imp" PLUG(J, 22752); // 4310 PLUG(J+2,GLA<<12!4*PAGENO(Q)); J=J+4 #line 4310 "regression-compile-tmp/allimpc1-77.imp" PLUG((((int)(J)) + (2)), ((((GLA) << (12))) | ((((int)(4)) * (PAGENO(Q)))))); #line 4310 "regression-compile-tmp/allimpc1-77.imp" J = (((int)(J)) + (4)); // 4311 KK=14 %UNLESS K=0 #line 4311 "regression-compile-tmp/allimpc1-77.imp" if (((K) == (0))) goto L_054e; #line 4311 "regression-compile-tmp/allimpc1-77.imp" KK = 14; #line 4311 "regression-compile-tmp/allimpc1-77.imp" L_054e:; // 4312 L21: PLUG(J+2,KK<<12!Q&X'FFF'); ->L1 #line 4312 "regression-compile-tmp/allimpc1-77.imp" U_105c:; #line 4312 "regression-compile-tmp/allimpc1-77.imp" PLUG((((int)(J)) + (2)), ((((KK) << (12))) | (((Q) & (4095))))); #line 4312 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; // 4313 L22: J=J&X'FFFFFF'; KK=10 #line 4313 "regression-compile-tmp/allimpc1-77.imp" U_105a:; #line 4313 "regression-compile-tmp/allimpc1-77.imp" J = ((J) & (16777215)); #line 4313 "regression-compile-tmp/allimpc1-77.imp" KK = 10; // 4314 L23: FAULT(99) %IF Q>4095; ->L21 #line 4314 "regression-compile-tmp/allimpc1-77.imp" U_105b:; #line 4314 "regression-compile-tmp/allimpc1-77.imp" if (((Q) <= (4095))) goto L_054f; #line 4314 "regression-compile-tmp/allimpc1-77.imp" FAULT(99); #line 4314 "regression-compile-tmp/allimpc1-77.imp" L_054f:; #line 4314 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; // 4315 L3: JUMP(LEVEL)=OPHEAD #line 4315 "regression-compile-tmp/allimpc1-77.imp" U_1058:; #line 4315 "regression-compile-tmp/allimpc1-77.imp" JUMP[LEVEL] = OPHEAD; // 4316 %END #line 4316 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block FILLJUMPS at level 3 // 4317 %ROUTINE PJ(%INTEGER MASK,LAB) #line 4317 "regression-compile-tmp/allimpc1-77.imp" void PJ( int MASK, int LAB ) #line 4317 "regression-compile-tmp/allimpc1-77.imp" { // 4318 !%SHORTROUTINE // 4319 %INTEGER I,J,Q #line 4319 "regression-compile-tmp/allimpc1-77.imp" int I; #line 4319 "regression-compile-tmp/allimpc1-77.imp" int J; #line 4319 "regression-compile-tmp/allimpc1-77.imp" int Q; // 4320 J=FIND(LAB,LABEL(LEVEL)); ->L200 %IF J=-1 #line 4320 "regression-compile-tmp/allimpc1-77.imp" J = FIND(LAB, LABEL[LEVEL]); #line 4320 "regression-compile-tmp/allimpc1-77.imp" if (((J) != ((-1)))) goto L_0550; #line 4320 "regression-compile-tmp/allimpc1-77.imp" goto U_1078; #line 4320 "regression-compile-tmp/allimpc1-77.imp" L_0550:; // 4321 I=J-CODEBASE(LEVEL); ->L50 %IF I>=4096 #line 4321 "regression-compile-tmp/allimpc1-77.imp" I = (((int)(J)) - (CODEBASE[LEVEL])); #line 4321 "regression-compile-tmp/allimpc1-77.imp" if (((I) < (4096))) goto L_0551; #line 4321 "regression-compile-tmp/allimpc1-77.imp" goto U_1058; #line 4321 "regression-compile-tmp/allimpc1-77.imp" L_0551:; // 4322 PRX(X'47',MASK,0,10,I); ->L999;! BC MASK,I(10,0) #line 4322 "regression-compile-tmp/allimpc1-77.imp" PRX(71, MASK, 0, 10, I); #line 4322 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; // 4323 L50: Q=4*PAGENO(I); ! DISPLACEMENT OF MULTIPLE OF 4K #line 4323 "regression-compile-tmp/allimpc1-77.imp" U_1058:; #line 4323 "regression-compile-tmp/allimpc1-77.imp" Q = (((int)(4)) * (PAGENO(I))); // 4324 PCONST(X'58E0D000'!Q); ! L 14,Q(GLA) #line 4324 "regression-compile-tmp/allimpc1-77.imp" PCONST(((1491128320) | (Q))); // 4325 PRX(X'47',MASK,14,10,I&4095); ->L999;! BC MASK,?(10,14) #line 4325 "regression-compile-tmp/allimpc1-77.imp" PRX(71, MASK, 14, 10, ((I) & (4095))); #line 4325 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; // 4326 L200: PUSH(JUMP(LEVEL),CA,LAB); PCONST(0) %UNLESS SBFLAG=1 #line 4326 "regression-compile-tmp/allimpc1-77.imp" U_1078:; #line 4326 "regression-compile-tmp/allimpc1-77.imp" PUSH(&JUMP[LEVEL], CA, LAB); #line 4326 "regression-compile-tmp/allimpc1-77.imp" if (((SBFLAG) == (1))) goto L_0552; #line 4326 "regression-compile-tmp/allimpc1-77.imp" PCONST(0); #line 4326 "regression-compile-tmp/allimpc1-77.imp" L_0552:; // 4327 PRX(X'47',MASK,10,0,0); ! BC MASK,?(10,?) #line 4327 "regression-compile-tmp/allimpc1-77.imp" PRX(71, MASK, 10, 0, 0); // 4328 L999: %END #line 4328 "regression-compile-tmp/allimpc1-77.imp" U_1059:; #line 4328 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PJ at level 3 // 4329 %ROUTINE PLAB(%INTEGER M) #line 4329 "regression-compile-tmp/allimpc1-77.imp" void PLAB( int M ) #line 4329 "regression-compile-tmp/allimpc1-77.imp" { // 4330 !%SHORTROUTINE // 4331 MONE=1 #line 4331 "regression-compile-tmp/allimpc1-77.imp" MONE = 1; // 4332 %IF M>=0 %THEN ->L1 #line 4332 "regression-compile-tmp/allimpc1-77.imp" if (((M) < (0))) goto L_0553; #line 4332 "regression-compile-tmp/allimpc1-77.imp" goto U_106a; #line 4332 "regression-compile-tmp/allimpc1-77.imp" L_0553:; // 4333 PLABEL=PLABEL-1; K=PLABEL #line 4333 "regression-compile-tmp/allimpc1-77.imp" PLABEL = (((int)(PLABEL)) - (1)); #line 4333 "regression-compile-tmp/allimpc1-77.imp" K = PLABEL; // 4334 M=K #line 4334 "regression-compile-tmp/allimpc1-77.imp" M = K; // 4335 L1: PUSH(LABEL(LEVEL),CA,M) #line 4335 "regression-compile-tmp/allimpc1-77.imp" U_106a:; #line 4335 "regression-compile-tmp/allimpc1-77.imp" PUSH(&LABEL[LEVEL], CA, M); // 4336 R13=0 #line 4336 "regression-compile-tmp/allimpc1-77.imp" R13 = 0; // 4337 %END #line 4337 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block PLAB at level 3 // 4338 !********** END **** OF **** LABEL ****** ROUTINES ************** // 4339 %ROUTINE CHECK RF #line 4339 "regression-compile-tmp/allimpc1-77.imp" void CHECKRF( void ) #line 4339 "regression-compile-tmp/allimpc1-77.imp" { // 4340 !%SHORTROUTINE // 4341 COPYTAG(A(MARKER1)) #line 4341 "regression-compile-tmp/allimpc1-77.imp" COPYTAG(A[((MARKER1) + ((int)(2)))]); // 4342 ->L1 %UNLESS TYPE=4 #line 4342 "regression-compile-tmp/allimpc1-77.imp" if (((TYPE) == (4))) goto L_0554; #line 4342 "regression-compile-tmp/allimpc1-77.imp" goto U_1057; #line 4342 "regression-compile-tmp/allimpc1-77.imp" L_0554:; // 4343 JJ=K; FROM LIST(JJ,Q,FNAME) #line 4343 "regression-compile-tmp/allimpc1-77.imp" JJ = K; #line 4343 "regression-compile-tmp/allimpc1-77.imp" FROMLIST(JJ, &Q, &FNAME); // 4344 DUMP(0,4,Q,0,I); ! ADDR OF FORMAT TO R4 #line 4344 "regression-compile-tmp/allimpc1-77.imp" DUMP(0, 4, Q, 0, I); // 4345 ->L9 #line 4345 "regression-compile-tmp/allimpc1-77.imp" goto U_106a; // 4346 L1: K=-1; FAULT(62) #line 4346 "regression-compile-tmp/allimpc1-77.imp" U_1057:; #line 4346 "regression-compile-tmp/allimpc1-77.imp" K = (-1); #line 4346 "regression-compile-tmp/allimpc1-77.imp" FAULT(62); // 4347 L9: %END #line 4347 "regression-compile-tmp/allimpc1-77.imp" U_106a:; #line 4347 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block CHECKRF at level 3 // 4348 %ROUTINE DUMP(%INTEGER CODE,REG,DIS,X,LEVEL) #line 4348 "regression-compile-tmp/allimpc1-77.imp" void DUMP( int CODE, int REG, int DIS, int X, int LEVEL ) #line 4348 "regression-compile-tmp/allimpc1-77.imp" { // 4349 !%SHORTROUTINE // 4350 %COMMENT CODE=8*(TYPE-1)+2*PREC+Z // 4351 %INTEGER J #line 4351 "regression-compile-tmp/allimpc1-77.imp" int J; // 4352 %OWNBYTEINTEGERARRAY OPCODE(0:16)=X'41', #line 4352 "regression-compile-tmp/allimpc1-77.imp" static unsigned char OPCODE[17] = { 65, 80, 88, 66, 67, 64, 72, 89, 73, 112, 120, 0, 0, 0, 0, 96, 104, }; // 4353 X'50',X'58',X'42',X'43',X'40',X'48',X'59',X'49', // 4354 X'70',X'78',0(4),X'60',X'68' // 4355 J=OPCODE(CODE);FAULT(248) %IF J=0 #line 4355 "regression-compile-tmp/allimpc1-77.imp" J = OPCODE[CODE]; #line 4355 "regression-compile-tmp/allimpc1-77.imp" if (((J) != (0))) goto L_0555; #line 4355 "regression-compile-tmp/allimpc1-77.imp" FAULT(248); #line 4355 "regression-compile-tmp/allimpc1-77.imp" L_0555:; // 4356 ->L4 %IF CODE=4; ! IC NEEDED #line 4356 "regression-compile-tmp/allimpc1-77.imp" if (((CODE) != (4))) goto L_0556; #line 4356 "regression-compile-tmp/allimpc1-77.imp" goto U_1059; #line 4356 "regression-compile-tmp/allimpc1-77.imp" L_0556:; // 4357 ->L1 %UNLESS CODE=0=DIS; ! OPTIMISE LOAD ADDR #line 4357 "regression-compile-tmp/allimpc1-77.imp" if ((((CODE) != (0))) || (((0) == (DIS)))) goto L_0558; #line 4357 "regression-compile-tmp/allimpc1-77.imp" L_0557:; #line 4357 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 4357 "regression-compile-tmp/allimpc1-77.imp" L_0558:; // 4358 ->L3 %UNLESS LEVEL=0=X #line 4358 "regression-compile-tmp/allimpc1-77.imp" if ((((LEVEL) != (0))) || (((0) == (X)))) goto L_055a; #line 4358 "regression-compile-tmp/allimpc1-77.imp" L_0559:; #line 4358 "regression-compile-tmp/allimpc1-77.imp" goto U_105b; #line 4358 "regression-compile-tmp/allimpc1-77.imp" L_055a:; // 4359 PRR(X'1F',REG,REG); ->L99; ! SLR INSTEAD LO LA REG,0 #line 4359 "regression-compile-tmp/allimpc1-77.imp" PRR(31, REG, REG); #line 4359 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; // 4360 L3: ->L1 %UNLESS LEVEL=0 %OR X=0 #line 4360 "regression-compile-tmp/allimpc1-77.imp" U_105b:; #line 4360 "regression-compile-tmp/allimpc1-77.imp" if (((LEVEL) == (0))) goto L_055b; #line 4360 "regression-compile-tmp/allimpc1-77.imp" if (((X) == (0))) goto L_055b; #line 4360 "regression-compile-tmp/allimpc1-77.imp" goto U_105a; #line 4360 "regression-compile-tmp/allimpc1-77.imp" L_055b:; // 4361 PRR(X'18',REG,X+LEVEL) %UNLESS REG=X+LEVEL;->L99 #line 4361 "regression-compile-tmp/allimpc1-77.imp" if (((REG) == ((((int)(X)) + (LEVEL))))) goto L_055c; #line 4361 "regression-compile-tmp/allimpc1-77.imp" PRR(24, REG, (((int)(X)) + (LEVEL))); #line 4361 "regression-compile-tmp/allimpc1-77.imp" L_055c:; #line 4361 "regression-compile-tmp/allimpc1-77.imp" goto U_105c; // 4362 L4: PRR(X'1F',REG,REG) %IF X#REG#LEVEL; ! SLR FOR BYTE #line 4362 "regression-compile-tmp/allimpc1-77.imp" U_1059:; #line 4362 "regression-compile-tmp/allimpc1-77.imp" if ((((X) == (REG))) || (((REG) == (LEVEL)))) goto L_055d; #line 4362 "regression-compile-tmp/allimpc1-77.imp" PRR(31, REG, REG); #line 4362 "regression-compile-tmp/allimpc1-77.imp" L_055d:; // 4363 L1: PRX(J,REG,X,LEVEL,DIS) #line 4363 "regression-compile-tmp/allimpc1-77.imp" U_105a:; #line 4363 "regression-compile-tmp/allimpc1-77.imp" PRX(J, REG, X, LEVEL, DIS); // 4364 %COMMENT AND WITH 255 FOR BYTE IF SLR NOT POSSIBLE AS ADDR IN R // 4365 PRX(X'54',REG,0,GLA,24) %UNLESS CODE#4 %OR X#REG#LEVEL #line 4365 "regression-compile-tmp/allimpc1-77.imp" if (((CODE) != (4))) goto L_055e; #line 4365 "regression-compile-tmp/allimpc1-77.imp" if ((((X) == (REG))) || (((REG) != (LEVEL)))) goto L_055e; #line 4365 "regression-compile-tmp/allimpc1-77.imp" L_055f:; #line 4365 "regression-compile-tmp/allimpc1-77.imp" PRX(84, REG, 0, GLA, 24); #line 4365 "regression-compile-tmp/allimpc1-77.imp" L_055e:; // 4366 L99: %END #line 4366 "regression-compile-tmp/allimpc1-77.imp" U_105c:; #line 4366 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; } // End of block DUMP at level 3 // 4367 %END #line 4367 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return; sw2_SW_38:; sw2_SW_39:; sw2_SW_40:; sw2_SW_41:; sw2_SW_42:; sw2_SW_43:; sw2_SW_44:; sw2_SW_45:; /*_imp_signal(6,3,sw2_SW_idx,"SWITCH LABEL NOT SET - sw2_SW");*/ fprintf(stderr, "%%SWITCH LABEL NOT SET - sw2_SW(%d): at line %s:%d", sw2_SW_idx, (_imp_current_file != 0 ? _imp_current_file : __FILE__), (_imp_current_line != 0 ? _imp_current_line : __LINE__)); exit(1); } // End of block CSS at level 2 // 4368 %ENDOFPROGRAM #line 4368 "regression-compile-tmp/allimpc1-77.imp" /* Remove %on %event handler here if present for this block */ return 0; } // End of block _imp_main at level 1 #line 4368 "regression-compile-tmp/allimpc1-77.imp" // End of file